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L 


ROOOl 

KOOO2 

R0003 

ROOOA 

R0005 

ROOI2 

R0013 

ROOIA 

R0015 

ROOI6 

R0017 

ROOI8 

R0019 

ROO2O 

R0021 

R0022 

R0023 

R002A 

R0025 

R0026 

R0028 

R0029 

R0030 

R0031 

R0032 

ROO33 

R003A 

R003A5 

R0035 

R0036 

ROO37 

R0038 

R0039 

Rooao 

ROOAl 

R00A2 

ROOA3 

ROOAA 

ROOAAl 

ROOAA3 

ROOAAS 

ROOAA  7 

ROOA5 

ROOA6 

R00A7 

ROOA8 

R00A9 

R0050 

R00501 


ASSCMSLV  an:  uPERAtION  INFoR'IAI  user's  own  PaGF  no-  I 

TABLE  OF  LOo  CAROS 

ASSEMSUy  AN:  operation  INToPMAIION 
ETASAdLt  assignments 
INPUT/Ol'TPUI  channels 
INTERRUiT  LEAD  INS 

restart  tables  and  RESTARTS  R3JTINE 

PRASE  Table  maintenance 

FRESH  SIRART  AND  RESTART 
TARUPl  PROGRAM 
HU  MODE  SWITCHING  ROUTINES 
AOTMARK 

RADAR  LtAD-iN  ROUTINES 
RADAR  TrSI  PROGRAMS 
EXTENOEt.  VERBS 
XEYRJPTi  UPRUPT 

PINBAlL  game  BUTTONS  AND  LIGHTS 
A-ARM  AND  ABORT 
JPDATt  ^RUGRAM  PART  1 OF  i 
UPDATE  TROGRAH  PART  2 OF  2 
DOWN-TElEMETRY  program 
hfligh;  alignment  routines 
RTB  OP  lodes 

LEM  FlIoHT  COiJTROL  SYSTEM  TESI 

I MU  performance  tests  I 

IMU  PERFORMANCE  TESTS  2 
IMU  performance  TESTS  3 

optimum  prelaunch  alignment  calibpation 
DAP  HTlRFACE  subroutines 
TS-RUPT  PROGRAMS 
DAP  IDLER  program 

P-AXIS  REACiION  control  system.  AUlOPILOT 
3.R-A\Eo  RE'CllON  CONIROL  SYSTEM  AUTOPILOT 
O.R-AXES  UET  SELECT  AND  FaILJte  CUNTROL  LOGIC 

RCs  failure  Monitor 

ASCENT  INlRI IA  UPDATER 
<ALMA.|  ElLTtR  FOR  LM  DAP 
TRIM  oI  BAL  CONTROL  SYSTEM 
AOSTASX  AND  AOSU06 
SPS  3AC\-UP  RCS  CONTROL 
ATTITUDr,  MA  ,EUVER  ROUTINE 

GIMBAL  lock  AVOIDANCE  u 

CALCMANU  STtERING 

MISSION  Phase  2 guidance  rePeRencl  release  + boost  monitor 

MP  3 - SUtJORBlTAL  ABORT 
MPa-Con  i I..|GcNCY  orbit  insertion 
mission  phase  6 COAST  SIVB  AtiACHED 

MP  7 - slVB/LtM  separation 
MISSION  Phase  8 - dps  cold  Soa< 

MP9-D=5  1 burn 
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R0051 

R0052 

R0053 

ROObS 

R00b6 

R0057 

R0058 

R0059 

R0060 

R0061 

R0062 

R0063 

R0064 

R0065 

ROObbb 

R0066 

R0067 

R00671 

R006715 

R00672 

R00673 

R0068 

R00681 

R00682 

R006e3 


assembly  AN5'  operation  information 

MISSION  PHASE  11  - DP52/F I jR/ APS  1 
MISSION  PHASE  13  - APS2 
MISSION  PHASE  16  - RCS  COLD  SOAC 
INTEGRAllON  INITIALIZATION 
ORBITAL  integration  PROGRAM 
LMP  COM-iAND  ROUTINES 
AS206  MISSION  SCHEDULING  PAC<AGE 
thrust  mission  CONTROL  PROGRAM.  TJP 
TUMBLE  .ON I TOR 

piPA  reader 

FIND  CDU  DESIRED 
AYeRAOE  G INTEGRATOR 

throttle  control 

IMU  COMPENSATION  PACAAGE 
DUMMY  206  INITIALIZATION 
SECOND  lPS  guidance 
PREBURN  FOR  APS2 
ASCENT  STEERING 
THRUST  MAGNITUDE  FILTER 
L0GSJ3  ROUTINE 
LAMB 

SUM  CHECK  end  of  BANK  MARKERS 
SUBROUTINES 

MASTER 

SELFCHEC 


Dec  Itj,  1966  (MAIN) 
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488954A  YJL  SYSIeM  FOR  AGC : SHePatIN  BY  eYLeS 


L ASSe'IBLY  and  oPtRATiGM  INFqR'IAI  lO''* 

P0069  VERB  AND  NOJN  INFORMATION 


R0070 

regular  verbs 

R007I 

01 

DISPLAY  OCTAL  COMP 

1 (Rl) 

R0072 

02 

DISPLAY  OCTAL  COMP 

2 (Rl) 

R0073 

03 

DISPLAY  OCTAL  CoMP 

3 (Rl) 

R007A 

OA 

DISPLAY  OCTAL  COMP 

1.2  (Rl 

R0075 

05 

display  OCTAL  COMP 

1,2,3  ( 

R0076 

05 

decimal  DISPLAY 

R0077 

07 

DP  DECIMAL  DISPLAY 

(Rl  ,F2) 

R0078 

10 

SPARE 

R0079 

11 

MONl TOR  OCT  COMP  1 

(Rl ) 

R0080 

12 

MONITOR  OCT  COMP  2 

(Rl  ) 

R0081 

13 

MONITOR  OCT  COMP  3 

(Rl) 

R0082 

lA 

MONITOR  OCT  COMP  1, 

2 (Rl) 

R0063 

15 

MONITOR  OCT  COMP  1, 

2,3  <R1 

R008A 

16 

MONITOR  DECIMAL 

R0085 

17 

MONITOR  DP  DECIMAL 

(Rl  ,R2) 

R0086 

20 

SPARE 

R0087 

21- 

load  comp  1 (Rl) 

R0088 

22 

LOAD  COMP  2 (R2) 

R0089 

23 

LOAL  COMP  3 !R3) 

R0090 

2A 

LOAD  COMP  1*2  (Ri»k2) 

R0091 

25 

LOAD  COMP  1,2«3  (Ri 

,R2,R3) 

R0092 

25 

SPAt-L 

R0093 

2 7 

FlXlD  memory  DISPLAY 

R009A 

30 

RLOULST  EXECUTIVE 

R0095 

31 

REOUbST  waitlist 

R0096 

32 

C(R2)  INTO  R3*  ClKl)  INTO  i 

R0097 

33 

proceed  without  data 

R009H 

3A 

TERMINATE  CURRLM'I  ILSt  Or  I 

R0099 

35 

TEST  LIGHTS 

ROIOO 

35 

fresh  START 

ROIOI 

37 

change  major  mode 

R0I02 

E'JD 

OF  REGULAR  VERBS 

R0I03 

EXIENDED  VERBS 

ROlOA 

AO 

ZER0(USFD  WITH  NOJN 

20)  ( 'J 

R0I05 

A1 

COARSE  ALIGN  (USED 

with  no- 

0)  (N  -TO  UNUSED  I 

A2  Fine  align  imu 

R0107  A3  LOAD  IMJ  ATTITUDE  ERROR  METERS 

R0108  AA  ILLEGAL  VERB 

R0109  A5  COHI-.AND  LR  TO  POSITION  2 (JMUPED  IN  2n6) 

ROllO  A6  sample  RADAR  ONCE  PER  SECOND  'UNUSED  IN  206) 
ROlU  A7  PtRTORM  LEM  FCS  lEST 

R01I2  50  PLEASE  PERFORM 


N 206) 


Dec  1966  (MAIN)  page  3 


USER'S  OWN  page  no.  3 


48895^A  VJL  bYSTcM  FOR  A^C;  I,i|rW  Pko^RA'^  5'^Ef'ATlN  BY  l'i'LeS 


L AS5E'^3LY  AND  OPERATION  INFORMATION 


R0113  5L 
R0114  5Z 
R0115  53 
R0116  54 
Ron?  55 
Rous  55 
R0119  57 
R012O  63 
R0121  61 
R0122  62 
ROi23  63 
R0124  64 
R0125  65 
R0126  66 
R0127  67 
R0128  73 
R0129  71 
R0130  72 
R0131  73 
R0132  74 
R0133  75 
R0134  75 
R0135  77 


PLEASE  MARK 

PLEASE  MARK  Y 

PLEASE  MARK  X OR  Y 

PJLSE  TORQUE  GYROS 

ALIGN  TIME 

PERfORM  BANKSUM 

PERFORM  system  TtSl 

iLLtGAL  Verb 

ILLEGAL  VERB 

SCA;.  LEM  I74B1TS 

INITIALIZE  AGS  (UNUSED  IN  236) 

SET  timer  to  GROUND  ELAPSED  T'ME 

SET  GUIDANCE  REFERENCE  RE-EASE  DISCRETE 

INIIIATE  LGC  DFI  TLM  CALISRATE  ROUTINE 

SENi>  command  TO  LMP 

SET  MISSION  timer 

SET  MISSION  phase  REGISTER. 

SET  MISSION  phase  REGISTeRi  * UMeR 
reset  dps  OR  RPS  COLD  SOAKI  UIBCRETE 
SlOP  MISSION  TIMERS 
■TARGET  parameter  UPDATE 
STATE  VECTOR  UPDATE 
ILLEGAL  verb 


Dec  1 


» 1966  (Main)  paGe  a 
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YJL  SYSTEM  FOR  AGC ! NEW  PROGRAM  SHePATIN  3Y  eYLeS 


L ASSe'^BLY  ANC  operation  INFOf<'^Al  IQI'* 


P0136 

NORMAL  NOUNS 

R0138 

00 

NOT  IN  USE 

R0139 

01 

SPECIFY  machine  address  ( -wACI IONAL) 

ROIAO 

02 

SPECIFY  MACHINE  ADDRESS  (nHOLL) 

ROlAl 

03 

SPECIFY  MACHINE  ADDRESS  (OESREES) 

R01A2 

OA 

SPECIFY  MACHINE  ADDRESS  (HOJRP) 

R01A3 

05 

SPECIFY  MACHINE  ADDRESS  (SECONDS) 

Roiaa 

06 

SPECIFY  machine  address  (SYRO  DEGREES) 

ROlAb 

07 

SPARE 

R01A6 

iO 

channel  to  be  specified 

R0147 

11 

SPARE 

R01A8 

12 

SPAKE 

R01A9 

13 

SPARE 

R0150 

lA 

SPARE 

R0151 

15 

increment  MACHINE  ADDRESS 

R0152 

16 

timl  seconds 

R0153 

17 

1 IMF  HOURS 

R0154 

2 0 

ICDU 

R0155 

21 

PlPAS 

R01b6 

22 

NEW  ANGLES  1 

R0157 

23 

DELIA  ANGLES  I 

R0158 

2A 

DELIA  TIML  (SECONDS) 

R0159 

25 

CHECKLIST 

R0160 

26 

PRIc/DELAY,  ADReS,  BBCON 

R0161 

2 7 

self  test  on/off  switch 

R0162 

30 

SIAR  numbers 

R0163 

31 

SFAIL,  ERCOUNT*  FAILReG 

R016A 

32 

DECISION  time  (MjiDCuUrSE) 

R0166 

33 

EPHEHERIS  time  (MIDCOURSe) 

R0168 

3A 

measured  QUANI ITY  (MIdCOJRSE) 

R0169 

35 

INBIT  MESSAGE 

R0170 

36 

landmark  data  I 

R0171 

37 

landmark  data  2 

R0172 

AO 

rendezvous  radar  angles  (I R JNlON.SHAFi ) 

R0173 

A1 

new  rendezvous  radar  angles  ( I RUNION.SHAFT) 

R017A 

A2 

ADT  ROTATION  ANGLES 

R0175 

A3 

AOT  DETEN1  CODE 

R0176 

Aa 

FORWARD  Velocity,  latfral  vflucity 

R0177 

A5 

ROTATIONAL  HAND  CONTROLLER;  ANGLE  RATES 

R0179 

A6 

SPAKE 

R0180 

A7 

SPAKE 

R018I 

50 

FAILREG,  FAILREG  +i,  FAlLRES'  +2 

R0182 

51 

ALHCADR,  ALMCADR  +1 

R0183 

52 

Gyre  bias  drift 

R0185 

53 

Gyro  input  aXis  accelerati o^^  drift 

R0187 

5A 

GYRO  SPIN  Axis  ACCeLERA f I ON  DRIFT 

R0189 

ETJD 

OF  Normal  nouns 

Dec  13*  1966  (MAIN) 


USER'S  OWN  PAGf  no.  b 

scale  and  decimal  point 

(.XXXXX) 

(XXXXX.) 

(XXX.XXDEGREES) 

(XXX.XXHOURS) 

(XXX.XXSECONDS) 

(XX.XXXDEGREES) 


(OCTAL  ONLY) 

(XXX.XXSECONDS) 

(XXX.XXHOURS) 

(XXX.XXDEGREES) 

(XXXXX. PULSES) 

(XXX.XXDEGREES) 

(XXX.XXDEGREES) 

(XXX.XXSECONDS) 

(XXXXX.) 

(OCTAL  ONLY) 

(XXXXX. ) 

(XXXXX.  ) 

(OCTAL  ONLY) 

(XXX.XXHOURS  (INTERNAL  UNITS  = WEEKS)) 

(XXX.XXHOURS  (Internal  units  s weeks)) 

(XXXX.XKILOMETERS) 

(OCTAL  ONLY) 

(OCTAL  ONLY) 

(OCTAL  ONLY) 

(XXX.XXDEGREES)  (UNUSED  IN  206) 

(XXX.XXDEGREES)  (UNUSED  IN  206) 

(XXX.XXDEGREES) 

(XXXXX.) 

(XXXXX. FeET/SEC) 

(XXXXX, DeG/SEC)  (NOT  USED  IN  206) 


(OCTAL  ONLY) 

(OCTAL  ONLY) 

( .BBXXXXXMILLIRAD/SEC) 

( .BBXXXXX (MILLIRAD/SLC) / (CM/SEC  SEC) ) 
( .BBxXXXX (MI LL I RAD/ SEC) / (CM/SeC  SeC) ) 


page  p 
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L 

R0190 

R0192 

R019A 

R0196 

R0198 

R0200 

R0202 

R02OA 

R02O6 

R02O8 

R02IO 

R02U 

R0213 

R021A 

R0216 

R02I8 

R0220 

R0222 

R022A 

R0226 

R0228 


assembly  and  operation  information 
M1XE3  NlUNS 

55  LANLING  RADAR  ALIITUDf,  TIME  (SECONDS) 
55  LAIMLING  RADAR  VeLX,  TIME  (SECONDS) 

57  LANLING  RADAR  VELY,  TIME  (SECONDS) 

63  LANCING  RADAR  VELZ,  TIME  (SECONDS) 

61  target  AZIMUTH  AND  EEeVAtION 

62  rendezvous  radar  RANGE,  TRJNlON,  SHAFT 

63  RENUEZVOUS  radar  RANGE  RAIE,  IRUNION, 

69  iniiial  altitude,  final  a.tituol,  alt. 

65  sampled  time  (HOURS  AND  SeCONDS) 
(FETCHED  IN  INIERRUPT) 

65  SYSIEM  TEST  RESULTS 
67  DELTA  GyRO  ANGLES 
73  SPAKE 

71  SPAKE 

72  delta  position 

73  DELTA  VELOCITY 

79  measurement  data  (HIDCoURSE) 

75  Measurement  deviations  (miDCourse) 

76  position  vector 

77  VELOCITY  VLCTOR 


SHAFT 

RATL 
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USER'S  ONN  PaGF  NO. 
scale  AND  decimal  POINT 

(XXXXX.FeET,  XXX.XXSeC)  (UNUSeD  in  206) 

(XXXXX.FeET/SEC,  XXX.XXSEC)  (UNUSED  IN  2o6) 

(XXXXX.FeET/SeC,  XXX.XXSEC)  (UNUSED  IN  206) 

(XXXXX.FeET/SeC,  XXX.XXSEC)  (UNUSeD  IN  206) 

(XXX.XXDEG,  XX.XXXOEG) 

(XXXXXB.FEET,  XXX.XXDEG,  XXX.XXDEG)  (UNUSeD  IN  2o6) 

(XXXXX.FEET/SeC,  XXX.XXDEG,  XXX.XXDEG)  (UNUSeD  IN  206) 

(XXXXX.FEET,  XXXXX.FEET,  XXXXX.FEET/SEC) 

(XXX.XXHOURS,  XXX.XXSEC) 

(XXXXX.,  .XXXXX,  XXXXX.) 

(XX.XXXDEG  for  EACH) 


(XXXX.XKILOMETERS  for  EACH) 

(XXXX.XMeTERS/SEC  for  EACH) 

(XXX.XXHOURS  (INTERNAL  UN  I TS  = WEEKS ) , XXXX.XKILOMETERS, 
(XXXX.XKILOMETERS,  XXXX ,XMETERS/SeC  , XXXX .XK 1 LOMeT ER S ) 
(XXXX.XKILOMETERS  FOR  EACH) 

(XXXX.XMetERS/SEC  FOR  EACH) 


XXXXX, 
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L 

P0230 


R0231 

R0232 

R0233 

R0234 

R0235 

R0236 

R0237 

R0238 

R0239 

R02A0 

R02A1 

R02A2 

R02A3 

R02AA 

R0245 

R02A6 

R02A7 

R0248 

R0249 

R02491 

R0250 

R0251 

R0252 

R0253 

R0254 

R0255 

R0256 

R0257 

R025B 

R0259 

R0260 

R0261 

R0262 

R0263 

R0264 


AbSEMBLY  AND  oPERATIQM  1 NFqRM  A 1 1 USER'S  OWN  PaGf  NO.  1 

TABLE  OF  ERROR  CODES 


OPTICS  sub-system 

03105  MARK  BUTTONS  NOT  AVAILABLE 

03111  MARK  IS  MISSING  AFTER  ENlER 

03112  MARK  NOT  BElNu  ACCERIE3 

03113  NO  INBITS 

03114  MARK  MADE  BUT  NOT  DeSIRED 

03115  X mark  not  MAUE 

HU  SUB-SYSTEM 

03206  ZERO  CDU  NOT  ALLOwEO  wITM  COARSE  ALIGN  + GIMbAL  LOCK. 

03207  155  TURN-ON  ReCUUeST  \|0r  PRESENT  FOR  90  SEC. 

03210  IMJ  NOT  OPERATING 

03211  COARSE  ALIGN  ERROR 

03212  PIPA  FAIL  BUT  PIPA  IS  NOl  BEING  USED 

03213  IMj  NOT  OPERATING  WJH  tORN-ON  REQUEST 

03214  PROGRAM  USING  IMU  WREN  TORNED  OFF 

PROCEDURAL  DIFFICULTY 

03401  DESIRED  GIMBAL  ANGLeS  YIELD  GIMBAL  LOCK 

03402  STAR  OUT  OF  FiELD  OF  v/IEW 

03403  STAR  OUT  OF  FIELD  Up  YIEW 

03404  COMPUTATION  FOR  wAlT-lST  SET-UP  RAN  AFOUL 

RADAR  ERRORS 

03501  RADAR  ANTENNA  OUT  Op  LIMITS 

03502  BAD  RADAR  GIMBAL  ANg.E  INPUTS 

03503  RADAR  ANTENNA  DESIGNAIE  ^AIL 

03510  radar  auto  DESCRETE  TOT  PRESENT 

03514  radar  goes  out  OF  Ajro  MODE  while  BEING  USED 
03520  NO  RADAR  RUPT  EXPECTED 

00521  RADAR  DATA  COULD  NOT  BE  ^EAD 

00522  WRONG  LR  POSITION 

00523  LR  ANTENNA  OID  NOT  MAKE  IT 

00524  BAD  RADAR  TARlET 

MISSION  SCHEDULER  ERRORS: 

00601  MISSION  PHASE  DUF  BJT  MPHASE  REGISTER  = 0 
COMPUTER  HARDWARE  MALFUNCtIUnS 
01102  AGC  SELF  TEST  ERROR 


^8895^A 


L 

R0265 

R0266 

R0267 

R02b8 

R02^9 

R0270 

R0271 

R0272 

R0273 

R0274 

R0275 

R0276 

R0277 


R0278 

R02781 

R02783 

R02784 

R0279 

R0281 

R0282 

R0283 

R0284 

R0285 

R0286 

R0287 
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ASSEMBLY  AND  OPERATION  INFORMATION  USER'S  OWN  PaGF  NO.  8 

01103  UNjSeD  CCS  BRANCH  cXSCJTtD  , ABORT 

01105  DOv.NLINK  TOO  FAST 

01106  UPLlN<  TOO  FAST 

LIST  OVERFLOWS  ( ALL  ABORTS  ) 

01201  EXECUTIVE  OVfRFLOW-NO-  VAL  AREAS 

01202  executive  overflowno  core  sets 

01203  WAITLIST  OVeRFLOW-TO O'  MANY  TASKS 

01206  KEYBOARD  AND  DISPLAY  WAIUNG  LINE  OVERFLOW 

01207  NO  VAC  AREA  FOR  MAR<5 

01210  TWO  PROGRAMS  USING  OEVICt  AT  SAME  TIME 
IMTERPRETER  ERRORS 

01301  ARCSIN-ARCCJS  INPUf  AN3LE  TOO  LARGE.  ABORT 

01302  SORT  CALLED  WITH  NEGATIVE  ARGUMENT  . ABORT 

DISPLAY  ALARMS 

00310  CURTAINS 

00312  JEIABORT 

00316  FAKESTRT 

01400  PIlCH  AND/OR  ROLL  TRIM  FAIL  IS  ON  (SHOWN  WITH  V50N25).  (FCS  teST  ALARM) 

01410  JET  FAIL  DURING  FCS  TEST* 

01411  CDJ  DOES  NO!  AGREE  WITH  LqMMAND  TO  1 DEGREE 
KEYBOARL  AND  DISPLAY  PROGRAM 

01501  KEYBOARD  AND  DISPLAY  ALARM  DURING  INTERNAL  USE(NVSUB).  ABORT 
SYSTEM  TEST  ALARMS 

01600  DRIFT  TEST  OVERFLOW 

01601  BAD  IMU  TORJJl  IN  Orifi.IN  COMPASS 


4a8954A  YJL  SYSTEM  rOR  AGC;  'tEW  PROijRAM  SHEPATXN  BY  EYLES 


L ASSEMBLY  AND  OPERATION  IiNFO^^MAT  IqN 


POAOO 

instruction 

codes: 

R0A05 

Roaio 

NORMAL  (NON- 

•EXTENDED) 

codes: 

ROA15 

R0A20 

TC 

000 

IRANi»FER  CONTROL 

ROA25 

CCS 

001 

00 

COJNl,  compare,  and  skip 

R0A30 

TCP 

001 

01 

TRANSFER  CONTROL  TO  FIXED 

R0435 

TCP 

001 

10 

DI  TTU 

ROAAO 

TCP 

001 

1 1 

D1  TTU 

ROAA5 

DAS 

010 

00 

DP  ADO  TO  STORAGE 

ROASO 

LXCR 

010 

01 

exchange  l with  storage 

ROA55 

INCR 

010 

10 

INCREMENT  STORAGE 

R0A60 

ADS 

010 

11 

ADD  10  STORAGE 

R0A65 

CA 

Oil 

clear  and  ADD 

R0A70 

CS 

100 

CLEAR  AND  SUBTRACT 

R0A75 

INDEX 

101 

00 

INDE^  NEXT  instruction 

R0A80 

DXCH 

101 

01 

DP  EXCHANGE  WITH  STORAGE 

ROA85 

TS 

101 

10 

iranpfer  TO  storage 

ROA90 

XCH 

101 

1 1 

exchange  a with  storage 

R0A95 

AD 

110 

ADD 

R0500 

MAS< 

111 

vtAaK  ("AND"  TO  A) 

R0505 

R0510 

R0515 

EXTENDED  CODES: 

R0520 

R0525 

READ 

000 

00 

0 

READ  FROM  CHANNEL 

R0530 

WRI  TE 

000 

OJ 

1 

WRITt  CHANNEL 

R0535 

RAND 

000 

01 

0 

READ*  "AND"  TO  A 

R05A0 

wAND 

000 

01 

1 

^RITU,  "AND"  TO  A 

Rosas 

ROR 

000 

10 

0 

READ*  "OR"  TO  A 

Rosso 

WOR 

000 

10 

1 

A(RlTt,  "OR"  TO  A 

Rosss 

RXOR 

000 

11 

0 

READ*  EXCLUSIVE  "OR"  TO  A 

R0560 

EDRJPT 

000 

11 

1 

1 NTERRUPT 

R056S 

R0S70 

DV 

001 

00 

DI vide 

R0B7S 

BZF 

001 

01 

BRANCH  ON  ZERO  TO  FIXED 

Rosso 

BZF 

001 

10 

DITTU 

Rosss 

BZF 

001 

11 

DI  TTO 

R0S90 

MSJ 

010 

00 

mdduear  subtract 

R0S9S 

QXCH 

010 

01 

exchange  q with  storage 

R0600 

AUG 

010 

10 

AUGMENT  STORAGE 

R0605 

DIM 

010 

11 

diminish  storage 

R0610 

DCA 

oil 

D?  clear  and  add 

R06 1 S 

DCS 

100 

DP  ceear  and  subtract 

R0620 

INDEX 

101 

INDE^  NEXT  extended  INSTR. 

R062S 

SU 

110 

00 

SJ3TRACT 

R0630 

BZMF 

1 10 

01 

BRANCH  ON  0 OR  - TO  FIXED 

R063S 

BZMF 

110 

10 

DITTU 

R06A0 

BZMF 

110 

11 

DITTO 

R06AS 

MP 

111 

MULTIPLY 
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L ERASA3Lt;  assignments 


0001 

0000 

A 

EQUALS 

0002 

0001 

L 

equals 

0003 

0002 

0 

equals 

OOOA 

0003 

EBANK 

equals 

0005 

OOOA 

FBANK 

equals 

0006 

0005 

Z 

equals 

0007 

0006 

BBANK 

equals 

A0008 

0009 

0010 

ARUPT 

equals 

0010 

0011 

LRUPl 

equals 

0011 

0012 

QRJPT 

EQUALS 

0012 

0013 

SAMPTIME 

equals 

0013 

0015 

ZRUPT 

EQUALS 

OOIA 

0016 

bankrupt 

EQUALS 

0015 

0017 

BRUPT 

EQUALS 

0016 

0020 

CYR 

EQUALS 

0017 

0021 

SR 

EQUALS 

0018 

0022 

CYL 

EQUALS 

0019 

0023 

EDOP 

equals 

0020 

002A 

TIME2 

Equals 

0021 

0025 

TIMEl 

EQUALS 

0022 

0026 

TIME3 

equals 

0023 

0027 

TIMEA 

EQUALS 

002A 

0030 

TIME5 

EQUALS 

0025 

0031 

T1ME6 

EQUALS 

0026 

0032 

COJX 

EQUALS 

0027 

0033 

CDJY 

EQUALS 

0028 

003A, 

CDUZ 

EQUALS 

0029 

0035 

QPTY 

EQUALS 

0030 

0036 

OPTX 

EQUALS 

0031 

0037 

PlPAX 

EQUALS 

0032 

OOAO 

PIPAY 

EQUALS 

0033 

OOAl 

PIPAZ 

equals 

003A 

00A2 

BMAGX 

EQUALS 

0035 

00A2 

rhcp 

EQUALS 

0036 

00A3 

BMAGY 

EQUALS 

0037 

00A3 

Rhcy 

EQUALS 

0038 

OOAA 

BMAGZ 

EQUALS 

0039 

OOAA 

RHCR 

EQUALS 

OOAO 

OOA5 

iNLINK 

EQUALS 

OOAl 

00A6 

rnrad 

EQUALS 

00A2 

OOA  ? 

GYROCTR 

equals 

00A3 

00A7 

GYROCMD 

EQUALS 

OOAA 

0050 

COUXCMD 

EQUALS 

00A5 

0051 

COJYCMD 

EQUALS 

0 

1 

2 

3 

A 

5 

6 

10 

11 

12 

13 

IS 

16 

17 

20 

21 

22 

23 

2A 

25 

26 

27 

30 

31 

32 

33 

3A 

35 

36 

3 7 

AO 

A1 

A2 

A2 

A3 

A3 

AA 

AA 

A5 

A6 

A7 

A7 

50 

51 
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USER'S  OWN  PaGF  no.  1 


L AND  Q ARE  BOTN  CHANNELS  AND  REGISTERS. 


ADJACENT  TO  FBANK  AND  BbANK  FOR  DXCH  L 
(DTCB)  AND  DXCH  FBANK  (DTCF). 

register  7 is  A zerq-source,  used  by  ZL. 

INTERRUPT  STORAGE. 


SAMPLED  TIME  1 A 2. 

(13  AND  lA  are  spares.) 

usually  holds  Frank  or  bbank. 

RESUME  ADDRESS  aS  WELL. 


EDITS  interpretive  OPERATION  CODE  PAIRS 


488954A  YJL  SYSIeM  FOR  AGC:  RRO'JRA'I  SHePATIN  BY  cYL^.S 


1.  E-?ASA3Lt  assignments 


0046 

0052 

COUZCMD 

EOUALS 

0047 

0053 

OPTYCMD 

EQUALS 

0048 

0054 

OPTXCMD 

EQUALS 

0049 

0055 

EMSD 

equals 

0050 

0055 

THRUST 

EQUALS 

0051 

0056 

LEMONM 

EQUALS 

0052 

0057 

OJTLINK 

EQUALS 

0053 

0060 

ALTM 

EQUALS 

R0054 

vAC-RELATIVl  INTeR^^REIER  assignments: 

0055 

0042 

LvSqUARE 

EQUALS 

0056 

0044 

LV 

equals 

0057 

0046 

Xl 

equals 

0058 

0047 

X2 

equals 

0059 

0050 

SI 

EQUALS 

0060 

0051 

S2 

EQUALS 

0061 

0052 

QPRET 

equals 

52 

53 

5A 

55 

55 

56 

57 

60 

3A0 

36D 

38D 

39D 

AOD 

AID 

A2D 
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Square  of  vector  input  to  Abval  and  unii 
length  of  vector  input  to  unit, 
interpretive  special  registers  relative 
TO  the-  work  area. 


488954A  YJL  SYjlEM  FOR  AGC : NEW  PROORA'I  S^EPAtIN  3Y  EYLES  DEC  I3,  I966  (MAIN)  PA&E  12 

L erasable  ASSIGNMENTS  USER'S  OWN  PaGF  NO.  3 

P0062  general  erasable  ASSI  GNMENT^j. 

0063  0061  5ETL0C  61 

R0O6A  THe  following  Set  Covip^iS^s  tHe  interrupt  temporary  storage  pool. 

R0066  any  of  these  may  be  jsed  as  temporaries  curing  interrupt  or  with  interrupt  inhibited,  ihe  itemp  Series 

ROO68  IS  used  during  calls  TU  the  EXECUIIVe  and  waitlist  - THe  KUPtREGS  are  not. 


0070 

006i 

0061 

ITEMPl 

WAITEXIT 

EXECTEMi 

ERASE 

EQUALS 

EQUALS 

0071 

0072 

REF 

REF 

1 

2 LAST 

12 

006 1 
0061 

1 TEMPI 

ITEMPl 

0073 

0062 

0062 

I TEMP 2 

ERASE 

007A 

REF 

1 

0062 

WAITBANK 

EQUALS 

1TEMP2 

0075 

REF 

2 LAST 

12 

0062 

EXECTEM^ 

EQUALS 

1TEMP2 

0076 

0063 

0063 

I TEMP 3 

ERASE 

0077 

REF 

1 

0063 

RJPTSTOR 

EQUALS 

ITEMP3 

0078 

REF 

2 LAST 

12 

0063 

waitadr 

EQUALS 

HEMPS 

0079 

REF 

3 LAST 

12 

0063 

NEWPRIO 

EQUALS 

HEMPS 

0080 

006A 

0064 

I T EMP4 

ERASE 

0081 

ref 

1 

0064 

LDCCTR 

equals 

I I EmP4 

0082 

REF 

2 LAST 

12 

0064 

WAITTEMP 

EQUALS 

HEMP4 

0083 

006S 

0065 

I TEMP5 

ERASE 

008A 

REF 

1 

0065 

NEWLOC 

EQUALS 

I T EmP5 

0085 

0069 

0066 

ITEMP6 

ERASE 

AOO86 

NeWLOC+1 

EQUALS 

I rEMP6 

DP  ADDRESS. 

0087 

0067 

SETLOC 

67 

NEWJOB  MUST  be  TN  LOCATION  67 

0088 

0067 

0067 

NEWJOB 

ERASE 

— 

0089 

0070 

0070 

RJPTREGi 

ERASE 

0090 

0071 

0071 

RJPTREG2 

ERASE 

0091 

0072 

0072 

RJPTREG3 

ERASE 

0092 

0073 

0073 

RJPTREG4 

ERASE 

0093 

REF 

1 

0073 

KEYTEMPl 

EQUALS 

RUPTREG4 

0094 

REF 

2 LAST 

12 

0073 

DSRUPTEM 

EQUALS 

RUPTREG4 

408954A  yjL  SySlEH  f OR  AGC:  pROG^Av)  SHtpATIiM  BY  EYLES 


OEc  13«  1966  (mAIW) 


L erasable  assignments 


USER'S  OWN  PAGf  no.  A 


P0095 

FLAG 

6 SWITCH 

reservations. 

0096 

007A  0103 

State 

erase 

+ 7 

0097 

REF 

1 

0075 

FLAGWRDl 

EQUALS 

STATE  +1 

0098 

REF 

2 

LAST 

13 

0076 

FLAGWRD2 

EQUALS 

state  +2 

0099 

REF 

3 

LAST 

13 

0077 

DAPBOOLS 

EQUALS 

state  +3 

0100 

RET 

A 

LAST 

13 

0100 

FLAGWRDa 

equals 

STATE  +A 

ROlOl 

interpretive 

switch  BiT  tissignments: 

0102 

0000 

WMATFLAG 

equals 

0 

0103 

0001 

jswncH 

EQUALS 

1 

OlOA 

0002 

Ml DFLAG 

EQUALS 

2 

0105 

0003 

MDONFLAG 

EQUALS 

3 

0106 

OOOA 

N3SMBI T 

EQUALS 

A 

0107 

0005 

COAROFIN 

equals 

5 

0108 

0006 

BODYFLAG 

EQUALS 

6 

0109 

0007 

I MUSE 

EQUALS 

7 

0110 

0010 

RRUSE 

EQUALS 

8D 

0111 

0011 

RRNBSW 

EQUALS 

9D 

0112 

0012 

LDKONSW 

equals 

lOD 

0113 

007A 

CDNVSW 

EQUALS 

60D 

OllA 

0075 

DONESW 

EQUALS 

61D 

0115 

0076 

ITERSW 

EQUALS 

62D 

0116 

0077 

gjessw 

equals 

63D 

0117 

0100 

PlESW 

EQUALS 

6AD 

0118 

0101 

MOONSW 

EQUALS 

65D 

0119 

REF 

1 

0101 

ESCpSW 

equals 

MOONSw 

0120 

REF 

2 

last 

13 

0101 

SMANGLSw 

equals 

MOONSW 

120  SWITCHES 


INDICATE  ELLIPTICAL  ORbU  FLAG 
VARIABLE  SCALING  SWITCH  (=0) 


Roizi  note  ihat  flagwrdi  and  flagwro^  currespond  to  interpretive  SWITCHES  i5D  through  aad,  daPbools  and 

R0123  FLA(--wRDa  correspond  TO  iNlERpRETIVE  SWITCHES  A5D  THROUGH  7AD. 

A0124  FLAGWORD  USAGE 


A0125 

A0126 

A0127  FLAGWRDl 

AO  128 

A0129 

A0130 

A0131 

A0132 

A0133 

A013A 

A0135  FLAGWRD2 

A0136 


BIT  INTPR.  SWITCH 

usage 

1 

29 

AVERAGE  G FLAG 

2 

28 

guidance  reference  release 

1-7  27 

- 23 

NOT  used  at  present 

8 

22 

GIMBAL  lock  FLA6 

> - 12  21 

- 18 

NOT  used  AT  PRESENT 

13 

17 

EXCESSIVE  TUMRLF  FLAG 

lA 

16 

TUMBLE  MONITOR  T LAG 

15 

15 

NOT  used  at  PRESENT 

1 

AA 

RCS  COLD  SOAK  INHIBIT 

flag 

2 

A3 

DPS  COLD  POAK  INHIBIT 

flag 

page  13 


(=0) 


^ ft  * ^ 


m 


€ 

O 

4 

4 
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L E^ASABLL  A5f.  IGNMENTS 

A0137  3 
A0138  A 
A0139  6 
AOIAO  6 
AOlAl  7 
A01A2  8 
A0143  9 
AOIAA  10 
A01A5  11 
A01A6  12 
A01A7  13 
A01A8  14 
A0149  15 


A0150  DaPBOOLS  1 - 15 

A0151 


J A0152 

A0153 
A0154 

t A0155 

A0156 
A0157 

^ A0158 


FLAGWRD4  1-9 
10 
11 
12 

13 

14 

15 
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42 

41 

40 

39 

38 

37 

36 

35 

34 

33 

32 

31 

30 

RCS  testing  inhibit  FLAYj 

NOT  used  at  present 

TIMERS  ENABLED  FLAG 

V33  termination  OF  UPDATE  PROGRAM  FLAG 

orbital  integration  integrating  flag 

ACS  FEED  test  FI  AG 

ABORT  COMMAND  MnNIToR  ENABLED  FLAG 

ABORT  STAGE  FLAc, 

KALCMANU  ATTITUi.E  COMPLETE  FLAG 

NO  FINAL  YAW 

UPDATE  PROCESS  FLAG 

GIMBAL  LOCK  Fl AG 

DRIFT  FLAG 

45  - 59 

Defined  in  log  section  "dap  interface 

SUBROUTINES". 

74  - 66 
65 
64 
63 
62 
61 
60 

NOT  used  at  present 

OUTSIDE  MoONSPHfRE  (LOCKED  AT  0)  FLAG 

LAMBERT  QUALRANt  FLaG 

ITERATOR  INItIAI  IZAtION  FLAG 

LAMBERT  ITERATOR  FLAG 

lambeRt  Routine  completion  flag 

LAMBERT  Routine  convergence  flAo 

48895^A  YJL  SYSltM  h Or  AGC:  NLW  PrOO:;A.M  sMtPATlN  3Y  EYLES 


DtC  18»  1966  (MAIN)  pAGE  ll) 


L ERASA3LL  ASMGNMENT5  USER'S  OWN  pAGp  NO.  6 


P0159 

THE 

following 

arf  Eke 

CJTlVE  temporaries 

wHiCH 

MAY  RE  USED 

between  CCS  I (vjI^U  I R I ES  t 

0161 

OlOA 

OlOA 

INTE15+ 

erase 

reflects  15TH  Bit  OF  INDEXABLE  ADDRESSES 

0162 

REF 

1 

OlOA 

DSEXIT 

= 

I NT  B 1 5 + 

return  FOR  USPIN 

0163 

REF 

2 

LAST 

15 

OlOA 

exitem 

- 

INTB15+ 

Return  for  scalf  factor  routine  select 

016A 

REF 

3 

LASr 

15 

OlOA 

blankret 

INTB15+ 

RETURN  FOR  2BI-ANK 

0165 

0105 

0105 

INTBIT  15 

ERASE 

SIMILAR  TO  ABOVf. 

0166 

ref 

1 

0105 

WRDRET 

= 

INTBIT15 

RETURN  FOR  5dLAnK 

0167 

REF 

2 

LAST 

15 

0105 

WORET 

= 

INTBIT15 

RETURN  FOR  DSPWn 

0168 

REF 

3 

LAST 

15 

0105 

decret 

• 

INTBIT15 

RETURN  FOR  PUTCoM(OfC  LOAD) 

0169 

REF 

A 

LAST 

15 

0105 

21/22REG 

= 

INTBIT15 

temp  for  CHARIN 

R0170 

THF 

REGISTERS 

betwFem 

AUURwD  AND  pRlORlTy  mOST 

stay  IN  TFFE 

following  order  for  interpret ive  trace. 

01  IZ 

OlOO 

0106 

ADDRWD 

erase 

12  bit  interpretive  operand  SUB-ADDReSS, 

0173 

OlOV 

0107 

POLISH 

erase 

holds  caor  Made  from  polish  address. 

017A 

REF 

1 

0107 

UPDATRET 

= 

POLISH 

RETURN  for  UPDAtNN.  UPDATVB 

0175 

REF 

2 

LAST 

1 5 

0107 

CHAR 

= 

Polish 

temp  for  CHARIN 

0176 

REF 

3 

LAST 

15 

0107 

ERCNT 

Polish 

counter  for  error  Light  reset 

0177 

REF 

A 

LAST 

15 

0107 

Decount 

= 

POLISH 

counter  for  SCAI INC  AND  DISPLAY  (DEO 

0178 

REF 

5 

Last 

1 5 

0107 

PwRPTR 

POLISH 

ROOTPSRS  PWR  TArL  POINTER 

0179 

OllO 

0110 

FIXLOC 

erase 

work  AREA  ADDREfS. 

0180 

0111 

0111 

OVFIND 

erase 

SET  NON-ZERO  ON  OVERFLOW. 

0181 

0112 

0117 

VBUF 

ERASE 

+ 5 

temporary  storA(,e  Used  for  Vectors. 

0182 

REF 

1 

0112 

S5N0N 

VBUF 

TEMP  for  +.-  ON 

0183 

REF 

2 

LAST 

15 

0112 

NOUNTEM 

= 

VBUF 

counter  For  mixnoun  fetch 

0 1 8 A 

REF 

3 

LAST 

15 

0112 

distem 

VBUF 

counter  for  octal  Display  verbs 

0185 

REF 

A 

LAST 

15 

0112 

Pectem 

■ 

VBUF 

counter  For  fftch  (dec  display  verbs) 

0186 

REF 

5 

LASl 

l5 

0113 

SoNOFF 

= 

VBUF  +1 

TEMP  for  +»-  ON 

0187 

REF 

6 

LAST 

15 

0113 

NyTEMP 

VBUF  +1 

TEMP  FOR  NVSUB 

0188 

REF 

7 

last 

15 

0113 

SFTEMPl 

= 

VBUF  +1 

STORAGE  FOR  SF  rONST  HI  PAR T ( =SFTEMP2-1 ) 

0189 

REF 

a 

LASl 

15 

OllA 

CODE 

VBUF  +2 

FOR  DSPIN 

0190 

REF 

9 

last 

15 

OllA 

SFTLMP2 

= 

VBUF  +2 

STORAGE  FOR  SF  CONST  LO  PART ( =5F TEMPi + 1 ) 

0191 

REF 

10 

LASl 

15 

OllA 

DxCRIT 

= 

VBUF  +2 

ROOTpSRS  criterion  FOR  ENDINg  I TERS  HI 

0192 

REF 

11 

Last 

15 

0115 

mixtemp 

VBUF  +3 

FOR  MIXNOUN  DATA 

R0193 

Ai_SO 

'11XTLMF  + 1 = VtiUI-+4 

» MIXtT 

MJ+A  = VBUFt5, 

019A 

REF 

12 

LAS'i 

15 

0115 

SIGNRET 

z 

VBUF  +3 

RETURN  FOR  +,-  ON 

0195 

ref 

13 

Last 

15 

0115 

DXCRIT+1 

= 

VBUF  +3 

ROOTPSRS  criterion  FOR  ENDING  IieRS  LO 

0196 

REF 

lA 

last 

15 

0116 

ROOTPS 

= 

VBUF  +A 

ROOTPSRS  ROOT  Hi  ORDER 

0197 

REF 

15 

last 

15 

0117 

ROOTPS+1 

r 

VBUF  +5 

ROOTPSRS  ROOT  Ln  ORDER 

c 
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ERASASLl  AS'- 

lONMENTS 

USER’S  OWN  PAGE  NO.  7 

0198 

0120 

0122 

BJF 

erase 

+ 2 

TEMPORARY  SCALAR  STORAGE, 

0199 

REF 

1 

0120 

I NDeXLOC 

Equals 

BUF 

CONTAINS  ADDRfSS  qF  SPeGIFIED  IjDeX. 

0200 

R5( 

2 

las  . 

16 

0120 

SwwORD 

equals 

BUF 

Address  of  switgH  word. 

0201 

REF 

3 

LASi 

16 

0121 

swbit 

equals 

BUF  +1 

SWITCH  Bit  within  switch  word. 

0202 

REF 

4 

LAS'i 

16 

0122 

retroot 

= 

BUF 

+ 2 

rootpsrs  return  address  OF  user 

0203 

0123 

0124 

BJF2 

erase 

+ 1 

020^ 

0125 

0125 

mptemp 

erase 

temporary  used  iN  Multiply  and  shift 

0205 

REF 

1 

0125 

dmpntemp 

* 

MPTEMP 

DMPNSUB  temporary 

0206 

012^ 

0126 

OOTINC 

erase 

Component  increment  for  dot  subroutine. 

0207 

ref- 

1 

0126 

Design 

equals 

DOT  INC 

determines  sign  Of  ddv  Result. 

0208 

kef 

2 

L«Si 

16 

0126 

ESCAPE 

equals 

DOTING 

used  in  arcsin/arccos. 

0209 

REF 

3 

LAS-| 

16 

0126 

E'^TRET 

DOTINC 

EXIT  FROM  ENTER 

0210 

012^ 

0127 

dqtret 

erase 

return  from  Dot  subroutine. 

0211 

REf 

1 

0127 

D\/N0RMCT 

equals 

DOTRET 

dividend  normalization  COliNT  in  ddv. 

0212 

REF 

2 

LAST 

16 

0127 

ESCAPE2 

EQUALS 

DOTRET 

alternate  ARCSlN,/ARrCOS  SWITCH, 

0213 

REF 

3 

LAS'I 

16 

0127 

WOCNT 

- 

DOTRET 

CHAR  COUNTER  FOR  DSPWD 

0214 

REF 

4 

LAST 

16 

0127 

I MReL 

• 

DOTRET 

INPUT  buffer  selector  ( X.Y.Z.  REG  ) 

0215 

0130 

0130 

MATING 

erase 

VECTOR  increment  IN  MXV  AND  VXM. 

0216 

REF 

1 

0130 

MAXDVSw 

EQUALS 

MATING 

+0  IF  Dp  quotient  Is  near  one  - ELSE  -1. 

0217 

REF 

2 

LAS] 

16 

0130 

PDLYCNT 

equals 

MATING 

POLYNOMIAL  LOOP  COUNTER 

0218 

REF- 

3 

LAS] 

16 

0130 

DSPMMTEM 

= 

MATING 

DSPCOUNT  SAVE  Fr.R  DSPMM 

0219 

REF 

4 

LAS] 

16 

0130 

MIXBR 

= - 

Mat  INC 

INDICATOR  For  MtXeD  OR  NORMAL  NiUN 

0220 

REF 

5 

LAS-| 

16 

0130 

PWRCNT 

= 

MATING 

ROOTPSRS  DER  TABL  LOOP  COUNTER 

0221 

0131 

0131 

TEMl 

ERASE 

EXEC  lEMP 

0222 

REF- 

1 

0131 

PDLYRET 

= 

TEMl 

0223 

REF 

2 

LAST 

16 

0131 

dsrel 

= 

tlMi 

REL  ADDRESS  FOR  DSPIN 

0224 

REF 

3 

LAST 

16 

0131 

derptr 

TEMi 

ROOTPSRS  UER  TAIiL  POINTER 

R0225 

IHE 

FOLLOWIMG 

10  registers  are 

USEL  FOR 

temporary  storage  of 

the  derivative  coifficient  table  tF 

R0227 

SJBRDJTiNE  ROOTPSRS.  TH^Y  MJb'l 

RtMAIISi 

WITHOUT  Interference  with 

ITS 

subroutines  which  are  POWRSeRS  (POiY), 

R0229 

D'lPS 

J3  f 

DMP'.SUB,  SHoRTMP,  DD\//.B5DV,  aBS 

» AND  USPli 

:CADR. 

0230 

0134 

0132 

TEM2 

ERASE 

exec  temp 

0231 

REF 

1 

0132 

DSMAG 

z 

TeM2 

magnitude  store  for  DSPIN 

0232 

REF 

2 

LAS, 

16 

0132 

ioaddtem 

r 

TEM2 

MIXNOUN  indirect  ADdReSS  STORAGE 

0233 

R^F 

1 

0132 

DERCOF-8 

MPAC 

-12 

ROOTPSRS  DER  COF  N-4  HI  ORDER 

0234 

0133 

0133 

TEM3 

ERASE 

EXEC  TEMP 

0235 

REF- 

1 

0133 

COUNT 

TEM3 

FOR  DSPIN 

0236 

REF 

2 

LAST 

16 

0133 

DERCOF-7 

MPAC 

-11 

ROOTPSRS  DER  COF  N-4  LO  ORDER 

0237 

0134 

0134 

TEM4 

ERASE 

EXEC  TEMP 

488954A  YJL  SySIHM  r OR  AGt!  NLW  PROGRA.vi  SHt-PATItJ  3Y  LYLtS 


L tRASA3L(  ASRIGNMeNTO 


0238 

RsF 

1 

013A 

LSTPTR 

= 

0239 

REF 

2 

LAST 

17 

013A 

relret 

s 

02A0 

REF 

3 

LASl 

17 

013A 

frelret 

= 

02A1 

REF 

3 

LAST 

16 

013A 

DERCOF-6 

= 

02A2 

0135 

0135 

T EMS 

ERASE 

02A3 

REF 

1 

0135 

NDUNADD 

= 

02  AA 

REF 

A 

LAS  r 

17 

0135 

DERcOF-5 

- 

02A5 

0138 

0136 

nnadtem 

erase 

02A6 

REF 

5 

LAS'. 

17 

0136 

DERCOF— A 

- 

02a7 

O13T 

0137 

NNTYPTLM 

erase 

02A8 

ref 

6 

LAS  1 

17 

0137 

DERCOF-3 

02A9 

oiao 

OIAO 

IDADlTEM 

erase 

A0250 

0251 

REF 

7 

LAST 

17 

OIAO 

DERCOF-2 

* 

0252 

OlAl 

OlAl 

1 OAD2TEM 

ERASE 

A0253 

025A 

REF 

8 

LAST 

17 

OlAl 

DERCOF-1 

= 

0255 

01a2 

01A2 

IDAD3TEM 

ERASE 

A0256 

0257 

REF  , 

9 

LAST 

17 

01A2 

DeRCOFN 

- 

0258 

oiaJ 

01A3 

rjtmxtem 

erase 

0259 

REf 

10 

LAST 

17 

01A3 

DERcOF+1 

= 

R0260 

storage  used 

BY  the 

EXECUTIVE. 

0261 

OlAA 

0152 

MPAC 

ERASE 

0262 

0153 

0153 

mode 

ERASE 

0263 

O15A 

015A 

Loc 

erase 

026A 

0155 

0155 

BANKSET 

erase 

0265 

0158 

0156 

PJSHLOC 

erase 

0266 

015  7 

0157 

PRIORITY 

erase 

0267 

0160 

0267 

ERASE 

DtC  13>  I966  (mAIN)  page  17 


TEMA 

TEMa 

TEMa 

MPAC 

TEM5 

MpAc 

MPAC 

MPAc 

MPAC 

MPAC 

MPAC 

MPAc 

+ 6 


USER’S  OWN  PAGf  no.  8 

LIST  pointer  POr  GRABUSY 
RETURN  FOR  REI DrP 
RETURN  FOR  TRFEUSP 

10  rootpsrs  der  cof  n-3  hi  order 

EXEC  TEMP 

TEMP  STORAGE  FOr  NOuN  ADDRESS 
7 ROOTPSRS  der  cOi  N-3  LO  ORDER 

temp  for  noun  AnDRESS  TABLE  ENTRY 
6 ROOTPSRS  der  COf  N-2  HI  ORDER 

temp  for  noun  TYPE  TABLE  ENTRY 
5 ROOTPSRS  DER  cOt  N-2  LO  ORDER 

temp  for  INDIR  aDRESS  table  entry (MIXNN) 
MUST  = IDAD2TEM-1,  = IDAD3TEM-2. 

A ROOTPSRS  DER  COF  N-1  HI  ORDER 

temp  for  INDIR  aDRESS  TABLE  ENTRY (MIXNN) 
MUST  = IDADlTFM+1,  = IDAD3TEM-1. 

3 ROOTPSRS  DER  COF  N-1  LO  ORDER 

temp  for  INDIR  aDRE^S  TABLE  ENTRY(MIXNN) 
MUST  = IDADlTEM+2.  = IDAD2TEM+1. 

2 ROOTPSRS  DER  COF  N HI  ORDER 

temp  for  SF  RuUt  TAhLe  entry  IMIxNN  ONLY) 
1 ROOTPSRS  DER  cOf  N lO  ORDER 


MULTI-PURPOSE  ACCUMULATOR. 

+1  FOR  Tp.  +0  for  DP»  or  -1  for  VECTOR. 

location  associated  with  job. 

USUALLY  CONTAINS  BBaNK  SETTING. 

WORD  OF  PACKED  INTERPRETIVE  PARAMETERS. 

priority  of  present  job  and  work  area. 


+ 7ID 


SEVEN  SETS  OF  1?  REGISTERS  EACH 


488954A  YJL  SYb7ECi  tOlY  AOC:  SH^PAtIN  BY  tYLL-S 


L E^ASABLC  ASSIGNMENTS 


P0268 

THE  FDLLOwI'G  REGISTERS  ARE  RESER 

ved  for  pinball 

R0269 

reserved  for  PINBALL  ExECUTI/E  AC 

1 ION 

0270 

02 

0270 

dspcount 

erase 

0271 

0271 

0271 

DeCBRNCh 

erase 

0272 

0272 

0272 

verbreg 

erase 

0273 

0273 

0273 

NDUNREG 

erase 

0274 

027A 

0274 

XRE6 

ERASE 

0275 

0275 

0275 

YREG 

ERASE 

0276 

0278 

0276 

ZREG 

ERASE 

0277 

02'!  ( 

0277 

XREGLP 

erase 

0278 

0300 

0300 

yreglp 

erase 

0279 

0301 

0301 

ZREGLP 

erase 

0280 

0302 

0302 

mddreg 

ERASE 

0281 

0303 

0303 

DSPLOCK 

erase 

0282 

030A 

0304 

reqret 

erase 

0283 

030P 

0305 

ldadst  At 

erase 

0284 

0306 

0306 

clpass 

erase 

0285 

030  ! 

030  ! 

NDUT 

erase 

0286 

0310 

0310 

nouncadr 

erase 

0287 

0311 

0311 

MONSAVE 

ERASE 

0288 

0312 

0312 

MONSAVEl 

erase 

0289 

0313 

0326 

DSPIAB 

ERASE 

0290 

0327 

0327 

CADRSTOR 

erase 

0291 

O33O 

0330 

GRAbLOCK 

erase 

0292 

O33I 

0331 

nvqtem 

erase 

A0293 

0294 

0332 

0332 

NVBNKTEM 

ERASE 

0296 

0333 

0335 

DSPLlST 

erase 

0297 

0336 

0336 

ExTVbACT 

ERASE 

0298 

O33Y 

0341 

DSPTEMl 

ERASE 

0299 

0342 

0344 

DSPTEM2 

ERASE 

R0300 

end  of  I 

. rasables  Reserved  for  pinball  executive  a 

XTION 

Ro3oi  reserved  for  pinball  interrupt  ACIION 

0302  034b  0345  DSPCNT  ERASE 

A0303 

R0304  end  of  c.RASfBLES  RESERVED  FOR  ‘PINBALL  INTERRUPT  ACTION 
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USER'S  ONN  PAGF  no.  9 


DISPLAY  POSITION  INDICATOR 

+DEC,  - DEC,  oCr  indicator 

VERB  CODE 

NOUN  CODE 

R1  INPUT  buffer 

R2  INPUT  BUFFER 

R3  INPUT  BUFFER 

Lo  Part  of  xrfg  (for  dec  conv  only) 

LO  PART  of  YRfG  (FOR  DEC  CONV  ONLY) 

LO  PART  OF  2RfC  (FOR  DEC  CONV  0,LY) 

MODE  CODE 

KEYBOARD/SUBROUt INE  CALL  INTERLOCK 

Return  register  for  load 
status  indicator  for  LOADTST 
PASS  indicator  (-Lear 
ACTIVITY  counter  FOR  DSPTAB 
MACHINE  CaDR  FOR  NOUN 
N/V  CODE'  FOR  MONITOR.  (=  MONSAVfI-D 
NOUNCADR  for  monitor (MATBS)  =M0NSAVE  +1 
■fllD  O-IOD,  DISPLAY  PANEL  BUFF.  llD,  C/S  LTS. 

endidle  storage 

internal  interlock  for  Display  system 
nvsub  storage  For  calling  address 

MUST  = NVBNKTEM-1 

NVSUB  storage  FoR  CALLING  BANK 

MUST  = NVUTEM+1 

+2  WAiTinG  LIST  FOp  DSP  SYST  INTERNAL  USE 

EXTENDED  VERB  ArllVITY  INTERLOCK 
+2  buffer  STORAGE  aReA  1 (MOSTLY  FOR  TIME) 

+2  buffer  storage  area  2 (MOSTLY  FoR  DEO) 


COUNTER  FOR  DSPnUT 

Reception  o)  a kad  message  in  uplink) 


488954A  YJL  SYSlEH  FOR  AGC!  NLW  PrO^^AM  SMEPATIN  BY  eYLES 


L erasable  assignments 

P0305  assignments  FoR  TARUPl  PRoGRA^'i, 


0306 

0396 

0396 

T9E0C 

erase 

0307 

O39T 

0397 

DSRUPTSW 

ERASE 

0308 

O35O 

0350 

DIDFEG 

erase 

0309 

O35I 

0352 

AET 

erase 

+ 1 

0310 

0353 

0353 

AETRATE 

ERASE 

0311 

0359 

0355 

FlNAET 

erase 

+ 1 

0312 

0356 

0356 

EGYRO 

ERASE 

0313 

035  f 

0357 

FORVEE 

ERASE 

0319 

036U 

0360 

EATVEE 

ERASE 

0315 

0361 

0361 

EASTYCMD 

ERASE 

0316 

0362 

0362 

EASTXCMD 

ERASE 

0317 

036B 

0369 

aetsave 

ERASE 

+ 1 

R0318 

END  OF  T9RUPT  ASSIGNMENTS 

0319  036B  036S  IV100ES30  ERASE 


0320 

0366 

0366 

IM0DES33 

ERASE 

0321 

036? 

0372 

mdoecadr 

ERASE 

♦ 3 

0322 

REF 

1 

0367 

I mucadr 

equals 

modecadr 

0323 

REF 

2 

LAST 

19 

0370 

adtcadr 

equals 

modecadr 

+ 1 

032A 

REF 

1 

0370 

optcadr 

EQUALS 

AOTCAOR 

0325 

REF 

3 

LAST 

19 

0371 

radcadr 

EQUALS 

modecadr 

+ 2 

0326 

REF 

9 

LAST 

19 

0372 

attcadr 

EQUALS 

modecadr 

*3 

0327 

0373 

0373 

markstat 

erase 

0328 

O37A 

0379 

xymark 

ERASE 

0329 

0376 

0376 

flushreg 

ERASE 

+ 1 

0330 

0900 

SETLOC 

900 

0 


Dec  13«  1966  (MAIN)  PAGE  l9 
USER'S  OWN  page  no.  lO 


(MAY  NOT  BE  REQUIRED  FOR  FEIGHTS). 


intitTEMPORARY  FOR  SPfCIAE  FAKeSTRT  ENEMA 


o 


48895^A 

rJL  svsitH  roR  agc:  new  prg<3^9M 

SNePATIn  3Y  eyles 

Dec  Ir^,  1966  (MAIN)  PAGE  20 

L 

P0331 

E^AbA3Lt  ASSIGNMENTS 

temroRaky  Phony  assignments  ij 

<:elp  pinball  from 

having 

Bad  assemblies 

USER'S  OWN  page  no.  11 

0332 

0900 

0902 

HETAD 

ERASE 

♦2 

0333 

0903 

0910 

DELVX 

ERASE 

+ 5 

R033A 

END  OF  FH0N\  assignments 

R0335 

DO.*NLINK  LISI  ADDRESS. 

0336 

0911 

0911 

D.NLSTADR 

ERASE 

R0337 

AGS  DJMliY  IC  WORD 

0338 

091^ 

0912 

agsword 

ERASE 

R0339 

RADAR  ERASABLE 

0390 

0913 

0913 

RADMODES 

ERASE 

039  1 

09lA 

0919 

SAMPLIM 

ERASE 

0392 

09lS 

0916 

SAMPLSUM 

ERASE 

+ 1 

0393 

REF  1 

0915 

SAMPSUM 

equals 

samplsum 

0399 

091  ! 

0920 

OPTYHOLD 

ERASE 

+ 1 

0395 

0921 

0922 

TIMEHOLD 

ERASE 

+ 1 

0396 

REF  2 last  20 

0915 

RRTARGET 

equals 

samplsum 

HALF  UNIT  VECTOR  IN  SM  OR  NB  AXtS. 

0397 

0923 

0929 

T aNG 

erase 

+ 1 

DESIRED  TRUNNION  AND  SHAFT  ANGLES, 

0398 

REF  1 

0923 

MODEA 

EQUALS 

TANG 

0399 

092S 

0926 

MODEB 

ERASE 

♦ 1 

DODES  CLOBBERS  lANG  +2. 

0350 

REF  1 

0925 

NSAMP 

EQUALS 

MODEB 

0351 

0927 

0927 

DESRET 

ERASE 

0352 

REF  1 

0927 

OLDATAGD 

equals 

DESRET 

used  in  DATA  READING  ROUTINES. 

0353 

0930 

0930 

DESCOUNT 

ERASE 

R0359 

END  OF  FADAR  ERASABLE  ASSIGNMENTS 

0355 

0931 

0931 

VACIUSE 

ERASE 

0356 

0932 

0509 

VACl 

ERASE 

+ 92D 

0357 

050S 

0505 

VAC2USE 

ERASE 

0358 

0506 

0560 

\/AC2 

ERASE 

+ 92D 

0359 

0561 

0561 

VAC3USE 

ERASE 

0360 

0562 

0639 

VAC3 

ERASE 

+ 92d 

0361 

063S 

0635 

YACAUSE 

ERASE 

0362 

0636 

0710 

VAC9 

ERASE 

+ 92D 

0363 

0711 

0711 

VAC5USE 

ERASE 

0369 

0712 

0769 

VACS 

ERASE 

+ 92D 

0365 

0766 

0765 

PHASENUM 

ERASE 

R0366 

KALGMANL-DAP  INTERFACE:. 

0367 

0766 

0776 

CO'JXD 

erase 

*2 

CDU  dlsired  registers: 

0368 

REF  1 

0767 

CDUyD 

EQUALS 

CDUxD  *1 

scaled  at  pi  RAnlANs  (IbO  DEGREES) 

0369 

REF  2 LASl  20 

0770 

CDUZD 

EQUALS 

CDUXD  +2 

(STORED  IN  2»  COMPLEMENT) 

A8896AA 

YJL 

system  for  agc:  new 

Program 

SMePatIN  3Y  eYLeS 

L 

eras 

A3Lt 

assignments 

0370 

0771 

0773 

delcdux 

erase 

+ 2 

0371 

REF 

1 

0772 

DeLCDUY 

E(^UALS 

delcdux 

0372 

REF 

2 

LAST  21 

0773 

delcduz 

EQUALS 

delcdux 

0373 

077A 

0776 

OmEGAPD 

erase 

+ 2 

0374 

REF 

1 

0775 

omegaqd 

EQUALS 

OMEGAPD 

0375 

REF 

2 

last  21 

0776 

OMEGARD 

EQUALS 

OMEGAPD 

0376 

1000 

SEILOC 

1000 

0377 

lOOO 

1001 

T5ADR 

ERASE 

+ 1 

A0378 

0379 

1002 

1003 

T6NEXT 

ERASE 

+ 1 

0380 

1004 

1006 

T6NEXTJT 

ERASE 

+ 2 

0381 

100  f 

1007 

DeLAYCTR 

erase 

Dec  1^,  1966  (Main)  page  21 


USER'S  OWN  page  no.  12 

negative  of  desired  lOOMS  CDU  I4CREMENT! 
scaled  at  pi  RAMANS  (IbO  DEGREfS) 
(STORED  IN  Z'  COMPLEMENT) 

ATTITUDE  maneuver  DESIRLD  RATES 

(NOT  explicitly  ReFeReNCeD  in  GtS  CNTRL) 

scaled  at  pi /a  BADIANS/SeCOND 


GENADR  of  next  IM  Dap  TSRUPr.  * 2CADR  t 
BBCON  OF  NXt  Lm  DAP  TSRUPT.  " zCADR  * 

LIST  OF  TIME6  DT-S  FOR  JET  LIST  PROGRAM 

LIST  OF  JET  POLICIES  FOR  jTLST  PROGRAM 

counter  For  minimum  impulse  use  of  rhc 


48895^A  YJL  SYSTEM  EOR  AGC;  MEW  PRO^iRAM  SMEPATIN  3Y  EYLES  DEC  I3,  I966  (MAIM)  PAGE  2<i 


L 

P0382 

erasable 

ERASABLE 

assignments 

assignments 

For  averaGc 

'o  INTEGRATOR; 

USER'S  OWN  PaGf  no.  13 

0383 

loio 

1015 

RM 

ERASE 

+ 5 

0384 

1010 

1023 

VM 

Erase 

+ 5 

0385 

1024 

1031 

GDT/2 

ERASE 

+ 5 

0386 

1032 

1037 

UNITR 

ERASE 

+ 5 

0387 

1040 

1045 

UNITW 

ERASE 

+ 5 

0388 

104P 

1047 

RMAG 

ERASE 

+ 1 

0389 

R£E 

1 

0403 

DELV 

EQUALS 

DELVX 

0390 

1050 

1055 

RMl 

ERASE 

+ 5 

0391 

1056 

1063 

VNl 

ERASE 

+ 5 

0392 

1064 

1071 

GOTl/2 

ERASE 

+ 5 

0393 

1072 

1073 

AYGEXIT 

ERASE 

+ 1 

0394 

1074 

1075 

AYGOUTF 

ERASE 

+ 1 

0395 

REF 

1 

1074 

OYMNEXIT 

= 

AVGOUTF 

R0396 

W^l  ILibI  KtPt.AT  rL“o» 

0397 

107G 

1076 

RJPTAGN 

ERASE 

0398 

REF 

1 

1076 

KEYTEMP2 

• 

RUPTAGN 

TEMP  FOR  KEYRUPt.  UPRUP I 

R039R 

PHASE  TABLE 

and  REi>TARr 

'-OUNIER 

48895^A  YJL  SYSit;H  hOK  AGC:  NEW  PROGRAM  S^EPATIN  BY  EYLeS 
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L erasable  assignments  USER'S  OWN  PAGF  NO.  lA 

POAOO  THE  FOLLOWING  ARE  TO  LOCAieD  IN  UNSwITCHED  eRRASSIBLe 
ROAOl  TBASEd)  ARC  USED  IN  rtAITII^T  RESTARTS 

R0A02  PHSPRDTH)  are  used  10  store  dlHER  PRIORITY  OR  OeLTA  TIMe  FOR  VARIABLE  RESTARTS 

RoaOA  PHASE!  I)  ANC  -PHASE ( 1 ) ARr  UseD  tD  StORE  tHe  PHASE  INFORMATION  AND  PHASE  INFORMATION  COMPLEMENTED  FOR  EACH  OF  tH 

R0A06  GROUPS 


0A07 

107  ( 

1077 

-PHASEl 

ERASE 

OAOS 

IlOO 

1100 

PHASE! 

ERASE 

0A09 

1101 

1101 

-PHASE2 

ERASE 

OAIO 

1102 

1102 

PHASE2 

ERASE 

OAll 

1103 

1103 

-PHASE3 

ERASE 

0A12 

IlOA 

1104 

PHASES 

ERASE 

0A13 

1 lOS 

1105 

-PHASE4 

ERASE 

OAIA 

1106 

1106 

PHASE4 

ERASE 

0A15 

1101 

1107 

-PHASES 

ERASE 

0A16 

lllO 

1110 

Phases 

ERASE 

0A17 

ml 

1111 

-PHASE6 

ERASE 

0A18 

1112 

1112 

PHASE6 

ERASE 

0A19 

1113 

1113 

TBASEl 

ERASE 

0A20 

lllA 

1114 

P.HSPRDTl 

ERASE 

0A21 

1115 

1115 

TBASE2 

ERASE 

0A22 

lllS 

1116 

PHSPRDT2 

ERASE 

0A23 

1117 

1117 

TBASE3 

ERASE 

0A2A 

1120 

1120 

PHSPRDT3 

ERASE 

0A25 

1121 

1121 

T8ASE4 

ERASE 

0A26 

1122 

1122 

PHSPRDT4 

ERASE 

0A27 

1123 

1123 

T3ASE5 

ERASE 

0428 

112A 

1124 

phsprdts 

ERASE 

0A29 

1125 

1125 

TBASE6 

ERASE 

0A30 

112t> 

1126 

PHSPRDT6 

ERASE 

R0A31 

erasable  for  single  precision 

subroutines. 

0A32 

1127 

1127 

HALFY 

ERASE 

0A33 

1130 

1130 

ROOTRET 

ERASE 

0434 

1131 

1131 

S3RARG 

ERASE 

0435 

REF 

1 

1127 

TEMK 

equals 

HALFY 

0436 

REF 

1 

1130 

SO 

EQUALS 

ROOTRET 

R0437 

erasable  ASSIGNMeTNS 

FOR  LMP  ROUTINES 

0438 

1132 

1141 

LMPCMD 

erase 

+ 7 

0439 

11A2 

1142 

LMPIN 

erase 

0440 

11A3 

1143 

LMPOUT 

erase 

0441 

llAA 

1144 

LMPOUTT 

erase 

0442 

11A5 

1145 

LMPRET 

erase 

0443 

1146 

1146 

LMPBbANK 

ERASE 

0AA4 

1147 

1147 

SAVDT 

ERASE 

CIRCULAR  buffer  OF  LAST  8 COMMANDS. 
points  TO  next  available  input  slot, 
points  to  Next  output  location  in  buffer 
interrim  storage  for  the  above. 

2CADR  return  ADiiRESS  FOR  SUBROUTINES. 


A8895AA 

YJL 

system  fur  aGc:  new 

PROCiRAM 

shePatin  by  eyles 

dec  13,  1966  (MAIN)  PAGE  24 

L 

t-(ASA5Lt  ASSlGNMtNIS 

USER'S  OWN  Page  no.  is 

0AA5 

1150 

1151 

LONGCADR 

erase 

+ 1 

unswitched  erasable  For  longcali. 

0AA6 

1152 

1153 

LUNGT I ME 

ERASE 

+ 1 

0AA7 

1154 

1166 

CMEMORY 

ERASE 

♦lOD 

0AA8 

REF 

1 

1154 

TEMx 

EQUALS 

CMEMORy 

0449 

REF 

2 LAST  24 

1155 

TEMY 

EQUALS 

CMEMORY 

+ 1D 

0450 

REF 

3 LAST  24 

1156 

TEMZ 

EQUALS 

CMEMORY 

+ 2D 

0451 

REF 

4 LASi  24 

1157 

TEMXY 

EQUALS 

CMEMORY 

+ 3D 

0452 

REF 

5 LAST  24 

1160 

PIPAGE 

EQUALS 

CMEMORY 

+ 4D 

0453 

0454 

R-F 

REF 

1 

6 

last  24 

1154 

1163 

TEmI PREl 

1/PlPADT 

OLDBTl 

Equals 

equals 

EQUALS 

temx 

CMEMORY  +7D 

DP  temp  FOR  GYRQCOMP  terminate  TImE.  MP2 

0455 

R0456 

REF 

1 

servicer 

restarts 

1163 

1/PIPADT 

0457 

REF 

7 

LASi  24 

1161 

STORASE 

equals 

CMEMORY  +5D 

0458 

ref 

8 

LAST  24 

1162 

RTSPLOsh 

equals 

CMEMOrY  +6D 

R0459 

STC:RAGE 

FOR  FOR  MilSSIOV 

iimer/phase  register  pairs. 

0460 

1167 

1167 

MT IMER4 

ERASE 

0461 

1170 

1170 

MTIMER3 

ERASE 

0462 

1171 

1171 

MTIMER2 

ERASE 

0463 

1172 

1172 

Ml IMERl 

ERASE 

0464 

1173 

1173 

MPHASE4 

ERASE 

0465 

1174 

1174 

MPHASE3 

ERASE 

0466 

1175 

1175 

MPHASE2 

ERASE 

0467 

1175 

1176 

MPHASEl 

ERASE 

0468 

1177 

1202 

MTIMER4T 

erase 

+ 3 

RESTART  STORAGE  AREAS  FOR  THE  ABOVE. 

0469 

1203 

1206 

MPHASE4T 

ERASE 

+ 3 

0470 

1207 

1207 

MDUEIEMF 

ERASE 

0471 

1210 

1210 

newmt IME 

erase 

Tl  at  maintenance  TASK  AFIER  NEXT. 

0472 

1211 

1211 

newtimet 

erase 

RESTART  STORAGE  FOR  THE  ABOVt, 

0473 

1212 

1212 

MINH 

ERASE 

0474 

1213 

1213 

statectr 

erase 

TIMER  FOR  internal  STATE  VECTOR  UPDATES. 

0475 

1214 

1214 

UpPHASE 

ERASE 

NEW  PHASE  AS  SENT  Up  THE  UPLINK. 

0476 

121S 

1215 

UpDT 

ERASE 

NEW  DT  AS  SENT  UP  THE  UPLINK. 

0477 

1215 

1216 

UPINDEX 

erase 

index  OF  timer  modified  by  uplink. 

0478 

121  ' 

1220 

UPGET 

erase 

+ 1 

GET  FOR  UPLINK  REQUEST. 

0479 

I22l 

1221 

MRETURN 

erase 

RETURN  REGISTER. 

R0480  P'lEMO^Y  ASSIGNMENTS 


0481 

1222 

1353 

pmemory 

ERASE 

+ 89D 

0482 

RpF 

1 

1222 

REFrrECT 

equals 

PMEMOrY  +00D 

state  vectors  for  OrBiTAL  integration 
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L 

ERASABLE  ASE 

IGNMeNTS 

USER'S  OWN  PaGf  no.  16 

0A83 

REF 

2 LASI 

24 

1230 

REFvRECT 

EQUALS 

PMEMORY 

+ 06D 

0A8A 

REF 

3 LAST 

25 

1236 

deltav 

equals 

PMEMORY 

+ 12D 

state  oeviations 

0A85 

REF 

4 LAST 

25 

1244 

NJV 

EQUALS 

PMEMORY 

+ 180 

0A86 

RAF 

5 last 

25 

1252 

REFrCV 

equals 

PmEMOrY 

+ 240 

0A87 

REF 

6 LASI 

25 

1260 

refvcv 

EQUALS 

PMEMORY 

+ 30D 

0488 

REF 

1 

1266 

REFTC 

= 

REFTCV 

0489 

REF 

/ LAST 

25 

1266 

reftcv 

EQUALS 

PMEMORY 

+ 36D 

0490 

REF 

8 LAST 

25 

1270 

TE 

equals 

PMEMORY 

+ 38D 

TET.TIME  CORRfSpONOiNG  TO  LEM 

State 

0491 

REF 

9 LAST 

25 

1272 

REFXKEP 

EQUALS 

PMEMORY 

+ 40D 

ROOT  TO  KEPLER  fQUAtIONS 

0492 

REF 

10  LASi 

25 

1274 

refsmmat 

equals 

PMEMORY 

+ 42D 

transformation  matrix  BETWEEN 

SM  AND  ref 

0493 

REF 

11  last 

25 

1316 

PIPRETRN 

equals 

PMEMORY 

+ 60D 

0494 

REF 

12  LAST 

25 

1320 

piptime 

equals 

PMEMORY 

+ 62D 

0495 

REF 

13  last 

25 

1322 

Deselect 

equals 

PMEMORY 

+ 64D 

0496 

REF 

14  LAST 

25 

1332 

MASS 

equals 

PMEMORY 

+ 72D 

0497 

REF 

15  LASI 

25 

1342 

cdotemp 

equals 

PMEMORY 

+ 80D 

VECTOR  used  in  fINDCDUD 

0498 

REF 

16  LAST 

25 

1334 

/ACF/ 

EQUALS 

PMEMORY 

+ 74D 

0499 

ref 

17  LAST 

25 

1336 

/AF/ 

equals 

PMEmORY 

+ 760 

0500 

REF 

18  LAST 

25 

1335 

PCNTF 

equals 

PMEMORY 

+ 750 

05005 

REF 

19  LAST 

25 

1340 

St  at  I me 

EQUALS 

PMEMORY 

+ 780 

DP  DOWNLINK  TIMf-DONT  VIOLATE 

these  Regs 

0501 

REF 

20  LAST 

25 

EXCLUSW 

1342 

ALMCADR 

equals 

PMEMORY 

+ 800 

OP 

R0503 

A5SI 

gnments 

RESER\/ED 

ELY  ruK  SELT-CHECA 

0504 

1356 

1377 

SELFERAS 

erase 

1355  - 

1377 

0505 

1355 

ERESTORE 

= 

1355 

0506 

1356 

SELFRET 

= 

1356 

0507 

1357 

SMODE 

= 

1357 

0508 

1360 

REDOCTR 

= 

1360 

KEEPS  TRACK  OF  RESTARTS 

0509 

1361 

SFAIL 

: 

1361 

SFAIL, ERCOUNT.FaILReGTS)  USED 

BY  NOUN  31 

0510 

1362 

ERCOUNT 

= 

1362 

FOR  ALAR  IS. 

0511 

1363 

FaILREG 

= 

1363 

FAlLRtG,+l,+2  USED  BY  NUUN  50 

hOK  MLMKno 

0512 

1366 

SCOUNT 

1366 

0513 

1371 

S<EEP1 

1371 

0514 

1372 

S<EEP2 

= 

1372 

0515 

1373 

S<EEP3 

1373 

0516 

1374 

S<EEP4 

= 

1374 

0517 

1375 

S<EEP5 

= 

1375 

0518 

1376 

S<EEP6 

1376 

0519 

1377 

S<EEP7 

= 

1377 

R0520 

WAITLIST  TASI 

K LISTS 

0521 

E3»1400 

SETLOC 

1400 

0522 

L3,l400 

E3*1407 

LSTl 

ERASE 

+ ! 

DELTA  T»S, 

0523 

E3,l4l0 

E3  *1431 

LST2 

ERASE 

+ 17D 

2CAOR  TASK  ADDRESSES, 

0524 

E3*1432 

E3*1433 

LONGBASE 

ERASE 

+ 1 

ERASABLE  FOR  LONGCALL 

0525 

E3 , 1A34 

E3*1435 

longexIt 

ERASE 

+ 1 

^8895^A  YJL  SlfSTtM  r Ofi  AGC;  SHtPATiN  BY  eYLl  i 


L E=«ASA3Lt  ASAIGNMeMS 


R0526 

IMj  compensation  PA^AMETLRS: 

0527 

L3,l436 

E3  * 1436 

P3IASX 

erase 

0528 

REF 

1 

E3U436 

PlPABl AS 

= 

PBIASX 

0529 

E3,1437 

£3*1437 

PIPASCFX 

ERASE 

0530 

REF 

1 

E3*1437 

PIPASCF 

= 

PIPASCFX 

0531 

E3,1440 

E3*1440 

PBIASY 

ERASE 

0532 

E 3 , 1 44 1 

£3 ’ 1441 

PIPASCFY 

ERASE 

0533 

E3,lA4l! 

E3*1442 

PBIAS2 

ERASE 

0534 

E3 , 1h43 

£3  *1443 

PIPASCFZ 

ERASE 

0535 

E 3 » 1444 

E3  * I444 

NBDX 

ERASE 

0536 

REF 

1 

E3  * 1444 

GBI ASX 

= 

NBDX 

0537 

E3,1a45 

£3*1445 

NBDY 

ERASE 

0538 

E3,1446 

£3*1446 

N3DZ 

ERASE 

0539 

L3  » I44Y 

£3*1447 

AOIAX 

erase 

0540 

E3,1450 

£3*1450 

AOIAY 

ERASE 

0541 

E3 . I45l 

£3*1451 

ADIAZ 

ERASE 

0542 

E3* 1452 

£3*1452 

AOSRAX 

ERASE 

0543 

E3 ♦ 1453 

£3  • 1453 

AdsRAY 

ERASE 

0544 

E3,i45A 

£3*1454 

ADSRAZ 

ERASE 

0545 

E3 » 1453 

£3*1462 

GCOMP 

erase 

+ 5 

0546 

E3,1463 

£3*1463 

GCOMPSw 

ERASE 

0547 

REF 

1 

E3  * 1455 

COMMAND 

EQUALS 

GCOMP 

0548 

REF 

2 

LASl  26 

£3  * 1460 

CDUIND 

EQUALS 

GCOMP  +3 

K0549  storage  FOR  RR  TASKs. 


0550 

3 » L ^6^ 

£3*1464 

RRRET 

ERASE 

0551 

t3  * 1465 

E3  * 1465 

RDES 

ERASE 

0552 

t3  » 1466 

E3*1466 

RRINDEX 

ERASE 

RO553 

AOT 

CALIBKAIIONS  IN  AZIMUIH  AID  E'-EVATION  AT  DETfNTS 

0554 

E3 , 146  7 

£3*1471 

AOTAZ 

ERASE 

♦ 2 

0555 

E3,1472 

c3*1474 

AOTEL 

ERASE 

+ 2 

R0556 

assignments  for  prese 

MIL'  UNUSED  NOUNS. 

0557 

£3*1475 

AZANG 

EQUALS 

0558 

E3*1475 

ELANG 

EQUALS 

0559 

£3*1475 

DESLOTSY 

EQUALS 

0560 

£3*1475 

DESLOTSX 

EQUALS 

0561 

£3,1475 

£3 ’ 1477 

ROLL 

ERASE 

+ 2 

0562 

E3 , 1500 

E3*1505 

landmark 

erase 

+ 5 

R0563 

T He 

Foliowing  regs  are  used  3y 

THE  STANDBY  VERBS 

Deg  13,  1966  (MAIN)  page  26 


USER'S  OWN  PaGf  no.  17 


PIPA  BIAS  AND  PiPa  sCaLE  FACjoR  TERM5 

intermixed. 


GYRO  BIAS  drifts 


acceleration  sensitive  drift  along  the 
input  AXIS 


acceleration  sensitive  drift  along  the 
SPIN  reference  axis 

contains  compensating  torques 


Delete  when  optical  tRackeR  nouis  gone 
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L ERASABLE  ASSIGNMENTS 


USER'S  OWN  PaGF  no.  IB 


056A 

E3 .1506 

E3' 1507 

TIMESAV 

ERASE 

+ 1 

0565 

E3.1510 

E3»1511 

SC ALSAV 

ERASE 

+ 1 

0566 

Ei.lbH 

E3’1513 

TIMAR 

ERASE 

+ 1 

0567 

E3,15H 

E3'1515 

TIMEDIFF 

ERASE 

♦ 1 

R0568 

HE 

FOLLOWIf  G 

MAY 

Be  placed  IN 

switched 

ERRASSIBI 

E 

R0569 

PHSNAMEd)  9NU  PHStSUd)  5t0«E 

THE  2CADR 

t-OR  VARIABLE  RESTARTS  FOR  EACH  OF  THE  GROUPS 

0571 

Ei.iblB 

£3*1516 

PHSNAMEl 

ERASE 

0572 

E3,1517 

E3'1517 

PHSbBl 

ERASE 

0573 

E3 .1520 

E3'1520 

PHSNAME2 

ERASE 

057A 

E3.1521 

E3’1521 

PHSBb2 

ERASE 

0575 

E3.1522 

E3*1522 

PHSNAME3 

ERASE 

0576 

E3.1523 

E3'1523 

PHSBB3 

ERASE 

0577 

L3. 1529 

E3*1529 

PHSNAME9 

ERASE 

0578 

E3 . 1 525 

£3 ’ 1525 

PH5BB9 

ERASE 

0579 

E3.1526 

E3'1526 

PH5NAME5 

ERASE 

0580 

E 3. 1527 

£3*1527 

PHSBB5 

ERASE 

0581 

E 3 . 1 53O 

£3  *1530 

PH5NAME6 

ERASE 

0582 

E3. 153I 

£3*1531 

PHSbB6 

ERASE 

0583 

E3. 1532 

£3*1539 

BCDU 

ERASE 

+ 2 

058A 

E3.1535 

£3*1556 

MIS 

Erase 

+ 17D 

0585 

E3.1557 

£3*1600 

MFS 

ERASE 

+ 17D 

0586 

E3.1601 

E3*1622 

TMIS 

ERASE 

+ 17D 

0587 

REF 

1 

£3*1601 

TMFI 

EQUALS 

TMIS 

0588 

E3. 1623 

£3*1630 

COF 

ERASE 

+ 5 

0589 

E 3 . 1 6 3 1 

£3*1631 

CPHI 

ERASE 

0590 

E3 . 1632 

E3'1632 

CTHETA 

ERASE 

0591 

E3 . lo33 

£3*1633 

CPSI 

ERASE 

0592 

REF 

1 

£3*1557 

MFI 

EQUALS 

MFS 

0593 

E3.1639 

£3*1691 

COFSKE'W 

ERASE 

+ 5 

0599 

E 3 . 1692 

£3*1693 

AM 

ERASE 

+ 1 

0595 

REF 

2 last 

27 

£3*1601 

mfisym 

EQUALS 

TMIS 

0596 

L3.1699 

£3  * 1695 

CAM 

ERASE 

+ 1 

0597 

REF 

1 

£3*1607 

C2S0P 

equals 

K2 

0598 

REF 

2 LAST 

27 

£3*1611 

C2SOM 

EQUALS 

K2  +2 

0599 

REF 

3 LASI 

27 

£3*1613 

C2PP 

EQUALS 

<2  +9 

0600 

REF 

1 

£3*1615 

C2MP 

equals 

K3 

0601 

REF 

2 LAST 

27 

£3*1617 

ClPP 

EQUALS 

K3  +2 

0602 

REF 

3 LAST 

27 

c3*1621 

CIMP 

EQUALS 

K 3 +9 

0603 

REF 

1 

£3*1601 

P21 

equals 

K1 

0609 

REF 

2 LAST 

27 

£3*1603 

D21 

EQUALS 

K1  +2 

0605 

REF 

3 LAST 

27 

£3*1605 

C2I 

EQUALS 

Kl  +9 

0606 

E3 . 1696 

£3*1697 

RAD 

ERASE 

+ 1 

0607 

E3.1650 

£3*1651 

RS3 

ERASE 

+ 1 

0608 

REF 

2 LAST 

27 

£3*1557 

El 

EQUALS 

MFS 

0609 

REF 

3 LAST 

27 

£3  * 1565 

E2 

equals 

MFS  +6 

0610 

REF 

1 

£3*1639 

i 3 

EQUALS 

COFSKEW 

0611 

REF 

3 LAST 

27 

£3*1615 

OoF 

EQUALS 

TMIS  +12D 

A8895^A 

YJL 

SYS i EM  t OK  AGC: 

MEW  program  SHtPATlM  3Y  EYLeS 

dec  18,  ly66  (MAIN)  PAGE  28 

L 

E7ASA3LL  ASP- 

IGMMtNI S 

USER'S 

OWN  PAGF  NO.  19 

0612 

REF 

4 LA51 

27 

£3*1601 

EQUALS 

THIS 

0613 

REF 

5 LAST 

28 

E3*1607 

K2 

EQUALS 

TMIS  +6 

0614 

REF 

6 LASI 

28 

E3’1615 

<3 

equals 

TMIS  +12D 

0615 

REF 

4 LAST 

27 

E3*1557 

<£L 

equals 

MFS 

0616 

1 3 1 1 652 

E3*1652 

RATEIMOX 

ERASE 

0617 

E3 ,1653 

E3*1653 

SPNDX 

ERASE 

0618 

E3,165A 

E3*1654 

MyNDX 

ERASE 

0619 

REF 

2 LAS] 

27 

£3*1634 

BR  AT  E 

EQUALS 

COFSKEW 

0620 

REF 

1 

E3  * 1 644 

TM 

equals 

CAM 

0621 

REF 

7 LASI 

28 

£3*1601 

MCDU 

EQUALS 

TMIS 

0622 

REF 

8 LASI 

28 

E3  * 1604 

NEXT IME 

equals 

TMIS  +3 

0623 

REF 

3 LASl 

21 

0771 

DELDCDU 

equals 

DELCDUX 

0624 

REF 

1 

0772 

DELDCOUi 

equals 

DtLCDUY 

0625 

REF 

1 

0773 

DELDCDU2 

equals 

DELCDUZ 

0626 

REF 

9 LAS] 

28 

£3*1605 

TTEMP 

equals 

TMIS  +4 

0627 

F.3,1653 

£3*1662 

POiNTVSM 

erase 

*■5 

0628 

E 3 , 1 663 

E3  * 1670 

SCAX  1 S 

ERASE 

+ 5 

0629 

E3, 1671 

£3*1671 

RTM 

ERASE 

0630 

E3,1672 

£3*1672 

T aGS 

ERASE 

0631 

L3 , 1673 

£3*1674 

tf 

ERASE 

+ 1 

0633 

£3,1675 

£3*1676 

COGAVAIL 

erase 

+ 1 

0634 

£3,167^ 

£3*1701 

SPLOC 

ERASE 

+ 2 

0635 

E3,1702 

£3*1707 

UMRl 

ERASE 

+ 5 

0636 

L3,l7l0 

£3*1715 

ROVEC 

ERASE 

+ 5 

0637 

£3,1  /16 

£3*1723 

YOVEC 

ERASE 

+ 5 

0638 

£3,U24 

£3*1731 

UMMORM 

ERASE 

+ 5 

0639 

£3,1732 

£3*1733 

IMDEP 

ERASE 

+ 1 

0640 

£3,173A 

£3*1735 

T WEEK  I T 

erase 

*■1 

0641 

£3,1736 

£3*1737 

DEPVAR 

ERASE 

+ 1 

0642 

£3,1740 

£3*1741 

PREVDEP 

ERASE 

+ 1 

0643 

£3,1742 

£3*1743 

OELOEP 

ERASE 

+ 1 

0644 

L3,174A 

£3  * 174  5 

OELINDEP 

ERASE 

+ 1 

0645 

0026 

MINIMDEP 

EQUALS 

220 

0646 

0032 

MAXINDEP 

EQUALS 

260 

R0647 

RtSTRTCS-RtSTRTCS  + 

770  IS  Us 

SO  fur  restart  PR0T£ 

:CTION  DURING  PReLAUNCH 

0648 

£3*1600 

RESTRTCS 

1600 

A0649 

erasable 

FOR  MISSION  phase  TWO 

0650 

£3 , 1 746 

£3*1747 

T 0 R R 

erase 

+ 1 

TIME  Of 

guIdancf  reference  Release 

0651 

£3,1750 

E3*1751 

TLIFTOFP 

ERASE 

+ 1 

time  of 

liftoff 

0652 

£3,1752 

£3*1753 

TPRELTER 

erase 

+ 1 

time  of 

GYROCOMPASSiNG  termination 

0653 

£3,1759 

£3*1755 

SAVEOT 

ERASE 

+ 1 

TEMPORARY  FOR  MP  2 

0654 

£3,1/56 

£3*1757 

DT-LIFl 

ERASE 

+ 1 

DT  FROM 

GRR  to  I IF  TOFF 

0655 

£3,1760 

£3  * 1760 

DT-DFl TM 

Erase 

DT  From 

GRR  TO  nFl  T/M  calibration 

0656 

REF 

1 

£3*1760 

ABORTMOX 

EQUALS 

dt-dfitm 

0657 

£3,1  /6l 

£3*1762 

DT-LETJI 

ERASE 

+ 1 

DT  FROM 

LIFTOFF  TO  POST-LET  JETrlSON 

0658 

£3,1763 

£3*1764 

AZGR 

ERASE 

+ 1 

PAD  3/B 

VERTICAI  to  ref  X-Z  PLAmE. 

0659 

£3,1765 

£3*1766 

TILT 

ERASE 

+ 1 

Y ABOUT 

Z IN  RE\/S. 

0660 

£3,176^ 

£3*1770 

ZSMAZ 

ERASE 

+ 1 

Z FROM  NORTH  IN  REVS. 
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L Erasable  assignments  user's  own  pagf  no.  20 


0661 

E3.I77I 

£3*1773 

TEPHEM 

ERASE  +2 

TP  cs  FROM  00:00:00  JULY  i To  oo:oo:oo 

A0662 

0663 

E3,177A 

£3'177A 

MP6T07 

MP0TO9 

ERASE 

OF  LAUNCH  DAY. 

ERASABLE  FOR  MP6 

066A 

E3,177i> 

E3*1775 

erase 

ERASABLE  FOR  MI'^SION  PHASE  8 

48895‘tA  YJL  SKSlEN  HOK  AgL:  NlW  SHePATIN  sY  EYLE.S 
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U E^AbA3LL  assignments  USER'S  OWN  PAGe  NO.  21 

P066A5  ERASASLt.  ASSIGNMENTS  huR  fBANci  A 


0665  EA*1A00  SETLOC  2000 

0666  E^.UOO  EA*1626  AMEMORY  ERASE  +150D 

R0667  THe  following  A MeMo^Y  LOCATIONS  ARE  DSeD  BY  MID-CqURSe  NAVIGATION 

R0669  CAUlIjN:  ORSIfAL  INTEGRATION  ^eGI^TERG  RAVeCoN,  VAVeGoN  AND  StCOND  DPS  GUIDANCE  ReGISiepG  TRIP,  TTF/^,, 
R0671  TTF/A1M(  , T-LLG  ARE  ALL  In  LsE  SIMULTANEOUSLY  AND  MUST  NOT  COnFLiCT. 


0672 

REF 

1 

£4*1400 

RRECT 

EQUALS 

AMEMORY 

+ 000D 

0673 

REF 

2 

LAST 

30 

E‘f*1400 

R I GNT I ON 

equals 

AMEMORY 

♦ GOOD 

067A 

REF 

3 

LASl 

30 

t:4*  1406 

VRLCT 

equals 

AMEMORY 

+ 006D 

0675 

REF 

4 

LAST 

30 

E4  * 1 406 

VI GNT I ON 

EQUALS 

AMEMORY 

+ 006D 

0676 

REF 

5 

LAS  r 

30 

E4  * 14 1 4 

TDELTAV 

EQUALS 

AMEMORY 

+ 012D 

0677 

REF 

6 

LASl 

30 

E4*1414 

newdltav 

EQUALS 

AMEMORY 

+ 012D 

0678 

REF 

7 

LAST 

30 

E4*1422 

TNUV 

EQUALS 

AMEMORY 

+ 018D 

0679 

REF 

8 

LAST 

30 

E4* 1422 

NEWNUV 

EQUALS 

AMEMORY 

+ 018D 

0680 

REF 

9 

LASl 

30 

E4* 1430 

RCV 

equals 

AMEMORY 

+ 024D 

0681 

REF- 

10 

LASl 

30 

E4’ 1430 

FOUNDR 

EQUALS 

AMEMORY 

+ 0240 

0682 

REF 

1 1 

LAS  1 

30 

E4’ 1436 

VCV 

equals 

AMEMORY 

+ 030D 

0683 

REF 

12 

LASl 

30 

E4*1436 

FDUNDV 

EQUALS 

AMEMORY 

+ 030D 

068A 

REF 

13 

LAST 

30 

E4* 1444 

TC 

EQUALS 

AMEMORY 

+ 036D 

0685 

REF- 

14 

LAST 

30 

E4  * 1446 

TET 

EQUALS 

AMEMORY 

+ 038D 

0686 

REF 

15 

LAST 

30 

E4*1450 

X<EP 

EQUALS 

AMEMORY 

+ 040D 

0687 

REF- 

16 

LAST 

30 

E4*  1452 

alphav 

EQUALS 

AMEMORY 

+ 042D 

0688 

REF 

17 

LASl 

30 

E4*1452 

DELR 

EQUALS 

AMEMORY 

+ 042D 

0689 

REF 

18 

LASl 

30 

t4*1460 

BETAV 

EQUALS 

AMEMORY 

+ 048D 

0690 

REF 

19 

LAST 

30 

E4  * 1 460 

DELVEL 

EQUALS 

AMEMORY 

+ 0480 

0691 

REF- 

20 

LASl 

30 

E4*1466 

P-1  IV 

EQUALS 

AMEMORY 

+ 054D 

0692 

REF 

21 

LASl 

30 

£4*1466 

BVECTOR 

EQUALS 

AMEMORY 

+ 0540 

0693 

REf 

22 

LAST 

30 

E4  * 1474 

PSIV 

equals 

AmEmORY 

+ 060D 

069A 

REF- 

23 

LASl 

30 

E4*1502 

FV 

equals 

AMEMORY 

+ 0660 

0695 

REF 

24 

Last 

30 

£4*1510 

VECTAB 

EQUALS 

AMEMORY 

+ 072D 

0696 

REF 

25 

LAST 

30 

E4  * 15  10 

TaVEGON 

EQUALS 

AMEMORY 

+ 0720 

0697 

R^F 

26 

LAS  r 

30 

E4  * 15 12 

T RESUME 

EQUALS 

AMEMORY 

+ 074D 

0698 

REF 

27 

LAST 

30 

£4*1514 

ravegon 

EQUALS 

AMEMORY 

+ 076D 

SEE 

caution 

ABOVE 

0699 

REF 

28 

LASl 

30 

64*1522 

VAVEGON 

EQUALS 

AMEMORY 

+ 082D 

SEE 

CAUTION 

ABOVE 

0700 

RcF 

29 

LASl 

30 

£4*1530 

R I G-2SEC 

equals 

AMEMORY 

+ 088D 

0701 

REF 

30 

last 

30 

£4*1554 

ALPHAM 

EQUALS 

AMEMORY 

+ 1080 

0702 

REF 

31 

LASl 

30 

£4*1556 

BETAM 

EQUALS 

AMEMORY 

+ 1100 

0703 

REF 

32 

LAST 

30 

£4*1560 

TaU 

EQUALS 

AmEmORY 

+ 1120 

0704 

REF 

33 

LAST 

30 

£4*1560 

GI VENT 

EQUALS 

AMEMORY 

+ 1120 

0705 

REF 

34 

LAST 

30 

£4*1562 

DT/2 

EQUALS 

AMEMORY 

+ 1140 

0706 

REF 

35 

LAST 

30 

£4*1564 

H 

equals 

AMEMORY 

+ 116D 

0707 

REf 

36 

LAST 

30 

£4*1566 

TDEC 

equals 

AmEmORY 

+ 1180 

^8895^A  YJL  SYSTEM  FOR  AGC;  f^EW  PHOC^RAM  SMePATIN  3Y  EYLES 
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L erasable  assignments 


USER'S  OWN  Page  no. 


0708 

REF 

37 

LAST 

30 

tA* 1570 

F3RANCH 

equals 

AMEMORY 

+ 120D 

0709 

REF 

38 

LAST 

31 

EA»1571 

H3RANCH 

EQUALS 

AMEMORY 

+ 121D 

0710 

REF 

39 

LAST 

31 

EA*1572 

GMODE 

EQUALS 

AMEMORY 

+ 122D 

0711 

REF 

AO 

LAST 

31 

EA» 1573 

QREADY 

EQUALS 

AMEMORY 

♦ 1230 

0712 

REF 

A1 

LAST 

31 

EA*157A 

MEASO 

EQUALS 

AMEMORY 

♦ 12AD 

0713 

REF 

A2 

LAST 

31 

EA*1576 

deltaq 

EQUALS 

AMEMORY 

+ 126D 

071A  REF  A3  last  31  EA’1600  MEASMODE  EQUALS  AI^IEMORY  +1280 


0715 

REF 

AA 

last 

31 

EA*1601 

NvcODE 

equals 

amemory 

+ 129D 

0716 

REF 

A5 

LAST 

31 

EA*1602 

MIDEXIT 

equals 

AMEMORY 

+ 130D 

0717 

REF 

A6 

LAST 

31 

EA*1602 

DSPRTRN 

EQUALS 

AMEMORY 

+ 130D 

0718 

REF 

A7 

LAST 

31 

EA*  1603 

INCORPEX 

equals 

AMEMORY 

+ 131D 

0719 

REF 

A8 

LAST 

31 

E A ’ 1 60A 

STEPEXIT 

EQUALS 

AMEMORY 

+ 132D 

0720 

REF 

A9 

LAST 

31 

EA* 1605 

difeqcnt 

EQUALS 

AMEMORY 

+ 133D 

0721 

REF 

50 

LAST 

31 

EA* 1605 

NORMGAM 

EQUALS 

AMEMORY 

+ 133D 

0722 

REF 

5 1 

LAST 

3 1 

EA  * 1606 

scAlea 

equals 

AmEMORY 

+ 13AD 

0723 

REF 

52 

LAST 

31 

EA*1607 

SCALES 

EQUALS 

AMEMORY 

+ 135D 

072A 

REF 

53 

LAST 

31 

EA* 1613 

YV 

EQUALS 

AMEMORY 

+ 139D 

0725 

REF 

5A 

LAST 

31 

EA*1621 

ZM 

EQUALS 

AMEMORY 

+ 1A5D 

zz 
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L erasable  assignments  USER’S  QrtN  PaGF  NO.  23 

P0726  VARIABLES  FcR  SECOND  DPS  GUIDANCE 

R0727  caution:  ORBItAL  INTEGRATION  ^eSI^TERS  RAVeOON,  VAVeGqN  AND  SeCOND  DPS  GUIDANCE  REGISTERS  TPIP,  TTF/a, 

R0729  7TF/A1MP.  TjLLG  ARB  ALL  In  LI5E  SIMULTANEOUSLY  AND  MUST  NOT  CONFLICT. 

R0730  2OPS  presently  ReCeIveS  CERTAIN  VARIABLES  FROM  THE  ORBITAL  INTEGRATION  PROGRAM  IN  ReGTSteRS  USeD  IN  COM'tON  BY 

R0732  the  T«0  programs.  THeSe  VARIABLES  ARe  TET . RIGNtION,  VIGNtION.  eDPS  CAReFULLY  TRANSFERS  tHeae  VARIABLES  TO 

R073A  REGISIeRS  of  PROGRAM  CALCRVG  BeFoRe  WRITING  INTO  THe  REGISTERS  IN  WHICH  tHeSe  VARIABLES  ARRIVe. 

R0736  some  llA^E  SHARING  OF  2DPS  RESISTeRS  BY  2OPS  VARIABLES  HAS  Been  ARRANGED.  MORe  IS  POSSIblE. 

Ro738  but  n Becomes  increasingly  difficult  to  prove  RrStartability. 


0739 

REF 

55 

LAST  31 

E9  *1900 

E2DPS 

AMEMORY 

R07a0 

CONTROL 

VARIABLES 

0791 

RtF 

1 

E9*1900 

NDX2DPS  = 

E2DPS 

0792 

REF 

1 

E9*1901 

NDXBR  = 

NOX2DPS 

+ 1 

0793 

REF 

1 

E9*1902 

FLPASSO  = 

NDXBR 

+ 1 

0799 

REF 

1 

E9n903 

COUNTFC  = 

FLPASSO 

+ 1 

079S 

REF 

1 

E9*  1909 

COUNTFCT  = 

COUNTFC 

♦1 

R0796 

R0797 

ADDRESS 

variables 

0798 

REF 

1 

E9  • 1905 

AvGXTEMP  = 

COUNTFCT 

+ 1 

0799 

ref 

1 

E9’ 1906 

RETNTL2  = 

AvGXTEMP 

+ 1 

0750 

REF 

1 

E9*1907 

RETXIGNl  = 

RETNTLZ 

+ 1 

0751 

REF 

1 

E9* 1910 

RETTHRT  = 

RETXIGNl 

+ 1 

R0752 

R0753 

CDORDINATt  FRAME  VECTORS  ANU 

vlATRlCES 

0759 

REF 

1 

E9*1911 

CLT/2  = 

RETTHRT 

+ 1 

R0755 

R0756 

T ABLES 

0757 

REF 

1 

E9»1933 

TaBLTTF  = 

CLT/2 

+ 22 

R0758 

R0759 

STATE  Variables 

0760 

ref 

1 

E9  * 1 999 

PlPTIMET  = 

TABLTTF 

+ 11 

0761 

ref 

1 

E9* 1996 

TPiP  = 

PiPT iMET 

+ 2 

SEE 

CAUTiOn 

ArOvE 

0762 

ref 

1 

E9*  1950 

TPIPOLD  = 

TPIP 

+ 2 

0763 

REF 

1 

£9*1952 

TTF/9  = 

TPIPOLD 

+ 2 

SEE 

CAUTION 

ABOVE 

0769 

REF 

1 

£9*1959 

TTF/9TMP  = 

TTF/9 

+ 2 

SEE 

CAUTION 

above 

0765 

RcF 

1 

E9  ’ 1956 

tjllg 

TTr/9TMP 

+ 2 

SEE 

CAUTION 

ABOvE 

0766 

REF 

1 

£9*1960 

R = 

TULLG 

+ 2 

0767 

REF 

1 

E9  * 1 966 

RLENGTH  = 

R 

+ 6 

0768 

REF 

1 

£9*1970 

V = 

RLENGTH 

+ 2 

0769 

REF 

1 

£9*1976 

VL 

V 

+ 6 

0770 

REF 

1 

E9  * 1509 

RP2  = 

VL 

+ 6 

32 
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L 

ERAi 

.ABLE  assignments 

USER'S  OWN  PaGF  no.  2A 

0771 

REF 

1 

c4  *1506 

MAP2 

= 

RP2 

+ 2 

0772 

REF 

1 

EA*1510 

RC 

MAP2 

+ 2 

0773 

REF 

I 

EAn512 

RS 

= 

RC 

+ 2 

077A 

ref 

1 

EA  * 1 5 1 2 

rtemp 

z 

RS 

0775 

REF 

2 

LAST  33  EA*1520 

vs 

z 

RS 

+ 6 

0776 

REF 

1 

EA’1520 

VTEMP 

= 

VS 

0777 

RcF 

2 

Last  33  EA*1526 

CRS2 

= 

VS 

+ 6 

0778 

REF 

1 

£A*1530 

SRS2 

=. 

CRS2 

+ 2 

0779 

REF 

1 

EA*  1532 

TRS2 

= 

SRS2 

+ 2 

0780 

REF 

1 

EA  * 1 53A 

ASPRT 

TRS2 

+ 2 

R0781 

R0782 

AFC 

CALCULATION  VARIABLES,  QJAORAHC  AND  LINEAR 

0783 

REF 

1 

EA*i5A2 

ACS 

- 

ASPRT 

+ 6 

078A 

ref 

1 

EA*1550 

afcs 

= 

ACS 

+ 6 

0785 

REF 

1 

EA ’ 1556 

AFC 

:: 

AFCS 

+ 6 

0786 

REF 

1 

EA* 156A 

/AFC/ 

= 

AFC 

+ 6 

0787 

REF 

1 

EA*1566 

/AFC/OLD 

z 

/AFC/ 

+ 2 

0788 

REF 

1 

EA  * 1 570 

UNAF  C/2 

5 

/AFC/OLD 

+ 2 

0789 

REF 

1 

EA*1576 

UNAFC/20 

= 

UNAFC/2 

+ 6 

0790 

REF 

1 

EA*160A 

ALINS 

= 

UNAFC/20 

+ 6 

0791 

REF 

I 

EA>160A 

GOUMPRES 

S 

ALINS 

0792 

REF 

2 

LAST  33  EA»1612 

JLINS 

ALINS 

+ 6 

0793 

REF 

1 

EA*  1612 

GOOTMl 

= 

JLINS 

R079A 

R0795 

ASSI 

GNMlNTS  within  the  WORK  AREA 

0796 

0006 

PDUM 

z 

6 

0797 

0010 

RDUM 

z 

10 

0798 

0016 

VDUM 

= 

16 

0799 

OOAO 

ADUM 

AO 

ONLY  ADUM  CAN  USE  THE  AREA  DESTROYED  BY 

0800 

002A 

JOUM 

= 

2A 

taking  the  Unit  of  rdum  in  subr  gdumcl. 

0801 

0032 

GDUM 

= 

32 

PLACE  GDUM  TO  PRESERVE  /RDUM/  FoR  OTHERi* 

R0802 

R0803 

COMPLETES  SECOND  DPS  ERAPABLES 

(EXCEPT  1 

pDR 

CPT6/2  WHICH 

IS 

ASSIGNED  elsewhere) 

488954A  YJL  S^SIEM  f OR  AGC!  NtW  PROGRAM  SI^EPATKm  BY  EYLER  DEC  I3,  I968  (MAIN)  PAGE 

L erasable  assignments  USER'S  OWN  PAGp  NO.  25 

P0805  ERASABLES  FoR  ASCENT  GUIDANCE 


R08055  ERASABLES  FoR  PREAPSE 


0806 

REF 

56 

LAST 

32 

E4»1400 

PAXISI 

equals 

AMEMORY 

VECTOR 

08065 

REF 

57 

LAST 

3A 

E4'1406 

(JAXIS 

equals 

amemory 

+ 6D 

VECTOR 

0807 

REF 

58 

LAS  I 

3A 

E4 '1414 

SAXIS 

EQUALS 

AMEMORY 

amEmory 

+ 12D 

+ 18d 

VECTOR 

08075 

REf 

59 

LAST 

3A 

E4  * 14  22 

AT 

EQUAlS 

DP  X 

dO  X 

0808 

REF 

60 

last 

3A 

E4* 1424 

1/VE 

EQUALS 

AMEMORY 

+ 20D 

DP  )t 

NOT  X 

08085 

REF 

61 

LAST 

3A 

E4' 1426 

TBUP 

equals 

AMEMORY 

+ 22D 

DP  * 

CHANGE 

0809 

REF 

62 

LAST 

3A 

E4*1430 

atmeas 

EQUALS 

Amemory 

+ 24D 

(4)  * 

the  X 

08095 

ref 

63 

last 

3A 

E4'1434 

KR 

equals 

amemory 

+ 28D 

DP  * 

order  X 

0810 

REF 

6A 

last 

3A 

E4' 1436 

<R1 

RDOTD 

Equals 

EQUALS 

AMEMORY 

AMEMORY 

♦ 30D 

DP  # 

OF  X 

08105 

REF 

65 

LAST 

3 A 

E4 • 1440 

+ 32D 

DP  * 

these  X 

0811 

REF 

66 

LAST 

3A 

E4' 1442 

ydotd 

EQUALS 

AMEMORY 

+ 34D 

DP  * 

LOCATIoNSx 

08115 

REF 

67 

LAST 

3A 

E4  * 1444 

ZDOTD 

EQUALS 

AMEMORY 

+ 36D 

DP 

0812 

REF 

68 

LAST 

34 

E4  » 1 446 

RRETURN 

EQUALS 

AMEMORY 

+ 38D 

DP 

08125 

REF 

69 

LAST 

34 

E4' 1450 

ASCRET 

EQUALS 

AMEMORY 

+ 40D 

SP 

R0813  ERAsABLtS  FOR  ASCENT 


08135 

REF 

70 

LAST 

34 

t4»l451 

LAMPRIO 

EQUALS 

AMEMORY 

+ 41D 

SP 

0814 

REF 

71 

LAST 

34 

E4« 1452 

TCO 

EQUALS 

AMEMORY 

+ 42D 

DP 

08145 

REF 

72 

LAST 

34 

E4»1454 

TREF 

EQUALS 

AMEMORY 

+ 44D 

DP 

0815 

REF 

73 

LAST 

34 

E4’1456 

UT 

EQUALS 

AMEMORY 

♦ 46D 

VECTOR 

08155 

REF 

74 

LAST 

34 

£4*1464 

YCONS 

EQUALS 

AMEMORY 

+ 52D 

DP 

0816 

REF 

75 

LAST 

34 

E4  * 1466 

YDOT 

equals 

AMEMORY 

+ 54D 

DP 

08165 

REF 

76 

LAST 

34 

E4’1470 

LAXIS 

equals 

amemory 

+ 56D 

VECTOR 

0817 

REf 

77 

LAST 

34 

E4  * 1476 

ZAXIS 

equals 

AmEmORY 

+ 62D 

VECTOR 

08175 

REF 

78 

LAST 

34 

E4*1504 

ZDOT 

EQUALS 

amemory 

+ 68D 

DP 

0818 

REF 

7 9 

LAST 

34 

E4*1506 

time 

equals 

AMEMORY 

+ 70D 

DP 

08185 

REF 

bO 

LAS  T 

34 

£4*1510 

geff 

EQUALS 

AMEMORY 

+ 72D 

DP 

0819 

REF 

81 

LAST 

34 

£4*1512 

PCONS 

EQUALS 

AMEMORY 

+ 74D 

DP 

R08195 

XXX 

IHC 

. REC 

1STER5  amemory  + 

78D  T^RU  AMeMORY  +O7D  CONTAIN  RAVeGON  AND 

VAVeGON.  and  MUST  NOT  Be  USeD  BY  t HE 

R08205 

ASCENT  LquATIONS.  xxxxxxxisx 

0821 

RiF 

82 

LAST 

34 

E4*1530 

PRATE 

EQUALS 

AMEMORY 

+ 88D 

DP 

08215 

REF 

o3 

LAST 

34 

E4*1532 

HI 

EQUALS 

AMEMORY 

+ 90D 

VECTOR 

0822 

REF 

84 

LAST 

34 

E4  * 1540 

RCOV 

EQUALS 

AMEMORY 

+ 96D 

VECTOR 

08225 

REF 

85 

LAST 

34 

£4*1546 

ROOT 

EQUALS 

AMEMORY 

+ 102D 

DP 

0823 

REF 

66 

LAST 

34 

E4  * 1 550 

RY 

EQUALS 

AMEMORY 

+ 104D 

DP 

08235 

REF 

67 

LAST 

34 

£4*1552 

urco 

EQUALS 

AMEMORY 

+ 106D 

VECTOR 

3A 
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L ERASABL)  assignments  USER'S  OWN  PAGE  NO. 

R082A  ERASASLES  FOR  THRUST  MAGNITUDE  FILTER 


082AS 

REF 

o8 

LAST 

39 

E911560 

1/DVl 

EQUALS 

AMEMORY 

+ 112D 

DP 

0825 

rSf 

89 

LAST 

35 

E9*1562 

1/DV2 

equals 

AmEMOrY 

+ 119D 

DP 

08255 

REF 

90 

LAST 

35 

E9 » 1 569 

A8DVC0NV 

EQUALS 

AMEMORY 

+ 1 16D 

DP 

0826 

REF 

91 

LAST 

35 

E9’1566 

TFL 

EQUALS 

AMEMORY 

+ 118D 

DP 

R08265 

SWITCHES  USED  BY  ASCENT  GUIDANCE 

0827 

0073 

HC 

equals 

59D 

08275 

0072 

PASS 

EQUALS 

58D 

0828  0071  DIRECT  EQUALS  57D 


26 


488954A 

YJL  system  for 

agc:  New  program 

SHePATIN 

BY  eYLeS 

QEC  13,  1966  (MAIN) 

page  36 

L 

P0829 

erasable  ASSIGNMENIS 

ERASABLeS  used  in  ORBIIAL  INteS 

rai ion 

USER'S  OWN  PAGF  NO.  21 

0830 

08301 

REF  1 

E4,1627 

£4*1627 
E4*  1630 

PBODY 

W 

erase 

EQUALS  PBODY  +1 

used  in  orbital  INTi-GRAIION 
unused  in  206.  f UT  REFERRED  TO 

BY 

A08302 

08305 

E4  » 1 630 

E4*1631 

AVMIDRTN 

erase  +1 

orbital  integration 

return  address  from  aveiomid  or 

midtoave 

R0831 

08315 

THE  Following  are  used  by  fin 

E4, 1632 

iCDUD 

£4*1637 

AXISD 

ERASE 

+ 5 

VECTOR 

0832 

£4,1640 

E4*  1645 

Axis 

ERASE 

+ 5 

vector 

08325 

La . 1 646 

£4*1653 

CDSCDU 

ERASE 

+ 5 

VECTOR 

0833 

E4,165A 

£4*1661 

SINCDU 

ERASE 

+ 5 

VECTOR 

08335  REF  1 0047  RETSAVE  EQUALS  Xd  SAVE  QPRET  IN  UNUSED  X2 


R0834 

ERAsA3LrS  FOR  MISSION  PHA.sES 

7.9.11.13 

R08345 

MISSION  PHASE  7 

0835 

E4 . 1662 

E4* 1662 

DT2TEMP 

ERASE 

08355 

14.1665 

E4  * 1 664 

DT2TEMPD 

ERASE 

+ 1 

R0836 

MISSION  PHASE  9 

08365 

REF  1 

E4* 1662 

SHJUMPl 

equals 

DT2TEMP 

0837 

£4.1665 

£4*1666 

TDI 

ERASE 

+ 1 

08375 

REF  1 

£4*1663 

TTHRUSl 

EQUALS 

DT2TEMPD 

0838 

£4.1667 

£4*1670 

T I GN 

ERASE 

+ 1 

08385 

E4,l67l 

£4*1676 

UNITVG 

ERASE 

+ 5 

R0839 

MISSION  PHASES  11  AND  13 

08395 

REF  2 LAST  36 

£4*1662 

MPRETRN 

equals 

DI2TEMP 

0840 

REF  2 LAST  36 

E4*1663 

DTllTEMP 

EQUALS 

DT2TEMPD 

488954A  YJL  SYSieM  FOR  AGC:  NEW  Pr0^9AM  SHePATIN  BY  eYLeS 


dec  n,  1966  (MAIN)  PACE  3/ 


L 

P08A05 

Erasable 

ERASABLh 

ASSIGNMENTS 

storage  eor 

updates 

- NON 

sharable 

USER’S  OWN  PAGF  no.  28 

08A1 

LAi 167T 

EA*  171A 

stbuff 

ERASE  +15 

08A15 

Eh, 1715 

EA’ 1715 

5TCOUNT 

erase 

08A2 

EA , 1 7 1 P 

EA  * 1 7 1 6 

UdOLDMOD 

ERASE 

08A25 

LA,171Y 

EA’1717 

UPTEMP 

ERASE 

08A3 

EA,1720 

EA*1720 

UaTEMPl 

ERASE 

08^f31 

La , 172  1 

EA’ 1721 

UPVERB 

ERASE 

08A32 

LA, 1722 

EA’1722 

compnumb 

ERASE 

RO8A35 

ERASABLt 

. storage  For 

DOWNl  IN< 

limited  sharing  Possible 

08AA 

Eh,  1723 

EA’172a 

TEVENT 

erase 

+ 1 

TIME  OF  GRR, liftoff, ENGINE  ON/OFF 

08AA5 

EA,  1725 

EA’1732 

VDVECT 

ERASE 

+ 5 

VELOCITY  DESIRED 

08A5 

ea,i 733 

EA’17A0 

V GVECI 

erase 

+ 5 

VELOCITY  TO  BE  (,AINeD 

08A55 

Eh , 1 7A1 

EA*17A6 

RD 

ERASE 

+ 5 

position  desired 

08A58 

LA,17A(' 

EA ’ 1 7 50 

TTGO 

erase 

+ 1 

TIME  TO  GO  IN  CfNT I SECONDS , 

08A6 

REF 

1 

erasable 

EA’17A7 

I GO 

equals 

TTGO 

tempory  Definition,  to  be  moved. 

R08A7 

E3AN< 

A 

NON 

Sharable 

LOA'^  STORAGE 

08A75 

EA,1751 

EA’ 1777 

EALOAD 

erase 

2351  - 

2377 

08A8 

REF 

1 

EA  ’ 1752 

MPDT  08 

equals 

EaLOAD 

+ 1 

DELTA  TIME  FROM  MPT  TO  MP8 

08a85 

REF 

2 

LAST 

37 

EA’1752 

MP9-1 IDT 

equals 

EaLOAD 

+ 1 

DELTA  TIME  FROM  MP9  TO  MPII 

08A9 

REF 

3 

LAST 

37 

£A’1753 

MPIITOI3 

Equals 

EaLOAD 

+ 2 

delta  time  from  MPli  TO  MP13 

08A95 

REF 

A 

last 

3 1 

EA  * 1 75A 

RP 

equals 

EaLOAD 

+ 3 

DP  TARGET  PARAMfTER  FOR  DPSI  BURN 

0850 

REF 

5 

LAST 

37 

EA’ 1756 

CPT6/2 

equals 

EALOAD 

+ 5 

Vector  target  parameter  for  dps2  burn 

08505 

REF 

6 

LAST 

37 

EA  * 176A 

RlVEC 

Equals 

EaLOAD 

+ 13 

vector  target  Parameter  for  aps2  burn 

0851 

REF 

7 

Last 

37 

EA’1772 

tint 

equals 

eaLoad 

+ 21 

DP  target  parameter  For  aPS2  burn 

08515 

REF 

a 

LAST 

37 

EA’177A 

RCO 

equals 

eaload 

+ 23 

Dp  target  parameter  for  ApS2  BURN 

A0862 


EALOAD  +25  thru  eaLOAD  +27  ARE  STILL  AVAILABLE 


488954A 

YJL 

system  t-OR  AGC:  mew  Pro'^RAM  SMePATIM  3Y  eYLlS 

OEC  1a* 

1966 

(MAIN)  PaGe  38 

L 

EYASAdLt.  ASSIGNMENTb 

UbEH  • b 

OWN 

PAGp 

NO. 

29 

P0853 

E9ASA3LE5  FoR 

MASS  update 

(A  ^ART  OF  AVeRAOe  G) 

AND 

throttle  control 

R0854 

ISniAL  VALUES  FOR  MAS5 

0855 

REF 

1 

E5’1590 

Masses 

SAVERASE  +260 

0856 

REF 

1 

E5 » 1590 

Lemmassi 

= 

masses 

MASS 

OF 

lem 

JUSi 

after 

sivB  separation 

0857 

REF 

2 last 

38 

£5*1592 

LEMMASS2 

= 

masses  +2 

MASS 

OF 

LeM 

JUST 

after 

DPS  Separation 

RO858 

erasaslcS  For 

MASS  update 

rojtime 

0859 

REf 

2 LAST 

38 

E5  * 1599 

evex 

SAVERASE  +30D 

0860 

REF 

1 

E5  * 1599 

VEXDEX 

EVEX 

0861 

REF 

2 LAST 

38 

E5  * 1595 

PREFORCE 

= 

EVEX  +1 

0862 

REF 

3 LAST 

38 

E5  * 1597 

VEXNOM 

= 

EVEX  +3 

0863 

REF 

9 LAST 

38 

E5*1551 

DELAREA 

= 

EVEX  +5 

086A 

REF 

5 LAST 

38 

£5*1553 

AREARATL 

= 

EVEX  +7 

0865 

REF 

6 LAST 

38 

E5  * 1555 

N EG V EX 

- 

EVEX  +11 

0866 

REF 

7 LAST 

38 

£5*1557 

DAREATMP 

= 

EVEX  +13 

0867 

REF 

8 LAST 

38 

£5*1561 

MASSTEMP 

= 

EVEX  +15 

R0868 

ERASASLF5  FOR 

throttle  CONTPO- 

0869 

KLh 

3 LAST 

38 

c5*1557 

ETHROT 

z 

SAVERASE  +910 

0870 

REF 

1 

£5*1557 

FOLD 

= 

ETHROT 

0871 

REF 

2 LAST 

38 

£5*1561 

FCOLD 

= 

ETHROT  +2 

0872 

REF 

3 LAST 

38 

£5*1562 

FC 

z 

ETHROT  +3 

0873 

ref 

9 LAST 

38 

E5*1569 

PIF 

z 

ETHROT  +5 

0879 

REF 

5 LAST 

38 

£5*1566 

rtnhold 

= 

ETHROT  +7 

48895^A  VJL  SYSIE^^  >-0R  AGC  : NiEW  PkO^RA'^  S^^ePaiIn  3Y  e^LeS  DeC  i3*  i966  (MAIN)  PA^E 

L E^ASA3Ll  ASaIONMENTS  USER'S  0^)N  PAGE  NO.  30 

P0925 


R0926  the  following  ERASABLE  ReGISfERS  ARe  USED  BY  THE  ENTRY  AND  INITIALIZATION  JOB  OF  THp  fCS  TEST  FOR  LeM. 


0928 

REF 

92 

LAST 

35 

EA'1400 

FCSCNTR 

EQUALS 

amemory 

+ OOOD 

R0929 

the  FlLLOi'. 

ING  erasable 

RE<Jl  STER^  are 

used  by  the  JETSET  TASK. 

R0930 

OPinUT,  PReLAUNCH  a C uses  JETSTLP-JeTSTER  +77D 

FOR  RESTART  PROOF) 

0931 

REF 

93 

LAST 

39 

£A  ’ lAOl 

xjbuf 

Equals 

amemory 

+ 001D 

0932 

REF 

99 

LAST 

39 

EA'lAOZ 

YZJBUF 

EQUALS 

amemory 

+ 002D 

0933 

REF 

95 

LAST 

39 

EA  * 1A03 

J F B U F 

EQUALS 

amemory 

+ 003D 

0939 

REF 

96 

LAST 

39 

£A  * lAOA 

FCNTR 

EQUALS 

AMEMORY 

+ooad 

0935 

rzf 

97 

LAST 

39 

EA  ’ 1 AOS 

ThBUF 

equals 

AmEMORY 

+ 005D 

0936 

REF 

98 

LAST 

39 

EA*1A06 

OFFTMBUF 

EQUALS 

AMEMORY 

+ 006D 

0937 

REF 

99 

LAST 

39 

EA’ 1A07 

JETSTEP 

EQUALS 

AMEMORY 

+ 007D 

0938 

R3F 

100 

last 

39 

EA* lA 10 

NT IMES 

equals 

AmEMOkY 

+ 008D 

0939 

REF 

101 

LAST 

39 

EA*1A20 

NEXTTIME 

EQUALS 

AMEMORY 

+ 016D 

0990 

REF 

102 

LAST 

39 

EA*  1A30 

JETONTM 

EQUALS 

AMEMORY 

+ 02AD 

0991 

REF 

103 

LAST 

39 

EA  * 1 AAO 

X JETS 

EQUALS 

AMEMORY 

+ O32D 

0992 

REF 

109 

LAST 

39 

EA’ 1A50 

YZJETS 

EQUALS 

AMEMORY 

+ OAOD 

0993 

REF 

105 

LAST 

39 

EA* 1A60 

JETUFFTM 

EQUALS 

AMEMORY 

+ 0A8D 

ROR99 

the  t 

OLLO 

WING  erasable 

: registeRii  are 

. used  by 

tHE  engine  on-off  TASK. 

0995 

REF 

106 

LAST 

39 

Ea* 1A70 

ENGSTEP 

EQUALS 

AMEMORY 

+ 056D 

0996 

REF 

107 

last 

39 

EA*1A71 

CyLT iMES 

EQUALS 

AMEMORY 

+ 057D 

0997 

REF 

108 

LASI 

39 

EA* iA7A 

NEXTCYLT 

EQUALS 

AMEMORY 

+ 060D 

0998 

REF 

109 

LAS  r 

39 

EA*1A77 

O'jTIME 

EQUALS 

AMEMORY 

+ 063D 

0999 

REF 

110 

last 

39 

EA*1502 

OFFTlME 

equals 

AMEMORY 

+ 066D 

0950 

REF 

111 

LAST 

39 

EA*1505 

OFFT IMeR 

equals 

AMEMORY 

+ 069D 

Ro951 

the  Following  erasable 

R£<^isier^  are 

used  by  the  trim 

TASK. 

0952 

RiF 

112 

LAST 

39 

Ea*  1510 

TRIMSTEP 

EQUALS 

AMEMORY 

+ 072D 

0953 

REF 

113 

Last 

39 

EA’1511 

NJMTIMES 

equals 

amemory 

+ 073D 

0959 

REF 

119 

Las  r 

39 

Ea  * 1 52 5 

stepdlyt 

EQUALS 

AMEMORY 

+ 085D 

0955 

REF 

115 

LASi 

39 

EA  * 1 5A1 

trimont 

equals 

AMEMORY 

+ 097D 

0956 

REF- 

116 

LAST 

39 

EA* 1555 

TRIMOFFT 

EQUALS 

AMEMORY 

+ 109D 

0957 

REF 

117 

LAST 

39 

EA*1571 

TRIMIND 

EQUALS 

AMEMORY 

+ 121D 

R0958 

TH 

IE  FuLLO/ 

ING  erasable 

RE^ISTERP  are 

used  by  the  throttle  task 

. • 

0959 

REF 

118 

LAST 

39 

EA  * 1 605 

thrtstep 

EQUALS 

AMEMORY 

+ I33D 

0960 

REF 

119 

Last 

39 

EA* 1606 

dotimes 

EQUALS 

AMEMORY 

+ 13AD 

0961 

REF 

120 

LAST 

39 

EA  * 161A 

delay 

EQUALS 

AMEMORY 

+ IAOD 

0962 

REF 

121 

LASr 

39 

Ea*1622 

THRITIMe 

equals 

AMEMORY 

+ U6D 

0963 

REF 

122 

LASi 

39 

Ea  * 1630 

THCOMMl 

EQUALS 

AMEMORY 

+ 152D 

39 


48895AA 

r JL 

STbiEf-l  FOR  aGc: 

NEW  Pro'^RA'T  ST^ePATIN  BY  e^Le.S 

Dec  u,  1966 

L 

E7ASA3Ll^  assionmenis 

USER'S  OWN  page  NO. 

096A 

REF 

123  LAST 

39 

E4  * 1636 

THC0MM2 

EQUALS 

AMEMORY  +158D 

Ro965 

iHt 

Foi.LoW  INL 

. erasable  RfGISi 

eRS  are  used  by  the 

: interface  look  task. 

0966 

SEF 

124  LAST 

40 

c4 ♦ 1644 

30BUF 1 

EQUALS 

AMEMORY  +1640 

0967 

REF 

125  last 

40 

E4*1650 

30BUFO 

EQUALS 

AMEMORY  +168D 

0968 

REF 

126  LAST 

40 

E4  » 1 6 54 

QJITLOOK 

EQUALS 

AMEMORY  +172D 

0969 

REF 

127  Last 

40 

E4  • 1655 

ChICNTR 

EQUALS 

AMEMORY  +173D 

0970 

E5» 1400 

SETLOC 

2400 

R0971 

HE 

FOLLOWING 

erasable  lOcATIONIS  are  utilized  by 

the  in-flIghi  Alignment 

ROUTINES 

0973 

E5*1400 

£5» 1421 

XSM 

erase 

+ 17D 

0974 

REF 

1 

E5n406 

YSM 

XSM  +6 

0975 

REF 

2 LAST 

40 

E5»1414 

ZSM 

= 

XSM  +12D 

0976 

E5,1422 

E5»1443 

XDC 

erase 

+ 170 

0977 

REF 

1 

E5  * 1430 

YOC 

XOC  +6 

0978 

REF 

2 LAST 

40 

£5*1436 

ZDC 

= 

XDC  +12D 

0979 

REF 

3 LAST 

40 

E5’1422 

XNB 

= 

XDC 

0980 

REF 

4 Last 

40 

E5’1430 

YNB 

- 

XDC  +6 

0981 

REF 

5 LAST 

40 

E5*1436 

ZNB 

XOC  +12D 

0982 

E5  * 1 444 

E5  * 1465 

ST  ARAD 

ERASE 

+ 17D 

0983 

£ 5 1 1 468 

E5’1473 

star 

ERASE 

+ 5 

0984 

E5 .14  7A 

E5*1475 

SAC 

ERASE 

+ 1 

0985 

E5 .1476 

E5*1477 

PAC 

ERASE 

♦ 1 

0986 

E5.1500 

E5*1501 

OGC 

ERASE 

+ 1 

0987 

E5.1502 

£5  * 1503 

ISC 

ERASE 

+ 1 

0988 

E5.150A 

E5*1505 

MSC 

ERASE 

+ 1 

0989 

0026 

ZPRIME 

= 

22D 

0990 

0026 

PDA 

= 

22D 

0991 

0020 

CDSTH 

= 

16D 

0992 

0022 

SINTH 

= 

18D 

0993 

0024 

THETA 

= 

20D 

0994 

0040 

STARM 

= 

32D 

R0995 

The  following  erasable  locAIidns  are  utilized  by 

The  system  tests 

0996 

E5.150O 

C.5  * 1 507 

AZIMUTH 

ERASE 

+ 1 

0997 

E5.1510 

£5*1511 

LATITUDE 

ERASE 

+ 1 

0998 

E5.1512 

£5*1512 

EROPTN 

ERASE 

0999 

E5.1513 

£5*1520 

ERVECTOR 

ERASE 

+ 5 

1000 

E5..  1521 

£5*1526 

GYROD 

ERASE 

+ 5 

1001 

E 5 . 1 5 2 T 

£5*1527 

LENGTHOT 

ERASE 

1002 

E5 . 1 53O 

£5*1535 

LDSVEC 

ERASE 

+ 5 

1003 

E5.1536 

£5*1536 

nbpos 

ERASE 

1004 

E5.1537 

£5*1537 

NDXCTR 

ERASE 

1005 

E5.1540 

£5*1 540 

PIPANO 

ERASE 

^0 


48895^A  YJL  SYSiLM  TOK  AGC;  MEW  PROti^A^l  5HEPAII1N  BY  EYLES 


DEC  U,  1966  (MAIM)  PAGE  Al 


L 

E7AbA3L 

E ASi 

igmmenfs 

USER'S  OWN  page  NO.  32 

1006 

fc"5,15Al 

E5 ’ 1 5A 1 

PlPlNDEx 

erase 

1007 

E5»15A<^ 

E5  * 1 5A3 

PlPMDX 

erase 

+ 1 

1008 

E5  * 1 5AA 

E5’15AA 

POSITON 

erase 

1009 

t5»15A5 

E5 . 1 545 

QPLAC 

erase 

1010 

L5*15A6 

E5 ’ 1 5A6 

apLACE 

ERASE 

1011 

L 5 » 1 5 A7 

E5+15A7 

QPLACES 

erase 

1012 

L5 » 1 55O 

E5  * 1 550 

RJN 

ERASE 

1013 

b5*155l 

E5+1551 

SIOREPL 

ERASE 

lOlA 

E5.1552 

E5  * 1 552 

SOUTHDR 

ERASE 

1015 

E5  1 1 553 

E5 • 1 560 

T AZELl 

ERASE 

+ 5 

1016 

L5 , 1561 

85*1562 

TEMPI IM8 

ERASE 

+ 1 

1017 

L5 .1563 

85*1563 

TESTMO 

ERASE 

1018 

85.156“+ 

E5  * 1 565 

TMAKK 

ERASE 

+ 1 

1019 

E5.1566 

E5*1566 

shafta 

ERASE 

1020 

E5.1567 

85*1567 

T R JMA 

ERASE 

1021 

E5 . I57O 

E5  * 1776 

G8NPL 

ERASE 

♦ 13AD 

1022 

REF 

1 

85*1570 

CDUl IM8I 

I 

GENPL 

1023 

REF 

2 

LAS  1 

A1 

85*1572 

CDUT 1M8F 

= 

GENPL 

+ 2 

102A 

REF 

3 

LA51 

A1 

E5*157A 

CDUDANG 

GENPL 

+ A 

1025 

REF- 

A 

LAST 

A1 

E5*1575 

cdureadf 

= 

GENPL 

+ 5 

1026 

REF 

5 

LAST 

A1 

85  * 1576 

CDUR8ADI 

= 

GENPL 

+ 6 

1027 

REF 

6 

LAST 

A1 

85*1577 

CDULIMIT 

■ 

GENPL 

+ 7 

1028 

REF- 

7 

LASl 

A1 

E5 ’ 1 57a 

1 empadd 

GENPL 

+ A 

1029 

REf 

8 

LASI 

A1 

E5*1575 

temp 

= 

GENpL 

+ 5 

1030 

REF 

9 

LASl 

A1 

E5  * 1576 

NOBiTS 

GENPL 

+ 6 

1031 

REF 

10 

LASl 

A1 

E5*1577 

Cham 

GENPL 

+ 7 

1032 

REF 

11 

LASl 

Al 

85*1600 

LDSi 

GENPL 

+ 8D 

1033 

ref 

12 

Last 

A1 

85*1606 

LDS2 

= 

GENpL 

+ 1AD 

103A 

REF 

13 

LAST 

Al 

85’161a 

CaLCDIR 

equals 

GtNPL 

+ 20D 

1035 

REF 

lA 

LAST 

Al 

E5*1615 

cduflag 

equals 

GENPL 

+ 21D 

1036 

REF 

15 

LASl 

Al 

85*1616 

gytubetq 

EQUALS 

GENPL 

+ 22D 

1037 

REF 

16 

LAST 

Al 

E5*1617 

optmreg 

EQUALS 

GENPL 

*23D 

1038 

REF 

1 7 

LAST 

Al 

85*1620 

SAVE 

EQUALS 

GENPL 

+ 2AD 

THREE  CONSEC  1 Oc 

1039 

REF 

18 

LAST 

Al 

85*1623 

SFCONST 1 

EQUALS 

GENPL 

+ 27D 

lOAO 

REF 

19 

LASl 

Al 

E5’162A 

timer 

EQUALS 

GeNPL 

+ 28D 

lOAl 

REF 

20 

LAST 

Al 

85*1626 

DATAPL 

EQUALS 

GENPL 

+ 30D 

10A2 

REF 

21 

LAST 

Al 

85*1570 

RDSP 

EQUALS 

GENPL 

FIX  LATER  POSaIBLY  KEEPl 

10A3 

REF 

22 

LAST 

Al 

85*1670 

MASKREG 

EQUALS 

GENPL 

+ 6 AD 

lOAA 

REF 

23 

LAST 

Al 

85*1672 

CDUMDX 

EQUALS 

GeNPL 

+ 66D 

10A5 

REF 

2A 

LAST 

Al 

85*1673 

RESULTCT 

equals 

GeNPL 

+ 67D 

1 0 A6 

REF 

2 5 

LAST 

Al 

85  * 1676 

coumtpl 

equals 

GENPL 

+ 70D 

10A7 

REF 

26 

LAST 

Al 

85*1677 

CDUANG 

equals 

GENPL 

+ 71D 

10A8 

ref 

27 

last 

Al 

£5*1570 

At  NlA 

GENPL 

110  dec  or  156  OCT  locations 

^8895^A  YJL  SYSIEI'I  f OR  A&C:  NtW  PROOR^vi  sHtPATIfJ  BY  EYLE-S 
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L 

erasabl 

assignments 

USER'S  OWN  PaGF  NO.  33 

10A9 

REF 

1 

E5’1570 

^ANGO 

equals 

AXNLA 

vert  erate 

1050 

REF 

2 

last 

42 

E5’1572 

WANGl 

equals 

AINLA  +20 

HORIZONTAL  ERATf 

1051 

REF 

3 

Last 

42 

E5n574 

tVANGT 

equals 

AINLA  +40 

T 

1052 

REF 

1 

E5n574 

TORGNDX 

= 

WANGT 

1053 

REF 

4 

Last 

42 

E6  * 1 576 

DRIFTT 

equals 

AINLA  +60 

105A 

REF 

5 

last- 

42 

£5’1600 

ALXlS 

equals 

AINLA  +80 

1055 

REF 

6 

last 

42 

E5»160l 

CMPXl 

EQUALS 

AINLA  +90 

INO 

1056 

REF 

7 

LAST 

42 

E5 ’ 1602 

AL< 

EQUALS 

AINLA  +100 

GAINS 

1057 

REF- 

8 

LAST 

42 

E5*1616 

VLAUNS 

equals 

AINLA  +220 

1058 

REF 

1 

E5’1616 

THETAX 

= 

VLAUNS 

1059 

REF 

9 

LAST 

42 

E5  * 1620 

WPLATO 

EQUALS 

AINLA  +240 

1060 

REF 

10 

LAST 

42 

E5  *1624 

INTY 

EQUALS 

AINLA  +280 

SOUTH  PIP  INTF 

1061 

REF 

11 

LAST 

42 

E6’1626 

ANGZ 

equals 

AINLA  +300 

EAST  AXIS 

1062 

REF 

12 

LAST 

42 

E5  * 1630 

INTZ 

EQUALS 

AINLA  +320 

EAST  PIP  I 

1063 

REF 

13 

LAST 

42 

E5*1632 

ANGY 

equals 

AINLA  +340 

SOUTH 

106A 

REF 

1 

£5*1624 

TRETAN 

= 

INTY 

1065 

REF 

14 

LAST 

42 

E5  * 1 634 

ANGX 

equals 

AINLA  +360 

VE 

1066 

REF 

15 

last 

42 

E5*1636 

DRIFTO 

EQUALS 

AINLA  +380 

VERT 

1067 

REF 

16 

LAST 

42 

£5*1640 

DRIF  ri 

equals 

AINLA  +400 

SOU 

1068 

REF 

1 J 

LAST 

42 

E5 ’ 1644 

VLAUN 

EQUALS 

AINLA  +440 

1069 

REF 

1 

E5  * 1644 

FlLDELV 

VLAUN 

1070 

REF 

18 

LAST 

42 

E5  * 1646 

ACCWD 

equals 

AINLA  +460 

1071 

REF 

1 

£5  * 1646 

INTVEC 

= 

AGCWO 

1072 

REF 

19 

LAST 

42 

£5*1654 

PDSNV 

equals 

AINLA  +520 

1073 

REF 

20 

LAST 

42 

E5*1656 

DPIPAY 

equals 

AINLA  +540 

SOUTH 

107A 

REF 

2 1 

last 

42 

£5*1662 

OPIPAZ 

EQUALS 

AINLA  +580 

NORTH  PIP  INCREMENT 

1075 

REF 

22 

LAST 

42 

£5  * 1664 

ALTIM 

EQUALS 

AINLA  +600 

1076 

REF 

23 

LAST 

42 

E5*1665 

ALTIMS 

EQUALS 

AINLA  +610 

INDEX 

1077 

REF 

24 

LAST 

42 

£5*1666 

ALDK 

EQUALS 

AINLA  +620 

time  CONSTAN 

1078 

REF 

25 

last 

42 

£5*1704 

DELM 

EQUALS 

AINLA  +760 

1079 

REF 

26 

LAST 

42 

£5*1714 

WPLATI 

EQUALS 

AINLA  +840 

1080 

REF 

27 

LAST 

42 

£5*1716 

GEOSAVEO 

equals 

AINLA  +860 

1061 

REF 

28 

LAST 

42 

£5*1717 

PREMTRXC 

EQUALS 

AINLA  +870 

1082 

rhf 

29 

last 

42 

£5  * 1720 

prelmtrx 

equals 

AINlA  +88D 

1083 

REF 

1 

£5*1720 

TRANSMl 

PRELMTRX 

108A 

REF 

30 

LAST 

42 

£5*1742 

GEOCOMPS 

EQUALS 

AINLA  +1060 

1085 

REF 

31 

LAST 

42 

£5*1743 

gtsopnoz 

EQUALS 

AINLA  +1070 

1086 

REF 

32 

LAST 

42 

c5  * 1 744 

ISECXT 

EQUALS 

AINLA  +1080 

1087 

REF 

33 

LAST 

42 

£5*1745 

GTSWTLST 

EQUALS 

AINLA  +1090 

1088 

REF 

34 

LAST 

42 

£5*1746 

ERECTIML 

EQUALS 

AINLA  +1100 

1089 

REF 

35 

LAST 

42 

£5*1747 

geomtrx 

EQUALS 

AINLA  +1110 

1090 

REF 

36 

LAST 

42 

£5*1771 

ERCOMP 

equals 

AINLA  +1290 

1091 

RlF 

37 

LAST 

42 

£5*1777 

ZERONDX 

EQUALS 

AINLA  +1350 

1092 

ref 

28 

LAST 

41 

£5*1570 

bmemory 

equals 

GENpl 

1093 

REF 

2 

LAST 

22 

0405 

DELVY 

EQUALS 

OLLVX  +2 

109A 

REF 

3 

LAST 

42 

0407 

UELVZ 

EQUALS 

DELVX  +4 

48895^A  YJL  SYSi^M  rOK  AGC:  Nflf.  PkO^J^Avl  SH^PATIN  3Y  tYLt5i 


DtC  13,  1966  (MAIN)  PAGE  AA 


L E9ASA3LE  ASSIGNMENTS 


R1095 

TUMBLE  MONIIOR 

1096 

REF 

1 

E6.1A11 

pcdux 

equals 

E 

1097 

REF 

1 

E6»1A12 

PCDUY 

EQUALS 

EDOT (2) 

1098 

REF 

1 

E6' 1A13 

PCDUZ 

equals 

ER 

1099 

REF 

1 

£6*1917 

DCDUY 

EQUALS 

OMEGAQ 

1100 

REF 

1 

£6*1921 

DCDUZ 

EQUALS 

OMEGAR 

1101 

1102 

REF 

1 

£6*1923 

E7*1900 

OMEGA 

EQUALS 

SEILOC 

EDOTP 

3900 

R1103  DOWNLINK  STORAGE. 


1109 

E7,l900 

£7*1900 

LDATALST 

ERASE 

1105 

E7,1901 

E7*1901 

DNTMGOTO 

ERASE 

1106 

E7,190Z 

£7*1902 

TMINDEX 

ERASE 

1107 

E7 , 1903 

£7*1903 

DNQ 

ERASE 

1108 

£7,1909 

£7*1931 

DNTM6UFF 

ERASE  +21D 

R1109  RAC'AR  TEST  STORAGE* 


1110 

E7,193Z 

E7*1932 

£7*1933 

£7*1939 

rtstdex 

RTSTMAX 

RTSTBASE 

ERASE 

1111 

A1112 

1113 

E7 , 1933 

£7,1939 

ERASE 

ERASE 

1119 

£7,1936 

£7*1935 

RT  STLOC 

ERASE 

1115 

REF 

1 

£7*1935 

RSTKLOC 

EQUALS 

RTSTLOC 

1116 

£7,1936 

£7*1936 

RSAMPDT 

erase 

A1117 

1118 

E 7 , 1 9 3 7 

£7*1937 

RFAILCNT 

ERASE 

1119 

EV ,1990 

E7*1597 

RSTACK 

ERASE 

+ 71D 

R1120 

A5S 

INI  i 

i IALiZATION 

1121 

E7,1550 

£7*1603 

AGSbUFF 

ERASE 

+ 27D 

R1122 

ST:j 

KA^Jt  fuK  iNblT 

anneR. 

1123 

£7,1609 

£7*1606 

LAST30 

ERASE 

+ 2 

1129 

£7,1607 

£7*1607 

msgcnt 

ERASE 

R11292 

the 

CoMFtuRs 

Registers  are  Redundant  with  thetan 

FOR  DOWNLINK  PURPOSES. 

11299 

£7,1610 

£7*1615 

COMPTORK 

ERASE 

+ 5 

R1125 

used  For  c 

onseoutive 

ASSIqNMe. 

as  FOR 

seRviceR 

Restart 

1126 

£5*1 506 

SAVLRASE 

EQUALS 

2506 

1127 

REF 

9 

LAST 

38 

£5*1506 

DVTOTAL 

EQUALS 

SAVERASE 

+ 000D 

1128 

R EF 

5 

LAST 

93 

£5*1511 

DYCNTR 

equals 

SAVERASE 

+ 003D 

1129 

REF 

6 

LAST 

93 

£5*1512 

PIPCTR 

EQUALS 

SAVERASE 

+ 009D 

1130 

REF 

7 

LAST 

93 

£5*1513 

VR 

EQUALS 

SAVERASE 

*005D 

1131 

REF 

a 

LAS  1 

93 

£5*1522 

V3CNTR 

EQUALS 

SAVERASE 

+ 0I2D 

1132 

REF 

9 

LAST 

93 

£5*1523 

ERRQRSUM 

EQUALS 

SAVERASE 

+ 013D 

USER'S  OWN  PAGF  no.  3A 


RETURN  ADDRESS  nF  DOWNLINK  SUBROUTINES 
SNAPSHOT  BUFFER. 


66  FOR  HI  speed,  6 FOR  LOW  SPEED  RR, 

AND  18  FOR  LOW  sPEEO  LR. 

USED  FOR  CYCLIC  SAMPLING. 

GOES  0(6)RTSTMAX 

PNZ  FOR  CYCLIC  SAMPLING,  -I  FOR  HI  SPEED 

insert  +0  Here  manually  to  terminate  tst 
buffers  for  radar  TfSIING. 


LAST  sampled  INRITS. 


V,  S,  E GYROCOMPASS  GYRO  TORQUES. 


48895^A  YJL 

SYSltM  f OK  agc:  Ke." 

PKOC’RA'I  SKltPATlN  BY  pYLtS 

Dec  U,  lg66  (MAIN)  PAGE  AA 

U 

t7ASA3LL  ASSIONMtNIS 

USER'S  OrtN  PaGF  no.  35 

1133 

REF 

10  LAST 

A3 

E5*1531 

OIFFANG 

equals 

saverase 

+ 0190 

113^ 

REF 

11  LAST 

AA 

E5’1533 

strlxit 

equals 

saverase 

+ 0210 

1135 

R^F 

12  last 

AA 

E5*153A 

AbDLLV 

Equals 

SAVErAsE 

+ 022d 

1136 

1137 

REF 

REF 

13  last 
lA  LAST 

AA 

AA 

£5*1536 

E5*1537 

SWITCH 

nfgxdv 

EQUALS 

equals 

saverase 

savfrasf 

+ 2A0 
+ 250 

48895^A  Y jl  SySIEm  fOK  AGc!  NtW  pROti^AVi  SHEPATIN  BY  EYLf-'^ 


L E'^ASABEt  assignments 


P1138 

Digital 

AUTO 

Pilot  erasable  taxes  op  ebamk  6: 

Rl  139 

these 

TaO  ARE  GOING 

TO  move 

when  RALCMANU  CCMeS 

INTO  sunburst: 

llAO 

b6* lAOO 

SETLOC 

3000 

RlUl 

AXIS 

TRANSFORMATION 

matrix  - 

=1-01  TO  1 

GIMBAL  axes: 

11A2 

Eb , 1 AOO 

Eb’lAOO 

MR12 

ERASE 

1 1A3 

E6 , 1 aO  1 

Eb»lA01 

MR  2 2 

erase 

llAA 

E6 , I a02 

Eb«lA02 

MR13 

ERASE 

HAS 

E6,1A03 

Eo*lA03 

MR23 

ERASE 

R11A6 

AXIS 

TRANSFC 

RMATION 

iMATRIX  “ 

sihbal  to 

PILOT  axe 

j : 

11A7 

E6,1aOA 

Eb  • 1 AOA 

Mil 

ERASE 

11A8 

E6,1a05 

E6  * 1 AOS 

M21 

ERASE 

11A9 

t6,lA06 

E6*lA0b 

M31 

ERASE 

1150 

REF 

1 

Eb'lAOl 

M22 

EQUALS 

MR22 

1151 

REF 

1 

E6*1A03 

M32 

EQUALS 

Mk23 

R1152 

ANGLE 

measurements. 

1153 

E6,1aOT 

Eb, lAlO 

EDOT 

ERASE 

+ 1 

115A 

REF 

1 

Eb’lAlO 

EDOT(R) 

equals 

EDOT  +1 

1155 

E6,  T'tl  1 

E6’1A12 

E 

ERASE 

+ 1 

1156 

REF 

2 

LASl 

A3 

Eb*lA12 

EDOT (2) 

EQUALS 

E +1 

1157 

REF 

3 

LAST 

A 5 

E6»  lAll 

£0 

EQUALS 

E 

1158 

REF 

2 

LAST 

A3 

E6*1A12 

ED0T(2)Q 

EQUALS 

EDOT (2) 

1159 

E6,1a13 

Eb*lAlA 

ER 

ERASE 

+ 1 

1160 

REF 

2 

LAS; 

A3 

Eb  * 1 A 1 A 

EDOT (2)R 

EQUALS 

ER  +1 

1161 

E6,1AiS 

E6 ’ lA i5 

DB 

ERASE 

1162 

E6,1a16 

Eb*lA22 

OMEGAP 

ERASE 

+ 4 

1163 

REF 

1 

Eb'lA17 

OMEGAQ 

EQUALS 

OMEGAP  + 

1 1 6 A 

REF 

2 

LAST 

A5 

Eb»lA20 

ALPHAO 

EQUALS 

OMEGAP  +, 

1165 

REF 

3 

LASl 

A5 

EbnA21 

OMEGAR 

equals 

OMEGAP  +: 

1166 

REF 

A 

LASl 

A5 

£6*1A22 

ALPHAR 

EQUALS 

OMEGAP  +■ 

1167 

Lb , 1 a23 

Eb’lA25 

EDOTP 

ERASE 

+ 2 

1168 

ref 

2 

LASl 

A3 

E6*1A2A 

EdOTO 

equals 

EdOTP  +1 

1169 

REF 

3 

LASl 

A5 

E6»1A25 

EDOTR 

EQUALS 

EDOTP  +2 

1170 

REF 

1 

E6’1A2A 

qratldif 

EQUALS 

EDOTO 

1171 

REf 

1 

Eb  * 1 A25 

rratedif 

equals 

EdOTR 

1172 

L6,1a26 

Eb*lA31 

OLDXFORP 

erase 

+ 3 

1173 

REF 

1 

E6'1A2/ 

OLDYFORP 

equals 

OLDXFORP 

DEc  Is*  1966  (mAIN)  pAGE  AS 


USER'S  OWN  page  no.  36 


SCALED  AT  2 

scaled  at  1 
scaled  at  2 

SCALED  AT  1 


TlESE  four  P-G  MAiRIX  ELE- 
MENTS are  in  This  order  to 

CnMPUTE  rate  HOLD  DELCDUS 

with  an  indexed  Loop 


SCALED  AT  1 
SCALED  AT  1 

SCALED  AT  1 
SCALED  AT  1 


error  in  angular  RATE: 

SCALED  DOWN  TO  PI/l6  RADIANS/SECOND 

angle  error  SCAi  ED  AT  PI  RADIANS 
ERROR  RATE  SqUArED  SCALED  AT  plr2)/16 
THIS  PAIR  OF  NAhES  IS  USeD  TO  RfFER  TO 
THE  ABOVE  ERASArLeS  AS  0-AXIS  DATA 
THIS  PAIR  OF  NAkES  REFERS  TO  LOrATIONS 
FOR  THE  R-AXIS  DATA:  INTERCHANGES  WITH  U 

angle  deadband  sCaLeD  ai  pi  radians 

BODY-AXIS  ROT.  k'ATES  SCALED  AT  Pl/A  AND 
BODY-AXIS  accelerations  SCALED  AT  PI/8 
(IN  DESCENT)  OR  Pl/2  (IN  ASCENT) 

THESE  W,A  PAIRS  ARE  NEEDED,  ALPhAP  HAS 

NO  USE  IN  the  Digital  autopilot 
errors  in  angular  Rate: 

EdOT  = 3MEGA  - r.MEQA  (DESIRED) 
scaled  at  PI/A  RADIANS/SeCONd 

ALTERNATIVE  NAMiS: 

delete  when  no.  oe'  reference^  = 0 

stored  cdu  Readings  for  p and  o,r  rate 
Derivations:  scaled  at  pi  radia.is  (2*S) 


48895^A  YJL  S>bTEI'i  ^ OR  AGC  : MEW  Pro‘^RA'1  SHePatIN  3Y  eYLES 
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L erasable  assignments  USER'S  OWN  PAGE  NO.  37 


1174 

REF  2 LASi  95 

E6»1430 

OLDYFORO 

equals 

OLDXFORP 

+ 2 

(THERE  must 

Be  TWO  regiGteRG  for  CDUY 

1175 

R£F  3 last  46 

E6«1431 

0LD2F0RQ 

equals 

OLDXFORP 

+ 3 

since  p and 

O.R  ARE  NOT  IN  PHASe) 

R1176 

RHC  INPUTS  scaled  AT  Pl/4  RA^/SEC* 

1177 

E6 » 1432 

E6U432 

PCOM 

ERASE 

1178 

E6,1433 

E6'1433 

RCOM 

ERASE 

1179 

E6,1434 

E6*1434 

YCOM 

ERASE 

RH80 

RHC  COUi.TER  REGISTERS. 

1181 

0043 

P-RHCCTR 

EQUALS 

43 

1182 

0042 

0-RHCCTR 

EQUALS 

42 

1183 

0044 

R-RHCCTR 

equals 

44 

R118^ 

other  Variables. 

1185 

Lo,1433 

E6'1435 

rjETSlGM 

ERASE 

=+/-BITl  TO 

SHOW  SIGN  OF  P-AxIS  ROTATION 

1187 

E6.1439 

£6*1436 

PRATECOM 

ERASE 

1188 

E6.1437 

£6*1437 

EDOTGEN 

ERASE 

1189 

E6 . I44O 

E6*1440 

RATEDIF 

ERASE 

1190 

E6, I44I 

E6  * 1441 

1/2JTSP 

ERASE 

1191 

Eb . 1442 

E6*1442 

FPQR 

ERASE 

1192 

£6.1443 

£6*1443 

MINRA 

ERASE 

1193 

£6.1444 

£6  * 1444 

MINRASQ 

ERASE 

1194 

£6.1 443 

£6*1445 

HDAP 

ERASE 

1195 

REF  1 

£6*1445 

PCTl 

EQUALS 

HDAp 

1196 

E6. 144t> 

£6*1446 

U 

ERASE 

1197 

E6 . 144  7 

£6*1447 

DENOM 

erase 

1198 

E6 . 1 450 

£6*1450 

RATIO 

ERASE 

1199 

E 6 . 145 1 

£6*1451 

L.PVT-CG 

ERASE 

1200 

£6.1452 

£6*1452 

IXX 

ERASE 

1201 

£6  ♦ 1453 

E6’1453 

I YY 

ERASE 

1202 

Eo . 1454 

£6  * 14  54 

IZZ 

ERASE 

1203 

E6.145S 

£6*1455 

4JETT0R< 

ERASE 

1204 

£6.1456 

E6  * 1456 

JETT0RK4 

ERASE 

1205 

£6.1457 

£6  * 1457 

COSMG 

ERASE 

1206 

REF  3 LAST  12 

0062 

DELTAP 

EQUALS 

ITEMP2 

1207 

£6.1460 

£6*1460 

FPQRMIN 

ERASE 

1208 

£ 6 . 1 4 6 1 

£6*1461 

NJET 

ERASE 

1209 

£6.1462 

£6*1462 

PRATEDIF 

ERASE 

1210 

£6.1463 

£6*1463 

lastper 

ERASE 

these  6 REG 

USER  for  ATT  ERR  DISPLAY 

1211 

£6 .1464 

£6  * 1464 

lastqer 

ERASE 

1212 

£6.1463 

£6*1465 

LASTRER 

ERASE 

1213 

E b . 1 '+  6 6 

£6  * 1466 

perror 

ERASE 

1214 

£6 . 146  7 

£6*1467 

QERROR 

ERASE 

1215 

Eb.1470 

£6*1470 

RERROR 

ERASE 

R1216 

JET  staie  Change  variaeles- 

time  uufjtchg) .jet 

3ITS  WRITTEN  NOW 

R1217 

(JISOr.NOW).  and  jet  bus  WriuE''*  at 

T6  RUPT  (JTSAtCHG) 

• 

48895'+A  YJL  SySie:^i  HOR  AGC:  Nfrt  Pt^O'JRA'I  S^t^PArlN  BY  pYLfS 
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L ERAbABLt  assignments 


1218 

E6,l47l 

Eb»lA71 

JTSONNOw 

ERASE 

1219 

Eb,  1471! 

Eb*lA72 

JTSATCHG 

ERASE 

1220 

E6, 1473 

Eb'lA73 

ADDTbJTS 

ERASE 

1221 

Efa,l‘,7A 

£b*lA7A 

ADDTLTb 

ERASE 

1222 

Eb, I47S 

Eb*  U7S 

TOFJTCHG 

ERASE 

1223 

Eb  * 1 47^ 

Eb’147b 

-RATEDB 

ERASE 

1224 

Eb , 1 477 

iLb»l477 

-2JETlIM 

ERASE 

R1225 

Rcs  failure  Monitor  erasable 

. arugram 

ON  T4RUPT 

4 TIMES/SECOND 

R1226 

FAILSW  capability  EoR  CHe 

:<OUI  ONLY 

1227  E6,lb00  Eb'1500  FAILSw  ERASE 


1228 

E;6,1501 

Eb'1501 

LASTFAIL 

erase 

1229 

E-6  f 1 

Lb*1502 

CH5MASK 

erase 

1230 

E6  5 1 b03 

Eb*1503 

CHbMASK 

ERASE 

1231 

REF 

3 last 

12 

OObl 

FAILCIR 

EQUALS 

iTEMPi 

1232 

REF 

4 last 

46 

00b2 

FAILT  emp 

equals 

ITEMP2 

R1233 

O'R 

AXIS  erasables 

1234 

REF 

5 LAST 

47 

00b2 

DELq 

EQUALS 

nEMP2 

1235 

REF 

4 LAST 

12 

0063 

DELTAR 

EQUALS 

1TEMP3 

123b 

Lo 1 1604 

Eb’  1505 

URGENCYQ 

ERASE 

+ 1 

1237 

£6*1506 

Eb  *1507 

URGENCYR 

ERASE 

+ 1 

12371 

REF 

1 

OObb 

URGLIMIT 

= 

ITEMPb 

1238 

b6*15l0 

Eb'1510 

A + B 

ERASE 

1239 

E6  * 1 5 1 1 

Eb'1511 

A-B 

ERASE 

1240 

btj  * 1 5 1 2 

E6'1512 

TERMA 

ERASE 

1241 

tb  * 1 5 1 ^ 

Eb'1513 

termb 

ERASE 

1242 

£6*151^ 

Eb*1514 

DISPLACT 

erase 

1243 

tb  * 1 5 1 ^ 

Eb'1515 

POLTEST 

ERASE 

USER'S  OWN  page  no.  38 


IF  POSITIVE  NO  RCSMONITi  OTHERWISE  0 

LAST  failure  CHANNEL  RECORD,  -0  INITIAL 
MASKS  FOR  turning  ON  P/Q,R  JETS 
IN  OUTPUT  channels  5 AND  6 
BIT  POSITION  counter  (INTERNAL) 

temporary  Record  of  failed  bits 


FLAG  FOR  EIGHtBaLL  ATT.  ERROR  DISPLAY. 
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L E^ASAdLl  assignments  USER'S  OWN  PaGf  NO.  39 


PI2AA 

trim 

1 oIi-iBAL 

CuNTROL 

LAW  eraSables: 

R12A5 

the 

FoLLowr.G  assignments  qF 

ru=tRe<ss  and  IteMPS 

HAS  Been  made  in 

AN  effort  ' 

TO  optimize  use  of  ERASABLes: 

12A7 

REF 

1 

00  TO 

K.2THETA 

EQUALS 

RURTREGi 

D.P. 

K(2)THeTA  and  "NeGUSUM" 

12A8 

REF 

1 

0071 

ETHETA 

EQUALS 

RUPTREG2 

S.p. 

error  ANgLf  scaled  at  PI/64  RADIANS 

12A9 

REF 

1 

0072 

A2CNTRAL 

equals 

RUPTREG3 

D.P. 

ALPHA(2)  scaled  at  PI(2)/64  R/S(2) 

1250 

R£F 

2 LAS] 

48 

0072 

SFl 

equals 

RUPTREG3 

S.P. 

variable  Scale  factors  which  are 

1251 

REF 

3 last 

12 

0073 

5F2 

equals 

ruptreGa 

S.P. 

_ REALLY  SiNGLf  BITS  (OR  ZeRO) 

1252 

REF 

4 LASI 

A7 

0061 

omega. < 

equals 

ITEMPI 

D.P. 

UMEGA*K  supercedes  K and  K(2) 

1253 

REF 

5 LAST 

A8 

0061 

KCENT  RAL 

EQUALS 

1 TEMPI 

^ • P • 

K FROM  KO  nR  KR  FIRST  AT  Pl/2(8) 

125A 

ref 

6 LASI 

47 

0062 

K2CNTRAL 

equals 

ITEMP2 

S.P. 

K(2)  FROM  0 OR  R 1ST  at  Pl(2)/2(16) 

1255 

REF 

5 last 

47 

0063 

WCENTRAL 

EQUALS 

iTEMPs 

S.P. 

OMEGA  SCALfD  At  PI/4  RAD  I ANS/SECOND 

1256 

REF 

3 last 

12 

0064 

acentral 

EQUALS 

1TEMP4 

s.p. 

ALPHA  SCALfD  At  Pl/e  RAD/SfC(2) 

1257 

REF 

2 LAST 

12 

0065 

Del 

EQUALS 

I I empb 

s.p. 

SGN (FUNCTION) 

1258 

REF 

2 LASI 

A7 

0066 

QRCNTR 

equals 

1 T EMP6 

s.p. 

COUNTER:  Q,Y=0,  R,Z=2 

R1259 

the 

above  quantities 

are  ONLt 

NeE^'eD  on 

A Very  temporary 

BASIS  AND 

have  Been 

proven  to  fe  non-conflictIng. 

1261 

b6*1516 

E6 ’ 1 5 lo 

1 USR 

ERASE 

1262 

Et.,15l7 

E6>151  7 

MULTFLAG 

ERASE 

INDICATOR  for  SpDPMULT  ROUTINE 

1263  E6,1520  E6’1521  FUNCTION  ERASE  +1  D.P.  WORD  FOR  DRIVE  FUNCTIONS 


1264 

E6.1522 

E6’ 1524 

neguq 

ERASE 

+ 2 

negative  of  O-AxIS  gIMbAL  drive 

1265 

REF 

1 

E6’1523 

thrstcmd 

EQUALS 

neguq  +1 

THRUST  COMMAND  4T  16384  LBS  (SEPARATOR) 

1266 

REF 

2 

LAST 

48 

E6*1524 

negur 

equals 

neguq  +2 

negative  of  R-AxIS  GIMBAL  DRIVE 

1267 

E6»  i52^> 

E6’ 1530 

KQ 

ERASE 

+ 3 

.3ACCDOTQ  scaled  at  PI/2(8) 

1268 

ref 

1 

E6 ’1526 

Ko2 

equals 

KO  +1 

KQ2  = kQttkQ 

1269 

REF 

2 

last 

48 

E6*1527 

KRDAP 

equals 

KQ  +2 

.3  ACCDOTR  SCALfD  At  PI/2(8) 

1270 

REF 

3 

LAST 

48 

E6*1530 

KR2 

equals 

KQ  +3 

KR2  = KRJtKR 

1271 

E6  * 1 1,3  1 

E6»l534 

ACCDOTO 

ERASE 

+ 3 

Q-JERK  SCALED  AT  PI/2(7)  UNSIGNED 

1272 

ref 

1 

E6  ’1532 

QACCDOT 

EQUALS 

ACCDOTO  +1 

0-JERK  SCALED  AT  pI/2(7)  SIGNED 

1273 

REF 

2 

LAST 

48 

E6’1533 

ACCDOTR 

equals 

ACCDOTO  +2 

R-JERK  scaled  At  PI/2(7)  UNSIGNED 

1274 

REF- 

3 

LAST 

48 

E6 ’ 1 534 

raccdot 

equals 

ACCDOTQ  +3 

R-JERK  SCALED  At  PI/2(7)  SIGNED 

1275 

REF 

1 

E6 » 1467 

QDIFF 

EQUALS 

qerror 

ATTITUDE  ERRORS: 

1276 

REF 

1 

E6’ 1470 

RDIFF 

EQUALS 

rlrror 

scaled  at  pi  RAlIANS 

1277 

E6,153S 

E6*1535 

TIMeOFFQ 

erase 

times  to  go  until  trim  GIMBAL  TJRN-OFF, 

1278 

E6.1536 

E6*1536 

timeoffr 

erase 

ZERO  MEANS  NO  Ar IION,  SCALED  AS  WAITLISI 
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P1279 

KALMAN 

1 FILTER 

erasables. 

1280 

1281 

Eb I I 537 
E6,1590 

E6'1537 

E6*1590 

STORCDUY 

storcduz 

ERASE 

ERASE 

1282 

REF 

3 LASl 

98 

0072 

CDU 

equals 

RUPTREG3 

AI283 

1289 

REF 

6 last 

98 

0061 

CDUDOT 

EQUALS 

1 TEMPI 

A1285 

1286 

REF 

b LASl 

98 

0063 

COU2DOT 

EQUALS 

1 IEMP3 

A1287 

1288 

E6,159l 

E6» 1591 

DT 

ERASE 

1289 

Eb , 1 592 

tb  * 1592 

DftPI iME 

erase 

1290 

E6  * 1 593 

Eb  * 1 593 

steeradr 

erase 

1291 

Ebi 1599 

E6’1595 

DPDIFF 

erase 

+ 1 

1292 

Eb , 1 596 

Eb ' 1 596 

WPOINTER 

erase 

1293 

Lb. 1597 

E6*1551 

WO 

ERASE 

+ 2 

1299 

REF 

1 

E6’1550 

W 1 

equals 

Wo  +1 

1295 

REF 

1 

E6’1551 

W2 

equals 

Wl  +1 

1296 

Eb,1552 

E6»  1553 

CDUYF  IL 

erase 

+ 1 

1297 

Eb . 1 559 

£6*1555 

CDUZFIL 

erase 

*■1 

1298 

Eb  1 1 556 

Eb  * 1 5 57 

DrDUYFlL 

ERASE 

+ 1 

1299 

Eb . 1 SbO 

Eb • 156 1 

DrDUZFIL 

ERASE 

+ 1 

1300 

E6,i562 

Eb ’ 1 563 

D2CDUYFL 

ERASE 

+ 1 

1301 

E6 . 1 569 

E6*1565 

D2CDUZFL 

ERASE 

+ 1 

1302 

E6,1566 

E6*1566 

Y3D0T 

ERASE 

1303 

E6,1567 

E6’1567 

COU3DOT 

ERASE 

1309 

E6, 1570 

Eb  * 1570 

Z3DOT 

erase 

1305 

Eb . 1 57 1 

Eb’ 1572 

pfiltadr 

ERASE 

+ 1 

1306 

E6,I573 

Eb • 1602 

pFRpTLSl 

erase 

+ 7 

R1307 

TOROJe 

VECTCR 

Reconstruction 

yari ables: 

l308 

Lb . IbOA 

£6  * l6o5 

JETRATE 

erase 

+ 2 

1309 

REF 

1 

Eb  * 1609 

JETRATEQ 

EQUALS 

JETRATE  +1 

1310 

REF 

2 LASl 

99 

Eb’ 1605 

JETRATER 

EQUALS 

JETRATE  +2 

1311 

E6*1606 

Eb’ 1607 

NO.QJETS 

erase 

+ 1 

1312 

ref 

1 

E6’lb07 

NO.RJETS 

equals 

NO.QJETS  + 

1313 

Eb . 16 lO 

Eb’lbll 

TP 

erase 

+ 1 

l3i9 

REF 

1 

Eb’lbii 

TDR 

equals 

TP  *1 

1315 

Eb  . 1 fa  1 2 

Eb*  1616 

IJACC 

erase 

+ 9 

USER'S  OWN  PAGp  NO.  90 


THIS  S.P.  PAIR  IS  U<;ED  TO  SAVE  CDUY.Z 
FOR  the  GIS  RUPt 

RUPTREG3*9  used  AS  D.P.  WORD  FOR  CDU 
VALUE  WITHIN  pIlTER  IS  COMP  AT  2PI  RAD 

I TEMPI, 2 USED  AS  D.P.  WORD  FOR  CDUDOT 
value  within  FILTLR  scaled  at  Pl/9 

ITEMP3,9  used  As  D.P.  WORD  FOR  CDU2D0T 
value  within  Fii teR  scaled  at  Pl/8 

time  elapsed  scaled  at  1/8!  NOMlNAL=bOMS 
USED  TO  RECORD  I AST  TIME  FROM  CHANNEL  9 

DTCALC  SWITCH  Im  FIiTER  INITIALIZATION 

D.P.  weighting  vector  factor  AT  PI 
POINTER  TO  weighting  VECTOR  TAbi E 
THETA  WEIGHT 
omega  WEIGHT 
ALPHA  WEIGHT 

Y-AxIS  D.P.  filtered  THETA  AT  2PI 

Z-AXIS  D.P.  filtered  THETA  at  2PI 
Y-AxIS  D.P.  filtered  OMEgA  At  Pl/9 
Z-AXIS  D.P.  FILTERED  OMEGA  AT  PI/9 
Y-AXIS  D.P.  filtered  ALPHA  AT  Pl/8 
Z-AXIS  D.P.  filtered  ALPHA  AT  Pl/8 
Y-AXIS  S.P.  JFRX  AT  PI/2(7) 

Loop  register  (spacer) 
Z-AXIS  S.P.  jerk  at  P1/2(7) 

2CADR  FOR  FILTER  RUPT  3O  MS  AFTfR  P-AXIS 
POST  filter  RUPT  LIST 


weighted  rates  due  to  JETS  APPLIED  IN 
the  last  CONTROi  SAMpLE  PERIOD  OF  100  MS 
scaled  at  pi /a  RADIaNS/SeCOND 

number  of  q and  r Jets  that  are  given 
BY  The  jet  selEcT  logic 

time  calculated  by  tjetlaw  for  p,  or 
scaled  as  iimf6.  then  tor  Rescaled  to  i 


accelerations  Die  to  i jet  torqjing 
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L 

1316 

erasable  ASbl 

REF  1 

GNMENTs 

E6« 1613 

1 JACCQ 

equals 

IJACC  +1 

USER'S  OWN  PAGF  no.  Al 

scaled  at  PI/4  RADI ANS/SECOND 

1317 

REF 

2 LAST 

50 

E6 ’ 1 6 1 4 

1 JACCR 

EQUALS 

IJACC  +2 

1318 

REF 

3 LASi 

50 

E6n615 

IJACCU 

EQUALS 

IJACC  +3 

for  U,V-AXES  THf  scale  factor  is  diff: 

1319 

REF 

4 last 

50 

E6 ’ 1616 

IJACCV 

equals 

IJACC  +4 

scaled  AT  PI/2  radians/second  (FOR  ASC) 

1320 

E6,161 r 

E6*1617 

INERCTR 

erase 

1321 

Eb,l620 

E6  *1620 

INERCTRX 

ERASE 

R1322 

A5CENI 

VAKI ablls: 

1323 

E6» 1621 

E6’  1(>22 

5JMRATE0 

ERASE 

+ 1 

SUM  OF  UN-WEIGHtED  jETRATE  Terms. 

1324 

REF 

1 

E6  * 1622 

SJMRATER 

EQUALS 

SUMRATEQ  +1 

scaled  at  Pl/4  bADI ANS/SeCOND 

1325 

Eo*  1623 

E6 ’ 1 624 

OLDKFORQ 

ERASE 

+ 1 

omega  value  2 SfCoNDS  ago 

1326 

REF 

1 

£6 ’ 1624 

OLDWFORR 

equals 

OLDWFORO  +1 

scaled  at  PI/4  RADI ANS/SeCOND 

1327 

E6  * 1625 

E6’1626 

D3MINIMP 

ERASE 

+ 1 

minimum  impulse  deadbands  (equal  in  desc 

1328 

ref 

1 

E6  * 1 626 

M I NI MPDB 

equals 

DBMINIMP  +1 

AT  .3  dEG.  O.-dp  respectively  FDR  Asc) 

A1329 

SCALED  AT  PI  RAnlANS 

1330 

L6  1 1 62  7 

E6*1633 

.5ACCMNE 

erase 

+ 4 

( 1/2) ( 1/ACCMIN)  WHICH  IS  THE  INVERSE  OF 

1331 

REF 

1 

E6»1630 

.5ACCMN0 

equals 

.5ACCMNE  +1 

the  MINIMUM  acceleration  (A  CONSTANT  FOR 

1332 

REF 

2 LAST 

50 

E6*1631 

.5ACCMNR 

equals 

.5ACCMNE  +2 

DESCENT  and  A VariArLE  FOr  AsCENT  DAP) 

1333 

REF 

3 LAST 

50 

E6»1632 

.SACCMNU 

Equals 

.SACCMNE  +3 

SCALED  AT  2 (+8) /PI 

1334 

REF 

4 LAST 

50 

E6> 1633 

.5ACCMNV 

EQUALS 

,5ACCMNE  +4 

IN  UNITS  OF  SECONDS (2) /RADIAN 

1335 

E6.i63A 

E6  * 1635 

WFORP 

erase 

*■1 

W = K/ (NOMINAL  OT ) 

1336 

REF 

1 

Eb  * 1635 

WFORQR 

EQUALS 

WFORp  +1 

SCALED  AT  16 

1337 

E 6 1 1 6 3 6 

E6»1637 

(1-K) 

ERASE 

+ 1 

1-K  scaled  at  1 

1338 

REF 

1 

E6» 1637 

( 1-K) /8 

EQUALS 

(1-K)  +1 

1-K  SCALED  AT  8 

1339 

E6*1640 

£6 ’ 1643 

1/NJ15Q 

erase 

+ 3 

I/NJEIACC  FOR  EACH  AXIS 

1340 

REF 

1 

E6  * 1641 

1/NJTSR 

equals 

1/NJTSQ  +1 

FOR  DESCENT  THIS  IS  ALWAYS  I/2JIS 

1341 

REF 

2 last 

50 

E6* 1642 

1 /NJT5U 

equals 

1/NJTSQ  +2 

FOR  ASCENT  WITH  HIGH  OFFSET!  I/4JTS 

1342 

REF 

3 LAST 

50 

£6*1643 

1/NJTSV 

EQUALS 

1/NJTSQ  +3 

SCALED  AT  2(8)/pI  SEC(2)/RAD 

13A3  E6,16AA  E6’16A4  KCOEFCTR  ERASE  COUNTER  KOR  ASCfNT  DAp 


1344 

1345 

£6*1645 

16,1646 

£6 • 1645 
Eb  * 1646 

DLCDUIDX 

PJUMPADR 

ERASE  SAVE  RATE 

ERASE 

INDFX.  = 1* 

0 

1346 

1347 

1348 

E6  * 164  ^ 
Eb,l650  ■ 

REF  1 

Eb  * 1647 
Eb*l650 
£6*1650 

QJUMPADR 

lOOMSPTO 

QR.ISTOQ 

ERASE 

ERASE 

= IOOMSPTQ 

1349 

t 6 * 1 6 5 1 

£6*1651 

NO.PJETS 

ERASE 

R1350 

THE  FOLLOwi  :G  LM  DAP  ErASADLeS 

ArL  ZErOeD  iN  THE 

STArTDAP  section  of  the  DAPiDLER 

Program  and 

the  coastasc 
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R1352 

SECT  I JN 

OF  IHE  AOSTASK.  IHE 

ORDER  MUST 

BE  PRESERVED  FOR 

the  indexing 

methods  which  Are  empi oyed  in  those 

R135A 

SECTIONS  AND 

ELSEWHERE. 

1355 

L6*l652 

E6*1655 

AOSQ 

erase 

+ 3 

ascent  offset  Acceleration  estiv.ates: 

1356 

REF 

1 

66*1653 

AOSR 

EQUALS 

AOSQ  +1 

estimated  every  2 Seconds  by  aostask. 

1357 

REF 

2 

LAST 

51 

E6 ’ 1654 

AOSU 

equals 

AOSQ  +2 

u,v-axes  ACCS  Formed  by  vector  addition. 

1358 

REF 

3 

LAST 

51 

Eb*1655 

ADSV 

EQUALS 

AOSQ  +3 

scaled  at  Pl/2  rADIANS/SeC0ND(2) . 

1359 

E6 , 1658 

E 6 * 1 6 5 7 

AOSQTERM 

erase 

+ 1 

(.1-.05K)A0S 

1360 

REF 

1 

E6’  1657 

AOSRTERm 

equals 

AOSqTERM 

+ 1 

scaled  at  Pl/9  kADIANS/SeCOND. 

1361 

L6 1 1660 

E6  * 1667 

Nj  + O 

ERASE 

♦ 7 

2 JET  over-ride  flags: 

1362 

REF 

1 

E6*1661 

NJ-Q 

EQUALS 

NJ+Q  +1 

whenever  the  offset  acceleration  about 

1363 

REF 

2 

last 

51 

£6  * 1662 

NJ  + R 

equals 

NJ+Q  +2 

an  axis  is  so  high  that  2 JETS  COULD  NO! 

136A 

RE( 

3 

LAST 

51 

E6* 1663 

Nj-R 

EQUALS 

Nj+Q  +3 

control  AITITUDf  successfully,  I hen  Nj 

1365 

RFF 

4 

LASi 

51 

E6*1664 

NJ  + U 

equals 

NJ+Q  +4 

FOR  that  axis  (tN  TnE  DIRECTION  OPPOSING 

1366 

REF 

5 

LAST 

51 

E6  * 1 665 

NJ-U 

equals 

NJ+Q  +5 

AOS)  IS  set  to  1.  otherwise,  the  value 

1367 

REF 

6 

LASI 

51 

E6*1666 

Nj  + V 

equals 

Nj+Q  +6 

IS  ZERO.  THESE  FLA&S  PREVENT  T..;0  JETS 

1368 

REF 

7 

LAST 

51 

E6*1667 

NJ-V 

equals 

NJ+Q  +7 

FROM  being  Requested  to  fight  the  aos. 

1369 

86,1670 

E6’1707 

1/NLT+2Q 

erase 

+ 15D 

1370 

REF 

1 

£6*1671 

1/NET+4Q 

EQUALS 

1/NET+2Q 

+ 1 

1371 

REF 

2 

LASI 

51 

E6* 1672 

l/NET-20 

EQUALS 

1/NET+2Q 

+ 2 

1372 

REF 

3 

LAST 

51 

E6*1673 

l/NET-40 

EQUALS 

1/NFT+2Q 

+ 3 

1373 

REF 

4 

LAS  r 

51 

E6*1674 

1/NET*2R 

EQUALS 

1/NET+2Q 

+ 4 

1374 

ref 

5 

LAST 

51 

E6* 1675 

1/NET+4R 

equals 

1/NET+2Q 

+ 5 

1375 

REF 

6 

LAST 

51 

E6*l676 

1/NET-2R 

EQUALS 

1/NET+2Q 

+ 6 

1376 

REF 

7 

LAST 

51 

E6*l677 

1/NET-4R 

equals 

1/NET+2Q 

+ 7 

1377 

REF 

8 

LASI 

51 

E6*1700 

1/NET+lU 

Equals 

1/NET+2Q 

+ 8D 

1378 

REF 

9 

LAST 

51 

E6*1701 

1/NLT+2U 

equals 

I/NET+20 

+ 9D 

1379 

REF 

10 

LAST 

51 

£6*1702 

1/NET-IU 

equals 

1/NET+2Q 

+ 10D 

1380 

REF 

11 

LAST 

51 

£6*1703 

1/NET-2U 

equals 

I/NFT+20 

+ 11D 

1381 

REF 

12 

LAST 

51 

£6*1704 

1/NLT+lV 

EQUALS 

1/NET+2Q 

+ 12D 

1382 

REF 

1 3 

Last 

5 1 

£6*1705 

1/NET+2V 

EQUALS 

1/NFT+2Q 

+ 13D 

1383 

REF 

14 

LASI 

51 

£6*1706 

1/NET-IV 

EQUALS 

1/NET+2Q 

+ 14D 

1384 

REF 

15 

LAST 

51 

E6*1707 

1/NET-2V 

EQUALS 

1/NFT+2Q 

+ 15D 

1385 

t6,17l0 

£6*1710 

SIGNTAG 

ERASE 

1386 

REF 

1 

£6*1700 

1/NETACS 

equals 

1/NET+lU 

1387 

E6>1  7ll 

E6’ 1712 

1/ACCQ 

ERASE 

+ 1 

inverse  Net  accelerations  for  urgency. 

1388 

ref 

1 

£6*1712 

1/AccN 

EQUAlS 

1/AcCQ  *1 

Scaled  at  2(+8)/pi  seconds(2) /radian. 

1389 

L6,1713 

£6*1714 

1/AMlNU 

erase 

+ 1 

inverse  min  accelerations  for  Urgency. 

1390 

REF- 

1 

£6*1714 

1/AMINR 

EQUALS 

1/AMINQ 

+ 1 

scaled  at  21+8) /Pi  sf.conds(2) /Radian. 

13901 

b6,l7iS 

E6*l7l5 

1/AMlNU 

ERASE 

13902 

L6,l7l8 

£6*1716 

1 /Ami Nv 

ERASE 

1391 

t6,lVl7 

£6*1720 

URGRATQ 

erase 

+ 1 

urgency  function  correction  factor  ratio 

1392 

REF 

1 

£6*1720 

URGRATR 

EQUALS 

UrGRATQ 

+ 1 

scaled  at  1, 
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USER'S  0/jN  PAGE  NO.  A3 


R1393 

I temp  ano  r>. 

PtReG  assignments 

1 \i  lm  dap 

R1394 

FOR 

EIGhTBAL 

section: 

1395 

REF 

7 last 

A9 

0061 

AXISCNTR 

ECJUALS 

I tempi 

LOOPCTR  and  variable  INDeXER. 

1396 

REF 

7 last 

A8 

0062 

temperr 

equals 

I TEMP2 

temporary  storage  For  bounded  error. 

R13961 

FOR 

P-AXIS  PROGRAM: 

13962 

REF 

3 LAST 

Ab 

0065 

rel 

EQUALS 

ITEMPS 

table  index  used  by  p jet  Select  routine 

13963 

REF 

3 last 

Ae 

0066 

ctr 

equals 

ITEMP6 

table  entry  counter  used  by  p Jet  select 

R1397 

FOR 

POLTYPEF 

program: 

1398 

REF 

2 last 

Ab 

0070 

tranonly 

EQUALS 

ruptregi 

FLAG  FOR  pure  TRANSLATION  REqUESTS 

1399 

R£F 

2 last 

A8 

0071 

ANYtRANS 

equals 

RUPtReG2 

flag  to  INDICATE  DIRECTION  OF  TRAN,, 

lAOO 

REF 

A LAST 

A9 

0072 

TRANSNOk 

equals 

RUPtReGs 

FLAG  TO  indicate  TRANS.  W/  ROT,  POSSIBLE 

lAOl 

REF 

A last 

AS 

0073 

TRANSAVe 

equals 

RUPtReGa 

FLAG  AND  HOLDER  FoR  SAVED  TRANS.  POLICY 

1A02 

REF 

8 LAST 

52 

0061 

Net  acnux 

equals 

iTEMPl 

INDEX  TO  INDICATE  AXIS,  NO,,  AND  DIRECT, 

1A03 

REF 

8 LAST 

52 

0062 

TJETADR 

equals 

IIEMP2 

genadr  OF  Return  to  tjetlaw 

1 AOA 

REF 

/ LAST 

A9 

0063 

pdlreloc 

EQUALS 

I TEMP3 

POLICY  table  INDEX  (RELATIVE  ADDRESS) 

1A05 

REF 

A LAST 

Ab 

006A 

LOOPCTR 

equals 

1 tempa 

number  of  alternate  policies. 

1A06 

REF 

A LAST 

52 

0065 

thispoly 

EQUALS 

ITEMPS 

stored  policy  Tn  ELIMINATE  INDEXING, 

1A07 

REF 

A LAST 

52 

0066 

1/NeTACC 

equals 

ITEMP6 

iNv.  net  ACC.  For  tjetlaw. 

1A08 

REF 

1 

0066 

1/NjETAC 

= 

1/NETACC 

1A09 

REF 

16  LAST 

51 

E6* 1670 

1/2JTS0 

I 

1/NET+2Q 

lAlO 

REF 

1 

E6’167A 

1/2JTSR 

= 

1/NET+2R 

lAll 

REF 

1 

E6»1701 

1/2JETSU 

1/NET+2U 

1A12 

REF 

1 

E6’1705 

1/2JETSV 

= 

1/NET+2V 

R1A13 

for 

ADS  1 ASK 

program: 

lAIA 

REF 

9 LAST 

52 

0061 

K 

EQUALS 

I lEMPl 

1A15 

REF 

10  LASI 

52 

0061 

.1-,05X 

EQUALS 

I 1 EMPl 

1 A16 

REF 

9 last 

52 

0062 

coeffa 

equals 

I IEMP2 

1A17 

REF 

10  LAST 

52 

0062 

.5-.5C0F 

equals 

ITEMP2 

R1A18  M^AG  UEgIgNaTIONS  FOR  AOSjQb: 


1A19 

REF 

11 

LAST 

17 

0144 

JOBAxES 

EQUALS 

MPAC 

ADJACENT  entry  iNDExER. 

1420 

REF 

12 

LAST 

52 

0145 

NJPLACE 

EQUALS 

MPAC 

+ 1 

one  APART  ENTRY  INDEXER. 

1421 

REF 

13 

LAST 

52 

0146 

TaBPLACE 

equals 

MPAC 

+ 2 

THREE  APART  ENTRY  INDEXER, 

1422 

REF 

14 

LAS  r 

52 

0147 

1 empaos 

equals 

MPAC 

+ 3 

- AOS  TEMPORARY  STORAGE 

(SCALED 

AT 

Pl/2) 

1423 

REF 

15 

last 

52 

0150 

tempacc 

equals 

MPAC 

+ 4 

JET  acceleration  TEMP. 

(SCAEED 

AT 

PI/2) 

1424 

REF 

16 

LAST 

52 

0151 

tempnet 

EQUALS 

MPAC 

+ 5 

NET  acceleration  TEMP. 

(SCALED 

AT 

PI/2) 

48895'tA  YJL  SYSlfM  fOR  A&C:  PRO^’RA'1  SH^RATlN  BY  bYLf.-S 


L I MPUT /OUTPUT  CHANNELS 


0001 

0003 

hiscalar 

equals 

0002 

OOOA 

L3SCALAR 

EQUALS 

00025 

0007 

SJPERBNK 

OjTO 

EQUALS 

0003 

0010 

equals 

OOOA 

0011 

DSALMOUT 

EQUALS 

0005 

0012 

CHAM2 

EQUALS 

0006 

■ 0013 

CHAN13 

EQUALS 

0007 

OOlA 

CRANIA 

EQUALS 

0008 

0015 

MNKEYIN 

NAVKEYIN 

EQUALS 

EQUALS 

0009 

0016 

0010 

0033 

CHAN33 

EQUALS 

0011 

003A 

DNTMl 

EQUALS 

0012 

R0013  end  of  channel  assignments 

0035 

DNTM2 

EQUALS 

3 

A 

7 

10 

11 

12 

13 

lA 

lb 

16 

33 

3A 

35 


UEC  U«  1966  (MAIN)  PAGE  53 


USER'S  OWN  PAGf  no.  1 


SUPER-BANK 
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L rntF^RUPr  Lead  ins  user’s  own  paGf  no.  i 


0001 

9000 

SETLOC 

9000 

0002 

9O0O 

0 0O09 

0 

inhint 

CO 

0003 

RE.F 

1 

9001 

3 9O59 

1 

CAF 

&OBB 

0009 

REt- 

1 

9002 

56  006 

1 

XCH 

BBANK 

0005 

REF 

1 

9008 

1 2l92 

0 

ICF 

GOPRO& 

0006 

REF 

1 

9009 

52  011 

0 

OXCH 

AkUPT 

T6RUPT 

0007 

900S 

0 0O06 

1 

EXTEND 

0008 

REF 

1 

9005 

3 5090 

0 

OCA 

T6A0R 

0009 

9007 

5 2 O06 

0 

DTCB 

0010 

REF 

2 last 

59 

9010 

52  011 

0 

DXCh 

ARUPT 

T5RUPT 

0011 

9011 

0 OOO6 

1 

EXTEND 

0012 

KEF 

1 

9012 

3 lUOl 

1 

DCA 

T5ADR 

0013 

9018 

52  006 

0 

DICB 

0019 

REF 

3 LASi 

59 

9019 

52  011 

0 

3XCH 

ARUPT 

T3RUPT 

0015 

REF 

1 

90lS 

3 9056 

0 

CAF 

T3RPTBB 

0016 

REF 

2 LAS  F 

59 

9015 

5 6 006 

1 

XCH 

BBANK 

0017 

REF 

1 

901  f 

1 3530 

0 

ICF 

T3RUPT 

0018 

REF 

9 last 

59 

9020 

52  011 

0 

DXCH 

ARUPT 

T9RUPT 

0019 

REF 

1 

9021 

3 9063 

0 

CAF 

T9RPTBB 

00195 

REF 

3 LAST 

59 

9022 

56  006 

1 

XCH 

BBANK 

0020 

REF 

1 

9023 

1 2O00 

1 

TCF 

T9RUPT 

0023 

REF 

5 LASi 

59 

9029 

52  011 

0 

DXCH 

ARUPT 

KEYRUPTl 

0029 

REF 

1 

9025 

3 9057 

1 

CAF 

KtYRPTBB 

0025 

REF 

9 LAST 

59 

9026 

56  006 

1 

XCH 

BBANK 

0026 

REF 

1 

902  7 

1 3506 

0 

TCF 

KEYRUPTl 

0027 

REF 

6 LASI 

59 

9O3O 

52  011 

0 

DXCH 

ARUPT 

KEYRUPT2 

0028 

REF 

1 

9031 

3 9O6O 

0 

CAF 

MKRUPTBB 

0029 

REF 

5 LAST 

59 

9032 

56  006 

1 

XCH 

BBANK 

0030 

REF 

1 

9033 

1 3233 

1 

TCF 

MARKRUPT 

0031 

REF 

7 LAST 

59 

9039 

52  011 

0 

dxch 

ARUPT 

UPRUPT 

0032 

REF 

1 

9035 

3 9O57 

1 

CAF 

UPRPTBB 

0033 

REF- 

6 LAST 

59 

9036 

56  006 

1 

XCH 

BBANK 

0039 

REF 

1 

9037 

1 3526 

1 

TCF 

UPRUPT 

0035 

REF 

8 LAST 

59 

9090 

52  011 

0 

OXCH 

ARUPT 

DOWNRUPT 

0036 

REF 

1 

909I 

3 9O6I 

1 

CAF 

DwNRPTBB 

0037 

REF 

7 LAST 

59 

9092 

56  006 

1 

XCH 

BBANK 

0038 

REF- 

1 

9093 

1 2U7 

0 

TCF 

DUDOWNTM 

0039 

REF 

9 LAST 

59 

9099 

52  011 

0 

DXCH 

ARUPT 

RADAR  RUPT 

0090 

REF 

1 

9095 

3 9062 

1 

CAF 

RURPTBB 

0091 

REF 

8 LAST 

59 

9096 

56  006 

1 

XCH 

BBANK 

59 
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0042 

RSF 

1 

4047 

1 5F54  0 

TCF 

NOQRSM  +1 

WAS  TCF 

RAdArEAl 

(NO 

radar  I[^  206)  . 

R00921 

TRAPS 

31B  AY 

D 32  SFIOULD 

never 

SE  6eT. 

ThEREFORE- 

R00422 

R JP1 

10  WILL 

ALWAYS  refer  TU 

HE  hand  ' 

controller 

LPD  OR 

MINIMUM  impulse 

R00423 

USE. 

SEE  GEORGE  CHeRRY 

for  Rahonale  Regarding  the  aforesaid. 

0043 

REF 

10  LAST 

54 

4050 

■52  Uii  0 

3XCH 

ARUPT 

RUPT  10 

USED  FOR 

RHC 

MINIMP  mode  ONLY, 

0044 

REF 

1 

4051 

3 7H4  0 

CAF 

TwO 

0045 

REF 

1 

4052 

55'U07  0 

1 S 

delayctr 

0046 

REF 

1 

4053 

1 5Y55  1 

TCF 

NGQBRSM 

0047 

REF 

1 

E3 

ebank= 

LSTl 

RESTART 

USES  FO. 

E3 

0048 

REf 

2 LAS'I 

54 

4054 

32U03  0 

GOBB 

3BC0N 

GOPROg 

0049 

REF 

1 

EO 

EBANK= 

TIMEl 

0050 

REF 

1 

4055 

34U00  0 

T 6RPTB6 

3BC0N 

RESUME 

iHtitFIX 

LATER-infit 

0051 

REF 

2 LAST 

55 

E3 

EBANK= 

LSTl 

0052 

REF 

2 LAST 

54 

4056 

32U03  0 

T3RPTBB 

3BC0N 

T3RUPT 

0053 

REF 

1 

EO 

ebank= 

KEYTEMPl 

0054 

REF 

2 LAST 

54 

405  f 

26U00  0 

<EYRPT66 

3BC0N 

KEYRUPTl 

0055 

REF 

1 

E3 

£BANK= 

AOTAZ 

0056 

REF 

2 LASl 

54 

4060 

26U03  0 

M<RUPTBB 

3BC0N 

MARKRUPT 

0057 

REF 

2 LAST 

54 

4057 

JPRPTBB 

r 

<tYRPTBB 

0058 

REF 

1 

E7 

ebank= 

DNTMBUFF 

0059 

RHf 

2 LASl 

54 

4061 

32007  1 

DwNRpTBB 

3BC0N 

DODOwNTM 

0060 

REF 

1 

El 

eban<= 

radmodes 

0061 

REF 

1 

4062 

20001  1 

RDRPTBB 

3BC0N 

RADAREAD 

0062 

REF 

1 

E6 

ebank= 

MU 

0063 

REF 

1 

4063 

24O06  1 

T4RPTBB 

3BC0N 

T4RUPTA 
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restart  Tables  and  restarts  rojtine 


USER'S  OWN  PaGF  no* 


ROOOl 

R0002 

R0003 

Rqooa 

R0006 

R0008 


RESTART  TABLES 

DC  NjT  remove  FROM  THE  BeGINmIMG  OF  THIS  BANK 


tHeRe  are  TaO  forms  of  restAri  taples  for  each  group.  tHeY  are  known  AS  tHe  eVen  Restart  tables  and  tHe  odd 
Restart  tables,  tHe  odd  TASLrs  have  only  one  entRy  of  three  locations  while  the  eVfn  tables  have  two  e-jtRIe^ 
each  jSING  three  locations.  THe  information  as  to  WHetHeR  It  is  a job,  waitlist,  or  a LoNGCaLL  is  given  by  THe 


Roolo 
ROOl  1 
R0013 

WAY  things 
A JOB 
EXAMPLE, 

ARE 

1- AS 

PUT 

ITS 

INTO  TliE 
PRIORITY 

tab.ep. 
siore^  in 

PRDxtAB  of 

IHe  CORReOt  phase  spot  with  its  2CADR  tN  JHe  CADRtAB.  FOR 

AOOIA 

A0015 

5,7SP01 

DCT  23000 

2CADR  somejob 

R0016  A Restart  of  group  5 with  pha^e  seven  would  then  cause  somejob  to  be  Restarted  with  a ppiorttv  of  23* 

R0OI8  A LONGCALL  mAS  ItS  GeNADR  oF  US  2CADR  STOReD  NeGAtIveLY  AND  ITS  BBCON  StOReD  POSITIVELY.  IN  ITS  PRDTTAB  IS 

R0020  placed  THe  location  of  a dp  reoIsieR  that  Contains  the  Delta  tIMe  that  longcall  had  been  originally  started 
ROO22  WITH.  EXAMPLE. 


A0023 

A0024 

A0025 

A0026 

A0027 

R0028 

R0030 

R0032 

R0O3A 

R0036 

R0038 

Rooao 

R00A2 

ROOAA 

A00A5 

A0046 

AooA7 

AOOA8 

AoOA9 

A0050 

A0051 

A0052 


3.65POT  GENADR  DELTA! 

-GENAdR  LONGTASK 
BBCON  LoNGTASK 

OCT  31000 
2CADR  JOBAGAIN 

this  aOULD  start  up  LONGtASK  at  T'^E  appropriate  time,  or  immediately  if  the  time  HAIj  already  PaSSeD.  it  should 
BE  NOTED  That  IF  DELTAT  IS  iN  A SWITCHED  E BANK,  ThIS  INFORMATOIN  ShOUld  BE  IN  ThE  BBcOn,  OFThE  2cAdR  OF  ThE 
TASK.  from  ABOVE.  WE  SEE  tHat  THE  SECOND  PART  OF  THIS  PHASE  WOULD  BE  STARTED  AS  A JOB  wItH  A PRIORITY  oF  31. 

waitlist  calls  ARE  IDENTIFIED  BY  THE  FACT  THAT  THeIR  2CADR  IS  STORED  NEGATIVELY.  IF  PRDtTAB  OF  THE  PHASp  SPOT 
IS  PDSIIIVE,  then  IT  contains  HE  DELTA  TIME.  iF  RRDTTAB  15  NEGATIVE  THEN  IT  IS  THE  -GENADR  OF  AN  ERASABLE 
LOCATION  CONTAINING  THL  DeLT A llMt,  THAT  15,  THl  TIMe  IS  STORED  INDIReCtLY,  It  SHOULD  RE  NdTED  AS  AbOVr,  THAT 
IF  the  time  is  stored  INDlRECfLY,  THe  BBCON  MUST  CONTAIN  tHe  NeCeSSARY  e BANK  INFORMATION  IF  APPLICABLE.  WITH 
WAlTLISi  WE  have  one  FURtheR  OPTION,  IF  -o  IS  StqReD  IN  PRDttAB,  It  WILL  CAUSE  AN  IMMfDiAte  RESTART  OF  tHe 
TASK.  EXAMPLES. 


OCT  77777 

-2CADR  ATASK 

dec  200 

-2CADR  DUMMY 


•GENADR  DtIMe 
■2CADR  TASKTASK 


THIS  WILL  CAUSE  AN  IMMEDIATE  RESTART 
OF  the  task  :ataSk: 

IF  THE  time  OF  tHE  2 SECONDS  SINCE  DUMMY 
WAS  pUT  ON  WAITI 1ST  IS  Up,  It  WILL  BEGIN 
IN  10  MS,  otherwise  it  WILL  BEGIN  WHEN 

IT  NORMALLY  WQUI  D HaVL  BEGUN. 

where  dtime  Contains  ihe  deLia  time 
otherwise  this  TS  As  above 


R0053 


NO/.  THE  TABLES  THEMSELVEP  ww#"* 


488954A 

YJL 

sySieM  for  ago: 

.Mew  program  sNepatif 

i 3Y  eYLeS 

Dec  It,  1966  (MAIn)  page  57 

L 

restart  TABl  ts  ANU  RtSjARTS  RjJlll'lE 

USER'S  OWN  PaGF  no.  2 

0054 

06*2000 

PRDTTAB 

EOUAES 

24000 

USED  TO  FIND  THE  PRIORITY  OR  DELTA  TIME 

0055 

06*2001 

CADRT AB 

equals 

24001 

THIS  AND  the  NExT  LOCATION  (RELATIVE) 

Aoo56 

contain  the  ReStARt  CADR 

0057 

06*2000 

3AN< 

06 

0058 

REF 

3 last  55 

E3 

ebaimk  = 

LSTl 

GOPROG  MUST  SWItCH  IN  THIS  EbAN< 

0059 

REF 

1 

00*2000 

02S60  0 

PHS2CADR 

oENADR 

PHSPART2 

DO  Nor  remove  the  Following  6 locations 

0060 

REF 

1 

06*2001 

02^47  1 

PRT  2CADR 

jE  N ADR 

GETpART  2 

from  beginning  of  BANk 

0061 

REF- 

1 

06*2002 

05T57  1 

LGCECADR 

GEN ADR 

LONGCALL 

0062 

REF 

1 

06,2003 

05534  0 

FVACCADR 

GENADR 

FINDVAC 

0063 

REF 

1 

06*2004 

35FOI  1 

wtltgadr 

GENADR 

WAITLIST 

0064 

REF 

1 

0o*200S 

0 5437  1 

RTRNCADR 

TC 

SWRETURN 

0065 

06,2006 

lOOOO  0 

I.2SPOT 

OCT 

10000 

temporary  entry  to  establish  table 

0066 

REF 

4 LAST  57 

E3 

EBANK= 

LSTl 

0067 

06*2007 

05914  1 

2CADR 

DUMMYJOB 

C0067 

REF- 

1 

06*2010 

04003  0 

0068 

06*2017 

lUOOO  0 

OCT 

10000 

0069 

REF 

5 Last  57 

E3 

ebank= 

LSTl 

0070 

06*2012 

05914  1 

2CADR 

DUMMYJOB 

C0070 

REF 

2 LAST  57 

06,2013 

04003  0 

R0071 

ANY. 

MDRc  GROUP  l.LVEN  RESTART 

VALUES  SHOULD  GO  HERE 

0072 

REF 

1 

06*2006 

1.3SP0T 

EQUALS 

1.2SP0T 

R0073 

AMY 

more  group  i.ODD 

restart 

vaIues  should  go  here 

0074 

REF 

2 LAS'I  57 

06*2006 

2.2SP0T 

EQUALS 

1.2SP0T 

R0075 

AMY 

M0Rf_  GROUP  2. EVEN  RESTART 

values  should  go  Here 

0076 

06,2014 

77777  0 

2,3SPOT 

OCT 

77777 

MISSION  SCHEDULING  PACKAGE  TO  SET  UP 

0077 

REF 

6 LASI  57 

E3 

EBANK= 

LSTl 

0078 

06,201^ 

75921  0 

-2CADR 

REDOMDUE 

C0078 

REF 

1 

06*2016 

15714  1 

0079 

06*2017 

12574  1 

2.BSP0T 

DEC 

5500 

0080 

REF- 

1 

E4 

ebank= 

TDEC 

0081 

06*2020 

75i46  0 

-2CADR 

51VB2 

C0081 

REF 

1 

06*202J- 

25773  0 

0082 

06*2022 

77777  0 

2.7SP0T 

OCT 

77777 

0083 

REF 

2 LAST  57 

E4 

EBANK= 

TDEC 

0084 

06*2023 

75921  0 

-2CADR 

SBORBA 

C0084 

REF 

1 

06  *202A 

25773  0 

00841 

06*2025 

00620  0 

2, 1 ISPOT 

DEC 

400 

00842 

REF 

3 last  57 

E4 

ebank= 

TDEC 

00843 

06,2026 

75506  0 

-2CADR 

SB0RB8 

C00843 

REF 

1 

06,202  / 

25773  0 

R0085 

AMY 

•^dre  group  2. odd 

Restart 

*(A-UES  SHOULD  Go  HeRE 

^8895'tA  YJL  SVbltM  TOR  ACC:  rMt->  PRO<jRA''l  Sf^bPATlN  BY  eYL-ES 


L 

0086 

RES 

REF 

tart  Tables  ano  restarts  routine 

3 last  57  06»2006 

3.2SP0r 

EQUALS  1.2SP0T 

R0087 

ANY 

more  croup  3. even  RLSfAKT 

V^L^tb  bMQULU  W 

Here 

0088 

REF 

A LAST  58 

De  *2006 

3.3SP01 

EQUALS  1.2SP0T 

R0089 

ANY 

more  group  3. odd 

restart 

VALUES  SHOULD  CO  HERE 

0090 

REF 

5 LASi  58 

06*2006 

A.2SP0T 

equals  1.2SP0T 

R009l 

ANY 

MORl  group  4.EVEK 

1 restart 

values  should  go 

Here 

0092 

REF 

6 LAST  58 

06*2006 

A.3SP0T 

Equals  i.2spot 

R0093 

ANY 

MORE"  GROUP  A. ODD 

restart 

va-ues  should  go  here 

009A 

06,2030 

21600  1 

5.2SPUI 

JCT  21000 

0095 

REF 

1 

EA 

ebank=  ravegon 

0096 

06,2O3l 

02317  0 

2CADR  NORMLIZE 

C0096 

REF 

1 

06,2032 

6OO6A  0 

0097 

06,2033 

00310  0 

DEC  200 

0098 

REF- 

1 

E5 

EBANK=  DVCNTR 

0099 

06 ,203A 

75211  1 

-2CADR  REREADAC 

C0099 

REF 

1 

06,2035 

17712  0 

0100 

06,2036 

00310  0 

5.ASP0T 

dec  200 

0101 

REF 

1 

E5 

ebank=  bmemory 

0102 

06,2037 

75777  1 

-2CADR  PREREAD 

C0102 

REF 

1 

06,20A0 

17712  0 

0103 

06,20A1 

32000  0 

OCT  32000 

OlOA 

REF 

7 LAST  57 

E3 

EBAN<=  LSTl 

0105 

Oo  , 20A2 

03371  1 

2CA0R  LASTBIAS 

C0105 

REF 

1 

06,20A3 

2AU03  1 

01051 

06 , 20AA 

00310  0 

5.6SP0T 

DEC  200 

010511 

REF 

2 LAST  58 

E5 

E6ANK=  DVCNTR 

010512 

06,20A5 

75211  1 

-2CADR  REREADAC 

C010512 

REF 

2 LAST  58 

U6,20A0 

17712  0 

010513 

06,20A7 

OOOOO  0 

OCT  20000 

01051A 

REF 

3 last  58 

E5 

EBANK=  DVCNTR 

010515 

06,2050 

02115  0 

2CADR  SERVICER 

C010515 

REF 

1 

06,2051 

60U65  1 

R0106 

ANY 

mjRl  croup  5. even 

1 restart 

VALUES  should  go 

HERE 

0107 

06,2052 

00310  0 

5,3SPOT 

DEC  200 

010701 

REF 

A LAST  58 

E5 

EBAN<=  DVCNTR 

OIO7O2 

06,2053 

75211  1 

-2CADR  REREADAC 

C010702 

REF 

3 LAST  58 

0 6 , 2 0 5 A 

17712  0 

OIO7O3 

06,2055 

77777  0 

5,5SP0T 

OCT  77777 

010704 

REF 

1 

£2 

ebank=  mtimera 

OIO7O5 

06,2056 

75227  1 

-2CADR  P00H2 

C010705 

REF 

1 

06,2057 

75775  0 

01071 

06,2060 

20U00  0 

5.7SPOT 

OCT  20000 

010711 

REF 

3 LAST  AO 

E5 

E8AN<=  XSM 

010712 

06,2061 

O2UI6  1 

2CADR  RSTGTSl 

C010712 

REF 

1 

06,2062 

72'365  1 

DtC  U,  1966  (MAIN)  page  5b 


USER'S  Oi^N  PAGE  NO.  i 


E3 


replaces  inactive  5.0  for  FAkEStRT 
» it  » REMOVE  IF  restarts  RETURN  it  # it 
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010713 

06,2063 

nm  0 

5.11SP0T  OCT 

77777 

010714 

REF 

4 LAST 

58 

E5 

EBANK= 

XSM 

010715 

06,2064 

75T07  0 

-2CA0R 

ALLOOPl 

C010715 

REF 

1 

06,2065 

35a2  0 

010716 

06,2066 

20000  0 

5.13SP0T  OCT 

20000 

010717 

REF 

5 LAS[ 

59 

E5 

EBANK= 

XSM 

010718 

06,2067 

02^52  0 

2CADR 

WTLISTNT 

C010718 

REF 

1 

06,2070 

T2065  1 

010719 

06,2071 

20O00  0 

5.15SP0T  OCT 

20000 

0107^ 

REF 

6 LAST 

59 

E5 

EBAN<= 

XSM 

010721 

06,2072 

02637  1 

2CADR 

RLSTEST 1 

C010721 

REF 

1 

06,2073 

72065  1 

010722 

06,207^ 

20000  0 

5.17SP0T  OCT 

20000 

010723 

REF 

7 LAST 

59 

E5 

ebank= 

XSM 

010724 

06,2U75 

02^30  1 

2CADR 

GE0STRT4 

C010724 

rsf 

1 

06,2076 

72065  1 

010725 

06,2077 

20000  0 

5.21SP0T  OCT 

20000 

010726 

REF 

8 LAST 

59 

E5 

EBANl<  = 

XSM 

010727 

06,2100 

02140  0 

2CADR 

ALFLTI 

C010727 

REF 

1 

06,2101 

72065  1 

010728 

9 LAST 

06,2] 02 

77T77  0 

5.23SPOT  OCT 

77777 

010729 

REF 

59 

E5 

EBANK= 

XSM 

01073 

06,2103 

75656  0 

-2CADR 

SPECSTS 

C01073 

REF 

1 

06,2104 

05^12  0 

010731 

06,2105 

20000  0 

5.25SP0T  OCT 

20000 

010732 

REF 

10  LAST 

59 

E5 

EBANK= 

XSM 

010733 

06,2106 

02652  1 

2CADR 

RLSTEST3 

COIO733 

REF 

1 

06,2107 

72065  1 

010734 

06,2110 

20000  0 

5.27SP0T  OCT 

20000 

010735 

REF 

11  LAST 

59 

E5 

EBANK= 

XSM 

010736 

06,2111 

02615  1 

2CADR 

RESTAIER 

C010736 

REF 

1 

06,2112 

72065  1 

01074 

12  last 

06,2113 

nm  0 

5.31SP0T  OCT 

77777 

010741 

REF 

59 

E5 

ebank= 

XSM 

010742 

06,211“^ 

75666  0 

-2CADR 

PlPSTRTS 

C010742 

REF 

1 

5. ODD 

06,2115 

05a2  0 

ROIO8 

any 

more  GROUP 

Rest  AR 1 

vALUtb  51-IOULi;  00  HLKE 

0109 

REF 

7 LAST 

58 

06*2006 

6.2SP0T  equals 

1.2SP0r 

ANY 

6. even 

i restart 

KOllO 

NjRc.  GROUP 

bliUULU  OU  HE-<E 

0111 

REF 

8 LAS-' 

59 

06*2006 

6.3SP0T  equals 

1.2SP0T 

ROl  12 

ANY 

More  group 

6 . ODD 

Rest  ar i 

YALUtb  SHOULD  GO  HERE 

0113 

REF 

9 Last 

59 

06,2116 

OOOOO  1 

SIZETAB  3ENADR 

1.2SP0T  -24006 

0114 

R-F 

1 

06,211  f 

00O02  0 

oENAdR 

1,3SP0T  -24004 

0115 

REF 

1 

06,2120 

OOOOO  1 

3ENADR 

2.2SPOT  -24006 

0116 

RHF 

1 

06,2121 

OOOlO  0 

3ENADR 

2.3SP0T  -24004 

0117 

REF 

1 

06,2122 

OOOOO  1 

5ENADR 

3.2SP0T  -24006 

0118 

REF 

1 

06,2123 

00OO2  0 

3ENADR 

3.35P0T  -24004 
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RrSlA-iT  tables 

ANp  restarts  R 

OJI'I^E 

USER'S  OwN  pA&E  NO.  S E3 

0119 

REF 

1 

06,2129 

00000  1 

oEN ADR 

9.2SPOT  -29006 

0120 

REF 

1 

06,2125 

00002  0 

3EN ADR 

9.3SP0T  -29009 

0121 

REF 

1 

0o,2126 

00022  1 

3ENADR 

5.2SPOT  -29006 

0122 

REF 

1 

06,2127 

00096  0 

3ENADR 

5.3SPOT  -29009 

0123 

REF 

1 

06,213° 

OOOOO  1 

3ENADR 

6,2SP0T  -29006 

0129 

REF 

1 

06,2131 

00002  0 

3ENADR 

6.3SP0T  -29009 
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P0125 

0126 

REF 

17 

LAbT 

52 

Ob  , 2 1 32 

3 Oi51 

1 

KtSlAKIS  LA 

MPAC  +5 

GEI  group  NUMhEP  -1 

0127 

Ob, 2133 

6 OUOO 

1 

DOUBLE 

SAVE  FOR  INDEXING 

0128 

REF 

1 

06 ,2134 

54  145 

0 

T S 

TEMP2G 

0129 

REF 

1 

06,213S 

3 2003 

.0 

CA 

FVACCADR 

Letts  assume  this  is  a job,  this  will 

0130 

REF 

1 

Ob, 2136 

54  HO 

0 

TS 

GOLOC  -1 

SAVE  US  A COUPLE  OF  LOCATIONS,  BUT  NOT 

A0131 

3 2OOO 

necessarialy  any  time  - so  be  it  - 

0132 

REF 

1 

06,213'7 

0 

CA 

PHS2CADR 

set  up  exit  in  case  it  is  an  even 

0133 

REF 

1 

06,2140 

54  147 

1 

TS 

TEMPSWCH 

table  phase 

0134 

REF 

1 

06,2141 

3 2OO5 

0 

CA 

RTRNCADR 

TO  SAVE  time  AS.SUME  IT  WILL  GET  NEXT 

0135 

REF- 

2 

LA51 

61 

06,214E 

54  113 

0 

TS 

GOLOC  +2 

GROUP  AFTER  THIS 

0136 

REF 

1 

06,2143 

3 OI44 

0 

CA 

TEMPPHS 

0137 

ref 

1 

06,2144 

7 5370 

1 

'1A5K 

0CT1400 

0130 

REF 

1 

06,2145 

10  uoo 

0 

CCS 

A 

IS  IT  A variable  OR  table  RESTART 

0139 

REF 

1 

06,2146 

1 2157 

1 

TCF 

ITSAVAR 

it:s  a variable  restart 

0140 

REF 

2 

LAST 

61 

06,214/ 

10  144 

1 

CETPART2  CCS 

TEMPPHS 

IS  IT  AN  x.l  RESTART 

0141 

REF 

2 

LAS’ 

6 1 

06 ,2  i 5O 

1 0 ooo 

0 

CCS 

A 

0142 

REF 

1 

06,2151 

1 2246 

1 

KF 

itsatbl 

NO,  ITS  A table  Restart 

0143 

REF 

1 

Ob, 2152 

3 5^56 

1 

CA 

PRI014 

IT  IS  AN  x.l  restart,  THEREFORE  START 

0144 

REF 

2 

LAST 

57 

0b»2153 

0 5534 

0 

1C 

FINDVAC 

THE  DISPLAY  RESTART  JOB 

0145 

REF 

8 

Last 

58 

E3 

ebank= 

LSTl 

0146 

Ob, 2154 

05605 

1 

2CADR 

INITDSP 

CO  146 

REF- 

1 

Ob, 2155 

04003 

0 

0147 

REF 

2 

LAS! 

61 

06,2156 

0 2005 

0 

TC 

R IRNCADR 

finished  WITH  This  GROUP,  GET  NeXT  ONE 

0148 

REF- 

1 

5605 

INITDSP  equals 

ENDOFJOB 

0149 

REF 

1 

0b»2157 

7 7 /44 

0 

ITSAVAR  viAS< 

BlTlO 

SEE  IF  IT  IS  TYPE  B 

0150 

REF 

3 

lasi 

61 

06,2160 

10  OOO 

0 

CCS 

A 

0151 

REF 

1 

Ob , 2 1 6 1 

1 2230 

0 

TCF 

itslikeb 

YES, IT  IS  TYPF  R 

0152 

Cb*2162 

0 OOO6 

1 

EXTEND 

STORE  the  job  (OR  TASK)  2CADR  FjR  EXIT 

0153 

REf 

2 

LAST 

6 1 

06,2163 

5 0 145 

1 

NDX 

TEMP2G 

0154 

REF- 

1 

06,2164 

3 1517 

0 

OCA 

PHSNAMEl 

0155 

REF 

3 

LAST 

61 

Ob, 2165 

52  112 

1 

OXCH 

GOLOC 

0156 

REF 

3 

LAST 

61 

Ob  *2 1 66 

3 0144 

0 

CA 

TEMPPHS 

SEE  IF  THIS  IS  A job,  TASK,  OR  a LONGCAL 

0157 

ref 

1 

06,2167 

7-7/57 

1 

vlASK 

OcT7 

0158 

R::F 

1 

06,2170 

6 5355 

1 

AD 

MINUS2 

0159 

REF 

4 

LAST 

61 

06,2171 

10  OOO 

0 

CCS 

A 

0160 

REF 

1 

Ob, 2172 

1 2331 

0 

TCF 

ITSLNGCL 

ITS  A LONGCALL 

06,2173  37  ^6  0 0CT37776  3C1 


0161 


37776 


CANT  GET  HERE 
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0162 

REF 

1 

06.2174 

1 2T  76  1 

TCP 

0163 

REF 

1 

06,21 7P 

1 2243  1 

TCF 

016A 

REF 

1 

0612176 

3 2°04  1 

ITSAWAIT 

CA 

0165 

ref 

4 lASI 

61 

06,2177 

54  110  0 

TS 

0166 

REF 

3 LAST 

6 1 

06,2200 

50  I45  1 

NDX 

0167 

ref 

1 

06  »220l 

3 1114  1 

CA 

0168 

REF 

5 LAST 

6 1 

06,2202 

10  Oqo  0 

TIMETEST 

CCS 

0169 

REF 

6 LASl 

62 

06,2203 

24  OOO  1 

INCR 

0170 

REF 

1 

06,2204 

1 2207  1 

TCF 

0171 

REF 

1 

0o,2205 

1 4064  0 

TCF 

0172 

REF 

1 

06 ,2206 

1 2226  1 

TCF 

ROl  73 

Ti-.IS  VI 

UST  be 

IN  fixed  Fixed 

017A 

4064 

3L0CK 

0175 

REF- 

5 LASl 

62 

4C6A 

22  112  0 

ITSINDIR 

LXCH 

0176 

REF 

1 

4063 

22  006  1 

LXCH 

0177 

REF 

7 LASl 

62 

4066 

50  000  1 

NDX 

0178 

406  7 

3 OOOl  0 

CA 

0179 

REF 

2 last 

62 

4070 

22  006  1 

LXCH 

0180 

REF 

6 LASl 

62 

4071 

22  112  0 

LXCH 

0181 

REF 

2 last 

62 

4072 

1 2207  1 

TCF 

R0182 

YOUD  vay  return  to  5^11 

ched  Fixed 

ft#*** 

0183 

06*2207 

3ANK 

018A 

06,2207 

4 OOOO  0 

FIND! IMe 

COM 

01845 

REF 

1 

06,221° 

54  OOl  1 

IS 

0185 

REF 

4 LASl 

62 

06,2211 

50  I45  1 

NDX 

0186 

REF 

1 

06,2212 

4 1113  1 

CS 

0187 

REF 

2 LAST 

06,2213 

0 0O06  1 

EXTEND 

0188 

55 

06,221^ 

60  025  0 

5U 

0189 

REF 

8 LAST 

62 

06,2215 

10  UOO  0 

CCS 

0190 

06,2216 

4 OOOO  0 

COM 

0191 

REF 

1 

06,221 7 

6 2I73  0 

AD 

0192 

REF- 

1 

06,2220 

6 7755  1 

AD 

0193 

REF 

2 LASl 

62 

06,2221 

6 0001  0 

AD 

0194 

REF 

9 LAST 

62 

06,2222 

10  000  0 

CCS 

0195 

REF 

1 

06,2223 

3 7761  0 

CA 

0196 

06,222^ 

1 2226  1 

TCF 

0197 

06,2225 

1 2226  1 

TCF 

0198 

REF 

2 LASl 

62 

06,2226 

6 7755  1 

IMEDIATE 

AD 
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USER'S  Oy)N  PaGF  no.  7 E3 

1 TSAJOB 

ITS  A JOB 

WTLTCADR 
GUlOc  -1 

SET  UP  WAITLIST  CALL 

TEMP2G 

DIRECTLY  STORED 

PHSPRDTl 

A 

A 

findtime 

IS  IT  AN  immediate  RESTART 

NO, 

FIND  OUT  WHEN  IT  SHOULD  BEGIN 

itsindir 

stored  INDIRECT!  Y 

imediate 

IT  WANTS  AN  IMMEDIATE  RESTART 

02 

GOLOC  +1 

BB 

GET  the  Correct  e bank  in  case  this  is 
switched  ERRASIhLE 

A 

1 

GET  THE  time  INDIRECTLY 

BB 

GOLOC  +1 

RESTORE  the  BB  aND  gOLOC 

FINDTIME 

FIND  OUT  WHEN  It  SHOULD  BEGIN 

06 

L 

TEMP2G 

TBASEl 

TIMEI 

A 

0CT37776 

ONE 

L 

A 

ZERO 

♦ 2 
+ 1 

ONE 

MAKE  NEGITIVe  SiNCE  IT  WILL  BE  SUBTRACTD 

AND  SAVE 
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0199 

REF 

7 

LAST 

62 

06 

.2227 

0 olio 

1 

TC 

GOLOC  -1 

0200 

REF 

3 

LAST 

61 

06 

.223O 

3 2005 

0 

iTSLlKEb 

CA 

RTRNCADR 

TYPE  B,  SO  STORE  RETURN  IN 

0201 

REF 

2 

LAST 

61 

06 

.2231 

54  147 

1 

TS 

TEMPSWCH 

TEMPSwCH  IN  case  OF  AN  EVEN  PHASE 

0202 

REF 

1 

06 

.2232 

3 2DOI 

1 

CA 

PKT2CADR 

SET  UP  EXIT  TO  GET  TABLE  PART  OF  THIS 

0203 

REF 

8 

LAST 

63 

06 

.2233 

54  113 

0 

TS 

GOLOC  +2 

VARIABLE  TYPE  OF  PHASE 

020A 

REF 

4 

LAST 

61 

06 

.223A 

3 OI44 

0 

CA 

tempphs 

MAKE  THE  PHASF  1 OOK  RIGHT  FOR  THE  TABLE 

0203 

REF 

1 

06 

.2235 

7 6I3O 

1 

MASK 

0CT177 

PART  OF  THIS  VARlABi  E PHASE 

0206 

REF 

5 

LAST 

63 

06 

.2236 

5 4 144 

1 

TS 

TEMPPHS 

0207 

06 

.223  7 

0 OOO6 

1 

EXTEND 

0208 

REF 

5 

last 

62 

06 

.22AO 

5 0145 

1 

MDX 

TEMP2G 

OBTAIN  the  JOBlc  2CaDR 

0209 

REF 

2 

LAST 

61 

06 

.2241 

3 1517 

0 

OCA 

phsnamei 

0210 

REF 

9 

LAST 

63 

06 

.2242 

52  112 

1 

OXCH 

GoLOC 

0211 

REF 

6 

LAST 

63 

06 

.2243 

50  145 

1 

ITSAJOB 

NDX 

TEMP2G 

NOW  ADD  THE  PRIORITY  AND  LET:S  GO 

0212 

R£F 

2 

LAST 

62 

06 

.2244 

3 1114 

1 

CA 

phsprdti 

0213 

REF 

10 

LAST 

63 

06 

.2245 

0 olio 

1 

TC 

GOLOC  -1 

021A 

REF- 

1 

06 

.2246 

54  020 

1 

itsatbl 

TS 

CYR 

FIND  OUT  IF  the  PHASE  IS  ODD  OR  EVEN 

0215 

REF 

2 

LAST 

63 

06 

.224  7 

10  O20 

1 

CCS 

CYR 

0216 

06 

.2250 

1 2251 

1 

TCF 

+ 1 

it:s  even 

0217 

REF 

1 

06 

.2251 

1 2 347 

1 

TCF 

1 1 SEVEN 

0217A 

REF 

4 

LAST 

63 

Ot> 

.2252 

3 2OO5 

0 

CA 

RTRNCADR 

IN  CASE  THIS  IS  THE  SECOND  PART  OF  A 

02175 

REF 

11 

LAST 

63 

06 

.2253 

54  113 

0 

TS 

GOLOC  +2 

TYPE  B RESTART,  WE  NEED  PROPER  FXIT 

0218 

REF 

6 

LAST 

63 

06 

.2254 

3 0144 

0 

CA 

tempphs 

set  up  pointer  FOR  FINDING  OUR  PLACE  IN 

0219 

RcF 

1 

06 

.2255 

54  021 

0 

Ts 

SR 

The  restart  tabi es 

0220 

REF 

2 

LAST 

63 

06 

.2256 

6 0021 

1 

AD 

SR 

0221 

REF 

7 

LAST 

63 

06 

.2257 

50  I45 

1 

NDX 

TEMP2G 

0222 

REF 

1 

06 

.226^ 

6 2ll7 

1 

AD 

SIZETAB  +1 

0223 

REF 

1 

06 

.2261 

54  146 

0 

TS 

POINTER 

0224 

06 

.2262 

0 0006 

1 

C0NTBL2 

extend 

FIND  OUT  WHATIS  IN  THE  1 ABLE 

0225 

REF 

2 

LAST 

63 

06 

.2263 

5 0146 

1 

NDX 

POINTER 

0226 

REF 

1 

06 

’2264 

3 2002 

1 

OCA 

CADRTAB 

get  the  2CADR 

0227 

REF 

12 

LAST 

63 

06 

.2265 

22  112 

0 

LXCH 

GOLOC  +1 

STORE  THE  Bb  INFORMATION 

0228 

REF 

10 

LAST 

62 

06 

.2266 

10  OQO 

0 

CCS 

A 

IS  IT  A JOB  OR  iS  It  timed 

0229 

REF 

11 

LAST 

63 

06 

.2267 

24  OOO 

1 

INCR 

A 

POSITIvL,  must  re  A JOB 

0230 

REF 

1 

06 

.2270 

1 2343 

0 

TCF 

I TSAJ0B2 

0231 

REF 

12 

LAST 

63 

06 

’227I 

24  OOO 

1 

INCR 

A 

must  be  either  a waitlist  OR  longcall 

0232 

REF 

13 

LAST 

63 

06 

.2272 

54  111 

1 

Ts 

GOLOC 

let-s  store  The  correct  cadR 

0233 

REF 

2 

LAST 

62 

06 

.2273 

3 2OO4 

1 

CA 

wtltcadr 

SET  UP  OUR  EXIT  TO  WAITLIST 

0234 

REF 

14 

LAST 

63 

06 

.2274 

54  110 

0 

TS 

GOLOC  -1 
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0235 

REF 

15  LAST 

63 

06,2276 

3 0il2  0 

CA 

GOLOC  +1 

NOW  FIND  OUT  IF  IT  IS  A WAlTLISi  CALL 

0236 

REF 

2 LASl 

61 

06,2276 

7 7799  0 

'IASX 

BlTlO 

THIS  SHOULD  BF  ONE  iF  WE  HAVE  -8B 

0237 

REF 

13  last 

63 

06,2277 

10  Ooo  0 

CCS 

A 

FOR  THAT  MATTFR  SO  SHOULD  BE  BItS  9,8,7, 

A0238 

6,5,  AND  last  but  NOT  LEAST  (PERHAPS  NOI 

A0239 

IN  importance  anyway,  bit  9 

02A0 

REF 

1 

06,2300 

1 2336  1 

TCF 

ITSWTLST 

IT  IS  A waitlist  call 

02A1 

REF 

3 last 

63 

06,2301 

50  l96  1 

NDX 

Pointer 

obtain  the  origtnal  Delta  t 

02A2 

REF 

1 

06,2302 

3 2O00  0 

CA 

PRDTTAB 

address  for  TH19  longcall 

02A3 

REF 

1 

06,2303 

1 9073  0 

TCF 

ITSLGCLl 

NOW  GO  GET  THF  DELTA  TIMe 

R02AA 

7i,is  MUST  be 

IN  fixed  F 

[XED 

02A5 

9073 

3L0CK 

02 

02A6 

REF 

16  LAST 

69 

9073 

2 2 1 12  0 I TSLGCLl 

LXCH 

GOLOC  +1 

obtain  the  CORRfCT  f bank 

02A7 

REF 

3 LAST 

62 

907'* 

22  006  1 

LXCH 

BB 

02A8 

REF 

17  last 

69 

907S 

22  112  0 

LXCH 

GOLOC  +1 

AND  PRESERVE  OUR  E AND  F BANKS 

02A9 

9076 

0 0006  1 

EXTEND 

GET  THE  DELTA  TiME 

0250 

REF 

19  LAST 

69 

9077 

5 0000  1 

NDX 

A 

0251 

9100 

3 OUOl  0 

OCA 

0 

0252 

REF 

18  LAST 

69 

9101 

22  112  0 

LXCH 

GOLOC  +1 

RESTORE  OUR  E AnD  F BANK 

0253 

REF 

9 LAST 

69 

9102 

22  006  1 

LXCH 

BB 

RESTORE  THE  TASkS  E AND  F BANKS 

0259 

REF 

19  LAST 

69 

9103 

22  112  0 

LXCH 

GOLOC  +1 

AND  PRESERVE  OUR  L 

0255 

REF 

1 

9109 

1 2309  0 

TCF 

IT  SLGCL2 

NOW  LETIS  PROCESS  THIS  LONGCALL 

R02^6 

YCUb  LAY 

return  to  swi 

iched  fixed 

0257 

06*2309 

3ANK 

Ob 

0258 

REF- 

1 

06,2309 

53*153  0 ITSLGCL2 

OXCH 

LONGTIME 

0259 

06,2305 

0 0006  1 

extend 

calculate  Time  i eft 

0260 

REF 

1 

06,2306 

9 0025  1 

DCS 

T1ME2 

0261 

REF 

2 LAST 

69 

06,2307 

21*153  0 

DAS 

LONGTIME 

0262 

06,2310 

0 OOO6  1 

EXTEND 

0263 

REF 

1 

06,2311 

3 1933  1 

OCA 

LONGBASE 

0269 

REF 

3 LAST 

69 

06 , 23  1 2 

21*153  0 

OAS 

Longtime 

0265 

rsf 

9 LAST 

69 

06,2313 

11*152  1 

CCS 

longtime 

find  out  hOw  this  should  be  restarted 

02  66 

REF 

1 

06,231^ 

1 2329  1 

TCF 

LONGCLCL 

0267 

06,2315 

1 2317  1 

TCF 

+ 2 

0268 

REF 

2 LAST 

62 

06,2316 

1 2‘723  1 

TCF 

IMEDIATE  -3 

0269 

REF 

5 LAST 

69 

06,2317 

11*153  0 

CCS 

LONGTIME  +1 

0270 

REF 

2 LAST 

69 

06,2320 

1 2329  1 

TCF 

LONGCLCL 

0271 

06,2321 

1 2322  1 

NIOOP 

CANIT  GET  HERF 

0272 

REF 

3 LAST 

69 

06,2322 

1 2-723  1 

TCF 

IMEDIATE  -3 

0273 

REF 

9 LAST 

69 

06,2323 

1 2';26  1 

TCF 

IMEDIATE 

A8895AA 

Y JL 

SYSTEM  fOR  AGC; 

NEW 

PhOOR 

AM  shepati; 

3Y  EYLES 

L 

RE5 

tart 

tables  ANOi 

RESTARTS  RjJTlFlE 

027A 

REF 

1 

06 

2329 

3 2OO2 

1 

LONGCLCL 

CA 

0275 

REF 

20 

LAST 

69 

06 

2325 

59  no 

0 

TS 

0276 

06 

2325 

0 0O06 

1 

EXTEND 

02  n 

REF 

6 

LAST 

69 

06 

232  7 

3 1153 

1 

OCA 

0278 

REF 

21 

LAST 

65 

06 

233U 

0 olio 

1 

TC 

0279 

REF 

3 

last 

63 

06 

233I 

3 2AI09 

1 

itslngcl 

CA 

0280 

ref 

22 

last 

65 

Oo 

2332 

59  110 

0 

TS 

0281 

REF 

8 

LAST 

63 

06 

2333 

50  I95 

1 

MDX 

0282 

REF 

3 

LAST 

63 

06 

2339 

3 1119 

1 

CA 

0283 

REF 

2 

LAST 

69 

06 

2335 

1 9073 

0 

T CF 

0289 

REF 

23 

LAST 

65 

06 

2336 

9 0112 

1 

ITSWTl-ST 

CS 

0285 

RiF 

29 

LAST 

65 

06 

233  7 

5 9 112 

1 

TS 

0286 

REF 

9 

LAST 

69 

06 

239O 

50  196 

1 

NDX 

028  7 

R-F 

2 

LAST 

69 

06 

239I 

3 2OOO 

0 

CA 

0288 

REF 

1 

06 

2392 

1 2202 

1 

ICF 

0289 

REF 

25 

LAST 

65 

06 

2393 

56  111 

0 

I T5AJ0B2 

XCH 

0290 

REF 

5 

LAST 

65 

06 

2399 

50  196 

1 

NDX 

0291 

REF 

3 

LASl 

65 

06 

2395 

3 2000 

0 

CA 

0292 

REF 

26 

LAST 

65 

06 

2395 

c 

0 

0 

1 

TC 

0293 

REF 

3 

LAST 

63 

06 

2397 

3 OI97 

0 

itseven 

CA 

0299 

REF 

27 

LAST 

65 

06 

235O 

5 9 113 

0 

1 S 

0295 

REF 

9 

LAST 

65 

06 

235I 

50  195 

1 

SDX 

0296 

REp 

2 

LAST 

63 

06 

2352 

3 2116 

0 

CA 

0297 

REF 

7 

LAST 

63 

06 

2353 

6 OI99 

0 

AD 

0298 

REF 

8 

LAST 

65 

06 

2359 

6 OI99 

0 

AD 

0299 

REF 

9 

LAST 

65 

06 

2355 

6 0199 

0 

AD 

0300 

'^Ep 

6 

LAST 

65 

06 

2356 

59  196 

0 

TS 

0301 

REF 

1 

06 

235  7 

1 2262 

1 

TCF 

0302 

REF 

1 

06 

236° 

3 6301 

0 

PHSPAR  T 2 

CA 

0303 

REF 

! 

LAST 

65 

06 

2361 

26  196 

0 

ADS 

0309 

REF 

5 

last 

63 

06 

2362 

3 2005 

0 

CA 

0305 

REF 

28 

LAST 

65 

06 

2363 

59  113 

0 

TS 

A0306 

0307 

REF 

2 

LAST 

65 

06 

.2  369 

1 2262 

1 

TCF 

DtZC  13,  I966  (MAIN)  PAGE  6i> 


USER'S  OWN  PaGf  no.  10  E3 

LGCLCADR 
GOLOC  -1 

WE  WILL  GO  TO  LoNGCALL 

longtime 

GOLOC  -1 

PREPARE  OUR  ENTkY  TO  LONGCALL 

WtLtCADR 
GOLOC  -1 

ASSUME  IT  WILL  GO  TO  WAITLIST 

TEMP2G 

PHSPRDTl 

GET  THE  DELTA  T ADDRESS 

ITSLGCLl 

NOW  GET  THE  DFLtA  TIME 

GOLOC  +1 
GOLOC  +1 

CORRECT  THE  BBCr.N  INFORMAIION 

Pointer 

PRDTTAB 

Get  THE  dt  and  find  out  if  It  was  stored 

DIRECILY  OR  INDIRECTLY 

timetest 

FIND  OUT  HOW  THf  TImE  IS  STORED 

GOLOC 

store  the  CADR 

pointer 

PRDTTAB 

GOLOC  -1 

ADD  THE  PRIORITY  AND  LeTIS  GO 

tempswch 

GOLOC  +2 

SET  UP  FOR  EITHfR  THE  SECOND  PART  OF  THE 
TABLE.  OR  A Rf TORN  FOR  THE  NEXT  GROUP 

TEMP2G 

sizetab 

TEMPPHS 

tempphs 

TEMPPHS 

POINTER 

set  up  pointer  for  our  location  within 
The  table 

THIS  MAY  LOOK  BAD  BUT  LETiS  SEE  YOU  DO 

better  in  time  or  numbeRR  of  locations 

C0NTBL2 

NOW  PROCESS  what  IS  IN  THE  TABLf 

THREE 

POINTER 

SET  THE  pointer  FOR  THE  SECOND  HALF  OF 
THE  table 

rtrncadr 
GOLOC  +2 

C0NTBL2 

this  will  Be  uUr  LAqT  time  through  the 
EVEN  lADLE  . SO  AFTER  IT  GET  ThE  NeXT 
GROUP 

SO  LeT:S  get  THf  SECOND  entry  It  the  TBL 

CUNTBL2 
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L restart  tables  and  restarts  RjJIiNE  USER’S  OWN  PAGE  NO.  11  E3 


0308 

REF 

18 

LAST 

61 

01A4 

TENPPHS 

EQUALS 

MPAC 

0309 

REE 

19 

EASY 

66 

01A5 

TEMP2G 

EQUALS 

MPAC  +1 

0310 

REF 

20 

LAST 

66 

0U6 

POINTER 

equals 

MPAC  +2 

0311 

REF 

21 

LAST 

66 

OUT 

T EMPsWCH 

EQUALS 

MPAC  +3 

0312 

REF 

1 

0111 

GOLOC 

EQUALS 

OVFIND 

0313 

REF 

1 

5355 

M1NU52 

EQUALS 

NEG2 

031A 

REF 

1 

6130 

0CT177 

EQUALS 

LOW7 

66 
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P0056 

SUL 

ROUT INE 

TO  update 

T HE  program  number 

display  on  the  dsky. 

00569 

4105 

3L0CK 

02 

0057 

REF 

1 

4105 

50  002  0 

newmodex 

INDEX 

Q 

update  MODREG. 

0058 

4106 

3 OOOO  1 

CAF 

0 

0059 

REF 

2 

LAST 

67 

4107 

24  002  0 

INCR 

0 

0060 

REF 

1 

4il0 

5b  302  0 

XCH 

mudreg 

0061 

4111 

4 OOOO  0 

COM 

IF  NO  CHANGE  TN  MODE.  RETURN  IMMEDIATELY 

0062 

REF 

2 

LAST 

67 

4112 

6 0302  0 

AD 

MODREG 

0063 

4113 

0 0006  1 

EXTEND 

006A 

REF 

1 

41 1 A 

1 7OII  1 

3ZF 

Tea 

006A5 

4115 

3 4I2O  0 

CAF 

+3 

CALL  PINBALL  SUF^ROUTINE 

0065 

REF 

9 

LASl 

54 

4 116 

22  006  1 

PrEBJUMP 

lXch 

BBAnK 

PUTS  BBAnK  in  L 

0066 

REF 

1 

4117 

1 5246  0 

rCF 

BANKJUMP 

PUTS  U INTO  A 

0067 

REF 

1 

4120 

72000  1 

CADR 

SETUPDSP 

Ro068 

return  to 

caller  +3  1 

iF  mode  = 

that  at  caller  +1.  otherwise  Return  to  caller  +2. 

0070 

REF 

3 

LAST 

67 

4121 

50  002  0 

checkmm 

INDEX 

0 

0071 

4122 

4 OOOO  0 

CS 

0 

0072 

REF 

3 

LAST 

67 

4123 

6 0302  0 

AD 

MODREG 

0073 

412A 

0 0006  1 

EXTEND 

007A 

REF 

1 

4125 

1 7010  0 

3ZF 

0 + 2 

0075 

R-F 

1 

4126 

1 7OO6  1 

TCF 

Q+1 

NO  MATCH 

0078 

REF 

2 

LAST 

67 

7011 

Tea 

= 

Q + 2 +1 

00781 

35*2000 

3ANK 

35 

00782 

35«2000 

0 0O04  0 

setupdsp 

INHINT 

00782a 

ref 

3 

LAST 

52 

35.2001 

52  071  0 

OXCH 

RUPTREGl 

SAVE  CALLER-5  RfTURN  2CAdR 

00783 

REF 

1 

35.2002 

3 5226  1 

CAF 

PRIO3O 

either  a task  or  job  can  come  TC 

0078A 

REF 

1 

35.2003 

0 5523  0 

T C 

NOVAC 

NEWMODEX 

00785 

REF 

4 

LAST 

67 

EO 

ebank= 

MODREG 

00786 

35.200A 

02011  0 

2CA0R 

DSPMMJOB 

C00786 

REF 

1 

35,2005 

72O60  1 

00786A 

REF 

4 

las  , 

67 

35,2006 

52  071  0 

OXCH 

RUPTREGl 

00787 

35 .200  f 

0 0003  1 

RELINT 

00788 

REF 

1 

35,2010 

52  006  0 

OXCH 

Z 

return 

007892 

REF 

1 

35*2011 

0 5224  0 

DSPMMJOB 

TC 

BANKCALL 

00789A 

REf 

1 

35.2012 

I3AO3  1 

cadr 

DSPMMI 

007896 

REF 

2 

last 

61 

35,2013 

1 5605  0 

TCF 

ENDOFJOB 

007898 

4127 

3L0CK 

02 

A8895AA 
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L 

phase  table  Maintenance 

USER'S 

OWN  PaGf  no.  2 

POO79 

ROO8I 

PHASCHNC  IS  TFiE  MAIN  WAY  oF  MA<1nO  PHASE  CHANGES  FOR 
A,  |YPe  B,  aND  1 YPe  C.  tHrY  AHe  aEL  CALLeD  AS  FOLLOWS 

restarts.  tHeRe 
, WH^Re  OCt  xxxxx 

ARE  THREE  FORMS  OF  PHASCHNG,  KNOWN  AS  TYPE 

Contains  the  pl.ase  information. 

A0083 

A008A 

Rnnfic; 

TC 

DCT 

TYPi.  a 15  CrNCpRNFD  WITH  FlXrJ  PHASf  CHANGfS,  THAT  IS 

PHASCHNG 

XXXXX 

, PHASf  INFORMATI 

onthat  is 

StORfD  FfRMaNfNTLY.  tH. Sf 

R0087  O^TIO^S  ARE*  WHERE  G STANuS  FJR  A GROUP  AND  .X  FOR  THE  PHASE, 


R0088 

R00891 

R0091 

R0093 

R009A 


G.o  inactive*  willnot  permit  a group  g restart 

G,1  WILL  cause  THe  LaST  DISPLAY  TO  Be  REACTIVATED,  USeD  MAInLY  IN  MANNED  PLIGHTS 

g.even  a Double  table  RfStart*  can  cause  any  combinaiion  of  tWo  jobs,  tasks,  ajD/or 

LUNGCALL  to  be  restarted. 

G.ODD  NOT  .1  A SINGLE  TABLE  ReSTARt,  CaN  CAUSE  EItHeR  A JOB,  TASK,  OR  LONGCALL  RESTART 


Roo^s  this  INPORMaTION  is  PUT  INTO  Me  octal  word  aPter  tc  phaschng  as  pollows 


R0096  TLO  OOP  PPP  32p  &GG  , 

R0099  where  each  letter  OR  number  51  AMDS  FOR  A BIT.  THE  G:S  STAND  FOR  THE  GROUP,  OCTAL  1 _ 7,  THe  PiS  FOR  THe  PHASE, 
ROIOl  OCTAL  0 - 127.  o:S  MUST  BE  0.  IF  ONE  WISHES  TO  HAVE  THE  TBASE  OP  GROUP  G TO  Be  SET  AT  THIS  TIME, 

ROlOA  T Is  SEl  ID  1,  OTHERWISE  11  Is  SE'  TO  0.  sIMIArlY  IF  ONE  WIsHEs  TO  SET  LONGBAsE,  THEN  I Is  SET  TO  1,  OTHERWISE 
R0106  it  is  set  TD  0.  SOME  EXAMPLES, 


A0107 

1C 

phaschng 

THIS  WILL  CAUSE  GROUP  3 TOBE  SEl  TO  0’ 

A0108 

DCT 

00003 

making  group  3 INACTIVE 

A0109 

TC 

PHASCHNG 

IF  A restart  oCrURS  THIS  WOULD  rAUSE 

AOIIO 

DCT 

00012 

GROUP  2 TO  RfSTaRT  iHE  EAST  DISPLAY 

AOlll 

TC 

PHASCHNG 

THIS  sets  THe  TFASE  OF  GROUP  4 AND  IN 

A0II2 

DCT 

AO06A 

CASE  OF  A Restart  would  start  up  tHe  two 

A0113 

things  located  iN  The  double  4.6  restart 

A0119 

LOCATION 

A0115 

TC 

PHASCHNG 

THIS  Sets  longbaSe  and  upon  a Rfstart 

AOII6 

dct 

20135 

CAUSES  5.13  TO  BE  RESTARTED  (SINCE 

A0117 

LONGBASE  WAS  SET  THIS  SINGLE  ENfRY 

AOII8 

SHOULD  be  a LONf,CALL) 

A0119 

TC 

PHASCHNG 

since  both  TBASf4  and  LONGBASE  ARE  SET, 

A0120 

DC  r 

60124 

4.12  SHOULD  contain  BOTH  A TASK  AND  A 

A0121 

LONGCALL  10  BF  RESTARTED 

ROI22 

type  c F'haschng  Contains  the  yarmble  type  of  phaschng. 

information. 

Instead  of  ihe'  infopMation  Being  in  a 

R0124  Permanent  form,  one  stores  the  de^ired  restart  information  in  a variabke  locaiion.  ihf  bits  are  as  follows, 


R0126  TLO  lAD  XXX  CJW  gGG 

R0127  WHERE  EACH  LETTER  OR  NUMBER  SlANUS  FOR  A BIT.  THE  G:S  STAND  FOR  IHF  GROUP,  OCTAL  1 - 7.  IF  THE  RESTART  IS  TO 

R0129  be  by  WhIIl'ST,  W IS  SET  TO  1.  IF  IT  IS  A JOB,  J IS  SET  TO  1,  IF  IT  IS  A lONGCALL*  C IS  SET  TO  i.  ONlY  ONE  OF 

R0131  these  TL REE  BIT  S MAY  BE  SET.  XM  ARE  IGNORED  i MUST  BE  1,  AND  0 MUST  BE  0.  AGAIN  T STANDS  FOR  THE  IBASE, 
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R0133  AHD  L FOR  LcNGBASE.  THe  BITS  A A^D  D ARE  CONCERNED  WUH  tHe  VARIABLE  INFORMATION.  IF  D IS  SET  TO  1,  A PRIORITY 

Roi35  or  Delta  tI'e  will  ee  Read  from  t'^e  Next  location  afteR  the  octal  information,  if  this  is  to  be  indirect,  that 


R0137  is,  he  name  OF  A LOCATION  C3\iiaINING  THE  INFORMATION  (DELTA  tIMe  ONLY),  tHeN  tHIS  IS  GiVeN  AS  THe  -GeNaDR  OF 

R0139  that  location  WhICH  COl.TAINS  HE  DELTA  TIME.  IF  THE  OLD  PRIORITY  OR  DELTA  TIME  Is  TO  Bf  UsfD,  ThAT  WHICH  IS 

ROlAl  already  in  the  variable  SIORASE,  ‘Hen  D is  set  to  O.  next  the  a bit  is  used.  if  it  is  set  TO  0,  the  address 

Roia3  that  aould  Be  Restarted  durins  a Restart  is  tHe  weXt  location  after  tHe  phase  information,  that  is,  eItheR 

R01A5  (TC  PHasCHNG)  +2  oR  +3,  DFPt\|Dl\IG  ON  WHETHER  D HaO  BEEN  SET  oR  NoT . IF  A IS  SET  To  1,  THEN  THE  ADDRESS  THAT 

ROIAT  would  Be  RLSTARTED  is  the  2CADR  I'HAT  15  ReAD  FROM  THe  NeXT  TWO  LOCATIONS.  EXAMPLES, 


A0149 

AD 

TC 

PHASCHNG 

A0150 

A0+  1 

OCT 

05023 

A0151 

AD  + 2 

OCT 

23000 

A0152 

AD+3 

A0153 

AD 

TC 

PHASCHNG 

A015A 

AD+1 

OCT 

27441 

A0155 

AD  + 2 

-SENADR 

deltime 

A0156 

AO  + 3 

2CADR 

CALLCALL 

A0157 

AD  + S 

A0158 

AD+b 

A0159 

this  WOULD  CAUSE  LOrATlON  AD  +3  TO  Be 
RESTARTED  BY  GpnUP  THREE  WiThA  priOrjIY 
OF  23.  NOTE  UPON  RETURNING  IT  wOULD 
ALSO  GO  TO  AD*3 

group  1 WOULD  tAUSe  CaUSe  CaLLCALL  TO 

be  Started  as  a longcall  from  t-ie  time 
stored  in  LONgBaSe  (LONGBASE  was  set)  by 
A deltatime  stored  in  DELTIMe.  the 

BBCON  OF  the  2CaDR  SHOULD  CONTAIN  THE  E 
bank  of  DeLTIMe.  PHaSCHNG  returns  TO 
LOCATION  AD+5 


Ro160  type  3 PHASCHNG  IS  A CoMDINAtIOM  OF  VARIABLE  AND  FIXeO  PHASe  CHANGeS.  It  WILL  START  UP  A JOB  AS  INDICATrD 
R0162  below  Af.D  ALSO  START  JP  ONE  FIXED  RESTART,  THAT  iS  EItHeR  AN  G.l  OR  A G.ODD  OR  THE  FIRST  ENTRY  OF  G.eVeN 
R016A  double  entry.  the  bit  information  is  as  FOLLOWS, 

R0165  TLl  DAP  ppp  P->P  GGG  ' 

R0166  where  each  letter  OR  NUMBER  STANDS  FOR  A 3IT.  THE  0:5  STAND  FOR  THe  GROUP,  OCTAL  1-7.  THe  P:3  FOR  THe  FIXeD 
R0168  phase  ILFoRVATION,  OCTAL  o - 127.  1 MUST  3E  1.  AND  AGAIN  T STANDS  FOR  THE  TBASE  AND  L FOR  LONGBASE.  D tHIS 

R0170  time  stands  only  For  PRIORIIY  SINLe  this  will  Be  considered  A JOB,  AND  IT  must  Be  given  DIRrCtLY  if  gIVlN. 

Ro172  AGAIN  A SrA^;DS  FOR  THE  ADDRESS  OF  THe  LOCATION  TO  Be  RESTARTED,  1 IF  THE  2CADR  IS  GIVeN  , OR  0 IF  IT  IS  TO  BE 
R017A  the  MeXI  LOCAt ION. (the  refURn  location  of  PHASCHNS)  examples. 


A0175 

A0176 

AD 

AD+1 

TC 

OCT 

PHASCHNG 

56043 

tbase  is  Set  anp  arestakt  cause  group  3 

TO  start  the  jOp  AJOBAJOB  WITH  pRIORITY 

A0177 

AO  + 2 

OCT 

31000 

31  and  THE  first  ENtRY  OF  3.4SP-iT(WE  CAN 

A0178 

A 0 + 3 

2CADR 

AJOBAJOB 

ASSUME  IT  IS  A TASK  SINCE  WE  SET  TBASE3) 

A0179 

AD  + S 

upon  return  FRQl,  PHaSCHNG  control  WOULD 

A0180 

AD+5 

GO  TO  AD+5 

A0181 

AD 

ic 

PHASCHNG 

UPON  A Restart  tHe  I-ASt  display  would  be 

A0182 

AD+1 

OCT 

10015 

RESTARTED  AND  A JOB  WITH  THE  PREVIOUSLY 

A0183 

AD  + 2 

stored  PRIORITY  WOULD  BE  BEGUN  AT  AD+2 

R0185  SUMMARY  OF  BITS 

R0186  TYPE  A TLO  OOP  PPP  PPP  G^G 
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L 

R0187 

R0188 


phase  table  Maintenance  user's  own  page  no.  a 

TYPE  3 TLI  dap  PPP  ?=P  G^G 

TYPE  C TLO  lAD  XXX  CJ«  G^G 
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P0189 

R0191 

R0193 

2=hschng  is  used  when  one  wishes  10  Start  up  a group  or  change  a 
GROUP,  f OR  example,  CHANGE  He  ahASE  CP  GROUP  3 WHILE  THE  PORTION 
CALLS  ARE  made  IN  THE  TOLLOWl  \(G  MANNER, 

GROUP  while  under  THp  r ONTROL  OF  A DIFFERENT 

OF  the  program  IS  under  group  5.  ALL  pPHSCHNG 

A019A 

1C 

2PHSCHNG 

A0195 

OCT 

XXXXX 

A0196 

OCT 

YYYYY 

R0197 

where 

OCT  XXXXX  MUST  &L 

OF  TY 

ae  a AND  OCT  YYYYY 

MAY  Be  I 

OF  either 

type  a 

OR  type  b or  typlc,  there  is  One 

R0199 

DIFFERErCL  - 

— NOTE-  IF 

longsase  is 

TO 

Be  Set  this  information  is 

given 

IN  the  OCT  YYYYv  INFORMATION,  It  WILL 

R0201 

BE  DI 

SR 

lgarced  if  given 

wttH 

he  OCT 

XXXXX  INFORMATION. 

A couple 

of  examples  may  help. 

A0203 

AO 

TC 

2PHSCHNG 

SET  TBASE3  AND  tF  A RESTART  OCCURS  START 

Ao20A 

AD+  1 

DC  T 

40083 

THE  TrtO  ENTRIES  IN  3.8  lABLE  LOCATION 

A0205 

AO  + 2 

OCT 

05025 

THIS  IS  OF  TYPE  C,  SET  THE  JOB  rO  BE 

A02O6 

AD  + 3 

OCT 

18000 

TO  BE  LOCATION  aD+4,  WITH  A PRIORITY  18, 

A0207 

AD  + 4 

FOR  GROUP  5 PHASE  INFORMATION 

0209 

A 127 

0 0004 

C 

2PHSCHNG 

INHINT 

the  ENTRY  For  a double  phase  Change 

0210 

RHF 

A 

LAST 

67 

A130 

50  002 

0 

\DX 

0 

0211 

4131 

3 0000 

1 

CA 

0 

0212 

REF 

5 

LAS  r 

71 

4132 

24  002 

0 

INCR 

0 

0213 

REf 

1 

4133 

54  O72 

0 

TS 

T EMPP2 

021A 

REF 

2 

LAST 

61 

413A 

7 7157 

1 

MAS< 

OCT7 

0215 

413S 

6 OOOO 

1 

DOUBLE 

0216 

REF 

1 

4136 

54  'J/l 

0 

TS 

TEMPG2 

0217 

REF 

2 

LAST 

71 

413  ^ 

3 OO72 

1 

CA 

TEMPP2 

0218 

REF 

1 

4140 

7 4227 

0 

MASK 

0CT17770 

need  only  1770,  but  WHY  GET  A NeW  CONST. 

0219 

4141 

0 OOO6 

1 

EXTEND 

0220 

REF 

1 

4142 

7 7742 

0 

MP 

B1TI2 

0221 

REF 

3 

LAST 

71 

4143 

55  O72 

1 

XCH 

TLMPP2 

0222 

REF 

1 

4144 

7 7737 

1 

MASK 

BiT15 

0223 

REF 

1 

4145 

54  066 

0 

TS 

TEMPSW2 

INDICATES  whether  TO  SE 1 TBASE  OR  NOT 

022A 

REF 

1 

4146 

1 4152 

1 

TCF 

PHASCHNG 

+ 3 

0225 

4147 

0 0O04 

0 

PHASCHNG 

inhint 

0226 

REF- 

3 

LAS  I 

62 

4150 

3 7755 

1 

CA 

ONE 

indicateswe  came  from  a phaschns  entry 

0227 

REF 

2 

LAST 

71 

415I 

54  066 

0 

1 S 

TEMPSW2 

0228 

REF 

6 

LAST 

71 

4152 

50  002 

0 

NDX 

0 

0229 

4153 

3 QOOO 

1' 

CA 

0 

0230 

REF 

7 

LAST 

71 

4154 

24  002 

0 

INCR 

U 

0231 

REF 

I 

4155 

54  065 

0 

TS 

TEMPSW 

0232 

4156 

0 0006 

1 

EXTEND 

488954A 
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L 

pHAbb  table 

MAlNTtMANcb 

USER'S  OwN  pAGF  NO,  6 

0233 

REF 

1 

4157 

3 4l62 

0 

OCA 

ADRPCHN2 

OFF  TO  SWITCHED  BANK 

0234 

4160 

52  006 

0 

OTCB 

0234& 

REF 

9 

LASl 

61 

b3 

ebank= 

LSTl 

0235 

4161 

023b5 

0 

ADRPCHN2 

2CADR 

PHSCHNG2 

C0235 

REF 

1 

4162 

14003 

1 

023b 

REF 

1 

4163 

22  073 

0 

omeortwo 

LXCH 

TEMPB6CN 

0237 

REF- 

10 

LAST 

67 

416A 

22  006 

1 

LXCH 

BQANK 

0238 

REF 

2 

LAST 

72 

4165 

22  073 

0 

LXCH 

TbMPBBCN 

0239 

REF 

1 

4165 

7 5656 

0 

vlASK 

OCT  14000 

SEE  WHAT  KIND  OF  PHASE  CHANGE  IT  IS 

0240 

REF 

15 

LAST 

64 

416  / 

ID  OOO 

G 

CCS 

A 

0241 

REF 

1 

4170 

1 4430 

0 

ICF 

CHECKS 

IT  IS  OF  TYPE  !B; 

02^2 

REF 

1 

4 i7  1 

3 OO62 

0 

CA 

TbMPP 

0243 

REF 

1 

4172 

7 7F47 

0 

YASk 

B1T7 

0244 

REF 

16 

LAST 

72 

4173 

ID  000 

0 

CCS 

A 

SHALL  WE  USE  ThE  OLD  PRIORITY 

0245 

REF 

1 

4174 

1 4214 

0 

T CF 

Getprio 

NO  Get  a New  priority  (or  delta  t) 

02^6 

REF- 

1 

4175 

5o  U61 

0 

OLDPRIO 

MDX 

tempg 

USE  THE  OLD  PRIORITY  (OR  DELTA  T) 

0247 

REF 

4 

LAST 

65 

4175 

3 1112 

1 

CA 

PHSpRDTl  -2 

0248 

REF 

1 

4177 

54  070 

1 

1 S 

TtMPPR 

0249 

REF 

2 

LAST 

72 

4200 

3 0062 

0 

CONI 

CA 

tempp 

SEE  IF  A 2GADR  iS  GIVEN 

0250 

REF 

1 

4201 

7 7 146 

1 

YASK 

BITS 

0251 

REF 

1 7 

LAST 

72 

4202 

ID  000 

0 

CCS 

A 

0252 

REF 

1 

4203 

1 4420 

1 

TCF 

GETNEWNM 

0253 

REF 

8 

LAST 

71 

4204 

3 0002 

0 

CA 

Q 

0254 

REF 

1 

4205 

54  063 

0 

IS 

TEMPNM 

0255 

REF 

5 

LAST 

64 

4206 

3 0006 

1 

CA 

BB 

0256 

REF 

1 

4207 

54  064 

1 

TS 

T EMPBB 

0257 

REF 

1 

42l0 

3 4413 

0 

TDC0N2 

CA 

CON2ADR 

BACK  TO  SWITCHED  BANK 

0258 

REF 

3 

LAST 

72 

4211 

22  073 

0 

LXCH 

TEMPBBCN 

0259 

4212 

52  006 

0 

OTCB 

0260 

REF 

1 

4213 

02453 

1 

C0N2ADR 

oENAOR 

CON2 

0261 

REF 

9 

Last 

72 

421 A 

50  002 

0 

getprio 

\IDX 

0 

DONIT  CARE  IF  DtKeCt  OR  INDIRECT 

0262 

REF 

4215 

3 OOOO 

1 

CA 

0 

LEAVE  THAI  DECISION  TO  RESTARTS 

0263 

10 

LaS  1 

72 

4216 

24  002 

0 

INCR 

0 

Obtain  re ! urn  address 

0264 

REF 

1 

421  ! 

1 4 177 

0 

TCF 

CONI  -1 

02645 

4220 

0 0O06 

1 

GETNEWNM 

EXTEND 

0265 

REF 

11 

LAST 

72 

4221 

5 OOO2 

0 

INDEX 

0 

0266 

4222 

3 OOOl 

0 

OCA 

0 

0267 

REF 

2 

LAST 

72 

4223 

52  064 

1 

OXCH 

TEMPNM 

0268 

REF 

2 

LAST 

55 

4224 

3 7154 

0 

CA 

TWO 

1'^ 
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0269 

REF 

12 

LAST 

72 

9226 

26  U02  1 

ADS 

q 

0270 

ref 

1 

9226 

1 9910  1 

ICF 

TOC0N2 

0271 

922? 

17?70  1 

0CT17770 

OCT 

17770 

0272 

REF 

2 

LAST 

61 

56  56 

0CT19000 

EQUALS 

PRI019 

0273 

REF 

1 

7757 

OCT  7 

EQUALS 

SEVEN 

0279 

REF 

11 

LAST 

52 

0061 

TEMPO 

equals 

n EMPl 

0275 

REF 

11 

LASI 

52 

0062 

TEMPP 

EQUALS 

nEMP2 

0276 

REF 

8 

LAST 

52 

0063 

tempnm 

EQUALS 

ITEMP3 

0277 

REF 

5 

LAST 

52 

0069 

tempbb 

EQUALS 

ITEMP9 

0278 

REF 

5 

LAST 

52 

0065 

tempsw 

EQUALS 

ITEMP5 

0279 

REF 

5 

LAST 

52 

0066 

TEMPSW2 

EQUALS 

ITEMP6 

0280 

REF 

5 

LAST 

67 

0070 

T EMPPR 

EQUALS 

RUPTREGl 

0281 

REF 

3 

LAST 

52 

0071 

TEMPG2 

EQUALS 

RUPTREG2 

0282 

REF 

5 

LAST 

52 

0072 

TEMPP2 

EQUALS 

RUPTREG3 

0283 

REF 

5 

LAST 

52 

0073 

TEMPBbCN 

equals 

RUPTREG9 

0289 

REF 

11 

LAST 

72 

0006 

BS 

equals 

bbank 

0285 

36*2365 

3AN< 

06 

02855 

REF 

3 

LAST 

63 

C3 

ebank= 

PH5NAME1 

0286 

REF 

9 

LAST 

72 

06 , 2366 

22 

0 

PHSCHNG2 

LXCH 

TEMPBBCN 

0287 

REF 

2 

LAST 

71 

06,2366 

3 0065 

1 

:a 

TEMPSW 

0288 

REF 

3 

last 

71 

06 , 236  ? 

7 7 ?57 

1 

MASK 

0CT7 

0289 

06,2370 

6 OOOO 

1 

DOUBLE 

0290 

REF 

2 

LAST 

72 

06,2371 

69  061 

1 

TS 

TbMPG 

0291 

REF 

3 

LAST 

73 

06,2372 

3 0065 

1 

CA 

TEMPSW 

0292 

REF 

2 

Last 

71 

06,2373 

7 9227 

0 

MASK 

0CT17770 

0293 

06,2379 

0 0O06 

1 

EXTEND 

0299 

REF 

2 

LAST 

71 

06,2376 

7 7?92 

0 

MP 

B1T12 

0295 

REF 

3 

LAST 

72 

06,2376 

59  062 

1 

TS 

TEMPP 

0296 

REF 

9 

LAST 

73 

06,237? 

3 0065 

1 

CA 

TEMPSW 

0297 

REF 

1 

LAST 

06,2900 

7 2936 

0 

MASK 

0CT60000 

0298 

REF 

5 

73 

06 ,2901 

5b  065 

1 

XCH 

TEMPSW 

0299 

REF 

2 

LAST 

72 

06,2902 

7 5656 

0 

MASK 

0CT19000 

0300 

REF 

18 

LAST 

72 

06,2903 

13  000 

0 

CCS 

A 

0301 

REF 

1 

06,2909 

. 1 9l63 

0 

TCF 

ONEORTWO 

0302 

REF 

9 

LAS  I 

73 

06 , 290  5 

3 0062 

0 

CA 

tempp 

0303 

REF 

3 

LAST 

73 

06,2906 

53  061 

0 

NDX 

TEMPG 

0309 

REF 

1 

06 , 2907 

55*076 

0 

1 S 

PHASEl  -2 

0305 

rSF 

3 

LAST 

71 

06,2910 

13  066 

0 

BELOWl 

CCS 

TEMPSW2 
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OBTAIN  RETURN  AnDRESS 
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0306 

RSP 

1 

06,2411 

1 2425 

1 ■ 

TCF 

BEL0W2 

IT:S  A PHASCH(yG 

0307 

06,2414 

1 2A13 

1 

TCF 

+ 1 

IT:S  a 2PH5CH(\iG 

0308 

REF 

4 

LA5I 

71 

06 ,291  A 

A 0072 

0 

CS 

TEMPP2 

0309 

REF 

5 

LASI 

74 

0 6 , 24  1 A 

22  On 

1 

LXCH 

TEMPP2 

0310 

REF 

2 

LAST 

71 

06,24lP 

50  O7I 

1 

NDX 

TEMPG2 

0311 

REF 

1 

06,2415 

53’076 

0 

OXCH 

-PHASEl  -2 

0312 

REF 

4 

LAST 

73 

06,2417 

10  Otb 

0 

CCS 

TLMPSW2 

0313 

06,2420 

1 2421 

0 

NOOP 

can:t  get  HERF 

031A 

REF 

2 

LASI 

74 

06,2421 

1 2425 

1 

TCF 

BLL0W2 

0315 

REF 

3 

LASI 

62 

06,2422 

4 0025 

1 

CS 

TlMEl 

0316 

REF 

3 

LAST 

74 

06,2423 

50  071 

1 

NDX 

TEMPG2 

0317 

REF 

2 

LAST 

62 

06,2424 

55'  ni 

0 

BEL0W2 

TS 

TBASEl  -2 

0318 

RtF 

6 

LAsl 

73 

06 , 242S 

10  065 

0 

CCS 

TEMPsw 

SEE  iF  WE  SFIOULn  sET  TBAsE 

Op  LOnGBAsE 

0319 

REF 

1 

06,2425 

1 2441 

0 

TCF 

BELOW3 

SET  LONGBASE  ONLY 

0320 

REF 

1 

06,2927 

1 2444 

0 

TCF 

BEL0W4 

SET  neither 

0321 

REF 

4 

LAST 

74 

06,2430 

4 0025 

1 

CS 

TIMEI 

SET  TBASE  TO  BEGIN  WITH 

0322 

REF 

4 

LAST 

73 

06,2431 

50  061 

0 

NDX 

TEMPG 

0323 

REF 

3 

last 

74 

06,2432 

5 5 ' 1- 1 1 

0 

TS 

TBASEl  -2 

032A 

RSF 

7 

LAsl 

74 

06,2433 

3 0065 

1 

CA 

TEMPSW 

shall  we  nOw  SFT  LOnGBAsE 

0325 

REF 

1 

06,243A 

6 2437 

0 

AD 

BIT14C0M 

0326 

REF 

19 

LAST 

73 

06,2935 

10  OOO 

0 

CCS 

A 

0327 

06 ,2935 

60O00 

1 

OCT60000 

OCT 

60000 

nik***  cant  get  here  ***** 

0328 

06,2437 

17777 

0 

B I T 14C0M 

OCT 

17777 

*****  CANT  GET  here  ***** 

0329 

REF 

2 

LAST 

74 

C6 ,2440 

1 2444 

0 

TCF 

BELOW4 

NO  WE  NEED  ONLY  SET  TBASe 

0330 

06,2441 

0 0O06 

1 

BEL0W3 

EXTEND 

SET  LONGBASE 

0331 

REF 

2 

LAST 

64 

06 ' 2942 

3 0025 

0 

OCA 

T1ME2 

0332 

REF 

2 

LAS'i 

64 

06,2443 

5 3 ’433 

0 

OXCH 

LONGBASE 

0333 

REF 

5 

LAST 

73 

06  >2444 

9 0062 

1 

BeL0W4 

CS 

TlMPP 

AND  STORE  THE  FINAL  PART  OF 

THE  PHASE 

0334 

REF 

5 

LAST 

74 

06 ,2445 

5 0 Ot,  1 

0 

NDX 

TLMPG 

0335 

REF 

2 

LAST 

74 

06,2445 

55,075 

0 

TS 

-PHASLl  -2 

0336 

REF 

13 

LAST 

73 

06 ,2447 

3 0002 

0 

CA 

0 

0337 

REF 

5 

LAST 

73 

06,2450 

22  U73 

0 

LXCH 

TLMPBBCN 

03375 

Oo ,245 1 

0 0003 

1 

relint 

0338 

06,2452 

52  006 

0 

DTCB 

0339 

REF 

6 

LAST 

74 

06,2453 

22  073 

0 

C0N2 

LXCH 

TEMPBBCN 

0340 

REF 

6 

LAST 

7A 

06 , 245 A 

3 0062 

0 

CA 

TLMPP 

0341 

ref 

6 

LAST 

74 

06,2455 

50  061 

0 

NDX 

TLMPG 

0342 

REF 

2 

LAST 

73 

06 ,2455 

55*076 

0 

TS 

PHASEl  -2 

0343 

u. 

Ill 

a: 

2 

LAST 

72 

06,2457 

3 0O70 

0 

CA 

TLMPPR 

A8895^A 

yJL 

Sy  3 
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PHASt  TABLE 
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03A4 

REF 

r 

LAST 

74 

06,2460 

50  061  0 

NDx 

TEMPG 

03A5 

REF 

5 

LAST 

72 

06 , 246 1 

55*112  0 

T 5 

PHSPRDTl  -2 

03A6 

LAST 

Oo ,2462 

0 0O06  1 

Extend 

0347 

REF 

3 

72 

06 ,2^63 

3 0064  0 

OCA 

TEMPNM 

0348 

REF 

8 

LAST 

75 

06 , 2464 

50  061  0 

NDX 

TEMPG 

0349 

REF 

4 

LAS  r 

73 

06 ,2465 

53*515  0 

OXCH 

PHSNAMEl  -2 

0350 

R^F 

1 

Oo ,2a66 

1 2410  1 

TCF 

BELOwl 

03505 

4230 

3L0CK 

02 

0351 

REF 

3 

LAST 

73 

4230 

7 7^42  0 CHECKS 

NASK 

BIT12 

SINCE  THIS  IS  OF  TYPE  B,  THIS  BIT  SHOULD 

0352 

REF 

20 

LAST 

74 

4231 

10  Ooo  0 

CCS 

A 

BE  here  if  we  are  to  GET  A NEW  PRIORITY 

0353 

REF 

2 

LAST 

72 

4232 

1 4214  0 

ICF 

GETPRIO 

IT  IS,  SO  GET  nfw  Priority 

0354 

Li- 

lli 

nr 

1 

4233 

1 4I75  1 

TCF 

OLDPRIO 

IT  ISN:T,  USE  THE  OLD  PRIORITY 
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P03S5 

R03565 

program  Description:  newphaSe  date:  ii  nov  i9a6 

■hod:  1 assembly:  sunburst  rev 

R03567  MOD  by:  CgPPS  LOG  SECTION:  PHaSe  TABLE  MAINTE  iANCE 

R0357  FJNCTIOIsAL  OESCRIPTJON: 


R03571 

R03573 

NeWPHASe  is  tHe  DJIGK  way  to  make  a non  variable  phase  change,  it  includes  tHf  option  of  setting 

TBASe  of  the  group,  if  tPASE  is  to  be  set.  _C(TIMei)  is  stored  in  the  TBASe  table  as  follows; 

R03575 

R03S76 

R03577 

R03578 

R03579 

(L-1)  TBASEO 

(L)  TBASEI  (IF  (jROUp  = l) 

(L+1) 

(L  + 2)  TBA,SE2  (IF  GrouP  = 2) 

R0358 

R03581 

R03582 

(L+6)  (BASES  (IF  UR0UP=A) 

(L  + 7) 

(L+8)  (BASES  (IF  Uroup=5) 

R0359 

R03592 

IN  ANY  case.  |He  NESATIVE  OF  tHe  PHASe.  FOLLOWED  (IN  THe  NeXT  ReGISteR)  BY  tHr  PHaSe*  IS  StORfD  IN  tHE 
phase  table  as  FOLLOWS; 

R03593 

(L)  -PHASt-l  (IF  GROUP=U 

R0359A 

R0359S 

R03596 

R03597 

(L+i)  PFtASEl 

(L+2)  -PHASE2  (IF  GROUP=2) 

(L+3)  PHASE2 

R03598 

R03599 

R0360 

(L+7)  phases 

(L+8)  -PHaSLS  (IF  GROUP=S) 

(L+9)  PHASES 

RO36OI 

R0361 

CALLING  sequence: 

example  is  for  placing  a phase  Of  five  into  group  three: 

R03615 

A0362 

A0363 

A036A 

1)  IF  TBASe  is  nut  TO'  3E  SET: 

L-l  CA  FIVE 

L TC  NEWPHASE 

L+1  OCT  00003 

R03645 

A0365 

A0366 

A0367 

2)  IF  TBASE  IS  TO  Be  SET^ 

L-l  CS  FIVE 

L TC  NEWPHASE 

L+1  OCT  00003 

R0368 

SUBROUTINES  CALLED:  NONE 

Ro3685 

NORMAL  exit  MoDe:  At  L+ ^ OF  CAL_INg  SeQUENCe 

R0369 

A-ARM  OP  ABORT  EXITS:  NONE 

R03695 

OUTPUT:  PHASE  TABLE  AND  TBASe  TABLE  UPDATED 

R0370  ERASABLc  INITIALUATION  ReGiO:  NO'YE 


488954A  YJL  SYSTEM  f-OK  AGC:  NeW  PkoGiRA'I  SMePAtIN  3Y  E^LeS 


Dec  13,  1966  (MAIN)  PAGE  71 


L phase  Table  maintenance  user*s  own  page  no.  u E3 


R03705 

debris: 

A.L.TEMPG 

R03T0& 

this 

PROGRAM  Is 

13  De  1 

placed  in  fixed-fixed  and  UNSWITCHeC 

1 ERASABLE. 

0371 

9239 

3L0CK 

02 

0372 

923'* 

0 0O09 

0 

NEWPHASE 

INHINT 

0373 

REF 

3 

LAST 

62 

923^) 

59  OOl 

1 

TS 

l 

SAVE  FOR  further  USE 

0379 

REF 

19 

LAST 

79 

923P 

53  002 

0 

NDX 

0 

OBTAIN  THE  GROUP  NUMBER 

0375 

923  T 

3 OOOO 

1 

CA 

0 

0376 

REF 

15 

LAST 

77 

9290 

29  002 

0 

INCR 

Q 

OBTAIN  the  return  ADDRESS 

0377 

9291 

6 0000 

1 

DOUBLE 

SAVE  THE  GROUP  IN  A FORM  USED  FOR 

0378 

REF 

9 

LAST 

75 

9292 

59  061 

1 

TS 

TEMPG 

INDEXING 

0379 

REF 

9 

LAST 

77 

9293 

13  UOI 

1 

CCS 

l 

SEE  IF  WE  ARE  TO  SET  TBASE 

0380 

9299 

1 9253 

0 

TCF 

*7 

NO,  THE  DELTA  T WAS  POSITIVE 

0381 

9293 

1 9253 

0 

TCF 

+ 6 

0382 

REF 

21 

LAST 

75 

9296 

29  ooo 

1 

INCR 

A 

Set  tbase  and  Store  phase  correctly 

0383 

REF- 

5 

LAST 

77 

9297 

59  oOl 

1 

TS 

L 

0389 

REF 

5 

LAST 

79 

92  5O 

9 0025 

1 

cs 

timfi 

set  tbase 

0385 

REF 

10 

LAS! 

77 

9251 

53  061 

0 

NDX 

tempo 

0386 

REF 

9 

LASl 

79 

9252 

55'111 

0 

TS 

TBASEl  -2 

0387 

REF 

6 

LAST 

77 

9253 

9 OUOl 

1 

CS 

L 

NOW  PUT  The  phAsE  in  the  right  table  loc 

0388 

REF 

11 

LAST 

77 

9a5A 

53  061 

0 

NDX 

TEMPO 

0389 

REF 

3 

LASl 

79 

9255 

53'076 

0 

DXCH 

-PHASEl  -2 

03895 

9250 

0 0O03 

1 

rllinT 

0390 

REF 

16 

LAST 

77 

9257 

0 0002 

0 

TC 

0 

NOW  RETURN  TO  CaLLER 

1650 

REF 

22 

LAST 

77 

926° 

29  Ooo 

1 

NJFAZ+10 

INCR 

A 

SET  TBASE  AND  SiORE  BASE  CORRECtLY 

488954a  YJL  SYSitM  (-QR  A^C  : ht"  SHePatIN  SY  e^L^S 


Dec  1966  (Main)  Ra^e 


L FRe6H  5iART  and  ReSjART 


USeriS  0»>/N  PAGf  no.  i 


0001 

01*2000 

3ANK 

01 

0002 

REF 

10 

LAST 

72 

E3 

eban<= 

LSTl 

0003 

01 *2000 

0 0604  0 

SLAFl 

INHINT 

FRESH  START.  COMES  HERE  FROM  PI'jBALL. 

0008 

R^f 

1 

01. 200 1 

0 2322  0 

TC 

ST artsub 

Subroutine  dofs  most  op  the  wor<. 

00081 

REF 

1 

01,2002 

1 2607  0 

5t artsn 

TCF 

GOON 

PATCH  for  simulations 

00082 

REF 

1 

01 ,2003 

3 7T4O  0 

startsim 

CAF 

BIT14 

00083 

R EF 

3 

LAST 

61 

01 ,2o04 

0 5534  0 

TC 

FINDVAC 

00084 

REF 

12 

LASl 

73 

EO 

ebank= 

ITEMPl 

00085 

01,2005 

03524  1 

2CA0R 

BEGIN206 

C00085 

REF 

1 

01,2006 

72660  1 

0009 

REF 

2 

LAST 

71 

01,2007 

3 7137  0 

GOON 

CAF 

B1T15 

turn  off  all  USPTAB  +IID  lamps  only  on 

0010 

REF 

1 

01,2010 

54  3^6  1 

TS 

DSPTAB  +IID 

requested  fresh  start. 

0011 

REF 

2 

LASl 

62 

01,2011 

3 7F6I  0 

CAF 

ZERO 

SAME  STORY  ON  Zl'ROiNG  FAILREG. 

00115 

R^F 

1 

01,2012 

55*360  1 

TS 

redoctr 

0012 

REF 

1 

01,2013 

55*363  1 

T S 

FAILREG 

001202 

REF 

2 

LAST 

78 

01,2014 

55*364  0 

TS 

FaILREG  +1 

OOI2O4 

REF 

3 

LAST 

78 

01,2015 

55*365  1 

IS 

FaILREG  +2 

00122 

01,2016 

0 0606  1 

Extend 

INITIALIZE  SPFCIAL  FNEMlzE  REGISTER 

00124 

REF 

1 

01,2017 

3 2141  1 

OCA 

ENJOBCAD 

00126 

REF 

1 

01,2020 

52  376  1 

OXCH 

FLUSHREG 

REMOVE  IF  FaKESTRT  REMOVED 

0013 

REF 

3 

LAST 

78 

01 »202l 

4 7161  1 

DoFSTART 

cs 

ZhRO 

make  all  htimer/phase  pairs  available. 

00135 

REf 

2 

last 

58 

01 ,2022 

55*167  1 

TS 

mtimfra 

0014 

REF 

1 

01,2023 

55*170  1 

] S 

Ml IMEH3 

001A5 

REF- 

1 

01,2024 

55*171  0 

TS 

MTIMER2 

0015 

REF 

1 

01,2025 

55*172  0 

TS 

MTIMERl 

00155 

REF 

1 

01,2026 

55*173  1 

TS 

MPHASE4 

0016 

REF 

1 

01 ,202  J 

55*174  0 

TS 

MPHASE3 

00165 

ref 

1 

01,2030 

55*175  1 

TS 

MPHASE2 

0017 

REF 

1 

01,2031 

55*176  1 

TS 

MPHASEl 

ROOI8 

I\in  lAL; 

Zh  SWITLFI 

Registers  , 

1 v|C.U6lNG  DAP30ULS 

00184 

KFF 

4 

1-  A 0 1 

1 i 

01,2032 

4 1 ' 55  0 

CS 

ONE 

00186 

ref 

1 

01,2033 

55*144  0 

IS 

lmpoutt 

0019 

REF 

2 

LAST 

73 

01 ,2034 

3 7157  0 

CA 

SEVEN 

00191 

REF 

7 

Last 

7 7 

01,2035 

54  601  1 

-6 

1 S 

L 

00192 

REF 

8 

LAST 

78 

01,2036 

50  601  0 

index 

L 

00193 

RcF 

1 

01 ,2037 

3 2540  1 

C A 

SwINIT 

00194 

REF 

9 

LAST 

78 

01,2040 

50  601  0 

index 

L 

00195 

REF 

5 

last 

13 

01 ,2041 

54  674  0 

TS 

STATE 

00196 

REF 

10 

LASl 

76 

01 ,2042 

10  601  1 

CCS 

L 

00197 

01,2043 

1 2635  1 

TCF 

-6 
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L 

00231 

fresh 

REF 

S 

1 

ART 

AMD 

restart 

01,2044 

54  O32 

1 

TS 

CDUx 

USER*S  OWN  PAG7  NO.  2 E3 

zero  CDUS  so  matrix  computation  in  T4 

00232 

REF 

1 

01,2045 

54  O33 

0 

ts 

CDUY 

WONT  OVERFLOW. 

00233 

REF 

1 

01 ,2046 

54  03^ 

1 

TS 

CDUZ 

00239 

REF 

1 

01,204'? 

55'  I32 

1 

1 S 

LMPCMD 

RESET  LMP  command  AREA. 

00235 

R£f 

2 

LAST 

79 

01,2050 

55 • 133 

0 

TS 

LmPCMD  +1 

00236 

REF 

3 

LAST 

79 

01 ,205l 

55*134 

1 

TS 

LMPCMD  +2 

00237 

REF 

4 

LAST 

79 

01 ,2052 

55*135 

0 

T 5 

LMPCMD  +3 

002372 

REF 

5 

LAST 

79 

01 ,2053 

55*136 

0 

TS 

LMPCMD  +4 

002374 

REF 

6 

LAST 

79 

01,2054 

55*137 

1 

TS 

LMPCMD  +5 

002376 

REF' 

7 

LAST 

79 

01 ,2055 

5 5 * 1 40 

1 

T S 

LMPCMD  +6 

002378 

REF 

8 

LAST 

79 

01,2050 

55*141 

0 

TS 

LMPCMD  +7 

00238 

R£f 

1 

01,2057 

55*142 

0 

IS 

LMPIN 

00239 

REF 

1 

0 

O' 

c 

55*143 

1 

TS 

LMPOUT 

0024 

REF 

4 

LAST 

78 

01,2061 

3 7761 

0 P00H3 

OAF 

Zero 

00242 

REF 

1 

01,2062 

55*357 

0 

TS 

SMODE 

00243 

REF 

5 

LAST 

67 

01,2063 

54  302 

1 

TS 

MUDREG 

00244 

REf- 

1 

01,2064 

54  412 

1 

TS 

aosword 

ALLOW  AGS  initialization. 

00246 

REF 

1 

01  ,2065 

55*112 

0 

TS 

PHASE6 

initialize  PHASf  tables  - NO  MISSION 

0025 

REF 

3 

LAST 

74 

01 ,2066 

55*100 

0 

TS 

PHASEl 

PROGRAMS  RUNNING. 

0026 

REF 

1 

Cl,  206  7 

55*102 

1 

T S 

PHA5E2 

0027 

REF 

1 

01,2070 

55*104 

1 

TS 

PHASE3 

0028 

REF 

1 

01,2071 

55*106 

0 

TS 

PFTASF4 

0029 

REF 

1 

01,2072 

55*110 

1 

T S 

PHASES 

0030 

01,2073 

4 OOOO 

0 

COM 

0031 

REF 

1 

01,2074 

55*111 

0 . 

IS 

-PHASE6 

0032 

REF 

4 

LAST 

77 

01,2075 

55*077 

1 

TS 

-PHASEl 

0033 

REF 

1 

01,2076 

55*101 

1 

TS 

-PHASE2 

0034 

REF 

1 

01,2077 

55*103 

0 

TS 

-PHASE3 

0035 

REF 

1 

01,2100 

55  * l05 

0 

TS 

-PHASE4 

0036 

REF 

1 

01,2101 

55*107 

1 

TS 

-PHASES 

00363 

REF 

1 

01,2102 

3 4255 

1 

OAF 

L(40RMT4 

00364 

REF 

1 

01,2103 

54  346 

1 

TS 

T4L0C 

0037 

REF 

1 

01,2104 

3 2327 

0 

OAF 

IM30INIF 

fresh  start  THU  initialization.. 

0038 

REF 

1 

01,2105 

54  365 

0 

TS 

1M0DES30 

0039 

REF 

3 

last 

64 

01 ,210fc 

3 7744 

1 

OAF 

BlTlO 

Remove  imu  fail  inhibit  in  5 secs. 

0040 

REF 

2 

LAST 

57 

01,2107 

0 5'01 

1 

TC 

WAITLIST 

00405 

REF 

1 1 

LAST 

78 

E3 

EBAIMK  = 

LSTl 

0041 

01,21  lO 

022  72 

1 

2CADR 

IFAILOK 

C0041 

REF 

1 

01,2111 

26O03 

0 

0042 

01,2112 

0 0O06 

1 

EXTEND 

setting  TSRUPT  eOR  set  idler  program 

0043 

REF 

1 

01,2113 

3 2337 

1 

OCA 

sltadr 

THE  SETIDLER  PRnGRAM  ASSURES  1 SECOND 

004301 

REF 

2 

LAST 

54 

01,2114 

53*001 

0 

OXCH 

T5ADR 

delay  before  the  dapidler  begins. 
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0061 

REF 

1 

01 ,21  iS 

3 7(50 

1 

endrstrt  caf 

BIT6 

0052 

REF 

2 

last 

78 

01,2116 

7 0S26 

1 

MASK 

DSPtAB  ♦! 

0053 

REF 

23 

last 

77 

01,2117 

10  000 

0 

CCS 

A 

005A 

REF 

1 

01,2120 

9 7(95 

1 

cs 

BIT9 

0055 

REF 

2 

last 

79 

01 '2121 

26  365 

0 

ADS 

IM0DES30 

0056 

01 ,212Z 

0 0003 

1 

RELI NT 

0057 

REF 

2 

LAST 

67 

01,2123 

0 5929 

0 

rc 

bankcall 

0058 

REF- 

I 

01,2129 

I2OOI 

0 

CADR 

DSPMM 

0059 

REF 

2 

LAST 

67 

01,212s 

3 5926 

1 

CAF 

PRIO3O 

0060 

01,2126 

0 0O09 

0 

INHINT 

0061 

REF 

9 

LAST 

78 

01,2127 

0 5339 

0 

TC 

FINDVAC 

00615 

REF 

2 

Last 

78 

EO 

ebank= 

FLUSHREG 

0062 

01,2130 

02139 

0 

ZCADR 

flushloc 

C0062 

REF 

1 

01,2131 

O2OOO 

0 

00635 

01,213^ 

0 0U03 

1 

RELINT 

0069 

REF 

3 

LAST 

57 

01,2133 

1 5616 

1 

TCF 

DUMMYJOB 

00692 

00699 

00696 

REF- 

REF 

3 

2 

LAST 

LAST 

80 

67 

01,2139 

01.2135 

01.2136 

0 0O06  1 

3 0376  0 
52  006  0 

FLUSHLOc 

Extend 

OCA 

OXCH 

FLUSHREG 

z 

00697 

00698 

ree 

12 

LAST 

79 

01,213^ 

00312  1 
E3 

OCT3I2 

OCT 

ebank= 

312 

LSTl 

00699 

C00699 

REF 

3 

LAST 

67 

01.2190 

01.2191 

05605  1 

09003  0 

ENJOBCAD 

2CADR 

ENDOFJOB 
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USER'S  OWN  page  NO.  3 E3 

IF  OIHBAL  LOCK  I AMP  IS  StILL  ON, 

D IMU  WAS  Found  in  oimbal  lock  in  restart 
AND  left  in  coarse  ALIGN.  IN  THiS  CASE 
SET  ISS  operate  BIT  IN  IMODES30  TO 

operate  so  T4  inbit  monitor  wont  zero 

THE  CDUS  AS  IT  t.OeS  IN  FRESH  START. 
display  major  MnDE. 


THIS  IS  used  ONI  Y FoR  SPECIAL  EnEMIZE, 
$JS  REMOVE  IF  Fl.LL  RESTARtAB  I LI  TV  *** 


2 DONT  ZERO  NEWJOr 

GO  TO  special  enema  lOc  FOR  ROM 
USUALLY  THIS  WIlL  BE  AN  ENDOFJOB 
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L 

Fresh  s 

ART 

and  restart 

USER'S  OWN  PAGF  NO.  9 E3 

PoObS 

CO''iES  here 

FROI'l  LOCai  IDN  4000. 

gdjam.  restart 

ANY  PROGRAMS  WHICH  MAY  HAVE  BefN  RUNNING  AT  THE  TIME. 

0067 

REF 

3 

LAST 

80 

01.2142 

0 5224 

0 

GOPROG 

TC 

BANKCALL 

* * 1 SUBJECT  TO  A HUGE  CHANGE  " » » 

006702 

RtiF 

1 

01.2143 

I6O55 

0 

CAdR 

fakestrt 

006704 

REF 

2 

LAS  1 

78 

01 ,214A 

25 • 360 

0 

INCR 

REDOCl R 

00671 

REF 

1 

01,2143 

3 1^55 

0 

CA 

ERESTORE 

00672 

01,2146 

0 OOO6 

1 

extend 

006723 

REF 

1 

01,2147 

1 2l61 

1 

3ZF 

2STARTSB 

006724 

REF 

1 

01,2150 

3 1377 

0 

CA 

SKEEP7 

006726 

REF 

1 

01,2151 

7 4347 

1 

VIASK 

HI  5 

00673 

01,2152 

0 OUO6 

1 

EXTEND 

IF  SKEEP7  CONTAINS  NONSENSE,  DO 

006733 

01  ,2153 

1 2155 

0 

32F 

+ 2 

A FRESH  start.  THIS  ELIMINATES  A CHANCE 

006736 

REF 

1 

01,2159 

1 2OOO 

1 

TCF 

SLAPi 

OF  POSSIBLE  COMPUTER  LOCKUP. 

0067A 

01.2153 

0 0006 

1 

EXTEND 

RESTORE  BIX)  AND  B(X+1)  IF  RESTART 

00675 

ref 

1 

01.2153 

3 1376 

1 

3CA 

5KEFP5 

happened  whIlf  aElf-check  hAd  Rf placed 

00676 

REF 

2 

LAST 

81 

01,2157 

51'377 

0 

'JDX 

SKEEP7 

THEM  WITH  CHECKING  WORDS. 

00677 

01,2160 

52  001 

1 

DXCH 

0000 

0068 

REF 

2 

LAST 

78 

01.2161 

0 2322 

0 

2STARTSB 

(C 

startsub 

COMMON  INITIALI7ATION  routine 

0069 

REF 

1 

01  .2162 

3 2632 

1 

CAF 

9,6 

EEAvE  PROGRAM  Al  ARM  AND  GIMgAL  L.OCK 

0070 

REF 

3 

LASi 

80 

01,2163 

7 0326 

1 

MASK 

DSPTAB  +11D 

LAMPS  INTACT  ON  RESTART. 

0071 

REF 

3 

LAST 

78 

01,2169 

6 7(37 

0 

AD 

B1T15 

0072 

REF 

4 

LAST 

81 

01,2163 

56  326 

0 

XCH 

DSPTAB  +11D 

0073 

REF 

2 

LAST 

80 

01.2166 

V 7(50 

0 

MASK 

B1T6 

0074 

R:;F 

24 

last 

80 

0 1 , 2 1 6 F 

1 3 UOO 

0 

CCS 

A 

IF  GIMBAL  LOCK  1 AMP  WAS  ON.  LEAvE  ISS  IN 

0075 

REF 

1 

01,2170 

3 7(52 

0 

CAF 

BIT  4 

COARSE  ALIGN. 

0076 

01,2171 

0 0006 

1 

EXTEND 

00761 

01,2172 

05  012 

1 

^or 

12 

R0077 

DAP 

2oRl 

ES  L 

UDAPGO 

TO  BYPaSo 

STAR  1 UP 

OF 

Dap  after 

JetaBort  until  ground 

007701 

01.2173 

0 OOO6 

1 

EXTEND 

SETTING  T5RUPT  FOR  DAPIDLER  PROGRAM 

007702 

REF 

1 

01,2179 

3 2335 

0 

DCA 

IDLEADR 

007703 

REF 

3 

LAST 

79 

01.2173 

63,001 

0 

DXCH 

T5ADR 

C00771 

RESETS  GODAPGU. 

0078 

REF 

1 

01,2176 

3 5676 

0 

CAF 

PRI037 

DISPLAY  FaILRFG  AS  INDICATION  OF  RESTARI 

0079 

REF 

2 

LAST 

67 

01,2177 

0 5323 

0 

TC 

novac 

OR  TO  DISPLAY  ArORT  CODE  AS  ABOvE. 

00795 

REF 

13 

LAST 

80 

E3 

ebank= 

LSTl 

0080 

01,2200 

32063 

0 

2CADK 

DOALARM 

C0080 

REF 

1 

01,2201 

16O03 

0 

0081 

01,2202 

0 0006 

1 

LIGHTSET 

EXTEND 

DONT  TRY  TO  RESTART  IF  ERROR 

0082 

01,2203 

33  015 

0 

read 

15 

AND  MARK  REJECT  BUTTONS  DEPRESStD, 

0083 

REF 

1 

01,2209 

6 2325 

1 

AD 

-ELR 

0084 

01,2203 

3 OOO6 

1 

EXTEND 

0085 

01  ,2206 

1 2210 

1 

3zr 

+ 2 

0086 

01  ,220F 

1 2916 

1 

TCF 

+ 7 

0087 

REF 

1 

01,2210 

3 7(51 

0 

CAF 

BITS 
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L 

0088 

FRESH  start 

AND 

RESTART 

01,2211 

0 0006 

1 

EX  TEND 

U5ER*S  own  PaGF  NO.  5 E3 

0089 

01,2212 

02  016 

1 

RANO 

16 

0090 

REF- 

1 

01,2213 

6 2526 

1 

AD 

-MKRFJ 

0091 

01,2214 

0 0O06 

1 

EXTEND 

0092 

REF 

1 

01,2215 

1 2021 

1 

3ZF 

dufstart 

009205 

REF 

2 

LAST 

79 

01  *2216 

4 0346 

1 

CS 

T4LOC 

SEE  IF  LMP  command  WAS  SITTING  IN  CH  10 

00921 

REf 

1 

01,2217 

6 2521 

0 

AD 

LLMPRSZ 

WHEN  RESTART  OCrURRFD,  Ip  SO,  SET  BIT  15 

009215 

01,222° 

0 0006 

1 

EXTEND 

BACK  TO  zero  so  THE  COMMAND  WlLl  BE 

00922 

REF 

1 

01*2221 

1 2230 

0 

3ZF 

LMPRUPT 

RESENT . 

009225 

REF 

2 

LAST 

78 

01,2222 

11*144 

0 

CCS 

LMPOUTT 

IF  NOT,  SEE  IF  UPDATE  OF  REFERENCE 

00923 

REF 

5 

LAST 

78 

01,2223 

6 7 755 

1 

AD 

ONE 

POINTER  (lMPOUT)  was  IN  PROCESS.  IF  SO, 

009235 

REF 

2 

last 

79 

01,2229 

55' 143 

1 

TS 

LMPOUr 

LMPOUTT  IS  NON-NEGATIVE. 

0092A 

REF 

6 

LAST 

82 

01,2225 

4 7755 

0 

CS 

One 

SHOW  LMPOUT  updated. 

0092A5 

REf 

3 

LAST 

82 

01 ,2226 

55*144 

0 

T S 

LmPOUTT 

00925 

REF 

1 

01,2227 

1 2236 

0 

TCF 

T4LOCRST 

009255 

REF 

4 

LAST 

01 

01,223° 

4 7 737 

1 

LVIPRUPT 

CS 

biTl5 

CANT  USE  ADS  HERE  SINCE  CODING  MUST  BE 

00926 

REF 

3 

LAST 

82 

01,2231 

51'143 

0 

index 

LMPQUT 

REPEATABLE  (RESTART  DURING  RESTART,  ETC) 

009265 

REF 

9 

LAST 

79 

01*2232 

7 1132 

1 

'lASK 

LMPCMD 

00927 

R3f 

5 

last 

82 

01 *2233 

6 7 737 

0 

AD 

BIT15 

009275 

REF 

4 

LAST 

82 

01*2239 

51*143 

0 

INDEX 

LMPOUT 

00928 

REF 

10 

LAST 

82 

01,2235 

55*132 

1 

TS 

LMPCMD 

009285 

R^F 

2 

LAST 

79 

01,2236 

3 4265 

1 

T4L0CRST 

caf 

Ln0RMT4 

00929 

REF- 

3 

LAST 

82 

01,2237 

54  346 

1 

TS 

T4L0C 

0093 

REF 

1 

01,2240 

3 7760 

1 

-1 

CAF 

NUMGRPS 

VERIFY  PHASE  TArLE  AGREEMENT. 

0094 

REF 

22 

LAST 

66 

01,2241 

54  151 

0 

PCLOOP 

TS 

MPAC  +5 

0095 

01 ,224<: 

6 0000 

1 

DOUBLE 

0096 

LAST 

01,2^43 

0 0O06 

1 

EXTEND 

0097 

REF 

25 

8l 

01,2244 

5 OOOO 

1 

INDEX 

A 

0098 

REF 

5 

LAST 

79 

01,2245 

3 IlOO 

1 

dca 

-PHASEl 

COMPLEMENT  INTO  A,  DIRECT  INTO  L. 

0099 

01,2246 

0 0006 

1 

EXTEND 

0100 

REF 

1 1 

LAST 

78 

01,2247 

05  OOl 

0 

RXOR 

L 

RESULT  MUST  BF  -0  FoR  AGREEMENT. 

0101 

REF 

2o 

LAST 

82 

01,2250 

10  uoo 

0 

CCS 

A 

0102 

REF 

1 

01,2251 

1 2310 

0 

TCF 

PTBAD 

RESTART  FAILURE. 

0103 

R EF 

2 

LAST 

82 

01 ,2252 

1 2310 

0 

TCF 

PTBAD 

0104 

REF- 

3 

LAST 

82 

01,2253 

1 2310 

0 

TCF 

PIBAD 

0105 

REF 

23 

LAST 

82 

01,2259 

10  151 

0 

CCS  ^ 

MPAC  +5 

PROCESS  ALL  RESlART  GROUPS. 

0106 

REF 

1 

01,2255 

1 2241 

0 

TCF 

PCLOOP 

0107 

REF 

24 

LAST 

62 

01 ,2256 

5 4 1 52 

0 

T S 

MPAC  +6 

SET  TO  +0. 

01075 

REF 

1 

01,2257 

0 2267 

0 

TC 

NXTRST  -1 

*t  * BYPASS  77  CHECK  FOR  NOw 

010751 

REF 

2 

LAST 

79 

01,2260 

3 llll 

1 

ca 

-PHASE6 

TEST  TO  SEE  IF  IT  IS  A PLANNED  NO  RESTAK 

010752 

REF 

1 

01 ,2261 

6 2264 

0 

AD 

OCT77 

T RESTART 

010753 

REF 

2 7 

LAST 

82 

01,2262 

10  UOO 

0 

CCS 

A 

010764 

01,2263 

1 2267 

1 

TCF 

+ 4 

A NORMAL  PvESTARt 
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010755 

01,2264 

DOO77 

1 

0CT77 

OCT 

77 

CAN;T  GET  HERF 

010756 

01  * 2265 

1 2267 

1 

TCP 

+ 2 

A NORMAL  restart 

010757 

Oi  ,2266 

1 2267 

1 

TCF 

+ 1 

THIS  MAY  GO  TO  FORGETIT  IF  EVER  USED 

0108 

REP 

2 

last 

82 

01,2267 

3 7760 

1 

caf 

NUMGRPS 

SEE  IF  any  groups  RUNNING. 

0109 

REE 

25 

LAST 

82 

01,2270 

54  151 

0 

NXTRST 

TS 

MPAC  +5 

0110 

01,2271 

6 OUOO 

1 

DOUBLE 

0111 

REE 

28 

LAS! 

82 

01,2272 

50  OOO 

1 

INDEX 

A 

0112 

REE 

4 

LAST 

79 

01,2273 

11 ' 100 

0 

CCS 

PriASEl 

0113 

REE 

1 

01*2274 

1 2276 

1 

TCF 

PaCTIVE 

PN2  - GROUP  ACTIVE, 

0 1 1 A 

R-E 

1 

01,2275 

1 2303 

1 

tcf 

PiNAcT 

+0  - group  not  running. 

0118 

REF 

26 

LAST 

83 

01,2276 

54  144 

1 

PACTIVE 

TS 

MPAC 

0119 

REF 

27 

LAST 

83 

01,2277 

24  I44 

0 

INCR 

MPAC 

ABS  OP  PHASE. 

012A 

REF 

Id 

LAST 

83 

01,2300 

24  152 

1 

INCR 

MPAC  +6 

INDICATE  oROUP  i.EMAnDS  PRESENT. 

0125 

REE 

1 

01 ,2301 

3 2313 

1 

CA 

RACTCADR 

GO  TO  restarts  and  PROCESS  PHASE  INFO, 

0126 

REF 

1 

01,2302 

0 5230 

0 

TC 

SwCALL 

MUST  return  to  SWRETURN. 

0127 

REF 

2 9 

LAST 

83 

01,2303 

10  151 

0 

PINACT 

CCS 

MPAC  +5 

process  all  Restart  groups. 

0128 

REE 

2 

LAST 

82 

01,2304 

1 2270 

1 

TCF 

NXTRST 

01A2 

REF 

30 

LAST 

83 

01*2305 

10  152 

0 

TSTMPAC6 

CCS 

MPAC  +6 

IF  NO  GROUPS  active  THIS  REQUEST,  DO  A 

01A3 

R£F 

1 

01,2306 

1 2315 

0 

ICF 

dorstart 

OlAA 

REF 

2 

LAST 

82 

01,2307 

1 2021 

1 

TCF 

DOFSTART 

FRESH  START 

01A9 

REF 

1 

■ 01,2310 

3 2314 

0 

PTBAD 

CAF 

OCT1107 

SET  ADDITIONAL  FAILURE  TO  SHOW  PHASE 

0150 

REF 

1 

LAST 

01,2311 

55'561 

0 

TS 

SFAIL 

TABLE  DISAGREEMENT  (WILL  BE  DISPLAYED 

0151 

rhf 

3 

83 

01 ,2312 

1 2O2I 

1 

TCF 

DOFSTART 

IN  R2) . 

01515 

REF 

1 

01,2313 

I4I32 

1 

RACTCADR 

CADR 

RESTARTS 

0152 

01,2314 

01107 

0 

OCTIIO7 

OCT 

1107 

ADDITIONAL  ALAR^i  CODE. 

0153 

REF 

1 

LAST 

01,2315 

3 2514 

0 

dorstart 

CAP 

IFAILINH 

Leave  tmu  failure  inhibits  intact  on 

0154 

REF 

3 

80 

01,2316 

7 0365 

0 

MASK 

IM0DES30 

RESTART,  resetting  ALL  FAILURE  CODES. 

0155 

REF 

1 

01,2317 

6 2530 

0 

AD 

1M30INIR 

0156 

REF 

4 

LAST 

83 

01,2320 

54  365 

0 

TS 

1M0DES30 

0157 

REF 

1 

01,2321 

1 2115 

1 

TCF 

endrstrt 

83 
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P0164  initialization  COMMOv)  ro  BOTH  FRESH  START  AnD  RESTART. 


0165 

REF 

1 

L7 

£BANK= 

DNTMGOTO 

DO  portion  of  fresh  Start  not  djNe 

01651 

REF- 

1 

01,2322 

3 2516 

1 

STARTSUB 

CAF 

LUNTMGO 

BY  POO. 

01652 

REF 

1 

01,2323 

54  003 

0 

T S 

EBANK 

SET  UP  TM  PROGRiM, 

01653 

REF 

1 

01,2324 

3 2515 

1 

:af 

LdNPHASI 

0 1 65A 

REp 

2 

last 

84 

01,2325 

55 '401 

1 

TS 

DNTmgOTO 

01655 

REF 

17 

LAST 

77 

01,2325 

56  002 

0 

STARTSB2 

XCH 

0 

ENTRY  FROM  POO. 

0166 

REF 

5 

LAST 

16 

01  ,232  ! 

54  120 

0 

TS 

BUF 

EXEC  temps  are  aVAIi  ABLE  TO  US. 

0167 

REF 

5 

LAST 

79 

01  »2330 

3 7 761 

0 

CAF 

ZERO 

zero  OUTBITS  WItHIN  3MS  OF  RESTART. 

0168 

01,2331 

0 0O06 

1 

EXTEND 

0169 

01,2332 

01  012 

0 

aiR  I T£ 

12 

0170 

01,2333 

0 0006 

1 

EXTEND 

0171 

01,2334 

01  014 

0 

a'RITE 

14 

0172 

01,2335 

0 0O06 

1 

EXTEND 

0173 

01,2335 

01  011 

0 

aRITF 

11 

01731 

REF 

2 

LAST 

81 

01 ,233T 

55 ' 355 

1 

T S 

ERESTORE 

ERASCHK  RESTORE  FLAG 

01732 

01,2340 

0 0006 

1 

EXTEND 

USE  FIRST  8 OF  i2  SUPER-BANKS  (ADD  PROG 

017  33 

01 ,2341 

01  007 

1 

A R I T E 

7 

when  lAST  FOUR  ARE  NEEdEd).  PROrABLY  V3 7 

017A 

REF 

1 

01,2342 

3 5573 

0 

CAF 

PRI034 

ENABLE  INTERRUPTS. 

0175 

01,2343 

0 0006 

1 

EXTEND 

0176 

01,2344 

01  013 

1 

aritf 

13 

0177 

REF 

1 

01,2345 

3 7735 

1 

CAF 

PUSMAX 

T3  and  T4  OVERFI OW  AS  SUON  AS  POSSIBLE. 

0178 

REF 

1 

01 ,23‘,5 

5 4 O30 

0 

TS 

T1ME5 

SO  DOES  T5. 

0179 

ref 

1 

01,2347 

54  026 

1 

TS 

T1ME3 

(POSmAx  is  pSpuDO  INTERRUPT  StGNAu  IN 

0180 

REF 

1 

01,2350 

54  027 

0 

TS 

TiME4 

CASE  RUPT  SIGNALLED  BEFORE  TS  TIMES). 

01605 

REF 

14 

LAST 

81 

, E3 

EBANK= 

LSTl 

0161 

REF 

1 

01,2351 

3 2524 

0 

CAF 

ST  ARTEB 

0182 

REF 

2 

LAST 

84 

01  ,2352 

54  003 

0 

T S 

EBANK 

SET  FOR  E3 

0183 

REF 

1 

01,2353 

3 7 736 

1 

CAF 

NEGi/2 

INITIALIZE  WaITI 1ST  DeLTA-TS. 

016A 

ref 

15 

LAST 

84 

01,2354 

55'407 

1 

1 S 

LSTI  +7 

0185 

REF 

16 

LAST 

84 

01,2355 

55  '*♦06 

0 

TS 

LSTl  +6 

0186 

REF 

1 7 

LAST 

84 

01,2355 

55'405 

0 

TS 

LSTl  +5 

0187 

REF 

18 

LAST 

84 

01,2357 

5 5 ' 404 

1 

TS 

LSTl  +4 

0188 

REF 

19 

LAST 

84 

01,2360 

55'403 

0 

TS 

LSTl  +3 

0189 

REF 

20 

LAST 

84 

01,2361 

55'402 

1 

TS 

LSTl  +2 

0190 

REF 

21 

LAST 

84 

01,2362 

55'A01 

1 

T S 

LSTl  +1 

0191 

REF 

22 

LAST 

84 

01 ,2363 

55'400 

0 

TS 

LSTl 

0192 

ref 

1 

01,2364 

4 5 732 

0 

CS 

EimDTAsK 

0193 

REF 

1 

01,2365 

55 '410 

1 

TS 

LST2 

0 1 9A 

REF 

2 

LAST 

84 

01,2365 

55'412 

0 

TS 

LST2  +2 

0195 

REF- 

3 

LAST 

84 

01 ,2367 

55'414 

0 

1 S 

LST2  +4 

0196 

REF 

4 

LAST 

84 

01,2370 

55'416 

1 

TS 

LST2  +6 

488954A  YJL  SYSTEM  f Oft  AGC;  NEW  PftOO^AM  SMePATIN  BY  EYLES 


L f^esh  start  and  restart 


0197 

REF 

5 

LAST 

89 

01,2371 

55*920 

1 

IS 

0198 

REF 

6 

LAST 

85 

01,2372 

55*922 

0 

T S 

0199 

REF 

1 

LAST 

85 

01,2373 

55*929 

0 

IS 

0200 

REF 

8 

LAST 

85 

Cl  <237A 

55*926 

1 

TS 

0201 

REF 

9 

last 

85 

01  ,2373 

55*930 

0 . 

IS 

0202 

REF 

2 

LAST 

89 

01,2376 

9 5733 

1 

CS 

0203 

REF 

10 

LAST 

85 

01,2377 

55*911 

0 

T S 

020A 

REF 

11 

Last 

85 

01,2900 

55*913 

1 

TS 

0205 

rhf 

12 

LAST 

85 

01,2901 

55*915 

1 

IS 

0206 

R'F 

13 

LAST 

85 

01 ,2902 

55*917 

0 

T S 

0207 

REF 

19 

LAST 

85 

01,2903 

55*921 

0 

TS 

0208 

REF 

15 

LAST 

85 

01 ,290A 

55*923 

1 

IS 

0209 

REF 

16 

LAST 

85 

01,2905 

55*‘*25 

1 

TS 

0210 

REF 

17 

LAST 

85 

01,2906 

55*927 

0 

TS 

0211 

REF 

18 

LAST 

85 

01,2907 

55*931 

1 

TS 

0212 

REF 

0 

LAST 

89 

01 ,29lO 

9 7761 

1 

CS 

0213 

REF 

1 

01,2911 

59  157 

0 

TS 

021A 

REF 

2 

LAST 

85 

01,2912 

59  173 

0 

T S 

0215 

REF 

3 

LAST 

85 

01,2913 

59  907 

0 

TS 

0216 

REF 

9 

LAST 

85 

01,2919 

59  223 

0 

TS 

0217 

REF 

5 

LAST 

85 

01 , 2 9 1 3 

5 9 237 

0 

T S 

0218 

REF 

6 

LAST 

85 

01,2916 

59  253 

1 

TS 

0219 

REF 

7 

LAST 

85 

01,2917 

59  267 

0 

TS 

0220 

REF 

1 

01,2920 

59  067 

1 

TS 

0221 

REF 

1 

01  »292l 

3 2322 

0 

CAF 

0222 

REf 

1 

01  ,2922 

59  931 

0 

TS 

0223 

REF 

1 

01,2923 

6 2323 

1 

AD 

022A 

REF 

1 

01,2929 

59  305 

0 

TS 

0225 

REF 

2 

LAST 

85 

01,2923 

6 2323 

1 

AD 

0226 

REF 

1 

01,2926 

59  361 

1 

TS 

0227 

REF 

3 

LAST 

85 

01,2927 

6 2323 

1 

AD 

0228 

REF 

1 

01,2930 

59  635 

0 

TS 

0229 

REF 

9 

LAST 

85 

01 ,2931 

6 2323 

1 

AD 

0230 

REF 

1 

01,2932 

59  711 

1 

TS 

0231 

REF 

1 

01,2933 

3 9357 

1 

CAF 

0232 

REF 

1 

01  1293^ 

59  350 

0 

T S 

0233 

REF 

31 

LAST 

83 

01,2933 

59  I99 

1 DSpOFF 

TS 

023A 

REF 

9 

LAST 

75 

01,2936 

9 7 792 

0 

CS 

02  3 5 

REF 

32 

LAST 

85 

01,293  7 

50  I99 

0 

INDEX 

0236 

REF 

5 

LAST 

81 

01,2990 

59  313 

1 

TS 

0237 

REF 

33 

LAST 

85 

01,2991 

10  199 

1 

CCS 

0238 

REF 

1 

01, 2992 

0 2935 

1 

TC 

0239 

REF 

1 

01,2993 

59  O95 

1 

TS 

0290 

REF 

I 

01,2999 

59  395 

1 

TS 

0292 

REF 

1 

01 ,2993 

59  327 

0 

TS 
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LST2  +80 
LST2  +10D 

Lsr2  +12D 
LST2  +1AD 
LST2  +16D 
ENDTASK  +1 
LST2  +1 
LST2  +3 
LST2  +5 
LST2  +7 
LST2  +9D 
LST2  +11D 
LST2  +13D 
LST2  +1SD 
LST2  +17D 

Zero  make  all  executive  re&isteR  sets 

PRIORITY  AVAILABLE, 

PRIORITY  +12D 
PRIORITY  +2AD 
PRIORITY  +36D 
PRIORITY  +A8D 
PRIORITY  +60D 
PRIORITY  +72D 

NEWJOB  SHOWS  NO  ACTIVE  JOBS. 

VAClADRC  MAKE  ALL  VAC  AReAS  AVAILABLE. 

VAClUSE 

LTHVACA 

VAC2USE 

LTHVACA 

VAC3USE 

LTHVACA 

vacause 

LTHVACA 

VACSUSE 

TEN  TURN  OFF  ALL  DISPLAY  SYSTEM  RELAYS. 

DIDFLG  DISPLAY  INERTIAI  DAtA  FLAG. 

MPAC 

Bni2 

MPAC 

DSPTAB 

MPAC 

DSPOFF 

INLINK 

DSPCNI 


E3 


CaDRSIOR 
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02A3 

REF 

1 

01  ,2996 

59  309 

1 

TS 

REQRET 

02AA 

REF 

1 

01,299  f 

59  306 

0 

TS 

CLPAS5 

0295 

REF 

1 

01  ,2^50 

59  303 

0 

TS 

DSPLOCK 

0296 

REF 

1 

01,2951. 

59  311 

0 

TS 

MONSAVE 

0297 

REF 

1 

01,2952 

59  312 

0 

TS 

MONSAVEl 

0298 

REF 

1 

01 , 295s 

59  330 

0 

TS 

GRABLOCK 

0299 

REF 

1 

01  ,295A 

59  272 

1 

TS 

VERBREG 

0250 

REF 

1 

01 ,29  55 

59  273 

0 

T S 

NOUNREG 

0251 

REF 

1 

01,2956 

59  333 

0 

rs 

DSPLIST 

0252 

REF 

2 

LAST 

86 

01  ,295T 

59  339 

1 

r s 

DSPLIST  +1 

0253 

REF 

3 

LAST 

86 

01  ,296D 

59  335 

0 

TS 

DSPLIST  +2 

0259 

REF 

1 

01  ,2961 

59  373 

1 

TS 

MARKSTAT 

0255 

REF 

1 

01,2962 

59  336 

0 

TS 

EXTVBACT 

0256 

REF 

1 

01,2963 

59  367 

1 

IS 

IMUCADR 

0257 

REF 

1 

01 , 296 A 

59  370 

1 

TS 

OPTCADR 

0258 

REF 

1 

01,2965 

59  371 

0 

IS 

RADCADR 

02585 

REF 

1 

01,2966 

59  372 

0 

TS 

ATTCADR 

02587 

REF 

1 

01 , 2 9 6 T 

5 9 /65 

1 

I s 

PHASENUM 

0259 

REF 

1 

01,2970 

59  356 

0 

TS 

LgYRO 

0260 

REF 

1 

01,24/1 

59  397 

0 

TS 

DSRUPTSW 

0261 

RzF 

1 

01,2972 

3 7/56 

1 

CAF 

NOUTCON 

0262 

REF 

1 

01,2973 

59  307 

1 

TS 

NOUT 

0263 

REF 

7 

LAST 

82 

01 ,297A 

9 //55 

0 

cs 

ONE 

0269 

REF 

1 

01,2975 

59  919 

1 

TS 

SAMPLIM 

0267 

REF 

1 

01,2975 

3 2531 

1 

CAF 

IM33INIT 

0268 

RSf 

1 

01,2977 

59  366 

0 

IS 

Im0dES33 

0269 

REF 

3 

LAST 

81 

01  ,2500 

3 7/50 

1 

CAF 

BIT6 

0270 

01,2501 

0 0O06 

1 

EXTEND 

0271 

01,2502 

02  O33 

0 

RAND 

33 

0272 

REF 

1 

01,2503 

6 2533 

0 

AD 

RMODINIT 

0273 

REF 

2 

LAST 

55 

01,2509 

59  913 

0 

TS 

RAOMODES 

0279 

REF 

1 

01,2505 

3 2620 

1 

CAF 

Llschk 

0275 

REF 

1 

01,2506 

55*356 

1 

TS 

SELFRET 

0276 

REF 

1 

01 ,2507 

9 9559 

0 

CS 

VDl 

0277 

REF 

1 

01,2510 

59  270 

0 

TS 

DSPCOUNT 

0283 

REF 

1 

01,2511 

3 261  7 

0 

CAF 

NOMTMLST 

0289 

REF 

1 

01,2512 

59  911 

1 

TS 

DNLSTADR 

0285 

REF 

6 

LAST 

89 

01,2513 

0 0120 

1 

1C 

BUF 

0289 

01,2519 

00^35 

i 

IFAILINH 

OCT 

35 

0290 

REF 

1 

01,2515 

02129 

1 

LONPHASl 

senadr 

DNPHASEl 

0291 

REF 

3 

LAST 

89 

01,2516 

03901 

1 

LDNTMGO 

ECADR 

DNTMGOTO 

0292 

REF 

1 

01,251/ 

02359 

1 

NOMTMLST 

SENADR 

NOMDNLST 

KILL  MONITOR 


MAKE  extended  VfRBS  AVAILABLE 


NO  radar  designation, 

NO  RADAR  RUPTS  EXPECTED. 
NO  PIP  OR  TM  FAILS. 


SEl  LR  POS. 


SELF  CHECK  GO-Tn  REGISTER. 


SET  UP  NOMINAL  DOWNLINK  LIST. 


ISS  FAILURE  INHIBIT  BITS, 


E3 
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0293 

REF 

1 

01,2520 

02102 

0 

LESCHk 

3ENADR 

sllfchk 

029A 

REF 

1 

01,2521 

02013 

1 

LLMPRS2 

GENADR 

LMPRESET 

0295 

REF 

2 

LAS  1 

85  01,2522 

00A31 

1 

VAClADRC 

ADRES 

VAClUSE 

0296 

01,2523 

30O5A 

0 

LTHVACA 

DEC 

AA 

0297 

REF 

23 

Last 

OA  0i,252A 

OlAOO 

1 

STARTLB 

ECADR 

LSTl 

0298 

REF- 

1 

7760 

NJMGRPS 

equals 

five 

R0306 

WHlRL 

TO  GO  ON  RpSTARI 

IF  TERMINATE  REQUESTED. 

0313 

01  ,252S 

77  755 

0 

-ELR 

OCT 

-22 

031A 

01,2526 

77757 

1 

-MKRLJ 

OCT 

-20 

0315 

01,2527 

37*711 

1 

1 M30INIF 

OCT 

37A11 

0316 

01,2530 

37*700 

1 

1M30INIR 

OCT 

37AOO 

0317 

01,2531 

16000 

0 

IM33INIT 

ocr 

16000 

0318 

01,2532 

OOAAO 

1 

9,6 

OCT 

AAO 

0319 

01,2533 

00102 

1 

RMODINIT 

OCT 

00102 

031911 

REF 

1 

E6 

EBANK= 

DT 

031912 

01,253A 

02136 

1 

IDLLADR 

2CADR 

DAPIDLER 

C031912 

REF 

1 

01,2536 

3aO06 

0 

031913 

REF 

2 

LAST 

87 

E6 

EBANK= 

DT 

03191A 

01,2536 

03620 

0 

SETADR 

2CADR 

SETIDLE 

C0319K 

REF 

1 

01,2537 

3AO06 

0 

0320 

01 ,25A0 

00000 

1 

SrtINIT 

OCT 

0 

0321 

01 ,25A1 

00000 

1 

OCT 

0 

0322 

01  ,25A2 

0OO05 

1 

ocr 

00005 

0323 

01 ,25A3 

AA616 

0 

OCT 

AA516 

03231 

01 ,25AA 

00000 

1 

OCT 

0 

03232 

01 ,25a5 

ooooo 

1 

OCT 

0 

03233 

01  , 2 5 A6 

ooooo 

1 

OCT 

0 

032A 

01 ,25A7 

ooooo 

1 

OCT 

0 

DEC  13,  1966  (MAIN)  PAGE  8l 


USER'S  OWN  PaGf  NO.  10 


E3 


SIX  GROUPS  CURRfNTLY. 


-ERROR  LlijHT  RESET  kEY  CODE. 

- mark  REJECT. 

INHIBITS  IMU  FAlE  FOR  5 SEC  AND  PIP  ISSW 
LEAVE  FAIL  INHIBITS  ALONE. 

NO  PIP  OR  TM  FAIL  SIGNALS. 

MASK  FOR  PROG  Al  ARM  AND  GIMBAL  LOCK. 


INIT  FOR  DAPBOOl  S.  OB  SET  IN  SEtIDLE 


488954A 

YJL  S 

rSTEM  FOR  AGC 

; NEW  PROGRAM  SHePATIN 

BY  eYLeS 

dec  U,  1966  (MAIN)  PACE  88 

L 

FRESH 

Start  and  restart 

USER'S  OWN  PaGf  no.  11  e3 

P0325 

PROORAM  TO  REVERT 

TO  lOLlNO 

M30E  (P  00). 

R0325 

CALLINO  SeO.jENCe: 

TC  (OR  tlf)  Pooh 

under 

EXEC  (NOT  INTERRUPTED). 

0327 

0328 

REF 

1 

42  61 

4261 

0 5‘^43  1 

POOH 

3L0CK 

TC 

02 

POSTJUMP 

0329 

REF 

2 last  58 

4262 

02S50  0 

CADR 

P00H2 

DO  A PARTIAE  FRfSH  START. 

0330 

01*2550 

SANK 

01 

0332 

0333 

REF 

1 

01.2550 

01.2551 

0 0004  0 

0 2026  1 

POOH2 

INHINT 

TC 

ST ARTSB2 

DOESN'T  CEOBBFR  DOWNLINK. 

03332 

03334 

REF 

1 

01.2552 

01.2553 

0 6045  0 
00020  0 

TC 

OCT 

FLAG2DWN 

20 

Turn  Off  mission  timer  flag 

R0340 

MEKE  WE  bhUULL;  KESE* 

ST  Ate  recjI  s 

lEKb  ♦ L^EAL  WI  TH 

Dap,  etc.  ***** 

0350 

RlF 

1 

Oit255^ 

3 2356  0 

CA 

LP00H3 

PICK  UP  return  tor  MSTART. 

0351 

A0352 

REF 

1 

Oi  »2555 

0 5 1 74  0 

TC 

MSTART  -1 

START  MISSION  TIMERS  COUNTING, 

WE  (SET  A RELINT  AT  MSTART. 

0353  r£f  1 01,2555  32061  1 L?00H3  (\DREs  P00H3 

03535  37*2000  3ANK  07 


0354 
03545 

0355  REF  1 

0356  REF  1 

03562 

03564  REF  1 

03566  REf  1 

0357  REF  1 

0358  REF  1 

03582  rEf  1 

03583  REF  1 

03584 

03585 

0359 

03595  REF  7 LAST  85 

0360  REF  5 LAST  b3 


07,2000 

0 0D04 

0 

FDRGETIT 

INHINT 

07,2001 

0 0006 

1 

EXTEND 

07,2002 

3 2047 

0 

OCA 

KILLCAD 

07,2003 

53*075 

0 

OXCH 

DVMNFXIT 

01,2004 

0 0006 

1 

EXTEnD 

0 T ,2005 

3 2045 

1 

OCA 

CADAVER 

07,2006 

53*073 

0 

OXCH 

AVGEXIT 

07.200  1 

3 2050 

0 

CAF 

PINGSMON 

07,2010 

55 ' 322 

1 

TS 

DVSELECT 

O 

o 

0 6071 

1 

TC 

EnCinoff 

07,2012 

4 2051 

0 

CS 

BGIMBALS 

07,2013 

0 0006 

1 

EXTEND 

07,2014 

03  012 

1 

wand 

12 

07,2015 

0 0004 

0 

ENEMA 

INHINT 

07,201° 

3 7(61 

0 

CAF 

ZERO 

07 ,2017 

55*100 

0 

TS 

PHASEl 

THIS  IS  ALSO  D0\/74 


TURN  OFF  TRIM  OlMBALS 


MAKt  INACTIVE  Al L RESTART  PHASES 
EXCEPT  SERVICFR 


488954a  YJL  SYSlhM  r OR  A<5C  I PR0<^RA'1  SHhPATlN  BY  tYlES 


DLC  13»  1966  (MAIN)  PA^E 


L frebh  Start  and  RoStart  useR'S  own  paGf  no.  e3 


0361 

REF 

2 LAST 

79 

07,202° 

55*102  1 

IS 

PHA5E2 

03615 

REF 

2 LAST 

79 

C7»202l 

55*104  1 

T S 

PHASES 

0362 

REF 

2 LAST 

79 

07,2022 

55*106  0 

TS 

PHASE4 

0363 

REF 

2 LAST 

79 

07,2023 

55*112  0 

T 5 

PHASE6 

0364 

07,2024 

4 DOOO  0 

COM 

0365 

REF 

6 LAST 

82 

07,2025 

5 5 * ° 7 7 1 

1 S 

-PHASEl 

0366 

REF 

2 LAST 

79 

07,2026 

55*101  1 

TS 

-PHASL2 

0367 

REF 

2 Last 

79 

07,2027 

55 ' 103  0 

TS 

-PHASES 

0368 

REF 

2 LAST 

79 

07,203° 

55  * 105  0 

T S 

-PHASE4 

0369 

REF 

3 LAST 

82 

07,2031 

55'  111  0 

TS 

-PHA5E6 

036901 

ref 

2 LAST 

7b 

07,2032 

55*176  1 

1 S 

MPHA5EI 

SET  TiMEr/PHAsE  PAIRS  TO 

IDLE  STATE 

036902 

REF 

2 LAST 

78 

07,2033 

55*175  1 

TS 

MPHASE2 

036903 

REF 

2 LAST 

76 

07,2034 

55*174  0 

TS 

MPHASE3 

036904 

REF 

2 LAST 

76 

07,203S 

55*173  1 

T S 

MPHASE4 

036905 

REF 

3 LAST 

78 

07,2036 

55*167  1 

TS 

MTIMER4 

036906 

REF 

2 LASI 

78 

07,2037 

55*170  1 

TS 

Ml 1MER3 

036907 

REF 

2 last 

78 

07,2040 

55*171  0 

TS 

MTIMER2 

036908 

REF 

2 LASi 

78 

07,2041 

55*172  0 

TS 

MT IMERl 

R0370 

start 

TASK  TO 

reset 

LMP  CoKMamOS  H£Re  aimd  otHeR 

cleanup 

problems 

0373 

REF 

2 LASI 

88 

07,2042 

0 5243  1 

TC 

POSTJUMP 

0374 

REF 

3 LAST 

55 

07,2043 

32145  0 

CADR 

GOPROG  +3 

0381 

REF 

24  LASI 

87 

E3 

EBAN<= 

LSTl 

0382 

07,2044 

32-712  0 

CADAVER 

2CADR 

servexit 

C0382 

REF 

1 

0 7,2045 

60U63  1 

0383 

REF 

25  LAST 

89 

E3 

EBANK= 

LSTl 

03835 

07 ,2  04^ 

32°52  1 

KILLCAD 

2CADR 

AVEGKILL 

C03835 

REF 

1 

07,2047 

16°03  0 

03836 

REF 

1 

07,205° 

32156  1 

PINGSMON 

GENADR 

pgNcsmon 

03837 

07,2051 

37400  1 

BSIMBALS 

3CT 

7400 

0384 

REF 

1 

07,2052 

0 6°36  1 

AVECKILL 

TC 

FLAGlDWN 

COMES  HERE  VvHFN  ENGINE  OFF 

0385 

07,2053 

30U01  0 

3CT 

1 

R0386 

5ERV1 

CEF  GOtS 

TO  POOH  AND  e'iASLES  TIMERS 

AT  dead 

END. 

ALL  PROGRAMS 

MUSTTURN  OFF  PIPAS  AT  END  OF 

MISSION  PHASE 

0390 

REF 

4 LAST 

80 

07,2054 

1 5°05  0 

TCF 

ENDOFJOB 

0391 

REF 

3 LAST 

81 

07*2055 

25*360  0 

fakestrt 

INCR 

REDOCTR 

03912 

REf 

1 

07,205° 

0 4744  1 

TC 

Alarm 

03914 

07,2057 

00316  0 

OCT 

0316 

FAKESIRT  ALARM 

0392 

REF 

1 

07*206° 

1 2°00  1 

TCF 

FORGETIT 

0393 

REF 

2 LASI 

89 

37*2000 

D0\/74 

E(3UALS 

FORGETIT 
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L TARUPI  (-RoGRAM  USER'S  OWN  PAGf  NO.  I 


0001 

12*2000 

BANK 

12 

0002 

REF 

2 

LAST 

. 55 

E6 

EBANK= 

Mil 

0003 

REF 

1 

12,2000 

59  016  1 

T9RUPT 

IS 

BANKRUPT 

OOOA 

REF 

8 

LASl 

88 

12,2001 

3 F F61  0 

CA 

ZERO 

0005 

12,2002 

0 0006  1 

Extend 

ZERO  OuTO  every  T9RuPT. 

0006 

REF 

1 

12,2003 

01  UlO  1 

WRl  FE 

OUT  0 

0007 

REF 

9 

LAST 

82 

1 2 ,2009 

50  3^,6  0 

INDEX 

T9LOC 

NORMALLY  TO  NORMT9,  BUT  TO  LMPReSET  OR 

0008 

12 ,2O0S 

1 OUOO  0 

TCF 

0 

dskyrset  AFTER  oUTO  COMMAND.  . 

0009 

REF 

2 

LASl 

86 

12,2005 

10  347  0 

N0RMT9 

CCS 

DSRUPTSW 

GOES  7(-l)0. 

0010 

12,2007 

1 2OII  1 

ICF 

+ 2 

0011 

REF 

3 

LASl 

78 

12,2010 

3 7F57  0 

CAF 

SEVEN 

0012 

REF 

3 

LASl 

90 

12,2011 

59  347  0 

TS 

DSRUPTSW 

0013 

REF 

2 

LAST 

55 

12,2012 

fv. 

C 

Uo 

0 

TCF 

T9RUPTA 

OOIA 

REF 

3 

LASl 

82 

12,2013 

3 9265  1 

LMPRESET 

CAF 

LN0RMT9 

DO  THINGS  IN  THtS  ORDER  FOR  RESiART 

0015 

REF 

5 

LASl 

90 

12,2019 

59  346  1 

T S 

T9LOC 

PROTECTION. 

0016 

REF 

9 

LASl 

82 

12,2010 

3 II99  1 

CA 

LMPOUTT 

NEW  VALUE  OF  OUTPUT  POINTER. 

0017 

REF 

5 

LASl 

82 

12,2015 

55*193  1 

TS 

LMPOUT 

0018 

REF 

8 

LAST 

86 

12, 201V 

9 7 F 5 5 0 

C5 

ONE 

TO  SHOW  OUTPUT  pointer  ALREADY  jPDATED. 

0019 

REF 

5 

LASl 

90 

12,2020 

55  * I99  0 

TS 

LMPOUTT 

0020 

REF 

1 

12,2021 

3 9263  1 

CAF 

90MRUPT 

0021 

12,2022 

1 2026  0 

TCF 

+ 9 

0022 

REF- 

9 

LASl 

90 

12,2023 

3 9265  1 

dskyrset 

CAF 

LN0RMT9 

20  MS  ON  / 100  MS  OFF. 

0023 

REF 

6 

LAS  r 

90 

12,2029 

59  346  1 

T S 

T9LOC 

0029 

REF 

1 

12,2025 

3 4269  0 

CAF 

lOOMRUPT 

0025 

REF 

2 

LASl 

89 

12,2025 

59  027  0 

+ 9 

TS 

T1ME9 

0026 

REF 

2 

LAST 

55 

12,2027 

1 5F53  i 

TCF 

NOQRSM 

0027 

9263 

BLOCK 

02 

0026 

9263 

37F67  0 

90MRUPT 

OEC 

16375 

0029 

9269 

37F66  1 

lOOMRUPT 

OEC 

16379 

0030 

REF 

1 

9260 

O2OO6  0 

LN0RMT9 

ADRES 

N0RMT9 

0031 

9265 

79OOO  1 

79K 

OCT 

79000 

R0032 

RELTAB 

IS  A 

packed 

table.  relaya'oRD  code 

. IN  UPPER 

: 9 BiTb,  Relay  code 

R0033 

1 N L^A  tr\  b i 1 b* 

0039 

926  F 

O9O25  1 

RELTAB 

OCT 

09025 

0035 

9270 

. 10U03  0 

OCT 

10003 

0036 

927I 

19O31  0 

OCT 

19031 

0037 

9272 

20033  0 

OCI 

20033 

0038 

9273 

29O17  1 

OCT 

29017 

0039 

927A 

30036  1 

OCT 

30036 

0090 

9275 

39039  1 

OCT 

39039 

0091 

9275 

90O23  1 

OCT 

90023 

0092 

927  F 

99O35  1 

OCI 

99035 
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L TARUPT  PROGRAM 


USER'S  OWN  PAGf  NO. 


E6 


OOA3 

A300 

5OO37 

0 

OCT 

50037 

OOAA 

4301 

S4OOO 

0 

OCI 

54000 

00A5 

430-^ 

60U00 

1 

RELTABll  OCT 

60000 

488954A  YJL  SvSlbM  f OK  AGO:  NEW  SfitPATIN  3Y  EYLbS 


dec  1?*  1966  (MAIN)  PAGE  9<t 


L T4RDPT  PROGRAM  USER'5  OwN  PAGf  NO.  i E6 

P0046  SWnCHED-BAN<  PORTION. 


0047 

12  ’2030 

3AN< 

12 

0048 

12.2030 

0 0006 

1 

T4RUPTA 

extend 

0049 

REF 

1 

12 ,2U3l 

22  012 

1 

jXCH 

QrUPT 

0050 

REF 

6 

LA5( 

90 

12.203II' 

51'143 

0 

index 

LMPOUT 

SEE  IF  LMP  command  TO  BE  PUT  OUT. 

0051 

ref 

1 1 

last 

82 

12,2033 

1 1 • 132 

1 

CCS 

LMPCMD 

0052 

REF 

1 

12,2034 

1 2O56 

1 

rcF 

CDRVE 

BIT  15  = 1 and  (UP  TO)  BITS  1 - 11 

0053 

REF 

2 

LAST 

92 

12,2035 

1 2O56 

1 

TCF 

CDRVE 

CONTAIN  THE  COMF.AND. 

0054 

REF 

1 

12,2036 

3 2I47 

1 

CAF 

LLMPRS 

SET  T4  for  SPECIAL  RUPT  AND  SHOw  LMP 

0055 

REF 

7 

last 

90 

12,2037 

54  3^6 

1 

15 

T4LOC 

COMMAND  IN  PROGRESS  IF  RESTART. 

0056 

REF 

1 

12,2040 

3 4552 

1 

CAF 

LOW  11 

0057 

REF 

J 

LAST 

92 

1 2 , 204 1 

51 ' 143 

0 

index 

LMPOUT 

0058 

REF 

12 

LAST 

92 

12,2042 

7 1 132 

1 

MASK 

LMPCMD 

LEAVE  COMMAND  PORTION  INTACT. 

0059 

REF 

8 

LAST 

92 

12 ,2043 

51 ' 143 

0 

INDEX 

LMPOUT 

0060 

REF 

13 

LAST 

92 

12,2044 

55'  132 

1 

TS 

LMPCMD 

0061 

REf 

1 

12 ,2045 

6 4266 

1 

AD 

74K 

0062 

LASl 

12,2046 

0 0006 

1 

EXTEND 

0063 

REF 

2 

90 

12 ,2047 

01  OlO 

1 

WRITE 

OUTO 

0064 

REF 

9 

LAST 

92 

12,2050 

li'l43 

1 

CCS 

LMPOUT 

PREDICT  NEW  VALUE  OF  LMPOUT  BUT  DONT 

0065 

12,2051 

1 2O53 

i 

TCF 

+ 2 

UPDATE  IT  UNTIL  COMMAND  SENT  ( I >1  CASE  OF 

0066 

REF 

4 

LASl 

90 

12,2052 

3 7151 

0 

CAF 

SEVEN 

RESTART. ) 

0067 

REF- 

6 

LASr 

90 

12,2053 

55'  I44 

0 

TS 

LMPOUTT 

0068 

REF 

1 

12,2054 

3 2I5O 

1 

CAF 

30MRUPT 

0069 

REF 

1 

12,2055 

1 2I33 

0 

TCF 

SETTIME4 

0070 

REF 

6 

LASi 

85 

12 ,2056 

10  326 

1 

CDRVE 

CCS 

DSPTAB  +11D 

0071 

REF 

1 

12,2057 

0 2066 

0 

1C 

DSPOUT 

0072 

REF 

2 

LASl 

92 

12,2060 

0 2O66 

0 

TC 

DSPOUT 

0073 

REF 

7 

LAST 

92 

12,2061 

56  326 

0 

XCH 

DSPTAB  +11D 

0074 

REF 

2 

LAST 

92 

12,2062 

7 4352 

0 

MASK 

LUWll 

0075 

REF 

a 

LASl 

92 

12,2063 

54  326 

1 

TS 

DSPTAB  ♦IID 

0076 

REF 

1 

12,2064 

6 4302 

1 

AD 

RLLTABl 1 

0077 

REF 

1 

12,2065 

0 2l26 

0 

TC 

DSPLAYC 

488954a  YJL  bYSlEM  FOR  aGC:  nEK  sHEPaII/J  3Y  EYLEs 
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L T4RUPI  program  USSR'S  OWN  PaGf  NO.  4 E6 


P0078 

DSP0J7 

■ROGRAM.  PUTS 

OUT  DIS? 

-AYS* 

0079 

REF 

2 

LAST 

86 

12.2066 

10  307 

1 

DSPOUT 

CCS 

NOUt 

drive  display  system  relays. 

0080 

12.206T 

1 2072 

1 

TCP 

+ 3 

0081 

REF 

1 

12.2070 

3 2107 

0 

NODSPOUT 

CAF 

I2OMRUPT 

SET  FOR  RUPT  IN  120  MS  IF  NO  RELAYS, 

0082 

REF 

2 

CAST 

92 

12.2071 

1 2I33 

0 

TCF 

SETTIME4 

0083 

REF 

3 

LAST 

93 

12.2072 

54  307 

1 

TS 

NOUT 

0084 

REF 

9 

LASl 

90 

12.2073 

4 7/61 

1 

CS 

ZERO 

0085 

REF 

1 

12.2074 

54  073 

1 

T S 

DSRUPTEM 

SET  TO  -0  for  1ST  Pass  TFIRU  DSPlAB 

0086 

REF 

2 

LAST 

85 

12.207i> 

56  3A6 

0 

XCH 

DSPCNT 

0087 

REF 

1 

12.2076 

6 7/62 

0 

AD 

NEGO 

TO  PREVENT  +0 

0088 

REF 

3 

LAST 

93 

12.207/ 

54  3a5 

1 

TS 

DSPCNT 

0089 

REF 

4 

LASl 

93 

12.2100 

50  3a5 

0 

DSPSCAN 

INDEX 

DSPCNT 

0090 

REF 

9 

LASl 

92 

12.2101 

10  313 

1 

CCS 

DSPTAB 

0091 

REF 

5 

LAST 

93 

12.2102 

10  3A5 

1 

CCS 

DSPCNT 

IF  DSPTAB  ENTRY  +.  SKIP 

0092 

REF 

1 

12.2103 

0 2076 

1 

TC 

DSPSCAN  -2 

IF  DSPCNT  +.  again 

0093 

REF 

1 

12.2104 

0 2115 

0 

TC 

DSPLAY 

IF  DSPTAB  ENTRY  -.  DISPLAY 

0094 

12.2105 

00012 

1 

T aBLNT  FI 

OCT 

12 

DEC  10  LENGTH  OF  dSPTAB 

0095 

REF 

2 

LASl 

93 

12.2106 

10  073 

1 

CCS 

DSRUPT  EM 

IF  DSRUPTtM=+o.7ND  PASS  THRU  DSPTAB 

0096 

12.2107 

37  /64 

0 

120MRUPT 

OEC 

16372 

(DSPCNT  = 0).  +r,  INTO  NOUT. 

0097 

REF 

4 

LAST 

93 

12.2110 

5 4 307 

1 

IS 

NOUT 

0098 

REF 

1 

12.21  11 

1 2O70 

0 

TCF 

NODSPOUT 

0099 

REF 

3 

LAST 

93 

12.2112 

54  073 

1 

TS 

DSRUPTEM 

IF  DSRUPTEM=_o,l ST  PASS  THRU  DSsTAB 

0100 

REF 

1 

12.2113 

3 2105 

1 

CAF 

TABLNTH 

(DSPCNT=0).  +0  INTO  DSRUPTEM.  PASS  AGAIN 

0101 

REF 

2 

LASl 

93 

12»211A 

0 2077 

0 

TC 

DSPSCAN  -1 

0102 

REF 

9 

LAST 

90 

12.2115 

6 7 /55 

1 

DSPLAY 

AD 

ONE 

0103 

REF 

6 

LAST 

93 

12.2116 

50  645 

0 

INDEX 

DSPCNT 

0104 

REF 

10 

LAST 

93 

12.211  / 

54  313 

1 

T S 

DSPTAB 

REPLACE  positively 

0105 

REF 

3 

LASl 

92 

12.2120 

7 4552 

0 

YASK 

LOWll 

REMOVE  BI TS  12  lO  I5 

0106 

REF 

4 

LAST 

93 

12.2121 

5 4 O73 

1 

TS 

DSRUPTEM 

0107 

REF 

2 

LAST 

81 

12.2122 

3 4547 

0 

CAF 

Hi5 

0108 

REF 

7 

LASl 

93 

12.2123 

50  3^,5 

0 

INDEX 

DSPCNT 

0109 

REF 

i 

12.2124 

7 4267 

1 

'TASK 

RELTAB 

PICK  UP  Bits  12  to  15  of  reltab  entry 

0110 

REF 

5 

LAST 

93 

12.2125 

6 OO73 

0 

AD 

DSRUPTEM 

0111 

12.2126 

0 0O06 

1 

DSPLAYC 

EXTEND 

0112 

REF 

3 

LAST 

92 

12.212/ 

01  Oio 

1 

WRITE 

OUTO 

0113 

REF 

1 

12.2130 

3 2146 

0 

CAF 

LDSKYRS 

0114 

REF 

8 

LAST 

92 

12.2131 

54  3<t6 

1 

TS 

T4LOC 

0115 

REF 

1 

12.2132 

3 2I5I 

0 

CAF 

20MRUPT 

0116 

REF 

3 

LAST 

90 

12.2133 

54  027 

0 

SETTIME4 

TS 

TIME4 

^88954A 

YJL 

SYbluM  FOR 

; aGL:  NE.W  PRO^RA'T  Sri^PAT  in  3Y  t^LpS 

Dec  1^. 

1966  (MAIN) 

page  9A 

L 

TARUPT 

PRuGRAM 

USER'S 

OWN  PaGF 

NO. 

3 

E6 

P0117 

JU'  P 

TO 

appropriate 

3NLt-PER  : 

SECOND  (.96 

Sec  . 

ACTUALLY)  ACTIVITY 

0118 

REF 

4 

LAST 

90 

12»213"* 

53  JA7 

1 

TAJUMP 

INDEX 

DSRUPTSW 

0119 

12,2135 

1 2136 

0 

ICF 

+ 1 

0120 

REF 

1 

12.2135 

0 2152 

0 

TC 

ALTOUT 

0121 

REF 

i 

12.2137 

0 3^76 

1 

TC 

NoRRGMON 

WAS 

TCF 

RKAUtCHk 

(No 

radar 

IN 

206)  . 

0122 

REF 

1 

12 .21A0 

1 2305 

1 

TCF 

IMUMON 

0123 

ref 

1 

1 2 .2 1 A 1 

1 3 176 

0 

TCF 

daptas 

012A 

REF 

1 

12.21A2 

0 2217 

1 

TC 

ALTROUT 

0125 

REF 

2 

LAST 

9A 

12.21A3 

0 3176 

1 

TC 

NURRGMON 

WAS 

TCF 

RRAUTCHk 

(No 

RADAR 

IN 

206)  . 

0126 

REF 

2 

LAST 

9A 

12.214A 

i 2305 

i 

TCF 

IMUMON 

0127 

ref 

2 

LAS'! 

9A 

12.21A5 

1 3l76 

0 

LOSKYRS 

ICF 

daptas 

0128 

REF 

1 

12.21A6 

O2II23 

1 

ADRES 

DSK YRSET 

0129 

REF 

2 

LAST 

87 

12.21AT 

32013 

1 

LLMPRS 

ADRES 

LMPRESET 

0130 

12.2150 

37175 

0 

33MRUPT 

OEC 

16381 

0131 

12.2151 

37  T76 

0 

20MRUPT 

OEC 

16382 
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DEC  13»  1966  (mAIM)  rage  96 


L T4RUP1  hROG9A|.1  USER'S  OWN  RAGf  NO.  6 E6 

P0132  ms  ROoTlMt  SERVICES  THE  MEiEr  OUTPUTS. 


R0133  DIDfLG  indicates  THe  STATE  OF  [HE  PROGRAM 

R0134  if  GREAIER  THAN  ZERO.  THEN  UhaBLE  TO  DISPLAY  DATA 
R0135  IE  eOJAL  TO  zero.  THEN  THE  PROGRAM  is  in  js^ 

R0136  IF  LESS  THAT  ZERO.  THEN  THE  PROGRAM  IS'  ABLE  TO  BE  USED 


0137 

REF 

1 

12.2152 

0 2Z25 
4 7F54 

0 

ALTOUT 

tc 

DISINDAT 

0138 

REf 

1 

12.21 53 

1 

cs 

BIT2 

0139 

12.2154 

0 0006 

1 

EXTEND 

0140 

12.2155 

03  OlA 

1 

WAND 

14 

SET  UP  OUTPUT  FOR  ALTITUDE 

0141 

REF 

1 

12.2156 

10  351 

1 

CCS 

ALT 

-1  IF  OLD  DATA  TO  BE  EXTRAPOLATED. 

0142 

12*2157 

1 2l63 

1 2l63 

0 

TCF 

+ 4 

NEW  DATA. 

0143 

12.216° 

0 

TCF 

+ 3 

0144 

REF 

1 

12.2161 

1 2167 

1 

TCF 

OLDDATA 

0145 

REF 

2 

LAST 

95 

12.2162 

5 4 351 

1 

T S 

ALT 

change  -0  IN  ALT  TO  +0. 

0146 

REF 

10 

LAST 

93 

12.2163 

4 7'55 

0 

CS 

ONE 

RESET  ALTSAVE. 

0147 

REF 

3 

LAST 

95 

12.2164 

52  352 

1 

ZDATA2 

OXCH 

ALT 

0148 

REF 

1 

12.2165 

52  364 

1 

OXCH 

altsave 

0149 

REF 

1 

12.2166 

1 2Z07 

1 

TCF 

NEWDATA 

0150 

ref 

1 

12.2167 

3 0353 

1 

OLDDATA 

CA 

altrate 

USE  ALTRAIE  TO  EXTRAPOLATE. 

0151 

12.2170 

0 0006 

1 

EXTEND 

0152 

REF 

1 

LAST 

12.2171 

7 2302 

0 

vtp 

ARTOA 

RATE  APPLIES  FOR  .96  SEC. 

0153 

REF 

2 

95 

12.2172 

6 0364 

0 

AD 

ALTSAVE  +1 

0154 

REF 

3 

LASl 

95 

12.2173 

54  364 

1 

IS 

altsave  +1 

AND  MAYBE  SKIP. 

0155 

REF 

10 

LAST 

93 

12.2174 

3 7 '61 

0 

CAF 

ZERO 

0156 

REF 

4 

LhS  I 

95 

12.2175 

^6  363 

0 

ADS 

ALTSAVE 

0157 

REF 

2 

LAST 

84 

12,2176 

3 7'35 

1 

CAF 

posmax 

FORCE  SIGN  agreement  ASSUMING  AltSAVE  I^ 

0158 

REF 

11 

last 

95 

12,2177 

6 7 '55 

1 

AD 

ONE 

NOT  negative.  If  IT  IS.  THE  FINAL  TS 

0159 

REF 

5 

LAS'i 

95 

12,2200 

6 o364 

0 

AD 

ALTSAVE  +1 

WILL  NOT  SKIP  AND  WE  CAN  SET  ALTSAVE  TO 

0160 

REf 

6 

LAST 

95 

12,2201 

54  364 

1 

TS 

ALTSAvE  +1 

ZERO  IN  THAT  cASE. 

0161 

REf 

1 1 

last 

95 

12,2202 

3 7'61 

0 

CAf 

ZERO 

0162 

0163 

REF 

REf 

3 

LAST 

95 

12  ,2203 

6 7 '35 

1 

AD 

POSMAX 

7 

LAST 

95 

12,2204 

6 0363 

1 

ad 

AlTsAvE 

0164 

ref 

8 

LAST 

95 

12,2205 

54  363 

0 

TS 

AlTsAvE 

0165 

REF 

1 

12.2206 

1 2Z77 

0 

TCF 

ZERODATA 

ALTSAVE  Negative  - set  to  zero. 

0166 

REF 

9 

LASl 

95 

12,220^ 

10  363 

0 

NeWDATA 

CCS 

ALTSAVE 

MAKE  UP  15  bit  UNSIGNlD  OUTPUT. 

0167 

0168 

rEf 

6 

LAST 

82 

12,2210 

3 7'37 

0 

CAf 

BiT15 

MAjOr  pArT  +1  Op  +0. 

RcF 

10 

LAST 

95 

12.2211 

6 0364 

0 

AD 

ALTSAvE  +1 

0169 

REF 

1 

12,221Z 

54  060 

0 

meterout 

IS 

AlTM 

0170 

REF 

1 

12.2213 

3 2303 

0 

CAF 

bitsft 

0171 

12.2214 

0 0006 

1 

Extend 

0172 

12,2215 

05  OiA 

1 

WOR 

1 4 

0173 

REF 

1 

12.2216 

1 2Z76 

1 

TCF 

DONEDID 

1 


.3 


o 


) ■ ^ 


3" 


to 


m 
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L 

017A 

0175 

0176 

0177 

0178 

0179 

0180 
0181 

A0182 

A0183 

A018A 

0185 

0186 

0187 

0188 

0189 

0190 

0191 

0192 

0193 

019A 

0195 

0196 

0197 

0198 

0199 

0200 
0201 
0202 

0203 

0204 
C0204 

0205 

0206 

0207 

0208 

0209 

0210 
0211 
0212 

0213 

0214 

0215 

0216 

0217 

0218 


T4RUPI  t ROG^AM 


REF 

2 

LAST 

95 

12*2217 

0 

2425 

0 

ALTROUr 

TC 

DISINDAT 

REF 

2 

LAST 

95 

12  *2220 

3 

7754 

0 

CAF 

B 1 T2 

12*2221 

0 

OOO6 

1 

EXTEND 

12*2222 

05 

1 

WOR 

14 

REF 

2 

LAST 

95 

12*2223 

3 ■ 

0353 

1 

CA 

AlTRATE 

REF 

1 

12*2224 

i 

2<^12 

0 

TCF 

METFROUT 

REF 

2 

LAST 

85 

12*2225 

10 

350 

0 

DISINDAT 

CCS 

DIDFLG 

REF 

1 

12*2226 

1 

2473 

1 

TCF 

AlLDONE 

REF 

4 

LAST 

86 

12*222  7 
12*2230 
12*2231 

REF 

REF 

29 

2 

LAST 

LAST 

83 

96 

12  * 2 2 34 

12,2233 

12*2234 

REF 

REF 

3 

1 

LAST 

96 

12*2235 

12*2236 

12*2237 

REF 

2 

LASi 

72 

12*2240 

12*2241 

1 

1 2<^30  0 MOOP 

3 7? 50  1 CAE  B1T6 

0 0006  1 EXTEND 

02  030  0 RAND  3U 

n OOO  0 CCS  A 

1 2-^73  1 ICE'  ALLDONE 

10  P5O  0 CCS  DIDFLG 

1 2<^37  1 NOOP 

i 2i^60  0 TCP  GOAGN 

3 7^46  0 FIRSTIML  CAF  B1T8 

0 0O06  1 extend 

05  ^12  1 aOR  12 


REF 

12 

LAST 

95 

12*2243 

3 7 761 

0 

REF 

4 

LAS  T 

96 

1 2 * 2p44 

5 4 350 

0 

REF 

1 

12*2245 

54  362 

1 

REF 

1 

12*2246 

54  361 

1 

REF 

1 

12*2247 

3 6476 

1 

REF 

3 

LAST 

79 

12*2250 

0 5 701 

1 

REF 

3 

LAST 

90 

E6 

1 2 * 22 5 F 

J2‘^54 

0 

REF 

1 

12*2252 

24O06 

1 

REF 

2 

LAST 

95 

12*2253 

0 24  76 

0 

REF 

3 

LAST 

96 

12  *225A 

3 7754 

0 

12*2255 

0 0O06 

1 

12*2256 

05  012 

1 

REF 

1 

12*2257 

0 5745 

1 

INTLZE 


CAF 

ZERO 

1 5 

Dl DFLG 

TS 

LASTXCMD 

IS 

LASTYCMD 

CAF 

SIX 

TC 

WAITLIST 

ebank= 

Mil 

2CADR 

INTLZF. 

TC 

DONFDID 

CAF 

BIT2 

EXTEND 

xOR 

12 

TC 

TASKOVER 

REF 

REF 

REF 

REF 

REF 

REF 

REF 


2 

1 

1 

LAST 

96 

12,2260 

12*2261 

12*2262 

4 

6 

54 

0362 

0357 

054 

2 

LAST 

96 

12*2263 

3 

035  7 

3 

LAST 

96 

12*226A 

54 

362 

2 

1 

LAST 

96 

12*2265 

4 

0361 

12  * 2 2 66 

6 

0360 

1 GOAGN 

0 

1 

cs 

AD 

TS 

LASTXCMD 

FORVEL 

OPTXCMD 

0 

CA 

FuRVEL 

1 

TS 

LASTXCMD 

1 

CS 

LASTYCMD 

1 

AD 

LATVFL 

REF  1 12*2267  O53  0 

REF  2 LAST  96  12*2270  3 0-360  1 


TS  OPTYCMD 

CA  LATVFL 


dec  U*  1966  (MAIN)  PAGE  96 


USER'S  OaN  PAUF  no. 


E6 


SET  UP  OUTPUT  FriR  ALi.  RATE 


NOTE  that  This  sHOUl  D ALWAYS  GO  TO 
ALLDONE  And  not  DONeDID  since  The 
availability  of  data  may  DISAPPpAR  WHILE 
THE  astronaut  HaS  THE  BUTTON  DO.N. 


CHECK  DISPLAY  ImERTIAL  DATA  BIT 


ENABLE  DISPLAY  iNERTIAL  DATA 


ENABLE  RR  ERROR  COUNTER 


48895‘iA  YJL  SYSltM  FOR  AGO;  NLW  PROG^A^I  SHePATIR  3Y  EYLES 


L TARUPl  program 


0219 

REF 

3 

LAST 

96 

I2,227i 

5 9 361 

A A f 1 A A 

1 

TS 

LASTYCMD 

0220 

R EF 

1 8 

LAST 

8 A 

12 ,2272 

0 0'-'02 

0 

T C 

Q 

0221 

REF 

1 

12*2273 

9 2309 

0 

ALLDONE 

cs 

didrfset 

0222 

12  *227A 

0 0O06 

1 

Extend 

0223 

12,2273 

03  Ol2 

1 

^AND 

12 

022A 

REF 

2 

LAST 

55 

12,2276 

1 5F51 

0 

DONEDID 

TCF 

RESUME 

0225 

REF 

13 

LAST 

96 

12,2277 

3 7 F61 

0 

ZERODAT A 

CAF 

ZERO 

0226 

ref 

12 

LAST 

82 

12,2300 

59  OOl 

1 

TS 

L 

0227 

REF 

1 

I2,2i0l 

1 2^65 

0 

T CF 

ZDATA2 

0228 

12,2302 

06'*32 

1 

ArTOA 

oec 

.20969 

0229 

12 ,2303 

06009 

0 

B I T SET 

OCT 

6009 

0230 

12,230A 

00202 

1 

DIDRESET 

OCT 

202 

DEC  l'^,  1966  (MAIN)  PAGE  9? 


USER '5  OWN  page  NO.  B E6 


REMOVE  DISPLAY  tNERtIAL  DATA  ANO  eCTR. 

RESET  RR  error  rOUNTER 
FIX  LAIERxx 


ALT  DUE  TO  Al TRaTE  eOR  ,96  SEC 


A8895^A 


L 

P0231 

R0232 

R0234 

RO236 

R0237 

R0238 

R0239 

R02A0 

R02A1 

R02A2 

R02A3 

R02'+A 

R02A6 

R02A8 

R02A9 

R0250 

R0251 

R02&2 

R025A 

R0256 

R02b7 

R0258 

R0259 

0261 

0262 

0263 

0269 

0265 

0266 

0267 

0268 

0269 

0270 

0271 

0272 

0273 
0279 


YJL  SYS  I EM  POR  AOC ; NEV*  PROORA'-i  SMePA  II.M  BY  EYLES 
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T9RUPI  EKUG9AM  USER'S  OWN  PAGf  NO.  9 E6 

PROGRAM  name:  IMUMON 


functional  description:  thIs  program  is  eNteRed  fVery  980  MS.  IT  Detects  changes  of  t^e  imu  status  Birs  in 

CHANNEL  30  AND  CALLS  TH£  APPROPRIATE  SUBROUTINES.  THe  BITS  PROCESSED  AND  THeIR  ReLeVANt  SUBROUTINES  ARr: 


function  ■ b^T  SUBROUTINE  CALLED 


TE’:P  IN  LIMITS 
IS5  1 URN-ON  REUUfST 
IM..  FAIL 
iMj  CDU  FAIL 

imj  cage 

IMj  operate 


15  TLlM 

I9  ITJRNON 

13  IMJFAIL  (SETISSW) 

12  ICDUFAIL  (SETISSW) 

11  IMJCAGE 

9 IMJOP 


the  east  sampled  STAlE  O'"  THeSe  BITS  IS  LeF T IN  IMQDeSso.  ALSO,  EACH  SUBROUTINE  CaLLeD  FINDS  tHe  NEW 
value  of  the  BIT  IN  A,  WIrH  0 SET  TO  THE  PROPER  RETURN  LOCATION,  NXtIFAIL. 


CALLING  sequence:  T9RUPT  E'VeRY  a80  MJLLUECONDS. 

JOeS  or  TAS<S  INITIATED:  NONE. 

SUBROUTINES  CALLED:  TLIM,  iTJRNON,  SETISSW,  IMUCAGE,  IMUuP. 


erasable  initialization: 

FRESH  start  OR  RfSTART  w^TH  NO  GROupS  ACTIVE:  C(Im0DES30)  = OCT  37911. 

RESTART  WITH  ACTIVL  SROUPS:  C(1MDDES30)  = ( B ( I M0DES30 ) AND ( OCT  00035))  PLUS  OCT  37A00. 

THIS  LEAVES  IMU  FAIL  BITS  INTACT. 

AEARMS:  NONE. 

exit:  INONTEST. 


OUTPUT:  updated  IM0DES30  WITH  CHANGES  PROCESSED  BY  APPROPRIATE  SUBROUTINE. 


REF 

1 

12,2305 

3,  3U56 

1 

1 MUMON 

CAF 

B1T5965 

DISABLE  dap  IF  7LR0  ICDU  OR  COARSE 

AL, 

12 ,230S 

0 OOO6 

1 

EXTEND 

12,2307 

02  012 

0 

RAND 

12 

1 2 ,23 lO 

0 OOO6 

1 

EXTEND 

REF 

1 

12t23ll 

6 2315 

1 

BZMF 

IMUMONl 

12,2312 

0 0OO6 

1 

EX  T end 

REF- 

1 

12,2313 

3 3O35 

1 

OCA 

T9DAP 

REF 

9 

LAST 

81 

12,231A 

53*001 

0 

OXCH 

T5ADR 

REF 

5 

LAST 

83 

12,2315 

3 0365 

1 

IMUKONI 

CA 

IM0DFS30 

SEE  IF  THERE  HAS  BEFN  A CHANGE  IN 

THE 

i2,23lP 

0 0006 

1 

extend 

relevant  bITs  Oi-  CHAN  30. 

1 2 , 2 3 1 ^ 

06  0 3 0 

1 

RXOR 

30 

ref 

1 

12,2320 

7 3O92 

0 

MASK 

30RDM5K 

12,2321 

0 OOO6 

1 

EXTEND 

REF 

1 

12,2322 

1 2362 

0 

3ZF 

TNONTEST 

NO  CHANGE  IN  STATUS. 

488954A  YJL  SYSiEM  f-'OR  AGC:  New  PROGRAM  S^ePATIN  BY  eYLlB 
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0275 

0276 

0277 

0278 

0279 

0280 
0281 
0282 

0283 

0284 

0285 

0286 

0287 

0288 

0289 

0290 

0291 

0292 

0293 

0294 

0295 

0296 

0297 


T^RUPI  PKOGftARi 


USER'S  OWN  page  no.  10 


REF 

6 

LAST 

73 

R EF 

6 

LAST 

96 

REF 

13 

LAST 

97 

REF 

7 

LAST 

99 

12.2323  69  O7O  1 

12.2324  22  365  1 
12,2323  0 OOO6  1 
12,2323  06  001  0 
12,2327  5A  365  0 


IS  RUPTREGl 

LXCH  IM0DFS30 
EXTEND 
RXOR  L 
TS  IMODES30 


REF  12  LAST  95 
REF  7 LASi  99 

REF  1 
REF  1 


12.2330  4 7'55  0 

12.2331  56  070  0 

12.2332  0 0OO6  1 

12.2333  6 2324  0 

12.2334  1 2336  1 


C5  ONE 

XCH  RUPTREGl 

EXTEND 
3ZMF  TLIM 

TCF  NXTIFbIT 


REF 

13 

LAS'i 

99 

REf 

8 

LAsT 

99 

REF- 

30 

LAST 

96 

REF 

2 

LAST 

99 

12,2333  6 7^55  1 -1  AD  ONE 

12,2333  2A  070  0 NxTiFbIT  INcR  RuPTREGl 

12,2337  6 OOOO  1 +1  DOUBLE 

12.2340  54  000  0 TS  A 

12.2341  1 2336  1 TCF  NXTIFBIT 


REF  4 LAST  73 
REf  9 last  99 


12.2342  56  O71  1 

12.2343  50  070  0 


XCH  RUPTREG2 
index  RuPTREGl 


REF 

2 

LAST 

78 

12,2344 

R EF 

8 

LAS'I 

99 

12 ,2343 

REF 

10 

LAST 

99 

12,2343 

REF 

1 

12,2347 

REf 

5 

LASl 

99 

12,2350 

ref 

3 

last 

99 

12,2351 

3 7^40  0 CAF  BIT14 

7 0365  0 MAS<  IM00FS30 

50  070  0 INDEX  RUPtREGI 

0 3O36  1 TC  IFAILJMP 

10  O71  0 NXTIFAIL  CCS  RUPTREG2 

1 2335  1 TCF  NxTIfbIT  -1 


SAVE  BITS  WHICH  HAVE  CHANGED. 
UPDATE  IMUDES30. 


CHANGE  IN  I MU  TfMP. 

BEGIN  B1 r SCAN. 

(RE-ENTERS  HERE  FROM  NXTIFAIL.) 
AoVANrE  BIT  POSITION  NUMBER. 

SKIP  IF  OVERFIOu. 

LOOK  FOR  BIT. 

SAVE  OVERFLOW-CfiRRECTED  DATA. 
select  NEw  VA| Ur  OF  ThIS  BIT. 


PROCESS  ANY  ADDITIONAL  CHANGES. 


E6 
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L 

P0298 

R0299 

R0301 

Ro303 

R0305 

R0307 

R0309 

R0311 

R0313 

R0315 

R0317 

R0318 

R0320 

R0322 

R032A 

R0326 

R0328 

R0330 

R0332 

R033A 

R0336 

R0338 

R03A0 

R03A2 

R03AA 

R0345 

R03A7 

R03A9 

R0350 

Ro352 

R0353 

R0355 

R0357 

R0359 

R0360 

036i 


TARuPI  PROGRAM  USER'S  OWN  PAGE  NO.  li  E6 

PROGRAM  name:  TNONTESl. 

FJNCTIOi.AL  l'ESCRIPtION:  rHiS  PROGRAM  HONORS  ReOUeStS  FOR  ISS  INITIALIZATION.  ISS  tURN-ON  (CHANNEL  3o  BIT  1^) 

AND  jss  Operate  (channel  30  311  9)  ReoUeSts  are  treated  as  a pair  and  processing  takes  pLace  .aso  seconds 
AFte^  either  ONe  appears.  this  IlNli IaLIZAtION  TA<eG  on  one  of  tHe  following  three  forms: 

1)  ISS  turn-on:  In  ihiR  situation  tHe  Computer  is  operating  when  tHe  isS  is  tUrneD  on.  nominally, 
both  ISS  tuRm-on  ano  iSs  Operate  appear,  the  platform  is  caqed  for  90  seconds  and  the  icdu«s  ?eroed 
so  that  at  the  end  0-  IHt  process  tHe  GlMBAL  LOCK  MONITOR  WILL  FUNCTION  PROPcRl  Y. 

z)  icDU  iNii ializai ion:  in  this  case  (He  Computer  was  probably  turned  on  with  tHe  iss  in  operate  or 
A FReSH  start  was  Do>4E  with  the  iss  in  operate.  in  this  case  only  iss  operate  is  on.  the  ICDi'S  are 

ZEROtD  so  the  GIKBAL  LOCR  MONIlOR  WILL  FUNCTION.  AN  EXCEPTION  IS  IF  tHe  ISS  Is  IN  GIMBAL  LoCK  AFTE^ 

A RESTART.  THE  IcOU'S  WILL  NOT  BE  ZEROeo. 

3)  restart  with  RESTARTABLe  program  using  the  IMU:  in  this  case,  no  initialization  takes  plate  since 
IT  IS  mSSUMeD  that  the  USING  PROGRAM  DID  THE  INITIALIZATION  AND  THEREFORE  TaRUPT  SHOULD  NOT  INteREERE. 

HOUES3O  BIT  7 IS  SET  = 1 BY  ME  ►'IRST  BIt  (CHANNEL  30  BIT  lA  OR  9)  WHICH  ARRIVES.  FoLl  OWING  THIS.  TNOnTfST  IS 
ENTERED'  FINDS  BH  7 = 1 ruT  311  « = 0.  SO  IT  SETS  BIT  8 = 1 ANp  EXITS.  THE  NEXT  TImF  TT  FINqS  BIT  8 = 1 AND 

proceeds.  Setting  bits  a and  7 = u.  at  proctnon,  if  iss  turn-on  request  is  present,  th^  iss  is  caged  (zero  + 

COARSE).  if  iss  operate  IS  NOI  PRESENT  PROGRAM  ALARM  00213  IS  ISSUED,  AT  THE  END  OF  A 90  SECOND  CAGE.  BIT  2 
0-  MODuSoO  IS  IESTED,  IF  U la  = 1.  ISS  TURN-ON  WAS  NOT  PRESENT  FOR  THE  ENTIRE  90  SECnNDS.  IN  THAT  CaSE.  IF 

the-  iss  turn-on  request  is  preseni  the  90  Second  wait  is  repeated,  otherwise  no  action  occurs  unlfss  a program 
WAS  WAiiiNG  For  the  initialization  in  which  case  the  program  is  given  an  imustall  error  Return,  if  the  delay 
Went  PRCPeRlY.  the  iss  DeI  AY  OJiBIt  is  sent  and  the  ICDU'S  ZfROeD.  a task  is  initiated  to  remove  the  PiPA  fail 

inhibit  bit  in  10. 2H  seconds.  if  a mission  program  was  waiting  it  is  informed  via  ENDIKU. 

AT  PROCiNoN,  if  only  ISS  OPtRATE  ^S  PRESENT  (OPONLY).  THE  CDU'S  ARE  ZeROeD  UNLESS  THp  PiAtFoRM  IS  IN  COaRSE 

A_IGN  (z  GI'.BaL  lock  HLRE)  UR  A MISSION  PROGRAM  IS  USING  Me  TMU  (IMUSEFLG  = 1). 

CALLING  sequence:  ThRUPT  eVeRY  a^O  MILLISECONDS  AFTER  IMUMON. 

jobs  or  TASKS  initiated:  1)  ENDTNON.  90  SECONDS  AFTER  CAGING  STARTED.  2)  ISSUP.  A SFCnNDS  AFTER  CAGIN',  DONE. 

3)  PFAILOK.  10, 2A  SeGON'dS  AFTER  INITIALIZATION  COMPLETED.  A)  UNZ2 . 320  MILLISfCONdS  AFTER  ZERoING 
STARTED. 

SUBROUTINES  CALLED:  CAGESUB,  CAGESUBz.  ZeRoICDU.  ENDIMU.  IMUBAD.  NOATTOFF.  SeTISSW.  VAcDeLaY. 

ERASA3LL  initialization:  SEe  MUMQN. 

ALARMS:  program  ALARM  00Z13  IF  l^S  TURN-ON  REQUESTED  WITHOUT  ISS  OPERATE. 

exit:  ENDT‘'0N  EXITS  TO  CoO'IeGT.  TASKS  HAVING  TO  DO  wItH  INITIALIZATION  eXIt  AS  FOLI_nWs:  MISSION  PROGRAM 

waiting  and  INITIALIZATION  CO-IPuE'E.  EXIT, TO  ENdIMU.  MISSION  PROGRAM  WAITING  ANd  1 N I T I A|  I ZAT I ON  FAIlEd*  EXIT  TO 
IMUBAJ.  IMU  Not  in  use.  exit  10  t^skoveR. 

OJTPJl : ISs  INITIALIZED. 

REF  9 last  99  1Z’23SZ  A o^SS  0 TvONTEST  CS  IMODFS3o  AFTER  PROCESSINi,  ALl  CHANGES.  SfE  IF  IT 


488954A  YJL  SyS'EM  pOI-*  AGC : pROG^A/i  gHEPATIi'm  BY  EYLE.s 


L T^tRuPr  program 

0362  REP  2 LAST  72  12,2353  / 7 0 ^AS<  BIT7 

0363  REF  31  last  99  12,235'*  13  OQO  0 CCS  A 

036A  REF  1 12,2355  1 2507  0 T CF  C33TFST 


0365 

REP 

3 

LAST 

96 

12,2356 

3 

7 7'*6 

0 

0366 

RFP 

10 

LASl 

100 

12,2357 

7 

0365 

0 

0367 

0366 

REF 

REF 

32 

1 

LAST 

101 

12,236° 

12,2361 

13 

1 

uoo 

2365 

0 

1 

CAP  BlTa 

viAs<  Im0dFs30 

CCS  A 

TCF  PROCTNON 


0369  REP  A last  lOl  12,2362  3 7 'A6  O CAF  BITS 

0370  REF  11  LAST  101  12,2363  26  365  0 ADS  IM00ES30 

0371  REf  2 LAST  101  12,236'*  1 2507  0 TCF  C33TFST 

R0372  PROCESS  IMU  TURN-ON  REQUESTS  AFTER  WAlTIMG  1 SAMPLE  FOR 


037A  REF  1 

0375  REP  12  last  101 

0376  REP  13  LAST  101 

0377  REF  3 LAST  99 

0378  REP  33  LAST  101 

0379  REP  1 


12.2365  A 3P6I  1 PROCTNON  CS  BITS768 

12.2366  7 0365  0 MAs<  1m0dEs30 

12.2367  SA  365  0 TS  II*|0DES30 

12,237C'  7 T‘iO  1 MASK  BlTlA 

12.2371  10  GOO  0 CCS  A 

12.2372  1 2A65  0 1CP  OPONLY 


0380 

0381 

0382 

REF 

REF 

REP 

16 

2 

36 

Last 

Last 

LAST 

101 

60 

101 

12,2373 
12 ,237^ 
12,2375 

0383 

12 ,2376 

038A 

REF 

2 

LAST 

89 

12,2377 

0385 

1 2 , 2600 

0386 

REP 

1 

12,2601 

0387 

REF 

1 

1 2 ,2602 

6 0365 

7 7 765 
13  UOO 

0 

1 

0 

CS 

MASK 

CCS 

IM0DFS30 

8119 

A 

1 2'*01 

1 

I CF 

+ 3 

0 6766 

1 

TC 

ALARM 

OOZI3 

1 

OCT 

213 

0 3U12 

3 3067 

1 

+ 3 

TC 

CAGFSUB 

0 

CAF 

90SFCS 

0388 

REF 

LAST 

96 

12,2603 

0389 

0390 
C0390 

REK 

REF 

1 

LAST 

9(3 

12,2606 

12,2605 

0391 

REF 

3 

LAST 

101 

12, 2606 

0 5''01  1 K WAITLIST 

E6  EBANK=  Mil 

02AII  1 2CADR  EnDTNON 

2AG06  1 

1 2507  0 TCF  C33TEST 


0392  REF  2 LAST  101  12,2^07  3 3^67  0 RETNON  CAF  905FCS 

0393  R;P  1 l2,2AlO  0 5^22  0 TC  VARDELAY 


039A  REF  A LAST  96  12,2a11 

0395  rEf  15  last  101  12,2a12 

0396  REF  16  LAST  101  12,2a13 

0397  REP  5 LAST  101  12,2a1'* 

0398  12,2a15 

0399  REF  1 12,2a1P 


A 7^5A  1 ENDTNON  CS  B1T2 

7 0365  0 mask  ImOdEsSO 

.56  365  1 KCH  IM0DES30 

7 7^5A  1 MASK  BIT2 

0 OUO6  1 EXTEND 

1 2'*31  1 3ZF  ENDTN0N2 


OAOO  REP  A last  101  IC'CAl"^  3 T^AO  0 CAF  BITIa 

OAOl  REf  17  LAST  101  12,2a20  7 0365  0 mASk  1mODES30 


DEc  13,  I966  (mAIN)  rAgE  101 


USER'S  OWN  PAGc  NO.  12  E6 

IS  TIME  TO  ACT  ON  A TURN>ON  SEQ  iENCE, 
NO  - EXAMINE  CHANNEL  33. 

SEE  IF  first  sample  OR  SECOND. 

REACT  AFTER  SFCnND  SAMPLE. 

IF  FIRST  sample,  SET  BIT  TO  keAtT  NEXT 
TIME. 

ALL  SIGNALS  TO  ARRIVp, 


SEE  IP  TURN-ON  pEQUEST, 

OPERATE  ON  ONLY. 

IF  TURN-ON  REQUfST,  WE  SHOULD  HaVE  iMU 
OPERATE. 

ALARM  IF  NOT. 


RESET  TURN-ON  RfQUEST  FAIL  BIT. 

IF  IT  WAS  OPP.sEND  ISS  DELAY  COMPLETE. 

IF  IT  WAS  ON  AND  TU«N-0N  REOUeSt  NOW 
PRESENT,  RE-FNTFR  90  SEC  DELAY  IN  WL. 


^segS-tA  YJL  SYSicM  FOR  AGC;  NEW  PROGR(\vi  sHePaHN  BY  eYLes 
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L I'tRUPT  program 


0A02 

12,2421 

0 0006 

1 

extfnd 

0A03 

REF 

1 

12, 2424 

1 2907 

1 

Kt 1 NUN 

040A 

REF 

b 

LASI 

78 

12  »2423 

4 0074 

0 

CS 

State 

oaob 

REe 

I 

12 ,242A 

7 7 796 

1 

mask 

imusefLg 

0A06 

REF 

35 

LAST 

101 

12,2425 

10  000 

0 

CCS 

A 

0A07 

REF 

2 

LAST 

96 

12,2420 

1 5795 

0 

TCF 

T aSKO VER 

0A08 

REF 

3 

LAST 

89 

12,2427 

0 5243 

1 

TC 

POST  JUMP 

0A09 

REF 

1 

12,2430 

26  703 

1 

ENDTNON2 

CADR 

IMUBAD 

OAIO 

REF 

7 

LAST 

95 

12 ,2431 

3 7737 

0 

CAF 

BiTl5 

OAIl 

12,2432 

0 0^06 

1 

EXTEND 

0AI2 

12,2433 

05  012 

1 

«0R 

12 

0A13 

REF 

1 

12,243A 

0 5307 

0 

TC 

ibnkcall 

OAlA 

REF 

1 

12,2435 

26323 

1 

CADR 

NoATTOFF 

0A15 

REF 

1 

12,2430 

0 9303 

0 • 

0NZ2 

TC 

ZtROICDU 

0Al6 

R eF 

2 

LAST 

98 

12 .243  ^ 

4 3*356 

0 

CS 

BIT  S465 

0AI7 

12,2440 

0 0006 

1 

Extend 

0A18 

12, 2441 

03  012 

1 

WAND 

12 

0AI9 

REF 

1 

12,2442 

3 4310 

1 

CAF 

4SECS 

0A2O 

REF 

2 

LAST 

101 

12,2443 

0 5 722 

0 

TC 

VARDELAY 

0A21 

REF 

1 

12,2449 

4 3O57 

1 

I aSUP 

CS 

0CT54 

0422 

REF 

18 

LAST 

101 

12,2495 

7 0365 

0 

MASK 

IM0DES3U 

042  3 

REF 

1 9 

LAST 

i02 

12 ,2490 

5 4 365 

0 

T S 

IM0DES30 

0424 

REF 

1 

12,2497 

0 2 763 

1 

TC 

SbTISSW 

0425 

REF 

8 

LAST 

102 

12,245D 

9 7737 

1 

CS 

BIT15 

0426 

12,2451 

0 0006 

1 

EXTEND 

0427 

12,2452 

O3  O12 

1 

WAND 

12 

0428 

REF 

1 

12,2453 

3 7743 

0 

CAF 

BITll 

D r r 

1 ACT 

U4e9 

Kir 

5 

L A o I 

101 

12,2459 

0 5*01 

1 

1 C 

WA I TL I ST 

0430 

REF 

5 

last 

101 

E6 

EBANK= 

MU 

0431 

12,2455 

J2-’U  7 

i 

2CADR 

PFAILOK 

C0431 

REF 

1 

12,2456 

26O06 

0 

0432 

REF 

D rc 

7 

LAST 

\ ACT 

102 

12,245  T 

4 OU74 

0 

CS 

SI  ATE 

U H J J 

Kir 

c 

L.  A O I 

102 

12, 2460 

7 7746 

1 

MASK 

I MUSEFLG 

0434 

REF 

36 

LAST 

102 

12,2461 

10  000 

0 

CCS 

A 

0435 

REF 

3 

LAST 

102 

12 ,2462 

1 5745 

0 

TCF 

TASKOVER 

0436 

REF 

4 

LAST 

102 

12,2463 

0 5243 

1 

TC 

POSTJUMP 

0437 

ref 

1 

12,2469 

26075 

1 

CAdR 

End  I MU 

0438 

REF 

2 

LAST 

81 

12,2465 

3 7 752 

0 

OPONLY 

CAF 

B1T4 

USER’S  OWN  PAGf  no.  13  E6 


IF  IT  IS  NOT  ON  NOW,  SEE  IF  A PROG  WAS 

waiting* 

UNSUCCESSFUL  tUaN-ON. 
send  ISS  UELAY  rOMPLETE. 

TURN  OFF  NO  ATT  LAMP. 

REMOVE  ZERO  AND  COArSE. 

WAIT  A SECS  FOR  COUNTERS  TO  FINT  GIMBALS 

remove  caging,  tmu  fail  inhibit,  and 

ICDUFAIL  INHIHIT  FLaGS. 

ISS  WARNING  MIGHT  HAVE  BEEN  INHIBITED, 
REMOVE  IMU  DEI Av  COMPLEfE  DISCRETE. 

DONT  ENABLE  PROG  ALARM  UN  PIP  FAIL  FOR 
ANOTHER  10  SECS. 

SEE  IF  ANYONE  I a WAITING  1 OR  THF  iMU  AT 
IMUZERO.  IF  SO,  wake  THEM  UP. 


IF  operate  on  only,  and  we  are  in  coarse 


4e8954A  YJL  5Y5IEM  FOR  AGC ; NL^*  PROGRAM  sHePATIN  BY  EYLES 


L T'tHO?]  program 


0A39 

12,2a66 

0 0006 

1 

EXTEND 

04A0 

12,246^ 

02  012 

0 

RAND 

OAAl 

REF 

37 

LAST 

102 

12,2470 

10  000 

0 

CCS 

04A2 

REF 

4 

LAST 

101 

12,2471 

1 2507 

0 

TCF 

0443 

REF- 

3 

LASI 

102 

12  ,2472 

3 7 746 

0 

CAF 

0444 

REF 

8 

LAST 

102 

12,2h73 

7 OO74 

0 

MASK 

0445 

REF 

3 8 

LAST 

103 

12 , 2 4 7 A 

1 0 ooo 

0 

CCS 

0446 

REF 

5 

last 

103 

12,2475 

1 2507 

0 

TCF 

0447 

REF 

1 

12,2476 

0 3024 

1 

TC 

0448 

REF 

2 

LAST 

81 

12,2477 

3 7751 

0 

CAF 

0449 

12 ,2500 

0 0OO6 

1 

EXTEND 

0450 

12,2501 

05  012 

1 

WOR 

0451 

RcF 

5 

Last 

96 

12, 2502 

3 7750 

1 

CAF 

0452 

REF 

6 

LAST 

102 

12,2503 

0 5 701 

1 

TC 

0453 

REF 

6 

LAST 

102 

E6 

EBANK= 

0454 

12 ,250A 

J2^36 

1 

2CADR 

C0454 

REF 

1 

1212505 

24O06 

1 

0455 

REF 

6 

LASI 

103 

12,2506 

1 2507 

0 

TCF 

12 

A 

CJ3TFST 

IMUSEFLG 
51  ate 
A 

C33TEST 

CAGFSUB2 

BITS 

12 

B1T6 

Waitlist 

Mil 

UI\lZ2 


C33TEST 


DEC  lA,  ly66  (MAIN)  PAGE  103 


USER'S  OwN  PAGE  NO.  I'* 

ALIGN,  DONT  ZfRO  THE  CDUS  BECAUSE  WE 
MIGHT  BE  IN  GIMaAL  LOCK. 


otherwise,  zero  THE  COUNTERS 
UNLESS  SOMEONE  tS  USING  THE  IMU. 


SET  TURNON  FLAGS. 


E6 


WAIT  300  MS  FOR  AGS  TO  RECEIVE  SIGNAL 


‘V8895AA 


L 

P0456 

Ro^57 

R0959 

R0461 

R0963 

R0A64 

R0965 

R0966 

R0967 

R0468 

R0469 

R0470 

R0A71 

R0^72 

R0973 

R0975 

R0A76 

R0^77 

R0478 

0479 

0480 

0481 

0482 

0483 

0484 

0485 

0486 

0487 

0488 

0489 

0490 

0491 

0492 

0493 

0494 

0495 

0496 


yJL  SYSie^‘  t-OR  aGC:  N,eW  SHePatIm  3Y  EYLf-S  O^C  i966  (MAIN)  Pa^e  lo'* 


T4RUP1  PROGRAM  USER'S  OrtN  PAGe  NO.  15  E6 

PROGRAM  name:  C33TEST 

fjnctional  Description:  fhis  pro'^ram  monitors  three  plip-flop  inbits  of  channel  33  and  cali  s tHe  appropriate 
SJbROJTINE  to  process  a change.  It  is  analogous  to  ImUmON,  which  monitors  channel  30.  FXCEdT  THAI  It  Reads 
channel  33  .'ITH  A WAND  INStRJC'TION  BeCAUSe  A 'WRITE*  PULSe  IS  ReQUIReD  tO  ReSET  THe  FLlP-FLoPS.  jHe  BItS 

processed  A\D  the  subroutines  called  are: 


BIT 

FUNCT ION 

. SUBROUTINE 

13 

PIPA  FAIL 

PIPFAIL 

12. 

DOWNLINK  roO  -AST 

DMTMF AST 

11 

UPLINK  TOO  Fi\3T 

UPTMFAST 

J30N  entry  to  the  subroutine,  the  new  bit  state  ts  in  a. 
CALLINfj  sequence:  EvERY  480  LL I seconds  after  tnontfst. 


JOES  OR  TAS<S  initiated:  NOME. 

subroutines  called:  PIPFaIL,  OMt'^FASt  and  UPtMFaST  ON  bit  changes. 

erasable  initialisation:  C(IHOOeR33)  = OCT  16000  ON  A FReSH  STAR  I OR  RESTART.  THEREFORf.  THESE  ALARMS  ajILL 
reappear  if  the  CONDI  1 ions  PeRSISI, 

A-ARMS:  NOME. 


exit:  GL0C<M0N. 


OUTPUT:  UPOATED  BITS  13.  12  AMO  U OF  1M0DES33  wITH  CHANGES  PROCESSED. 


REF 

2 

LAST 

86 

12.2507 

3 0566 

1 C33TEST 

CA 

IMODFS33 

REF 

1 

12.2510 

7 5560 

0 

mask 

33RDMSK 

REF 

14 

LAST 

99 

12.2511 

54  OQl 

1 

TS 

L 

REF 

2 

LAST 

104 

12.2512 

3 5560 

1 

CAF 

33RDMSK 

1 2 . 2 5 1 S 

0 0^06 

1 

EXTEND 

12.251A 

03  033 

1 

«AND 

33 

12.2515 

0 0006 

1 

EXTEND 

ore 

15 

1 ACT 

Kir 

LAo  1 

1 U4 

12.2515 

U 6 '-/(j  1 

0 

RXOR 

L 

12 .251'^ 

0 0006 

1 

EXTEND 

REF 

1 

12.2520 

1 2547 

1 

3ZF 

GLOCKMON 

REF 

11 

LAST 

99 

12.2521 

54  070 

1 

TS 

RUPTREGl 

REf 

3 

LAST 

104 

12.2522 

22  566 

1 

LXCH 

1mODFS33 

12.2525 

0 0U06 

1 

EXTEND 

REF 

16 

LAST 

104 

12 .2b2A 

06  OOl 

0 

RXOR 

L 

REF 

4 

Last 

104 

12.2525 

54  566 

0 

TS 

1M0DFS33 

REF 

14 

LAST 

97 

12.2525 

3 7'61 

0 

CAF 

ZERO 

REF 

12 

LAST 

104 

12,2527 

12,2530 

55  U70 
6 OOOO 

0 

1 

XCH 

DOUBLE 

RUPTREGl 

SEE  IF  RELEVANT  CHAN  33  BITS  HAv/E 
CHANGED. 

RESETS  FLIP-FIOP  INPUTS. 

ON  NO  CHANGE. 

SAVE  BITS  WHICH  HAVE  CHANGED. 

UPDATED  IMODE.S33. 


^8895AA  YJL  SYSIEM  (-Ok  AGt ; PkOO^AVl  S^bPATIN  BY  EYLES  DEC  !:(,  I966  (MAIN)  PAGE  105 


L T^iRUPl  (kOGI^AM  USER'S  OWN  PAGE  NO.  IP  E6 


0A97 

REF 

1 

12,2531 

1 2534 

0 

TCF 

NXTTBT  +1 

SCAN  for  bit  changes. 

OA98 

REF 

14 

LAST 

99 

12,2532 

5 7(55 

1 

-1 

AD 

ONE 

0A99 

rhf 

13 

LAST 

104 

12,2533 

24  U70 

0 

NxTIBT 

I NCR 

RuPTREGl 

0500 

12 ,253A 

5 OOOO 

1 

+ 1 

DOUBLE 

0501 

REF 

39 

LAST 

103 

12,2535 

54  OQO 

0 

TS 

A 

(CODING  IDENTICAL  TO  CHAN  30). 

0502 

REF 

2 

LAST 

105 

12,2536 

1 2533 

1 

TCF 

NXTTBT 

0503  REF  6 LAST  99  1<I*2537  55  >^71  1 XCH  RUPTREG2 

050A  REF  ik  lAsI  105  12*25A0  S3  O70  0 INpFX  RuPTREGl  GET  NEW  VALUF  Of  BIT  WhICH  ChAN^Ed* 

0505  REF  1 12,2sa1  3 7 ^A1  1 CAF  BIT13 

0506  REF  5 LAS!  lOA  12,2SA2  7 0^66  0 viask  IM0DF833 

0507  REF  .15  last  105  12,25A3  53  0 rO  0 INDEX  RUPTREGl 

0508  REF  1 12,254A  0 3OAA  1 TC  C33JMP 

0509  ref  7 last  105  12'25A3  13  O71  0 NX1FL33  CCS  RUPTREG2  PROCESS  POSSIBLE  ADDITIONAL  CHAmGES. 

0510  REf  3 last  105  12,25A6  1 2^32  0 TCF  NxTIrT  -1 


A88954A  YJL  SYSTEM  FOR  AGC;  NEW  sHePATIN  bY  EYLES 
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L TARIJPl  FRliGkAH  USER’S  OwN  PAGf  NO.  17  E6 

Posh  program  NAMf  : gluCkmon 

Robl2  FJNCTlO.'.AL  DESCRIPTION:  tHIS  PROGRAM  MONITORS  tHe  CDUZ  CqUNteR  TO  DETERMINE  wHetHeR  tHf  ISS  IS  IN  GlMB/iL  LOCK 
RqSIA  and  TAKtS  ACTION  IF  I I IS.  TRREE  REGIONS  OF  MIDDLE  GIMbAL  ANGLE  (MGA)  ARE  USeD: 

R05i6  1)  ABS(MGA)  LESS  T^AN  OR  EQUAL  TO  Yq  DEoREES  - NORMAL  MODE. 

R0517  2)  AbS(mgA)  GREATER  HAN  70  DEqREES  AND  LESS  TFlAN  OR  EOyAL  TO  85  DEGREES  - gImrAL  LOCK  LAMP  TURNED  ON. 

R0519  3)  ABS(MGA)  GReATeR  THAN  85  DeGReeS  - ISS  PJt  IN  COARSe  ALIGN  AND  No  ATT  LAMP  -jURNeD  ON, 

R0521  calling  SEQ.ENCe:  every  i^80  MT lL 1 SECONDS  AFTER  C33TEST. 

R0522  JOBS  OR  TAS<S  INITIATED:  NONE. 

R0523  subroutines  CALLeD:  1)  SeT^OARS  WHeN  ABS(MGA)  greater  than  85  DeGReeS  AND  ISS  NOT  IN  CfARSe  ALIGN. 

R0525  2)  eAMPTESI  bEpORE  TjRMNG  OFF  GIMBAl  [ OcK  eAMP. 

Ro526  eRasabli:  initialization: 

R0527  1)  fresh  start  OR  ReSIARI  WITH  NO  CROUPS  ACTIVE:  C(CDUZ)  = 0,  IMODES3O  bll  6=0,  IHODES33  BIl  1 = 0. 

R0529  2)  restart  w1(H  GROJ^S  aLTIVe:  SAMe  AS  FRESH  START  eXCePT  C(CUUZ)  NOT  CHANGED  SO  gIMBAl  MONITiR 

R0531  PROCEEDS  AS  BEFORE. 


R0532 

R0533 

R0535 

0536 

0537 

0538 

0539 
05‘+0 


a-arms:  1)  mga  region  (2)  Causes  gimbal  lock  lam?  to  be  lit. 

2)  MGA  region  (3)  CftjSFS  THe  ISS  TO  BE  PUT  IN  COaRSe  ALIGN  AND  THE  NO  All  LAMP  TO  RE  Lll  IF  eMHeR  NOT 
SO  ALREADY. 


REF 

2 

LAST 

79 

12 ,25A7 

10  03A 

1 

GLOCKMON  CCS 

REF 

1 

12,2550 

1 2P5A 

0 

TCF 

REF 

1 

12,2551 

1 2P7A 

1 

TCF 

REF 

2 

LAST 

106 

1 2 , 2 55Z 

1 2P5A 

0 

1 CF 

REF 

2 

LAST 

106 

12,2553 

1 257A 

1 

TCF 

CDUZ 

GLOCKCHK  see  if  MAGNlTUDr  OF  MGA  IS  GREATER  THAN 

SETGLUCK  70  DEGREES. 

GLOCKCHK 

SETGLOCK 


05A1 

REF 

1 

12,255A 

6 

2621 

0 

GLOCKCHK  AD  -/ODEGS 

05A2 

12,2555 

0 

OOO6 

1 

EXTEND 

05A3 

REF 

3 LAST  106 

12,255t> 

6 

2573 

1 

3ZMF  SETGLOCK  -1 

NO  LOCK. 


05AA  REF  1 12,255T  6 2^22  0 AD  -iSDEGS  SEE  IF  ABS(MGA)  GREATER  THAN  85  DEGREES. 

05A5  12,2560  0 0006  1 EXTEND 

05A6  REF  1 12, 2561  6 2P71  0 3zMF  NOGIMRUN 


05A7 

REF 

3 

LAST 

102 

12 ,256Z 

05  A8 
05  A9 

0550 

0551 

REF 

REF 

AO 

2 

LAST 

LAST 

105 

106 

12 ,2563 
12 ,256A 

12.2565 

12.2566 

3 7152  0 CAE  BITA 

0 0006  1 EXTEND 

02  012  0 RAND  12 

10  Ooo  0 CCS  A 

1 2P7I  1 TCP  NOGIMRUN 


0552 

REF 

2 

LAST 

102 

12 

,2561 

0553 

REF 

1 

12 

, 2 57O 

055A 

REF 

6 

LAST 

103 

12 

,2571 

0555 

REF 

A 

LAST 

106 

12 

,2572 

0 5PO7  0 IC  IbNKCALL 

26Z31  0 CADR  SETCOARS 

3 7150  1 NOGIMRUN  CAP  6116 

1 2P7A  1 ICF  SETGLOCK 


IF  SO,  SYSTEM  SHOULD  BE  IN  COARSE  ALIGN 
TO  PREVENI  CIMBfiL  RUNAWAY. 


TURN  ON  GIMEAL  I OCK  LaMP, 


488y54A  YJL  SYSTtM  FOK  AGC:  Ntw  SHePATIN  3Y  eYLeS 


L TARUPl  PRCGkAm 


0556 

REF 

15 

LAST 

104 

12 

0557 

REF 

11 

LAST 

93 

12 

0558 

REF 

7 

LAST 

106 

12 

0559 

12 

0560 

REF 

1 

12 

0561 

REF 

12 

LAST 

107 

12 

0562 

ref 

41 

LAST 

106 

12 

0563 

REF 

1 

12 

0564 

REF- 

8 

LAST 

107 

12 

0565 

REF 

20 

LAST 

102 

12 

0566 

REF 

42 

LAST 

107 

12 

0567 

REF 

2 

LAST 

107 

12 

0568 

REF 

1 3 

LAST 

107 

12 

0569 

REf 

9 

LAST 

107 

12 

0570 

REF 

9 

LAST 

102 

12 

0571 

R -F 

14 

LAST 

107 

12 

0572 

REF- 

1 

12 

0573 

REF 

1 5 

LAST 

107 

12 

05  ?4 

REF- 

3 

LAST 

107 

12 

0575 

REF 

1 

12 

0576 

ref 

4 

last 

107 

12 

0577 

REF 

1 

12 

0578 

12 

0579 

0580 

12 

12 

2573  3 7^61  0 -1  CAP 

287A  6 0J26  0 SETGLOCK  AD 

2575  7 7^50  0 '1A5K 

Zblb  0 OPO6  1 EXTEND 

2377  1 3<^03  1 3ZF 

2600  7 0:>26  1 ^ASK 

2601  10  000  0 CCS 

2602  1 2P16  0 ICF 

2603  3 7^50  1 CAF 

260A  7 0A65  0 '^ASK 

2605  10  OOO  0 CCS 

2606  1 3203  1 TCP 

2607  0^26  1 GLINVLRT  C5 

2blO  7 7^50  0 viAsK 

2611  6 7/37  0 AD 

2612  55  326  0 XCH 

2613  7 2623  0 mask 

26lA  26  326  1 ADS 

2o15  1 3203  1 KF 

2616  0 3OA7  1 GlANPTST  TC 

2617  1 3203  1 TCF 

2620  1 2607  0 TCF 

2621  63A3A  1 -70DLG5  DEC 

2622  75252  0 -15DEG5  OEC 

2623  37/37  0 0CT37737  OCT 
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USER'S  OwN  pAuT  NO.  18  E6 

ZERO 

DSPTAB  +IID 
B1T6 

GlOCKOK 

SEE  IF  PRESENT  ^TATF  OF  GIMBAL  1 OCK  LAMP 

AGREES  with  DfSiRED  STATE  BY  HAl  F ADDING 

THE  TWO. 

OK  AS  IS. 

DSPTAB  +11D 

A 

IF  OFF.  DONT-  TUpN  ON  IF  IMU  8EI  iG  CAGED* 

GlAMPTST 

B1T6 

IM0DES30 

A 

GLOCKOK 

TURN  OFF  UNLESS  LAMP  TEST  IN  PROGRESS, 

DSPTAB  +11D 
BIT6 

INVERT  GIMBAI  LnCK  LAMP, 

B1T15 

DSPTAB  +11D 

0CT37737 
DbPTAB  ■fllD 
GLOCKOK 

TO  INDICATE  CHANGE  IN  DSPTAB  +I1O. 

lamptfst 

GlOCKOK 

GLINVERT 

TURN  OFF  unless  LAMp  teSt  IN  PROGRESS, 

“.38888 

-.08333 

37737 

-70  DEGREES  SCAi ED  TN  HALF-RbVOLUT I ONS. 

A8895^A  rJL  system  FOR  AGC : Ntw  PROti^AM  SHePATLM  BY  EYLES 
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L tarupi  f rogram  user«s  own  Page  no-  i'^  E6 

P0581  PROGRAM  NAME : TLIM. 

Ro582  FJNCtIOiyAL  DESCRIPTION:  jHlS  PRO'^RAM  MAINTAINS  r HE  TfMP  LAMP  (BIT  A OF  CHANNeL  h)  ON  jHe  nSKY  TO  AGRef  WItH 

R058A  the  temp  signal  FROm  THE  1 S5  ,3lT  15  OF  CHANNEL  3O).  HOwEVFR,  THE  LIqHt  wILL  NOT  BE  tLIrNeD  OFF  IF  A LAy.p  TEST 

R0586  IS  IN  PROGRESS. 

RC587  calling  SEOuENCe:  CaLLeD  BY  I MJMUN  ON  A CHANGE  OF  BIt  15  OF  CHANNEL  30. 


Ro588  jobs  or  TASaS  INlTlArLO:  NOnie- 
R0589  SJBROJTINES  CaLLEIp:  LAMPteST. 

R0590  ERASABLl  initialization:  FReSH  siart  ANO  restart  turn  the  temp  lamp  off. 

Ro592  Alarms:  TE'P  lamp  turned  oN  /kHeN  imu  temp  goes  out  of  limits. 

R0593  EMT:  NXlIFAlL. 

R059A  output:  service  OF  TEMP  LAMp,  IN  A.  EXCEPT  FOR  TLIM. 


0596 

REF 

A 

LAST 

95 

12,262A 

7 7'35 

c 

TLIM 

MAS< 

PuSMAx 

0597 

REF 

8 

LAST 

105 

12,262S 

5A  071 

0 

TS 

RUPTREG2 

0598 

REF 

21 

LAST 

107 

12*262R 

10  U65 

0 

CCS 

IM0DFS30 

0599 

RsF 

1 

12.2627 

1 2P35 

1 

TCF 

T EMPOK 

0600 

REF 

2 

LAST 

108 

12*2630 

1 2635 

1 

Tcr 

TEMPOK 

0601 

REF 

A 

LAST 

106 

12*2631 

3 7(52 

0 

caf 

BITA 

0602 

12  * 2 6 3Z 

0 0O06 

1 

Ext  end 

0603 

J.2.2633 

05  011 

1 

wor 

11 

060A 

REF 

1 

12.263A 

1 2P50 

1 

ICF 

NXTIFAIL 

0605 

REF 

2 

LAST 

107 

12.263S 

0 3OA7 

1 

tempok 

TC 

LAMPTEST 

0606 

ref 

2 

LAST 

108 

12.2636 

1 2P50 

1 

TCF 

NxTIFAIl 

0607 

REF 

5 

LAST 

108 

12*2637 

A 7(52 

1 

CS 

BITA 

0608 

12.26A0 

0 0O06 

1 

EXTEND 

0609 

1 2 * 26 A 1 

03  Oil 

1 

WAND 

1 1 

0610 

REF 

3 

LAST 

108 

12  *26A2 

1 2U50 

1 

TCF 

NXTIFAIL 

REMOVE  Blr  FROM  WORn  OF  CHANGES  AND  SET 
DSKY  temp  lamp  ACCORDINGLY. 


TURN  ON  LAMP. 


IF  TEMP  NOW  Ok.*  DONT  TURN  OFF  LAMP  IF 

lamp  test  IN  progress. 


48895^A  yJL  SySiEM  TOR  AqC;  NEw  pROORAM  SH^pATlN  ay  EYLES 
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L TARUPl  PRUGRAM  USER'S  OWN  PAGE  NO.  2U  Eb 

P0611  PROGRAM  nAMI : iTURnDN* 

R0612  FJNCliO.JAL  DESCRIPTION:  tHIS  RRO'^RAM  IS  CALLeD  BY  IMUMoN  wHeN  A CHANGE  OF  BI  | u OF  CHaNIMEL  30  (ISS  tJRN-ON 
R0614  REQUEST)  IS  DfIECIED.  UPON  EM'HY*  ITURNON  CHECKS  IF  A TUrN-ON  DeLAY  SeQUeNCe  HAS  FAILeo,  AnD  IF  SO,  IT  EXITS, 

R0616  if  NOT,  IT  : HeCKS  WHeIHeR  T^E  I JRN-ON  ReOJESI  CHAMGe  IS  TO  ON  OR  OFF,  IF  ON,  IT  SETS  BIT  7 OF  IM0DES30  TO  1 SO 

Robie  that  iN(.ntest  rtiLL  initiate  he  Hs  imt  I ALizAi  ion  Sequence,  if  off,  the  tdrn-on  delay  signal,  channel  12  bit 

R0620  15,  IS  checked  AND  IF  IT  IS  ON,  I.IURNON  EXITS,  iF  THE  DELAY  SIGNAL  IS  OFF,  PROGRAM  ALAcM  00207  IS  ISSUED,  BIT  2 

R0622  OF  IM0Dt_S30  IS  SET  TO  1 AND  T NE  PROGRAM  EXITS. 

R0623  TH(.  setting  OF  BIT  2 OF  HODeSsO  (ISS  DeLAY  SEUUeNCe  FAIL)  INHIBITS  THIS  ROUTINE  AND  iMUoP  FROM 

R0625  processing  ANY  CHANGES.  iHiS  oil  WILL  BE  ReSET  BY  THe  eNDTNON  ROUTINE  WHEN  THe  CURRENT  90  SECOND  DELAY  PeRIOD 
R0627  ENDS. 

R0628  CALLING  SeOJENCe:  FROM  IMUMOM,  a'HEN  ISS  TJRN-ON  KeOUeST  CHANGES  STATE. 

Ro629  jobs  or  tasks  INITIATED:  NONe. 

R0630  subroutines  CALLED:  ALARM,  I-  THE  ISS  TURN-ON  REQUEST  IS  NOT  PReSeNT  FOR  90  SECONDS. 

Ro632  erasable  inttialization:  fresh  siart  and  Restart  set  bit  is  of  channel  12  and  bus  2 and  7 of  imodesbo  to  0, 

R063A  AND  BIT  U OF  IMODES30  TO  1. 

R0635  A-ARMS:  PROGRAM  aLaRM  0020Y  IS  HSUeD  IF  tHe  ISS  TURn-ON  ReQUeSt  SIGNAL  IS  NOT  PRESpNT  FoR  90  SeCONDS. 

R0S37  exit:  i'.XTIFAlL. 

R0638  OUTPUT : BIl  7 OF  IMODES30  lO  SIART  ISS  INITIALIZATION,  OR  BIT  2 OF  IMODES30  AND  PROGRAn,  ALaRM  00207  TO  INDICATE 
RO6AO  A FAILED  TURN-ON  SEQUENCE. 

0691  REF  6 last  101  12,2693  3 7/59  0 ITURNON  CAF  B1T2  IF  DELAY  RECjUfSt  HAS  GONE  OFF 

0692  REF  22  LAST  108  12,2699  7 0365  0 MAsK  IMOdFsSO  PREMATURELY,  DO  NOT  PROCESS  ANY  CHANGES 

0693  REF  93  last  107  12,2695  10  000  0 CCS  A UNTIL  THE  CURRENT  90  SEC  WAIT  EXPIRES. 

0699  REF  9 LAST  10b  12»269S  1 2350  1 TCF  NXTIFAIL 

0695  REF  5 LAST  101  12,2b9/  3 7/90  0 CAF  BIT19  SEE  IF  JUST  ON  nR  OeF. 

0696  REF  23  LAST  109  12,2650  7 0365  0 MASK  Im0dFS30 

0697  12,2651  0 OOO6  1 EXTEND 

0698  REF  1 12,2652  1 2066  1 3ZF  IT URN0N2  IF  JUST  ON, 


0699  REF  10  LAST  10/  12,2653  3 

0650  12,265A  0 

0651  12,2655  02 

0652  12,2656  0 

0653  12,2657  1 

0659  REF  5 LAST  109  12,2660  1 


7/37 

0006 

012 

0 

1 

0 

CAF 

EXTEND 

RAND 

BIT15 

12 

OOO6 

1 

EXTEND 

2661 

0 

3ZF 

+ 2 

2350 

1 

ICF 

NXTIFAIL 

SEE  If  delay  present  discrete  Has  been 
SENT.  IF  SO,  action  COMPLETE. 


0655  REF  7 last  IO9  12,2661  3 7/59  0 CAF 

0656  REF  29  lAsT  109  12,2662  2b  365  0 Ads 

0657  REF  3 LAST  101  12,2663  0 9/99  1 TC 

0658  12,2669  00207  1 OCT 

0659  REF  6 last  109  12,2665  1 2350  1 TCF 


B1T2  IF  NOT,  SET  BIT  TO  INDICATE  REO.IEST  NOT 

im0dfs30  present  fur  fuli  duration. 

ALARM 

207 

NXTIFAIL 


488954A  YJL  SYSTEM  hOR  AGC ; NEw  sHePAT  IN  3Y  EYLES 


L TARUPT  i-ROGRAM 

0660  REF  3 LAS  I 101  12,2666  A 7^A7  0 ITJRN0N2  CS 

0661  REF  25  LAST  109  12,266^  7 0^65  0 MASK 

0662  RiF  A LAST  110  12,2670  6 7 ^A7  1 AD 

0663  REF  26  LAST  110  12,2b7l  5A  365  0 TS 

066A  REF  7 LAST  109  12,2672  1 2350  1 TCF 
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BIT7 

IM0DFS30 

BiT7 

IM0DFS30 
NXT IFAIL 


USER’S  OWN  page  NO.  21  E6 

SET  BIT  7 TO  initiate  WAIT  OF  1 SAMPLE, 


48895^A 


L 

P0665 

RO666 

RO668 

R0670 

R0672 

R0674 

R0675 

R0676 

R0677 

R0678 

Rq^SQ 

RO68I 

R0682 

068A 

0685 

0686 

0687 

0688 

0689 

0690 

0691 

0692 

0693 
069A 

0695 

0696 

0697 

0698 
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TARUPI  program  USER'S  OWN  PAGf-  NO.  22  E6 

PROGRAM  name:  IMUCAGE. 

FUNCTIONAL  description:  tHIS  PROGRAM  PROCESSES  CHANGES  OF  jHe  IMUCAGe  INBIT,  CHANNEL  30  BIT  U,  IF  THp  BIT 
CHANGES  TO  C (CAGE  BUTTON  PReSSeU',  Tht  1 sS  IS  CAoEO  (ICDU  ZeRO  + COARSE  ALIGN  + NO  ATT  LAMP)  UNTIL  tHe 

astronaot  Selects  another  program  to  align  the  iss,  any  pulse  trains  to  tHe  icdu'S  and  gyro'S  are  terminated* 
He  ASSCCIA-,  eD  OUTCOJNTeRS  ARr  ZeROeD  and  the  GYRO'S  ARe  De-SeLeCTeD.  no  action  occurs  when  the  button  is 
RELtASEL  (INBIT  CHANGES  TD  1 ) , 

CALLING  SlQ-.ENCe:  BY  IMUMON  nHEN  IMU  CAGe  BIT  CHANGES. 

JOBS  OR  TAS<S  initiated:  N0N£. 

SUBROUTINES  CALLED:  CAGESUB. 

erasabli  initialization:  fresh  siart  and  restart  Set  bit  n of  imodesso  to  i. 

A_AkMS:  NONE. 

EXIT:  KXTIFAIL. 


outpU] : 

ISS 

caged* 

counters 

zerold* 

pulse  train 

s terminated  and  no 

ATT  lamp  LI r. 

REF 

94 

LAST 

109 

12*2673 

10  ooo 

0 imucage 

CCS 

A 

NO  ACI ION  IF  gOiNg  OFF. 

REF 

8 

LAST 

110 

12,267H 

1 2360 

1 

TCF 

NXTIFAIL 

REF 

1 

12*2673 

4 3064 

1 

cs 

OCT7IOOO 

terminate  ICDU  aNd  gyro  pulse 

Trains. 

12*2676 

0 0006 

1 

extend 

1 2 * 267  f 

03  OH 

1 

WAND 

14 

REF- 

2 

LAST 

101 

12*2700 

0 3012 

1 

1C 

CAGFSUB 

REF 

16 

LAST 

107 

12,2701 

3 7761 

0 

CAF 

ZERO 

ZERO  COMMAND  OUt-COUNTERS. 

REF 

1 

12,2702 

54  050 

0 

TS 

COUXCMD 

REF 

1 

12  ,2703 

54  0^1 

1 

TS 

CdUYCMO 

REF 

1 

12,2  7OA 

54  052 

1 

TS 

CUUZCMD 

REF 

1 

12,2705 

54  0^7 

0 

TS 

GYROCMD 

REF 

1 

12,2706 

4 3063 

0 

CS 

OCT1700 

HAVING  WAITED  At  LEAST  27  MCT 

From 

12,2707 

0 OOO6 

1 

extend 

GYRO  PULSE  IRAU,  TERMINATION, 

Wp  CAN 

1 2 , 2 7 1 0 

03  Oh 

1 

WAND 

14 

DE— Select  the  gyros. 

REF 

9 

Last 

111 

12,2711 

1 2350 

1 

ICF 

NXTIFAIL 
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L T^RUPI  program  USER'S  OwN  PAGb  NO.  23  E6 

P0699  PROCiRAM  NmML:  IMUOP. 

RqYoo  FJNCTIor.AL  L'eSCR  I Pj  I ON : tHIS  P^O'JRAM  processes  changes  in  the  I5S  operate  OISCReTE*  hit  9 nF  channel  3o. 

R0702  I-  the  INBlT  CHANGES  TO  0,  1N31CAIINg  I SS  ON,  IMUOp  gENeRaLLy  SETS  bU  7 OF  IMODeSbo  TO  1 TO  RE(jUeST  ISa 

Ro70A  INII lALiZATlON  VIA  TNOnie-ST.  AM  EXCePtIOm  IS  DURING  A FAILeD  I SS  DeLAY  DURING  WHICH  BIt  2 OF  IM0DES30  IS  Set 

Ro706  to  1 anu  no  further  I n I i I ali z ai I o'h  is  Required.  wHen  iHe  inbit  changes  to  i,  indicating  iss  off,  imuseflg  is 

Ro708  tested  to  Sfc  E IF  ANY  PROGRAM  ivAS  USING  [He  ISS.  IF  So,  PROGRAM  ALARM  0021A  IS  ISSUED. 


R0710  calling  SeQwENCe:  by  IMUMoN  aiHEN  bit  9 OF  channel  30  changes. 

R07ll  JOBS  OR  TAScS  INITIATED:  NONE. 

R0712  SJBROJTiNuS  CaLLeD;  ALaRM,  I-  ISP  IS  TURNED  OFF  aHRe  IN  USE. 

R0713  erasable  initialization:  ON  -R£SH  Start  and  restart,  bit  9 of  IMODeSso  is  SeI  to  1 EXCfPT  iA,HEN  the  gimral  lock 

R0715  LAMP  IS  ON,  IN  WHICH  CASE  H IS  SET  TO  0.  THIS  PREVENTS  ICDU  ZERO  BY  TNONTEST  WITH  THe  ISS  IN  GIMBAL  LiCK, 

R0Tl7  A-ARMS:  PRc.GraM  aLARM  0021H  IF  tF)E  ISS  Is  TURNED  OFF  WHILE  IN  USE. 

R0718  exit:  NxTIFAIL. 


R0719  output:  iss  I N I T 1 ALI  Za I I ON  REOJEPT  (IMODES30  BIT  7)  OR  PROGRAM  ALARM  0021A. 


0721 

12*2712 

0 0006 

1 

1 MUOP 

EXTEND 

0722 

REp 

1 

12,2713 

1 2^23 

1 

3ZF 

IMU0P2 

0723 

REF 

9 

LAST 

103 

12,271A 

A 0U7A 

0 

CS 

STATE 

072A 

REF 

A 

LAST 

103 

12,27lP 

7 7TA6 

1 

MASK 

IMUSFFLG 

0725 

REF 

AS 

LAST 

111 

12 ,2  ?16 

10  Ooo 

0 

CCS 

A 

0726 

REF 

10 

LAST 

111 

12,2717 

1 2350 

1 

ICF 

NXTIFAIL 

0727 

REF 

A 

LAST 

IO9 

12 , 2 72O 

0 A TA A 

1 

TC 

alarm 

0728 

12,2721 

OOZlA 

0 

DCT 

21A 

0729 

REF 

11 

LAST 

112 

12,2722 

1 2350 

1 

TCP 

NxTIFAIL 

0730 

REF 

8 

LAST 

109 

12,2723 

3 7'5A 

0 

lMUaP2 

CAF 

B1T2 

0731 

REF 

27 

LAST 

110 

12,272A 

7 0365 

0 

MASK 

IM0DFS30 

D r u 

V f J ^ 

K « r 

A6 

LAST 

112 

12 ,2723 

10  '-'00 

0 

CCS 

A 

0733 

REF 

12 

LAST 

112 

12,272P 

1 2350 

1 

TCF 

NXTIFAIL 

073A 

REF 

2 

last 

109 

12,2727 

1 2966 

1 

TCF 

1 rURN0N2 

IF  GOING  OFF,  Al ARM  IF  PROG  USInG  IMU, 


SEE  IF  FAILED  I SS  TllRN-ON  SEO  I \j  PROG, 

IF  SO,  DOnT  PROrESS  UNTIL  PRESENT  90 
SECONDS  EXPIRES. 


488954A 


L 


P0735 

R0736 

R0738 

R07A0 

R07a2 

R07A3 

R07AA 

R07A6 

R07Ae 

R0750 

R0751 

R0752 

0753 

0754 

0755 

0756 

0757 

0758 

0759 

0760 

0761 

0762 

0763 

0764 

0765 

0766 


0767 

0768 

0769 


Y JL  bySlEM  f OR  AQC;  NLw  pROORAvi  SHEpATlN  BY  EVLbS 


dec  U,  1966  (MAIN)  rAgE  113 


T4RUPr  program  USER'S  OwN  PAGp  NO.  24  E6 

PROGRAM  name:  PIPFAiL 

FUNCTIONAL  OESCRIPTICN:  tHIS  PROGRAM  PROCESSES  CHANGES  OF  BIT  13  OF  CHANNEL  33»  PIPA  FaIL.  IT  SETS  BIt  lO  OF 
IMODE53C  TO  AGREE.  IT  CALLS  SeTI^SW  IN  CASE  A PIPA  FAIL  NECESSITATES  AN  ISS  WARNING.  iF  NnT.I.E.*  IM0DES30 
BIT  1 = li  and  a PIPA  FAIL  is  PRESENT  AND  THE  ISS  IS  NOT  BEING  INITIALIZED,  PROGRAM  ALARM  00212  IS  ISSUf-D. 

CALLING  sequence:  BY  C33TEST  ON  CHANGES  OF  CHANNEL  33  BIT  I3. 

JOBS  OR  TAS<S  INITIATED;  NONE. 

SJBROJTlNES  called:  1)  SfTISdW,  and  2)  ALARM  (SeE  FUNCTIONAL  DESCRIPTION). 

ERASA3LL  INITIALIZATION;  SEe  I HUMON  FOR  INITIALIZATION  OF  IMODES30.  THE  RELAvANT  bIT^  ARE  5,  7,  8,  9,  AND  10. 


alarms:  program  alarm  00212  if  PIPA  fail  IS  present  but  neither  ISS  WARNING  IS  TO  Be  IaSUED  nor  tHe  ISS  IS 
BEING  initialized. 


exit:  NXTFL33. 


OUTPUT:  program  ALARM  00212  ANO 


ISS  WARNING  MAINTENANCE. 


REF 

4 / 

LAST 

112 

12,2730 

10  ooo 

0 PIPFAIL 

CCS 

REF 

4 

LAST 

79 

12,273! 

3 7/44 

1 

CAF 

REF 

28 

LAST 

112 

12,2732 

56  365 

1 

XCH 

REF 

REF 

1 

29 

LAST 

113 

12,2733 

12 ,273A 

7 3O66 
2b  365 

0 

0 

MASK 

ADS 

A 

BlTlO 

IM0DES30 

-BlTlO 

IM0DES30 


REF  2 LAST  102  12,2735  0 2T63 


1C  5ETISSW 


REF  30  LAST  113 
REF  1 

REF  48  LAST  113 
REF  1 


12,2735  4 0065  0 

12,2737  r 7/55  0 

12.2740  10  000  0 

12.2741  1 2545  0 


CS  IM0DES30 

MASK  BlTl 
CCS  A 


TCF  NXTFL33 


REF  31  LAST  113 
REe  1 

REF  49  LAST  113 
REF  2 LAST  113 

REF  5 LAS!  112 

REF  3 last  113 


12.2742  3 0P65  1 

12.2743  7 3062  1 

12.2744  10  000  0 

12.2745  1 2545  0 

12,2745  0 4/44  1 

12,274/  00212  0 

12,2750  1 2545  0 


CA  IM0DES30 

MASK  0CT1720 

CCS  A 

TCF  NXTFL33 

TC  ALARM 

OCT  212 

TCF  NxTFL33 


SET  BITlO  IN  IMnDESsO  SO  ALL  ISS  WARNING 
INFO  IS  IlM  ONE  register. 


IF  PIP  FAIL  DOESNT  I IGHT  ISS  WARNING,  DO 
A PROGRAM  ALARM  IF  TMU  OPERAIING  BUT  NOT 
CAGED  OR  BEING  tURNeD  ON. 


ABOVE  CONDITION  NOT  MET. 
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dec  1966  (MAIN)  page  llA 


L TARUPr  i-ROGRArt  U5ER*5  OWN  PAGp  NO.  2P  E6 

P0770  PROGRAM  NAMfS:  DNTMFASI.  UPl'lFAbl 

Ro77i  FJNCTIONAL  OESCRIPTION:  tHES;  JROORAMS  PROCeSS  CHANGgS  OF  BIjS  12  AND  xi  OF  CHANNEL  33-  IF  A BIj  CHANSeS  TO  A 
R0773  0»  A PRogNAY  ALARM  lb  KSSUeL,  !HE  ALARMS  ARE: 

R077A  en  ALARM  CAUSE 

R0775  

R0776  12  01105  DOWNLINK  TOO  FAST 

R0777  11  01106  UPLINK  TOO  FAST 

R0778  CALLING  SeQjENCE:  BY  C33TEBt  On  A BIT  CHANGE. 

Ro779  sjbrojtines  called:  alarm*  I-  A tiiT  changes  to  a 0* 

R0780  erasable  INITIALIZATION;  FRepH  Si  ART  OR  RESTART*  BITS  12  AND  11  OF  IMODES33  ARE  SET  TO  1. 

R0782  A-ARMa:  SEE  FUNCTIONAL  DfSCR;PtiUn, 

R0783  EXn:  NXTFL33. 


R078A 

OJTPJi  : 

PRO 

GRAM 

ALARM  ON  A 

31 T change 

TO  0. 

0 

DNTMFAbT 

0785 

REF 

• 50 

LAST 

113 

1 2 1 2 1 5 1 

1 3 000 

CCS 

A 

0786 

REF 

LAS! 

113 

12,2752 

1 2P95 

0 

ICF 

NXTFL33 

0787 

REF 

6 

LAST 

113 

12  *2753 

0 9799 

1 

TC 

ALARM 

0788 

12*2759 

31105 

1 

OCT 

1105 

0789 

REF 

5 

LAST 

llA 

12  i275S 

1 2P95 

0 

TCF 

NxTFL33 

0790 

REF 

51 

LAST 

119 

12*2750 

13  000 

0 

UPTMFAST 

CCS 

A 

0791 

REF 

6 

LAST 

119 

12,2  751' 

1 2P95 

0 

TCF 

NXTFL33 

0792 

REF 

7 

LAST 

119 

12*2760 

0 9 799 

1 

TC 

ALARM 

0793 

12,2761 

31106 

1 

OCT 

1106 

079A 

REF 

1 

LAS  I 

1 lA 

1 2 * 2 762 

1 2P95 

0 

1 CF 

NxTFL33 

DO  PROG  Alarm  Ir  TM  too  FAST. 


SAME  AS  DNLINK  rOO  FAST  WITH  DIFFERENT 
ALARM  CODE. 


48895^A  YJL  SySieM  I-OR  AGC  ; NeW  PRO'jRA.S  SYIePAtKy  3Y  EYLh'i 


DE.C  1966  (MAIN)  PAGE  115 


L 

P0795 

R0796 

R0798 

R0800 

R0802 

R0803 

R0805 

R0807 

R0809 

R0811 

RO8I2 

R0813 

R081A 

R0815 

R0816 

R08l7 

RO8I8 

0819 

0820 
0821 
0822 
0823 
082A 

0825 

0826 

0827 

0828 

0829 

0830 

0831 

0832 

0833 


083A 

0835 

0836 

0837 

0838 


TARUPi  program  USER'S  PAGp  NO.  26  E6 

PROGRAM  NAM[ : SETISSft 


FJNCTlOiO\L  description:  tMIS  program  turns  tHe  I5S  warning  lamp  on  and  off  (CHANNEL  u BIT  1 = 1 FOR  ON, 

0 FOR  OfF)  DEPENDING  DN  THE  SIAIUG  OF  IMODES3O  BITS  13  (IMU  FAIL)  AND  ^ (INHIBIT  IMU  FAtL),  12  (ICDU  FAIL)  AND 
3 (INHlDll  ICDU  FAIL),  AND  lo  (^IPAFaIL)  A.ND  1 (INHIBIT  PIPA  FAIL).  tHe  LAMP  IS  LeFt  nN  IF  A LAMP  TESr  IS  IN 
progress. 


CALLING  SeQ.jENCe: 
removal  of  the  FAIL 
SINCE  THE  PlPA  FAIL 
AND  IT  IS  Called  by 


called  by  IMJMON  on  changes  to  IMU 
INHIBITS.  called  BY  PIPFAIL  WHeN 
pro^jRam  a. arm  may  Necessitate  an 
inuaepos  and  issup  after  the  Fail 


Fail  and  icdu  fail,  called  by  ifaILok  and  pfailok  upon 
the  pipa  fail  discrete  changes,  it  is  called  by  pipuse 
SS  WARNING,  and  LIKeWISe  BY  PIPFRpE  WHeN  THe  ALARM  DePARTS 
Inhibits  have  been  Removed. 


jobs  jR  tas<s  initiated:  none. 


SUBROUTINES  CALLED:  NONE. 

ERASAaLt  INITIALIZATION: 

1)  IM0DES30  - SEF  IMJMON* 

2)  IMODES33  BIT  1 = 0 iL«Mp  TEST  NOT  IN  PROGRESS), 

alarms:  ISS  WARNING. 


EXIT : VIAL. 


OUTPUT:  ISS  WARNING  LAMP  SLT  PROPERLY, 


REF 

1 

12,2763 

3 3D5A 

0 

SETISSw 

caf 

0CT15 

REF' 

3 2 

LAS  T 

113 

1 2 , 2 76 A 

7 0365 

0 

mask 

IM0DES30 

12 ,2  ?65 

0 ODO6 

1 

extend 

REF 

5 

LAST 

113 

12,2766 

7 7/AA 

0 

MP 

BlTlO 

REF 

3 3 

L A S T 

115 

12,276^ 

3 0365 

1 

CA 

IM0DES30 

12,2  ?70 

0 0006 

1 

EXTEND 

REF 

17 

last 

TOA 

12,2771 

OA  001 

1 

ROR 

L 

12 ,277Z 

A OOOO 

0 

COM 

REF 

1 

12,2/73 

7 5657 

1 

MASK 

0CT15000 

REF 

52 

Last 

1 lA 

12 ,277A 

ID  OOO 

0 

CCS 

A 

REF 

1 

12,277s 

1 3OO6 

0 

TCF 

I SSWON 

REF 

D - t 

2 

Last 

1 A C.  1 

113 

12,2776 

3 7(55 

1 

I aSWOF  f 

CAF 

Bill 

K Cr 

6 

LA  0 1 

105 

12 ,2777 

7 0366 

0 

MASK 

IMODES33 

REF 

53 

LAST 

115 

12,3000 

1 D 000 

0 

CCS 

A 

REF 

19 

LAST 

97 

12,3001 

0 0002 

0 

TC 

0 

REF 

3 

LAST 

115 

12.3002 

A 7(55 

0 

cs 

BlTl 

12,3003 

0 OOO6 

1 

extend 

1 2 , 300 A 

03  011 

1 

aAND 

11 

REF- 

20 

LAST 

115 

12,3005 

0 0002 

0 

TC 

Q 

REF 

A 

LAST 

115 

12 . 3006 

3 7(55 

1 

I sSWON 

CAF 

BlTi 

SET  ISS  WARNING  USInG  THE  FAIL  RITS  IN 
BITS  13,  12,  ANn  10  OF  IMOOES3O  AND  THE 
failure  inhibit  BITS  IN  POSIiIONS 
A,  3,  AND  1. 


0 INDICATES  FAIi  ORE. 

FAILURE. 

DONT  TURN  OFF  isS  WARNING  IF  LAMP  TEST 
IN  PROGRESS. 


48895^A  yJL  SYSitM  fOr  Agc  : NEW  P«OG:?Am  sHEpATlN  BY  EYLEs 
L T^iREiPI  PROGRAM 


0839 

12, 300V 

0 0O06 

1 

Extend 

08A0 

12  * 30 1 0 

05  *Vl  1 

1 

WUK 

1 i 

08A1 

REF 

21 

LAST 

115 

12,3011 

0 0002 

0 

TC 

Q 

08^2 

REF 

1 

12,301,; 

9 3065 

0 

CAGESUB 

CS 

B1TS6615 

0893 

12,3013 

0 0O06 

1 

extend 

089A 

1 2 , 30  1 A 

03  012 

1 

AHINU 

12 

0895 

REF 

3 

LAST 

102 

12,3015 

3 3056 

1 

:af 

B1TS965 

0896 

12,3018 

0 0006 

1 

EXTEND 

0897 

12,301 F 

05  012 

1 

WUK 

12 

0898 

REF 

1 

12,3020 

9 3055 

0 

CS 

0C90010 

16 

MAS< 

DSPTAB  +11D 

0899 

R:F 

LAST 

107 

12,3021 

{ 0-^26 

1 

0850 

REF 

2 

LAST 

116 

12,3021; 

6 3O55 

1 

AD 

0C90010 

0851 

REF- 

17 

LAST 

116 

12,3023 

59  326 

1 

TS 

DSPTAB  +11D 

0852 

REF 

1 

12,302A 

9 3O6O 

0 

CAGESUB2 

CS 

0Cr75 

0853 

REF- 

39 

last 

115 

12,3025 

7 0365 

0 

MAS< 

IM0DES30 

0859 

REF 

2 

LAST 

116 

1 2 ,3028 

6 3O6O 

1 

AD 

OCT75 

0855 

REF 

35 

LAST 

116 

12,302V 

59  365 

0 

TS 

IM0DES30 

0856  12»3030  0 0006  1 EXTEND 


0857 

REF 

2 

LaSt 

98 

12,3031 

3 3035  1 

OCA 

taDap 

0858 

REF 

5 

LAST 

98 

12,303,; 

53'O01  0 

OXCH 

T5ADR 

0859 

ref 

22 

LASI 

116 

12,3033 

0 0002  0 

1C 

Q 

0860 

R EF 

3 

last 

87 

E6 

EBANK= 

DT 

0861 

12,303A 

02136  1 

T9DAP 

2CADR 

DAPIDLER 

C0861 

REF 

2 

LAST 

87 

12,3038 

39006  0 

0862 

REF 

3 

L A S T 

113 

12*2763 

IMUFAIL 

EQUALS 

Set  I ssw 

0863 

REF 

9 

last 

116 

12*2763 

ICDUFAIL 

equals 

SETISSW 

DEc  l^t  1966  (MAIN)  pAgE  116 


USER'S  0*vN  PAGf  NO.  2J  E6 


set  outsits  and  internal  flags  for 
System  TuRN-on  r.R  cage,  disable  the 
error  counter  and  Remove  imu  dei  ay  comp, 
SEND  zero  and  Coarse. 


turn  on  no  ATT  I amp. 


set  flags  to  INhICAtE  caging  or  TURN-ON, 
AND  TO  inhibit  ALL  ISS  WARNING  INFO. 


disable  dap  during  iss  Initialization 


‘i88954A  YJL  SYSTEM  FOR  AGC:  NEW  PROGRAM  SHePATIN  3Y  EYLES 


L 

P0864 

T 4RUP1 

program 

ju'.p  tables 

AND  COl'iSTANfR. 

0865 

REF 

1 

12  »303S 

1 2843  0 

IFAILJMP 

TCF 

1 1 urnon 

0866 

REp 

1 

12,3037 

1 2(63  0 

ICF 

imufail 

0867 

REF 

1 

12, 3040 

1 2(63  0 

1 CF 

ICDUFAI L 

0868 

REF 

1 

12,3041 

1 2873  0 

TCF 

IMUCAGE 

0869 

12,3042 

76400  1 

30RDMSK 

OCT 

76400 

0870 

REF 

1 

12 ,3048 

1 2(12  0 

T CF 

IMUOP 

0871 

REF 

1 

12,3044 

1 2(30  0 

C33JMP 

TCF 

PIPFAIL 

0872 

REF 

1 

12, 3045 

1 2(51  1 

T CF 

dntmfast 

0873 

REF 

1 

12,3048 

1 2 (56  0 

TCF 

UPTMFAST 

TD  SKIP  I 

NOT  IN 

R0874 

SUBRoUT I ne 

- _A"P  TEST 

0875 

REF 

7 

last  115 

12,3047 

4 0366  0 

LAMPTEST 

cs 

IMODES33 

0876 

REF 

5 

last  115 

12,3050 

7 7(55  0 

MASK 

BITl 

0877 

R^F 

5“+ 

Last  115 

12,3051 

iJ  POO  0 

^CS 

A 

0878 

REF 

2 3 

LAST  116 

12,3052 

24  D02  0 

INCR 

Q 

0879 

REF 

24 

LAST  117 

12,3053 

0 0002  0 

TC 

Q 

0880 

REF 

1 

5660 

33RDMSK 

equals 

PRI016 

0881 

12,3054 

00015  0 

0CT15 

OCT 

15 

0882 

12,3055 

400 10  1 

0C40010 

OCT 

40010 

0883 

12,3058 

00030  1 

BnS465 

OCT 

30 

0884 

12,3057 

00054  0 

0CT54 

OCT 

54 

0885 

12,3060 

00075  0 

0CT75 

OCT 

75 

0886 

12,3061 

00300  1 

BITS768 

OCT 

300 

0887 

12,3062 

01 (20  0 

0CT1720 

OCT 

1720 

0888 

12,3063 

01(00  1 

0CT1700 

OCT 

1700 

0889 

REF- 

1 

5657 

0CT15000 

EQUALS 

PRI015 

0890 

12,3064 

71000  1 

0CT71000 

OCT 

71000 

0891 

12 ,3065 

4OO4O  1 

B I TS66 1 5 

OCT 

4OO4O 

0892 

12,3066 

76(77  1 

-BITIO 

OCT 

-1000 

0893 

12,3067 

21450  0 

90SLCS 

OEC 

9000 

0894 

12,3070 

00014  1 

120MS 

DEC 

12 

0895 

REF 

1 

12*3203 

GLOCKOK 

equals 

RCSMONIT 

0896 

REF 

5 

LAST  107 

12*3203 

NOIMUMON 

EQUAI  S 

GLOCKOK 

Dec  U,  1966  (MAIN)  PAGE  117 
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channel  30  dispatch. 


(BIT  10  NUT  SAMPLED  HERE). 
CHANNEL  33  DISPATCH. 


BIT  1 OF  1M0DFS33  = 1 IP  LAMP  TEST  IN 
PROGRESS. 


488954A  yJL  ^Y^TEM  i-OR  At,C;  i\itW  pROORAv)  SHEpATiN  3Y  EyL-E-S 


L TARUPl  PROGRAM 

P0897  RR  liMBiT  MONiTOR. 


0898 

0899 

REF 

3 

LAS  I 

86 

0900 

0901 

REF 

9 

LAST 

112 

0902 

0903 

REF 

1 

0909 

REF 

9 

last 

118 

0905 

0906 

REF 

18 

LAST 

115 

0907 

REF 

5 

LAST 

118 

0908 

REF 

10 

LAST 

118 

0909 

REF 

55 

LAST 

117 

0910 

RcF 

1 

0911 

REF 

5 

LASi 

110 

10 

0912 

R tr 

LAST 

112 

0913 

REF 

56 

LASI 

118 

0919 

REF  . 

2 

Last 

118 

0915 

REF 

1 

0916 

REF 

6 

LAST 

118 

0917 

REF 

2 

LAST 

118 

0918 

REF 

7 

LAST 

118 

0919 

REF 

15 

LAST 

105 

0920 

REF 

7 

LAST 

103 

0921 

REF 

7 

Last 

103 

0922 

C0922 

REF 

1 

0923 

REF 

3 

LAST 

99 

0929 

0 C C 

0925 

KCr 

1 1 

LAST 

118 

0926 

REF 

6 

LAST 

118 

092  ( 

Ki.r 

5 1 

LAST 

118 

0928 

REF 

3 

LAST 

118 

1^.3071  3 0^13  1 RRAUtCH<  CA 


12.3072  0 0U06  1 EXTEND 

12.3073  08  D33  1 RXOR 

12.3079  7 7'5A  1 viAS< 

12.3073  0 0006  1 EXTEND 

I2.307G  1 3J-32  0 3ZF 

12.307'^  22  913  1 LXCH 

12.3100  0 ooob  i Extend 

12.3101  06  UOl  0 RXOR 

12.3102  59  913  0 T5 

12.3103  7 7^59  1 MASK 

12.3109  10  000  0 CCS 

12.3103  1 3129  1 Ter 


12.3106  3 7^97  1 CAE 

12.3107  7 OU79  0 mask 

12.3110  10  000  0 CCS 

12.3111  1 3I32  0 TCP 

12*3112  9 3I23  0 CS 

12.3113  7 0913  0 mask 

12.3119  6 3I23  1 AD 

12.3113  59  913  0 TS 


12.3116 

12.311' 


3120 

3121 

3122 

3123 


3 7'55  1 
0 5'01  1 
E6 

02000  0 
2OOO6  0 
i 3176  0 

lOOOl  1 


CAF 

TC 

EBANK= 

2CADR 

ICF 

OCTlOOOl  OCT 


12 


3129  9 OO79  0 RROFF 


12 

12 

12 


3123 

3126 

3127 


7 7 '97  0 
10  000  0 
1 3132  0 


MASK 

CCS 

TCF 


0929  ref  8 LAST  119  I2.3I3O  0 9'99  1 TC 

0930  12,3131  00319  1 OcT 


radmodes 

33 

B1T2 

rrcduchk 

radmodes 

L 

RADMODES 

BIT2 

A 

RROpF 

BIT7 

state 

A 

RRCDUCHK 

OCT  10001 
RADMODEs 
OCTlOOOl 
RADMODES 

ONE 

WAITLIST 

Mil 

RRTURNON 

NORRGMON 

10001 

State 

BIT7 

A 

RRCDUCHK 

ALARM 

519 
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SEE  IF  change  In  RR  AUTO  MODe  Btt. 


UPDATE  RADMODFS. 

SEE  IF  JUST  ON. 

Off. 

IF  JUST  ON  AND  SOME  PROGRAM  IS  JSING  THE 

RR,  dont  zero  The  CoUS. 


SET  BITS  10  indicate  ZERO  AND  T.lRNON 
IN  progress. 


IF  SOMEONE  WAS  liSING  THE  RR,  DISPLAY  AN 
ALARM  IF  THE  RR  GOES  OUT  OF  AUTO  MODE, 


YJL  SiSitM  FOR  AGC:  PROtiRA^  3H£PATIN  BY  eYL[.5 


P0931 

0932 

0933 
093A 

0935 

0936 

0937 

0938 

0939 
09A0 
09A1 

09A2 

0943 

0944 

0945 

0946 

0947 


T4RUP1  program 


CHECK  FOR 

RR  CDU  FAl 

-• 

REF 

8 

LAST 

118 

12 ,3132 

3 

12.3133 

0 

12.3139 

06 

REF 

7 

LASl 

118 

12.3138 

7 

12.3138 

0 

REF 

1 

12,3137 

1 

REF 

1 1 

LAST 

118 

12*3140 

3 

RSF 

9 

LASl 

119 

12.3141 

7 

REF 

58 

LAST 

118 

12,3142 

10 

REF 

4 

LAST 

118 

12,3143 

1 

0413 

1 

RRCDUCHK  ca 

RADMODES 

OOO6 

1 

EA 1 END 

O30 

1 

RXOR 

30 

7^4  7 

0 

MASK 

BIT7 

OOO6 

1 

tA  1 tINU 

3I52 

0 

3ZF 

RRGIMON 

7 < 54 

0 

CAF 

BI  T2 

0913 

0 

mask 

RADmODES 

000 

3176 

0 

0 

CCS 

TCP 

A 

NORRGMON 

REF 

a 

LASl 

119 

12.3149 

12.3148 

12.3146 

3 

REf 

1 0 

last 

119 

2 2 
0 

REF 

REF 

19 

11 

LAST 

LAST 

118 

119 

12 .314  I 
12,3150 

06 

54 

7^A7  1 CAF  bit? 

A13  1 lXCH  RAdMOoES 

0006  1 EXTEND 

oOl  0 RXOR  L 

A13  0 IS  RADM0DE5 


REF 


12.3151  0 4P66  0 TRKFLCUJ  TC  StTTRKF 
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USER'S  OwN  PAOF  NO.  30  E6 


LAST  SAMPLED  BIT  IN  RADMODES, 


IF  RR  NOT  IN  AUtO  MqDE » DONT  CHANGE  BIT 
7 Of  radmudls.  if  this  were  not  done. 
THE  tracker  FAIi  Mlc.Hf  COME  ON  aHEN 
JUST  reading  I R DATA. 

SET  BIT  7 OF  RAoMODeS  FOR  SETTRkF. 
update  RAdMOdFS. 


UPDATE  tracker  fAIL  LAMP  ON  DSKf. 
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L 

P09A8 

R0950 

R0952 

R095A 

0955 

0956 

0957 

0958 


0959 

0960 

0961 

0962 

0963 
096A 

0965 

0966 

0967 

0968 

0969 

0970 
09  71 

C0971 

0972 

0973 
097A 


T9ROPf  PROGRAM 


USER'S  OWN  PAGh  NO.  31 


E6 


It  RR  gimbal  liM]!  vio^jIor  is  EmAbleo  whemfver  the  rr  is  in  the  AU 
;r;,  OR  DURING  A REMOOe  UR  MONITOR  REPOSITION  OPERATION.  T^E  LATTER 


IS  IN  the  auto  mooe  except  when  the  rr  rOUS  Are 
js  iNiTlATrD  BY  THIS  MONiTiR  WHeN 


THt 

Being  zeRoeo, 

THe  GIMEALS  eXCeeU  THE  LIMITS  FjR  tHe  CURReNT  ^ODe,  A RqUtINe  INITIATE^  TO  DRIVE  THe  GIMrALS  tO  T = n AND 

S = 0 IP  IN  MODE  1 AND  T = 180  WIlH  S = -90  PUR  MODE  2. 

REF  1 12.3152  3-3lTi,  0 RRGIMON  CAE  OCT32OO2  INHIBITED  BY  REf,0UE.  ZEROING.  M.jNITOR. 

RET  12  last  119  12.3153  7 0^13  0 viAS<  RADnODES  OR  RR  NOT  IN  AutO. 

REF  59  LAST  119  12.315A  10  DOO  0 CCS  A 

REF  5 LAST  119  12.3155  1 3176  0 TCF  NORRGMON 


REF  1 12.315t>  0 9323  1 K RRLiMCHK  SEE  IP  ANGLES  I,m  LIMITS. 

REF  1 12.3157  OOO35  1 ADRES  OPTY 


REF 

1 

12.3160 

1 3162 

0 

TCF 

REF 

6 

LaSi 

120 

12.3161 

1 3 1 76 

0 

rCF 

REF 

LAST 

102 

12  »3162 

3 7193 

0 

MONREPOS 

CAF 

REF 

13 

LAST 

120 

12.3163 

2 b 913 

0 

ADS 

REF 

1 

12.3169 

9 3175 

0 

CS 

12.3165 

0 OOO6 

1 

EXT  end 

12.3166 

03  012 

1 

WAND 

REF 

3 

LAST 

72 

12.316^ 

3 7759 

0 

CAF 

REF 

8 

LAST 

11b 

12.3170 

0 

0 

1 

TC 

REF 

8 

LAST 

1 lb 

E6 

EBANK= 

12.3171 

O2O5I 

1 

2CA0R 

REF 

1 

12.3172 

2OOO6 

0 

REF 

7 

LAST 

120 

12.3173 

1 3I76 

0 

TCF 

12.3179 

32OO2 

1 

0CT32002 

OCT 

12.3175 

20002 

1 

0CT20002 

OCT 

MoNRFPOS 

NORRGMON  (ADDITIONAL  CoDiNG  MAY  go  Heke). 

BlTii  SET  FLAG  TO  SHOW  REPOSI I lON  IN  PROGRESS. 

RADmODES 

0CT20002  DISABLE  TRACKFR  AND  ERROR  COUNTER. 

12 

TwO 

WAITLIST 

Mil 

DURREPOS 

NORRGMON 

32002 

20002 
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L TAROPT  program  USER'S  OWN  PAGE  NO.  32  E6 

P0975  PROGRAM  NAME!  GPMATRlX  (DAPTaS)  MUD.  NO.  2 DATE;  OCTOBER  27.  196b 

R0976  author:  JONATHAN  D.  aDDeLStON  I aDAMS  ASSOCIATES) 

Ro977  this  PRU.GRA'  CALCULATES  AIL  T H£  S 1 NGLe-PReIU  I S I ON  viatriX  eLeMeNTS  WHICH  ARe  USeD  BY  LeM  nAP  TO  TRANSFORM  VeCTORS 

R0979  from  Glf.BAL  TO  PILOT  (buDy)  A<ES  «ND  bAcK  AGAIN.  THESE  ELEMENTS  ARE  USED  EXCLUSIVELY  By  BAsIc  LANGUAGE  ROUTINES 

R0981  AND  therefore  ARE  NOT  ARRAYED  FDR  USE  BY  INTERPRETIVE  PROGRAMS, 

R0982  calling  sequence:  GPMATRIX  IS  TRANSFERRED  TO  FROM  DAPTAS  AND  IS  THUS  EXECUTED  a TIMES  A SECnND  BY  TARUPi. 

R098A  DAPTAS  is  LiSteO  IN  TAJUMP  TASLe  IWKe  EXPLICITLY  AND  ALSu  OCCURS  AFTER  RRAUjCHK  (WPtICH  IS  aLSO  LISteD  tWICe), 

Ro986  subroutines  CALLED:  SPSIN.  S^OOS. 

R09e7  NORMAL  EXIT:  RESUME, 

R0988  A_ARM/AB0RT  MODE!  THeRe  Are  NO  Re^L  ALARMS  OR  ABORTS,  HOWEVER*  WHEN  THE  MIDDLE  GIMBAI  aNGLe  NeARS  GIMBaL  LOCK. 
R0990  a division  by  COs(MG)  wILL  CAjsE  OVERFLOW  (l.E.  A BAd  QUOTIENT).  TrIs  CONDITION  I5  PREVENTED  BY  TEs'lIN^  C05(MG) 
R0992  and  substituting  POSMAX/Ne GM A X FqR  THe  INCALCULABLE  QUANTITIES, 

R0993  INPUT:  CDUX . CDUY . CDU2 . QOTPUT:  M 1 1 .M2  I .M3  1 . M22 ♦ M32 .MR  1 2 .MR  1 3 . 

R099A  (ALSO  MR22=m22.MR23=M32) 

R0995  ADG  = CUUX.  AIG  = CDJY . AMG  = CDUA:  MNEMONIC  IS:  DIM  = XY2 

R0996  * p SIN(Mo)  D 1 * 

R0997  M = P COS (MG) COS (O3)  5IN(DG)  0 » 

R0998  GP  P -COS (MG) SIN (OG)  COS(OG)  0 * 


Ro999  * #0  COS (OG) /Cos  I MG>  -S I N ( OG ) /COS ( MG ) " 
RlOOO  M = P 0 51N(0G)  COS(OG)  p 
RlOOl  PG  F 1 -SIN(MG)C05(D3)/C0S(M6)  S I N ( MG ) S I N ( OG ) / COS (MG ) » 


R1002 

this 

COL ING 

TRANSFERS 

Control 

ID  (He  DAP 

fixed  bank  For 

GPMATRIX: 

1003 

12*3176 

BANK 

12 

10031 

REE 

9 LAST 

120 

Eb 

tBANK= 

MU 

lOOA 

12.317P 

0 OOO6  1 

dapt  as 

EXTEND 

Get  2CADR  OF  GPn.ATRTX 

1005 

REF 

1 

12.3177 

3 3KO2  1 

DCA 

DAPTA 

1006 

12.3200 

52  006  0 

DTCB 

cross  banks 

1006S 

REF 

3 LAST 

9A 

12*3176 

NDRRGMUN 

equals 

daptas 

1007 

REF 

10  LAST 

121 

E6 

EbANk= 

Mil 

1008 

12.3201 

D2O00  0 

DAPTA 

2CADR 

GPMATRIX 

C1008 

REF 

1 

12.3202 

A0006  0 

^esgS'+A  YJL  SVSieM  F-QR  aGC:  Nt"  S^bPATlN  BY  eYLE-A 


1^,  1966  (MAIN)  PAGe  122 


P1009 

1010 

10101 

1011 

1012 

1013 

lOU 

1015 

1016 

1017 

1018 

1019 

1020 
1021 
1022 
1023 

102A 

1025 

1026 

1027 

1028 

1029 

1030 

1031 

1032 

1033 

1039 

1035 

1036 

1037 

1038 

1039 

1090 

1091 

1092 

1093 
1099 
1095 


jARUPl  PROG-AN  USER'S  OWN  PAG)  NO.  33  E6 

T9RUP I LAP  t OGIC : 


ref  11  last  121 


20*2000 

E6 


3AN<  20 
EBANk=  Mil 


REF 

3 

LAST 

106 

20 ,2000 

30  039 

0 

GPMATRIX  CAE 

REF 

1 

20,2001 

0 5373 

0 

TC 

REF 

12 

LAST 

122 

20 , 2002 

55*909 

1 

T S 

CljJ? 

SPSIN 

Mil 


rEf  9 last  122 
REF  1 
REF  1 


2003 

2009 

200P 


30  G39  0 

0 5372  1 
55*957  1 


CAE  C0U7. 

1C  SPCOS 

TS  CuSMG 


rEF  2 last  79 


20 


2006  33  U32  0 


CAE 


CoUX 


REF  2 last  122  20»2O0^  0 5373  0 TC  SPSIN 

REF  1 20,20l0  55*901  1 IS  M22 


ref 

2 

LAST 

1 22 

20,2011 

REF 

REF 

2 

1 

last 

122 

20,2012 

20,2013 

20,2019 

ref 

REF 

3 

2 

1 

LAST 

LAST 

122 

122 

20.2015 

20.2016 

REF 

20,2017 

9 1901 

1 

cs 

M22 

0 OOO6 

1 

EXTEND 

7 1957 

1 

MP 

CuSMG 

55*906 

0 

1 S 

M3I 

30  032 

0 

CAE 

cdux 

0 5372 
55*903 

1 

0 

TC 

TS 

SPCOS 

M32 

REF  3 LAST  122 
REF  1 


20 

20 

20 


2020 

2021 

2022 


0 0006  1 
7 1957  1 
55*905  0 


extend 

MP  COSMG 

IS  M21 


ref 

REF 

9 

2 

LAST 

LAST 

122 

89 

20,2023 

20,2029 

20,2023 

REF 

1 

20 ,2026 

REF 

2 

LAST 

122 

20,2027 

20,2030 

REF 

6 

LAST 

109 

20,2031 

20 , 203Z 

REF 

5 

LASI 

122 

20,2033 

REF 

1 

20,2039 

REF 

3 

LAST 

122 

20,2035 

D C L 

20,2036 

K c,  r 

7 

A S 1 

122 

20,2037 

20,2090 

REF 

6 

LASI 

122 

20,2091 

REF 

1 

20,2092 

31*957  0 

6 7(36  1 
0 OOO6  1 

6 2P93  1 

31*903  1 

0 OOO6  1 

7 7(90  1 
0 0006  1 
11*957  1 

55*900  0 

9 1901  1 
0 0006  1 
7 7(90  1 
0 0006  1 
11*957  1 

1 2O59  0 


cae 

COSMG 

AD 

NEGI/2 

EXTEND 

3ZMF 

GPGLOCK 

CAE 

M32 

EXTEND 

MP 

B1T19 

EX  TEND 

OV 

CUSMG 

IS 

MR  12 

CS 

M22 

EXTEND 

MP 

B1  T 19 

EXTEND 

OV 

CuSMG 

TCF 

MRI3STOR 

SINGLE  ENTRY  POINT 
SIN(CDUZ)  = SIN ( mg) 
SCALED  at  1 


COS(CDUZ)  = COS(MG) 
scaled  at  1 (nNl  Y A FACTOR) 


SIN(CDUX)  = SIN(OG) 

SCALED  AT  1 (AL<;0  Is  MK22) 


-SIN  (OG) COS  (MG) 
SCALED  at  1 


COS(CDUX)  = COS(OG) 

SCALED  AT  1 (AL<;0  IS  MR23) 


COS (OG) COS (MG) 

SCALED  AT  1 

TEST  FOR  GiKBAL  L0C<  (OYErFLOW)  REGiOn 
BY  TESTING  MIDDI  E GIMBAL  ANGLE  FOR 
VALUES  EQUAL  TO  OR  gREAIER  THAN  60  DEGS. 


SCALE  FOR  DIVISION 

COS (OG) /COS (MG) 
SCALED  AT  2 

SCALE  FOR  DIVISION 
-SIN (OG) /COS (MG) 


488954a 


P10455 

1046 

1047 

1048 

1049 

1050 

1051 

1052 

1053 

1054 

1055 

1056 
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Ti|PL/Pl  i-RoGRANi  USER'S  OWN  PAGp  NO.  34  E6 

s=eci4l  logic  for  Middle  giMsal  angles  greater  thAn  or  equal  to  60  degs: 


REF 

3 

last 

122 

20,2043 

11 '403 

0 

GPGLOCK, 

CCS 

REF 

5 

LAST 

10b 

20 ,2044 

3 7 T35 

1 

CAF 

20,2045 

1 2O47 

1 

TCF 

REF 

1 

20,2046 

3 7^37 

0 

CAF 

REF 

2 

LAST 

122 

20 , 204  T 

55*400 

0 

T S 

ref 

4 

LAST 

122 

20,2050 

11'401 

1 

CCS 

REF 

6 

LAST 

123 

20 ,205)- 

3 7^35 

1 

A F 

20,2052 

1 2054 

0 

TCF 

REF 

2 

LASl 

123 

20,2053 

3 Hi! 

0 

CAF 

REF 

1 

20,2054 

55*402 

1 

MR135T0R 

TS 

M32  SINCE  DIVISION  BY  CnS(MG)  MIGHT  CREATE 

posmax 

+2  OVERFLOW  (I.E.  A NUmBER  GREAIER  THAN  2) 

NEGMAX 

MRI2  USE  THE  VALUE  Sr.N  (NUMERATOR ) »POsMAX  AS 

M22 

POSMAx  THE  CLOSEST  APPROXIMATION 

+ 2 

NEGMAX 

MRI3  SCALED  at  2 


REF  3 last  97  20,2055  i 5^51  0 TCF  RESUME 


488954A  YJL  SYSIEM  FOR  AGC;  NE^V  PROOR(\vi  SHePATIN  ^Y  EYLeS 
L HU  'luDt  S^vJTCHlNU  RjUrlNtS 


0001 

4303 

0002 

R0003 

REF 

1 

fixed-fixed 

routines 

E3 

OOOA 

REF 

17 

last 

111 

4303 

3 7^61  0 

0005 

REF 

4 

LA51 

122 

4304 

54  D32  1 

0006 

REF 

2 

LAST 

79 

4305 

54  O33  0 

0007 

REF 

5 

LAS! 

122 

4306 

54  03^  1 

0008 

REF 

28 

LASI 

117 

430Y 

0 0002  0 

3LOCK 

EBANK 


ZEROICDU  CAR 
IS 
TS 
rs 
1C 


^3l0  00620  0 ASECS  OEC 
A3ll  OOA5A  1 3SEt5  OEc 


00085 

0009 


Dec  1966  (MAIN)  PAGE  12A 


02 

COMMAND 

USER'S  OWN  PaCf  NO.  1 

ZERO 

CDUX 

CDUY 

CDUZ 

Q 

400 

300 

ZERO  ICDU  CGUNTfRS, 

^8895^A  YJL  SySILM  FOR  AGC : NEW  PROOrsyN  sHEPATIN  BY  EYLES 


POOll 

0012 

0013 

00131 

00132 

00133 

0013A 


00135 

00136 


00137 

0014 

0015 

0016 

0017 

0018 
0019 


0020 

0021 

0022 

0023 


0024 

0025 

0026 

00261 

0027 

0028 

0029 

0030 

0031 
00315 

0032 
C0032 

0033 

0034 

0035 

0036 

0037 

0038 


i*lU  bwlTCHlNG  ROJTiNKS 

IM.l  ZEROING  routine. 


REF 

18 

LAST 

116 

REF 

1 

REF 

80 

LASi 

120 

REF 

1 

REF 

9 

LAST 

118 

REf  1 

REF  5 LA51  112 
REf  12  LASI  118 
REF  6 LAST  125 
REF  13  LAST  125 

REF  1 
REF  1 

REF  1 

REf  36  lAsT  116 
REF  2 LAST  125 
REF  37  LAST  125 

REF  2 LASi  125 


REF  2 last  102 
REF  3 last  103 


REF  10  LAST  107 
REF  9 last  120 
REF  2 last  124 

REF  1 

REF  38  LAST  125 
REF  3 LAST  101 
REF  61  last  125 
REF  2 last  125 

REF  10  LAST  125 


13’2000  bank 


13»2000  0 0004  0 

13.2001  *+  0326  1 

13.2002  7 3OIO  1 

13.2003  10  OOO  0 

13.2009  1 2O1O  0 

13.2005  0 4^44  1 

13.2006  00*^06  0 

13.2007  1 2^23  1 

13.2010  4 77h6  1 

13.2011  7 OO74  0 

13.2012  6 7<’96  0 

13.2013  59  O74  0 

13.2019  0 2a2  1 

13.2015  1 2O43  0 


IviUzERD  INHINT 

cs 

vIASK 

CCS 

TCF 

TC 

OCT 

TCF 

INUZEROA  C5 

viAsk 

AD 

TS 

TC 

TCF 


13*2016  4 3O07  1 CS 

13.201 T 7 0365  0 MAsK 

13.2020  6 3OO7  0 AD 

13.2021  59  365  0 TS 

13.2022  4 3OIO  1 CS 

13.2023  0 0008  1 extend 

13.2029  03  012  1 /jAND 

13.2025  0 2323  1 TC 

13.2028  3 7751  0 CAF 

13.2027  0 ODO6  1 EXTEND 

13.2030  05  Ui2  1 WOR 

13.2031  3 7750  1 CAF 

13.2032  0 5701  1 TC 

E3  EBANK= 

13.2033  02*345  1 2CADR 

13.2039  261703  0 

13.2035-  4 0365  0 CS 

13.2038  7 7745  1 viASK 

13.2037  10  000  0 CCS 

13.2040  1 2O43  0 TCF 

13.2041  0 4744  1 TC 

13.2042  00210  1 OCT 


13 


DSPTAB  + 

B1TS466 

A 

IMUZFROA 

ALARM 

206 

CAGFTSTJ 

IMUSEFLG 

STATE 

IMUSEFLG 

STATE 

CAGET5TQ 

MODEEXIT 

BITS384 
IMDdEsSO 
BIT  S3 69 
IM0DES30 

BIT  S466 

12 

noAttoff 

B1T5 

12 

B1T6 

WAIT! 1ST 

COMMAND 

IMUZER02 

IMODES3O 
BIT  9 
A 

MODFEXIT 

ALARM 

210 


DEC  l3.  I966  (MAIN)  PAGE  125 


USER'S  OWN  PAGF  NO.  2 


E3 


ROUTINE  TU  ZERO  ICDuS. 

DONT  ZERO  CDUS  iF  IMU  IN  GIMBAL  LOCK  AND 
COARSE  ALIGN. 


IF  SO. 


program  I5  UsTNf,  the  iMU, 


IF  IMU  COMING  UP,  TURN-ON  PROGRAM  WILL 
DO  ALL  THE  WORK. 

INHIBIT  ICDUFAII  AND  IMUFaIL  (In  CASE  WE 
JUsT  came  Out  Of  coarse  AlIgn), 


send  ZERO  encode  with  coarse  and  error 
counter  disabled. 


TURN  off  no  ATT  LAMP. 


WAIT  320  MS  TO  f-,IVE  AGS  ADEQUATE  TIME  TO 

receive  its  pulae  train. 


see  if  IMU  operating  and  alarm  if  not 
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DEC  1^,  1966  (M^IN)  pAgE  126 


L 

0039 

00<t0 


I >10  ^IjDt  SW  ITChlNO  RoJjINeS 


USER'S  OWN  PAGf:  NO.  3 


13^2043  0 0003  1 MODEEXiT  RElimT 

REF  2 LAST  57  13,204^  1 5'337  0 TCF 


gemEral  mode-swtTching  Exit, 


E3 


SWRFTURN 


^8895^A  YJL  SYSTEM  FOK  AGC;  MEW  PRO^J^AM  SHePAIIN  BY  EYLES 


OOAl 

00A2 

OOA3 

OOAA 

OOA5 

00A6 

00A7 

OOA8 

00A9 

0050 

0051 

0052 

0053 

005A 

0055 

0056 


I >^10 

MOD 

t SWIICHING 

ROUT INeS 

REF 

2 

LAS! 

125 

13.20AS 

0 2112 

1 

IMUzEROZ 

TC 

CAGETSTQ 

REF 

A 

LAST 

102 

1 3 » 20 A6 

1 5 1 A5 

0 

T CF 

T A SKO VER 

REF 

2 

LAS! 

102 

13  *20aV 

0 a305 

0 

TC 

ZEROICDU 

REF 

A 

LAST 

125 

13*2050 

A 7151 

1 

CS 

BITS 

13.2051 

0 OOO6 

1 

EXTFND 

13.2052 

03  012 

1 

wAND 

12 

REF- 

2 

LAST 

102 

13.2053 

3 A310 

1 

CAF 

ASECS 

REF 

3 

LAST 

102 

13.205A 

0 5122 

0 

TC 

VARDELAY 

REF 

3 

Last 

127 

13.2053 

0 2 112 

1 

I MUZERO3 

1C 

CAGFTSTO 

REF- 

5 

last 

127 

13,2050 

1 51A5 

0 

TCF 

TASKOVER 

REF 

3 

last 

125 

13*205V 

A 3OO7 

1 

CS 

BITS36A 

ref 

39 

LAST 

125 

13.2060 

7 0365 

0 

mask 

ImOdEs30 

REF 

AO 

Las  I 

127 

13  * 2 0 6 1 

5 A 3ss 

0 

T S 

IM0DFS30 

REF 

3 

LASi 

106 

13.2062 

0 5307 

0 

TC 

IbNKCALL 

REE 

6 

LASl 

116 

13.2063 

2A  1 63 

0 

V.ADR 

Set  I ssw 

REF 

2 

LAST 

102 

13.206^ 

1 2075 

0 

TCF 

END  I MU 

dec  1:y,  1966  (MAIN)  PAGE  127 


USER'S  OWN  PAGr  NO.  A 
POSSIBLY  SWITCH  TO  lURN-ON  PROGRAM. 

ZERO  COUNTERS. 

REMOVE  ZERO  dIScRETF. 


remove  IMUFAII  and  iCDUFaIL  INHIBIT 


E3 


set  ISS  WARNING  IF  EITHER  OF  ABOVE  ARE 
PRESENT. 


488954A 


P00&7 

0058 

0059 

0066 

0067 
00675 

0068 
C0068 

0069 

0070 

0071 

0072 

0073 


007A 

0075 

0076 

0077 

0078 

0079 

0080 
0081 

0062 

0083 

008A 

0085 

0086 

0087 

0088 

0089 

0090 

0091 

0092 

0093 


y JL  System  pOR  agc!  program  shepatin  ay  eylEa 


I^IU  MoDt  switching  ROJtINeS 

IMj  coarse  align  MOoE. 


R£F  2 LAS!  106 

REF  2 last  96 

REF  10  LAST  125 

REF  3 last  125 

REF  1 

REF  3 last  125 


13,2063  0 OOOA  0 

13.2066  0 2‘!31  0 

13.2067  3 6^76  1 

13.2070  0 5701  1 

E3 

13. 2071  O2O7A  0 

13.2072  26003  0 

13.2073  1 20a3  0 


IMUCOARS  INHINT 
TC 

CAF 

1C 

EBANK= 

2CADR 

TCF 


REF 

D r f 

1 

13,2074 

13,2073 

13,2076 
13,207  7 

Ktf- 

REF 

1 1 

1 

LAsT 

125 

REF 

4 

last 

120 

13,2100 

REF- 

1 

13,2101 

REF 

2 

LASi 

128 

13,2102 

REF- 

1 

13*2103 

13,2104 

REF 

3 

last 

128 

13,2103 

REF 

5 

LAST 

124 

13,2106 

i :3  » ^ 1 U f 

0 2705  1 COARS  TC 

3 7750  1 CAF 

0 0006  1 EXTEND 

05  012  1 «0R 

3 7754  0 CAF 

55»'*60  0 COARSl  IS 

51*A60  1 index 

3 0400  O CA 

o 0006  1 extend 

5 1^*60  1 INDEX 

20  O32  1 MSU 

0 0006  1 EXTEND 


REF  2 LAST  105  13*2110  7 7/41  0 MP 

REF  20  last  119  13,21ll  55  OQl  0 XCH 

13,2112  6 OOOO  1 DOUBLE 

REF  13  LAST  78  13,2113  54  061  1 T5 

13,2114  1 2116  1 TCF 

REF  21  LAST  128  13,2113  26  OQl  1 ADS 

REF  4 last  128  13,2116  51'460  1 INDEX 

REF  4 LAST  128  13*2117  23*455  1 LXCH 

REf  5 last  128  13,2120  11*460  0 CCS 

R3F  1 13,2121  0 2IOI  0 TC 


REF  5 LASl  128  13,2122  3 7754  0 CAF 

REF  4 LASl  127  13,2123  0 5722  0 1C 


SETCOARS 

SIX 

WAITLIST 

COMMAND 

coars 

MUDFEXIT 

CAGETEST 

BIT6 

CHAN12 

1 *vO 

CUUIND 

CDUIND 

THETAD 

CDUIND 

CDUX 


B1T13 

L 

IIEMPI 
+ 2 
L 

CDUIND 

COMMAND 

CDUIND 

COARSl 

TwO 

XARDELAY 


OEf  13,  I966  (mAIN)  pAGE  126 


USER'S  OWN  PAGr  NO.  5 


E3 


enable  All  thRef  iss  cdu  error  counters 

set  cdu  indicator 

COMPUTE  THETAD  _ THETAA  IN  i:S 

complement  form 


SHIFT  RIGHT  2 
ROUND 


difference  to  bf  computed 


MINIMUM  OF  4 MS  WAIT 


48895^A  YJL  SrS'EM  fOr  AgC!  Ntw  PrOOrAm  sHtpATlN  BY  EYLts 


DEc  18.  1966  (MAIN)  rAqE  129 


L HU  MjDt  SwITEHINU  ROJTINfS 


USER'S  OwN  PAGf  no.  fa 


E3 


009A 

rEf 

2 

LAST 

128 

i3»212A 

0 2^05 

1 

C0Ars2 

TC 

cagftfst 

donT  continue  if  cAged. 

0095 

REF 

1 A 

LAST 

128 

13*2128 

5 A U6 1 

1 

T S 

I TEMP  1 

SETS  TO  +0. 

0096 

REF 

6 

LASl 

128 

13*2126 

3 775A 

0 

CAF 

TwO 

SET  CDU  INDICATOR 

0097 

REF 

fa 

LAST 

128 

13*2127 

55 • AfaO 

0 

+ 3 

IS 

CdUIND 

0098 

REF 

7 

LAST 

129 

13*2130 

5i'AfaO 

1 

INDEX 

CDUIND 

0099 

REF 

5 

LAST 

128 

i3»213i 

ll’ASS 

0 

CCS 

COMMAND 

NUMBER  OF  PULSEA  REQUIRED 

0100 

REf 

1 

13  *21  3<1 

0 2 1 36 

1 

T C 

COMPOS 

greater  THAN  piAy  ALl  OwED 

0101 

REF 

1 

13*2133 

0 2lA5 

0 

1C 

NEXTCDU  +1 

0102 

REF 

1 

1 3 *213A 

0 2<^10 

0 

1 c 

CUMNEG 

0103 

REF 

2 

LAST 

129 

13*2138 

0 2lA5 

0 

1C 

NEXTCDU  +1 

OlOA 

REF 

1 

13*2136 

6 30 1 3 

0 

Compos 

AD 

-COMMAX 

COMMAX  s MAX  NUl BeR  OF  PULSES  Al  LOWED 

0105 

13*2137 

0 OOOfa 

1 

EXTEND 

MINUS  ONE 

0106 

REF 

1 

13*21a0 

6 2*i20 

0 

SZMF 

COMzERO 

0107 

REF 

8 

LAST 

129 

1 3 * 2 1 A 1 

5 1 ' AfaO 

1 

INDEX 

CDUIND 

0108 

REF 

6 

LAST 

12R 

13*21a2 

55'‘*55 

0 

TS 

COMMAND 

Reduce  command  fy  max  number  of  pulses 

0109 

REf 

1 

13*21A3 

A 3OIA 

0 

C5 

-cOmmax- 

Allowed 

0110 

REF 

15 

LAST 

129 

13*21AA 

2A  061 

0 

NEXTCDU 

I NCR 

ITEMPl 

0111 

REF 

9 

LAST 

129 

13*21A8 

51 'AfaO 

1 

INDEX 

CDUIND 

0112 

REF 

2 

L A S I 

1 1 1 

1 3 ’ 2 1 a8 

5 A O30 

0 

T S 

CDUXCMD 

Set  up  command  register* 

0113 

REF 

10 

LAST 

129 

1 3 * 2 1 A 7 

11 'AfaO 

0 

CCS 

CDUIND 

01  lA 

REF 

1 

13*2150 

0 2l27 

1 

TC 

C0ARS2  +3 

0115 

REF 

16 

last 

129 

13*2)51 

10  Ofai 

1 

CCS 

ITEMPi 

SEE  IF  any  PUI  SfS  TO  GO  OUT, 

0116 

REF 

1 

1 3 * 2 1 5 A 

1 2';2A 

0 

T CF 

SENDPULS 

0117 

REF 

1 

13*2153 

0 5 717 

0 

TC 

fixdelay 

wait  for  gimbala  to  settle. 

0118 

1 3 * 2 1 5 A 

00*726 

1 

DEC 

150 

48895^A  YJL  SYSlEh  FOR  AGC : Nhw  PrqGiRAYI  S^ePaTIN  3Y  EYLES 


L nU  MjOc.  SWlTCHHJ'o  RO^flNFb 


0119 

0120 
0121 
0122 
0123 
012A 

0125 

0126 

0127 

0128 
0129 


R£F  7 last  129 
REF  17  last  129 
REF  62  last  125 
REF  6 LAST  128 

REF  18  LASi  130 
REF  2 LAST  128 
REF  63  last  130 
REF  1 
REF  1 

REF  2 last  130 


2155 

2156 

2157 
2160 
2161 
2162 
2163 
21  6A 
2166 
2166 
2167 


3 7'5A  0 
5A  061  1 
53  OOO  1 
3 0032  0 

0 0006  i 
5 0061  0 
23  AOO  1 
13  000  0 

1 2201  1 
1 2170  1 
1 2201  1 


CHKCORS 


CAF 

TNO 

TS 

INDEX 

CA 

ITEMPl 

A 

CDUX 

EXTEND 

INDEX 

MSU 

ITEMPl 

THETAD 

CCS 

TCF 

TCF 

TCF 

A 

coarserr 

COR5CHK2 

coarserr 

0130  REF  19  LASi  130  13*2170  13  061  1 C0RSCH<2  CCS  ITEMPl 

0131  REF  1 13.2171  1 2l56  0 TCF  CHKCORS 


0132 

A 1 -a 

REF 

3 ? C 

3 

LAST 

LAST 

26 

13,2172 

55' A55 

0 

wi  33 

Kir 

A 

130 

13,2173 

55*^56 

0 

013A 

REf 

5 

last 

130 

13,21 7A 

55,957 

1 

0135 

REF 

6 

LAST 

130 

13,2176 

55'‘,60 

0 

0136 

REF 

7 

LAST 

130 

13,2176 

55' A61 

1 

0137 

REF 

8 

LAST 

130 

13,2  17'' 

55*962 

1 

IS  GCOMP 

I S GlOMP  + 1 

15  GcOmP  +2 

TS  GCOMP  +3 

TS  GCOMP  +A 

TS  GCOMP  +5 


0138  REF  3 LASI  127 


13 


2200  1 2675  0 


TCr-  ENDIMU 


0139  REF  1 

OlAO 

OlAl  REF  2 LAST  130 


13.2201  6 2207  0 CDARSERR  AD  COARSTOL 

13.2202  0 0006  1 EXTEND 

13.2203  6 2l70  0 3ZMF  C0R5CHK2 


0192 

REF  11  LAST 

125 

13*2209 

0193 

13,2205 

0199 

REF  2 LAST 

102 

13,2206 

0195 

13,2207 

0 1 TC  ALARM 

30211  0 OCT  211 

1 2T03  0 TCF  IMUBAD 

71611  1 CDARSTOL  3EC  -.01111 


dec  U,  1966  (MAIN)  PAGE  130 


USER'S  qWN  PaGF  No,  T E3 

AT  END  OF  command,  rHECK.  TO  SEE  THAT 
GIMBALS  ARE  WTTHIN  2 DEGREES  OF  THETAD. 


zero  gyro  compensation  Registers  in 

PREPARATION  FOR  COMPENSATION, 


END  OF  COARSE  Al  IGNMENT. 
2 DEGREES. 


COARSE  ALIGN  FRROR. 


2 degrees  SCAI  En  AT  HALF-REVOLUt I ONS 
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L Hu  mode  Switching  RouTiNf-s 


01A6  REF  2 

01A7 

01A8  REF  2 

01A9 

0150  REF  11 

0151  REF  7 

0152  REF  2 

0153  ref  3 

015A  REF  18 

0155  REF  12 

0156  REF  8 

0157  REf  a 


LAST  129  13 
13 

LAST  129  13 
13 

last  129  13 
LAST  129  13 
LAST  129  13 
last  129  13 

LAST  12A  13 
last  131  13 
las  I 131  13 
last  131  13 


2?l0  6 3^113.  0 

2211  0 0D06  1 

2212  6 2220  O 

2213  A OOOO  0 

221A  Sl'-^bO  1 
2213  53'A55  0 

2213  3 3^1A  1 

2217  0 2lAA  1 

222“  3 7^61  0 

2221  Sl'-’SO  1 

2222  57'A55  1 

2223  0 2lAA  1 


COMNEG  AD 

EXTEND 

32MF 

COM 

INDEX 

TS 

CA 

IC 

CDMZERO  CAP 

INDEX 

XCH 

IC 


0158  REF 

0159 

0160  REF 

0161  REF 

0162  REF 


1 

1 

1 

2 last  129 


222A 

2223 

2226 

2227 

223O 


3 3D12  1 

0 0U06  1 
05  ‘JlA  1 

3 i^lS  0 

1 2123  1 


SENDPULS  CAF 

EXTEND 

aiOR 

CAP 

TCP 


01621  REF 
016212 
01621a 
016216  REF 

01622 
01623 


12  last  126 

6 last  108 


A 7C5O  0 
0 ODO6  1 

03  Ul2  1 

3 7'52  0 
0 0U06  1 
05  ^12  1 


SETCOARS  CS 

EXTEND 

«AND 

CAF 

EXTEND 

/vOR 


0162A 

REF 

1 

13 

01625 

REP 

19 

LAST 

125 

13 

01626 

016265 

REF 

REF 

2 

20 

LAST 

LAST 

131 

131 

13 

13 

2237 

A 2^50 

0 

CS 

22A0 

7 0326 

1 

MASK 

22A1 

6 

1 

AD 

22A2 

5A  326 

1 

TS 

01627  REF  7 LAST  131  13,22A3  A 7^52  1 CS 

016275  REF  Al  LAST  127  13,22AA  7 0365  0 MASK 

01628  REF  8 LAST  131  13,22A3  6 7152  0 AD 

016285  REF  A2  LAST  131  13,22A6  5A  365  0 IS 

01629  REF  26  LAST  12A  13,22A^  0 0002  0 IC 


016295 


13 


225O  AOUlO  1 


OCTAOOlO  OCT 


-COMMAX 

COMZFRO 

CUUINU 

Command 

-COMMAX- 

NEXTCDU 

ZERO 

CDUIND 

COMMAND 

NEXTcDU 

13,1A,15 

CHAN  1 A 
600M5 

C0ARS2  -1 
BIT6 
12 

BITa 

12 

OCTaOOIO 
DSPTAB  +11D 
OCTaOOIO 
DSPTAB  +11D 


BITA 

IM0DFS30 

BITA 

1M0DFS30 

Q 

AUDIO 


USER'S  OwN  page  NO.  8 


E3 


AND  then  to  VARfELAY. 

clear  error  counjer  before  Mode  switch. 

PUT  ISS  in  COARaE  ai ign. 

TURN  ON  NO  ATT  I AMP. 

INHIBIT  I MU  FAII  . 


48895^A  YJL  System  t-OR  AC^C:  new  PRO^iRAVI  S^^ePAtIN  by  eYLe.S 
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L HU  MJDL  bWlTCHlMG  ROUTlNHS 

P0163  IM.;  FINE  align  MODE  SWITCH. 


016A 

0165  R£F  2 last  125 

0166  REF  1 

0167 

0168 


13.2251 

13.2252 

0 

0 

0V04 

2(17 

0 

1 

IMUFINE  INHINT 
TC 

CAGFTSTJ 

13.2253 

4 

3O1I 

0 

CS 

BITS4-6 

13.2254 

0 

OUO6 

1 

extend 

13.2255 

33 

U12 

1 

wAND 

12 

01685 

REF 

3 

last 

125 

13 

.225P 

0169 

REF 

6 

last 

115 

13 

.2257 

0170 

REF 

11 

LAST 

128 

13 

.2260 

01705 

REF 

9 

LAST 

131 

0171 

13 

.2261 

com 

REF 

2 

LAST 

79 

13 

.2262 

0172 

R'r 

1 

1 3 

.2263 

0173 

REF 

12 

LAST 

132 

13 

.2264 

01735 

REF 

10 

LAST 

132 

0174 

13 

.2265 

C0174 

REF 

1 

13 

.2266 

0175 

REF 

4 

LAST 

128 

13 

.2267 

0176 

REF 

3 

LAST 

129 

13 

.227O 

0177 

ref 

4 

last 

130 

13 

.227I 

0178 

REF 

4 

LAST 

127 

13 

.2272 

0179 

REF 

6 

LAST 

127 

13 

.2273 

0180 

REF 

9 

LAST 

131 

13 

.2274 

0181 

13 

.2275 

0182 

13 

.2276 

0183 

REF 

64 

LAST 

130 

13 

.2277 

0184 

REF 

7 

LAST 

132 

13 

.2300 

0185 

REF 

10 

LAST 

132 

13 

.2301 

0186 

ref 

43 

LA5I 

131 

13 

.2302 

0187 

REF 

44 

LAST 

132 

13 

.2303 

01871 

REF 

4 

LAST 

127 

13 

.2304 

01872 

REF 

6 

last 

127 

13 

.2305 

0188 

REF 

8 

LAST 

1 32 

1 3 

.2306 

0189 

REF 

5 

LASl 

132 

13 

.230  ( 

0190 

REf 

9 

LAST 

132 

13 

.2310 

0  2323  1 TC  NOATTOFF 

3 7 1 CAF  BlTlO 

0 5^01  1 TC  WAITLIST 

E3  £BAN<=  command 

32272  1 2CADR  IFAILOK 

26^03  0 

3 3^16  0 CAF  90SFC 

0 5101  1 TC  WAITLIST 

E3  £BANK=  COMMAND 

32270  0 2CA0R  IMUFINED 

26O03  0 

1 20a3  0 TCF  MODFFXIT 

0 2T05  1 IMUFINED  TC  CAGFTEST 

1 2<^75  0 TCF  ENDIMU 

0 2(12  1 IFAILOK  TC  CAGETSTCJ 

1 5(45  0 TCF  TASKOVER 

3 HbZ  0 CAF  BIT4 

0 OOO6  1 EXTEND 

02  D12  0 RAND  12 

13  OOO  0 CCS  A 

1 5(45  0 TCF  TASKOVER 

4 7(52  1 CS  BIT4 

7 0365  0 PFAIL0K2  vfAsK  IiM0dFs30 

54  365  0 IS  IM0DFS30 

0 5307  0 TC  IBNKCALL 

24(63  0 CADR  SETISSW 

1 5(45  0 ICF  TASKOVER 

0 2(12  1 PFAILOK  IC  CAGFTSTQ 

1 5(45  0 TCF  TASicOvER 


01901 

REF 

7 

LAST 

132 

01902 

REF 

45 

LAST 

132 

01903 

REF 

8 

LAST 

132 

01904 

REF 

46 

LAST 

132 

2311 

2312 

2313 

2314 


4 7744  0 
7 0365  0 
6 7(44  1 

54  365  0 


CS  Bl TlO 

MASK  IM0DES30 

AD  BIT  10 

TS  IM0DFS30 


USER'S  OWN  page  no.  E3 


SEE  IF  IMU  BEINo  CAgED, 

reset  zero.  COARSE'  AND  ECTR  ENABLE. 


TURN  OFF  NO  ATT  LAMP. 

IMU  FAIL  WAS  inhibited  DURING  TnE 
PRESUMABLY  PRfCfDING  COARSE  ALIgN.  LEAVE 

IT  ON  FOR  the  first  5 SECS  OF  FINE  ALIGN 

GYRO  RE-CtNTFRU.G  TiME. 


SEE  THAT  NO  ONE  HAS  CAGED  THE  1 lU. 


ENABLE  IMU  FIAL  UNLESS  iMU  BEING  CAGED. 
IT  IS. 

DONT  RESET  IMU  FAIL  INHIBIT  IF  SOMEONE 
has  GUNE  INTO  cnARSF  AlIgN. 


THE  ISS  WARNING  LIGHT  MAY  COME  )N  NOW 
THAT  THE  INHIBIT  HAS  BEEN  REMOVfD. 


enable  pip  fail  prog  alarm. 


MAKE  PREVIOUS  VALUE  OF  PIPA  FAIl  THE 
NO  FAIL  STATE  Sn  THAT  IF  THE  FAILURE 
INDICATION  IS  On,  NOw  , IT  WILL  BF  PICKED 
UP  (ROUTINE  DFTfCTS  ONLY  CHANGES). 


48895'^A  YJL  SySteM  FOR  AOC  : New  PRO^RA'1  S^ePatIN  3Y  eYLes 


L iviu  v13Dl  :3WlI'eHlNG  ROJTINFS 


01905  REF  3 LAST  128  I3»23l5  9 7^91  0 CS 

01906  REF  8 LAST  117  13*23lR  7 0-366  0 MASK 

01907  REF  9 LAST  133  13.2317  6 7C91  1 AD 

01908  REF  9 LAST  133  13.2320  59  366  0 IS 

0191  REF  5 last  127  13.2321  9 7^51  1 CS 

0192  REF  1 13.2321;  1-  2302  0 TCF 

01921  REF  3 LAST  131  13.2323  a 2K50  0 NDATTOFF  CS 

01922  REf  El  LAST  131  13.2329  7 0326  1 viAsK 

01923  REF  11  LAST  IO9  13.2325  6 7^7  0 AD 

01929  REF  E2  LAST  133  13.2326  5a  326  1 IS 

01925  REF  27  LAST  131  13.2327  0 0O02  0 TC 


Dec  1a.  1966  (MAIN)  PAGE  133 


USER'S  OWN  PAGF  NO.  10  E3 

BIT13 

IMODES33 

B1T13 

IM0DFS33 

B1T5 

PFATL0K2 

PIPA  FAIL  BIT  I9  KEPT  IN  1 WO  PLACES  FOR 

OLTaOOIO 
DSPTAli  +11D 
B1T15 

DSPTAB  +11D 

TURN  OFF  NO  ATT  LAMP, 

Q 


^8895AA  YJL  SYSTf-.M  FOR  AGC:  PROGRAM  SHePATIN  3Y  eYLfS 
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P0193 

0195 

0196 

0197 

0198 

0199 

0200 
0201 

0202 

0203 

020a 

0205 

0206 

0207 

0208 

0209 

0210 
0211 
0212 


0213 

0214 

0215 

0216 

0217 

0218 
0219 


nu  M-jot  Switching  rouIinfs 


USER'S  OWN  PaGF  no-  it  E3 


ROoItNeS  to  initiate  AMO  terminate  program  use  of  tHe  PIPAS. 


REF  6 last  132 
REf  3 lASI  126 


REF  19  LAST  131 
REF  1 
REF  1 
REF  1 

REF  6 LAS;  117 
REf  A7  last  132 
REF  48  LAST  134 

REF  5 LASl  132 
REF  7 LASi  132 

REF  5 LAST  132 


REF  7 LASl  134 
REF  49  LASl  134 
REF  8 LAST  134 
REF  50  LAST  134 

REF  9 LASl  132 
REF  65  last  132 
REF  6 last  134 

REF  12  LAST  130 


REF  1 


13 

13 

*2330 

,2331 

0 2(12 

1 5937 

1 

0 

PIPUSE 

TC 

tcf 

cagftstu 

SrtRFTuRN 

13 

,2332 

0 0004 

0 

INHINT 

13 

,2333 

3 7(61 

0 

CAF 

ZERO 

13 

,2339 

5 9 O37 

1 

TS 

PIPAX 

13 

.2335 

59  O40 

1 

TS 

PIPAY 

13 

.2336 

59  U41 

0 

TS 

PIPAZ 

13 

*233  ^ 

9 7(55 

0 

CS 

BITl 

13 

.2340 

7 0365 

0 

v(AS< 

ImODFS30 

1 3 

. 2 3 4 1 

5 9 365 

0 

T 5 

I M0DFS30 

13 

.2342 

0 5307 

0 

PIPFREE2 

TC 

IBNKCALL 

1 3 

1 2 

2 9 I 6 3 

0 

wAL/R 

SE 1 I bSW 

13 

.239^ 

1 2O93 

0 

TCF 

MUDFFXIT 

13 

.2395 

0 0009 

0 

PIPFREL 

INHINT 

13 

,2396 

9 7 (55 

0 

CS 

BITl 

1 3 

.2347 

7 0365 

0 

*\ASK 

IM0DES30 

13 

.2350 

6 7(55 

1 

AD 

BITl 

13 

.235I 

59  365 

0 

IS 

1M0DES30 

13 

.2352 

7 7(44 

0 

MASK 

BlTlO 

13 

.2353 

10  000 

0 

CCS 

A 

13 

.2359 

1 2O43 

0 

TCF 

MuDFFXIT 

13 

.2355 

0 4(44 

1 

TC 

ALARM 

1 3 

.2355 

002  12 

0 

OCT 

212 

13 

.235  ? 

0 0004 

0 

INHINT 

13 

.2360 

1 23h2 

1 

ICF 

P1PFREE2 

NO  imustall  Required  in  eTtheR  ca<;e. 

DONT  enable  PIPa  FAIL  IF  IMU  BEING  CAGeD 


zero  COUNTERS. 


IF  PIPA  FAILS  FROM  NOW  ON  (UNTli 
pIppREF)*  light  ISS  warning. 


ISS  WARNING  MIGwT  CnME  ON  NOW. 
(OR  GO  OFF  ON  PiPFRfE) . 


PROGRAM  DONE  WItH  Pi  PAS.  DONT  LIGHT 
ISS  warning. 


IF  PIP  FAIL  ON,  DO  PROG  ALSRM  AND  RESET 
ISS  WARNING. 


48895AA  YJL  SYSTEM  FOR  AGC ; ^iE^^  PROGRAM  SMePATIN  bY  EYLeS 


Dec  1a»  1966  (MAIN)  PAGE  13S 


U 

P0220 

R0222 

R022A 

0226 

0227 

0228 

0229 

0230 

0231 

0232 

0233 

0234 

0235 

0236 

0237 

02375 

0238 
C0238 

0239 

0240 

0241 

0242 

0243 

0244 

0245 

0246 

0247 

0248 

0249 

0250 

0251 

0252 

0253 

0254 

0255 

0256 

0257 

0258 

0259 

0260 
0261 
0262 


1 *10  MODE  SWITCHING  RQJTINfS  USER'S  OWN  PAGf  NO.  12  E3 

THE  FOLLOWING  ROUTINE  IORqUeS  THe  TRIGS  ACCORDING  TO  DOUBLE  PRECISION  INPUTS  Im  tHe  Six  REGISTtRS 
beginning  At  the  ECADR  ARRIYIMG  in  A.  tHe  minimum  size  of  any  pulse  train  is  16  PULSeS  (.^5  CDU  COUNTS).  tHe 
unseni  portion  of  the  commano  is  l^ft  intact  in  the  input  Command  registers. 


E3  EBANK=  1400  VARIABLE,  ACTUAILY, 


REF  34  last  &5  1312361  54  ^51  0 IMUPULSF,  TS  MPAC  +5  SAVE  ARRIVING  ErADR. 

REf  3 LAST  132  I3i2362  0 2^17  1 TC  CAGFTSTJ  DONT  PROCEED  Ip  IMU  BEING  CAgED. 


REF  2 LAS;  86 
REF  1 


13.2363  n S56  0 

13.2364  0 24^6  0 


CCS  LGYRO  SEE  IF  GYROS  HUsY. 

TC  GYROBUSY  SLEEP. 


REF  35  LAST  135 
rEF  13  last  131 


REF  1 

REF  13  last  132 


13.2365 

13.2366 
13, 236  1 

13,2370 

54  146 

0 

TS 

MPAC  +2 

3 7(50 
0 0006 
05  014 

1 

1 

1 

caf 

EXTEND 

WOR 

B i T6 

14 

13.2371 

13.2372 

3 7(53 

0 0004 

1 

0 GWAKE2 

CAF 

INHINT 

FOUR 

13,2373 

0 5 (01 

1 

T C 

WAITLIST 

REF 

11 

last 

132 

REF 

1 

REF 

36 

LASI 

135 

K cF 

3 

L A 0 T 

84 

REF 

37 

LASI 

135 

REF 

3 

LAST 

135 

REF 

1 

REF 

20 

LAST 

130 

REF 

8 

last 

130 

REF 

38 

LAST 

135 

REF 

21 

LAST 

135 

REF 

39 

last 

135 

R EF 

66 

LAST 

134 

REF 

40 

LAST 

135 

REF 

1 

REF 

41 

LASI 

135 

REF 

42 

LAST 

135 

RsF 

43 

LAST 

135 

REF 

1 

REF 

44 

LAST 

135 

rSf 

4 

LAST 

135 

REF 

7 

LAST 

134 

E3 

13.2374  02'+44  1 

13.2375  26U03  0 

13.2376  3 0151  1 

13.2377  55  U03  1 

13.2400  56  151  1 

13.2401  54  556  0 

13.2402  7 4553  1 

13.2403  54  G61  1 

13.2404  3 7T54  0 

13,2^05  54  I47  1 

13,2406  6 0000  1 
13,2407  6 U061  0 

13.2410  54  I50  1 

13.2411  0 0006  1 

13.2412  5 OOOO  1 

13.2413  3 1401  0 

13,2h14  52  I45  0 

13.2415  0 7320  1 

13.2416  52  145  0 

13.2417  50  I50  0 

13.2420  53'H01  1 

13.2421  10  147  I 

13.2422  1 2405  0 

13.2423  3 OI5I  1 

13.2424  54  003  0 

13.2425  1 2O43  0 


ebank= 

Command 

ZCADR 

STRTGYRO 

CA 

MPAC  +5 

XCH 

EBANK 

XCH 

MPAC  +5 

TS 

LGYRO 

MASK 

L0W8 

TS 

I TEMPI 

CAF  Two 


TS 

MPAC  +3 

DOUBLE 

AD 

1 TEMPI 

TS 

MPAC  +4 

EXTEND 

INDEX 

A 

DCA 

1400 

DXCH 

MPAC 

TC 

TPAGREE 

DXCH 

MPAC 

INDEX 

MPAC  +4 

DXCH 

1400 

CCS 

MPAc  +3 

1 CF 

GYROAGRE 

CA 

MPAC  +5 

T S 

ebAnk 

TCF 

MUDFEXIT 

enablf  The  powe^  supply. 


(IF  A JOB  WAS  Pi,T  TO  SLEEP,  THE  POWER 
SUPPLY  IS  LFFT  on  By  the  WAKING  JOB), 


SET  UP  EBANK,  SaVINg  CALLERiS  EhANK  FOR 
RESTORATION  ON  RETURN. 

RESERVES  GYROS. 


force  sign  AGREEMENT  ON  INPUTS. 


RESTORE  CALLER'S  EBANK 


48896^A  YJL  SYSib'M  F-OH  AGt;  NEW  PR0<J9AV1  b^EPAIlN  BY  EYLES 
L I“1U  MoUh  SWii'CHlN^^  ROUflNFS 

P0263  R0JTINE5  TO  ALLO>-.  TO^^JlNG  BY  ONLY  ONL  jDB  AT  A 7 IMF. 


026A 

0265 

0266 

0267 

0268 


ref 

1 

13.2926 

13.2927 

0 0006 
3 0129 

1 

0 

gyrobusy 

extend 

DCA 

BUF2 

REF 

95  last  135 

13,2930 

52  I95 

0 

DXCH 

MPAC 

REF 

1 

13,2931 

3 2993 

0 

REGSLLEP 

CAF 

LGWAKE 

REF 

1 

13,2932 

1 5^63 

0 

TCF 

JOBSLEEP 

0269  REF  4 LAST  135  13»2a33  10  356  0 GWAKE  CCS  LGYRO 

0270  REf  1 13.2^3A  1 2^*31  1 TCF  REGSlFEP 


0271 

0272 

REF 

96 

LAST 

136 

13 

13 

,293s 

,2936 

0273 

REF 

97 

LAST 

136 

1 3 

,293  ^ 

027A 

REF 

2 

LAST 

136 

13 

,29A0 

0275 

REF 

16 

LAST 

118 

13 

, 299 1 

0276 

REF 

1 

13 

,2992 

59  196 

0 

IS 

MPAC  +2 

0 OOO6 

1 

extend 

3 0 1 95 

1 

DCA 

MPAC 

52  129 

1 

DXCH 

BUF2 

3 7155 

1 2S72 

1 

1 

CAF 

TCF 

ONE 

GwAKE2 

0277  REF  1 13*2aa3  26^33  1 LGwIAKE  CAUR  GwAKE 


dec  U,  1966  (MAIN)  PAGE  136 


USER'S  0*^N  PaGf  no.  13 


E3 


SAVE  return  2FCaDR, 


when  awakened,  see  if  gyros  S7IIL  BUSY. 

If  so,  Sleep  sOiv,e  more. 


restore  swReturn  info 


^8895c»A  YJL  system  I-OR  aGC:  NeW  SHePatIN  BY  eYLeS 


Dec  1966  (MAIN)  PAGe  13^ 


L nu  Y|3Ui:  switching  ROUTINES 

P0278  GYPO-TOROUING  WAITLisI  T^SKS. 


0279  REF 

0280 
0281 


13’2a^^  9 2672  1 STRTGYRO  C5  GDESELCT 

13.2<tAS  0 0^06  1 EXTEND 

13,2^*46  03  GU  1 WAND  U 


0282 

0283 

0284 

0285 

0286 

0287 

0288 
0289 


REF 

4 

LAST 

132 

1 3 

REF 

5 

Last 

136 

13.2450 

13.2451 

REF 

REF 

1 1 
67 

1 

LAS  I 
LAST 

132 

135 

13.2452 

13.2453 
13,245A 

REF 

13,2455 

13,2450 

0 2(05  1 TC  CAGFTEST 

3 0356  1 5TRTGYR2  CA  LGYRO 

0 0G06  1 EXTEND 

7 7(52  1 MP  BIT4 

50  Goo  1 INDEX  A 

1 2455  0 TCP  +1 

0 2S04  1 rC  GSELECT 

00202  1 OCT  00202 


0290 

0291 

REF 

2 LASt 

137 

1 3 t 2 A60 

0292 

0293 

REF 

3 Last 

137 

1 3 « 2a61 

1 3 1 2 '+6'^ 

U 2504 

1 

TC 

GSEI.FCT 

00302 

0 

OCT 

00302 

0 

i 

1 V.. 

ooLLh  1 * 

ooioo 

0 

3CT 

00100 

0294 

0295 

0296 

REF 

REF 

REF 

20 

6 

2 

LASl 

last 

LAST 

134 

137 

136 

1 3 » 2463 
1 3 i246^ 
13  * 2 4 6 

0297 

REF 

1 

1 3 » 2 46^ 

3 7(61 

0 

CAF 

ZERO 

54  356 

0 

TS 

LgYRO 

3 2443 
0 5^67 

0 

0 

CAF 

TC 

LgWAKE 

JOBWAKE 

0298 

REF 

12 

LAST 

119 

1 3 , 2a67 

0299 

RlF 

10 

lAST 

133 

13,24(0 

0300 

REF 

68 

LAST 

137 

13,2471 

0301 

REF 

1 

13,24(2 

0302 

REF 

1 

13,2473 

0303 

REF 

2 

LAST 

137 

13,247A 

0304 

REF 

3 

LAST 

137 

13,2475 

0305 

REF 

14 

last 

135 

13,2476 

0306 

13,2477 

0307 

13, 2500 

3 7(54 

0 

CAF 

BIT2 

7 0366 

0 

'TASK 

1mOdES33 

10  ooo 

0 

CCS 

A 

1 2501 

0 

TCP 

NORFSET 

10  064 

1 

CCS 

LOCCTR 

1 2501 

0 

TCF 

NORFSET 

1 2501 

0 

rcF 

NORFSFT 

4 7(50 

0 

^ s 

BI  T6 

0 OU06 

1 

extend 

03  Oli+ 

1 

wAND 

14 

0308  REF  2 LAST  132  13, 2501  1 2<^70  1 NORESET  TCP  IMUFINED 


USERYS  OWN  page  no.  14  E3 

DE-SELECT  last  r,YRO. 

JUMP  ON  PHASE  Cy.UNTfR  IN  BITS  13-14. 

=0.  DO  Y gyro. 

=1.  DO  Z gYRO. 

=2,  DO  X GYRO. 

=3.  DONE 

WAKE  A POSSIBLE  SLEEPING  JOB. 

DONT  RESET  POWER  SUPPLY  IE  Bir  SET 
(ONLY  during  gyro  TORliUE  ScAlE  f-AcTOR 
TEST) . 

IF  A JOB  WAS  AWaKeNeD,  DoNT  RESfT  GYRO 
ENABLE. 

IF  NO  JOB  AWAKENiED,  RESET  GYRO  ENABLE. 


A8895^A  II'JL  SrSieM  hOK  aGc:  Nt’rt  Pro^^A'^  S*^ePat1N  i^Y  E^Lfs 


L HU  MOOt  bw  ITCHING  ROJillMfcb 


0309 

REP 

2 

LASI 

135 

13 

0310 

REP 

! 

LAST 

137 

1 3 

0311 

REP 

28 

last 

133 

13 

0312 

13 

0313 

REP 

6 

LAST 

73 

13 

0315 

REP 

5 

LAST 

92 

13 

0315 

REP 

5 

LAST 

133 

1 3 

0316 

REF 

8 

LAST 

138 

13 

0317 

REP 

5 

LASl 

135 

13 

0318 

REP 

2 

LASI 

135 

13 

0319 

REP 

22 

LAST 

135 

13 

0320 

REP 

6 

LAST 

138 

) 3 

2502  7153  0 -2  CS 

2503  25  356  0 ADS 

2505  50  002  0 GSELECT  INDEX 

250b  3 OOQQ  I CAE 

2506  55  065  1 IS 

2507  7 7757  1 'lASK 

251°  6 7751  1 AD 

2511  26  356  0 ADS 

2512  55  003  0 fS 

2513  7 5653  1 MASK 

2515  55  061  1 IS 

2515  5 7757  1 CS 


0321 

REF 

7 

LAST 

138 

13 

0322 

REP 

8 

LAST 

138 

1 3 

0323 

13 

0325 

REP 

23 

LAST 

138 

1 3 

0325 

13 

0326 

REF 

16 

LAST 

105 

13 

0327 

REP 

17 

LAST 

136 

13 

0328 

REp 

1 

13 

0329 

1 3 

0330 

REP 

1 

LASI 

13 

0331 

REF 

9 

108 

13 

0332 

R£f 

1 

13 

0333 

REF 

1 

13 

0335 

REP 

1 

13 

0335 

REF 

2 

LAST 

138 

13 

2516  7 0065  1 MASK 

2517  55  065  1 TS 

2520  0 OOO6  1 EXTEND 

2521  5 0061  0 INDEX 

2522  3 HOI  0 OCA 

2523  52  071  0 OXCH 

2525  iO  O70  1 CCS 

2525  1 2b50  0 TCP 

2526  1 2b30  1 TCP 

2527  1 2653  1 KP 

2530  10  O71  0 CCS 

2531  1 2635  1 TCP 

2532  1 2550  0 TCP 

2633  1 2050  1 TCP 

2535  1 2‘*50  0 TCP 


Dec  15*  1966  (Main)  pa^e  13^ 


USER'S  OWN  page  no,  15  E3 

FOUR 

LGYRO 

SPECIAL  ENTRY  T(.  REGRESS  LGYRO  FOR  X, 

3 

0 

1 TEMP5 

SEVEN 

BIT13 

LGYRO 

EBANK 

L0^«8 

I TEMPI 

SEVEN 

ITEMP5 

ITEMP5 

SELECT  gyro. 

packed  word  contains  gyro  select  bITS 

AND  increment  Tr,  LGYRO. 

ITEMPl 

1500 

RUPTREGl 

RUPTREGl 

MAJ  + 

♦ 2 

MAJ- 

RUPTREG2 

min+ 

STRTGYR2 

MIN- 

STRTGYR2 

MOVE  DP  COMMAND  TO  RUPTREGS  FOR  TESTING, 

^88954A  YJL  S^S'IEM  (-OR  AGC : NEW  PRO^RAY  SHePATIN  BY  EYLEh 


DEC  U,  1966  (MAIN)  PAGE  139 


L IMU  MjUE  switching  RO-JfiNFS 


USER'S  OWN  Page  no.  is  £3 


0336  REF  1 

0337 

0338  REF  3 LA51  138 


13,2633  6 2371  0 M1N+ 

13,2533  0 0006  1 

13,2537  6 2^50  1 


AD  -oYROMIN 

EXTEND 

3ZMF  STRTGYR2 


SMALL  POSITIVE  COMMAND.  SEE  IF  AT  LEAST 

16  gyro  pulses. 


0339 

0390 

0391 

REf 

REF 

1 

18 

LASl 

138 

13.2590 

13.2591 

13,2  59Z 

0 OUO6 
3 2679 
20  O71 

1 MAJ  + 

0 

0 

EXTEND 

OCA 

OAS 

GyROFRAc 

RUPTREGl 

0392 

0393 

REF 

9 

LASl 

138 

13,2593 

13,2599 

3 0069 
0 OOO6 

0 

1^ 

CA 

EXTEND 

I IEMP9 

0399 

13, 2595 

05  Oli, 

1 

WOR 

19 

DEFINITE  POSITIVE  OUTPUT. 


SELECT  POSITIVE  TORoUING  FOR  TH[S  GYRO. 


0395 

REF 

2 

LASl 

LAST 

66 

0396 

REF 

10 

138 

0397 

REF 

11 

LASl 

139 

03A8 

03A9  REF  5 last  101 


0350 

REF 

12 

LASl 

73 

0351 

0352 

REF 

19 

LASl 

139 

13.2596  3 6^30  0 

13.2597  7 0U71  0 

13.2550  55  O7I  1 

13.2551  0 OUO6  1 

13,255.^  7 7^96  1 

13,2553  59  062  1 

13,2559  3 OO7O  0 

13,2555  0 OOO6  1 


CAF  L0w7  leave  NUMBER  OF  POSSIBLE  8192  A jGMENTS 

'^AS<  RUPTREG2  TO  INITIAL  COMMAND  IN  MAJOR  PARr  OF  LONG 

XCH  RUPTREG2  TERM  STORAGE  ANr,  TRUNCATED  FRACTION 

GMERGE  EXTEND  IN  MINOR  PART.  tHE  MAJOR  PART  WILL  BE 

VIP  BIT8  COUNTED  DOWN  TO  ZERO  IN  THE  COURSE  OF 

TS  ITEMP2  PUTTING  OUT  THE  ENTIRE  COMMAND, 

CA  RUPTREGl 

EXTEND 


0353  REF  9 LASl  125  13 

0359  REF  20  LAST  139  13 

0355  REF  22  LASl  128  13 

0356  13 

0357  REF  8 LAST  122  13 

0358  REF  13  last  139  13 


2555  7 7(95  1 MP 

255?  59  O70  1 TS 

2560  3 0001  0 CA 

2661  0 0006  1 EXTEND 

2562  7 7^90  1 MP 

2563  2b  062  1 ADS 


BIT9 

RUPTREGl 

L 

BITU 

IIEMP2  INITIAL  COMMAND. 


0359  13,2569 

0360  REF  21  LAS'!  139  13,2565 

0361  REF  1 13,2566 

0362  REF  69  LASl  137  13,2567 

0363  REF  1 13,2570 

0369  13,2571 


0 OOO6 

1 

EXTEND 

3 OO7I 

1 

OCA 

RUPTREGl 

5 7T63 

1 

AD 

MlNUSl 

1 0 ooo 

0 

CCS 

A 

1 2819 

1 

TCF 

LONGGYRO 

778OO 

1 

-GYROMIN  OCT 

-177 

0365 


13 


2572  1 2=76  0 


TCF 


+ 9 


0366 

REF 

9 

LASl 

139 

13,2573 

0367 

REF- 

19 

LASl 

139 

13,2579 

0368 

REF 

21 

LAST 

137 

13,2575 

3 7 190 

0 

CAF 

B1T19 

25  062 

1 

ADS 

I TEMP2 

3 7761 

0 

CAF 

ZERO 

See  if  more  than  one  pulse  train  needed 

(MORE  than  16381^  PULSES). 


MAY  BE  ADJUSTED  TO  SPECIFY  MINIMUM  CMD. 


0369  ref  29  LAS',  138  13.25T6  5O  0(,t  q +9  INDEX  ITEMPl 

0370  13,257T  53'901  1 DXCH  1900 


^ssgs'tA 


L 

0371 

0372 

0373 
037A 

0375 

0376 
03765 

0377 
C0377 

0378 

0379 

0380 

0381 

0382 

0383 

0384 

0385 

0386 

0387 

0388 

0389 

0390 
03905 

0391 
C0391 

0392 

0393 

0394 

0395 

0396 

0397 

0398 

0399 

0400 

0401 

0402 

0403 

0404 

0405 

0406 

0407 

0408 


YJL  SYSieM  Yok  aGC;  meW  S^^ePatIN  BY  e'''*-e.S 


REF 

REF 


REF- 

REF 

REF 


REF 


REF 


REF 

REF 


REf 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

ref 

REF 


2 LAST 


'Ok  agc 

NtW 

TcHING 

ROJT 

139 

13 

111 

1 3 

13 

134 

13 

65 

13 

135 

13 

135 

13 

135 

13 

140 

1 3 

13 

13 

1 32 

1 3 

139 

13 

1 3 

139 

13 

140 

13 

1 40 

1 3 

13 

140 

1 3 

13 

140 

13 

140 

13 

13 

13 

137 

13 

138 

13 

138 

13 

138 

13 

140 

13 

140 

13 

13 

13 

140 

13 

1 40 

1 3 

13 

140 

1 3 

13 

140 

13 

140 

13 

13 

2600 

2601 

2602 

2603 

2604 

2605 

2606 
2607 
261^^ 
2611 
2612 

2613 

2614 

2615 
2615 
261  F 
2620 

2o2l 

2622 

2623 

2624 


2625 

2626 
2627 


2o3l 

2632 

2633 

2634 

2635 

2636 
263  ( 

2640 

2641 

2642 

2643 

2644 

2645 

2646 


3 0062  0 
54  0^7  0 

0 0006  1 
7 7F<t4  0 
6 6301  0 

0 5701  1 

E3 

024^4  1 
26O03  0 
3 7744  1 
0 0006  1 
05  Oii,  1 

1 5745  0 


3 7740 
6 0062 


0 OOO6 
7 7744 

6 5357 


26003 
1 2610 


2630  0 2705  1 


3 0356 


54  061 

50  061 
1 1*400 
1 2943 

3 7740 

2b  Oij7 

1 2902 


55*400 
3 7740 

2b  Oit7 

1 2921  1 


lastsec 


CA 

TS 

EXTEND 

YP 

AD 

TC 

EBANK= 

2CADR 


ITEMP2 

SYROCMD 


BIT  10 
THRFF 
w'AlTLIST 
COMMAND 
SI RTGYRO 


GyROEXIT 


CAF  BITiO 

EXTEND 

NOR  14 

TCF  TASKOVER 


, 0 

LONGGYRO 

INDEX 

1 1 EMPl 

I 

DXCh 

1400 

) 0 

CAF 

81T14 

: 0 

AD 

1 TEMP2 

’ 0 

TS 

GYROCMD 

. 1 

A JG3 

EXTEND 

f 0 

’ir 

61  1 10 

' 0 

AD 

NEG3 

, 1 

1C 

WAITI  1ST 

E3 

ebank= 

COMMAND 

t 0 

2CADR 

8192AUG 

1 0 

1 0 

TCF 

GYROFXIT 

i 1 

8192AUG 

TC 

CAGFTEST 

. 1 

CA 

lgyro 

1 0 

TS 

EBANK 

1,  1 

MASK 

LOWS 

1 

TS 

IT EMPl 

0 

index 

I TEMPI 

1 0 

CCS 

1400 

i 0 

TCF 

AUG2 

1 0 

CAF 

B1T14 

' 0 

ADS 

GYROCMD 

; 0 

TCF 

LASTSEG  +1 

0 

A JG2 

index 

I T EMPl 

1 0 

TS 

1400 

1 0 

CAF 

BiTl4 

0 

Ads 

GYROCMD 

1 

TCF 

AUG3 

Oeo  u,  1966  (Main)  pa^e  140 

USER*S  own  PaGF  no.  17  E3 

ENTIRE  COMMAND. 


WAITLIST  OT 

TRUNCATION  AND  pHASf  UNCERTAINTIES. 


TURN  ON  GYRO  ACTIVITY  TO  START  TRAIN. 


initial  command  out  plus  n augmfnts  of 
8192.  inhial  Command  is  at  least  8192. 


get  waitlist  dt  to  time  when  train  is 
almosi  out. 


add  8192  PULSFS  TO  OYROCMD 


SEE  IF  THIS  IS  tHE  LAST  AUG. 
MORE  10  COME. 


COMPUTE  DT. 


48895^A  YJL  StSlLM  I^OR  AGC;  NLkv  PROGRi\vi  SHePATIiM  BY  EYLtS 


DEC  IH,  I966  (MAIN)  PAGE  lAl 


L I'^iU  MODc  SWJKHINCi  ROJTINeS 


0409 

REF 

2 

LAST 

139 

13,2650 

6 2371 

0 

MIN- 

0410 

13,2651 

0 OOO6 

1 

0411 

REF 

4 

LAST 

139 

13,2652 

6 2450 

1 

0412 

13*2653 

0 OOO6 

1 

MAJ- 

0413 

ref 

2 

last 

139 

13,2654 

4 2974 

1 

0414 

REF 

22 

LAST 

139 

13,2653  . 

23  O71 

0 

0415 

REF 

10 

LAST 

139 

13,2650 

3 0064 

0 

0416 

REF 

5 

LAST 

139 

13,2657 

6 7 T45 

0 

0417 

1 3 ,2660 

0 0006 

1 

0418 

13 ,2661 

05  014 

1 

AD  -GYROMIN 

EXTEND 

3ZMF  5TRTGYR2 

EXTEND 

DCS  GyROfRAc 

DAS  RJPTREGl 

CA  ITEMP^ 

AD  BIT9 

EXTEND 

WOR 


0A19  REF  23  last  141  13,2662 

0420  REF  24  LAST  141  13,2663 

0421  REF  12  last  139  13,266^ 

0422  REF  3 LAST  139  13,266^ 

0423  13,2666 

0424  REF  13  LAST  141  13,2667 

0425  13,2670 

0426  REF  1 13,2671 


4 OO7O  1 CS  RUPTREGi 

54  O70  1 IS  RUPTREGi 

4 OO71  0 CS  RUPTREG2 

7 6l30  1 ^ASK  LuW7 

4 OOOO  0 COM 

56  O7I  1 XCH  RUPTREG2 

4 0000  0 COM 

1 2S5I  0 TCF  GMERGE 


0427  13,2672  31  TOO  1 GDESELCt  DCT  1700 

0428  13,2673  OOUOO  1 GYROFRAC  2DEC  .215  B -21 

C0428  13,267A  30034  0 


USER'S  OWN  PaGk  NO.  iB  E3 

POSSIBLE  negative  OUTPUT. 

DEFINITE  NEGATIv/E  OuTPUI. 

select  negative  torouing  for  this  gyro. 

SET  UP  RUPTREGS  TO  FALL  INTO  GMpRGE. 

ALL  NUMBERS  PUT  INTO  GYROCMD  ARf 
positive  - BIT9  OF  CHAN  I4  DETERMINES 
THE  SIGN  OF  THE  COMMAND. 


TURN  OFF  SELfCT  AND  ACTIVITY  BItS. 


^e895AA  YJL  SyS'ieM  AGC:  NeW  PkO^^A'^  SHePatIN  3Y  E.YLfS 


Dec  1,,  1966  (MAIN)  PAGE  1A2 


L IvlU  MGDl  StYlTtHING  ROJllNFS  USER'S  OwN  PaGF  NO-  19  E3 


P0A29 

iMj 

mode 

switching 

RoUn'^'ES 

come  Here  when  action  complete. 

0A30 

13,2675 

0 0006 

1 

ENDIMU 

EXTEND 

mode  is  bad  if  cage  has  OCCUReD  OR  IF 

0431 

13,2679 

03  011 

1 

READ 

11 

I5S  WARNING  IS  nN, 

0432 

REF 

9 

LAST 

134 

13,267  ^ 

7 7755 

0 

MA5< 

BITl 

0433 

REF 

70 

LASl 

139 

13,2  7OO 

13  000 

0 

CCS 

A 

0434 

REF 

3 

LAST 

130 

13,2701 

1 2 703 

0 

TCF 

IMURAD 

0435 

REF 

1 

13,2702 

1 2 731 

1 

IMUGOOD 

TCF 

GUODEND 

WITH  CIA)  = 0. 

0436 

REF 

22 

LAST 

139 

13*2  703 

3 7 761 

0 

I wubad 

CAF 

ZERO 

0437 

REF 

1 

13,2704 

1 2 726 

1 

TCF 

BADEND 

last 

CAGETESt 

0438 

REF 

15 

137 

13,2  705 

3 7750 

1 

wAF 

BIT6 

subroutine  to  Terminate  imu  modf 

0439 

REF 

51 

LAST 

134 

13,2706 

7 0365 

0 

MASK 

IM0DFS30 

SWITCH  IF  IMU  Has  BEEN  CAGED, 

0440 

Kn.F 

1 1 

LmS  T 

142 

13, 270  7 

1 j woo 

0 

^CS 

A 

0441 

REF 

4 

LAST 

142 

13,271D 

1 2 703 

0 

TCF 

IMUBAD 

DIRECTLY. 

0442 

REF 

29 

LmST 

138 

13,2711 

0 0002 

0 

TC 

a 

WITH  CIA)  5 +0. 

0443 

REF 

S2 

LAST 

142 

13 '2  7l2 

4 0365 

0 

CAGETSTO 

CS 

IMODFS3O 

SKIP  IF  IMU  NOT  being  CAGED. 

0444 

REF 

16 

LAST 

142 

13,2713 

7 7 750 

0 

mask 

BIT6 

0445 

REF 

72 

LAS  1 

142 

13 ,271A 

1 3 OQO 

0 

CCS 

A 

0446 

REF 

30 

LASl 

142 

13,2715 

24  002 

0 

INCR 

0 

0447 

REF 

31 

LAST 

142 

13,2719 

0 0U02 

0 

TC 

0 

044  8 

REF 

53 

LAST 

142 

13*271'7 

4 0365 

0 

CAGETSTJ 

CS 

IK0DFS30 

IF  DURING  MODF  switch  INITIALIZATION 

0449 

REF 

17 

last 

142 

13 ,2  720 

7 7750 

0 

mask 

B1T6 

IT  IS  found  that  the  imu  is  bei  -g  caged. 

0450 

REF 

73 

LAS  I 

142 

13,2721 

13  000 

0 

CCS 

A 

SET  IMUCADR  TO  ^0  TC  INDICATE  OPERATION 

0451 

REF 

32 

LAST 

142 

13,2722 

0 0002 

0 

TC 

Q 

COMPLETE  BUT  FAtLED.  RETURN  IMMEDIATELY 

0452 

REF 

23 

LAST 

142 

13*2723 

4 7 761 

1 

CS 

ZERO 

TO  SWRETURN. 

0453 

ref 

2 

LASt 

86 

13,2724 

54  3^7 

1 

IS 

imucadR 

0454 

REF 

8 

LAST 

135 

13,2725 

1,  2O43 

0 

TCF 

MODFFXIl 

488954A  YJL  SYSIEM  FOK  AGC:  NEW  PROG^i^M  sHbPATifJ  3Y  EYLES 


dec  1966  (MAIN)  PAGE  1A3 


L Hu  mdde  Switching  rojiinfs  uSeR'S  own  page  no.  20  e3 


P0A55 

GE'i 

eralized 

mode  SWir 

cring 

termination 

. enter 

AT  GOODeND 

FOR  successful  compietIon  of  an  I/O  operation 

Roast 

OR  AT 

BmDEND 

FOR  A iN 

JNSUCCLS: 

FJL  one.  C(A)  oR 

ARRIVAL 

=0  For  imu, 

1 For  aot,  2 for  radars,  & 3 for  att  manu. 

0A59 

ref 

19 

LA87 

191 

O'*  ''ll 

U BAUtMU 

T S 

RUPTREG2 

device  index. 

0A60 

REF 

29 

LAST 

192 

13 

,2727 

9 7^61 

1 

CS 

ZERO 

for  failure. 

0A6  1 

REF 

2 

LAST 

192 

13 

,2730 

1 203 

0 

TCF 

GOODEND  +2 

0962 

REF 

15 

LAST 

193 

13 

,2731 

59  U7I 

0 goodend 

TS 

RUPTREG2 

0963 

REF 

17 

LAST 

136 

13 

,2732 

9 7 05 

0 

CS 

ONE 

for  success. 

0969 

REF 

6 

last 

73 

13 

,2/33 

59  U72 

0 

TS 

RUPTREG3 

0965 

REF 

16 

LAST 

193 

13 

,273A 

50  D71 

1 

index 

RUPTREG2 

see  if  using  program  asleep. 

0966 

REF 

5 

LAST 

19 

1 3 

,2735 

1 0 367 

1 

CCS 

MODECADR 

0967 

13 

fZ73t> 

1 2. '90 

1 

TCF 

+ 2 

YES  - wake  it  up. 

0968 

REF 

1 

13 

,273T 

1 200 

0 

TCF 

ENDMODE 

IF  0,  program  not  in  yet. 

0969 

REF 

25 

LAST 

193 

13 

,2790 

3 7 01 

0 

CAF 

zero 

WAKE  SLEEPING  PcOGRaM. 

0970 

REF 

17 

LAST 

193 

13 

,2791 

50  U7I 

1 

INDEX 

RUPTREG2 

097 1 

R cF 

6 

LAST 

193 

1 3 

,2792 

55  367 

0 

XCFI 

MODECADR 

0972 

REF 

2 

LAST 

137 

13 

,2  793 

0 5567 

0 

TC 

JOBWAKE 

0973 

REF 

7 

last 

193 

13 

,2799 

9 OU72 

0 

CS 

RUPTREG3 

advance  LoC  if  tiUCCFSSFUL. 

0979 

ref 

2 

lasi 

137 

13 

,2795 

50  D69 

0 

INcjEX 

LOCCTR 

0975 

REF 

1 

1 3 

,2796 

2 5 1 59 

0 

ADS 

LOC 

0976 

REF 

11 

last 

190 

13 

,2797 

1 5795 

0 

TCF 

TASKOVER 

0977 

REF 

8 

last 

193 

13 

• 2750 

3 OD72 

1 LNDMODE 

CA 

RUPTREQ3 

-0  INDICATES  OPhRATlON  COMPLETE  BUT 

0978 

ref 

18 

LAST 

193 

13 

,2751 

50  D71 

1 

index 

RUPTREG2 

unsuccessful 1 indicates  complete  and 

0979 

REF 

7 

LAST 

193 

13 

,2752 

5 9 367 

1 

TS 

MODECADR 

SUCCESSFUL, 

0980 

REF 

12 

LAST 

193 

13 

,2753 

1 5795 

0 

TCF 

TASKOVER 

48895“^*  yJL  system  FOk  AGC:  NeW  PROG:^[^v1  SMePAtIN  BY  eYLf-S 


DEG  1^,  1966  (MAIN)  PAGe  lAA 


L I *10  '^oDE  SWITCHING"  RqJIINES  USER'S  qWN  PaGi-  NO*  21  E3 


PoA8i  GE'.EkAL  Stalling  rojiinie*  using  programs  come  Here  to  wait  for  I/o  completion. 


08823 

08826 

REF- 

REF 

3 

1 

LAST 

180 

13,2758 

13,2755 

3 

1 

6501 

2 (63 

0 

0 

Al TSTALL 

CAF 

TCF 

three 

STALL 

ATTITUDE  maneuver  STALL 

0883 

REF 

9 

last 

135 

13,2  (56 

3 

7(58 

0 

radstall 

CAF 

T wO 

RR  AND  LR  STALL. 

0888 

REF 

2 

LASl 

188 

13,2751 

1 

2 (63 

0 

TCF 

SI  ALL 

0885 

REF 

18 

LAST 

183 

13*2/60 

3 

7 (55 

1 

adtstall 

CAF 

ONE 

AOT. 

0886 

REF 

3 

LAST 

188 

13,2/61 

0 

2 (63 

1 

1C 

STALL 

0A87  REF  I 

0A89  REF  26  LAST  1A3  13*2762 

0890  13*2/63 

0891  REF  19  last  183  13,276“^ 

0892  REF  78  LAST  182  13*276S 

0893  REF  8 LAST  183  13*2766 

0898  REF  1 13.2/67 

0895  REF  1 13  *2  77G> 

0896  REF  1,  13,2771 

0897  REF  30  LAST  188  13*2772 

0898  REf  9 LAS1  188  13,2773 

0899  REF  9 LASl  182  13,277^ 

0500  REF  75  LASl  188  13,2/75 

0501  REf  2 last  188  13,2/76 

0502  REF  3 LASl  136  13,2771 

0503  REF  1 13,3000 

0508  REF  1 13*3001 

0505  RcF'  21  lASI  188  13,3002 

0506  REF  10  LASl  188  13,3003 

0507  REF  2 LASl  136  13,3008 

0508  REF  1 13*3005 

0509  13*3006 


13*2760  OPTSTALL  EQUALS  AuTSTALL 
3 7(61  0 IMUSTALL  CAF  ZERO 

0 0O08  0 STALL  INHINT 

58  07I  0 IS  RUPTREG2 

50  OOO  1 INDEX  A 

10  367  1 CCS  MODFCADR 

1 3OO5  0 TCF  MODABORT 

1 3OOI  1 TCF  MODESLP 

1 2(75  1 TCF  MODFGOOD 

5O  071  1 MG2  INDEX  RUPTREG2 

58  067  1 T5  MODEcADR 

1 2083  0 TCF  MODEEXIT 

10  OOO  0 MODEGOOD  CCS  A 

1 3OO5  0 TCF  MUDAbORT 

28  123  1 INCR  BUF2 

1 2(72  0 TCF  MG2 

0 5^(53  0 MODESLP  TC  MAKECADR 

50  071  1 index  Ruptregz 

58  067  1 IS  MODECADR 

1 5563  0 TCF  JOBSLEEP 

0 6000  1 MODABORT  TC  ABORT 

01210  0 OCT  1210 


I MU. 


SAVE  DEVICE  INDfX, 

SEE  IF  operation  COMPLETE. 

allowable  STATE';  ARE  +0*  -1*  AND  -0. 

operation  incomplete. 

COMPLETE  AND  GOOD  IF  = -1. 

COMPLETE  AND  FAiLED  IF  -0.  RESET  TO  +0. 
RETURN  TO  CALI  EK. 


MAKE  SURE  INITIAL  SlATE  -1. 

IF  SO*  incremfnt  return  address  and 

RETURN  immediately,  SETTING  CADR  = +0. 
CALL  FROM  SW1tCf.ABLf  FIXED  ONLY. 


TWO  PROGRAMS  USING  SAME  DEVICE. 


48895^A  YJL  SVSiEM  ^ OR  A^C:  NEW  S^ePatIN  BY  eYLes 


L I'-iU  MoDi-  bWlTCHlNO  R&uTINfS 


Posio 

CONSTANTS  FOR  MODE 

S'vi  tching 

routines 

0511 

13*3007 

OOUlA  1 

BITS36A 

OCT 

lA 

05l2 

13  *3oiO 

00050  1 

B1TSA66 

OCT 

00050 

05  1 3 

13*301 1 

0OO70  0 

bit  SA-6 

OCT 

00070 

051A 

REF 

6 LAST  139 

77A6 

imuseflg 

equals 

B1T8 

0515 

13*3012 

70O00  0 

I3*1A*15 

OCT 

70000 

0516 

13*3013 

77300  1 

-COMMAX 

OEC 

-191 

0517 

13*30lA 

77A77  0 

-COMMAX- 

OEC 

-192 

0518 

13*3013 

0007A  1 

600MS 

OEC 

60 

0519 

REF 

1 

A311 

3SECSM 

EQUALS 

3SECS 

0520 

13*3016 

21A50  0 

90SEC 

OEC 

9000 

Dec  1^*  1966  (Main)  page  ias 


USER'S  OWN  PAGp  NO.  2^ 


E3 


interpreter  switch  7 


488954A  YJL  SYSTEM  F UK  AGC : NEK  PKOCiRAM  SHePATIN  BY  EYLES 


dec  U,  1966  (MAIN)  PAGE  1A6 


L A'JTMA^K 


USER'S  OWN  PAGF  NO.  1 


0001 

13*3017 

3ANK 

13 

0002 

REF 

2 

LASl 

55 

E3 

ebank= 

A0TA7 

0003 

13.3017 

0 0004 

0 

adtmark 

INHINT 

0004 

REF 

22 

LAST 

144 

13.3020 

54  O71 

0 

IS 

RUPTREG2 

0005 

REF 

2 

LaSI 

86 

13.3021 

1 D 373 

1 

CCS 

MARKST  AT 

0006 

13.3022 

0 3024 

1 

TC 

+ 2 

0007 

REF 

1 

13.3023 

0 3027 

1 

TC 

MKVAC 

0008 

REF 

13 

LAST 

134 

13.3024 

0 4(44 

1 

TC 

ALARM 

0009 

13.3025 

D0i05 

0 

DCT 

00105 

0010 

REF 

5 

LAST 

89 

13.3026 

0 5605 

1 

TC 

ENDOFJOB 

0011 

REF 

3 

LASl 

87 

13'3027 

ID  431 

0 

M<VAC 

CCS 

VAClUSE 

0012 

REp 

1 

I3.303O 

0 3043 

0 

TC 

MKVAcfNd 

0013 

REF 

2 

LAST 

85 

I3.303I 

ID  505 

0 

CCS 

VAC2USE 

BITU=INFLIGHT  0 = N0NFLIGHT 
ARE  MARKS  BUTTONS  IN  USE 
MARKS  buttons  NOT  AVAILABLE 
FIND  A VAC  AREA 


OOIA  REF  2 LASl  1A6  13 

0015  REF  2 Last  85  13 

0016  REF  3 LAST  1A6  13 

0017  REF  2 LAST  85  13 

0018  REF  A LAST  1A6  13 

0019  REF  2 LASl  85  13 

0020  REF  5 LAST  1A6  13 

0021  REF  2 Last  lAA  13 

0022  13 


3032  0 3^43  0 TC 

303S  ID  561  1 CCS 

3G3A  0 3^43  0 1C 

3035  ID  635  0 CCS 

303S  0 3D43  0 TC 

3037  ID  ai  1 CCS 

3040  0 3D43  0 TC 

3041  0 tjooo  1 rc 

3042  D1207  0 DCT 


MKVACFND 

VAC3USE 

MKVACFND 

VAC4USE 

MKVACFND 

VAC5USE 

MKVACFND 

ABORT 

01207 


0023 

REF 

10 

LAST 

144 

0024 

REF 

3 

LAST 

146 

0025 

REF 

27 

LASl 

144 

0026 

REF 

1 

0027 

REF 

4 

LAST 

146 

0028 

0029 

rEf 

23 

LAST 

146 

0030 

REF 

5 

LAST 

146 

0031 

REF 

1 

0032 

ref 

3 

lAsi 

81 

00325 

ReF 

3 

LAST 

146 

13»304S 

13i304A 

13.3045 

13.3046 

13.3047 

13.3050 

13.3051 

13.3052 

13.3053 

13.3059 


6 7(54 

0 

M<VACFND  AD 

Two 

54  373 

1 

TS 

MARKSTAT 

3 7(61 

0 

CAF 

ZERO 

54  379 

0 

T S 

XYMARK 

5D  373 

0 

INDEX 

MARKSTAT 

53* (77 

0 

IS 

0 -1 

3 OO7I 

1 

CA 

RUPTREG2 

26  373 

1 

ADS 

MARKSTAT 

3 50(1 

1 

CAF 

Pkl032 

0 5523 

0 

TC 

NOVAc 

t3 

ebank= 

AOT  AZ 

0033 

COO33  REF  1 

0034  REF  10 


13 

13 

LAST  144  13 


3055  D3O66  1 

3056  26003  0 

3057  0 2043  1 


2CADR  GETMKS 
TC  MODFFXn 


0035 

0036 

0037 

REF 

ref 

REF 

D r c 

28 

6 

76 

LAST 

LAST 

last 

146 

146 

144 

13.306° 

13.3061 

13.3062 

003  8 
0039 

K ir 

77 

Las  r 

146 

13. 3063 

13.3064 

0040 

REF 

4 

LASl 

134 

13.3065 

3 7(61  0 M<R£LEAS  CAF  ZERO 

55  373  0 XCH  MARksIAT 

ID  000  0 CCS  A 

5D  Ooo  1 INDEX  A 

54  Ooo  0 TS  0 

0 5237  1 TC  SwRFTURN 


VAC  areas  OCCUPIED 


INITIALIZE  mark  ID  REGISTER 
SHOW  VAC  occupied 


SET  mARKsIAT  ZFRO 


SHOW  VAC  AREA  AVAILABLE 


48895^A  YJL  SYSieM  FOK  AGC:  PRO'^^AVt  S^ePAtIN  3Y  eYLeS 


OOAl 

00A2 

00A3 

OOAA 

OOA5 

0046 

0047 

0048 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 

0058 

0059 

0060 
0061 
0062 

0063 

0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

007A 

0075 

0076 

0077 

0078 

0079 

0080 

0081 

0082 

0083 

0084 

0085 

0086 


aotmark 


REF 

29 

LAST 

146 

REF 

2 

LAST 

146 

REF 

13 

LASl 

140 

REF 

7 

LAS  i 

146 

REF 

T8 

LAST 

146 

REF 

1 

REF 

3 

LAST 

120 

REF 

8 

LAST 

147 

REF 

4 

LAST 

147 

REF 

9 

last 

147 

REF 

1 

REF 

1 

REF 

1 

REF 

1 

K zF 

1 

REF 

2 

LAST 

146 

REF 

3 

LAST 

147 

REF 

13 

LAST 

140 

ref 

10 

LAST 

147 

. REF 

79 

LAST 

147 

REF 

1 

REF 

5 

LAST 

1 47 

REF 

11 

last 

1A7 

REF 

80 

LAST 

147 

REF 

1 

13 

13 

13 

13 

13 

13 

13 

13 

13 

13 

13 

13 

13 

13 

13 

13 

13 

13 

13 

13 

13 

13 

13 

13 

13 

13 

13 


3066 

3067 

3070 

3071 

3072 

3073 

307A 

3076 

3076 

3077 
3 i OO 

3101 

3102 

3103 
310*+ 
3106 
3106 
310^ 


3 7^61  0 
54  374  0 

3 7/AO  0 
7 0373  1 
13  000  0 

0 3102  1 

4 7^A3  1 
7 0373  1 

6 7(^3  0 
54  373  1 
3 3427  0 

0 3^03  0 

3 3603  1 
0 4t>46  1 
0 4611  0 
0 4464  0 
0 3^67  0 
0 3>367  0 

3 7/44  1 

7 0373  1 
13  OOO  0 

0 3115  1 
0 3121  0 

3 7^43  0 
7 0373  1 
13  Ooo  0 

0 3127  0 


GETMKS 


M<VB53 


M<CHtK 


CAF 

rs 

CAF 

'1AS< 

CCS 

TC 

CS 

viASK 

AD 

TS 

CAF 

TC 

CAF 

TC 

TC 

TC 

TC 

TC 


CAF 

^Ask 

CCS 

TC 

TC 

CAF 

MASK 

CCS 

TC 


REF 

14 

Las  r 

lAb 

REF 

1 

REF 

REF 

12 

LAST 

147 

147 

I3 

Last 

REF 

4 

LAST 

147 

3121 
3 I 22 

3123 

3124 
3126 
3126 


0 4T44  1 
30111  0 
4 5661  1 
7 0373  1 
64  373  1 
0 3O66  1 


MKALARM 


TC 

OCT 

CS 

mask 

TS 

TC 


R;F  5 LAS'  85  13*3l27  4 7^42  0 GETDLT  CS 

REF  14  LA51  147  13,3130  7 0373  1 MASK 

REF  6 LAST  147  13,3131  6 7^42  1 AD 

REF  15  LAST  147  13,3132  54  373  1 75 

ref  1 13,3133  3 36OI  0 DETVb21  CAF 

REF  2 LAST  147  13,3134  0 4646  1 TC 

REF  2 LAST  147  13,3136  0 4464  0 TC 

REF  1 13,3136  0 3I33  0 TC 

REF  2 last  147  13,3137  0 3l33  0 TC 


REF  1 
REF  1 

R-F  81  LAST  147 
REF  3 last  147 


13.3140  4 6301  1 CS 

13.3141  7 0374  0 MASK 

13.3142  10  OOO  0 CCS 

13.3143  0 3I33  0 TC 
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USER'S  O^N  pAgf  no.  2 E3 

ZERO 

XYIMARK 

B1T14 

MARKS! AT 

A 

FIND  IF  IN-FLIGHT  OR  NON-FLiGHT 

MK1/B53 

BITll 

MARKSTAT 

BITll 

MARKSTAT 

IN-FLIGHT 

NON-FLIGHT,  SFT  Y MARK  =1 

VB51 

REUUest  X MARK 

+ 2 

VB53 

NVSRWAIT 
flashon 
blMDIDLE 
GETMKS  +1 
GtTMKS  +1 

request  X AND  Y MARKS 

BlTlO 

markstat 

A 

WAS  X MARK  MADE 

+ 2 

MKALARM 

BITll 

MARKSTAT 

A 

X MARK  MADE-LOOk  AT  Y MARK 

getdet 

BOTH  MARKS  MADE-SHOt>,  aCCEPT-gET  DLTENT 

ALARM 

IF  either  mark  tS  Missing  after  enter 

111 

PRIOU 

MARKSTAT 

markstat 

SET  BITS  10,11,12,13  TO  ZERO  IN  MARkSTAT 

GETMKS 

GETMKS  AGAIN 

B1T12 

markstat 

61112 

MARKSTAT 

V2IN43E 

NVSBWAIT 

ENDIDLE 

DET\/B21 

DETVR21 

SET  BIT12=1  TO  aHOW  MARKS  ACCEPTED 

0CT3 

DETCODE 

A 

DET\/B21 

BAD  CODE,  REQUEST  AGAIN 

't88954A  YJL  SYS|£M  f- OR  AGC : Niew  PRO^RA'^  SHEPArlN  3Y  eYLeS 


0087 

0088 

0089 

0090 

0091 

0092 

0093 
0099 

0095 

0096 

0097 

0098 

0099 

0100 
0101 
0102 
0103 
0109 
0105 


01051 

01052 

01053 
01059 

01055 

01056 

0106 

0107 

0108 

0109 

0110 

0111 

0112 

0113 

0119 

0115 

0116 

0117 

0118 

0119 

0120 
0121 
0122 
0123 

0129 


AOTMARK, 


REF  9 LAST  197 
REF  2 LAST  197 
REF  2 LAST  197 
REF  82  LAS'i  197 

REF  5 LAST  198 


REF  1 

REp  16  last  197 

REF  1 

REF  3 LAST  198 

REF  1 

REF  2 last  198 

REF  8 LASi  198 

REF  9 LAST  196 

REF  3 last  198 


REF  5 last  196 

REF  5 last  198 

REF  6 last  198 

REf  9 last  198 


REF 

19 

LAST 

197 

R EF 

17 

last 

198 

REF 

83 

LAST 

198 

REF 

1 

R :.F 

1 

REF 

1 

REF 

3 

LAST 

197 

REF 

3 

LAST 

197 

REF 

2 

LAST 

198 

REF 

3 

LAS  1 

198 

REF 

2 

LAST 

198 

REF 

18 

LAST 

198 

REF 

5 

LASI 

198 

REF 

1 

D r c: 

6 

LA  b 1 

198 

REF 

2 

LAST 

198 

REF 

7 

LAST 

198 

13*319A  0 3J-97  0 TC 

13.3193  0 3l96  1 TC 

13.3196  0 3i33  0 TC 

13.319?  3 6301  0 CAF 

13.3156  7 0379  0 iTASK 

13.3151  13  O'OO  0 CCS 

13.3152  0 3I59  1 TC 

13.31 53  0 3I33  0 TC 

13.315A  3 5360  1 CAF 

13.3155  7 0373  1 v|AS< 

13.3156  59  002  1 TS 

13.3157  53  379  1 index 

13.3160  3 1^*71  1 CA 

13.3161  53  002  0 INDEX 

13.3162  59O110  TS 

13.3163  53  379  1 INDEX 

13.316A  3 1^66  1 CA 

13.3165  53  002  0 INDEX 

13.31  66  59  Oj.0  1 TS 

13*316^  3 1970  0 CA 

13.3170  0 0006  1 EXTEND 

13.3171  5 0379  1 INDEX 

13.3172  21  *966  0 1ISU 

13.3173  53  002  0 INDEX 

13.3I7A  59  012  0 TS 

13.3176  3 7?90  0 CAF 

13.3176  7 0373  1 vlASK 

13.3177  13  000  0 CCS 

13.3200  0 3320  1 TC 

13.3201  0 3202  1 TC 

13.3202  3 3502  0 RaTVB29  CAF 

13.3203  0 9696  1 TC 

13.3209  0 9969  0 TC 

13.3205  0 3202  1 TC 

13.3206  0 3202  1 IC 

13.3207  3 5360  1 CAF 

13.3210  7 0373  1 MASK 

13.3211  59  002  1 TS 

13.3212  3 0392  1 CA 

13.3213  50  002  0 INDEX 

13,3219  59  003  0 IS 

13.3215  3 0393  0 CA 

13.3216  50  002  0 INDEX 

13.3217  59  005  0 TS 
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USER'S  OiYN  PaGF  no.  3 E3 

+ 3 
+ 1 

LOOKS  GOOD  BUT  fOULD  BE  ZERO 

DETVB21 

OCT3 

DETCODE 

SEE  IF  ZERO 

A 

+ 2 

DETVR21 

GOOD  CODE-STORE  ANGI ES 

ZERO-BAD  CODE-RrOUEST  AGAIN 

LUM9 

MARkSTAT 

BASVAC 

DETCODE 

AOTFL  -1 
BASVAC 

STORE  VAC  AREA  fiDDRpSS 

9U 

DETCODE 

AOTAZ  -1 
BASVAC 

STORE  ELV  ANGLE  IN  VAC  *9 

8U 

STORE  AZIMUTH  IM  VAC  +8 

AUTAZ  +1 

DETCODE 

AOTAZ  -1 

COMPENSATION  FOR  THf  APPARENT  TILT  OF 

AOT  field  Op  vlFw  In  THE  LEpT  A ;D  RIqHT 

DETENTS  IS  STORfD  IN  LOC  lOD  OF  VAC 

IN  ONES  complement 

BASVAC 

lOD 

SINGLE  PREC.  Til  T COMPENSATION  ANGLE 

BIT  19 

MARKSTAT 

A 

in-flight  or  non-flight 

MKOUT 

RuTVB29 

IN-FLIGHT,  NO  MnRE  DATA  NEEDED 

NON-FLIGHT,  GET  ROTATION  ANGLES 

V29N92E 

NVSBWAIT 

EimDIDLE 

R0TVR29 

ROT  VB29 

REOUEST  RETICLE  ROTATION  ANGLES 

LOW9 

MARKSTAT 

BASVAC 

DSPTFM2 

YROT 

BASVAC 

3 

DSPTEM2  +1 
BASVAC 

STORE  Y RETICI  E ROT  ANGLE  IN  VAc  +3 

SROr 

5 


STORE  SPIRAL  ROT  ANC.LE  VAC  +5 
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L 

0125 

aotmark 

REF  3 

LASt 

148 

13*322° 

0126 

1 V 

LA5I 

148 

13*3221 

0127 

REF 

20 

LAST 

149 

13*3222 

0128 

13*3223 

0129 

REf 

19 

LAsr 

144 

13*322A 

0130 

REF 

16 

LAST 

140 

13*3226 

01305 

REF 

7 

LAST 

1 48 

0131 

13*322^ 

C0131 

REf 

1 

1 3 * 322  7 

0132 

REF 

6 

LAST 

146 

13*323° 

3 5360  1 M<OUT  CAF  L0W9 

7 0373  1 MASK  MARksYAT 

6A  373  1 TS  MARKSrAT 

0 OUOA  0 INHINT 

3 7^55  V CAf  OImE 

0 5Y01  1 1C  WAITLIST 

E3  EBANK=  AOTAZ 

03'^31  1 2CADR  ENDMARKS 

20003  0 

0 5605  1 TC  ENDOFJOB 


0133  REF  20  LAST  1A9  13«323l  3 7^55  1 E’^DMARKS  CAF  ONE 

013A  REf  3 last  143  13,323^  1 2^31  1 TCF  GOOdFND 
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SET  HIS  ZERO 


YJL  SYSTEM  FOR  AGC;  MEW  PROGRAM  SHePATIN  BY  EYLES 


dec  n,  1966  (MAIN)  PAGE  150 


L ADTMARK 


USER'S  OWN  PAGr  NO.  5 E3 


0135 

0136 

0137 

0138 

0139 
OUO 
OlAl 

0142 

0143 

0144 

0145 

0146 


0147 

0148 

0149 

0150 

0151 

0152 


REF 

2 

LAST 

90 

REF 

3 

LAST 

124 

REF 

1 

REF 

6 

LAST 

124 

150 

REF 

2 

LAST 

REF 

7 

LAST 
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REF 

3 

LAST 

150 

REF 

3 

LASI 

74 

REF 

4 

LAST 

150 

REF 

33 

LAST 

142 

ref 

2 

LAST 

92 

REF 

1 

R C.F 

1 

REF 

64 

LAST 

148 

REF 

1 

54  ^16  1 
3 OO33  1 
54  065  0 
3 OO34  0 
54  067  1 
3 OO32  0 

54  O71  0 
0 OOO6  1 
3 0025  0 
52  064  1 

55  002  0 
54  012  0 

3 3477  0 
0 0O06  1 
02  016  1 
ID  Ooo  0 
0 3‘^55  0 
0 3305  1 


MaRkRUPT  TS 
CA 
IS 
CA 
IS 
CA 
TS 

EXTEND 

DCA 

DXCH 


XCH 
1 S 

CAP 

EXTEND 

RAND 

CCS 

1C 

TC 


BAN<RUPT 

CDUY 

RUPTSTOR  +2 
CDU7 

RUPTSTOR  +4 
CDUX 

RUPTSTOR  +6 

T1MF2 

RUPTSTOR 

Q 

ORUPT 

OCT34 

NAVKEYIN 

A 

+ 2 

SOMFKEY 


STORE  CDU  DATA  AND  TIME  IN  TEMP 


SEE  IF  X OR  Y Mark  OR  MKReJECT 


ITS  A LIVE  ONF-THECk  FOR  ACCEPT 
SOME  OTHER  KEY 


0153 

REF 

7 

LASi 

147 

0154 

REF 

2 1 

LAS' 

149 

0155 

REF 

■8  5 

LAST 

150 

0156 

REF 

4 

LAST 

123 

0157 

REF 

22 

Last 

150 

0158 

ref 

1 

0159 

REF 

1 5 

LhST 

147 

0160 

0161 

REF 

5 

LASi 

150 

0162 

REF 

6 

last 

133 

0163 

0 1 64 

REF 

2 

Last 

150 

0165 

REF 

86 

last 

1 50 

0166 

0167 

REF- 

REF 

1 

12 

last 

137 

13.3255 

3 7?42 

1 

CAF 

B1T12 

13.3256 

7 0-573 

1 

mask 

MARksTAT 

13.325? 

ID  Ooo 

0 

CCS 

A 

13. 3260 

0 5?51 

1 

TC 

RESUME 

13.3261 

ID  573 

1 

CCS 

MARKSTAT 

13.3262 

0 i‘^bb 

0 

TC 

findkey 

13.3263 

0 4 144 

1 

TC 

ALARM 

13.3264 

D0il2 

0 

DCT 

112 

13.3265 

0 5?51 

1 

TC 

RESUME 

13.32  66 

3 7?51 

0 FINDKEY 

CAF 

BITS 

13.326? 

0 OOO6 

1 

extend 

13. 327D 

02  O16 

1 

RAND 

NAVKEYIN 

13.3271 

ID  OOO 

0 

CCS 

A 

13.3272 

D 3433 

0 

TC 

MKRFJ 

1 3 .3273 

3 7 ?52 

c 

CAF 

B I T 4 

0168 

0169  REF 

0170  REF 

0171  REF 

0172  REF 

0173 

0174  REF 

0175  REF 

0176  REF 

0177  REF 

0178 

0179  REF 


3 LASi  150 

87  Last  150 
1 

1 

4 LASr  150 

88  LAST  150 
1 

1 

5 LAST  150 


3274 

327P 

327P 

327? 

33OO 

3301. 

3302 

3303 

3304 

3305 

3306 

3307 


0 0O06  1 
02  016  1 
ID  000  0 
0 3323  0 
3 7T53  1 
0 OOO6  1 
02  016  1 
ID  000  0 
0 3317  1 
3 3500  1 
0 0006  1 
02  016  1 


SDMEKEY 


EXTEND 

RAND  NAVKEYIN 
CCS  A 

TC  YMKRUPT 

CAF  BIT3 

EXTEND 

RAND  NAVKEYIN 
CCS  A 

TC  XMKRUPT 

CAF  OCT  140 

EXTEND 

RAND  NAVKEYIN 


HAVE  MARKS  BEEN  ACCEPTED 

MARKS  MADE  AND  ACCEPTED  - DO  NOTHING 
ARE  MARKS  BEING  ACCEPTED 
MARKS  NOT  BEING  ACCEPTED 


CHANNEL  16 

ITS  A MARK  RFJEcr 


ITS  A Y MARK 


ITS  AN  X MARK 

NOT  MARK  UR  MARK  REJECT 
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L ADIMARk 


0180 

0181 


13t33l0  0 0006  1 

13*3311  1 3314  0 


0182  REF  5 LASI  102  13*331^  0 5‘i43  1 

0183  REf  1 13*3313  22  ^4  0 


0184 

0185 

0186 

REF 

REF 

16 

6 

LAST 

LAST 

150 

150 

0187 

REF 

30 

last 

147 

0188 

REF 

29 

LAST 

140 

0189 

0190 

REF 

1 4 

LAST 

147 

0191 

REF 

21 

LASi 

149 

0192 

REF 

30 

LAST 

151 

0193 

REF 

6 

Last 

147 

0194 

REF 

3 

LAST 

147 

0195  REF 

0196  REF 

0197 

0198  REF 

0199  REF 

0200 

0201  REF 

0202  REF 

0203  REF 

0204  REF 

0205 

0206  REF 

0207  REF 

0208 

0209  REF 

0210  REF 

0211  REF 

0212  REF 

0213 

0214  REF 

0215  REF 

0216 


23  LAST  150 
89  last  150 

1 

17  LAST  151 
1 

4 LAST  149 

24  last  151 

17  LAST  140 

5 last  150 

18  last  151 

19  LAST  151 

31  LAST  151 

6 LAST  151 

32  LAST  151 

7 LAST  151 

33  LmSi  151 


331A 

3315 

3316 

331  f 

3320 

3321 

3322 

3323 
332A 

3325 

3326 


3336 

3337 

3340 

3341 

3342 

3343 
334A 

3345 

3346 

3347 

3350 

3351 

3352 

3353 
335A 


0 4^44  1 
00113  1 
0 5'51  1 

3 7^61  0 
54  061  1 
3 7744  1 
0 3326  0 
3 7755  1 
54  061  1 
3 7743  0 
54  37a  0 


7 0373  1 
10  OOO  0 

0 3333  1 
0 3336  1 
0 4744  1 

00114  0 
0 3367  0 

3 5360  1 
7 0373  1 
54  062  1 
0 0006  1 
3 0064  0 
50  062  0 
52  OOl  1 
3 0062  0 
26  061  1 
3 0065  1 
50  061  0 
54  002  1 
3 0067  0 
50  061  0 
54  004  1 


0217  REF  8 last  151 

0218  REF  34  last  151 

0219 


3 OO7I  1 
50  061  0 
54  006  0 


0220 

REF 

6 

LAST 

138 

0221 

REF 

4 

LAST 

151 

0222 

0223 

REF 

25 

LASI 

151 

336° 

3361 

3362 

3363 


3 7741  1 

6 0374  1 

4 OOOO  0 

7 0373  1 


+ 3 

XVIKRUPT 

YMKRUPT 


VACSTOR 
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USER'S  pAGF  NO.  6 


EXTEND 

3ZF 

+ 3 

IF 

NO  INBITS. 

TC 

cadr 

POST JUMP 
DEScrITS 

IF 

DESCENT  BITS. 

TC  ALARM 


OCT 

TC 

113 

RESUME 

CAF 

TS 

zero 

ITEMPl 

CAF 

TC 

CAF 

BlTlO 
+ 4 

ONE 

T S 

CAF 

TS 

I 1 EMP 1 

BITll 

XYMARK 

SET  MARK  ID 

MASK  MARKSTAT 

CCS  A 

TC  +2  MARK  MADE  BUT  NnT  DfSIRED 

1C  VACSTOR  MARK  DESIRED  ANn  MAOE-STORE  CDUS 

TC  ALARM 

OCT  114 

TC  remark  renew  REQUEST 

CAF  L0W9  STORE  TIME  AND  fDUS  IN  VAC  AREA 

mask  MARkSTAT 

IS  ITEMP2 

EXTEND 

OCA  RUPTSTOR 

INDEX  ITEMP2 

OXCH  0 STORE  TIMEl  AND  TIME2  IN  VAC 

CA  ITEMP2 

ADS  ITEMPl 

CA  RUPTSTOR  +2 

INDEX  ITEMPl 

T5  2 

CA  RUPTSTOR  +4 

INDEX  ITEMPl 

TS  4 

CA  RUPTSTOR  +6 

INDEX  ITEMPl 

TS  6 

CAF  BIT13 

AD  XYMARK 

COM 

MASK  MARKSTAT 


E3 
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L A3TMARK 


0224 

REF 

5 

LAST 

151 

13 .3369 

6 0379 

1 

0225 

REF 

26 

LAST 

151 

13. 336^ 

5 9 373 

1 

0226 

REF 

2 

LAST 

151 

13  <3366 

0 3B67 

0 

USER'S  OWN  page  NO.  7 

AD  xYMaRk  set  mark  MADE  BTT  IN  MARkBTATzI 

TS  MARKSTAT  and  set  BIT13  ZfRO  TO  SHOW  MARK 

TC  REMARK  MADE  BEFORE  A RfJECt  - GO  REMARK 


E3 
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L ASTMARK 

0227  REK  31 

0228  ref  1 

0229  ref  7 

0230  REF  27 

0231  REF  90 

0232 

0233  REF  7 

023A  REF  2 

0235  REF  15 

0236  REf  28 

0237  REF  91 

0238  REF  1 

0239  REF  9 

02A0  REF  3 

0291  REF  2 

0292  REf  a 

02925  REF  8 

0293 

C0293  REF  1 

0299  REF  6 

0295  REF  3 

0296  REF  98 

0297  REF  7 

0298  REF  99 

0299  REF  1 

0250  REF  i 

0251  REF  2 

0252  REF  1 

0253  REF  50 

0259  REF  1 

0255  REF  2 

0256  REF  2 

0257  REF  1 

0258 

0259  REF  3 

0260  REF  3 

0261  REF  7 

0262  REF  15 

0263  REF  29 

0269  REF  92 

0265  REF  1 

0266  REF  16 

0267  REF  30 

0268  REF  93 

0269  REF  1 

0270  REF  1 


LAST  151  13 

13 

LAST  151  13 

LAST  152  13 

LAST  151  13 

13 

LASl  195  13 

LAST  153  13 

LAST  151  13 

LAsi  153  13 

LAST  153  13 

13 

LAST  119  13 

LASl  153  13 

LASl  196  13 

last  196  13 

LASl  199 

13 

13 

LAST  73  13 

LASl  1*43  13 

LAST  136  13 

LASl  151  13 

LASl  153  13 

13 
13 

LASl  153  13 

13 

LAST  153  13 

13 

last  85  13 

LAST  193  13 

13 
13 

LAST  153  13 

LASl  153  13 

LASl  199  13 

LASl  198  13 

last  153  13 

LAST  153  13 

13 

LASl  153  13 

last  153  13 

last  153  13 

13 
13 


3367  3 7^61  0 

3370  59  U73  1 

3371  3 7^93  0 

3372  7 0373  1 

33  73  10  OOO  0 

337*+  0 3^77  1 

3375  3 7^96  0 

3376  59  LI73  1 

3377  3 7799  1 

3900  7 0373  1 

3901  10  000  0 

3902  0 3AO5  0 

3903  3 7797  1 

3909  26  O73  1 

3905  3 5R7I  1 

3906  0 5R23  0 

E3 

3907  03915  1 

3910  26O03  0 

3911  3 OU73  0 

3912  50  069  0 

3913  59  I99  1 

391A  0 5151  1 

3913  10  199  1 

3916  0 3A2I  0 

3917  3 3509  0 

3920  0 3^23  1 

3921  3 3505  1 

3922  6 OI99  0 

3923  59  113  0 

3929  3 0327  1 

3925  59  I59  0 

3926  0 9936  1 

3927  O5IOO  0 

3930  3 OT59  1 

3931  59  327  0 

3a32  0 56O5  1 

3933  3 7790  0 

3939  7 0373  1 

3935  10  000  0 

3936  0 3999  0 

3937  3 7799  1 

3990  7 0373  1 

3991  10  000  0 

3992  0 3966  0 

3993  0 3950  0 


REMARK  CAF- 
FS 
CAF 
MASK 
CCS 
TC 
CAF 
TS 


CAF 

MAsk 

CCS 

TC 

CAF 

ADS 

M<JOb  CAF 
TC 

ebank 

2CADR 

CA 

INDEX 

TS 

TC 


CHANGVB  CCS 
TC 
CAF 
TC 

SHOWVB  CAF 
AD 


TS 

CA 

TS 

TC 

V351  OCT 

CA 
TS 
TC 

M<RtJ  CAF 

MASK 
CCS 
TC 
CAF 
MASK 
CCS 
TC 
TC 
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USER'S  OWN  PaGF  no.  6 E3 

ZERO 

mkdex 

BlTll 

MARKSTAT 

A 

MKDEX=0 

LOOK  A Y MARK 

+ 3 

6118 

MKDFX 

Y mark  MADE 

Y MARK  required 

B1 1 10 

MARiCSl  at 

A 

MKJOR 

LOOK  AT  X MARK 

B1T7 

MKDEX 

X MARK  required 

PR1032 

NUVAc 

AOT  AZ 

CHANG\/B 

RUPTREG9 

LUCCTR 

MPAC 

RESUME 

MPAC 

SHOW VB 
\/B21N30E 
SHOWVB  +2 
VB50 

MPAC 

ENTER  JOB  TO  pA^TE  VERB 

NVTEMP 

CADR5T0R 

LOC 

NVSUR  +3 

NVSUB  clobbers  tHis-use  loc  as  temp 

5100 

LOC 

CADRSTOR 

ENDOFJOB 

RESTORE  CADRSTOr 

B1T19 

markstat 

A 

IN-FLIGHT  OR  NON-FLIUHT 

Rejin 

Bl  TlO 
MARKSTAT 

A 

IN-FLIGHT 

non-flight.  SFE  if  X MARK  MADE 

REJFCT2 

REJALARM 

XMARK  MADE-REJEfT  IT 

X mark  not  made_alaom_no  marks  tO  REJ 

488954A  YJL  system  f- OR  AGC:  NEW  PROiiRAM  Sf^EPATlN  3Y  EYLES 
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0271 

0272 

0273 
027A 

0275 

0276 

0277 

0278 

0279 

0280 
0281 
0282 
0283 
028A 

0285 

0286 

0287 

0288 

0289 

0290 

0291 

0292 

0293 

0294 

0295 

0296 

0297 

0298 

0299 

0300 

0301 

0302 

0303 

0304 

0305 

0306 

0307 

0308 


A31MARK 


USER'S  OWN  PAGE  NO-  E3 


REF  1 

REF  31  last  153 
REF  94  LAST  153 
REF  1 

REF  18  last  151 

REF  2 LAST  153 
REF  7 LAST  151 
REF  32  LAST  154 
REF  8 LAST  154 
REF  33  LAST  154 
REF  9 LAST  154 
REF  95  LAST  154 
REF  3 LAST  154 


13,344a  3 5950  1 Rejin  caf 

13.3448  7 0373  I MAS< 

13.3449  ID  000  0 CCS 

13,344?  0 3^53  0 TC 

13.3450  0 4?44  1 REJALARM  TC 

13,3451-  D0T15  1 DCT 

13.3452  0 3'*66  0 TC 

13.3453  4 7?41  0 REJECT  CS 

13,345A  7 0373  1 MASK 

13,3458  6 7(41  1 AD 

13,3456  56  373  0 KCH 

13,345?  7 7?4l  0 MASK 

13.3460  ID  OOO  0 CCS 

13.3461  D 3^66  0 TC 


PRIO3 

MARK5TAT 

A 

REJFCT 

ALARM 

115 

REJFCT2 

BIT13 

MARKSTAT 

BIT13 

MARKS! AT 

B1T13 

A 

REJFCT2 


REF 

6 

LAST 

152 

REF 

34 

LAs  T 

1 54 

REF 

35 

LAST 

154 

REF 

3 

LAST 

152 

REF 

2 

LAST 

154 

REF 

36 

last 

154 

REF 

3 7 

LAST 

1 54 

REF 

16 

last 

153 

REF- 

96 

LAST 

154 

REF 

4 

LAST 

154 

REF 

8 

LAST 

153 

REF 

38 

LAST 

154 

REF 

5 

LAS; 

154 

13.3462  4 0374  0 

13.3463  7 0373  1 
13,346^  54  373  1 
13,3468  D 3367  0 


CS  XYMARK 

mask  MARkSTAT 

T5  MARKSTAT 

TC  remark 

CS  PRI03 

mask  MARKSTAT 

XCH  MARKSTAT 

MASK  BIT14 

CCS  A 

TC  remark 

CAF  BITII 

ADS  MARKSTAT 

TC  remark 


13*3466  4 5650  0 REJECT2 

13,3467  7 0373  1 

13.3470  56  373  0 

13.3471  7 7?40  1 

13.3472  ID  UOO  0 

13.3473  0 3367  0 

13,347A  3 7?43  0 

13,3478  26  873  1 

13,3476  0 3367  0 


REF  4 LAST  144 

13,347? 

,3500 

13.3501 

13.3502 

13.3503 

REF  7 LAST  153 
REF  7 last  154 


6301 

0CT3 

EQUALS 

THREE 

D0034  0 

0CT34 

DCT 

00034 

D0140  1 

OCT  140 

DCT 

00140 

D2I43  0 

V21N43E 

DCT 

2143 

02442  1 

V24N42E 

DCT 

2442 

D5300  1 

VB53 

DCT 

5300 

0073 

MKDEX 

EQUALS 

RUPTREG4 

0374 

DETCODE 

EQUALS 

XYMARK 

REF  34  LAST  150 


0002  BASVAC  EQUALS  Q 

13,3504  D2I3O  1 V321N30E  DCT  2130 

13,3508  D5O0O  1 VB50  DCT  5000 


WERE  IN-FLIGHT  mARKS  MADe 


MARKS  MADE-RFJEtT  ONE 

NO  MARKS  HADE  Tn  REJECT-GET  MARkS 


SHOW  MKREJECT  An,D  SfE  MARK  MADE 
SINCE  LAST  REJECT 


ANOTHER  REJECT 

MARK  MADE  SJNCE  LAST  REJECT-REJfCT  IT 

GO  REuUEST  MARKa 

NO  MARKS  SINCF  I AST  REJECT  SO  SpT 
MARKSTAT  TO  WANT  X AND  Y mARKS 

IN-FLIGHT  OR  IviOm-FLIGHT 

IN-FLIGfTT,  GO  GfT  MARKS 
NON-FLIGHI,  STII  L RhOUEST  X MARK  ONLY 

GO  GEI  X MARK 


48895A/^  YJL  bV5'E.M  F-Oft  AGC:  Ntw  Pro‘^9(\'1  SHIlPaTin  BY  EYLE.S 


OEc  U»  1966  (MAIN)  PAGE^  155 


LoOOl  RADA^  LlAU-1N  RoUTlNbG 


USbR'5  OWN  PAOi;  NO.  i 


0001  4312  BLOCK  02 

0002  REF  1 E3  EBANK=  RRRFT 


R0003  rHf  EOLLOWING  bUHRUJfiMb  RtTURi'iS  TO  CALLER  + 2 IE  THE  ABSOLUTE  VALUE  OF  C(A)  I A cReATER  THAN  THE 

R0005  negative  OF  THE  nUMBER  AT  CAl.Eh  *1.  OTHERWISE  iT  RETURNS  TO  CALLER  +3.  MAY  BE  CALLED  Im  rUPT  OR  UnDLR  FXEC, 


0007 

4312 

0 0U06 

1 MAGSUB 

EXTEND 

0008 

4313 

6 4315 

1 

3ZMF 

+ 2 

0009 

431A 

1 4316 

0 

TCF 

+ 2 

0010 

4315 

A OUOO 

0 

COM 

0011 

REF 

35 

LAST 

154 

4316 

50  U02 

0 

INDEX 

0 

0012 

431Y 

6 OUOO 

1 

AD 

0 

0013 

4320 

0 0006 

1 

EXTEND 

0014 

REF 

3 

LAST 

67 

4321 

6 7OIO 

1 

3ZMF 

0 + 2 

0015 

REF 

2 

LAST 

67 

4322 

1 7OO6 

1 

TCF 

0+1 

ABS(A)  LEQ  constant 
ABS(A)  G constant 


488954A  YJL  5Y5itM  f-OR  AGC:  Nttv  PROGRAM  SH^PatIN  BY  eYLfS 


LOOOl  RaDaS  Lk-AD-IN  RoUllNtS 

PqoiR  THf  EOLLOWIInio  SUBRUJ|iNE  CHeCKS  RR  GIMBaL  ANGLeS  TO  See  If"  THeY 

R0021  calling  5eQ.!ENCE  IS  AS  EoLLO/IS: 

A0022  TC  RRLTMCHK 

A0023  AdRES  T,S 

R002A  RETURN  IS  fO  CALLeR  +2  iL'NOT  IN  LIMITS  AND  TO  CALLeR  +3  IE  So. 


0025 

REF 

36 

LAS1 

155 

0026 

0027 

37 

LAST 

REF 

156 

0028 

0029 

REF 

97 

LAST 

15A 

0030 

0031 

REF 

35 

LAST 

151 

0032 

REF 

38 

Last 

156 

A323 

50  U02 

0 

RRLTMCHK  INDEX 

0 

A32A 

3 OOOO 

1 

CAF 

0 

A325 

2A  002 

0 

INCR 

0 

A326 

0 oooe 

1 

EXT  END 

A327 

5 0000 

1 

INDEX 

A 

A33O 

3 OOOl 

0 

OCA 

0 

A33I 

52  062 

1 

OXCH 

I TEMPI 

A332 

22  002 

0 

LXCH 

Q 

0033  RcF  8 LAST  iSO  A333  3 7 ^^2  1 CAE  BIT12 

003A  RzF  lA  LAST  120  A33A  7 OAI3  0 tASk  RADmODES 

0035  REF  98  LAS'  156  A335  10  Ooo  0 CCS  A 

0036  REF  1 A33S  1 A^Sl  0 TCF  M0DF2CHK 


0037 

REF 

36 

LAST 

156 

6337 

0038 

REF 

1 

6360 

0039 

OOAO 

REF 

23 

LAST 

139 

6361 

636II 

3 0061  0 CA  IlEMPl 

0 aS12  0 TC  MaGSUB 

56l6I  1 DEC  -.30555 

0 OOOl  0 1C  L 


0061 

REF 

1 

LAST 

6363 

0062 

REF 

20 

151 

6366 

0063 

REF 

2 

Last 

156 

636S 

0066 

6366 

0065 

REF 

26 

LAST 

1 56 

6367 

0066 

REF 

1 

6350 

3 6363 

0 

CAF 

5.5DEGS 

6 0062 

0 

AD 

I 1 Emp2 

0 6312 

0 

TC 

MAGSUB 

66^20 

0 

DEC 

-.35833 

0 ooo  1 

0 

TC 

L 

0 6361 

1 

TC 

RRLIMOK 

00A7  REF  1 A35l 

00A8  REF  21  LAST  156  A352 

00A9  REF  3 LAST  156  A353 

0050  A35A 

0051  REF  25  LASi  156  A35S 

0052  REF  37  LAST  156  A356 

0053  REF  A LAST  156  A35'^ 

005A  A36U 

0055  REF  26  LAST  156  A36l 

0056  REF  27  LAST  156  A362 

00565  A363 

0057  A36A 

0058  A365 


3 6365 
6 0062 
0 6312 
65673 

0 

0 

0 

MDDE2CHK 

CAF 

AD 

1C 

DEC 

82DEGS 

ITEMP2 

MAGSUB 

-.31667 

0 

0 OOOl 

0 

TC 

L 

3 0O6I 

0 

CA 

I TEMPI 

0 6312 

0 

TC 

MaGSUB 

51615 

1 

DEC 

-.69666 

50  OOl 

0 

RRLIMOK 

INDEX 

L 

0 OOOl 

0 

TC 

L 

OO  '65 

0 

5.5DEGS 

DEC 

.03056 

30  (07 
16''50 

1 

1 

5DEgS 

82DEGS 

DEC 

DEC 

.02777 

.65556 

Dec  13,  1966  (MAIN)  PAGe  156 
USER'S  OWN  PAGF  NO.  2 E3 

are  in  the  liMtts  of  t^e  curreat  Mode. 

(WITH  interrupt  inhibited). 

(IN  uNSwIICHED  F or  current  EBAjK). 

read  oimbal  angi  es  into  itemp  Storage. 


L(CALLER  +2)  to  l. 

SEE  WHICH  MODE  rR  IS  IN* 

MODE  1 IS  defined  AS 

1.  ABS(T)  L 55  DEGS. 

2.  ABS(5  + 6.5  DEGS)  L 6A.5  DEGS 

(SHAFT  I IMITS  AT  +59,  -/O  DEGS) 

S 

6A.5  DEGS 
IN  LIMITS. 

MODE  2 IS  DEFINfD  As 

1.  ABS(T ) G 125  DEGS. 

2.  ABS(S  + >.2  DEGS)  L 57  DEsS 

(SHAFT  I IMITS  AT  -25,  -139  DEGS) 

125  DEGS 

( = TC  1) 

scaled  in  HALF-pEvOI utiuns. 


488954A  YJL  SYS'iEN  FOR  AGC:  NEW  PROGRAM  S^EPATIN  BY  EYLES 
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LOOOl  RADAi^  LEAD-IN  ROUTINES  USER'S  OwN  PAGE  NO.  3 E3 

P0059  IHt  FOLLOWING  ROUTINE  JPDatE-S  THe  tRACICe^  FAIL  LAMP  ON  tHe  DSKY.  IF  eITHeR: 


R006i  1.  N samples  OF  RR  DAI  A LquLD  NO)  BE  OBTAINED  FROM  2N  TRIES 

R0062  2.  N samples  Or  IR  DATA  LojLD  NOT  BE  TAKEN  IN  2N  TRIES  wlTH  EITHER  THE  ALT  OR  \,EL  tNfORmATION, 

ROO6A  3,  RR  CDU  failed  wItHi  RR  IN  AUTO  MODE  AND  RR  CDU  NOT  BEING  ZEROED. 


0066 

REF 

10 

last 

142 

006  7 

REf 

1 1 

LAST 

137 

0068 

REF 

99 

last 

156 

0069 

REF 

39 

LAST 

156 

A366  3 7^55  1 SeTTRKF 

9367  7 0366  0 

9370  13  000  0 

937T  0 0002  0 


CAF  BlTl  NO 

mask  IM0DES33 

CCS  A 

TC  a 


ACTION  IF  DUcING  LAMP  TEST. 


0070  REF 

0071  REF 

0072 

0073  REF 

0079  REF 

0075  REF 

0076 

0077  REF 

0078  REF 

0079  . REf 

0080  REF 

0081  REF 

0082  REF 

0083  REF 
0089 

0085  REF 


1 

15  LAST  156 
1 

16  LAST  l57 
1 

2 LAST  157 

13  LAST  150 

17  last  157 
00  LAST  157 

8 LAST  153 

23  Last  133 

9 LAST  157 

2 last  67 


9372  3 9922  1 

9373  7 0^13  0 

937A  0 0006  1 

9375  1 4905  0 

9376  9 o^'lS  0 

9377  7 9923  1 

9900  0 OOO6  1 

9901  1 9905  0 

99OZ  5 7^52  0 
9903  7 0913  0 

990A  13  000  0 

9905  3 7796  O TRKFLON 

9906  6 0326  0 

9907  7 7796  1 

9910  0 0006  1 

9911  1 7011  1 


CAF 

13*7'2 

SEE  IF  CDU  FATLpD. 

mask 

EXTEND 

3ZF 

radmodes 

TRKFLON 

CONDIT ion  3 AROuE. 

CS 

mask 

radmodes 

8,5 

SEE  IF  LR  FAll En. 

EXTEND 

32F 

TRKFLON 

CONDITION  2 AROwE. 

CAF 

MASk 

CCS 

BIT4 

RAOmODES 

A 

SEE  IF  RR  DATA  FAILED. 

CAF 

AD 

MASK 

BITS 

DSPTAB  +IID 
BlT8 

HALF  ADD  DESIREn  ANn  PRESENT 

extend 

3ZF 

TCQ 

NO  change. 

0086  REF  28  LAST  156  9912  54  OOl  1 TS  L 


INVERT  BIT  8 AND  SET  BIT  15* 


0087  REF  29  LAST  157  9913  3 

0088  9919  0 

0089  REF  29  LAST  157  9915  05 

0090  REF  7 LAST  123  9916  7 

0091  REF  12  LAST  133  9917  6 

0092  REF  25  LAST  157  9920  59 

0093  REF  90  LAST  157  9921  0 


0326 

0 

CA 

DSPTAB 

+ 11D 

OOO6 

1 

1 END 

UOI 

0 

RXOR 

L 

7735 

0 

MASK 

P05MAX 

7737 

0 

AD 

B I T 1 5 

326 

1 

TS 

DSPTAB 

+ 11D 

0002 

0 

TC 

0 

CANT  USE  LxCH  DaPTAr  +11D  (RESTART  PROB) 


0099  4922  10102  0 13»7’2  DCI  10102 

0095  9923  00220  1 8,5  DcT  00220 

0096  9929  ENDRMODF  EQUALS 


^88954a 


UOOOi 

P0097 

0098 

0099 

0100 
0101 
0102 

0103 

0104 

0105 

0106 
0107 
0106 

0109 


YJL  sysiem  f-qk  agc:  ne*^  s^ePatin  by  eYLeS 

RADAR  LtAD-iN  RoUTIhES 

turnon  seQUenoe  to  Zero  the  cdus  and  DtrERMiNE  the  rr  mode. 


10*2000  SANK  10 


REF  1 


REF 

2 

LASI 

129 

157 

REF 

1 1 

LASl 

REF 

18 

LAST 

157 

REF 

19 

LASl 

158 

REF 

REF 

14 

1 

LAS  1 

125 

REF 

REF 

101 

13 

LASl 

LASl 

157 

143 

REF  1 


10, 2000  0 2^13  1 RRTURNON  TC 


10.2001  0 5^17  0 TC 

10.2002  00144  0 OEC 

10.2003  4 7'55  0 CS 

10.2004  7 0413  0 MASK 

10.2005  54  Ai3  o TS 

10.2006  c,  OD74  0 CS 

10.2007  7 0 MASK 

10.2010  10  000  0 CCS 

10.2011  1 5F45  0 TCF 

10*2012  1 3^:41  1 TCF 


RR2FR0SB 

FIXDELAY 

100 

BITl 

RADMODES 

RADM0DE5 

Si  Ate 

RRUSEFLG 

A 

TASKOVER 

ENDRADAR 


Dec  U*  1966  (MAIN)  PA&E  iB® 
USER'S  OWN  PAGp  NO.  4 E3 

WAIT  1 SEC  before  REMOVING  TURN  ON  FLAG 
SO  A monitor  reposition  WONT  ALARM. 

See  if  someone  is  waiting  to  use  the  RR. 

CHECK  RR  CDU  FAlL  BEFORE  EXIT. 


^8895^A  yjL  SYSIEM  fOr  AGC!  NtW  PrOGrAvi  sHtpATiN  3Y  EYLEs 


Uoool  radar  llad-in  Routines 

Polio  CLOSED  SUBROJTInF  TO  ZErU  THE  RR  CDUS. 


0111 

0112 

0113 

0114 

REF 

REF 

2 

12 

LAS’l 

LAS( 

155 

158 

0115 

0116 
0117 

REF 

3 

LAST 

158 

0118 

0119 

REF 

REF 

32 

2 

last 

LAST 

153 

120 

0120 

0121 

0122 

REF 

REF 

1 

22 

LAST 

151 

0123 

0124 

0125 

REF 

4 

LAS! 

159 

0126 

REF 

10 

LAST 

154 

0127 

REF 

20 

LAST 

158 

0128 

REF 

21 

LAST 

159 

0129 

REF 

3 

LAST 

159 

0130 

REF 

5 

LAST 

156 

0131 

0132 

0133 

REF 

33 

LAST 

159 

0134 

0135 

REF 

9 

LAST 

156 

0136 

REF 

22 

last 

159 

0137 

REF 

1 

0138 

REF 

23 

LAST 

159 

0139 

REF 

2 

LAST 

119 

0140 

REF 

3 

LAST 

159 

2013 

2014 

2015 

2016 
2017 
2020 
2021 

2022 

2023 

2024 

2025 

2026 
202? 

2030 

2031 


0 OOO6  1 
23*464  0 
3 7TS5  1 
0 0006  1 
05  012  1 

0 5 T17  0 
00002  0 

3 7Y6I  0 
54  035  0 
54  O36  0 

4 7T55  0 
0 0006  1 
03  012  1 
0 sm  0 

00620  0 


10.2032  4 7^41  0 

10.2033  7 0^13  0 

10.2034  54  413  0 


2035 

2036 

2037 
204O 


3 0035  1 

0 4312  0 
bjm  1 

1 2043  0 


2041 

2042 

2043 

2044 

2045 

2046 


3 7'61  0 
1 2O44  1 
3 7^42  1 
55  413  1 
7 5520  1 
25  413  0 


10 


2047 


0 4366  0 


10 


205O 


0 1464  0 


RRZEROSB  EXTEND 


QXCH 

RRRFT 

CAF 

BlTl 

EXTEND 

WOR 

12 

TC 

FIXDELAY 

DEC 

2 

CAF 

ZERO 

TS 

OPTY 

TS 

OPT  X 

CS 

ONE 

EXTEND 

rtAND 

12 

TC 

FIXDELAY 

DEC 

400 

CS 

BIT13 

MASK 

radmodes 

TS 

RADMODES 

CA 

OPTY 

TC 

MAGSUB 

DEC 

-.5 

ICF 

+ 3 

CAF 

ZERO 

TCF 

+ 2 

CAF 

BIT12 

XCH 

RADMODES 

MASK 

-BIT  12 

ADS 

RADMODES 

T C 

settrkf 

TC 

RRRFT 

REF 


5520  -8IT12  EQUALS  -1/8 


0141 


dec  13,  1966  (mAim)  rAgE  159 


UStR'S  OrtN  PAGf  no. 


E3 


BIT  13  OF  RADMOdES  MUST  BE  SET  BEFORE 
coming -HERE. 


REMOVE  ZEROING  PIT. 


remove  ZEROING  IN  PROCESS  BIT. 


IF  MODE  2. 


tracker  lamp  might  go  on  NOW. 
DONE, 


IN  SPROOT 


488954a  YJL  SY51  eM  (-OR  aGC  : Ne"  PRO'^RA'^  SHePAIIN  3Y  eYLe*^ 


Dec  1^*  1966  (MAIN)  PA^E  l^O 


Loool  radar  LeaD-1N  RoUIINES 

P0142  sequence  of  tasks  To  drive  the  RR  to  a safe  position. 


0143  REF 


10«205l  0 2i06  1 DORRePOS  TC  SeTRRECR 


0144 

REF 

13 

LASl 

159 

10,2052 

0145 

REF 

24 

LASl 

159 

10,2053 

0146 

REF 

102 

LAST 

158 

10,2054 

0147 

10 ,2055 

3 7755 

1 

CAF 

BlTl 

7 0413 

0 

MASK 

RADMODES 

ID  000 

1 2O6O 

0 

1 

CCS 

TCF 

A 

+ 3 

0148  REF 

0149 

0150  REF 

0151 

0152  REF 

0153  REF 

0154  REF 

0155  REF 

0156  REF 

0157  REF 

0158  REF 

0159  REF 

0160  REF 

0161  REF 


19  LAS]  154 
5 last  159 


10  LAST  159 

25  LASl  160 

03  Last  i60 
13  LASr  157 

1 

11  last  160 

26  last  160 

04  LASl  160 
1 

1 


0162  REF 
A0163 

0164  REF 

0165  REF 

0166  REF 

0167  REF 

0168  REF 

0169  REF 

0170 

0171 

0172  REF 


9 LASl  154 

27  LAST  160 

28  LA51  160 
17  LAST  153 

105  last  160 
1 

13  LASl  137 


14  LAST  158 


2053 

2057 

2060 


l,0»2u6l 

10,2062 

10.2063 

10.2064 

10.2065 

10.2066 

10,2067 

10.2070 

10.2071 

10.2072 

10.2073 


10*2074 

10,2073 

10,2073 

10,2077 

10,2100 

10,2101 

10,2102 

10.2103 

10.2104 

10.2105 


0 4(44  1 

00501  0 
0 5(17  0 
00002  0 

3 7742  1 
7 0413  0 
10  000  0 
3 7737  0 

0 2150  1 

3 7742  1 
7 0413  0 
10  000  0 

4 7740  1 
0 2^53  1 


4 7743  1 

7 0413  0 
54  413  0 
7 7744  0 
10  000  0 
1 2422  0 
4 7754  1 
0 0006  1 
03  012  1 

1 5745  0 


reposrpt 


TC 

OCT 

1C 

DEC 

CAF 

MASK 

CCS 

CAF 

TC 

CAF 

MASK 

CCS 

cs 

TC 


CS 


MASK 

is 

MASK 

CCS 

TCF 

CS 

extend 

/lAND 

TCF 


ALARM 

501 

FIXDFLAY 

2 

BiTl2 

RADMODES 

A 

B1T15 

RRTONLY 

BIT12 

RADMODES 

A 

HALF 

RRSONLY 


BITll 

RADMODES 
RADMODES 
B1  TlO 
A 

BEGDFS 

BIT2 

12 

TASKOVER 


0173  REF  14  Last  160 

0174 

0175 


10.2106  3 7754  0 SETRRECR  CAF  B1T2 

10.2107  0 0006  1 EXTEND 

10,2ll0  05  012  1 aOR  12 


0176 

REF 

34 

LAST 

159 

0177 

REF 

4 

LAST 

97 

0178 

0179 

REF 

REF 

4 

41 

LAST 

LmST 

96 

157 

10,21 U 3 7761  0 

10.2112  54  361  1 

10.2113  54  362  1 

10.2114  0 OOO2  0 


CAF  ZERO 

TS  LASTYCMD 

TS  LASTXCMD 

TC  Q 


USER'S  04N  page  no.  6 E3 

SET  UP  RR  CDU  error  COUNTERS. 

DO  AN  ALARM  UNLf-SS  rR  jUST  TURNfD  ON. 


maneuver  trunnion  angle  to  nominal  POS. 


0 FOR  MODE  1 AND  180  FOR  MODE  2. 


NOW  PUT  Shaft  in  rioht  position. 


-90  FUR  MODE  2. 


RETURNS  Here  from  rriaxis  if  remode 
requested  DURINf,  REPOSITION. 
remove  REPOSITION  BIT. 

SEE  IF  SOMEONE  TS  WAITING  TO  DESIGNATE. 


IF  NO  further  AmTENnA  CONTROL  REQUIRED, 
remove  error  COhNTER  ENABLE. 


SET  UP  RR  ERROR  COUNTERS. 


488954A  YJL  5VSIEM  aGC:  NLW  PkO^RA'I  S^ePaTIN  3Y  eYLes 
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LOOOl 

POI8O 

R0182 

R01835 

018A 

0185 

0186 

0187 

0188 

0189 

0190 


0191 

0192 

0193 
019A 

0195 

0196 


0197 

0198 

0199 

0200 

0201 

0202 

02025 

0203 


0209 

0205 

0206 

0207 

0208 
0209 


RADaR  lead-in  ROUIINES  USER'S  Oi>/N  PAGE  NO.  7 E3 

GE  ERAL  REMODING  SUBROUTINE.  DRWeS  TRUnION  rO  0 (l80).  THEN  DRIVES  SHAFT  TO  -45,  AND  FINALLY  DRIVES 
trunnion  TO  -130  (-50)  BeFORe  INITIATING  2-AXIS  CONTROL.  ALL  Re-MODING  IS  DONE  i^ItH  SINc.Le  AXIS  ROTATIONS  (SEE 
RRlAXiS)  . 


REF  12  LAS'i  16O 
REF  29  LAST  160 
REF  106  LAST  160 
REF  19  LAST  160 

REF  2 LASl  160 

REF  1 

REF  2 LASr  160 

REF  30  last  161 
REF  13  last  161 
REF  1J7  LAST  161 
REF  1 
REF  1 

REF  3 last  161 


10.211^  3 T(92  1 REMODE 

10,21  lt>  7 0^13  0 
10,2117  10  000  0 

10,212°  3 7F37  0 

10.2121  0 2150  1 

10.2122  3 2I37  0 

10.2123  0 2I53  1 

10,212A  9 0A13  0 

10,2123  7 7792  0 

10,2128  10  UOO  0 

10,2127  3 2IAI  1 

10.2130  6 2I9O  0 

10.2131  0 2150  1 


CAF  8IT12  DRIVE  trunnion  tO  0 (18O). 

v,AS<  RADmODES  (ERROR  COUNTER  aLREADy  ENABLED) 

CCS  A 

CAF  B1T15 

TC  RRTONLY 

CAF  -95DEG5R 

K RRSONLY 


CS  RADMODES 

^ASK  BIT12 

CCS  A 

CAF  -80DFGSR  GO  TO  T = -130  (-50). 

AD  -50DEGSR 

TC  RRTONLY 


REF  1 10,2132  0 2lA2  1 TC  RMODINV 

REF  i7  LASi  159  10,2133  9 7 FAO  1 CS  BIT19  END  OF  REMOOE. 

REF  31  LASl  161  10,213^  7 0AI3  0 MASK  RADMODES 

REF  32  LAST  161  10,2133  59  A13  0 TS  RADMODES 


REF  1 10,2138  0 2^31  0 TC  STDfSIG  BEGIN  2-AXIS  CONTROL. 

10,2137  7OOOO  0 -95DEGSR  OCT  70000 

10.2190  67070  1 -50eEGSR  oEc  -.27778 

10.2191  61815  1 -80DEGSR  OEC  -.99994 


REF  33  last  161  10*2192  22  A13  1 RMODINV 

REf  14  LASI  161  10,2143  3 7(42  1 

10,2144  0 OOO6  1 

REF  30  LAST  157  10,2145  06  OQl  0 

REF  34  LAST  161  10,2148  54  413  0 

REF  42  LASl  160  10,2147  0 0002  0 


LXCH  RADMODES  INVERT  THE  MODE  STAtUS. 

CAF  BIT12 

EXTEND 

RXOR  L 

TS  RADMODES 

TC  Q 


488954A  yjL  SySlEM  FOR  AgC;  NEW  pROO^Avi  SFitpAT  IN  BY  EyLFS 


1-0001 

P0210 

0212 

0213 

021A 

0215 

0216 


0217 

0218 

0219 

0220 


0221 

0222 

0223 

022A 

0225 

0226 

0227 

0228 

0229 

0230 

0231 

0232 

0233 
023A 

0235 

0236 

0237 


0238 

0239 


02A0 

02A1 

02A2 

02A3 

02itA 

02A5 


02A6 


radar  Lt AD-IN  RoUlINti 


SUBROUT  I (\)ES  Fur  UOl\jj 


REF 

1 

10,215D 

REF 

35 

LASl 

160 

10,2151 

REF 

1 

10,2152 

REF 

2 

LAST 

162 

10*2153 

REe 

2 3 

last 

159 

1 0 , 2 1 5 A 

REF 

1 

10,2158 

10,2158 

ref 

A 

last 

159 

10,2157 

REF 

1 

10,2160 

REF 

6 

LAST 

160 

10,2l6i 

10,2162 

REF 

35 

LASl 

161 

10,2163 

REF 

1 

10,216‘* 

10,2168 

REF 

1 

10,2168 

REF 

3 

LASl 

162 

10 ,216^ 

10,2170 

REF 

2 

LASl 

162 

10,2171 

REF 

A 

LASl 

159 

10,2172 

REF 

A3 

LASl 

161 

10,2173 

10,217^ 

RfF 

1 

10,2178 

REF 

31 

LASl 

161 

10,2178 

REF 

AA 

LASl 

162 

10,2177 

R EF 

6 

LAST 

159 

10,2200 

10,2201 

10,2202 

R8F 

5 

LASl 

162 

10,2203 

REF 

3 

LASl 

162 

10 ,220A 

10,2208 

REF 

32 

last 

162 

10 , 22O8 

REF 

2 

LAST 

20 

10', 2207 

REF 

1 

10,221° 

REF 

1 

10,2211 

10,2212 

SjimGLe  axis  RR  MA|.jEUVErS 


3 7^61 
1 2155 

55*^65 
3 7^55 

55'‘*66 
0 0006 
23*^6A 
1 2i-63 


00062 

A 0A13 
7 5863 


3 l'*65 
0 0006 
5 l'*66 
20  O35 
5A  002 
0 OOO6 
7 2^12 
5A  OOl 
3 0002 
0 a312 
778AA  1 


0 1^6A 


11  •‘♦66  0 


0 

RRTONLY 

IS 

0 

CAF 

0 

T CF 

0 

RRSONLY 

IS 

1 

CAp 

0 

RRIAXIS 

TS 

1 

EXTEND 

0 

QXCH 

0 

TCF 

0 

NXTRRlAX 

TC 

0 

DEC 

0 

RR1AX2 

CS 

0 

MASK 

1 

EXTEND 

1 

3ZF 

1 

CA 

1 

EXTEND 

1 

INDEX 

0 

MSU 

1 

TS 

1 

EXTEND 

0 

MP 

1 

TS 

0 

CA 

0 

TC 

1 

DEC 

1 

TCF 

0 

TC 

0 

wCS 

1 

TCF 

0 

XCH 

1 

DXCH 

0 

T C 

1 

TCF 

1 

RRSPGAIN 

DEC 

FOR  remode 

RDES 

ZERO 

RRIAXIS 

RDES 

ONE 

RRINDEX 

RRRET 
RRl AX2 

FIXDELAY 

50 

RADMODES 

PRI022 

reposrpt 

RUES 

RRINDEX 

OPTY 

Q 

RRSPGAIN 

L 

Q 

MAGSUB 

-.00555 

+ 2 

rrrft 

RRINDEX 

+ 2 

L 

TANG 

RROUT 

NxTRRlAX 

.59062 


Dec  i:<*  1966  (mAIN)  pAge  162 

USeR*S  own  PAGf  no.  B E3 

A^D  rEPOSiIiOim.  DRjVfS  TO  WiTHin  1 DfGREE. 

desired  trunion  angle. 

shaft  commands  aRe  unresolved  Since  this 
ROUTINE  entered  ONly  WH^^N  T = 0 OR  180, 


2 samples  per  SFCONd. 

if  someone  REQUfSTES  as  DeSIGNAiE  which 
requires  a REMODE  AnD  a reposition  is  in 
PROGRESS,  INTERRUPT  IT  AND  START  THE 
REMODE  IMMEDIATfLY, 


SAVE  ERROR  SIGNAL. 

TRIES  TO  null  ,7  OF  ERROR  OVER  .EXT  ,5 
SEE  IF  WITHIN  1 DEGREE. 

SCALED  IN  HAIF-rEVS. 

NO. 

return  to  CALIEf. 

command  for  OTHfR  axis  is  zero. 

SETTING  A TO  0. 


COME  back  in  .5  SECnNDS. 


NULL  .7  ERROR  IN  .5  SEC 


^88954A 


LOOOl 

P0247 

P02A9 

0251 

0252 

0253 
025A 

0255 

0256 

0257 

0258 

0259 

0260 
0261 
0262 
0263 
026A 

0265 

0266 

0267 

0268 

0269 

0270 

0271 

0272 

0273 
0276 

0275 

0276 

0277 

0278 


YJL  System  f-oR  agc:  NEtv  proC'RA'i  sHePatIn  by  eYLes 
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radar  llad-in  Routines  u^eR'S  owN  page  no.  9 e3 

tHe  eollowing  routine  Receives  rr  gyro  commands  in  tang,+i  in  eRRor  counter  scaling,  rrout  limits  them 
AND  GeNlRat[S  Commands  70  tHe  cou  to  adjust  tHe  eRRor  counters  to  tHe  Desired  values,  ri.pt  must  Bf  inhibited. 


REF 

REf 

REF 

REF 

REF 

REF 

REF 

REF 


65 

LAST 

162 

10,2213 

22  002 

0 

RROUT 

LXCH 

Q 

26 

last 

162 

10,221A 

3 7(55 

1 

CAf 

ONE 

22 

08 

LAST 

156 

10,2215 

56  062 

1 

RR0UT2 

TS 

I TEMP2 

LAS  T 

161 

10,2215 

50  OQO 

1 

I ndex 

A 

3 

LASl 

162 

10,2217 

3 0623 

1 

CA 

TANG 

38 

LAST 

156 

10,2220 

56  061 

1 

TS 

ITEMPl 

1 

LAST 

162 

10,2221 

0 6312 

0 

TC 

MaGSUB 

1 

10,2222 

10,2223 

77I77 

1 2261 

0 

0 

-RRLIMIT 

DEC 

TCF 

-386 

RROUTLIM 

REF  39  last  163 
REF  23  last  163 
REF  5 LAST  160 

REF  60  LAST  163 


10,222A  3 0061  0 SeTRRCTR  CA 


10,2225  50  062  0 INDEX 

10,2225  5b  561  0 XCH 

10,222T  6 OOOO  0 COM 

10,2230  6 0061  0 AD 


I TEMPI 
ITEMP2 
LASTYCMD 

ITEMPl 


REF  26  last  163 
REF  2 LASl  96 


10.2231  50  062  0 

10.2232  56  053  0 


INDEX  1TEMP2 
IS  OPTYCMD 


Rtf  25  last  163 
REF  1 


10  062  1 
1 2215  1 


CCS  ITEMP2 

TCF  RR0UT2 


REF  1 


REF 

33 

LAST 

162 

REF 

61 

LAST 

163 

REF 

1 

REF 

2 

LAST 

163 

REF 

62 

LASl 

163 

REF 

1 

10,2235 

10,2235 

10,2237 

10,2260 


2261 

2262 

2263 

2266 

2265 

2265 


3 5552 

0 

CAF 

PRI06 

0 OOO6 

1 

EXTEND 

05  OiA 

1 

ftOR 

16 

0 0001  0 TC  L 


10  061 

1 

RROUTLIM  CCS 

ITEMPl 

6 2222 

0 

cs 

-RRLIMIT 

1 2265 

1 

TCF 

+ 2 

3 2222 

1 

CA 

-RRLIMIT 

1 

TS 

I TEMP  1 

1 2225 

1 

TCF 

SETRRCTR  +1 

SAVE  return. 
LOOP  TWICE. 


SAVE  SIGN  OF  COMMAND  FOR  LIMITING. 

SEE  IF  within  LrJTS, 

limit  command  Til  MAC,  OF  386. 

COUNT  OUT  difference  BETWEEN  DESIRED 
STATE  AND  PRESENT  STATE  AS  ReCOvDeD  IN 
LASTYCMD  AND  I ASTXCMD 


PROCESS  BOTH  INPUTS. 


ENABLE  counters. 


RETURN. 

limit  COMMAND  TO  ABS  VAL  OF  386. 
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LoOOl 

P0279 


0280 

0281 

0282 

0283 

0289 

0285 

0286 

0287 

0288 

0289 

0290 

0291 

0292 

0293 
0299 

0295 

0296 


0297 

0298 

02985 

0299 
C0299 

0300 

0301 

0302 

0303 
0309 

0305 

0306 

0307 

0308 

0309 

0310 

0311 


RADAR  LlAD-iN  ROUTINES 


REF 

REF 


19  last 
36  last 


REF  109  LAST 
REF  1 

REF  10  LAST 
ref  37  LAs'! 
REF  110  LAST 
REF  1 


REF 

REF 

REF 

REF 


12  LAST 


REF  25  LAST 
REF  17  LAST 

REF  6 LAST 


15  LAST 
REF  111  LAST 
REF  2 last 
REF  20  LAST 


REF 

REF 

REF 


REF 


ine  to 

ZERO 

10, 

i 3b 

iU  , 

158 

10, 

169 

10, 

1 69 

10, 

160 

10, 

162 

10, 

163 

10, 

10, 

160 

10, 

169 

10, 

169 

10, 

10, 

1 59 

10  , 

169 

10, 

169 

10, 

1 69 

10, 

163 

10, 

199 

10, 

162 

10, 

10  , 

169 

10, 

160 

10, 

169 

10, 

169 

10, 

160 

10, 

10, 

10, 

196 

10, 

158 

10, 

158 

1 0 , 

153 

2297 

2250 

2251 

2252 

2253 

2259 

2255 

2259 

2257 

226° 

2261 

2262 

2263 

2269 

2265 

2266 
2267 

2270 

2271 


2272 

2273 
2279 

2275 

2276 
22  7 7 

2300 

2301 

2302 

2303 

2309 

2305 


0 0609  0 

9 7797  0 
7 0U79  0 

6 7797  1 

59  U79  0 

3 7755  1 

7 0913  0 

10  000  0 

1 2302  0 

3 7793  0 

7 0913  0 
10  UOO  0 

1 3223  0 

9 7791  0 
7 0913  0 

6 7791  1 
59  913  0 

3 7755  1 
0 5701  1 


E3 

02309  1 
20^03  0 

9 0913  0 
7 7759  1 

10  UOO  0 
1 2302  0 
0 9799  1 

00510  0 

0 0003  1 

1 5237  0 


RRZLRO 


inhint 

CS  RRUSEFLG 

Y1AS<  state 

AD  RRUSEFLG 

TS  state 

CAE  BlTl 

viASK  RaDMODES 

CCS  A 

TCF  RUADBACK 

CAF  BlTll 

yIAsK  RADMOdEs 

CCS  A 

ICE  RADNOOP 

CS  BIT13 

viAS<  RADmODES 

AD  B1T13 

TS  RADMODES 


CAF 

TC 


ONE 

WAITLIST 


EBANK=  RRRET 
2CADR  RRZ2 


CS 

MASK 

CCS 

TCF 

TC 

OCT 

roauback  relint 

TCF 


0 2^13  1 

1 3291  1 

7797 

7751 


RRZ2 


TC 

TCF 


RADMODES 

BIT2 

A 

ROADRACK 

ALARM 

510 

SwRFTURN 

RRZER05B 

ENDRADAR 


RRUSEFLG  EQUALS  B1T7 
LOKONFLG  equals  B1T5 


USER'S  OWN  PAGf  NO.  10 


E3 


SET  FLAG  TO  SHOW  SOMEONE  USING  I HE  RR. 


SEE  IF  RR  COMINr,  UP.  IF  SO,  tURnON 
PROGRAM  WILL  TJO  THE  WORK, 


SEE  IF  MONITOR  REPOSITION  IN  PROGRESS. 
IF  SO,  DONT  RF-7ERO  CDUS. 

(IMMEDIATE  TASK  TO  RGOODEND) . 

SET  FLAG  TO  SHOW  ZEROING  IN  PROGRESS. 


SEE  IF  IN  AUTO  MODE. 


AUTO  DISCRETE  NoT  PRESENT  - TRYING 


COMMON  TO  TURNON  AND  RRZLRO. 


488954a  Y-IL  SYSieM  f qR  A^C;  PKQ^RaM  SH^PaiIn  BY  ^YUj^S 
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LoOOl  RADAS  LtAD-iN  ROUTINED 


USERiS  own  PAGh  NO,  11  E3 


P0312  STABle-MEMBeR  RR  DtSlGNAlE  ROUTINE.  DESIGNATE  TO  A SM  LoS  VeCtoR  (HALF-UNIT)  IM  RRtARGET.  ReMOoES  IF 

R0314  REOUIRe'D.  RETURNS  TO  CaLLfR  I^  NANeUVeR  ReOUIReD  FOR  DeS  AND  SKIPS  IF  IT  CAN  Be  DoNe  IN  PReSeNT  VeH  ATTTTUDe. 


0316 

10,2306 

43U2O 

1 RRDESSM 

5TQ 

Clear 

0317 

REF 

2 last  20 

10,2307 

00‘*27 

0 

desrft 

0318 

REF 

1 

10,2310 

00271 

0 

rrnbsw 

0319 

10,2311 

66234 

1 

RTB 

SSP 

0320 

REF 

1 

10,2312 

33540 

0 

readcdus 

0321 

REF 

1 

10,2313 

ooosi 

0 

SI 

0322 

10,2314 

00024 

1 

20D 

0323 

10,2315 

2^,025 

0 

STOVL 

20D 

0324 

REF 

1 

10,2315 

00416 

1 

RRTARGET 

0325 

10,2317 

34O4 1 

0 

ST  Call 

32D 

0326 

REF 

1 

10,2320 

32576 

1 

SMNR 

READ  CDUS  for  SmNB, 


0327 

0328  REF 

0329 


10,2321  77624  1 CALL  GET  RR  QIMBAL  ANGLES  IN  PRESENT  AND 

10,232^  33422  0 RRANGLES  ALTERNATE  MODF. 

i0,2323  Tfllb  1 EXIT 


0330  1U»2324  0 0004  0 

0331  REF  2 last  120  10,2325  0 4323  1 

0332  REF  1 10,2326  00423  1 

0333  REF  i 10,2327  1 2351  0 


INHINT 

TC  RRLIMCHK 

adres  moDfa  configuration  FnR  current  mode, 

TCF  TRYSWS 


0334  R£F  3 Last  165 


10,2330  24  427  0 OKDeSSM 


INCR  DeSRfT  increment  SAYS  NO  VfHICLe  MANeUoeR  ReO. 


488954a 


LOOOl 

P0335 

R0337 

R0339 

R0341 

R0343 


0345 

0346 

0347 

0348 

0349 

0350 

0351 

0352 

0353 

0354 
03545 

0355 
C0355 

0356 

0357 

0358 

0359 
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PADAP  LcAD-IN  ROUIlNEG  USER’S  OWN  PAGf  NO.  12  E3 

AT  This  POinT  WL  ARE  PEAPY  TO  BEGIN  DE5 1 GnA T 1 0|vj , THE  TARGET  IS  STORED  As  A HALe-UniT  VECTOR  rrTARGET 
with  PRNBSW  Set  if  n is  ReFePReO  to  NAV  base  axes.  LOKONSW  is  set  if  LOCKON  is  DeSIRkD,  BIT14  OF  RADMOOeS  is 
S = T IF  A RE-iODE  IS  ReQUIRfD.  AT  t'^IS  tIMe*  I He  ANTeNNA  MAY  Be  IN  A MONITOR  RePOSItION  OPeRAtION,  IN  iHIS 

case,  if  a remode  is  ReQuireo  it  '^ay  have  already  Begun  but  it  any  case  the  reposition  will  de  interrupted, 
otherwise,  iHe  Reposition  wil.  be  completed  before  2-axis  designation  begins, 

REF  1 10,2331  3 2P50  0 STARTLES  CAF  MAXTRIES  ALLOW  30  SECS. 

PEp  1 10,2332  54  430  1 TS  dEScOuNT 


REF 

18 

last 

160 

10,2333 

3 7V44 

1 

REF 

41 

LASl 

164 

10 ,2334 

25  413 

0 

REF 

1 1 

LAST 

164 

10,233s 

7 7(43 

1 

REF 

REF 

112 

1 

LAST 

164 

10,2336 

10,233V 

10  Ooo 

1 2345 

0 

0 

CAF 

BlTlO 

SHOW 

ADS 

RADMODES 

MASK 

BITll 

SEE 

CCS 

TCF 

A 

DESRETRN 

ECTR 

designate  required. 

IF  reposition  In  progress. 

ALREADY  SET  UP. 


REF  2 last  160  10,2340  0 2106  1 


TC  setrrecr  set  up  error  counters. 


REF  11  LASl  146 
REF  18  last  164 
REF  7 LAST  164 

REF  2 LASI  160 

REF  4 LAST  166 
REF  2 LAST  67 


10.2341  3 7754  0 CAF 

10.2342  0 5(01  1 TC 

E3  EBANK= 

10.2343  02422  1 2CADR 

10.2344  2OO03  0 

10,234s  0 0003  1 DESRETRN  PELINT 

10.2346  3 0427  0 +1  CA 

10.2347  1 5246  0 TCF 


TrtO 

waitlist 

RRRET 

BEGDES 

RETURN  VIA  DFSRfT 

DlSRFT 

BANKJUMP 


10,2350  00074  1 MAXTRILS  DEC  60 


^88954A  YJL  SYS|£M  FOR  AGC ; N£w  PRO<JRA^  S^EPATIN  BY  eYLes 


LOOOl  RAqAR  lLAl-IN  ROUTINES 

P0360  SEE  IF  RRDeSSM  CAN  Be  AC'-OMPLI  SHeD  AFTeR  A ReMODe, 


0361 

REF 

2 

last 

161 

10,2351 

0 

2l92 

1 

TRYSWS 

TC 

RMODINV 

0362 

REF 

3 

LAS  1 

165 

10 ,235^ 

0 

9323 

1 

T C 

RRLIMCHK 

0363 

REF 

2 

LAST 

20 

10,2353 

00925 

1 

adres 

MODFB 

036A 

REF 

1 

10,235A 

1 

2361 

0 

TCF 

nodessm 

0365 

REF 

3 

LAST 

167 

10 ,235S 

0 

2l92 

1 

TC 

RMODINV 

0366 

ref 

18 

LAST 

161 

10,2356 

3 

7 (90 

0 

CAf 

BIT19 

0367 

REF 

92 

LAST 

166 

10,2357 

0 

ADS 

radmodes 

0368 

REF 

1 

10,2360 

1 

2330 

1 

ICF 

OKDFSSM 

0369 

REF 

9 

Last 

167 

10*2361 

0 

2l92 

1 

NODeSSM 

TC 

RMODINV 

0370 

ref 

2 

last 

166 

10 , 2362 

1 

2395 

0 

TCF 

desrftrn 

Dec  U,  1966  (MAIN)  PACE  167 


USER’S  OwN  pAOF  NO.  13 


E3 


(NOTE  RUPT  inhibit) 

TRY  DIFFERENT  MODE. 

VEHICLE  MANEUVER  REQUIRED. 

RESET  BIT12 

SET  flag  for  REmOdE. 


re-inveRt  Mode  and  return  without  in- 
crementing DE.sRfT 


48895AA  YJL  SYSIEM  f OR  AGO;  NEW  PkOG^A'-i  bHbPATiN  BY  eYLE 


LOOOI 

P0371 

R0373 

037A 

0375 


0376 

0377 

0378 

0379 

0380 

0381 

0382 

0383 

0384 

0385 

0386 


0387 

0388 

0389 

0390 

0391 

0392 


0393 

0394 

0395 

0396 

0397 

0398 
03985 

0399 
C0399 

0400 

0401 

0402 

0403 


radar  LbAD-lN  ROUTINES 

Designate  td  sPEfiRi:  RR  gimbal  angles 

TANG  ANL  TANG  +1. 


10 

REF  5 LAST  166  10 

10 

REF  4 last  167  10 

REF  A LAST  163  10 

REF  1 10 

10 

REF  1 10 

10 

REF  1 10 

REF  2 LAST  165  10 

10 

REF  2 LAST  165  10 

10 

REF  1 10 

REF  5 last  167  10 

REF  5 LAST  168  10 

REF  5 last  168  10 

REF  1 10 

REF  6 LAST  168  10 

REF  i)  LAST  167  10 

REF  43  LAST  167  10 

REF  1 10 

REF  15  LAST  164  10 

ref  19  last  166  10 

REF  8 LAST  166 

10 

REF  1 10 

REF  / LAST  168  10 

REF  21  LAST  164  10 

10 

REF  3 LAST  167  10 


2363  ■(’7420  1 RRDeSNB 

236^  00427  0 

2363  0 0004  0 

2366  0 4323  1 

236^  00423  1 

237D  1 2402  1 

237I  0 0003  1 0<DESNB 

237^  0 6103  0 

2373  77624  1 

237A  33^*75  1 

2373  00416  1 

2376  77‘»14  0 

2377  OCU7I  1 

2a00  0 0004  0 

2a01  1 2331  0 

2a02  O 2i42  1 TRYSWN 
2403  0 4323  1 

2^04  00‘t23  1 

2-^05  1 2412  0 

2406  0 2142  1 

2407  3 7^40  0 

2410  2b  ‘■*13  0 

2411  1 2371  1 

2412  3 7^55  1 NODESNB 

2413  0 5^01  1 

E3 

2414  33255  0 

2413  20O03  0 

2416  0 2142  1 

2417  0 4744  1 

2420  30502  0 

2421  1 2346  0 


DEC  l3»  1966  (MAIN)  PAGE  16b 


USER'S  OWN  PAGp  NO.  14  E3 

(INDEPENDENT  OF  veHICEe  MOTION),  e^TfR  wItH  DeSIReD  ANGLeS  IN 


5T0  EXIT 

DESRET 


ENTER  IN  INTFRP.  - EXIT  IN  BASIr. 


inhint 

SEE 

IF 

CURRENT  IrODE  OX 

TC 

rrlimchk 

ADRES 

tang 

TCF 

TRYSWN 

SEE 

IF 

IN  OTHFR  mode. 

RELINT 

TC 

intpret 

CALL 

GET 

LOS 

IN  NB  CoORDa. 

RRNB 

STORE 

RRT  ARGET 

SET 

EXIT 

RRNBSW 

inhint 

KF  STARTOES 

TC  RMODINV  SEE  IF  OTHER  MOl.E  WtLL  DO. 

TC  RRLIMCHK 

ADRES  TANG 

TCF  NODESNB  NOT  POSSIBLE. 

TC  RMODINV 

CAF  BIT14  CALL  FOR  KEMODE. 

ADS  RaDMODES 

TCF  OXDFSNB 

CAF  BlTl  CALL  FOR  ERROR  RETURN. 

TC  waitlist 

EBANKz  RRRFT 

2CADR  RDBADEND 

1C  RMODINV 

TC  ALARM  BAD  GIMBAL  ANGLr  INPUTS. 

OCT  502 

TCF  DESRFTRN  +1 


ALARM  DID  A RFLiNT 


48895^A  YJL  SYSTEM  Y OR  AGC:  NEW  PROGRAM  S^EPATIN  BY  EYLES 


Loool  raoas  lead-in  routines 

POAOA  waitlist  TAS<S  TO  PJM  RR  DESIGNATION. 


0905 

0906 

REF 

ref 

20 

99 

0907 

REF 

113 

0908 

REF 

1 

0909 

REF 

2 

0910 

REF 

7 

0911 

0912 

REF 

12 

0913 

REF 

95 

0919 

REF 

119 

0915 

REF 

1 

0916 

REF 

96 

0917 

0918 

0919 

REF 

1 

0920 

ref 

9 / 

0921 

REF 

19 

0922 

REF 

115 

0923 

REF- 

3 

0929 

REF 

2 

092  5 

REf 

2 

0926 

REF 

22 

0927 

0928 

REF 

1 

0929 

0930 

0931 

REF 

20 

0932 

REF 

98 

0933 

REF 

99 

0939 

REF 

2 

0935 

REF 

3 

0936 

REF 

1 

0937 

REF 

5 

09375 

REF 

9 

0938 

911938 

R iF 

1 

0939 

REF 

1 

last  168  10 

LAsI  168  10 

LAST  166  10 

10 

Last  161  10 


last  162  10 

10 

LAST  166  10 

LAST  169  10 

last  169  10 

10 

LASI  169  10 

10 
10 
10 

last  169  10 

last  166  10 

last  169  10 

last  16A  10 

LAST  166  10 

LASi  169  10 

LAST  168  10 

10 

10 

10 

10 

last  169  10 

LAST  169  10 

LAST  169  10 

LAST  168  10 

last  169  10 

10 

LAST  80  10 

last  168 

10 

10 

10 


2a22  3 7TA0  0 

2923  7 0‘*13  0 

292A  10  OOO  0 

2925  1 2115  1 

2926  1 2‘t31  1 


292’^  0 S'lT  0 

2930  00062  0 

2931  3 T(’93  0 

2932  7 0913  0 

2933  10  000  0 

293A  1 2959  1 

2935  10  913  0 

2936  1 2991  0 

293Y  1 2991  0 

2990  1 2961  1 

2991  9 0913  0 

2992  7 7^99  0 

2993  10  OOO  0 

2999  1 3241  1 

2995  10  930  1 

2996  1 2960  0 

299/  0 9/99  1 

2950  00603  1 

2951  9 2966  0 

2952  0 OOO6  1 

2953  03  012  1 

2959  9 //99  0 

2955  7 0913  0 

2956  59  913  0 

2957  1 3-^55  1 

2960  59  930  1 

2961  3 5666  1 

2962  0 5639  0 

E3 

2963  02967  0 

2969  20OO3  0 

2965  1 2927  0 


BEGDES  CAF 
vIAsK 
CCS 
TCF 
TCF 


DESLOOP  TC 
DEC 

STDESIG  CAF 
MASK 
CCS 
TCF 

CCS 

TCF 

TCF 

ICF 

CS 

MASK 

CCS 

TCF 

CCS 

TCF 

TC 

OCT 

CS 

EXTEND 

WAND 

BADDES  CS 

MASK 

TS 

TCF 

MOREDES  TS 
CAF 
TC 

EBANK= 

2CADR 

TCF 


0990 


10,2<+66  20O02  1 B19  + B2 


OCT 


DEC  13.  I966  (MAIN)  page  169 


USER'S  OWN  PaGF  NO.  15  E3 

BIT  19 

RADMOdEs 

A 

RhMODb 

STDESIG 

ENTER  HERE  FROM  STARTDES  OR  REPOSRPT, 

SEE  IF  REMOdE  Rt:QUIRED. 

fixdelay 

50 

2 SAMPLES  PER  SfCoND. 

BlTii 

RADMODES 

A 

BADDES 

ENTRY  FROM  BFGDfS  AND  REMODE. 

SEE  IF  GIMBAL  LTMIT  MONITOR  HAS  FOUND  US 

OUT  OF  BOUNDS.  TF  So,  THIS  BIT  SHOWS  A 

REPOSITION  TO  Bf  IN  PROGRESS. 

RADMODES 

+ 3 

+ 2 

MOREDES  +1 

SEE  IF  CONTINUOUS  DESIGNATE  WANTED. 

IF  SO,  DOnT  check  BIT  10  TO  SEE  IF  IN 
limits  but  go  RtGHT  to  FINDVAC  fNTRY. 

RADMODES 

BIT  10 

A 

ENDRADAR 

IF  NON-CONT INUOi  .S,  SEE  IF  END  OF 
problem  (DATA  Gt.OD  IF  LOCK-ON  WANTED  OR 

WITHIN  LIMITS  If  NOT).  IF  SO,  EXIT  AFTER 

CHECKING  RR  CDU  FAll  , 

descount 

MURFdES 

SEE  IF  time  LiMiT  HAS  EXPIRED. 

alarm 

503 

OUT  OF  TIME. 

B19+B2 

IF  our  OF  time.  Remove  ecr  enabi  e + trkR 

12 

BlTlO 

RADMODES 

RADMODES 

RDBADEND 

remove  designate  flag. 

Descount 

PRI026 

FINDVAC 

RRRET 

DODFS 

desloop 

UPDATE  gyro  TORoUE  COMMANDS. 

20002 


48895^A  YJL  SYSiEM  FOR  AGC : NeW  PrqO^^Avi  SHePATIN  BY  EYLES 


Loool  raDap  lead-in  Routines 

POAAl  calculate  GYRu  ToROJe  COMMANDS. 


0442 

0443 

RHF 

5 

LAST 

162 

0444 

REF 

6 

LAS  1 

168 

0445 

REF 

2 

LAST 

168 

0446 

0447 

REF 

3 

LAST 

168 

044B 

10.2A67  0 0U06  L DODES 

10,2a70  3 0^36  I 

10,2A7l  52  ^24  1 

10.2472  0 6^03  0 

10,2a73  77^75  1 

10.2a7'+  00416  1 

10.24755  00041  1 


0449  IO.247P 


0450 

0451 

REF 

REF 

D r CT 

3 

1 

last 

1 A C y 

166 

10.2477 

10.2500 

10.2501 

10.2502 

0452 

0453 

K tr 

2 

LAo  1 

166 

0454 

0455 

0456 

0457 

RET 

REF 

2 

2 

LAST 

LAST 

165 

165 

10 .2503 

10.2504 

10.2505 

10.2506 

47O14  1 

00311  1 

20P07  1 
33P40  0 

7701  1 
00051  0 
00024  1 
34U25  1 

32576  1 


EXTEND 

DCA 

DXCH 

TC 

^/LOAD 

store 

30N 


SSP 


STCALL 


OpTy 

TANG 

InTPRET 


RRTARGET 

32D 

RTB 

RRNBSW 

DONBRD 

READCDUS 


SI 

20D 

20D 

SmNB 


USER'S  oi^N  Page  no 


16 


E3 


MOvE  TARqET  vector  to  32D, 


DO  StABLe-MeMBee  TO  NAVBASe  TRANSFORMA- 
TION IF  target  TN  Sm  COORDS,  OTHERWISE. 

IN  Nb  COORDS  already. 


LOC  OF  ICdUS 


'♦8895^A  yjL  SySlEM  ^Ew  pROCi^Av)  S^^EpATlN  gy  EyLt-'’ 


LoOOl 

OA58 

0459 

0460 

0461 

0462 

0463 

0464 

0465 

0466 

0467 

0468 

0469 

0470 

0471 

0472 

0473 

0474 

0475 

0476 

0477 

0478 

0479 

0480 

0481 

0482 

0483 

0484 

0485 

0486 


radar  LtAD-lN  ROU'I  INES 

10 

10 

REF  7 LAST  170  10 

10 

REF  1 10 

10 
10 
10 
10 
10 
10 
10 
10 

REF  8 last  171  10 

10 

REF  9 LAST  171  10 

REF  2 LAST  171  lO 

10 

10 

10 

10 

10 

10 

10 

10 

10 

10 

10 

10 


2507  57^!01  0 DoNf^RD 

2510  OOOOl  0 

2511  00425  1 

2512  4143-y  1 

2513  33324  1 

2514  65356  1 

2515  41346  0 

2516  65205  0 

251?  00041  1 

2520  OOU45  0 

2521  44205  0 

2522  OOOOl  0 

2523  77626  0 

2524  77352  0 

2523  47I35  0 

2526  00424  0 

2527  33324  1 

2530  71'*06  0 

2531  73^25  1 

2532  41206  0 

2533  00003  1 

2534  65352  0 

2533  00005  1 

2536  41325  0 

2537  00007  0 

2540  OOOOl  0 

2541  55352  0 

2542  77441  0 

2543  OOO4I  1 


5ETPD 

RTb 

SIN 

COS 

DMP 

OMP 

STADR 

STORE 

SLOAD 

PUSH 

PDDL 

PUSH 

SLl 

PDDL 

SLl 

OOT 


DEc  13*  1966  (mAIN)  pAGE  171 


USER'S  OWN  PAGf  NO.  17  E3 

SLOAD 

0 

DO  NAvbASe  to  RfiDAR  DISH  TRANSF  iRMATlON, 

TANg  +1 

PUSH 

COULOGIC 

PDDL 

PUSH 

PDDL 

32D 

360 

BDSU 

0 

SHAFT  COMMAND  = V ( 32D ) . ( COS ( S ) , 0, 

(-SIN (S) ) , 

SIN(S)  TO  0 AND  COS(S)  TO  2. 

TANG  +1 

SHAFT  COMMAND 

RIB 

TANG 

COULOGIC 

Cos 

COS(T)  TO  4. 

SIN 

DmP 

SIN(T)  TO  6. 

2 

PDDL 

4 

DMP 

6 

0 

VDEF 

EXIT 

32D 

DEFINE  VECTOR  U = ( SIN ( I ) SI N ( S ) ) 

(COS(I)  ) 

{«;IN(  I )COS(S)  ) 

DOT  U WITH  LOS  tO  GeT  TRUNNION  rOMMAND. 

DOT  U with  LOS  tO  GeT  TRUNNION  rOMMAND 


48895^A  YJL  system  f 0«  AGC  ; Ntkv  PR0<J9AM  SMePAtIN  BY  eYLES 


dec  U,  1966  (MAIN)  PAGE  m 


LOOOl 

P0A87 

RoA89 


0A9i 

OA92 

0A93 

0A9A 

0A95 

0A96 

0A97 

0498 


0499 

0500 

0501 


0502 

0503 

0504 

0505 

0506 

0507 

0508 

0509 

0510 

0511 

0512 

0513 


radar  lead-in  RoUIINEB  USER'S  OWN  PaGe  NO.  10  e3 

AT  THIS  POINT  we  HAv/j  A ^OTAtION  VeCTOR  IN  DISH  AXpS  LYING  IN  tHe  TS  PLANE.  COnVeRt  THIS  TO  A 

commanded  rate  and  e^IABLe  tI^E  TRALKeR  IF  we  are  WITHIN  1 degree  of  tHe  target. 


REF  Si  LAST  iSs  10*2S44  4 olA4  i CS  MPAC 

REF  10  LAST  171  10,2545  54  423  0 IS  TANg 


REF  50  last  169 
REF  15  last  161 
REF  116  last  169 


10.2546  4 0413  0 

10.2547  7 7(42  0 

10.2550  ID  000  0 

10.2551  1 2554  0 


CS  RADMODES 

MASK  BIT12 
CCS  A 

ICF  +3 


REF  11  last  172 
REF  12  LAST  172 

REF  36  LAST  162 
REF  52  LAST  172 
REF  26  LASI  164 


10.2552  4 0424  1 

10.2553  54  42a  1 

10.2554  3 7(61  0 

10.2555  54  I45  0 

10.2556  3 7(55  1 


CS  TANG  +1 

TS  tang  +1 

CAF  ZERO 

TS  MPAC  +1 

CAF  ONE 


REF  53  last  172  10,2557 

REF  117  LASl  172  10,2560 

REF  13  LAST  172  10,2561 

10,2562 

REF  1 10,2563 

REF  54  LAST  172  10,256^ 

REF  14  LAST  172  10,2565 


54  I44 

1 

RRSCALUP  TS 

MPAC 

50  000 

1 

INDEX 

A 

3 0423 

1 

CA 

TANG 

Q OOO6 

1 

EXTEND 

7 2635 

1 

MP 

RDESGAIN 

50  144 
56  ‘'23 

0 

1 

INDEX 

XCH 

MPAC 

TANG 

REF  8 LAST  163  10,2566  0 4312  0 K MAGSUB 

10,256(  77(15  1 DEC  -.00305 

REF  55  LAST  172  10,2570  24  145  1 INCR  MPAC  +1 


DOT  WAS  NEGATIVf  OF  DeSIRED  ANGie* 


A Relay  in  thf  rr  reverses  polarity  of 

THE  SHAFT  COMMANDS  IN  MODf  2 50  THAT  A 
POSITIVE  TORQUE  APPLIED  TO  THE  SHAFT 
GYRO  CAUSES  A POSITIVE  CHANGE  IN  THE 

SHAFT  ANGLE.  COMPENSATE  FOR  THIS  SWITCH 
BY  changing  the  POLAriTY  OF  OUR  COMMAmD. 


trunnion  component  of  rotation, 
scaling  on  input  angle  was  4 radians. 
MAKE  EACH  COMPONENT  LESS  THAN  .7  DEGREES 
before  SENDING  tRACk  ENABLE. 

IF  OUT  OF  BOUNDS. 


REF  56  LAST  172  10,2571  ID  l44  1 

RcF  1 10,2572  1 2557  0 


CCS  MPAC 

ICF  RRSCALUP 


^88954A  YJL  SYSTEM  FOR  AGC:  NEW  PRO^RAY]  sHePATIN  BY  EYLES 


uoooi  radaR  leao-in  Routines 

POSIA  SEF  if  TRAC<eR  should  se  enableu  or  disabled. 


0515 


10,2573  0 OUOA  0 


INHINT 


0516 

0517 

0518 

REF 

51 

LASI 

172 

10, 

10, 

10, 

0519 

REF 

I 

10, 

0520 

REF 

57 

LAST 

172 

10, 

0521 

ref 

2 

LAST 

173 

10, 

257A  10  A13  0 CCS 

2573  1 2900  1 TCE 

2579  1 2900  1 TCP 

257  ? 1 2925  0 KP 

2600  10  iA5  0 CCS 

2601  1 2925  0 TCP 


0522 

REF 

17 

LASI 

16A 

10 

0523 

REF 

1 

1 0 

052A 

REF 

118 

LASl 

172 

10 

0525 

REF 

1 

10 

0526 

III 

q: 

21 

LASl 

169 

10 

0527 

10 

052  8 

1 0 

2602  A 007A  0 CS 

2603  7 7^51  1 F1ASK 

260A  10  000  0 CCS 

2605  1 2916  0 TCP 

2609  3 77aO  0 CAP 

2607  0 0006  1 EXTEND 

2610  05  O12  1 //OR 


0529  REF  lA  LASI  157  10,26ll  3 7^52  0 CAP 

0530  10,2612  0 0006  1 EXTEND 

0531  10,2613  02  033  0 RANO 

0532  REF  119  LASI  173  10,261**  10  Ooo  0 CCS 

0533  REF  1 10,2615  1 2930  1 TCP 

053A  REF  21  LAST  169  10,2619  A 7'AA  0 RRDESDUN  CS 

0535  REF  52  LASl  1 73  10,2617  7 0'*13  0 MASK 

0536  REP  53  LASI  173  10,2620  5a  **13  0 TS 

0537  REF  16  LAST  16A  10,2621  A 775A  I C5 

0538  10,2622  0 OOO6  1 EXTEND 

0539  10,2623  03  O12  1 WAND 

05A0  REF  8 LAST  153  10,262^  1 56O5  0 TCF 


05A1  REF  22  LAST  173  10 
05A2  10 
05A3  10 

05AA  REF  5A  LASl  173  10 
05A5  REP  13  Last  169  10 
05A6  REF  120  LAST  173  10 
05A7  REF  2 LASl  162  10 

05A8  REF  9 LASi  173  10 


2625  A 7''A0  1 TRKOFF  CS 

2629  0 0^06  1 extend 

2627  03  O12  1 WAND 

2630  A 0*H3  0 DDRROUT  CS 

2631  7 7 'A3  1 mask 

2632  10  Ooo  0 CCS 

2633  0 2213  0 TC 

263A  1 5905  0 TCF 


0549 


10,2635  21I22  0 ROESGAIN  OEC 


RADMOUES 

+ 3 
♦ 2 

TRKOFF 

MPAC  +1 
TRKOFF 

state 

LOKONFLG 

A 

RRDESDUN 

BITlA 

12 

BITa 

33 

A 

DORROUT 

BI  TlO 

RADIMODES 

RADMODES 

BIT2 


12 

ENDOFJOB 

BITIA 

12 

RaDMODES 

BITll 

A 

RROUT 

ENDOFJOB 

•5362A 


DEC  I3,  I966  (MAIN)  PAGE  173 


USER'S  OWN  PaGF  no.  19  E3 


IF  CONTINUOUS  DESIGNATE  WANTED,  PUT  OUT 
COMMANDS  WITHOUT  CHfCKING  MAGNITUDE  OF 
ERROR  SIGNALS. 


SEE  IF  BOTH  AXES  WERE  WITHIN  .7  DEGS. 


IP  WIIHIN  LIMITc.  and  no  LOCK-ON  WANTED, 
PROBLEM  IS  finished. 


enable  the  tracker. 


SEE  IP  DATA  GOOI.  RErEIVED  YET. 


WHEN  PROBLEM  DONE,  REMOVE  BIT  lo  SO  NEXT 
WAITLIST  TASK  Wf  WIiL  GO  TO  RGOiDeND. 


WITH  ECTR  DISABI  ED. 


PUT  OUT  Command  unLfSs  monitor 

REPOSITION  HAS  TAKEN  OVER. 


TRIES  TO  NULI  .5  ERROR  IN  .5  SEC 


48895^A  y jl  SySTEM  F OR  AGc.  : ’'‘tw  pFiOG^Av;  SHEpATiN  BY  EyuE.S 


DEc  1a*  1966  (mAIN) 


LooOl  RADAR  LfAD-IN  ROUTINES 

POSbO  radar  READ  INITIALIZATION 

R0551  radar  data  ARe  ReAD  BY  A BANCAlL  FOR  THe  APPROPRIATE  LeAD-IN  BeLOW, 


0552 

REF 

1 

10,2636 

0 2952 

1 

LRaLT 

TC 

InITrEaD  -1 

055  3 

1 0 , 263  T 

OOOl  7 

1 

ALLREAD 

OCT 

17 

055A 

REF 

2 

LASl 

17A 

10 ,26A0 

0 2953 

0 

LRVELZ 

TC 

INITREAD 

0555 

1 0 , 26A 1 

30016 

0 

OCT 

16 

0556 

REF 

3 

LASI 

17A 

10,26A2 

0 2953 

0 

lrvely 

TC 

INITREAD 

0557 

10 ,26A3 

DOO 1 5 

0 

OCT 

1 5 

0558 

REF 

A 

LAS  I 

17A 

10,26AA 

0 2653 

0 

lrvelx 

TC 

iNi tread 

0559 

10 ,26AS 

JOOlA 

1 

OCT 

lA 

0560 

REF 

5 

LAS1 

17A 

10 ,26A6 

3 2652 

1 

RRRDOT 

TC 

INITREAD  -1 

0561 

10 , 26A7 

D0012 

1 

OCT 

12 

0562 

0563 

REF 

6 

LAST 

17A 

10.2650 

10.2651 

C 2952 
DOOil 

1 

1 

RRRANGE 

TC 

OCT 

INITREAD  -1 
11 

USER'S  OWN  PAGp  NO.  20 


onE  Sample  per  reading. 


page  17A 
E3 


488954ft  YJL  SV51EM  f OR  A<jC:  S^EPaTIN  3Y  EYLF.S 


dEc  i^»  1966  (Main*  pa*^e  175 


Loooi 

0564 

0565 

0566 

0567 

0568 

0569 

0570 

0571 

0572 
R0573 
A0574 

0575 


0576 

0577 

0578 

0579 

0580 

0581 

0582 

0583 

0584 

0585 

0586 

0587 

0588 

0589 

0590 

0591 

0592 

0593 


RADAR  LLAD-IN  ROUTINES 

rEF  27  last  172  10,2652  3 7^55  1 -1  CAF  OnE 

10,2653  0 0004  0 INITREAD  INHINT 

REF  1 10,2654  54  421  1 IS  TIMFHOLD 

10,2655  0 0006  1 extend 

REF  2 LAST  150  10,2656  7 7153  0 MP  B1T3 

REF  2 LAST  175  10,2657  52  422  1 DXCH  TIMFHOLD 


REF  121  LAST  173  10,2660  10  OOOO  CCS  A 

REf  1 10,2661  54  425  0 TS  NsAmP 

REF  28  LASi  175  10,2662  6 7^55  1 AD  ONE 

IN'-ERT  FOLLCaMNG  INSIRJCIION  TO  SET  2N  tRIeS  FOR  N SAMPLES 

DOUBLE 

REF  2 LAST  86  10,2663  54  41^  i JS  SAMPLIM 


USER'S  OWN  PAGf  no.  21  E3 

EnTry  to  take  o,^ly  1 sample. 


GET  DT  OF  midpoint  OF  NOMINAL  SAMPLING 
INTERVAL  IASSUMyS  No  BAD  SAMPLES  WILL  BE 
ENCOUNTERED) . 


REF  1 

REF  I 


10.2664  3 2^06  1 

10.2665  0 0006  1 

10.2666  02  033  0 

10,2667  54  427  1 


CAF  dubits  Read  currfNt  vai  ue  of  data  good  bits. 

EXTEND 

RAND  33 

TS  OLDATAGD 


REF  1 10,2670  4 2637  0 CS  ALLREAD 

lu,267l  0 0006  1 EXTEND 

10,2672  03  013  0 WAND  13  REMOVE  ALL  RADAt  BITS 


REF  46 


LAST  163 


10,2673 

10,267A 

10.2675 

10.2676 


50  002  0 
3 OOoO  1 
0 0006  1 
05  013  0 


INDEX  Q 
CAF  0 

EXTEND 
WOR  13 


SET  NEW  RADAR  BlTS 


10,2677 

0 0U06 

1 

EXTEND 

REF 

4 

LAST 

150 

10,2700 

3 0U25 

0 

JCA 

T1MF2 

REF 

3 

LAST 

175 

10,2701 

20  422 

1 

DAS 

TIMFHOLD 

REF- 

37 

LASI 

172 

10 ,2702 

3 7 '61 

0 

CAF 

ZERO 

REF 

34 

LAST 

163 

10,2703 

54  UOl 

1 

TS 

L 

REF 

3 

LAS', 

20 

10,2704 

52  416 

0 

DXCH 

SAMPLSUM 

REF 

3 

LAST 

164 

10,2705 

1 2302 

0 

TCF 

ROADBACK 

TIME  OF  nominal  MIDPOINT. 


10,2706  00230  0 DGBITS  OCT  230 


0594 


488954A  YJL  SVSteM  f-OR  AGC;  NtW  PRO^RA'1  SH^PatI 


LOOOl 

P0595 

R0596 

0597 

0598 

0599 

0600 
0601 
0602 

0603 

060A 

0605 

0606 

0607 

0608 

0609 

0610 
0611 
0612 
0613 

061A 

0615 

0616 

0617 

0618 

0619 

0620 
0621 
0622 
0623 

062A 

0625 

0626 

0627 

0628 

0629 

0630 

0631 

0632 

0633 

0634 


radar  LbAD-lN  RoUTiNtS 
RADAR  RbPT  READER 


this  roltine  Starts  from  a Radaru^t.  it 


R£F  3 last  160 
REF  3 LAST  150 

ref  6 LAS'  170 
REF  1 

REF  3 last  175 
REf  1 
REF  1 

REF  23  LAS'i  169 

REF  8 LAST  153 

REF  2A  last  176 

REF  29  LAST  175 
REF  A LAST  176 
REF  . 3 LAS  I 169 

REF  5 LAST  176 

REF  3 LAST  175 

REF  1 

REF  65  last  173 
REF  18  last  1A2 

REF  1 

REF  25  last  176 
REF  1 
REF  1 

REF  2 LAST  176 
REF  1 


10,2707 

59  016 

1 

10,2710 

0 0006 

1 

10,27ll 

22  Oi2 

1 

10,2712 

0 0006 

1 

10,2713 

3 0036 

1 

10,27lH 

62  920 

0 

10»2715 

10  9u 

1 

10,2710 

1 2^30 

0 

10,271Y 

1 2^23 

1 

10,2720 

0 9 T99 

1 

10,2721 

30R20 

0 

10,2722 

0 5^51 

1 

10,2723 

0 9 T99 

1 

10,2729 

00021 

1 

10,2720 

9 7155 

0 

10 ,2720 

59  91a 

1 

10,272  < 

0 3263 

0 

10,2730  59  91A  1 


10,2731 

3 

7753 

1 

10,2732 

0 

OOO6 

1 

10,2733 

02 

013 

1 

10,2739 

0 

0006 

1 

10,2735 

1 

3OI9 

0 

10,2730 

3 

0913 

1 

10,2737 

0 

00Q6 

1 

10,2790 

06 

033 

1 

10,2791 

7 

7 750 

0 

10,2792 

0 

0006 

1 

10,2793 

1 

2 797 

0 

10,2799 

0 

9799 

1 

10,2795 

00022 

1 

10,2796 

u 

iL.  1 96 

0 

10,2797 

3 

6301 

0 

10,2  I5O 

0 

OOO6 

1 

10,2751 

06 

Ol3 

0 

10,2752 

7 

6301 

1 

10,2753 

0 

0006 

1 

10*2759 

1 

3OIO 

1 

BY  eYLeS 


OeL  1^,  1966  (MAIN)  PAGe  176 


USER'S  OkJN  PaGF  no.  22 


E3 


Reads  the  data  $ lots  more. 

RADAREAD  TS  BANkRupT 

extend 

DXCH  OkUPT 


ANGLREAD  EXTEND 

OCA  OpTy 

DXCH  OPTYHOLD  save  RAW-  COU  ANf.LES 

TRYCOUNT  CCS  SAMPLIM 

TCF  Plenty 

TCF  NOMORE 

TC  ALARM 

DCT  520 

K RESUME 

NOMORE  TC  ALARM 

OCT  521 

BADRAD  CS  ONE 

TS  SAMPLIM 

TC  ROBADEND  -2 

PLENTY  TS  SAMPIIM 

CAF  BIT3 

EXTEND 

RAND  13  TO  find  OUT  taHKH  RADAR 

EXTEND 

3ZF  RENDRAD 

LRPOSCHK  CA  RADMODES  SEE  IF  LR  IN  DESIRED  POSITION. 

EXTEND 
RXOR  33 

MASK  B1T6 

extend 

3ZF  VELCHK 

TC  ALARM 

OCT  522 

TC  BADRAD 

VELCFIK  CAF  B1N3  = 00003  OCT 

EXTEND 
RXOR  13 

mask  B1N3 

EXTEND 

3ZF  LRHEIGHT 


TAKE  A LR  RANOE  READING 


48895i,A  YJL  SYSTEM  rOR  AGC:  NEW  PRO*^9i\''i  SHePATIN  3Y  eYLeS 


LoOOl  RADAR  LlAD-IN  ROUTINES 


0635  REF  8 LAST  157  10 

0636  REF  1 10 

0637  REF  1 10 

0638  REF  35  LAST  175  10 

0639  REF  2 LAST  177  10 

06A0  10 

0641  REF  16  last  168  10 

0642  REF  9 LAST  73  10 


2755  3 7 '35  1 CAF 

2756  7 0046  1 MASK 

275'  6 3l56  0 AD 

2760  54  UOI  1 IS 

2761  30  Oa6  0 CAE 

2762  6 0000  1 DOUBLE 

2^63  7 7'S5  0 MASK 

276A  52  064  1 DXCH 


0643 

0644 
A0645 

REF 

REF 

10 

1 

0646 

REF 

2 

0647 

REF 

1 

0648 

REF 

30 

0649 

REF 

6 

0650 

REF 

43 

0651 

REF 

56 

0652 

REF- 

57 

0653 

REF 

3 

0654 

REF 

1 

0655 

REF 

REF 

3 

0656 

0657 

7 

0658 

REF 

1 

0659 

0660 
0661 
0662 

REF 

REF 

15 

9 

last  iO 

10 


LAST  175  10 

10 

LAST  176  10 

LAST  176  10 

last  163  10 

LAST  176  10 

LAST  177  10 

LAST  159  10 

10 

LAST  177  10 

LAST  177  10 

10 
10 

LAST  173  10 

10 
10 

last  176  10 


276^  3 7 '46  0 

2766  0 3126  1 


276'  10  A25  0 

2770  0 3O00  1 

2771  4 7'S5  0 

2772  54  41a  1 

2773  4 0061  1 

2774  7 0413  0 

2776  54  413  0 

2776  0 4366  0 

277'  0 3446  1 

3000  54  425  0 

3001  10  4ia  1 

3002  1 3U04  1 

3003  1 3I45  0 

300“*  3 7 '52  0 

3005  0 0OO6  1 

3006  05  013  0 

300'  0 5'51  1 


CAF 

TC 


CCS 

TC 

GDOURAD  CS 
TS 
CS 

MASK 

TS 

TC 

TC 

NDEND  TS 

Resample  ccs 

TCF 

TCF 

CAF 

EXTEND 

WOR 

TC 


0663 

REF 

8 

LAS; 

l64 

10*3oiO 

3 7'5i 

0 

LRHEIGHT 

CAF 

0664 

REF 

44 

LAST 

177 

10,3011 

54  061 

1 

TS 

0665 

REF 

6 

LAST 

141 

10,3012 

3 7'45 

0 

CAF 

0666 

REF 

1 

10,3013 

0 3O36 

1 

TC 

0667 

REF 

14 

last 

173 

10,3014 

3 7 '43 

0 

RENDRAD 

CAF 

0668 

REF- 

58 

LAST 

177 

10,3015 

/ 04  13 

0 

MASK 

0669 

REF 

122 

LAST 

175 

10 ,3016 

ID  000 

0 

CCS 

0670 

REF 

2 

LAST 

176 

10,3017 

1 2'25 

1 

TCF 

0671 

n ^ IT 

59 

1 . r 

■ 

Kc.r 

LAS  1 

177 

10 , 3020 

4 0413 

0 

^S 

0672 

REF 

1 1 

LAST 

164 

10,3021 

7 7 '47 

o' 

MASK 

0673 

0674 

REF- 

REF 

123 

3 

last- 

last 

177 

177 

10.3022 

10.3023 

ID  uoo 

1 2'25 

0 

1 

CCS 

TCF 

POSMAX 

RNRAD 

LVELBIAS 

L 

RNRAD 

BlTl 

ITEMP3 


BITS 

DcjCHFCk 


NSAMP 

nuend 

One 

SAMPLIM 

ITEMPl 

RADMODES 

RaDMODES 

SETTRKF 

RGOODEND 

NSAMP 

SAMPLIM 

+ 2 

DATAFAIL 

B1T4 

13 

RESUME 


6115 

ITEMpl 

B1T9 

SCALFCHK 

BlTll 

RADMOdEs 

A 

BADRAD 

RaDMODES 

B1T7 

A 

BADRAD 


Dec  13*  1966  (main)  page  iT 


USER'S  OWN  PAGp  NO.  23 


E3 


DATA  GOOD  ISNT  tHeCkeD  UNTIL  AFteR  READ- 
ING data  so  SOMc.  RADAR  TESTS  wiLL  wORk 

independent  of  data  good. 


WHEN  ENOUGH  GOOD  DArA  HAS  BEEN  FATHERED. 
RESET  DATA  FAIL  FLAGS  FOR  SETTRkF. 

LAMP  might  GO  OFF  IF  DATA  JUST  GOOD. 


SEE  IF  any  MORE  TRIES  SHOULD  BE  MADE. 

N SAMPLES  NOT  AwAILaBLE. 

RESET  ACTIVITY  BIT. 

RESET  ACTIVITY  BIT 


(POSITION  OF  data  good  bIT  IN  CnAN  33) 


1 


MAKE  SURE  ANtENnA  HaS  NOT  GONE  OUT  OF 

limits. 


Be  SURE  RR  CDU  hASNr  FAILED 


488954A  VJL  system  FOR  AGC  ! NE^^  PRO'^^AM  sHePATIiJ  3Y  eYLeS 


LOOOl  RADAR  LcAU-lN  RoUTiNtS 


0684  R -F  1 6 

0685  REF  45 


LAST  177  10 

last  177  10 


3024  3 7^32  0 

3025  54  061  1 


CAF 

T5 


0686 

0687 

0688 

0689 

0690 

0691 

0692 

0693 

0694 

0695 


REF  17  LAS) 


REF  47  LASl 
REF  124  LASI 

REF  1 
REF  4 LASl 
REF  36  LAST 


177 


175 

177 


176 

177 


10*302^  3 7'55  i 

10»3027  0 0006  1 

10.3030  02  013  1 

10.3031  54  002  1 

10.3032  10  000  0 

10.3033  1 3O35  0 

10,303^  1 3O47  0 

10.3035  3 7^53  1 

10.3036  54  Ool  1 


10,303^  0 0OO6  1 


CAF 

extend 

RAND 

IS 

CCS 

TCF 

TCF 

CAF 

TS 

SCALECHK  extend 


0696  10 

0697  REF  37  LASl  178  10 

0698  REF  60  LAST  177  10 

0699  10 

0700  10 

0701  REF  125  LASl  178  10 

0702  REF  1 10 

0703  REF  9 last  177  10 

0704  REF  3 LAST  177  10 

0705  REF  11  LAST  141  10 


3040  02  033  0 RAND 

3041  56  UQl  0 XCH 

3042  7 0413  0 *1ASK 

3043  0 0OO6  1 EXTEND 

304A  06  OOl  0 RXOR 

3045  n 000  0 CCS 

3046  0 3O66  1 TC 

3047  3 7T35  1 RaDIN  CAF 

305°  7 0046  1 'TASK 

3051  54  064  1 TS 


0706 

0707 

REF 

4 

last 

178 

REF 

18 

LAST 

178 

0708 

0709 

REF 

10 

LAST 

177 

0710 

REF 

48 

LASl 

178 

0711 

REF 

1 

0712 

0713 

ref 

1 

0714 

REF 

11 

LAS  i 

178 

10.3052 

3D  0^6 

0 

10,3053 

6 OOOO 

1 

10,305A 

7 7755 

0 

10,3055 

54  063 

0 

10,3056 

10  002 

1 

10.3057 

1 3IOO 

1 

10.3060 

0 0006 

1 

10.3061 

10.3062 

4 3I6O 
2D  064 

1 

1 

DASAMPL 


CAE 

DOUBLE 

MASK 

TS 

CCS 

TCF 

extend 

DCS 

DAS 


0715  REF  46  LAST  178  10 

0716  REF  2 LASl  177  10 

0717  REF  1 10 


3063  3 0O6I  0 05CHECK2  CA 
306A  0 3I27  0 TC 
3065  0 2T71  1 TC 


0718 

REF 

61 

LAST 

178 

10,3066 

22  413 

1 

0719 

REF 

19 

LAST 

178 

10,3067 

6 7T55 

1 

0720 

10.3070 

0 0006 

1 

0 721 

10 .307 1 

Ob  001 

0 

0722 

REF- 

62 

LAST 

178 

10,3072 

54  413 

0 

0723 

REF 

2 

last 

175 

10,3073 

3 2 706 

1 

0724 

10,307A 

0 0006 

1 

0725 

10,3075 

02  O33 

0 

0726 

REF 

2 

LAST 

175 

10,3076 

54  427 

1 

SCALCHNG  LXCH 
AD 

EXTEND 

RXOR 

TS 

CAF 

EXTEND 

RAND 

TS 


BITa 

ITEMPI 

BiTl 

13 

U 

A 

+ 2 

RADIN 
Bi  T3 
L 


33 

L 

RADMODES 

01 

A 

SCALCHNG 

POSMAX 
RNRAD 
I TEMP4 

RNRAD 

BITl 

1TEMP3 

Q 

SCALADJ 


RoOTBIAS 

ITEMP3 

I TEMPI 
DuCHECK  +1 
GOODRAD 

RADMODES 

BlTl 

01 

RADMODES 

DbBlTS 

33 

OLDATAGD 


Dec  13,  I966  (MAIN)  page  178 

USER'S  ONN  PAGF  no.  24  E3 

SEE  IF  DATA  HAS  BEEN  OOOD. 

(POSITION  OF  data  Good  bit  in  chan  33) 
SEE  IF  RR  ROOT. 

FOR  LATER  TESTING. 

NO  SCALE  check  FOR  RR  ROOT. 

SCALE  STATUS  NOb« 

SCALE  STATUS  HEpORE 
SEE  IF  THEY  DIFFER 
THEY  DIFFER 


SEE  IF  RR  RDOT, 

NO,  BUT  SCALF  CHANGING  MAY  Be  NEEDED. 
IF  RR  RANGE  RATf*  THROW  OUT  BIAS. 


SEE  THAT  DATA  HAS  BfEN  GOOD  BEFoRE  AND 
AFTER  taking  SAmPLE. 


UPDATE  LAST  VALUE  OF  DATA  GOOD  BITS 


^8895^A 

YJL  SYS  1 EM  FOR  AGC.  NEW 

program 

SUePATIN  3Y  eyles 

DEC  13,  1966 

(MAIN) 

PAGE  179 

Loool 

0727 

RADAS  LEAD-IN  ROUTINES 

REF  A LAST  177  10 

.3077  1 

zn^  1 TCF 

BADRAO 

USER'S  OWN  PAGf  NO. 

2S 

E3 

YJL  SrSrtM  rOR  AGC;  new  program  sHePATIi'1  by  eyles 


dec  U,  1966  (MAIN)  PAGE  180 


LooOl  radar  Li.AD-iN  RoUTINEG  USER'S  OWN  PaGf  NO.  26  E3 

P0728  THe  following  RoUt^Ne  INLoRPoRATE^  RR  RANGe  AND  LR  ALj  SCALe  INFORMATION  AND  LpAvES  DATA  AT  Lo  SCALe. 


0730 

REF 

38 

LAST 

178 

10,3100 

10  001 

1 

0731 

10,3101 

1 3l03 

1 

0732 

REF 

1 

10,3102 

1 3063 

0 

0733 

REF 

12 

LaS  i 

178 

10,3103 

5 2 D64 

1 

073A 

1 0 , 3 1 0 A 

20  Ool 

1 

0735 

10,3105 

20  001 

1 

0736 

10,3106 

20  Ool 

1 

0737 

REF 

13 

LAST 

180 

10,3107 

52  064 

1 

0738 

REF 

5 

LAST 

178 

10.3110 

3 7^53 

1 

0739 

10 , 3 1 1 1 

0 0006 

1 

07A0 

10,3112 

02  013 

1 

07A1 

10,3113 

0 0006 

1 

n *1  1 1 *6 

0742 

R-F 

2 

LAS  r 

1 80 

i 0 , 3 1 1 4 

1 3*063 

0 

0743 

REF 

1 

10.3115 

3 3I55 

0 

0744 

10.3116 

0 OOO6 

1 

0745 

REF 

12 

LAST 

1 78 

10,3117 

7 0064 

1 

0746 

REF 

13 

last 

180 

10,3120 

54  064 

1 

0747 

REF 

38 

LAST 

175 

10,3121 

3 7 Ibl 

0 

0748 

REF 

14 

LAST 

180 

10,3122 

56  *063 

1 

0749 

10,3123 

0 0006 

1 

0750 

REF 

2 

LAST 

180 

10,312A 

7 3155 

1 

SCALADJ  CCS  L 

TCF  +2 

ICF  DGCHECK2 


OXCH  ITEMPO 
ODOUHL 
DDOJBL 
ODOUBL 

DXCH  IIEMP3 

CAF  BIT3 

EXTEND 
RAND  13 
EXTEND 

3ZF  DGCHECK2 


CAF  ERRATIC 

EXTEND 

MP  IIEMPa 

T S I i EMP A 

CAF  zero 

XCH  ITEMP3 

EXTEND 

MP  ERRATIC 


0751  REF 


10,3125  1 3062  1 TCF  DASAMPL 


L HAS  SCALE  INBIT  FqR  tHIS  RaDAR, 
ON  HIGH  SCALE. 

SEE  IF  LR  OR  RR. 

IF  RR,  NO  MORE  ACTION  REQUIRED. 

IF  LR»  CONVERT  tO  Lo  SCALING. 

(SO  SUBSEQUENT  riAS  WILL  BE  0<) 


488954A  VJL  SYSteH  ^OK  AGC  : NLkV  PRO'^^A'I  SH^PatIiM  BY  eYLe-S 


LOOOl  RADaP  LtAP-iN  Ro 

0752  REF  <+7  LASI  178 

0753 
075A 

0755  REF  39  LA51  180 

0756  REF  ‘fB  LASI  181 

0757  REF  3 last  178 

0758  REF  ^*0  LAST  181 

0759  REF  A last  181 


tines 

10,31  26  5A  ^^61  1 
10, 312?  0 0006  1 

10.3130  02  U33  0 

10.3131  5A  001  1 

10.3132  A OO6I  1 

10,3130  7 0^27  1 

10,31 3A  6 OOOl  0 
10,3135  56  ^27  0 


DoCHEC<  TS  ITEMPl 

extend 

RAND  33 

TS  L 

CS  ITEMPl 

MASK  OLDATAGD 
AD  L 

XCH  OLDATAGD 


0760 

REF 

^,9 

LASI 

181 

10,3135 

0761 

REF 

1 

LAS  1 

181 

10,3137 

0762 

REF- 

126 

LAST 

178 

10,3140 

0763 

REF 

1 

10,3l4l 

076A 

REF 

15 

LAST 

180 

10,3142 

0765 

REF 

4 

LAST 

175 

10,3143 

0766 

REF 

49 

LAST 

178 

10,3144 

1 OO6I  1 MASK  ITEMPl 

6 OUOl  0 AD  L 

10  000  0 CCS  A 

0 3OOI  0 TC  RESAMPLE 

52  06A  1 OXCH  ITEMP3 

20  A16  0 OAS  SAMPLSUM 

0 0002  0 TC  Q 


0767 

REF 

50 

LAST 

0768 

REF 

63 

last 

0769 

REF 

51 

LAST 

0770 

REF 

64 

LASl 

0 771 

Ref 

16 

LASi 

0772 

REF 

5 

LAST 

181  10*31A5 
178  10,31A8 
181  10,31A7 
181  10,3150 

181  10,3151 
181  10,3152 


A OO6I  1 DATAFAI 
7 0^13  0 
6 0061  0 
5A  A13  0 

52  06A  1 
52  A16  0 


L CS  II EMPl 

viASK  RADmODES 

AD  IlEMPl 

IS  RADMODES 

OXCri  IiEMPb 

OXCH  SaMPLSUM 


0773  REF  A LAST  177  10,3153  0 a366  0 


TC  SETTRKF 


077A  REF  2 LAS i 

0775 

0776 
07  77 


176  10,315A  1 

10,3155 

10,3150 

10,315T 

10,3160 


2 723  1 

23773  0 LRRATIO 
A7777  0 LvELblAS 
OOOOl  0 RDOTBIAS 

01150  1 


TCF  NOMORE 

DEC  A. 9977  B -3 

DEC  -12288 

2DEC  17000 


Dec  l3,  1966  (MAIN)  PAGE  181 


USER*S  OWN  PAGF  NO.  27  E3 

UPDATE  data  good  BIT  IN  OLDATAGD  AND 
MAKE  SURE  IT  WA<;  ON  BEFORE  AND  AFTER  THE 
SAMPLE  WAS  TAKEN  BEFORE  RETURNI  jG.  IF 
NOT,  GOES  TO  REaAMPLE  TO  TRY  AGAIN,  IF 
MAX  number  OF  TRIES  HAS  BEEN  REACHED, 

the  bit  corresponding  to  the  data  good 

WHICH  FAILED  TO  APPEAR  IS  IN  ITEMPl  AND 
CAN  BE  used  to  AET  RADMODeS  wHICH  VIA 

SETTRKF  SETS  THf  TRACKER  FAIL  LAMP. 

SHOULD  BOIH  BF  7ERO. 

IF  DAI  A GOOD  BEFORE  AND  AFTER,  ADD  TO 
ACCUMULATION. 


IN  THE  ABOVE  CASE,  SET  RADMODES  BIT 
showing  some  RAdAR  DATA  pAlLED. 


IF  WE  HAVE  BffN  UNABLe  TO  GATHER  N 
SAMPLES,  USE  LAsT  ONE  ONLY. 


LANDING  RmDAR  BIAS  FOR  153.6  KC. 
BIAS  COUNT  FOR  RR  RaNGE  RATE 


C0777 


^8a95AA  YJL  5>S|EM  YOR  AGt;  NEW  S^tPATlN  3Y  eYLeS 


Dec  n,  1966  (Main)  page  le^ 


Loooi  RADaP  LtAU-iN  RoUTINb3 

P0778  THIS  ROuTiNr  CHANGES  iHe  IR  AOSlTiON,  AiJD  ChEC<5  iMAT  IT  GOT  THERE. 


0779 


10»316l  0 OOOA  0 ERP052  INHInT 


0780 

REF 

19 

LASl 

176 

10,3164 

9 7 750 

0 

0781 

REF 

65 

LAST 

181 

10,3163 

7 0413 

0 

0782 

REF 

20 

LAST 

182 

10 ,316*+ 

6 7 750 

1 

0783 

REF 

66 

LAST 

182 

10,3161’ 

5 4 413 

0 

0784 

REF 

12 

last 

177 

10,3166 

3 7 747 

1 

0785 

10,3167 

0 0006 

1 

0786 

10,3170 

02  O33 

0 

0787 

10,3171 

0 OOO6 

1 

0788 

REF 

2 

LAST 

164 

10,3172 

I 3223 

0 

CS 

Bi  T6 

MASK 

RaDMODES 

AD 

BITS 

T S 

RaDMODES 

CAF 

BIT7 

extend 

RAND 

33 

EXTEND 

3ZF 

RADNOOP 

0789 

REF  13  LAS)  164 

10,3173 

3 7791 

1 

0790 

0791 

10,3174 

10,317s 

0 OOO6 
05  012 

1 

1 

CAP  B1T13 

EXTEND 

/JOR  IZ 


0792 

REF- 

1 

10,3176 

0793 

REF 

20 

LASl 

168 

10,3177 

07935 

REF 

10 

last 

169 

0799 

10 , 320O 

C0799 

REF- 

1 

10,3201 

0795 

REF 

9 

LAST 

175 

10,3202 

0796 

REF 

8 

LASl 

177 

10,3203 

07965 

REF 

8 

LA5I 

169 

10,3204 

0797 

10,320S 

07975 

REF 

13 

LAS: 

182 

10,3206 

0798 

10,3207 

07985 

10,3210 

0799 

10,3211 

0800 

REF 

1 

10,3212 

08005 

REF 

9 

LAST 

182 

10,3213 

0801 

RiF 

1 

10,3214 

3 3‘;aO  1 
0 5701  1 
E3 

03^736  0 

20003  0 

0 2302  1 

54  419  1 

0 5717  0 
30144  0 

3 7747  1 
0 0006  1 
02  O33  0 
0 0006  1 

1 3230  1 

13  419  1 
1 3-^03  1 


CAF 

6SECS 

TC 

WAITLIST 

ebank= 

RRRET 

2CADR 

LRPOSCAN 

TC 

ROADBACK 

LRPOSNXT  IS 

SAMPLIM 

TC 

FIXdFlAY 

DEC 

lOO 

CAF 

B1T7 

extend 

RAND 

33 

EXTEND 

3ZF 

lastlrdt 

CCS 

SAMPl IM 

TCF 

LRPOSNXT 

0802  REF  19 
08025 

0803 


LAST  182  10 

10 
10 


3215  9 7791  0 

3216  0 0O06  1 

3217  03  012  1 


CS  B1T13 
EXTEND 
WAND  12 


0809 

0805 

0806 

REF 

REF 

2 6 

4 

LAST 

LAST 

176 

176 

10.3220 

10.3221 

10.3222 

0807 

REF- 

31 

LAST 

177 

10,3223 

0808 

REF 

21 

LAST 

182 

10,3224 

08085 

REF 

1 1 

LAST 

182 

0 9794  1 K AEARM 

30S23  0 OCT  523 

1 3^55  1 rCF  ROBADEND 

3 7755  1 RADNOOP  CAE  ONE 

0 5701  1 1C  WAITLIST 

E3  EBAN<=  RRRET 


USER'S  OWN  PaGf  NO.  2^  E3 

DESIRED  LK  POSITION  IS  NOW  2. 


SEE  IF  ALREADY  tHERF. 

COMMAND  TO  POSITION  2 

start  scanning  tOR  TNBIT  after  ! SECS. 


SCAN  ONCE  PER  STCONq  15  TIMEs  MAX  AFTER 
INITIAL  delay  of  7 SECONDS. 

IF  THERE,  WAIT  FiNAl  SECOND  FOR  BOUNCE. 
SEE  IF  max  time  UP. 

IF  TIME  UP,  disable  COMMAND  AND  ALARM. 

LR  ANTENNA  DIDNT  MAKE  II. 

NO  further  action  Requested. 


48895“^*  YJL  SYSieM  fOK  AGC:  SHePAtIN  3Y  eYL^S 


LOOOl  9AdAR  Li.Au-IN  ROUTlNhb 


0809 

10,3225 

03450 

0 

2CA0R 

rgoodend 

C0809 

REF 

2 

LAS. 

177 

10,3226 

20O03 

0 

0810 

REF 

5 

LAST 

182 

10,322  1 

0 2502 

1 

TC 

ROADBACK 

0811 

REF 

9 

LAST 

182 

10,3230 

0 5717 

0 

lastlrdt 

tc 

fixdelay 

08111 

10,3231 

001^4 

0 

OEC 

100 

08112 

REF 

15 

LAST 

182 

10,3232 

4 7^41 

0 

cs 

BIT13 

08113 

10,3233 

0 0006 

1 

EXTEND 

08114 

10,3234 

03  012 

1 

WAND 

12 

08115 

REF 

3 

LAST 

183 

10,3235 

1 3450 

1 

ICF 

rgoodfnd 

08116 

RzF 

9 

LAST 

177 

10,3236 

3 7 '51 

0 

LRPOSCAN 

wAF 

B I T 5 

08117 

REF 

2 

LAS  I 

182 

10,323  ^ 

1 3*^03 

1 

TCF 

LkPOSNXT 

08118 

10,3240 

01^30 

1 

6SECS 

OEC 

600 

Dec  U,  lg66  (MAIN)  PAGE  183 


USER'S  OwN  pAGF  NO.  29 


E3 


WAIT  ONE  SECOND  AFTfR  RECEIPT  OK  INBIT 
TO  WAIT  FOR  ANTkNNA  BOUNCE  10  DIE  OUT. 

REMOVE  COMMAND 


SET  UP  FOR  15  SaMPLfS. 


488954/\  YJL  SYSit''^  I"  Ok  Pro^^a'*'  S^^LPATlfM  3Y  eYL^s 


LOOOI  RAOaR  LhAO-lN  RoUlINEO 

P08I2  jE"UtNCtS  TO  TER^lINArE  OPERATIONS, 


0813 

081A 

REF 

REf 

lA 

67 

127 

A 

5 

LASl 

last 

LAST 

LAST 

LAST 

LAST 

182 

182 

10. 

10, 

0815 

0816 
0817 

REF 

REF 

REF 

181 

183 

182 

10  , 
10, 
10, 

0818 

REF 

39 

180 

1 0 , 

0819 

REE 

2 

LAST 

22 

10, 

0820 

ree 

12 

LAST 

166 

10  , 

0821 

REF 

6 

LAST 

151 

10, 

0822 

REF 

A 

LAST 

1 A9 

10, 

0823 

REF 

AO 

LASl 

18A 

10, 

082A 

A U T c 

REF 

REF 

3 

LAST 

18A 

10, 

1 3 

LaS  T 

18a 

10  , 

0826 

REf 

7 

LAST 

ISA 

10, 

0827 

REF 

2 

LAST 

1A2 

10, 

0828 

REF 

5 

LAST 

15A 

32a1  3 7YA7  1 ENDRADAR  CAE 

3?a2  7 O'tU  0 viAS< 

32A3  Id  000  0 CCS 

32AA  1 3250  1 ICE 

32A5  1 3255  1 TCE 

32AS  a 7^61  1 -2  CS 

32A?  S5'076  0 T5 

325t>  3 7^SA  0 RSOOdEniD  CAe 

3251  0 52A3  1 TC 

3252  26731  0 CADR 

3253  A 7761  1 _2  CS 

325A  55*076  0 T5 

325l>  3 7 75A  0 RDBADEND  CAE 

3256  0 52A3  1 TC 

3257  26726  0 CADR 

6301  BIN3  equals 


BIT7 

RADmODES 

A 

RGOODEND 

RDBADEND 

ZERO 

RUPTAGN 

TwO 

POSTjUMP 

ggodend 

ZERO 

RUPTAGN 

TWO 

POSTJUMP 

BADFND 

THREE 


Dec  ia»  1966  (Main)  pa'^e  i®^ 


USER'S  OWN  PAGf  no.  30  E3 

PROLOG  TO  CHECK  RR  CDU  EaIL  BEFORE  END. 

RGOODEND  WHEN  NOT  UNDER  WAITLIST  CONTROL 


RDBADEND  WHEN  NnT  UNDER  WAlTLISi. 


48895^A  YJL  SYS'iEM  t- OR  AGC;  NElN  SMePATIN  BY  eYLeS 


u radar  TLSi  FRo&RAMS 


0001 

10*3260 

0002 

REF 

1 

E7 

R0003 

RADAR  sampling  LooP. 

0009 

REF 

1 

10,3260 

11*A36  0 

0005 

10,3261 

1 3263  1 

0006 

REF 

15 

last 

160 

10*3262 

1 5T95  0 

0007 

REF 

22 

LAST 

182 

10,3263 

0 5101  1 

00075 

0008 

REF 

2 

LAST 

165 

10,3269 

E7 

03260  0 

C0008 

0009 

0010 
00105 
0011 

Coon 

0012 

0013 

OOlA 

0015 

0016 


REF 

REE 

REF 

REF 

REF 

REF 

REF 

REF 

REF 


1 

1 

5 last  153 
3 LAST  185 

1 

1 

2 LAST  A3 
1 
1 


10,326i> 

10,3266 

10 , 326Y 

10.3270 

10.3271 

10.3272 

10.3273 
10,327A 

10.3275 

10.3276 


RADSAMP 


20007  1 
3 5665  1 
0 5523  0 
E7 

03300  1 
20U07  1 
3 3331  0 
0 0006  1 
7 1935  0 
6 1939  0 
55*^32  1 


sank 

EBANK= 


CCS 

TCF 


TCF 

rc 

EBAi'\1K  = 
2CADR 

CAF 

TC 

EBANK= 

2CADR 

CAF 

EXTEND 

VIP 

AD 

T5 


0017  rEf  16  lAsT  185  10,3271  1 5195  0 TCF 

R0018  DO  THE  ACTUAL  RADAR  SA'IPLe, 

0019  REF  1 10,3300  0 3332  0 DoRSAMP  TC 

0020  REF  9 LAST  81  10,3301  0 5229  0 TC 

0021  REF  1 10,3302  26156  1 CADR 

0022  REF  1 10,3303  25»‘*37  0 INCR 

0023  10,3309  0 0009  0 D0RSAMP2  INHINT 

0029  rEF  6 last  181  10,3305  52  ^16  0 OXCH 

0025  RcF  9 LAST  185  10,3306  51*935  1 INDEX 

0026  REF  1 10,330  1 53*'*91  0 OXCH 


0027  rEf  2 LAsI  176  10,33l0  52  ^20  0 OXCH 

0028  REF  5 LAST  185  10,33ll  51*^35  1 INDEX 

0029  REF  2 LAST  185  10,3312  53*993  1 OXCH 

0030  rEF  9 last  175  10,3313  52  922  1 DXCh 

0031  REF  6 LAST  185  10,3319  51*935  1 INDEX 

0032  REF  3 LAST  185  10,3315  53'A95  1 DXCH 

0033  rEF  3 last  185  10,3316  9 1935  o CS 

0039  REF  1 10,33lY  6 1933  l AD 

0035  10,3320  0 0006  1 EXTEND 


10 

RSTKLOC 


RSAMPUT 

+ 2 


TASKOVER 

WAITLIST 

RSTKLOC 

RADSAMP 

PRI025 

NOVAC 

RhTKLOC 

DORSAMP 

1/6 

RTSTLOC 

RTSTBASE 

RTSTDEX 

TASKOvEr 


VaRADAR 

BANKCALL 

RADSTALL 

RFAILCNT 


SAMPLsUM 

RSTKLOC 

RSTACK 

OpTyhOLD 

RSTKLOC 
RSTACK  +2 

TiMFhOLD 
RSTKLOC 
RSTACK  +9 

rt  stloc 

RTSTMAX 


DLC  l9,  1966  (MAIN)  page  185 


USER'S  OWN  PAGr  NO.  1 


TIMES  NORMAL  ONr E-PFR-SECOND  SA-lPLING, 

+0  INSERTED  MANi.ALLy  TERMINATES  TEST. 


FOR  CYCLIC  SAMPI ING,  RTSTDEX  = 
RTSTLOC/6  + RTStBASE, 

0 for  RR,  2 FOR  LR, 


selects  variable  radar  channel, 

ADVANCE  FAIL  COUNTER  BUT  ACCEPT  BAD  DATA 
YES  - UPDATE  TM  BUFFER. 


CYCLE  rTsTLOC 


488954A  YJL  SYSTEM  FOR  AGC  : NEW  PR0<JRAM  SFI^PatIN  BY  eYLe;S 


Dec  11?,  1966  (MAIN)  PA^E  18b 


L RACaR  test  IRoORAMS  USER'S  QrtN  PAGE  NO*  E7 

0036  10,3321  1 332a  0 3ZF  +3 


0037 

REF 

7 

LAST 

185 

10,3322 

3 1‘'35 

1 

CA 

RSTKl OC 

0038 

REF 

3 

LAST 

128 

10,3323 

6 6276 

1 

AD 

SIX 

0039 

REF 

8 

LASl 

186 

10,332A 

55*435 

0 

TS 

RSTKLOC 

0040 

RbF 

2 

LASI 

185 

10,3325 

11*436 

0 

CCS 

rsAmpdT 

SEE 

IF  Time  to  rE-sample. 

0041 

REF 

10 

LAST 

173 

10,3326 

1 5605 

0 

TCF 

ENDOFjOB 

NO  - 

WAIT  FOR  T:?  (Regular  sampling). 

0042 

REF 

11 

LAST 

186 

10,332  F 

1 5605 

0 

TCF 

ENDOFjOB 

TEST 

terminatfd. 

0043 

REF 

2 

LAST 

185 

10,3330 

1 3300 

0 

TCF 

DORSAMP 

JUMP 

RIGHI  BACK  AND  GET  ANOTHER  SAMPLE. 

OOAA  10,3331  35341  1 1/6  OEC  .17 


RooAS  variable  radar  Data  caller  for  one  measurement  only. 

0046  REF  32  LAST  182  10,3332  3 7^55  1 VARADAR  EAF  ONE  WILL  BE  SENT  TO  RADaR  ROUTINE  IN  A BY 

0047  REF  4 LAST  144  10,3333  54  123  0 TS  BUF2  SWCALL. 

0048  REF  2 LASl  185  10,333^  51'A32  0 INDEX  RISTDEX 

0049  REF  1 10*3335  3 3337  0 CAF  RDRl OCS 

0050  REf  2 last  83  10,3336  I 5^30  1 TCF  SwCAlL  NOT  TOUCHING  0. 


0051  REF  1 10,333'’  20650 

0052  R::F  1 10,3340  20b46 

0053  REF  1 10,3341  20644 

0054  REF  1 10,3342  20642 

0055  REF  1 10,3343  20640 

0056  REF  1 10,334A  20636 


0 

RDRLOCS  CADR 

RRRANGE 

= 0 

1 

CADR 

RKRDO  T 

= 1 

0 

CADR 

LRVFLX 

= 2 

0 

CADR 

LRVFLY 

= 3 

1 

CADR 

LK VELZ 

= 4 

0 

CADR 

LRALT 

= 5 

488954a 

YJL  system  for 

aGC:  nLW  Pro'^RAM  SHEPatIN  sy  EYLE.s 

DEC  13,  1966  (Main)  Pa^E  18T 

L 

extended  verbs 

USER'S  OWN  PAGf  NO.  1 

0001 

0002 

REF  1 

11*2000  3Ank 

E5  EBANK= 

1 1 

OGC 

R0003 

F AN-OJT 

R00C31 

NOTE  JF  SPECIAL 

IMPORT  CONCERVINg  RADAR  iiii 

R00032 

R0003‘+ 

R00036 


000^ 

0005 

A0006 

0007 

0008 

0009 

0010 


SIn.Ce  206  HAS  NO  RAoaRS,  THe  INTERRUPT  LEAD  IN  AND  T^RUPT  SERVICE  ROUTINE^  HAVf  BefN  DISCONNeCieU  IN 
SJNbJRSi  (ReV  39).  therefore,  THL  FOLLOt^ING  VERBS  SHOULD  NOT  BE  USED:  40  WITH  NOUTi  40,  4l  WITH  NOUN  4n , A5  * 
4b,  AND  SEQUENCES  13  AND  14  0-  v)ERB  57, 


REF  1 
REF  1 

REF  1 
REF  1 
REF  1 
REF  1 


11.2000  0 2u7o  1 LST2FAN 

11.2001  0 2U73  1 

11,2u02  0 2204  0 

11,2003  0 2P73  1 

11,200A  0 2U66  0 

11,2005  1 2^26  1 


TC  VBZfRO  VBAo  Zero  (USfD  WITw  noun  2o  or  Ao  only) 

TC  vbCOARK  VBAI  coarse  ALI(,N  (USED  wUH-NO.lN  20  OR 

40  ONLY) 

TC  IMUFINEK  VB42  FINE  ALIGN  IMU 

TC  IMUATTCK  VB43  LOAD  IMU  eTTItUDE  ERROR  MfTERS. 

TC  ALM/END  VB44  SPARE 

TCF  LRPOS2K  VB45  COMMAND  LR  TO  POSITION  2. 


0011 

0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 
0021 
0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 


REF  1 

REF  1 

REF  1 

REF  2 LAST  187 

REF  3 LAST  187 

REF  4 LAST  187 

REF  1 

REF  1 

REF  1 

REF  1 

REF  1 

REF  1 

REF  1 

REF  1 

REF  1 

REF  1 

REF  1 

REF  1 

REF  1 

REF  1 

REF  1 

REF  1 

REF  1 


11.2006 

11,2007 

11 .2010 

11.2011 
11,2012 

11.2013 

11.2014 

11.2015 

11.2016 

11.2017 
11,2020 
11,2021 
1 1 ,2022 

I 1,2023 

I I ,202A 

I 1,2025 
1 1,2026 
11,2027 

I I ,2030 

11.2031 

1 1.2032 

1 1 ,2033 
1 1 ,2034 


0 2415  0 
0 2407  0 
0 2262  0 
0 2262  0 
0 2262  0 
0 2262  0 
0 2266  1 
0 2303  0 
0 2'»05  1 
0 2327  0 
0 3l26  1 
0 3 174  0 

0 2641  0 

1 2531  0 

1 3273  0 
1 3247  1 
1 3253  1 

1 3261  0 
1 3265  1 
1 3267  0 

1 3275  0 
1 3257  0 
1 3251  0 


TC  regrsamp 

TC  DOFCSTST 

TC  GULOADLV 

TC  GULOADLV 

TC  GULOADLV 

TC  GULOADLV 

TC  TUROGYRS 

1C  ALINTIME 

TC  GOSHOSUM 

TC  SYSTEST 

TC  PRESTAND 

TC  POSTAND 

TC  SETUPMSG 

TCF  AgSINIT 

TCF  64UPDAT 

TCF  65UPDAT 

TCF  66UPDAT 

TCF  67UPDAT 

TCF  70UPDAT 

TCF  7iUPDAT 

TCF  72UPDAT 

TCF  73UPDAT 

TCF  74UPDAT 


VB46  SAMPLE  RADaR  ONCE  PER  SeCO ,D 

VB47  PERFORM  LEM  FCs  TEST 

VB50  PLEASE  PFRrORM 

VB51  PLEASE  MARic 

VB52  PLEASE  MARk  Y 

VB53  PLEASE  MARk  X OR  Y. 

Vb54  PULSE  TORQiiE  GYROS 
VB55  ALIGN  T IME 
VB56  PERFORM  BAnKSUM 
VB57  perform  SYSTEM  TEST 
VB60  PREPARE  FOR  STANDBY 
VB61  RECOVER  FROM  STANDBY 
VB62  SCAN  LEM  InBITS 
VB63  INITIALIZE  AGS 

VB64  SET  TIMER  TO  GROUND  ELAPSE)  TIME 

VB65  SET  GUIDANCE  REFERENCE  RELfASE  DISC 

VB66  INITIATE  LcC  DF I TLM  CALIBRATE  RTN 

VB67  SEND  COMMAND  TO  LMP 

VB70  SET  MISSION  TIMER 

VB71  SET  mission  PHaSE  REGISTER 

VB72  set  mission  PHaSE  REGISTER  + TIMER 

VB73  reset  dps  OR  RPS  COLD  SOAK  DISC 

VB74  STOP  MISSION  TIMERS 


0034  REF  1 

0035  REF  1 

0036  REF  2 LAST  187 


11.2035  1 3306  0 

11.2036  1 3301  1 

11.2037  0 2U66  0 


TCF  75UPDAT  VB75  target  parameter  UPDATE 

TCF  76UPDAT  VB76  STATE  VECTOR  UPDATE 

TC  ALM/END 


0037 

REF 

6 

LAST 

180 

11,2040 

0038 

REF 

2 

LAST 

86 

11,2041 

0039 

0040 

REF 

REF 

128 

1 

LASI 

184 

1 1 ,2042 

1 1,2043 

3 7^53  1 TESTXACT  CAF  B1T3 

7 0336  0 MASK  EXTVBACT 

ID  UOO  0 CCS  A 

0 2U53  0 TC  XACTALM 


^88954A  YJL  SYSTEM  F-OK  AGC;  NEvV  PROGRAM  SHePATIN  3Y  EYLeS 


L EXTEMDEL  VERBS 

OOAl  REF  7 LAST  187  llt^OAA 

00A2  11»20A!j 

00A3  R£F  3 last  187  ll,20Ab 

OOAA  REF  a LAST  188  11«20A7 

OOA5  REF  A LAST  188  11,2050 

00A6  11,2051 

00A7  REF  50  LAST  181  11,2052 

00A8  REF  1 11,2053 

00A9  REp  12  last  186  11, 205*+ 

0050  REF  1 11,2055 

0051  REF  1 11,205B 

0052  REp  13  last  188  11,2057 

0053  REF  9 LAST  188  11,2060 

005A  11,2061 

0055  REF  5 LAST  188  11,2062 

0056  REF  6 LAST  188  11,2063 

0057  11,206A 

0058  REF  51  LASi  188  11,2065 


A 

7^53 

0 

xacti 

cs 

BI  T3 

0 

OOO  A 

0 

INHINT 

7 

0336 

0 

^AS< 

extvract 

6 

7 ^53 

1 

AD 

BI  T3 

5A 

■ 336 

0 

TS 

ExrVBACT 

0 

0003 

1 

RELINT 

0 

0O02 

0 

T C 

0 

0 

A360 

0 

XACTALM 

TC 

FALTON 

0 

5605 

1 

TC 

EnDOfjOb 

0 

Aa3 

0 

TERMEXTV 

TC 

FREEDSP 

0 

2060 

0 

enoextvb 

TC 

XACTO 

0 

5605 

1 

TC 

endofjob 

A 

7^53 

0 

xacto 

CS 

B1T3 

0 

OOOA 

0 

INHINT 

7 

0336 

0 

MASK 

EXTVRACT 

5A 

336 

0 

TS 

EXTVBACT 

0 

0 

0003 

0002 

1 

0 

XACTOQ 

relint 

TC 

a 

0059 

rcf 

2 last  188 

1 1 ,2068 

0 A560  0 AlM/ENd 

1C 

palton 

0060 

REF 

1 

11,206' 

0 2056  0 

TC 

ENDFXTVB 

0061 

ref 

1 

1 1,2070 

0 

2076 

1 

VBZErO 

TC 

Op/ inert 

0062 

REF 

1 

1 1 ,2071 

0 

2llO 

0 

TC 

IMU7FROK 

0063 

REF 

1 

11,2072 

0 

2117 

1 

TC 

RRZEROK 

0065 

REF 

2 LAST  188 

11*2073 

0 

2076 

1 

V3C0ARK 

TC 

OP/INERT 

0066 

REF 

1 

1 1 ,207*+ 

0 

2132 

0 

TC 

imucoark 

0067 

REF 

1 

1 1,2075 

0 

223A 

0 

TC 

RRDESNBK 

R0069  RETURNS  TO  l+ 1 IF  iMJ  OR  L+2  IF  RR. 


0070 

REF 

10 

LAST 

183 

11,2078 

A 7 '51 

1 

OP/INERT  CS 

BIT5 

0071 

REF 

2 

LAST 

86 

1 1 ,2077 

6 0273 

1 

AD 

NOUNREG 

0072 

1 1 , 2 1 OO 

0 OOO6 

1 

EXTEND 

0073 

REF 

1 

11,2101 

1 2065 

1 

3ZF 

XACTOO 

r>n  7 / 

ore 

K wr 

52 

LAST 

188 

11,2 IO2 

2a  ^02 

0 

INCR 

0 

0075 

ref 

1 

11,2103 

6 2IO7 

0 

AD 

RR I MUDI F 

0076 

0077 

REF 

2 

LAST 

188 

1 1 ,2lOA 
11,2105 

0 OOO6 

1 2065 

1 

1 

EXTEND 

3ZF 

XACTOQ 

OEC  U,  1966  (MAIN)  PAGE  188 


USER'S  OWN 


IF  WE  GET  A 


RETURN  HERE 
RETURN  HERE 

RETURN  here 
RETURN  HERE 

0CT20 

IF  = 20. 


PAGf  no.  2 E5 


terminate  INSTEAU  op  a LOAD. 


IF  NiOUN  = IGDU(20) 
IF  nOUN  = RCDU(AO) 


IF  nOuN  = ICDu(20) 
IF  nOUN  = RCDU(AO) 


20  OCT 


-vaagsAA  yjl  system  eor  agc:  mew  program  shePatin  by  eYLes 


Dec  U,  1966  (MAIN)  page  189 


0082 

E)(TtMDELi  VERBS 

REF  3 LAST  187 

11.2106 

0 2^66  0 

TC 

ALM/END 

USER'S  OWN  PAGF  NO 

ILLEGAL. 

0083 

11.2107 

77^57  1 

RRIMUDIF  OCT 

-20 

‘*sa93‘^A  yJL  SySlEM  FOR  AGO:  MEw  pROijRAvi  sHepATIiM  BY  EyLES 


L E'^TE'l'icl-  Vt^t3S 

P0085  <£YB0A|^L  request  TO  ZERO  jmU  EMCOOERS 

0086  REF  1 11,2110  0 zOaO  1 lviJZERO<  TC 

0087  REF  5 LASl  185  1 1 ,21  1 1 0 5-^2^  0 TC 

0088  REF  1 11,211^  26000  0 CAUR 

0089  REF  6 LAST  190  11,2113  0 5*^29  0 TC 

0090  REf  1 11,211A  ZbfbZ  0 cADR 

0091  1 1,21  1^>  0 2U6  0 TC 

0092  REF  2 LAST  188  11,2116  0 2056  0 TC 

0093  REF  2 LASl  190  U,21lT  D 2040  1 RRZERO<  TC 

0094  REF  r LAST  190  11,2120  0 5224  0 TC 

0095  REF  1 11,2121  20247  1 CADR 


0096 

REF 

8 

LAST 

190 

0097 

0098 

REf 

2 

LAST 

185 

0099 

REF 

3 

LAST 

190 

11*2122  0 5'^24  0 R/JAITK  TC 

11,2123  26^56  1 CADR 

11,212"*  1 2125  1 TCF 

11,2125  1 2056  1 TCF 


0100  REF  3 LASl  190  1 1 *2126  0 2040  1 LrPoS2I<  TC 

0101  REF  .9  last  190  11,212^  0 5^24  0 TC 

0102  REF  1 11,2130  21l61  1 CADR 

0103  REF  1 11,2131  1 2^22  0 TCF 


DEC  13,  1966  (MAIN)  pAgE  190 


USER'S  OWN  PAGf  no.  4 


E5 


TESTXACT  ZERO  ENCODERS. 

BANKCALL 

IMUZERO 

bankcall  stall 

Imubtall 

+ 1 


endfxtvb 

TESTXACT 

BANKCALL  ZERO  RR  CDUS. 

RRZERO 

BANKCALL 
RADSTALL 

+ 1 

ENDFXTVB 

TESTXACT 
BANkcAlL 
LRP0S2 
RwAITK 


command  lr  to  Position  2 


't8895AA 


P0104 

0105 

0106 

0107 

0108 

0109 

0110 
0111 

0112 

0113 

0114 

0115 

0116 

0117 

0118 

0119 

0120 

0121 

0122 


Y JL  System  iOR  aqc:  ''^tw  prooravi  shepatIit  3y  eylEs 
verbs 

<EYB3Arl  RE:;UEST  to  COArsf  ALiGm  'he  IMU 


REF  4 LAST  190  11,2132 
ref  1 11,2133 
REF  1 li,213A 
REF  4 LASi  148  11,2133 
REF  4 LAST  148  11,2139 
REF  1 11,2137 
REF  1 11,2140 

REF  1 ll*214i 
REF  5 last  191  11,2142 
REF  2 LAST  188  11,2143 

REF  10  LAST  190  11,2144 
REF  1 11,2145 

REF  11  LASI  191  11,2149 
REF  2 LAST  190  11,2147 
REF  4 last  190  11,2150 

REF  5 LAST  191  11*2151 


0 2^40  1 IV1UC0AR<  TC 


0 4933  0 TC 

3 2I52  0 CAF 

0 4046  1 TC 

0 4464  0 TC 

0 2O55  0 TC 

0 2154.  0 TC 

3 2I53  1 1C0RK2  CAF 

0 4946  1 TC 

0 4713  0 TC 

0 5224  0 TC 

26065  0 CADR 

0 5224  0 TC 

26762  0 CADR 

0 2056  0 TC 

0 2O56  0 TC 


1 1*2152  32522  0 V'JLODCDJ  3CT 
11,2153  34100  1 Imucoarv  Oct 


DEc  13*  1966  (mAIN)  pAGE  191 


USER'S  OWN  PAGf  no.  5 


E5 


TESTXACT  coarse  ALIGN  FRnM  KEYBOARD. 

GRABWAIT 

ViVLODCDU  CALL  FOR  IHETAD  LOAD 

NVSRWAIT 

ElvDIDLE  STALL  WAITING  FriR  THE  LOAD 

TERMEXTV 

ICSDeL  proceed  - ASK  Fr.R  INCREMENTAL  LOAD. 

imucoarv  re-display  coarfe  align  verb. 

NvSBWAI T 

FREFDSP  release  THE  DISPLAYS 

BANKCALL  CALL  MODE  SWITCHING  PROG 

IMUCOARS 

BANKCALL  STALL 

IMUSTALL 

ENDFXTVB 

ENDFXTVB 

02522 

O4IOO 


488954A  YJL  bY3iEM  FOR  aGC  : .'MeW  PRq^RA'^  5'^E^^ATIl^l  BY  eYLeS 


P0123 

0124 

0125 

0126 

0127 

0128 

0129 

0130 

0131 

0132 

0133 

0134 

0135 

0136 

0137 

0138 

0139 

0140 

0141 

0142 

0143 

0144 

0145 

0146 

0147 


verbs 


PROVISION  FOR  Coarse  a-i‘^n  to  incremental 


ANOL 


REF  1 11.2154 
REF  6 last  191  11.2155 
REF  5 last  191  11.2156 
REF  2 last  191  11.215? 
REF  1 11.2160 
REF  1 11.216i 
REF  2 last  192  11.2162 

REF  53  LASI  188  11,2163 
REF  58  LAST  173  11.2164 
REF  1 11.2165 
REF  7 LAST  86  11,2166 
REF  14  LAST  184  11,216? 

REF  59  LAST  192  11,2170 
rEF  129  last  187  11.2171 
REF  3 LAST  148  11.2172 
REF  12  LAST  191  11.2173 
REF  1 11,2174 
REF  8 LAST  192  11.2175 
REF  9 LAST  192  11.2176 
REF  60  LAST  192  11.217? 
REF  1 11.2200 


3 2202  0 ICSDEL  CAF 
0 4646  1 TC 

0 4464  0 1C 

0 2O55  0.  TC 

0 2i41  1 TC 

0 2l63  1 TC 

0 2T4I  1 TC 

56  002  0 INCLOOP  XCH 
5 4 1 44  1 T S 

3 2203  1 CAF 

54  120  0 TS 

3 7?54  0 CAF 

54  145  0 1N1CLOOP2  TS 

53  000  1 index 

56  342  1 xCH 

0 6‘i24  0 TC 

33647  1 CADR 

13  120  0 CCS 

54  120  0 TS 

13  145  0 CCS 

0 2170  0 1C 


REF  bl  LAST  192  11.2201  0 0l44  0 TC 

11.2202  32523  1 DELLOAO  OCT 

REF  3 LAST  130  11.2203  30402  1 LTHD+2  ADRES 


Dec  1^,  1966  (MAIN)  page  192 


USER'S  OwN  PAOF  NO.  6 E5 

.5. 

DELLOAD 

NvSBWAIT 

ENDIDLE 

TERMEXTV 

request  load  of  Delta  icdu  angles. 

IC0RK2 

INCLOOP 

IC0RK2 

PROCEED  WITHOUT.  DATA  HERE  TOu. 

LOOP  TO  INCREMENT  THETAD  FROM  DsPTEM2. 
re-display  COARSE  ALIGN  VERB. 

0 

MPAC 

LTHD+2 

increments  THETaDS  in  25  COMPLEMENT  FROM 
three  angle  INrREMpNTS  IN  DSPTf-M2S, 

BUF 

T wO 

SET  UP  FOR  CDUIn,C. 

THREE  times  THRnUGH. 

MPAC  +1 

A 

DSPTFM2 

BANKCALL 

CUUINC 

BUF 

BUF 

MPAC  +1 
INCL00P2 

increment  TO  TEN2  FOR  CDUINC. 

MPAC 

RETURN  when  FINISHED. 

02523 
THETAD  +2 


4889b^A  YJL  SYSIEM  hOR  AGC:  NEW  PRO'^RA'1  SHlPATIN  BY  tYLES 


P0IA8 

0U9 

0150 

0151 

0152 

0153 

0154 

0155 

0156 

0157 

0158 

0159 

0160 

0161 

0162 

0163 

0164 

0165 

0166 

0167 

0168 

0169 

0170 

0171 

0172 


EXTENOtl.  VERBS 

<EYBJARE  Re:.UeST  to  FIiIe  ALIS'l  ANO  gyro  torque  IMJ 


REF  5 last  l9i 
REp  2 lA51  191 
REF  1 

REF  / LASI  192 
REF  b LAST  192 
REF  3 last  192 


11  .2204  0 2O4O  1 HUFINEC  TC 


11.2205  0 4P33  0 Tc 

11.2206  3 2432  0 CAF 

11.2207  0 4940  1 TC 

11.2210  0 4464  0 TC 

11.2211  0 2U55  0 TC 


11’2212  0 2413  0 TC 

REF  1 11,2213  3 2433  1 CAF 

REF  8 LAST  193  11,2214  0 4^46  1 TC 

REF  3 last  191  11,2215  0 4 a3  0 TC 

REF  13  LASi  192  ll,22l0  0 5424  0 TC 

REF  1 11.221^  26451  0 CADR 


REF  14  LAST  193 
REF  3 LAST  191 
REF  6 LAS!  191 

REF  1 

REf  15  last  193 
REF  1 

REF  16  LAST  193 
REF  4 LASI  193 
REF  / LAST  193 
REF  a LAST  193 


11.2220  0 5424 

11.2221  26^62 

11,2224  0 2^56 

1H2223  3 2301 

11.2224  0 5424 

11.2225  26361 

11.2229  0 5424 

11,222T  26^62 

11.2230  0 2056 

11.2231  0 2056 


0 TC 

0 CADR 

0 TC 

1 FINEK2  CAF 

0 TC 

1 CADR 

0 TC 

0 CADR 

0 TC 

0 TC 


11.2232  02567  1 VNLODGYR  OCT 

11.2233  04400  1 iMUFINEv  OCT 


DEC  U,  1966  (MAIM)  PAGE  193 


USER'S  OWN  PAGF  NO.  ? E5 

TESTXACT 

FINE  ALIGN  WITH  GYRO  TORQUING. 

GR AbwA  I T 
vnlodgyr 

NVSRWAI T 

CALL  FOR  LOAD  Oi-  GYRO  COMMANDS 

ENDIDLE 

TERMEXTV 

HOLD  UP  FOR  THE  DATA  LOAD 

+ 1 

PROCEED  WITHOUT  A LOAD 

IMUFINEV 
NVSRWAI T 

RE-DISPLAy  OUR  nwN  wERr 

FREFDSP 

RELEASE  DISPLAY*; 

BANKCALL 

IMUFINE 

CALL  MODE  SWITCi^  PRoG 

BaNKCALL 

IMUSTALL 

ENDEXTVB 

HIBERNATION 

LioYROBIN 

BANkcAlL 

IMUPULSE 

pinball  left  COImMANDS  IN  OGC  RE;!lST5R5 

BANKCALL 

IMUSTALL 

EwDEXrVB 

ENDFXTVB 

02567 

WAIT  FOR  PULSFS  TO  GET  OUT. 

04200 


FINE  ALIGN  VERB 


48895^A 


L 

P0173 

0174 

0175 

0176 

0177 

0178 

0179 

0180 


0181 

0182 

0183 

0184 

0185 

0186 

0187 
01875 

0188 
C0180 

0189 

0190 

0191 


0192 

0193 

0194 

0195 

R0196 

R0197 

R0198 

R0199 

0200 

0201 

0202 

0203 


YJL  SYSTEM  t-OR  AGC.  ReW  PRO'jRAM  SMePATIN  BY  eYLeS  DeC  U,  lg66  (MAIN) 

EKTENOeu  verbs  USER'S  OWN  PAGf  NO.  8 

DESIGNATE  TO  DESIRED  GIMBaL  ANGLES. 


REF  6 LAST  193 
REF  3 LAST  193 
REF  1 

REF  9 LAST  193 
REF  7 LASl  193 
REF  4 LAST  193 


11 

,223A 

0 

2040 

1 

RRDESNBK  TC 

TESTXACT 

1 1 

,2235 

0 

4933 

2255 

0 

TC 

GRABWAIT 

1 1 

,2239 

3 

1 

CAF 

VNLDRCDU 

11 

,2237 

0 

4946 

1 

TC 

NVSBWAIT 

11 

,2240 

0 

4464 

0 

TC 

END  IDLE 

1 1 

, 224  1 

0 

2O55 

0 

T C 

TERMEXTV 

11 

,2242 

0 

2243 

0 

TC 

+ 1 

ASK.  FOR  GIMBAI  ANGLES. 
WAIT  FOR  the  load 
PROCEED 


REF  LASi  193  11,2243  0 5‘i24  0 TC  BANKCALL  ASK  OP  FOR  LOCK  ON  REOUIReMeNTS 

REF  1 li,224A  22^65  0 CADR  AURLOKON 


REF  1 

REf  10  last  194 

REF  1 

REF  6 LASl  169 

REF  2 LAST  187 

REF  1 

REF  5 LASl  194 


11*2245  3 2155  1 

11.2246  0 4946  1 

11.2247  0 0004  0 

11.2250  3 7^40  0 

11.2251  0 5534  0 

E5 

11.2252  02256  1 

11.2253  22OO5  1 

11,225A  1 2O55  1 


CAF  OPTCOARV  RE-DISPLAY  QUR  nWN  VERB 

TC  NVSRWAIT 

INHINT  FIRE  UP  JOB  TO  nO  DESIGNATE. 

CAF  PRI020 

1C  FlNDVAC 

EBANK=  OOC 

2CADR  RRDF5K2 

TCF  TERMFXTV  FREES  DISPLAY. 


11,2255  02'*41  1 VNLDRCDU  OCT  2441 

ref  2 last  191  11*2153  OPTcOARv  EQUALS  IMUcOARV  DIFFERENT  NOUNs. 

REF  3 LASl  170  11,2259  0 6l03  0 RRDE5K2  TC  INTPRET 

11,2257  V7924  1 CALL 

REf  1 11,2260  20363  0 RRDFsNB  RETURNS  IN  BAsIr. 

REF  2 LASl  190  li,226l  0 2l22  1 TC  RwAlTK 

Please  ferform  verb  and  pi  ease  ^ark  verb  pressing  enter  indicates 

ACTION  t-EQUESTED  HAs  BEEN  PE;^-0:<MLd,  AND  DOES  SAME  RECALL  As  A COMPLETED 
LOAD,  CPeRATOR  should  DO  VB  PROCEED  WUHOUl  DATA  IF  HE  WISHES  NOT  TO 
PERFORM  THE  REQUESTED  ACTION, 


RFF  1 11,2262  0 4915  1 GOLOADLV  TC  FLASHOFF 

ref  2 last  188  11,2263  0 2060  0 TC  XACTO 

REF  8 LASl  184  11,226^  0 5243  1 1C  POSTJUMP 

RBF  1 11,2265  12OO2  0 CADR  LOADLVI 


page  194 
E5 


488954^  YjL  SYSfi^M  FOR  aCiC!  nLw  S^EPaTin  BY  LYLtl.s 

L EKTLNiRtO  VERBS 

P0204  keyboard  REDDEST  TO  PJLSE  TO:?iJE  IR]GA 


0205  REF  7 east 

0206  REF  4 LAST 

0207  REF  2 LAST 

0208  REF  11  LAST 

0209  REF  8 LAST 

0210  REF  6 LAST 

0211 

0212  REF  1 

0213  REF  12  LAST 

0214  REF  4 LAST 

0215  REF  1 

0216  REF  4 last 

0217 


194  11*2260  0 

194  11,2267  0 

193  11,2270  3 

194  11,2271  0 

194  11,2272  0 

194  11,2270  0 

11,2274  0 

11,2270  3 

195  11,2270  0 

193  11,2277  0 

11,2300  1 

42 


2O4O  1 TORQGYRS  1C 


4033  0 TC 

2232  0 CAF 

4046  1 TC 

4464  0 TC 

2055  0 IC 

2275  0 TC 

2302  1 CAF 

4646  1 TC 

4 a3  0 TC 

2223  1 TCF 


11  *2301  30403  0 L5YRCB1IY  ECADR 

11,2302  35400  0 TORODYRv  3cT 


DEc  13,  1966  (MAIN)  PaGE  195 


USER'S  OWN  PAGf  no.  9 


TeStXACT  gyro  TORQUING  with  no  MODE-SwITrH. 

GRABWAIT 
VNLODGYR 
NVSRWAIT 
ENDIDLE 
TERMEXTV 
+ 1 

TOROGYRV  RL-DISPLAY  our  nWN  VERB 

NVSBWAIT 

FREFDSP 

F1NEK2 

DELVX 

05400 


E5 


48895^A  yJL  SySibY,  f- OR  A&C;  pROGRA.M  5HEpATlN  BY  EYLt‘' 


DEC  1966  (MAIN)  pAQE  196 


L eXilNOEO  VlrB5  USER'S  OWN  PAGf  NO.  10  ES 

P0218  Align  time 

0219  REF  1 11,2303  3 2326  1 ALINTIME  CAF  VNLODDT  USES  NVSUBMON.  nOES  NOT  TEST  DSoLOCK, 


0220 

0221 

0222 

0223 

022A 

0225 

0226 

0227 

0228 

0229 

0230 

0231 

0232 

0233 


REF  2 last  153 
REF  1 

REF  lA  last  188 
REF  9 last  195 
REF  15  last  196 
REF  16  LAST  196 

REF  A1  LAST  18A 
REF  62  LAST  192 
REF  A2  LAST  181 
REF  5 LAST  175 
REF  63  last  196 
REF  1 

REF  6A  LAST  196 


11*2304 

5A  113 

0 

11*2306 

0 4A47 

1 

11*2306 

0 5PO5 

1 

11*2307 

0 4464 

0 

1 1 *23l0 

0 5PO5 

1 

11*2311 

0 5605 

1 

11  *23lZ 

0 0004 

0 

11*2313 

3 7F6I 

0 

11  *231A 

54  146 

0 

11*2316 

54  OOl 

1 

11*2316 

62  025 

1 

ll,23n 

52  I45 

0 

11*2320 

52  340 

1 

11*2321 

20  I45 

0 

TS  NVTFMP 

TC  NVSUBMON 

TC  ENDOFJOB 

TC  ENOIDLE 

TC  ENDOFJOB 

TC  ENDOFJOB 

UrDATIME  INHINT 

CAF  ZERO 

TS  MPAC  +2 

TS  L 

DXCH  TIME2 

DXCH  MPAC 

DXCH  DSPTEMl 

DAS  MPAC 


DOES  NOT  KILL  MnNIToR. 

IN  CASE  OF  alarm  IN  LOAD  REQUEST  SET  UP. 
TERMINATE 

proceed  without  data 
Delta  time  is  in  dsptemi,  +i, 

needed  for  TP  Agree 

ZERO  T1  & 2 WHIl  E Al  IGNING. 


increment. 


0234 

REF 

2 

LAST 

135 

11 

*2322 

0 7320 

1 

0235 

REF 

65 

LAST 

196 

11 

*2323 

52  145 

0 

0236 

REF 

6 

LAST 

196 

11 

*2324 

20  025 

1 

0237 

REF 

17 

LAST 

196 

11 

*2326 

0 5PO5 

1 

TC  tpagree  force  sign  agreement 

DXCH  MPAC  NEW  CLOCK. 

DAS  TIME2 

TC  ENDOFJOB 


0238 


11*2326  D212A  1 VNLODDT  DCT  02124 


V/N  FOR  LuAD  DEI  TA  TIME 


48895AA  YJL  S^SIEM  i^OR  AGC : NEW  SH£PAT1N  3Y  EYLt8 


P02A3 

02AA 

02A5 

0246 


0247 

0248 

0249 
0260 
0251 
0262 

0253 

0254 


0255 

0256 

0257 

0258 

0259 
02595 

0260 
C0260 

0261 

0262 

02621 

02622 

02623 

02624 

0263 

0264 

0265 

0266 

R02665 

0267 

0268 

0269 

0270 

0271 

0272 

0273 

0274 

0275 

0276 

0277 


EKTENUEL  verbs 

SELECT  AND  INIlIATt  DESIRED  SYSTEM  TEST  PROGRAM. 


REF 

REF 

REf 


1 

6 LAST  79 
2 LAST  187 


REF  5 last  195 


REF 

REF 

REF 

REF 

REF 

REF 

REF 


REF 

REF 

REF 

REF 

REF 

REF 

ref 


REF 

ref 

REF 

REF 

REF 


REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 


1 

66  LAST 
1 

13  last 
10  LAST 
1 
1 


196 

195 

196 


2 LAST  194 
7 LAST  194 

3 LAST  194 

1 

18  LAST  196 


2 last  197 


3 LAST  168 

2 last  197 

3 LAST  197 
1 

3 LAST  166 


233C 


1 2P53 


2331  0 4P33 

2332 

2333 
233A 
233s 

233fc  0 4^64 
233Y  0 5604 
234C 


0004 


0 5605 


2351 

2352 

2353 

2359 


5361 


5246 


E5 

EBANK= 

□PLACE 

: 1 

1 1 

SYST  EST 

CCS 

TCP 

MUDREG 

xactalm 

1 0 

T C 

GR ABWA I T 

1 0 

REDO 

CAF 

LOPL 

1 0 

1 S 

MPAC  +2 

1 1 

CAF 

TESTNV 

> 1 

TC 

NVSBWAIT 

1 0 

1 C 

ENU 1 DLE 

1 0 

TC 

EJFREE 

^ 1 

TC 

REDO 

. 1 

TC 

NEWMODEX 

' 0 

OCT 

07 

t 0 

inhint 

1 0 

CAF 

PRI020 

t 0 

T C 

FINDVAC 

E5 

ebank= 

OGC 

1 

2CADR 

TSELECT 

> 1 

i 1 

TC 

ENDOFJOB 

I 

T SELECT 

cs 

LOW4 

> 1 

Ad 

□place 

> 1 

EXTEND 

’ 1 

3ZMF 

+ 3 

) 0 

TC 

FALTON 

; 1 

1 C 

REDO 

> 1 

INDEX 

□PLACE 

; 1 
> 1 

CAF 

1C 

TESTCADR 

BANKJUMP 

DON'T  USE  13  OR  14  (SEE  ^OTE  ON  USER'S  PAGE  l). 


last  189 


last  197 


11*2362 
11*2363 
11*2369 
11*2363 
1 1 * 2 366 
1 1 *2367 

1 1 *2370 

11*2371 

11*2372 

11*2373 
1 1 *2379 


22O66  1 
5OUOO  1 
50U24  1 
30U00  1 

50247  0 

50947  0 
22U66  1 
73905  1 
46356  0 
31326  1 
31364  1 


TESTCADR  CADR 
CADR 
CADR 
CADR 
CADR 
CADR 
CADR 
CADR 
CADR 
CADR 
CADR 


ALM/FND 

I MUTEST 

IMUBACK 

AOTNBIMU 

OPCHK 

GYR5FTST 

ALM/END 

Grscpss 

samodchk 

sautoifs 

AOTANGCK 


Dec  U,  1966  (MAIN)  PAGE  197 


USER'S  OWN  PAGE  NO.  11  E5 


DEMAND  MODE  00. 


ASK  FOR  TEST  OPTION  (1  - 7) . 


LEAVING  DISPLAY  GRABBED  FOR  SYSTEM  TEST. 
octal  17  OPTIONS  wITHUUI  OPERATOR  ERRO 


0 ILLEGAL 

1 GYRO  drift  Test 

2 REPEAT  OF  IMUtEST 

3 imu  alignment  test 

4 IMU  CHECK 

5 gyro  TURQUINL,  test 

6 available 
7.  gyrocompass 

10  SeMI-AUTOMATiC  MnDING  CHECK 

11  semi-automatiC  interface  test 

12  aot  angle  check 


488954A  YJL  SYSTti-l  FOl^  A&C;  PROCi^AVl  5H£Pa7Iim  3Y  EYLFS 


0278 

extended  Verbs 

REF  1 

1 

0279 

Kcr 

i 

1 

0280 

REF 

1 

1 

0281 

REF 

1 

1 

02811 

REF 

6 

last 

197 

1 

02812 

REF 

7 

last 

198 

1 

0282 

1 

0283 

REF 

4 

LAST 

197 

1 

0284 

REF 

9 

last 

194 

1 

0285 

REF 

1 

1 

0286 

REF 

10 

LAST 

198 

1 

0287 

REf 

1 

1 

l^375  31i22  1 CADR 

.2376  22‘*11  0 CADR 

,2377  3i‘5l5  1 CADR 

,2400  23'JlA  0 CADR 

,2401  22O66  1 CADR 

,2402  22^66  1 CADR 

,2403  32101  0 TESTNV  DCT 

,2404  02^46  1 LDPL  ECADR 

,2405  0 3^43  1 GDSHOSUM  TC 

,2406  77507  0 CADR 

*240/  0 5^43  1 DDFCSTST  TC 

,24l0  14467  1 cAdR 


1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 


RDRINIT 

FSTRSAMP 

ZbROERAS 
DISINDT 
ALM/END 
ALM/END 
2101 
QPLACE 
POST  JUMP 
SHOWSUM 


dec  U,  1966  (MAIN)  page  19B 
USER'S  ONN  PAGf  NO.  12  E5 

13  rendezv/OUs  Radar  / antennae  tracking 

14  high  speed  RaDaR  sampling, 

DISPLAY  INERTIAi  OAtA  TEST, 


start  ROUiINe  Tn  DISPLAY  SUM  OF  EACH 
BANK  ON  DSKY 


Post JUMP 
FCSSTART 


488954A  YJL  SYSiEM  i- OK  AGC:  NEW  Pl-iOG^A'I  jHirpATlN  BY  EYLE.S 


DEC  U,  1966  (MAIN)  PAGE  199 


P0288 

0289 

0290 

0291 

0292 

0293 

029A 

0295 

0296 

0297 

0298 

0299 

0300 

0301 

0302 

0303 

0304 

0305 

0306 

0307 

0308 

0309 

0310 

0311 

0312 

0313 

0314 

0315 

0316 

0317 

0318 

0319 

0320 

0321 

0322 

0323 

0324 

0325 

0326 

0327 


EKtENOEl/  yekbs 

BEl  UP  FOR  RADAR  SAv|3l1N^. 


REF  9 Last  186 


E7  EBANK=  RSTKLOC 


REF  1 
REf-  2 last 
REF  33  LASI 
REF  1 


11 

86  11 
186  11 
11 


2411  3 2P00 

2412  59  All 

2413  4 7^55 
24lA  1 2A17 


0 FSTRSAMP 

1 
0 
0 


CAF  RSTKLIST 
IS  DNLSTAdR 
cs  One 

TCF  RSAMPTST 


REF 

6 

LAST 

197 

REF 

1 

REF 

67 

Last 

197 

REF 

1 

REF 

68 

Last 

184 

REF 

69 

LASI 

199 

REF 

2 

LaS  I 

199 

Rzf 

70 

LASI 

199 

RcF 

1 

REF 

7 

LAST 

140 

REF 

68 

LaSi 

199 

REF 

3 

LaSi 

186 

REF 

42 

LaSi 

196 

R£F 

4 

LAST 

185 

R^F 

2 

LAS  T 

185 

REF 

1 

REF 

2 

LAST 

185 

rEf 

1 

REF 

14 

LAST 

197 

REF 

1 1 

LAST 

1 97 

REF 

2 

LAST 

197 

REF 

1 

RcF 

5 

LAS  I 

1 95 

REF 

4 

Last 

199 

REF  3 LAST  186 

REF  11  LASI  198 

REr  3 LASI  186 

REF  4 LAST  186 

REF  4 LAST  199 


11.2415  0 4^33  0 REGRSAMP  TC  GRARWAIT 

11.2416  3 5223  1 CAF  lSEC+1 

11,2411'  54  146  0 RSAMPTST  TS  MPAC  +2 

11.2420  0 0004  0 INHINT 

11.2421  4 2501  0 CS  LRPOSCAL 

11.2422  7 0A13  0 MASK  RAOMODES 

11.2423  54  A13  0 TS  RaDMODES 

11,242A  3 2501  1 CAF  LRPOSCAL 

11,2425  0 0006  1 EXTEND 

11»2426  02  U33  0 RAND  33 

11,2427  2b  413  0 ADS  RADMODES 


11,2430  0 0U03  1 RELINT 

11.3/.  -jl  a-34A3n  rat 


11 

,2431 

3 2452 

0 

CAF 

LRTSTDEX 

11 

,2432 

54  003 

0 

TS 

EBANK 

11 

,2433 

5b  146 

1 

XCH 

MPAC  +2 

1 1 

, 2434 

5 3 ' 436 

0 

T S 

RSAMPDT 

1 1 

*2435 

3 7(61 

0 

CAF 

ZERO 

11 

,2436 

53,435 

0 

TS 

RTSTlOC 

1 1 

, 2437 

35,437 

1 

T S 

RFAILCNT 

1 1 

,2440 

3 2476 

0 

CAF 

HlSPMAX 

11 

,2441 

55*433 

0 

TS 

RTSTMAX 

11 

,2442 

3 2477 

1 

car 

RT  STnV 

11 

,2443 

0 4646 

1 

TC 

NVSBWAIT 

1 1 

,2444 

0 4464 

0 

T C 

ENDIDLE 

11 

,2445 

0 5004 

0 

TC 

ejfree 

11 

,2446 

1 2502 

0 

TCF 

RSEMIAUT 

11 

,2447 

0 4(13 

0 

RDRDFREF 

TC 

frefdsp 

11 

,2450 

1 1*436 

0 

CCS 

RSAMPDT 

J 1 

,2451 

1 2455 

0 

TCF 

+ 4 

11 

,2452 

03432 

1 

LRTSTDLX 

ECADR 

rtstdex 

11*2453  0 1 TC  PoStJUMP 

11,2454  21300  1 cAdR  DORSAMP 


11.2455  3 6276  1 CAF  SIX 

11.2456  7 1432  1 MASK  RTSTDEX 


USER'S  Oi^N  PAGp  no.  13  E5 

HIGH  SPEED  SAMPi  ING.  SWITCH  TO  SPECIAL 
DOwNlIST. 

WANTS  TM  BUFFFRtNG. 

SHOWS  NO  I M RUFf  ERING. 

INITIALIZE  SCALP  AND  LR  POSITION  BITS, 

HI  speed  NNZ  - I 0 SPEED  PNZ, 

ZERO  BAD  SAMPLE  COUNTER. 

ON  TERMINATE. 

proceed  means  sfmi-auto  sequencing. 

SEE  IF  HI  OR  LO  SPEED  SAMPLING. 

EXEC,  otherwise,  set  UP  WAIILISl  TIMING. 
FIND  OUT  WHICH  RADAR  WANTED. 


48895^A  YJL  SYSTEM  FOR  aGC  : NlW  PRO'^RA'^  SHePatIN  BY  eYLes 


DpC  i::),  Ig66  (MAIN) 


L EKTENDBI  VErBE,  USER'S  OwN  PAGf  NO. 

0328  REF  130  LAST  192  11.2457  10  OQO  0 CCS  A 

0329  REF  1 11,2460  1 2^64  1 TCF  LRCYCLE  LANDING  RADAR  ApE  SeRIALS  2-5 


0330  REF  2 LaS,  185  11,2461  55'‘'3A  1 TS  RTStBASE  FOR  RR  BASE  = 0.  MAX  = 1, 

0331  REF  5 LAS!  199  11,2462  3 6276  1 CAF  SIX 

0332  11,2463  1 2>67  1 1 CE  +4 


0333 

REF 

15 

LAS, 

0334 

REF 

3 

LASl 

0335 

REF 

1 

192  11,246A 

200  11,2463 

1 1,2460 


3 7^5A  0 LRCYCLE 
55'‘'34  1 
3 2A75  0 


CAF  TWO 

TS  RTSTBASE 

CAF  18R 


FOR  LR  BASE  = 2.  MAX  = 3. 


0336  REF  3 LAST  199  11,2467 

0337  11,2470 

0338  REF  23  LAS!  185  11,2471 

03385  REF  10  LASi  199 

0339  11,2472 

C0339  REF  2 LAST  185  11,2473 

0340  REF  19  LAST  197  11,247A 


55*^33  0 +4  TS  RTSTMAx 

0 0004  0 INHINT 

0 5^01  1 TC  WAITLIST 

E7  EBANK=  RSTKLOC 

03260  0 2CADR  RADSAMP 

20007  1 

0 5005  1 IC  EnOOFJOB 


0341  11,2473 

03A2  11,2470 

0343  11,2477 

0344  REF  1 11,2500 

0346  11,2501 


00022 

1 

18R 

DEC 

18 

00102 

1 

HISPMAX 

OEc 

66 

02101 

0 

RTSTNV 

OCT 

2101 

02001 

1 

RSTXLIST 

oENADR 

UPDNLIST 

00^44 

0 

LRPOSCAL 

OCT 

44A 

page  200 

E7 


488959^ 

YJL  sistEm  foR  aOc:  new  Program  shepatin  by  eyles 

DEc  13,  1966 

iiCr  ('■».. jM  r\  /I  /~  r. 

(Main) 

P/\GE  201 

L 

P03A7 

E^1  fc.NL/t.L  vtKbb 

SE'  I-AUTO  RADAR  10^1  IMS. 

Uot.K*5  UwIn  PAGF  NU* 

1 5 

E7 

0348 

0349 

REF 

2 

LASl 

185 

1 1,2502 
1 1,2503 

0350 
03505 

0351 
C0351 

REF 

REF 

REF 

6 

1 1 

4 

last 

LAST 

LAST 

185 

<;00 

199 

11,2504 

1 1,2505 
11,2506 

0 G'JO't  0 RSEKIAU1  inhint 

3 5C>65  1 CAF  PkI025 

0 5^23  0 1C  NOVAC 

E7  EBANK=  RSTKLOC 

03^00  1 2CAl>R  DORSAMP 

20007  1 


START  HI  SPEED  <;AMPl  ING. 


0352 

0353  REF  2 LASl  HI 
035A  RET  5 LASl  199 


11.2507  0 0U03  1 

11,2510  3 7T60  1 

1 1 ,251  1 55  ’‘*32  1 -1 


RELINT 
CAF  F I VE- 
TS RTSTDEX 


sequence  THROUGi-  all  six  CHANNELS. 


0355 

0356 

0357 

REF 

REF 

REF 

1 

15 

2 

LAST 

LASl 

199 

147 

11.2512 

11.2513 
11,251^ 

0358 

0359 

0360 

REF 

REF 

REF 

1 2 

1 

1 

LASl 

1 99 

1 1.2515 

11.2516 

11.2517 

0361 

1 1 ,2520 

3 

2630 

0 

33PASTE  CAF 

RV33 

0 

4646 

1 

TC 

NVSBWAIT 

0 

4611 

0 

TC 

flashon 

0 

4464 

0 

T C 

END  I DLE 

0 

2523 

1 

TC 

ENDRTST 

1 

1 

2521 

2512 

1 

1 

TCF 

ICF 

♦ 2 

33PASTE 

On  Enter,  switch  to  next  channel. 


ON  terminate. 

DONT  ACCEPT  DATA. 


0362 

REF 

6 

LAST 

201 

1 1,2521 

1 1*432 

1 

CCS 

RTSTDEX 

0363 

REF 

2 

LAS  1 

2OI 

11,2522 

1 2511 

1 

I CF 

33PASTE  -1 

0364 

REF 

^3 

LAST 

199 

1 1,2523 

3 7F6I 

0 

ENDRTST 

CAF 

ZERO 

0365 

REF 

5 

LASl 

199 

1 1 ,2529 

5 5 ' **36 

0 

T S 

RSAMPDT 

0366 

REF 

2 

LASl 

197 

11,2525 

0 4105 

1 

TC 

NEWMODEX 

0367 

1 1,2526 

ooooo 

1 

OCT 

0 

0368 

REF 

3 

LAST 

199 

1 1 ,2527 

0 5P04 

0 

TC 

ejfree 

0369 

1 1 ,2530 

03300 

1 

Rv33 

OCT 

3300 

ENDTEST. 


^8895^A  yjL  SySiEm  f OR  Ag^^:  NLw  pRO(j9Avi  S^^EpATlN  gY  EY'-f-‘’ 


Dec  13*  1966  (mAIN)  pAgE  202 


L extendel  verbs 

P0370  AG^  IMTiAliEAT  ION  PROGh'^M* 


0371 

REF 

2 

LAST 

79 

0372 

REF 

8 

LASl 

198 

0373 

REF 

6 

LASl 

77 

0374 

REF 

1 

0375 

REF 

43 

LAST 

196 

0376 

REF 

1 

11.2531 

10  412 

1 AGSINIT 

CCS 

AGSWORD 

11.2532 

0 2^66 

0 

TC 

ALM/END 

1 1 .2533 

3 0025 

0 

CA 

timfi 

11  .253A 

6 2571 

0 

AD 

I2SFCS 

11.2535 

5 4 00 1 

1 

1 S 

L 

1 1 .2536 

0 2553 

0 

TC 

SENDIT 

0377 

11.2537 

0 0004 

0 

0378 

REF 

2 

LAST 

202 

1 1 .254O 

3 2571 

0 

0379 

REF 

3 

LAST 

LASl 

202 

1 1 . 2 54 1 

54  ‘♦12 

1 

0380 

REF 

24 

200 

1 1 .2542 

0 5^01 

1 

inhint 

:A  12SFC5 

15  AGSWORD 

TC  WAITLIST 


03805 

REF 

12 

LASl 

201 

038 1 
C0381 

REF 

1 

0382 

REF 

20 

LASl 

200 

0383 

REF 

3 

LASl 

80 

0384 

RzF 

7 

LAST 

201 

03845 

0385 

REF 

1 3 

LASl 

202 

C0385 

REF 

2 

LASl 

202 

0386 

REF 

17 

LASl 

185 

E7 

11.2SA3  02PA6  1 

11.2SAA  22^07  0 

I 1*2543  0 5605  1 

1 1 .2546  3 5<^26  1 A5SJ0B 

11.2547  0 5P23  0 

E7 

11.2550  02P53  0 

11.2551  22^07  0 

11.2552  0 5^45  1 


EBANK=  RSTKLOC 
2CADR  AGSJOB 

1C  enoofjob 

CAF  PRIO3O 
TC  NOVAC 
EBANK=  RSTKLOC 
2CA0R  SENDIT 

TC  TASKOVER 


0387 

0388  REf  1 

0389  REF  3 LAST  199 

0390  REF  4 last  2O2 

0391  REF  1 

0392  REf  25  LAST  202 

03925  REF  LASl  202 

0393 

C0393  REF  1 

0394  REF  21  LASl  202 


11.2553  0 0004  0 SENDIT 

II.255A  3 2572  0 

11.2555  56  ‘♦11  0 

11.2556  SR  412  1 

1 1. 255"^  3 2370  1 

11.2560  0 5^01  1 

E7 

11.2561  02564  1 

11.2562  22OO7  0 

11.2563  1 5605  0 


INHINT 

CAf  LAGslIsT 
KCH  DNLSTADR 
TS  AGSWORD 

CAF  lOSECS 
TC  waitlist 
EBANK=  RSTKLOC 
2CADR  AuSINIT2 

TCF  ENDOFJOB 


0395 

REF 

44 

LAST 

201 

1 1 .256A 

3 7761 

0 

0396 

KcF 

5 

lasi 

202 

11 .2565 

56  ‘♦12 

0 

0397 

REF 

4 

LAST 

202 

1 1.2566 

54  411 

1 

0398 

REF 

16 

LAST 

202 

1 1. 2567 

1 5745 

0 

0399 

1 1 .257D 

01 750 

1 

0400 

1 1 .2571 

02260 

1 

0401 

REF 

1 

1 1 .2572 

O2DOI 

1 

AG51N1 T2 

CAF 

zero 

kch 

AgBwORD 

TS 

DNLSTADR 

TCF 

TASKOVER 

lOSLCS 

DEC 

1000 

12SEC5 

DEC 

1200 

LAGSLIST 

3ENADR 

AGSL 1ST 

USER'S  OWN  PAGf  NO,  16  E7 

zero  if  AgS  Not  now  being  initialized. 

DO  IT  LATER. 


Tl  WILL  OVERFLOia,*  DeLAY  FOR  12  SECS 


ENTER  AGSINIT  JoB  VIA  EXEC 


switch  to  special  downlisT  for  io  secs* 

TO  SHOW  INITIALIZATION  IN  PRoGRfSS. 


END  OF  INITIALI7ATION. 

REVERT  TO  ORIGINAL  DOWNLIST. 


^8895^A  YJL  SVSieM  FOR  aGC:  SHePatIN  BY  eYLeS 


L EKTLNtEL  VERBS 

P0402  VB  43  IMU  ATTITUDE  ERTO^<  METEf-!  LOADER. 


0403  REF  8 LASi  195 

0404  REF  1 

0405 

0406 


11,2673  0 20^0  1 IVIUATTCIC  TC 

11,237^  4 2«>36  1 05 

11,2573  0 0O06  1 EXTEND 

11,2575  03  D12  1 wANO 


0407 

REF 

7 

LASi 

199 

0408 

REF 

2 

LAST 

191 

0409 

REF 

16 

LAST 

201 

0410 

REF 

13 

LAST 

201 

0411 

REF 

7 

LAST 

195 

0412 

0413 

R ;r 

1 

0414 

REF 

17 

LAST 

203 

0415 

REF 

21 

LAST 

182 

0416 

0417 

0418 

0419 

REF 

1 6 

last 

200 

11,2577  0 4533  0 

11.2600  3 2152  0 

11.2601  0 4546  1 

11,260E  0 4464  0 

11.2603  0 2O55  0 

11.2604  0 2505  0 

11.2605  3 2537  1 

11,2605  0 4546  1 

11,2601  3 7150  1 

11.2610  0 OOO6  1 

11.2611  05  O12  1 

11.2612  3 7 154  0 

11.2613  0 0004  0 


TC 

CAP 

TC 

TC 

TC 

TC 

CAP 

TC 

CAF 

EXTEND 

aiOR 

CAP 

INHINT 


0420  REF  26 

04205  REF  15 

0421 

C0421  REF  1 

0422  REF  8 

0423  REF  17 

0424  REp  54 

0425  REF  131 

0426  REF  4 

0427 

0428  REF  16 

0429  REF  55 

0430  REF  3 

0431  REF  56 

0432  REF  2 

0433  REF  1 

0434 

0435 

0436  REF  19 

0437 

0438 

0439 


LASi  202  11 

LAST  202 

1 1 
11 

LAST  203  11 

LAS:  203  11 

LASI  192  11 

LAST  200  11 

last  192  11 

11 

last  183  11 

LAST  ^03  11 

LAST  129  11 

LAST  203  11 

LAST  203  11 

11 

11 

11 

LAST  202  11 


11 

11 

11 


2619  0 5TOI  1 

E7 

2615  02520  1 

2615  22U07  0 

2617  1 2O55  1 

2620  3 7T54  0 

2621  54  002  1 

2622  50  000  1 

2623  3 0400  0 

2624  0 0006  1 

2625  7 7741  0 

2625  50  002  0 

2627  54  Oso  0 

2630  10  002  1 

2631  1 2521  1 

2632  3 2540  1 

2633  0 0006  1 

2634  05  014  1 

2635  1 5745  0 

2636  OOO5O  1 

2637  04300  0 

2640  70000  0 


TC 

EBANK= 

2CADR 

TCF 

ATTCK2  CAF 
TS 

INDEX 

CA 

EXTEND 

VIP 

INDEX 

TS 

CCS 

TCF 

CAF 

EXTEND 

rtOR 

TCF 

0CT50K  OCT 

V43K  OCT 

0CT70K  OCT 


TESTXACT 

OCT5OK 

12 

GRABWAIT 

VNLODCDU 

NVSRWAIT 

ENDIDLE 

TERMEXTV 

+ 1 

V43< 

NVSRWAIT 

BIT6 


12 

TwO 


WAITLIST 

RbTKLOC 

ATTCK2 

TERMEXTV 

Two 

Q 

A 

THETAD 

B1T13 

Q 

CDUXCMD 

0 

ATTCK2  +1 

OCT7OK 

14 

TASKOVER 

50 

4300 

70000 


Dec  1^,  1966  (MAIN)  PAGp  203 


USER'S  OWN  PAGF  NO.  17  E7 


REMOVE  COARSE  AND  EcTR  ENABLE. 


REDISPLAY  OUR  VFRB. 
ENABLE  ERROR  COUNTER. 


PUT  OUT  COMMAND  IN  .32  SECS. 

FREES  DISPLAY. 

PUT  OUT  ALL  commands  - COU  WILL  DO  LIMII 
INCAsE  Of  EXCESS  DAtA. 


SHIFT  RIGHT  2 


48895^A  YJL  5>SieH  f- OK  aOC  : N^W  SHt-PATlN  BY  t^LfS 


Dec  1966  (Main)  page  20a 


L EXTENDEl.  VErBE  user's  own  PAGF  no.  IB  E7 

POAwg  PROGRAM  TO  SCAN  CHANviEuS  30  - 32  FOR  CHANGES  IN  SELeCTEO  INBItS.  CALLeD  BY  SPErlAL  VeRB. 


OA51  REF 


E7  EBANK=  MSGCNT 


0452 

0453 

0454 

REF 

REF 

20 

27 

LAST 

LAST 

178 

203 

1 1 ' 2641 
11.2642 

1 1.2643 

04545 

0455 

C0455 

REF 

REF 

1 6 

1 

LA  5 7 

LAST 

203 

1 1 .264A 
11.2645 

0456 

REF 

2 2 

202 

1 1 .2646 

.3  7(35  1 SETUPMSC,  cap  BlTl 

0 OOOA  0 INHINT 

0 5701  1 IC  WAITLIST 

E7  EBANK=  RSTKLOC 

02R51  1 2CADR  MSGSCAN  +2 

22^07  0 

0 5P05  1 TC  ENDOFJOB 


OAST  REF  10  LAST  183  11.2647  0 5717  0 M5GSCAN  TC  FlXOELAY 

0458  11.2650  00062  0 oEc  50 


0459  REF  18 

0460  REF  2 

0461  REF  I32 

0462  REF  1 

0463 

0464  REF  3 

0465 

0466  REF  4 

0467  REF  1 

0468 

0469  REF  1 


LAST  203  11 

LAST  204  11 

LASl  203  11 

1 1 
1 1 

LAST  204  11 

11 

LASl  204  11 

11 
11 
11 


2651  3 7754  0 

2652  55'B07  0 

265B  5O  000  1 
265A  3 1P04  1 

265B  0 0006  1 

2655  5 io07  1 

2657  05  O30  1 

2660  51'507  1 

2661  7 2710  1 

2662  0 0006  1 

2663  1 2705  0 


CAF  Two 
TS  MSGCNT 
INDEX  A 
CA  LAST30 

EXTEND 

INDEX  MSGCNT 
RXOR  30 
INDEX  MSGCNT 
MASK  30M5GMSK 
EXTEND 

3ZF  NOMSG 


0470  REF  57 

0471  REF  5 

0472  REF  2 

0473 

0474  REF  44 

0475  REF  6 

0476  ref  3 

0477 

0478  REF  58 

0479  REF  59 

0480 

0481  REF  2 


LAST  203  11 

LASl  204  11 

LASl  2O4  11 

11 

LAST  202  11 

LAST  204  11 

LAST  204  11 


11 

LAST  204  11 

LAST  204  11 

11 

last  204  11 


266A  54  002  1 

2665  51'607  1 

2666  23'604  1 

2667  0 0006  1 

2670  05  001  0 

2671  51'607  1 

26711  55’604  0 

2673  4 OOOO  0 

267A  55  002  0 

2675  7 0002  1 

2676  0 0006  1 

2677  1 2705  0 


TS  Q 

INDEX  MSGCNT 
LXCH  LAST30 
EXTEND 
RXOR  L 
INDEX  MSGCNT 
TS  LAST30 


COM 

XCH  Q 
MASK  Q 
EXTEND 

3ZF  NOMSG 


R0497  NO  rotational  HAND  CDNl ROLLER  IN  206* 


BEGIN  SCAN. 


SCAN  ALL  3 CHANNELS  FOR  CHANGES. 

Old  value  of  inrits. 


SAVE  DIFFERENCE. 
UPDATE  OLD  VAI  U(-  . 


SEE  IF  ANY  OF  Ci ANGfD  BITS  JUST  ON, 
NO  MESSAGE  IF  So. 


0498 

REF 

1 

1 1 .2700 

3 2 713 

0 NOTRHC 

CAF 

OKT3O 

0499 

REF- 

7 

last  204 

11.2701 

6 1607 

1 

AD 

MSGCNT 

0500 

REF 

24 

LAST  146 

11.2702 

54  D71 

0 

IS 

RUPTREG2 

0501 

REF- 

60 

last  204 

11.2703 

4 OUO2 

1 

CS 

Q 

0502 

REF 

1 

11.2704 

0 2731 

0 

TC 

vmessage 

^8895'!tA  YJL  SySieH  (ON  AGC : NEW  Pf<oCi^AN  SHePATIN  BY  eYLE-S 


L EXTENPtu  VEPBS 


0503  REF  3 last  20a  1 

050A  REF  2 LAST  20A  1 

0505  REF  3 LAST  205  i 

0506  i 

0507  i 

0508  1 

0509  1 

0510  REF  1 1 

0511  1 

0512  REF  lO  LASI  177  1 

0513  REF  8 last  203  1 

051A  REF  1 1 

0515  REF  18  LAST  203  1 

0516  REF  A last  201  1 

0517  1 


,2/05  11<607  0 NOMSG  CCS 

,2706  1 2652  0 TCF 

,2707  1 26A7  1 TCF 

,27l0  00017  1 30MSGMS<  DC! 

,2/11  7/F77  O DCT 

,2712  03777  0 OCT 

,2/13  00030  1 0<T30  OCT 

,271A  0 2F2A  1 DESCBITS  TC 

,2716  00016  0 OCT 

,2716  0 5F51  1 TC 

,2717  0 a633  0 RriCMON  TC 

,2720  3 2^23  0 CAF 

,2/21  0 a6A6  1 TC 

,2722  0 5t>0A  0 TC 


,2723  016A5  1 RhCMONVN  OCT 


1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 


Dec  u,  1966  (MAIN)  PAGE  205 


USER'S  OWN  PaGF  no.  1*7 


MSGCNT 
MSGSCAN  +3 
MSGSCAN 

17 

77777 

3777 


30 

MESSAGE  descent  BITS  COtnE  HERE  IN  A. 

16 

RESUME 

GRARWAIT  FIRE  UP  DSKY  MONITOR, 

RHCMONVN 

NVSBWAIT 

EJFREE 

16A6 


E7 


488954A  YJL  5Y5lt;M  FqR  AGC  : N^W  Prq^RA'^  SH^PatIN  BY  tYL^ 


DtG  1966  (MAIIm)  PaGe  208 


L ekte'NOeo  verbs 

P0518  i-ILSSAGt  DISPLAY  - B CO^IPUneNT  OCfAL. 


0519 

REF 

25 

last 

204 

0520 

REF 

61 

last 

204 

0521 

0522 

REF 

62 

LASi 

206 

0523 

REF 

26 

LAST 

206 

0524 

REF 

25 

LAST 

141 

0525 

0526 

RcF 

9 

LAST 

143 

0527 

REF 

1 

0528 

REF 

8 

LAST 

202 

05285 

REF 

17 

LAST 

204 

11  ,272A 
1 1 »2725 
11*2728 
11  *2  ?2/ 

11.2  r30 

1 1 *2  ^3l 
11*2i'32 
11,2733 
11  ,273A 

11 .2  ?35 


5A  B7I  0 MESSAGE 
50  D02  0 
3 ODOO  1 
2i*  P02  0 
55  B71  1 


TS  RUPTREG2 

INDEX  Q 

CAP  0 

INCR  Q 

XCH  RUPTREG2 


5A  B7O  1 VMESSAGL  TS  RUPTREGl 

0 0^06  1 extend 

22  D72  1 3XCH  RUPTREG3 

3 5867  0 CAP  PR1027 

0 5^23  0 IC  NOVAC 

E7  EBANK=  RSTKLOC 


0529 

C0529  REp  1 

0530  REP  26 

0531  REP  A 

0532  REP  69 

0533  REF  7 

053A  REF  5 

0535  REF  70 

0536  REF  10 


11 

11 

last  206  11 

LAST  153  11 

last  199  11 

last  202  11 

LAST  206  11 

LAST  206  11 

LAST  206  11 


273^  02^47  1 

2737  22^07  0 

274O  52  G7I  0 

27A1  50  G6A  0 

2742  52  I45  0 

2743  3 0D25  0 

2744  50  064  0 

2745  5Ct  1^6  0 

2746  0 OO72  1 


2CADR  DOMSG 

OXCH  RUPTREGl 
INDEX  LOCCTR 
OXCH  MPAC 
CA  TlMPl 

INDEX  LOCCTR 
TS  MPAC  +2 
TC  RUPTREG3 


0537 

REF 

9 

LAST 

205 

11,2747 

0 4833 

0 

DOMSG 

TC 

GRABWAIT 

0538 

11,2750 

0 0006 

1 

extend 

0539 

REF 

71 

LAST 

206 

11,2751 

3 0145 

1 

OCA 

MPAC 

0540 

REF 

2 

LAST 

196 

11 ,2752 

52  3^jO 

1 

OXCH 

DSPTEMl 

0541 

REF 

72 

LAST 

206 

11,2  753 

3 0l46 

1 

CA 

MPAC  +2 

0542 

REF 

3 

LAST 

206 

11,2754 

5^1  341 

0 

TS 

DSPTEMl  +2 

0543 

REF 

I 

1 1 ,275s 

3 2 ^64 

0 

CAF 

MSGVN 

0544 

REF 

2 

LAST 

153 

11,2758 

0 4A33 

1 

TC 

NVSUB 

0545 

REF 

1 

1 1 ,2757 

1 2^61 

1 

TCF 

MSGBUSY 

0546 

REF 

5 

last 

205 

11,2780 

0 58O4 

0 

TC 

E jFREE 

0547 

11,2761 

3 2 763 

1 

MSGBUSY 

CAF 

+ 2 

0548 

REf 

1 

11 ,2762 

0 4943 

1 

TC 

NVSUBUSY 

0549 

REF 

2 

LAST 

206 

11,2763 

22  ^50 

0 

CADR 

DOMSG  +1 

0550 

1 1 ,2764 

00535 

1 

MSGVN 

OCT 

0535 

USER'S  OtsiN  PAGp  NO.  20  E7 


NEW  channel  contents  ARRIVE  IN  A, 
CHANNEL  NUMBER  IN  OCTAL  AT  CALLER  +1. 


FOR  VARIABLE  CHaNNEI . 


FIRE  UP  SPECIAL  JOB. 


NEW  CONTENTS  TO  MPAc  - CHANNEL  jUMBER  TO 
MPAC  +1. 


48895^A  YJL  SYSltM  FUR  AGC!  nEw  S^EPaTin  BY  EYLEs 


DEc  U*  1966  (MAIN)  PAGE  207 


P0551 

0553 

055A 

0555 

0556 

0557 

0558 

0559 

0560 

0561 

0562 

0563 
056A 

0565 

0566 

0567 

0568 

0569 

0570 
05  71 

0572 

0573 

0574 

0575 


EKTLNOtL  Verbs 


USER'S  OWN  PAUf  NO.  21 


E7 


routine  for  AUrOrA  0\iL^  lo  Ask  operator  if  RR  lock  On  requested. 


REF 

REF 

REF 

REF 

REF- 

REF 


REF- 

REF 


144 

108 


2 last 
6 LASl 

2 LAST  201 
19  LAST  205 

3 last  201 
l4  LASl  203 


REF  2 LAST  173 

REF  45  LASl  202 

REF  18  LASl  173 
REF  1 

REF  19  LAST  207 

REF  3 LASl  207 
REF  133  last  204 


REF  l5  LASl  l6i 
REF  71  LASl  199 


7 LAST  207 
4 LASl  197 


2 765 

2766 

2767 

2770 

2771 

2772 

2773 

2774 

2775 

2776 

2777 

3000 

3001 

3002 

3003 

3004 


0 b^b'3  0 AJRLOKON  TC 


54  427  1 
3 2530  0 
4646  1 
461  r 0 
4464  0 
2 776  1 
0 


0 
0 
0 
1 

3 7751 
1 2 777 
7 761 
0004 


3000 
300  7 

3010 

3011 
30U 


56  07it  1 


7 3OI3 

26  07<t 


7 7751  1 

10  Ooo  0 


3005  1 3O1O  1 


3 7737  0 

26  413  0 

u 0003  1 

3 0427  0 
1 5^46  0 


IS 

CAF 

IC 

TC 

TC 

TCF 

CAF 

TCF 

CAF 

INHINT 

KCH 

MASK 

ADS 

MASK 

CCS 


TCF 

CAF 

ADS 


MAKECADR 

DESRET 

RV33 

NVSBWAIT 

FLASHON 

ENDIDLE 

+ 3 

LOKONFLG 

+ 2 

ZERO 

SI  ATE 
-LOKONFG 
SI  ATE 

LOKONFLG 

A 


+ 3 

BIT  15 
RADmODES 


RELINT 

CA 

TCF 


DESRET 

BANKJUMP 


ASSUMES  DSKY  GRABBED. 


ON  TERM. 


IF  NO  LOCK-ON  CALLED  FoR,  SET  B1T15  OF 
RADMODES  TO  INDICATE  THAT  ARbITRARILY- 

LONG  DESIGNATION  IS  WANTED  (TO  RE 

terminated  by  Fresh  start). 


11.3013  77757  1 -LOKONFG  OCT 


-20 


48895'+A  Y JL  SySlEw  fOR  AgC:  ’'Itw  pNOG^Avt  S^EpATlN  3y  EyLbS 


DEC  U*  1966  (mAIN)  pAQE  208 


L E'<TE'^DED  VEkBS 

P0576  Program  to  rj^  disReat  inertial  data  test. 


0577 

0578 

0579 

0580 

0581 

0582 

0583 
058A 

0585 

0586 


REF  1 11 

REF  20  LAS!  207  11 

REF  15  last  207  11 

REF  1 11 

11 

REF  i 11 

REF  21  LASI  208  11 

REF  16  LAST  208  11 

REF  2 LAST  208  11 

11 


301A  3 310A  1 DiSINDT 

3015  3 i,046  1 

3016  0 4‘f6A  0 

30 W 1 3DAI  0 

3020  1 3O2I  0 

3021  3 3IO5  0 

3022  0 APA6  1 

3023  0 A‘t6A  0 

302A  1 3OAI  0 

3025  1 3U26  1 


CAF  FLVrLVN 

TC  NV5BWAIT 

TC  endidle 

TCF  ENDDISIN 

TCF  +1 

CAF  ALT,R,VN 

TC  NVSBWAIT 

TC  ENDIDLE 

TCF  ENDDTSIN 

TCF  +1 


0587 

0588 

0589 

REF 

REF 

34 

5 

LAST 

LAST 

199 

96 

1 1.3025 
11.302T 
11.3030 

0590 

0591 

REF 

4 

LAST 

95 

11.3031 

11.3032 

0592 

REF 

1 1 

LAST 

95 

11.3033 

0 0004 

0 

INHINT 

4 7155 

0 

cs 

ONE 

54  350 

0 

TS 

DIDFLG 

0 0O06 

1 

EXTEND 

3 0352 
52  364 

0 

1 

DCA 

DXCH 

ALT 

ALT5AVE 

0593  RCF  35 

059A  REf  28 

059A5  REF  18 

0595 

C0595  REF  1 


LAST  208  11 
last  20A  11 
LAST  206 

11 
1 1 


303A  3 7T55  1 

3035  0 5TOI  1 

E7 

3030  D30A7  1 

303T  22O07  0 


CAF  ONE 

TC  waitlist 

EBANK=  RSTKLOC 
2CADR  DISINLUP 


+ 2 


0596 

REF 

6 

LAST 

206 

0597 

REF 

6 

LAST 

199 

0598 

0599 

REF 

3 

last 

201 

11.3OA0  1 50OA  1 TCF  EjFREE 

ll*30Al  0 A'lS  0 EMODISIN  TC  FREFDSP 

11.3042  0 4105  1 +1  IC  NEWMOdEX 

11.3043  DOOOO  1 OCT  0 


0600  REF  23  LAST  204  11.304A  0 5605  1 


TC  ENDOFJOB 


USER'S  OWN  PAtiF  NO.  22  E7 


ASK  FOR  FORI^ARD,  LATERAL  VELoCItY. 


ASK  FOR  INITIAL  AND  FINlAL  ALTITUDES  AND 
ALTITUDE  RATE. 


SO  FOLLOWING  MONITOR  WORKS. 


488954A  YJL  SYSTEM  t OR  AGC:  NEw  PROOR!\,vi  sHePATIN  BY  EYLES 


P0601 

0602 

0603 

0604 

0605 

0606 

0607 

0608 

0609 

0610 
0611 
0612 

0613 

0614 

0615 

0616 

0617 

0618 

0619 

0620 
0621 
0622 

0623 
0623S 

0624 
C0624 

0625 


0626 

0627 

0628 
0629 


0630 

0631 


0632 

0633 


0638 

0639 

0640 

0641 

0642 

0643 


E*.!  ENDEl  \i  ErBs 

kAiCh  altsave  ror  e\j3  of  problem. 


REF  11  LAST  204 


REF  1 

REF  52  last  181 


11  ,304P  0 5^7  0 DISINLUP  TC  FIXDELAY 

11.3046  00^62  0 OEC  50 

11.3047  0 0U06  1 +2  EXTEND 

il,305<j  3 0^55  1 DCA  FINALT 

1 1 ,3051  52  I'LE  1 OXCH  ITEMPl 


REF  12  LrtSi  208 
RET'  53  LAST  209 


li’3052  0 0O06  1 
11,3053  4 0P64  1 
11,305A  20  P62  1 


EXTEND 

DCS  ALTSAVE 

DAS  ITEMPl 


REF  54  last  209 
REF  1 

REF  1 


REF  26  last  163 
REF  2 LAST  209 

REF  2 LaSI  209 

REF  46  LAST  207 
REF  3 LAST  96 
REF  2 LAST  209 
REF  5 LAST  208 
REF  3 Last  197 
RcF  9 LASl  206 
REF  19  LAST  208 

REF  3 LAST  208 

REF  20  LAST  203 


REF  4 LAST  209 

REF  1 

REF  2 LAST  208 

REF  5 LAST  209 

REF  3 LASI  209 


REF 

REF 

22 

1 

LAST 

173 

REF 

23 

LASI 

209 

REF 

2 

last 

209 

REF 

24 

LAST 

200 

11,3055  10  061  1 
ll,305fc  1 3076  1 
11,3057  1 3O6I  1 
11,3060  1 3IO2  0 


CCS  ITEMPl 

TCF  +DIF 

TCP  +2 

TCF  -OlF 


11. 306 1 

11.3062 

11.3063 

1 1 .3064 

1 1.3065 
1 1 ,3060 
11,3067 

11.3070 

11 .3071 

11.3072 

1 1.3073 
11 ,307A 

1 1 ,3075 

1 1 ,3070 
11,3077 

11.3100 

11.3101 

11.3102 

11.3103 


ID  062  1 CCS  1TEMP2 

1 3O70  1 TCF  +DIF 

1 3065  0 TCF  +2 

1 3IO2  0 ICF  -DIF 


3 7T6I 
54  553 
52  355 
52  552 
3 7T4O 
0 5523 


1 5745 

3 
0 

6 3O65 
1 3O45  1 

4 0553 


disindun  car 

T5 


ZERO 

ALTRATE 


I 0 

OXCH 

FINALT 

1 1 

3XCH 

ALT 

) 0 

CAF 

PRI020 

) 0 

T C 

NOVAC 

E7 

ebank= 

RSTKLOC 

: 1 

2CADR 

enddisin 

’ 0 

i 0 

TCF 

TASKOVER 

1 1 +DIF 

CA 

ALTRATE 

. 1 

extend 

' 1 

3ZMF 

disindun 

i 1 

TCF 

DISINLUP 

10  -OIF 

CS 

ALTRA 1 E 

’ 0 

TCF 

♦DIF  *1 

11.3104  32444  1 FlVELVN  DCT  2444 

11.3105  32564  1 ALT,R,VN  OCT  2564 


11,3100  0 0004  0 MlNiMP  INHINT 

11,310  1'  4 7 T44  0 CS 

11.3110  7 OO77  0 MASK 

11.3111  6 7R44  1 AD 

11.3112  54  O77  0 TS 

11.3113  1 56O5  0 TCF 


BlTlO 

DaPBOOLS 

BITlO 

DaPBOOLS 

ENDOFJOB 


dec  18,  1966  (MAIN)  PAGE  209 


USER'S  OWN  page  no.  23  E7 


LATEST  ALTITUDE. 


BIT  10  OF  DAPBOOLS  INDICATES  MIiIMP  MODE 


BIT  10  OF  DAPHOoLS  NOW  PRESENT 


“^eagsAA  yjl  sysieM  for  agc:  new  pro'^ra'^  gHePatin  by  eYles 


Dec  1^,  1966  (MAIN)  PAGe  210 


06AA 

0695 

0696 

0697 

0698 

0699 

0650 

0651 

0652 

0653 


EKTENOEo  v/ERBa 


USER'S  OWN  page  NO*  29  E7 


11 *31  lA 

0 

REF 

29 

LASl 

209 

11  ,311B 

9 

REF 

3 

last 

209 

ii.3116 

7 

REF 

9 

LAST 

210 

11 .31 lY 

59 

11*3120 

0 

ref 

8 

LAST 

150 

11*3121 

3 

RcF 

3 

LAST 

20 

11 *3122 

52 

REF 

7 

LAST 

150 

11*3123 

3 

REF 

1 

11 *312A 

59 

REF 

25 

LASl 

209 

11*3123 

1 

0009 
7 '99 

0 

NOMINIMP  INHINT 

0 

^ 3 

BI  TlO 

OO77 

0 

YIASK 

DAPROOLS 

077 

0 

TS 

DaPBOOLS 

0006 

1 

EXTEND 

0033 

1 

OCA 

CDUX 

f bl 

0 

OX  CH 

CDUXD 

OU39 

0 

CA 

CuUZ 

'70 

5605 

0 

0 

TS 

TCF 

cduzd 

EimDOFJOB 

A ZERO  IN  position  lO  OF  OAPbOOLS  NOW, 


48895'!tA  YJL  SYSf^M  F OK  aGC  : NcW  PRQ'^KA'I  SH^PatIN  SY  eYL-e-i 


DlC  1^*  1966  (MAIN)  PA&E  211 


L EXTENJEl-  VEKBS  USER'S  0^^lN  PAGr  NO.  25  E7 

P065A  V3  60  PkEPA^E  FOR  STANDBY  0PE7ATIUN 


R0655  routine  written  FOR  TEST  ROPeS  0N<-Y***  MUST  Be  UPOATEO  TO  INCLUDE 
R0656  flight  REOUirEMEnTS  FOR  FLIGHT  OPERATION 


0657  REF  26  LAST  89 


E3  EBANK=  LSTI 


0658 

0659 

0660 
0661 
0662 
0663 
066A 

0665 

0666 

0667 

0668 


REF  1 

REF  8 LAST  199 

REF  8 last  206 

REF  1 

REF  2 LAST  20a 

REF  1 

REF  2 LASi  211 

REF  9 last  211 

REF  1 


11*3126  3 sA70  0 prestand  CAF  EBANK3 

1 1,3127  5b  <00.3  1 XCH  EbANk 

11.3130  0 0004  0 INHTNT 

11.3131  3 0025  0 CA  TIMFl 

11,313^  55006  1 rS  TIMFSAV 

11,3133  3 2^3  0 CAF  OKT3O 

11,313A  55012  1 longer  T5  TIMAR 

11,3133  4 1306  1 CS  TIMF.SAV 

11,3136  6 0025  0 Ad  TIMFI 

11,313/  0 0006  1 EXTEND 

11,3140  1 3145  0 3ZF  CHKTIME 


COMES  HERE  FROM  LSTpFAN 
SET  UP  EbaNk  fOr  bank  3 


THIS  routine  WIi  L LOOK  At  TIMEI  UNTIL 
IIMEI  IS  INCREMENTED,  IHEN  IT  «ILL 
SNATCH  the  MISStON  tIME  RfGS  AND  STORE 

then  in  timesav  for  later  ISe.  I\  ARITH, 

OPERATIONS  WhICw  SHOULD  FINd  Thf 
standing  DIFFfRfNCE  between  the  SCALAR 
AND  THE  TIMEl_TlME2S  REGS. 


0669 


11,3141  0 0006 


EXTEND 


0670  REF  7 

0671  REF  3 

0672  REF  1 


last  196  11 

LAS(  211  11 

11 


3142  3 OO25  0 

3143  53'307  0 

314A  1 3I53  1 


DCA  TIMF2  read  AND  STORE  tHE  DP  TIME  AND  GO 

dxch  timfsav  read  ihe  scalar  using  the  existing  prog 

TCF  CATCHFIN  finetime. 


0673 

REF 

2 

LAST 

211 

0674 

REF 

1 

0675 

LAST 

0676 

REF 

2 

85 

0677 

REF 

1 

0678 

REF 

2 

LASI 

211 

0679 

REF 

1 

0680 

ref 

1 

0681 

0682 

REF 

17 

LASl 

178 

0683 

REF 

54 

LASI 

142 

0684 

REF 

18 

LASI 

211 

0685 

REF 

55 

LASI 

211 

11.3145 

11.3146 

11.3147 

11.3150 

11.3151 

11.3152 

11.3153 

11 ,315A 
11,3153 

11.3156 

11.3157 

11.3160 

11.3161 


11«312 

1 

CHKTIME 

CCS 

TIMAR 

0 3134 

1 

TC 

LUNGER 

0 0003 

1 

RELINT 

10  067 

1 

CCS 

NEWJOB 

0 5350 

1 

TC 

CHANGl 

0 3133 

0 

TC 

longer  -1 

0 5015 

0 

catchfin 

TC 

finetime 

53'311 

1 

oxch 

scalsav 

0 0003 

1 

REL I NT 

4 7/52 

1 

CS 

BIT4 

7 0365 

0 

MASK 

IM0DES30 

6 7/52 

0 

AD 

B I T4 

54  365 

0 

TS 

IM0DFS30 

0686 

REF 

19 

LASl 

211 

11,3162 

3 7/52 

0 

0687 

11,3163 

0 0006 

1 

0688 

11  ,316A 

03  012 

1 

0689 

REF 

20 

LAS  1 

211 

11,3163 

3 7/52 

0 

0690 

11,3166 

0 0006 

1 

0691 

11,316/ 

05  O12 

1 

0692 

REF 

15 

LAST 

177 

1 1 ,31  713 

3 7'43 

0 

0693 

11,3171 

0 OOO6 

1 

0694 

11,3172 

05  013 

0 

CAF 

BIT4 

EXTEND 

WAND 

12 

CAF 

BIT4 

EXTEND 

WOR 

12 

CAF 

BITll 

extend 

WOR 

13 

MUST  WATCH  THF  TIME  SPENT  IN  IN-,INT  OR 
THE  COPS  MIGHT  fATCh  US. 


GO  BACK  AND  I OO2  AGAIN 

WILL  read  Channels  3 and  4 and  return 
with  3 IN  A and  a in  L.* 

INHIBIT  THE  IMU  FaII  LIGHT. 


set  all  chan  12  BITS  EXCEPT  C/A  TO  ZERO. 
THIS  15  Necessary  sn  that  the  gimbals  do 
NOT  DRIFT  into  t.IMBALLOCk  IF  THf  SYSTEM 

SHOULD  Be  in  OPfRATF  at  the  time  STBY 
WA5  STARTED.  Tt.Is  SECTION  WILL  MAKE 
SURE  THE  iMU  IS  IN  C/A 

WHEN  BIT  11  IS  pReSeNI  IN  CHANNEL  13  THE 
DSKY  PB.  CAN  tHfN  ENERGIZE  THE  STANDBY 
relay  IN  THE  CGf  PWR  SUPPLIES.... 


^8895AA 

YJL  SVSlLM  FOR  AGC: 

NEW  PROGRAM 

sbepatin  3Y  EYLRS 

dec  13,  1966  (MAIN) 

page  212 

L 

0695 

EKTtNOEu  VE^Bs 

REF  lb  last  210 

11,317-J  0 

5905  1 TC 

ENDOFJOB 

USER'5  own  page  no-  26 

GO  TO  DUMMY  JOB  UNTIL  YOU  DIE.. 

E3 

488954A 

YJL  SYSILM  FOR  AGC : NEW  PFOCRAM  SBEPATIN  BY  EYLES 

DEC  13,  I966  (MAIN)  PAGE  213 

L 

P0696 

extended  VErBS 

vB  61  RECOVER  FROM  STANDBY  OAERAUON 

USER'S  OWN  PAGF  NO.  27  E3 

R0697 

routine  WRItTlN  for  test  ROPeS  only####  must  Be  updated  to 

include 

R0698 

flight  rEOUIrEMENIs  for  flight  operations 

sequences* • • • 

0699 

REF 

2 

LAST 

211 

11,3174  ■ 

3 5370 

0 

POSTANO  CAE 

EBANK3 

0700 

REF 

9 

LAST 

211 

11,3175 

56  D03 

1 

xch 

EBANK 

0701 

REF 

2 

LAST 

211 

11,3176 

0 5D15 

0 

TC 

FINETIME 

COMES  HERE  f-ROM  L5T2FAN 
SET  UP  EBANK  FOR  BANK  3 


0702  REE 

0703 

070A  REF 

0705 

0706  REF 

0707 

0708  REF 

0709  REF 

0710 

0711  REF 

0712  REF 

0713 
071A 

0715  REF 

0716 

0717  REF 

0718  REF 

0719 

0720 

0721  REF 

0722  REF 


3 last  211 
A last  213 

2 LAST  211 
1 

A LAST  19A 

5 last  213 

3 LAST  213 


1 

A LAST  211 
6 LAST  213 


7 last  213 

8 last  211 


11»3177  53’1>13  0 

11»3200  0 0003  1 

11^3201  31'S12  0 

11*3202  0 0006  1 

11,3203  5l't>10  1 

11,320A  0 0006  1 

11.3205  6 3-^30  0 

11.3206  0 6l03  0 

11.3207  A53A5  1 

11.3210  01513  1 

11.3211  01511  0 

11.3212  A7061  0 

11.3213  21606  1 

11,321A  33565  1 

11.3215  77615  0 

11.3216  01507  1 

11.3217  01513  1 

11.3220  77776  1 

11.3221  0 0006  1 

11.3222  3 1513  1 

11.3223  52  025  1 


OXCH 

RELIiMT 

CAE 

EXTEND 

SU 

EXTEND 

3ZMF 

TC 

OLOAD 


SRR 


DAD 

STORE 

EXIT 

CORCTTIM  EXTEND 
OCA 
OXCH 


TIMAR 

TIMAR 

SCALSAV 

AodTIME 

INTPRET 

DSU 

TIMAR 

SCAl.SAV 

RTB 

5 

SijNAGREE 

TIMESAV 

TIMAR 


TIMAR 

TIME2 


READ  THE  SCALAR  AND  SEE  IF  IT  OVERFLOW- 
ED. WHILE  IHE  cor  WAS  IN  SIBY,  IF  SO 

TfiE  overflow  mu.aT  bf  Adued  or  It  will 
seem  that  THF  RfALATIVITY  theory  works 
better  than  it  fHOULD... 

If  its  neu.  ir  mUsT  have  ov:flWo«* 


IF  IT  DID  NOT  0\/-FLw,  FIND  OUT  hOW  LONG 
THE  CGC  WAS  IN  aTBY  BY  SUBTRACTING  THE 
SCALAR  AT  THF  START  OF  STBY  FROM  tHE 
SCALAR  At  THf  EnD  Of  STBY  AND  THEN  ADD 
THE  DIFFERENCE  tO  THE  TIME  EXISTING 

when  the  scalar  was  read  at  stby  entry*# 


ThIs  Is  The  corrected  time  to  bi  read 

INTO  TIMEl  AND  tIME2  REgS.  ADOR  24-25 


0723  REF 

0724 

0725 

0726  REF 

0727 

0728  REF 

0729  REF 

0730  REF 

0731 

0732  REF 

0733  REF 

0734 

0735  REF 

0736 

0737 

0738  REF 

0739  REF 


l6  LAST  211 


27  LAST  212 

1 

1 

5 last  213 

2 last  213 

4 last  213 

8 last  213 


5 last  213 
9 last  213 


11.3224  A 7T43  1 

11.3225  0 0006  1 

11.3226  03  013  0 

11.3227  0 5605  1 

11.3230  0 0006  1 

11.3231  3 7735  1 

11.3232  53*515  0 

11.3233  0 6103  0 

11.3234  45345  1 

11.3235  01515  1 

11.3236  01511  0 

11.3237  54215  0 

11.3240  01513  1 

11.3241  21606  1 

11.3242  77615  0 

11.3243  01507  1 

11.3244  01513  1 


CS 

EXTEND 

WAND 

TC 

addtime  extend 

OCA 

OXCH 

TC 

OLOAD 


OAD 


OAD 

STORE 


BITll 

13 

endofjob 


DPOsMAX 
timed  IFF 
INTPRET 
DSU 

timediff 

SCALSAV 

SRR 

TIMAR 

5 

TIMFSAV 

TIMAR 


disable  The  dsKv  sTry  pushbut toy. 


IF  The  scalar  overflowed,  find  out  how 
MUCH  time  Remained  when  read  thl  first 
TIME  and  then  add  THE  PRESENT  RfADING- 
WHICH  WILL  BE  THE  TOTAL  TIME  SPfNT  IN 
STANDBY,  TO  WHIrH  THE  TIME  AT  StBY 
MAY  BF  ADDED  TO  FIND  THL  PRESENT  TIME 
CORRECT  TO  10  MfEC,. 

####  THE  TIME  U.  STANDBY  MODE  MUST  NO! 
EXCEED  23  HOURS  IF  TIME  IS  TO  Bf 

correctly  computed  by  this  routine.###*** 


488954A  YJL  SYSieM  FOR  AGC.  NeW  PROGRA'I  SHePAtLM  BY  eYLe-S 


Dec  1^,  1966  (MAIN)  PAGE  21A 


L e'^tenoed  verbs 


USER'S  OWN  page  NO.  2^ 


E3 


07A0 

07A1  REF 


1 


11.324i>  77E76  1 

U.324P  0 3i^21  0 


EXIT 

TC 


CORCTTIM 


488954A  YJL  SYSTEM  FOR  AGC ; NEW  PRO'^RAM  SHePATIN  3Y  EYLES 


0001 

0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 
0011 
0012 

0013 
C0013 

0014 

0015 

0016 
0017 


<EYRJPTt  UPrUPT 


REF  4 LAST  176  13,3506 

REF  63  LAST  206  13,350V 

REF  4 last  176  13,35lO 

REF  1 13,35U 

REF  1 13,351*^ 

13,3513 

REF  1 13,351^ 

REF  8 LAST  154  13,35lP 

REF  1 ' 13,3516 

REF  10  LAST  209  13,351  > 

REF  2 last  86 

13,3520 

REF  1 13,3521 

REF  9 last  215  13,3522 

REF  6 last  206  13,3523 

REF  T3  LASI  2O0  13,3529 

REF  il  LAST  205  13, 352s 


13*3506 
54  016  1 
56  002  0 
54  012  0 

ir  (—  v r*)  1 JOT  1 

3ANk 

nE YRUr  T 1 

TS 

KCH 

TS 

0 4674  0 

3 4P45  1 

0 OOO6  1 

T C 

CAF 

EXTEND 

02  015  1 
54  O73  1 

3 5226  1 

keycom 

RAND 

TS 

CAF 

0 5R23  0 
eo 

02OO2  1 

1 ^ 0 0 A 

T C 

ebank= 

2CADR 

lO'-'UO  0 

3 OO73  0 
50  064  0 

CA 

INDEX 

54  1 4 4 1 

0 5T51  1 

1 S 

TC 

13 

BANKRUPT 

Q 

qrupt 

LODSAMPT 

L0W5 

MNKFYIN 

RUPTREG4 

CHRPRIO 

NOVAC 

DSPCOUNT 

CHARIN 

RUPTREG4 

LOCCTR 

MPAC 

RESUME 


Dec  U,  1966  (MAIN)  page  216 


USER’S  OWN  PAGf  NO.  1 


TIME  IS  snatched  IN  RUP f FOR  NOjN  65. 


LEAVE  5 BIT  KFY  CDE  IN  MPAC  FOR  CHARIN 


^88954A  YJL  SYSieM  I-OR  mGC;  NEW  PROGRAM  sHePATIM  3Y  eYLFS 


L <eyrjpt»  UPRUPT 


POOI8  JPRUPl  I'ROGRAH 

0019  REK  5 last  215 

0020  REF  64  LAS';  215 

0021  REF  5 LAST  215 

0022  REF  2 LAST  215 

0023  REF  47  LAST  209 

0024  REF  2 LAST  85 

0025  ref  2 LAST  55 

0026  REF  10  LASi  188 

0027 

0028  ref  1 

0029  REF  2 LAS;  215 

0030  REF  3 LAST  216 

0031  REF  4 LAST  216 

0032  REF  3 LaSi  63 

0033  REF  1 

0034  ref  1 

0035  REf  3 L«ST  216 

0036  REF  1 

0037  REF  1 

0038  REF  2 LAST  216 

0039  REF  4 Last  216 

0040 

0041  REF  2 LAST  216 

0042  REF  1 

0043  REF  1 

0044  rEf  5 LAS'  216 

0045  REF  134  LAS!  207 

0046  REF  1 

0047 

0048  REF  2 LAST  216 

0049  REF  il  LAST  216 

0050  REF  1 

0051  REF  2 LAST  216 

0052  REF  1 

0053  REF  12  LAST  216 

0054  REF  3 Las  I 216 

0055  REF  135  LAST  216 

0056  REF  12  L/>Sl  215 

0057  REF  6 LAST  2l6 

0058  REF  1 

0059  REF  2 LAST  216 

0060  REF  13  last  216 

0061  R:iF  4 LAST  216 

0062  REF  14  LAST  216 

0063  REF  5 LAST  216 

0064  REF  1 

0065  REF  13  LAST  216 


13.3526  54  L16  1 UsRUPT  fS 

13.3527  55  ^02  0 XCh 

13,3530  5.4  012  0 IS 

13,3532  0 4674  0 TC 

13.3532  3 7^61  0 CAF 

13.3533  56  O45  0 XCH 

13.3534  54  O73  1 IS 

13,3536  3 7^53  1 CAF 

13.3536  0 0OO6  1 EXTEND 

13.3537  05  011  1 WOH 

13.3540  3 4645  1 UsRPTl  CAF 

13.3541  7 OO73  1 '^AS< 

13.3542  55  O73  0 XCH 

13.3543  55  021  1 XCH 

13.3544  55'076  C TS 

]3t3546  D36III  TC 

13.3546  7 4645  0 MASK 

13.3547  6 3623  0 AD 

13.3550  0 3620  0 1C 

13.3551  0 3611  1 TC 

13.3552  7 4645  0 MASK 

13.3553  4 OOOO  0 COM 

13.3554  0 3620  0 1C 

13.3555  0 3605  1 UpOK  TC 


13 13556 
13 , 3557 


3560 

3561 

3562 

3563 

3564 

3565 

3566 
356? 

3570 

3571 

3572 

3573 

3574 

3575 


13.3576 

13.3577 


1 3,3600 

13.3601 

13.3602 

13.3603 


4 3562  1 

6 0O73  0 

ID  000  0 

0 3570  0 
00022  1 
0 3570  0 

4 7153  0 

7 OO75  1 

54  075  1 

0 3574  1 

3 7153  1 
7 0075  1 
10  000  0 
05151  1 

55  O73  0 
0 3515  0 

0 3605  1 

4 7153  0 

7 OO75  1 
6 7153  1 

54  075  1 

0 5151  1 


cs 

Ad 

CCS 

TC 

ELRCODt  OCT 
TC 
CS 

MASK 

TS 

TC 

TSTUPLOK  CAF 
MASK 
CCS 
TC 

ACCLPTUP  XCH 
TC 

TMFAIL2  TC 
CS 

MASK 

AO 

IS 

TMFAlLl  TC 


13,3604  0 5151  1 


TC 


Dec  13,  1966  (MAIN)  page  216 


USER'S  OWN  PAGr  NO.  2 

BANKRUPT 

Q 

OKUPT 

LoDSAMPT 

ZERO 

TIME  IS  SNATCHED  IN  RUPT  FOR  NO.lN  65. 

InLINK 

KEYTEMPl 

BIT3 

DSAI MOUT 

TURN  ON  UPACT  LIGHT 
(BIT  3 OF  CHANNrL  ll ) 

L0W5 

KEYTFMPl 

KEYTEMPl 

SR 

KEYTFMP2 

SRGHT5 

TEST  FOR  TRIPIE  CHAR  REDUNDANCY 

LOW5  OF  WORD 

LOWS  INTO  KEYTEMPl 

WHOLE  WORD  INTO  SR 
original  SR  INTO  KEYTEMP2 

L0W5 

HllO 

UPTFST 

MID  5 

SRGHT5 

Lows 

HIGH  5 

UPTFST 

RFSTORSR 

CODE  IS  GOOD 

ELRCODE 

KEYTEMPl 

A 

TSTUPLOK 

22 

TSTUPLOK 

B1T3 

FLAGWRDl 

FLAGWRDl 

ACCFPTUP 

BIT3 

FLAGWRDl 

A 

IF  CODE  = ERROR  LIGhT  RESET,  PUT  +0 
into  BiTI  Oe  UPl  OCK. 

IF  CODE  NOT=  FLp,  PASS  CODE  ONLY  iF 

BITI  OF  UPLOCK  = 0. 

RESUME 

KEYTEMPl 

KEYCOM 

BITI  OF  UPLCCk  = 1. 

BITI  OF  UPLOCK  = 0. 

RESTORSR 

BIT3 

FLAGWRDl 

B1T3 

FLAGWRDl 

TMALM 

CODE  IS  BAD 

RESUME 


^8695^A  YJL  SISiEM  f OE  AGC;  NLU  PROGRAM  SHePATIN  BY  EYLES 


0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 
007A 

0075 

0076 

0077 

0076 

0079 

0080 
0081 
0082 
0083 

R008a 


iCEYkJPr*  UPKUPT 

REF  2 LASi  216  13,3605  57'G76  1 RE510R5R  xCh  KtYTEMP2 

13,3606  6 OUOO  1 DOUBLE 

REF  A LAST  216  13,360?  5A  G^i  0 T5  5K 

REF  65  LAST  216  13,36l0  0 0U02  0 TC  Q 


REF  lA  LAST  2l6 


5751  T^ALM  = RESUME 


REF  5 last  21?  13»3611  A 0021  0 SRGhTS  CS  SR 


REF 

6 

LAST 

LAST 

217 

13,3612 

REF 

7 

217 

1 3 , 36 1 S 

REF 

8 

LAST 

217 

13,36lA 

REF 

REF 

9 

136 

LAST 

LAST 

217 

13,36lS> 

216 

13,3616 

REF 

66 

LAST 

217 

13,361  ? 

A OO2I  0 CS  SR 

A 0U2I  0 CS  Sk 

A OU2I  0 CS  SR 

A OU2I  0 CS  SR 

A 0000  0 CS  A 

0 0002  0 TC  0 


REF  7 last  2l6 
REF  137  LAST  217 
REF  1 

REF  2 LAST  217 
REF  67  LAST  217 


13*3620 

6 0073 

0 

UpTEST 

AD 

KEYTEMPl 

13,3621 

10  000 

0 

CCS 

A 

13,3622 

0 3576 

0 

TC 

TMFAIL2 

13,3623 

77  < AO 

1 

Fll  10 

OCT 

777  AO 

13,362A 

0 3576 

0 

TC 

TMFAIL2 

13,3625 

0 OO02 

0 

TC 

Q 

J=ACT  IS  turned  off  by  VBreDDS?,  ALSO  BY  ERROR  LiSHt  RESET. 


dec  U,  1966  (MAIN)  PAGE  21? 


USER'S  OWN  page  no.  3 


FOR  NOW 


DELIVERS  WORD  UisjCOMpLEMENTED 


^8895^A 


L 

Ro085 

R0086 

Ro067 

Rooes 

R0089 


YJL  system  for  AGC:  NEkv  PRO<3^i\V|  SMePATIM  BY  EYLES 
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<cYkJPr»  UPkUPT  USER'S  OWN  PAGt-  NO-  ^ 

HE  ReClPiItN  of  a bad  code  JPl-INK  LOC<S  oUt  PJRtHeR  UPLINK  ACTIVITY 
BY  PLACING  A 1 INTO  BITI  OF  J^LOC^,  BIT9  (ALONG  WITH  BiTll)  OF  TMKeYBUF 
IS  SET  lO  1 TO  send  AN  INDICAflDN  OF  THIS  SITUATION  DOWN  tHe  DOWNLINK, 

the  uplink  interlock  is  allowed  when  an  error  light  ReSet  Code  is  sent 
the  upluk,  or  when  a fresh.  Start  is  Performed, 


^88954A 


L 

ROOOl 

Roods 

Roods 

R0007 

R0009 

Rooio 

Rooii 

R0012 

Roois 

RooiA 

Roois 

R0016 

Ro017 

R0018 

R0019 

ROO2O 

ROO2I 

ROO22 

R0023 

R002A 

R0025 


R0026 

R0027 

R0028 

R0029 

Rooso 

Roosi 

R0032 

R0033 

R0039 

ROO35 

R0036 

R0037 

Rb038 

R0039 

ROO^O 

R0091 

R0092 

R0093 

R009A 


yJL  SySlEh  FOR  AqC;  MLw  PROGRAM  sHEpATiN  3Y  EYLEb 


DEC  U»  1966  (MAIN)  pAoE  21'R 


PlNbALi.  GaMl  buttons  Ai'mD  LlG-113 


USER'S  OWN  PAGf  NO.  1 


PROGRAM  nAMF  - keyboard  AmD  OiS^LAy  PrOGrAM 

MOD  NO  - 0 

MOD  By  - EILENE 


DATE  - 22  nOV  I966 

LOG  Section  - pinbai  l game 

Buttons  and  lights 
assembly  - SUNBiiRST  rev  18 


FUNCTIONAL  LESCRIPTION- 

the  keyboard  and  display  systei^  Program  operates  under  executive 
control  and  processes  INFORi''Ai  ion  exchanged  between  the  AGC  and  tHe 
COMPJIeP  OPfRATOR.  THe  INPUtS  10  THe  PROGRAM  ARe  FROM  THe  KEYBOARD, 
FROM  internal  PROGRAMS,  AND  FROM  IHE  UPLINK, 

the  language  of  communication  with  the  Program  is  a pair  of  words 

KNOWN  AS  verb  AND  NOUN.  eAGH  OF  1 HeSe  iS  RePReSfNTED  BY  A 2 CHARACTER 

octal  number,  the  verb  Code  indicates  what  action  is  to  be  taken, 

NOUN  cole  indicates  10  WHat  THIS  ACTION  Is  APPLIeU,  NOUNS  USUALLY 
refer  to  A C-RCUP  OF  ERASABLE  REGISTERS. 

VERBS  ARE  GROUPED  INTO  DISPLAYS,  LOADS,  MONITORS  (DISPLAYS  THAT  ARE 
undated  ONCf  Per  second) , special  functions,  and  extended  VeRBSITHeSE 
are  ojtside  of  the  domain  oF  rinball  and  can  Be  found  under  log  Section 

(EXTENDED  VERBS:). 

A LIST  CF  Verbs  and  noons  is  giveh  in  log  section  (assembly  and 
ORERAIRN  IF.FORMAT  ion:  . 


CALLING  SEO.ENCES- 
KEYBOAiRD: 

each  Depression  of  a kfyBoaro  button  activates  interrupt  keyrupti 
AND  places  the  5 BIT  <EY  CODe  I NT^  CHANNEL  15.  KEYRUPTI  PLACES  THE  KEY 
CODE  into  MEAC,  eNteRS  AN  E'^ECJTI^E  ReQUeST  FOK  tHE  KEYBOARD  AND  DISPLAY 
PROGRAM  (AT  (CHARINO,  AND  EXfCJTES  A RESUME. 

jRLlNC 

EACH  WORE  received  BY  THE  JP_INk  ACTIVATES  INTERRUPT  UpRUpT  WHICH 
P-ACES  the  5 bit  KeY  CODE  I^ItO  MPAC,  ENTERS  AN  EXECUTIVE  REQUEST  FOR  THE 
KEYBOARL  ANC.  DISPLAY  PROGRAM  (Ar:CHARIN:)  AND  EXECUTES  A RESUME. 

internal  PRiGRAMS: 

internal  programs  call  plNsA-L  AT  (NVSJb:  wUH  THe  DeSIReD  VERB/NOUN 
CODE  IN  A (LOW  6 BITS  FOR  NOUN,  NEXT  6 BITS  FOR  VERB).  DETAILS 

Described  on  remarks  cards  ujsr  before  (NVSUb:  awo  (nvsubwait:  (see 

SYMBOL  I ABLE  FOR  PAGE  NUMBERS). 

there  IS  AN  interlock  system  f^R  internal  programs  That  must  be  used 

IM  CONJUNCTION  WITH  (NVSUR;.  THI^  IS  CALLED  GRAB/FReF.  DETAILS 
described  on  remarks  just  before  (GRABDSP:,  (GRABWAIt:  (See  symbol  table 
FOR  PAGE  NUMBERS). 


48895^A  YJL  system  TOR  AGC : NbW  PROGRi\vi  sMePAtIN  BY  eYLeS 


L PIlMbAl-L  GaMT  buttons  AND  LI5^T3 

R00A5  NORMAL  tXIT  MODES- 

ROOA6  IF  PINBAI  L WAS  called  RY  EXT£R'''AL  ACTION*  EXIT  IS  TO  IeNDOFJOQ:. 

Rooat  if  pinbaI-L  was  Called  hy  imteRnal  programs,  exIT  from  pinball  is  baCk 

R0OA8  TO  CALLING  routine.  DETAILS  Oe^^RIBeD  IN  REMARKS  CARDS  JUSt  BeFqRE 

R00A9  :\IVSJ3:  and  INYSUBWAIt:  (SEU  SYMBOL  TABLE  FOR  PAGE  NUMBERS). 


Rooso  alarv]  or  Abort  exit  modes- 

Roosi  external  initiation: 

R0052  if  SuMe  improper  SEQUENCE  OF  KEY  CODES  IS  DETECTED,  THe  OPERATOR 

R0053  error  LIGHT  IS  TURNED  ON  AND  rxij  IS  tO  JeNDOFJOB:. 

RqOSA  INTERNAI  program  INITIATIuNI 

R0055  if  At.  ILlEgAL  V/N  COMBINATION  IS  ATTEMPTED,  AN  AbORT  IS  CAUSED 

Ro056  (Win  OLTAL  01501)  AND  EXIT  T 0>  IENdOFJOB:, 

R0057  CONDI]  IONS  LEADING  JD  THe  aBOi/e  A^E  DESCRIBED  IN  OIGIrAL  DEVELOPMENT 
R0058  REpORI  NO.  11. 


R0059  OJTPJT- 

ROO6O  INFORMATION  TO  BE  SENT  tU  HE  DISPLAY  PANEL  IS  LEFT  IN  THE  ;DSPTAb: 

R0061  buffers  Registers  (under  fxec  conirod.  :dspojt:  (a  part  of  tarupt) 

R0062  handles  the  PLACING  OF  THp  :0S°rAD:  INFORMATION  INTO  oUtPUT  CHANNEL  10 

R0063  IN  INiERRUPT. 


ROO6A  ERASABLI  INl Ti  ALIZATION- 

RC065  FRESH  ST£RT  AND  RESTART  INITIALIZE  THE  NECESSARY  E REGISTERS  FOR 

R0066  PINBALL  IN  iStartsub;.  re^i steR^  are:  dsptab  buffer,  cadrstor, 

R0067  REQRET,  CLPiSS,  DSPLOCK,  MONSAVE,  MONSAVEI,  GRABLOCK,  VERBReG,  NOUNREG, 
R0068  D5PLIST,  +1,  +2,  D5PC0UNT. 

Ro069  a COMRLf  TE  I 1ST  OF  ALL  tHf  ERASABLhS  (BOTH  ReSeRVeD  AND  TEMPORARIES)  FOR 
R0070  PINBALL  IS  GIVEN  BELOw. 


R0071  THE  Following  are  of  general  interest- 

Ro072  remarks  cards  PRECEDE  THE  HEFeRENCeD  SYMBOL  DEFINITION.  SEE  SYMBOL 

ROO73  TABLE  TC  FIND  APPROPRIATE  PASE  NUMBERS. 


^8895'tA 


L 

R007A 

R0075 

R0076 

R0077 

R0078 

R0079 

R0080 

R0081 

R0082 

R0083 

R0084 

R0085 

R0086 

R0087 

R0088 

R0089 
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pinball  Game  buttons  aiid  lishts  user's  page  no*  s 

N^SUb  CALLING  POINT  EOR  IMIE'^NAL  USE  OE  PIN3ALL. 

OF  related  interest  NVSUBWAIT 
NVSUbSY 
PRENVBSY 

GRABLSP  INTERL0C<  SYSTEM  FOR  INTERNAL  PROGRAMS  THAT  MUST  Be  USeD 

freei-sp  in  conuunction  :nvsub:. 

OF  Related  inteResi  grabwait 

GRABJSY 

PREG3SY 

ENDIDLe  routine  for  internal  programs  wishing  to  go  to  sleep  while 
awaiting  operators  response, 
of  Related  tnteresi  data/jait 

momiior  verbs  For  peridoic  ( i per  seC)  display. 

the  noun  table  format  is  0-SCR1BeD  on  a page  nF  remarks  cards  oust 
before  TCSRABC:  (SEE  SymBO.  table  for  page  NjimSER). 

the  noun  tables  themsei  ves  are  found  o\i  7 pages  Starting  at  tnnadtab: 


Roo9o  for  fjRtHeR  Details  about  operation  of  the  keyboard  and  display  system 
R0091  program,  see  the  mission  plan  aid/or  digital  development  report  no,  11 
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L PINBaLL  (jaMl  buttons  AImO  LI3H|3  USER'S  OWN  PAGf  NO.  A 

R0150  <EYBOARl  AND  DISPLAY  PRuURAM 


R0151  tre  following  ouotaTiOn  is  ProvidLd  throush  The  coutesy  Of  The  authors. 

R0152  ::n  '«iLL  BE  PROVED  TO  HY  TACe  THAT  THOU  HAST  MEN  ABOUT  THEE  THAT 

Ro153  usually  TAL<  qF  A NqJN  AND  A yeRB»  AND  SUCH  ABOMINABLE  WORDS  AS  NO 
R015A  CHRISTIAN  EAR  CAN  ENDURE  TO  HEAR.!; 

ROl55  henry  act  2’  SCENE  A 

Roi56  tHe  Following  assignments  for  pinPall  are  made  elsewhfRe 


R0157  reserved  For  pinball  EaECUTIVl  acUon 


R0158  DSPCJJNT  ERaSE 
R0159  DECBRNCh  LRaSE 
R0160  VERBREu  erase 
R0I61  nounreg  erase 
R0162  XREG  erase 
R0163  YREG  ERASE 
R0164  ZREG  ERASE 
Ro165  XREgLP  erase 
R0166  YREGLP  erase 
R0167  ZREGLP  erase 
R0168  MOORES  ERASE 
R0169  DSPLOCK  ERASE 
R0170  REQRET  ERASE 
R0171  loadsiat  erase 

R0172  C-PASS  erase 
R0173  NOUT  erase 
Roi7a  nouncadk  erase 

R0175  MONSAvE  erase 


display  Position  indicator 
+OEC,  - dec,  oct  indicator 
verb  code 
NOUN  code 
Rl  INPUT  BUFFER 

rz  input  buffer 

RU  INPUT  BUFFER 

LU  PART  OF  XREG  (FOR  DEC  CONV  ONLY) 

LU  PART  OF  YREG  (FOR  DLC  CONV  ONLY) 

LU  PART  OF  ZREG  (FOR  DEC  CONV  ONLY) 

MUDE  CODE 

KEYBOARD/SUDROUt INE  CALL  INTERLOCK 
RETURN  REGISTER  FOR  LOAD 
SIATUS  INDICATOR  FOR  LOADTSt 

PASS  indicator  clear 

activity  counter  for  dsptab 

MACHKVE  CaDR  FOR  NOUN 

N/V  CODE  FOR  MONITOR.  (=  M0N5AVE1-1) 


R01T6  MONSAVEi  eRASe 

R0177  DSpTAB  ERASE  +13D 

R0178  CADRSTOR  ERASE 

R0179  GRABLDCX  eRlSe 

R0180  nvqtem  erase 

R018I 

R0182  NVBNKTEM  erase 

R0183 

ROI8A  D5PLIST  erase  +2 

R0185  EXTVBACT  REASE 

R0186  DSPTEMi  ERASE  +2 

R0187  D5PTEM2  ERASE  +2 


NUUNCADR  for  MONI tor (MATBS)  =M0N5AVE  +1 
0-10, display  PANEL  BUFFER. 1 1-13 ,C  RELAYS 

endidle  Storage 

internal  interlock  For  display  system 
n^sub  storage  For  calling  address 

MUST  = NVBNKTEM-1 

NVSUB  storage  for  calling  bank 

MUST  = NVOTEM+1 

waiting  list  for  OSP  SYSt  internal  use 

EXTENDED  VERB  ACTIVITY  INTERLOCK 
buffer  storage  area  1 (MOSTLY  FOR  TIME) 
buffer  storage  area  2 (MOSTLY  FOR  DEG) 
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L PINbALL  (jAMB  buttons  aNu  L^G^T6  USER'S  OwN  pAGF  NO.  5 

R0188  emd  of  erasables  Reserved  for  pinball  executive  action 

R0189  temporaries  FOR  PINBALL  ExECjH^'E  ACTiOn 


R0190  DSEXIT  = INTBi5+ 

R0191  EXIfEM  = INTBlS* 

R0192  Bl.AN<RE1  = INTB15  + 

return  FOR  DSPIN 

RETURN  FOR  SCALE  FACTOR  ROUTINE  SELECT 
return  for  2BLAN< 

R0193  i^RDREF  = INTBlTiS 

R0194  WORET  = INTBlTiS 

R0195  DECREl  = INTBIT15 

R0196  21/22REL  = INTBITiS 

return  for  5BLAN< 
return  for  DSPWD 
return  for  PUTC0M(DEC  LOAD) 
temp  for  charin 

ROlRT  U^DATREI  = POLISH 

R0198  CHAR  = POLISH 

R0199  ERCNT  = POLIjH 

R02OO  DeCOJNT  = POLISH 

return  for  UPDATNN'  upuatvb 

TEmP  for  charin 

counter  Bor  error  light  ReSft 

counter  For  scaling  and  display  (DeO 

R02OI  SSNOH  = VBUF 

R0202  NOuNTEM  = VBUF 

R0203  DISTLH  = VBUF 

R02OA  DECfEH  = VBUF 

temp  for  +*-  ON 
counter  for  MIXNouN  fetch 
counter  For  octal  display  VfRBS 
cuunteR  For  fetch  (dec  display  verbs) 

R0205  S3NOFF  = VBUF  +i 
R0206  Ni/TEM?  = VBUF  +1 
R0207  SFTEMPl  = VBUF  +1 

temp  for  +»-  ON 

TEmp  for  nvsub 

SlORAGE  FOR  SF  CONST  HI  PART ( =5FTEMP2- 1 ) 

R02O8  CODE  = VBUF  +2 

R0209  SFTEMPa  = VBUF  +2 

fur  DSPIN 

5IORAGE  for  5F  const  lO  part (=SfTEMP1+1) 

R02IO  VUXTEHP  = VBUF  +3 

R02II  5IGNRET  s VBUF  +3 

fur  MIXNOUN  DATA 
return  FOR  +.-  ON 

R0212  A_SO  MIXTEMP+1  = VBUF+a»  MIXtf 

:M3+2  = VBUF+5. 

R0213  EHTREI  = DOTINC 

exit  from  enter 

R02IA  ^i/OCNT  = DOTRET 

R0215  INREL  = DOTREI 

char  counter  For  ospwd 

input  buffer  selector  ( x,Y,z,  Reg  ) 

R0216  DSPMHTEM  = MATINC 

DBPCOUNT  save  for  dspmm 

R0217  MIXBR  = MATINC 

indicator  For  mixed  or  normal  noun 

R02I8  TEMi  ERASE 

R0219  DSREL  = TEMi 

E^EC  TEMP 

REE  address  for  DSPIN 

R0220  TEM2  erase 

RO22I  D5MAG  = TEM2 

E^EC  TEMP 

magnitude  Store  for  dspin 

‘^8895<+A  YJL  SYbltM  f-OR  AGC!  NEW  PROGRAM  S^^EPATIN  BY  EYLES 
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pinball  t)AME  BUTToNb  AND  LiGHilb 


UStR'S  OWN  page  N0« 


R0222 

I DADDTEI-. 

TEM2 

R0223 

R022A 

TEM3 

COUNT 

ERASE 

TEM3 

R0225 

R0226 

TSMA 

LSTPTR 

ERASE 

tema 

R0227 

R0228 

R ELIT  E T 
FREERET 

= 

TEMa 

TEMa 

R0229 

R0230 

TEMB 

NOuNAod 

erase 

TEM5 

R0231 

R0232 

R0233 

nnadtem 

NNTYPTEI"‘ 

I OADlTEl-. 

erase 

erase 

erase 

R023A 

R0235 

R0236 

IDAD21EN 

erase 

R0237 

R0238 

R0239 

R02A0 

I DAD3TEM 

RJTMXl  EF^ 
END  OF  IE 

erase 

erase 

IHPORAK 

IES  F; 

MiXNOUN  indirect  ADDRESS  STORAGE 

E^EC  TEMP 
FUR  DSPIN 

E^EC  TEMP 

LIST  POINTER  POR  GRABUSY 
RETURN  FOR  RELDSP 
RETURN  FOR  FREEDSP 

E^EC  TEMP 

TtMP  STORAGE  FOR  NOUN  AudRESS 

temp  FOR  NOUN  ADDRESS  TABLE  FNTRY 

TEMP  FOR  NOUN  TYPE  TABLE  ENTRY 

TEMP  FOR  INDIR  ADRESS  TABLE  FNTRYIMIXNN) 

MUST  = lDAD2TEM-i,  = IDAD3TEM-2. 

temp  for  INDIR  ADReSS  TABLE  ENTRY (MIXNN) 

MUST  = lDADnEM+1,  = IDADsTEM-l. 

temp  for  INDIR  ADRESS  TABLE  ENTRY (MIXNN) 

MUST  = lDADnEM  + 2»  = IDAD2TEM+1. 

temp  for  SF  rout  table  entry (MIXNN  ONLY) 

executive  action 


R02A1  reserved  FOr  PINBALL  INTERRU?)  AcIiOn 

R02A2  DSPCNl  erase  COUNTER  FOR  DSPOUT 

R02A3  J3L0C<  erase  BITI  = UPLINK  INTERLOCK  (ACTIVATED  BY 

A02AA  RECEPTION  OF  A BAD  MESSAGE  IN 

R02A5  END  OF  eRASaBLES  RESERVED  FOR  PInBaLL  INTERRUPT  ACTION 


R02A6  TEMPORARIES  FOR  PINBaLL  InTErrJPT  ACTION 

R02A7  KEYTEMPl  = WAlTEXlT  TtMP  FOR  KEYRUPT , UPRUPT 

R02A8  DSRUPTET.  = WAITEXIT  TtMP  FOR  DSPOUT 

R02A9  <EYTEMP2  s RUPTAGN  TtMP  FOR  KEYRUPT,  UPRUPT 

R0250  end  of  I eMPeRARIeS  for  PINBAL-  INIERRUPT  ACTION 


PAGE  22A 


UPLINK) 
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L PINBALL  GAMt  BUTTONS  AND  LIGHTS  USER’S  O/JN  PAG?  NO.  7 


P0251 

THE  input 

CODES  Assumed  for  he  keyboard  are* 

R0252 

0 

lOCOO 

R0253 

1 

00001 

R025A 

9 

oicoi 

R0255 

VERB 

10001 

R0256 

ERROR  RtS 

lOClO 

R0257 

<EY  RLSt 

11001 

R0258 

+ 

1 ICIO 

R0259 

- 

11011 

R0260 

ENTER 

11100 

R0261 

C-EAR 

11110 

R0262 

NOUN 

11111 

R0263  OOTf'JT  LoRMai  For  display  PAM£L.  liET  oUtO  to  AAAABCCCCCDDDDD. 

R026A  A-5  select  A RLLAywORD.  THIS  0E1E^<PiINES  WHICH  pAIR  OF  CHARACTERS  ARE 

R0265  ETERGiZFU. 

R0266  B FOR  SIECIAL  RELAYS  SUCH  AS  SlGNi^  ETC. 

R0267  C-S  5 bir  RELAY  CODE  FOR  LEFl  CHAR  OF  PAIR  SELECTED  BY  ReLAYWORD 

R0268  D-S  5 BIT  RELAY  CODE  FOR  RIGHTCHAR  OF  PAiR  SELECTED  BY  RpLAYWORD, 


R0269  THE  PANEL  APPEARS  AS  FOLLOWS, 

R0270  MOl  KD2  (MAJOR  MODE) 

R0271  VDl  VD2  (VERB)  NDl  N32  (NOUN) 

R0272  RlDl  1-.1D2  R1D3  RIDa  RIDS  (Rl) 

R0273  R2D1  R2D2  R2D3  R2Da  R2D5  (R2) 

R027A  R3D1  h3D2  R3D3  R3Da  R3Db  (R3) 

R02Y5  each  of  these  IS  given  A DSPCDJNT  NUMBER  FOR  USe  WITHIN  COMPUTATION  ONLY 
R0276  mDI  25  R2D1  11  ALL  ARE  OCTaL 

R0277  MD2  2A  R2D2  10 

R0278  VDl  23  R2D3  7 

R0279  VD2  22  R2DA  6 

R0280  NDl  21  R2D5  5 

R0281  ND2  20  R3D1  A 

R0282  RlDl  16  R3D2  3 

R0283  R1D2  15  R3D3  2 

R028A  RID3  lA  R3DA  1 

R0285  RIDA  13  R3D5  0 

R0286  R1D5  12 


R0287  there  is  an  11  register  tabLe  (dsPtaB)  for  the  Display  panel. 

R028e  DSPTAB  KELAyWD  blTll  BPS  10-6  BITS  5-1 

R0289  RELADD 
R0290  13 

R0291  9 


1011 

1010 


HDi  (25) 
vDl  (23) 


MD2  (2A) 
VD2  (22) 
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R0292 

8 

1001 

NDi 

(2l) 

ND2 

(20) 

R0293 

7 

1000 

RlDl 

(16) 

R029A 

6 

01 1 1 

+ K1 

R1D2 

(IS) 

R1D3 

( lA) 

R0295 

5 

0110 

-K1 

RIDa 

(13) 

RIDS 

(12) 

R0296 

A 

OlOl 

+ R2 

R2D1 

(11) 

R2D2 

(10) 

R0297 

3 

0100 

-R2 

R2D3 

(7) 

R2Da 

(6) 

R0298 

2 

coil 

R2DS 

(5) 

R3D1 

(A) 

R0299 

1 

0010 

+ R3 

R3D2 

( 3 ) 

R3D3 

(2) 

R0300 

0 

0001 

-k3 

R3‘^A 

(1) 

R3D5 

(0) 

R0301 

0000 

NO  RELAYLORD 

R0302  the  5 BIT  RELAY  CODES  ARE* 


R0303  BLAN<.  COOOO 
R030A  0 10101 
R0305  1 toon 

R0306  2 11001 
R0307  3 11011 
R0308  A 01111 
R0309  5 11110 
R0310  6 11100 
R0311  7 10011 
R0312  8 11101 
R0313  9 11111 
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user's  own  PaGF  no*  s 
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P031A 


0315 

0316 

0317 

0318 

0319 

0320 

0321 

0322 

0323 
032A 

0325 

0326 

0327 

0328 

0329 

0330 

0331 

0332 

0333 

0334 

0335 

0336 

0337 

0338 

0339 

0340 

0341 

0342 

0343 

0344 

0345 

0346 

0347 

0348 

0349 

0350 

0351 

0352 

0353 

0354 

0355 

0356 


pinball  game  buttons  and  LlSHilb 

START  Of  EXECUTIVE  SECTION  Dp  PINBALL 


04»2000 


REF  1 04 

REF  1 04 

REF  36  LAST  208  04 

REF  2 Last  86  04 

REF  1 04 

REF  74  LAST  215  04 

REF  1 04 

REF  138  LAST  217  04 

04 

REF  1 04 

REF  1 04 

REF  2 LAST  227  04 

REF  3 LAST  227  04 

REF  4 LAST  227  04 

REF  5 LASl  227  04 

REF  6 LAST  227  04 

REF  7 LAST  227  04 

REF  1 04 

REF  2 LAST  227  04 

REF  2 LASl  227  04 

REF  3 last  227  O4 

REF  4 LAST  227  04 

REF  5 LAST  227  04 

REF  6 last  227  04 

REF  7 last  227  O4 

REF  8 last  227  04 

REF'  1 04 

REF  1 04 

REF  1 04 

REF  1 04 

REF  8 LAST  227  04 

REF  9 LAST  227  04 

REF  10  LAST  227  04 

REF  11  LAST  227  04 

REF  1 04 

REF  1 04 

REF  1 04 

REF  1 04 

REF  12  last  227  O4 

REF  1 04 

REF  1 04 


2000  0 3‘^72  0 GRAbUSYB 

2001  0 3PI4  1 NVSUbSYfi 

2002  3 7755  1 CHARIN 

2003  St  303  1 

2004  S4  105  1 

2005  St  I44  0 

2006  54  107  0 

200V  SO  000  1 

2010  0 ^>011  0 

2011  0 3313  0 

2012  0 2O7O  1 

2013  0 2O7O  1 

2014  0 2O7O  1 

2015  0 2070  1 

2016  0 2070  1 

2017  0 2O7O  1 

2020  0 2O7O  1 

2021  0 2O6I  1 

2022  0 2O6I  1 

2023  0 3313  0 

2024  0 3313  0 

2025  0 3313  0 

2026  0 3313  0 

202V  0 3313  0 

2030  0 3313  0 

2031  0 2O66  0 

2034  0 2243  0 

2033  0 2355  0 

2034  0 2O53  0 

2035  0 2056  0 

2036  0 3313  0 

203V  0 3313  0 

2040  0 3313  0 

2041  0 3313  0 

2044  0 3336  1 

2043  0 2‘!:75  0 

2044  0 2262  0 

2045  0 2O5I  1 

2040  0 3313  0 

2047  0 2446  0 

205O  0 2456  1 
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TC 

TC 
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XCH 

TS 

XCH 

TS 
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TC 

1C 

TC 

1C 

TC 

1C 

TC 

1C 

TC 

TC 

TC 

TC 

TC 

TC 

TC 

TC 

TC 

TC 

1C 

TC 

TC 

TC 

1C 

TC 

1C 

TC 

TC 

TC 

TC 

1C 

TC 

TC 
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DSPLOCK 

21/22REG 

MPAC 
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A 

BLOCK  DISPLAY  SVST 

MAKE  DSP  SYST  BUSY,  BUT  SAVE  OLD 
C(DSPLOCK)  for  pRROr  LIGHT  RESET, 

+ 1 

ChARALRM 

NUM 

NUM 

NUM 

INPUT  CODE  pUNCtION 

0 

1 

2 

3 

NUM 

NUM 

NUM 

NUM 

89TF5T 

89TE5T 

CHARALRM 

CHARALRM 

CHARALRM 

CHARALRM 

CHARALRM 

CHARALRM 

NUM  -2 

Verb 

ERROR 

AbRT23G0 

ABRT24G0 

CHARALRM 

CHARALRM 

CHARALRM 

CHARALRM 

VBRFLDSP 

POSGN 

4 

5 

6 

7 

10  8 

11  9 

12 

13 

14 

15 

16 

17 

20  0 

21  VERB 

22  error  light  reset 

23  SUBORBIT  ABORT 

24  rONORBIT  ABORT 

25 

26 

27 

30 

31  KEY  RELEASE 

32  + 

NEGSGN 

ENTERJMP 

CHARALRM 

CLEAR 

NOUN 

33 

34  enter 

35 

36  CLEAR 

37  NOUN 

CLEAR 

NOUN 


48895‘+A  YJL  bVSlLM  f-OR  A&C;  NEW  PRO'^RA'I  SHePATIN  BY  eYLES 


dec  in,  lq66  (MAIN)  page  228 


L 

0357 

0356 

0359 

0360 

0361 

0362 

0363 
036A 

0365 

0366 

0367 

0368 

0369 


R0370 

R0371 

R0372 

R0373 

R037A 

R0375 


0376 

0377 

0378 

0379 

0380 

0381 

0382 

0383 
0389 

0385 

0386 

0387 

0388 

0389 

0390 

0391 

0392 

0393 
0399 

0395 

0396 

0397 

0398 

0399 

0900 
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REE  12  LAST  199  O9.205I  0 1 ENTERJMP  TC  P05TJUMP 

REF  1 09,2052  12O03  1 CADR  ENTER 


REF  1 
REF  13 
REF  1 
REF  2 
REF  19 
REF  1 


LAST  228 

last  228 

LAST  228 


09,2053 

09,205^ 

09.2055 

09 .2056 

09 .2057 
09,2060 


0 9855  0 
0 5293  1 

SS'^Ol  1 

0 9855  0 
0 5293  1 

58^*09  1 


ABRT23G0  TC 
1C 

CADR 

A3RT29G0  TC 
TC 

CADR 


RELDSP 

PUSTJUMP 

SUBABORT 

RELDSP 

POST JUMP 

CONORBIT 


REF  6 LAST  189  09,2061  3 6301  0 89TEST  CAF 

REF  1 09,2062  7 0271  1 MASK 

REF  139  last  227  09,2063  10  UOO  0 CCS 

REF  9 last  227  09,2069  0 2070  1 TC 

REF  13  last  227  09,2065  0 3313  0 TC 


three 

DECBRNCH 

A 

NUM  IF  DECBRNCH  I S + , 8 OR  9 OK 

CHARALRM  IF  DECBRNCH  IS  +0,  REJECT  8 OR  9 


njm  Assembles  octal  3 tUs  a tIme.  for  decimal  it  converts  incoming 

WORD  AS  A fraction,  KEEPING  ReSJLIS  TO  DP. 

OCTAL  Results  are  left  in  xReG',  yRec,  or  zreg.  hi  part  of  dec  in  xreg, 
YREG,  zreg.  the  low  parts  in  XREGLp,  YRECLP,  OR  ZREGLP) 

DECBRNCH  IS  LEFT  AT  +0  FOR  OCI,  +i  FOR  + DEC,  +2  FOR  - DEC. 

IF  DSPCOUNT  WAS  LEFt  -i  NO  MOHE  DATA  IS  ACCEPTED. 


REF  98  LAST  216  09,2068  3 7^81  0 CAF  ZERO 


REF  2 last  227 
REf  3 last  215 


REF 

REF 

28 

1 

LAST 

213 

REF 

2 

LASl 

86 

REF 

99 

EAST 

228 

REF 

3 

LASI 

228 

REF 

3 

LAST 

228 

REF 

2 

LAST 

93 

REF 

5 

LASI 

216 

REF 

1 

REF 

9 

LASl 

228 

REF 

1 

REF 

1 

REF- 

7 

LAST 

228 

REF 

2 

last 

228 

REF- 

] 90 

LAST 

228 

REF 

1 

REF 

1 

09-2067  59 

09.2070  ID 

09.2071  0 

09.2072  0 

09.2073  0 

09,207A  0 

09,2075  0 

09,2078  ID 
09,2077  3 

09.2100  59 

09.2101  0 

09.2102  5D 

09.2103  3 

09,210A  7 

09,2105  59 

09,2108  3 

09,2107'  59 

09.2110  0 

09.2111  3 

09.2112  7 

09.2113  ID 

09,2119  0 

09,2115  50 


107  0 

270  0 Njm 
2075  1 

2075  1 
2079  0 
5805  1 

2213  0 

306  0 
7^61  0 
306  0 
2102  0 
107  1 
9267  0 

9595  0 

119  1 

0270  1 
133  1 

3217  0 

6301  0 

0271  1 
000  0 

2I25  0 
127  0 


TS  char 

CCS  DSPCOUNT 

TC  +9  + 

1C  +3  +0 

TC  +1  -BLOCK  DATA  IN  iF  DSPCOUNT  IS  - 

TC  ENDOFJOB  -0 

TC  GETINREL 

CCS  CLPASS  IF  CLPASS  IS  + OR  +0,  MAKE  IT  +0. 

CAF  ZERO 

IS  CLPASS 

TC  +1 

INDEX  char 

CAF  RELTAB 

mask  lows 

TS  CODE 

CA  DSPCOUNT 

TS  COUNT 

TC  DSPIN 

CAF  THREE 

MASK  DECBRNCH 

CCS  A +0,  octal.  +1,  ♦ DEC.  +2,  - DFC. 

TC  DECTOBIN  + 

INDEX  INRFL  +0  OCTAL 


REF  2 LAST  86  09,2118  55  Z72  0 


XCH  VERBREG 
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0901  REF 

0902  REF 

0903  REF 
0909  REF 

0905  REF 

0906  REF 

0907  REF 

0908  REF 


1 

2 LAST  229 

3 last  229 
9 LAST  229 
9 last  228 
1 

2 LAST  228 

3 last  228 


09 

09 

09 

09 

09 

09 

09 

09 


211T 
2120 
2121 
2122 
21  2S 

21  2A 
21  2S 
2126 


59  022  0 
9 0022  0 
9 0022  0 
56  022  1 
6 0107  1 
0 2l92  1 
50  127  0 
56  272  0 


T5 

:s 

cs 

XCH 

AD 

1C 

DECTOBIN  INDEX 
XCH 


CYL 

CYL 

CYL 

CYL 

Char 

ENDNMl ST 
INRFL 

verbreg • 


0909  REF 

0910  rEf 

0911  REF 

0912  REF 

0913  REF 
0919  REF 

0915  REF 

0916  REF 

0917  REF 

0918  REF 

0919  REF 

0920  REF 

0921  REF 

0922  RET 

0923  REF 
0929  REF 

0925 

0926  REF 

0927  REF 

0928  REF 

0929  REF 

0930  REF  1 

0931  REF 


75  Last  227 

50  lAsI  228 

76  LAST  229 
2 LAST  85 
1 

77  LAST  229 
5 LAST  229 

78  LAST  229 

2 LASl  229 

79  LAST  229 
1 

3 last  229 
9 LAST  229 
5 last  228 
9 LAST  229 
1 

1 

1 

8 LAS)  228 
3 LAST  228 
91  Last  228 
2 LAST  229 


09 

09 

09 

09 

09 

09 

09 

Oa 

09 

09 

09 

09 

09 

09 

09 

09 

09 

09 

09 

09 

09 

09 

09 


212T 

2130 

2131 

213E 

2133 

213A 

2135 

2136 

213  V 

2190 

2191 

2192 

2193 
2199 

2195 

2196 
219T 
21  5O 
2151 
215L 
2153 
215A 
21  56 


59  I99  1 
3 7T6I  0 
59  195  0 
3 9657  1 

0 7351  1 

56  I95  1 
6 0107  1 
59  I95  0 

0 2192  1 
26  199  1 
0 2 160  1 
50  127  0 
59  L72  1 

9 0^70  0 
50  127  0 

6 29:09  0 
0 0*006  1 

1 2I52  1 
0 2<;01  0 
3 6301  0 

7 09:71  1 

10  uoo  0 

0 2l60  1 


TS 

CAf 

TS 

CAF 

TC 

XCH 

AD 

TS 

TC 

ADS 

TC 

ENDNMTST  INDEX 
1 S 
CS 

index 

AD 

EXTEND 

3ZF 

TC 

ENDNUM  CAF 
MASK 
CCS 
TC 


MPAC 

ZERO 

MPAC  +1 

TEN 

SHORTMP 
MPAC  +1 

CHAR 

MPAC  +1 

ENDNMTST 

MPAC 

DECFND 

INREL 

VERBREG 

DSPCOUNT 

INREL 

CRITCON 

ENDNUM 

MORNUM 

THREF 

DECBRNCH 

A 

deCfnd 


0932 

REF 

6 

last 

229 

0933 

REF 

2 

LAST 

229 

0939 

REF 

1 

0935 

REF 

1 

0936 

REF 

9 

LAST 

229 

0937 

REF 

9 

LASI 

229 

0938 

REF 

192 

LAST 

229 

0939 

0990 

REF 

1 

0991 

0992 

REF 

80 

LAST 

229 

0993 

REF 

81 

LAST 

229 

0999 

REF 

D erf 

82 

LAST 

229 

0995 

K tr 

5 

L A S 1 

229 

0996 

REF- 

1 

0997 

REF 

83 

LAST 

229 

0998 

REF 

6 

LAST 

229 

0999 

REF 

5 

LASI 

229 

0950 

REF 

1 

09,2156  9 OZ7O  0 ENDALL  CS 

09,215T  0 21:02  0 TC 

09.2160  0 7I96  0 DECEND  TC 

09. 2161  02Z11  1 ADRES 

09.2162  3 6301  0 CAF 

09.2163  7 0Z71  1 MASK 

09,2166  50  000  1 INDEX 

09,2166  0 2165  1 TC 

09,2166  0 2172  1 TC 

09,216?  0 0006  1 EXTEND 

09.2170  9 0l96  0 DCS 

09.2171  52  196  0 DXCH 

09.2172  56  l96  1 +DEC5GN  XCH 

09.2173  50  127  0 INDEX 

09,2176  59  276  0 TS 

09,2176  56  195  1 XCH 

09,2176  50  127  0 INDEX 

09,217'?  59  272  1 TS 

09,2200  0 2156  1 TC 


DSPCOUNT 

MORNUM  +1 

DMP 

DECON 

THREE 

DECBRNCH 

A 

+ 0 

+DECSGN 

MPAC  +1 
MPAC  +1 
MPAC  +2 
INREL 

XREGLP  -2 
MPAC  +1 
INRFL 
VERBREG 
ENDALI 


USER'S  OWN  PAGF  NO.  11 


SUM  X 2EXP-19  IN  MPAC 


10  X 2EXP-19 

lOSUM  X 2EXP-28  IN  MPAC,  MPAC+1 


NO  OF 

OF  MUST  BE  5TH  < HAR 


-0,  DSPCOUNT  = CRITCON 
- , DSPCOUNT  G/  CRITCON 


BLOCK  NUMIN  BY  dLaCING  DSPCOUNT 
NEGATIVELY 

MULT  SUM  X 2EXP_28  IN  MPAC,  MPAC+1  BY 
2EXP19/10EXP5.  C,IVES(SUM/10EXP51X2EXP-16 
IN  MPAC,  +1,  +2. 


CASE 
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0451  rEI-  7 LAST  229  Oa.2201  10  ^yc  0 MOrmUM  CCS  DsPCOUnT 

0452  REF  8 LAST  230  04,220^  5A  -^70  0 TS  DSPCOUNT 

0453  REF  29  LAST  228  04,2203  0 5^05  1 1C  ENDOFJOB 


0454 

0455 

0456 

0457 

0458 


04,2204 

OOU22 

1 

CRITCON  OCT 

22 

04,2203 

00U20 

0 

OCT 

20 

04,2206 

00012 

1 

OCT 

12 

OA , 2207 

OOO05 

1 

OCT 

5 

0A,221G 

OOOOO 

1 

OCT 

0 

0459  04,22li  05^74  0 DECON  2DEC  E-5  R14 

C0459  04,2212  13^61  0 


R0460  GetINReB  GetS  PRoPeR  DATA  REG  ReL  ADDReSS  FqR  CURReNT  GCDSPCqUnt) 
R0461  PJTS  in  into  INREL,  +0  VeRBReG',  1 NOUNREG,  2 XREG,  3 YREG,  4 ZREG, 


0462 

0463 

0464 

0465 


REF 

ref 

REF 

REF 


9 LAST  230  0a»2213 

1 0a,2216 

7 last  229  0a,2215 

68  LAST  217  04,221R 


53  470  I GETINRLL  INDEX 
3 2217  I CAf 

5A  ^27  1 TS 

0 0002  0 1C 


DSPCOUNT 

INRFLTAB 

INRFL 

Q 


0466 

0467 

0468 

0469 

0470 

0471 

0472 

0473 

0474 

0475 

0476 

0477 

0478 

0479 

0480 

0481  REF 


1 


04 

04 

04 

04 

04 

04 

OA 

Oa 

OA 

OA 

CA 

OA 

OA 

OA 

OA 

OA 


2217 

2220 

2221 

2222 

2223 

2224 
2223 
2226 
2227 

2230 

2231 

2232 

2233 

2234 
22  3 3 
2236 


00004  0 
00004  0 
OOOOA  0 
00004  0 
00004  0 
00003  1 
00003  1 
00003  1 
00003  1 
00003  1 
00002  0 
00002  0 
00002  0 
00002  0 
00002  0 
0 4T25  0 


INRELTAB  OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
TC 


4 

4 

4 

4 

4 

3 

3 

3 

3 

3 

2 

2 

2 

2 

2 

CCSHOLE 


0482 

0483 

0484 

0485 


04,223'' 
04 ,22A0 
0A,224l 
0a,2242 


OOOOl  O 
OOOOl  0 
OOOOO  1 
OOOOO  1 


OCT  1 

Oct  1 

OCT  0 

OCT  0 


0486 

REf 

51 

LAST 

229 

OA ,22A3 

3 7T6I 

0 

verb 

cAf 

ZERO 

0A87 

REF 

6 

LAST 

229 

OA ,2244 

54  472 

1 

IS 

VERBREG 

0488 

REF 

2 

LASl 

86 

04,2243 

3 4354 

1 

CAF 

VUl 

0A89 

REF 

10 

LAST 

230 

04,2246 

5 4 470 

0 

NVCOM 

TS 

DSPCOUNT 

0490 

REF 

1 

04, 2247 

0 2357 

1 

TC 

2BLANK 
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decrement  DSPCOunT 


(DEC  18) 
(DEC  16) 
(DEC  10) 


2EXPIA/IOEXP5  = ,16384  DEC 


(A  TEMP,  REG) 


R3D5  (DSPCOUNT 
R3D4 

R3D3 

= 0) 

= (1) 

„ (2) 

R3D2 

= ( 3 ) 

R3D1 

= (4) 

R2D5 

= (5) 

R2D4 

= (6) 

R2D3 

= (7) 

R2D2 

= (8D) 

R2D1 

= (9D) 

R1D5 

0 (lOD) 

RIDA 

= (llD) 

R1D3 

B ( 1 2 D ) 

R1D2 

= ( 13D) 

RlDl 

= ( 140) 

NO  DSPCOUNT  NUMpER  = 

ND2 

= (160) 
= (17D) 

NDl 

VD2 

= ( 180) 

VDl 

= ( 190) 

488954A  YJL  SYSTEM  FOR  A&C : RlW  PRO<jRAM  S^ePATIN  BY  EYLtS 


L 

0491 

0492 
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0494 

0495 
A0496 

0497 

0498 

0499 

0500 
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0502 

0503 

0504 

0505 

0506 

0507 

0508 

0509 

0510 

0511 

0512 

0513 

0514 

0515 

0516 

0517 

0518 

0519 

0520 

0521 

0522 

0523 

0524 

0525 

0526 

0527 

0528 

0529 

0530 

0531 

0532 

0533 

0534 

0535 
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RET 

52 

LAST 

REP 

5 

LAST 

REF- 

2 

LAST 

REP 

1 

REP 

1 

REP 

30 

LAST 

REP 

53 

last 

REP 

3 

Last 

RtP 

1 

REP 

1 

230 

04,22 

249 

04,22 

86 

04,22 

04,22 

04,22 

230 

04,22 

231 

04,22 

188 

04,22 

04 ,22 

04,22 

50  3 7^61  0 

51  59  ‘^Tl  1 
54  304  1 

53  3 4474  1 

54  54  126  0 

55  0 5PO5  1 

5P  3 7^61  0 
57  64  ‘^73  0 

60  3 4555  0 

61  0 2446  0 


CAP 

IS 

T5 

CAP 

T5 

1C 

NOUN  CAP 
TS 
CAP 
TC 


rLp 

1 

04,2264 

RcP 

1 

04 ,2263 

REP 

19 

LAST 

204 

04,2264 

REP 

8 

last 

230 

04,2265 

REP 

15 

LAST 

184 

04,2266 

0 2334  1 NEGSGN  IC 

0 2321  0 TC 

3 7 <'54  0 CAP 

50  l27  0 BOTHSGN  INDEX 

6 7^47  1 AD 


REP  6 Last  231 
REP  4 last  .228 
REP  54  LAST  231 
REP  5 LAST  231 

REP  31  last  231 


2267 

2270 

2271 

2272 

2273 

2274 


26  471  1 ads 

10  306  0 PlXCLPAS  CCS 

3 7^61  0 CAP 

54  306  0 TS 

0 2474  1 TC 

0 5605  1 1C 


REP 

REP 

REP 

REP 


2 LAST  231 
1 

37  LAST  227 
1 


0 2334  1 
0 2301  1 
3 7^55  1 
0 2465  1 


POSGN 


TC 

TC 

CAP 

TC 


REP  69  LAST  230 
Rcp  4 last  228 
REP  9 LAST  231 
REP  1 
REP  1 

REP  38  LAST  231 
REP  1 

RcP  55  last  231 
REP  2 LAST  228 
RuP  2 LAST  231 
REP  1 


04.2301  22  002  0 +0N  LXCH 

04.2302  0 2413  0 VC 

04.2303  50  12?  0 INDEX 

04.2304  5 232?  0 CAP 

04.2305  54  113  0 TS 

04.2306  6 7'55  1 AD 

04.2307  54  112  1 TS 

04.2310  3 7^61  0 SSNCOM  CAP 

04.2311  54  ll4  1 TS 

04,2314  56  113  1 XCH 

04,2313  0 3301  0 TC 


REP  17  LAST  213  04,2314  3 7 ?43  0 CAP 

REP  3 LAST  231  04,2315  54  Il4  1 TS 

REP  2 LAST  231  04,2316  5b  112  0 XCH 

RcF  2 LASi  231  04,2317  0 3301  0 TC 

REP  45  LAST  204  04,2320  0 OOOl  0 TC 

REP  ?0  LAST  231  04,2321  42  002  0 -ON  LXCH 

REP  3 LAST  231  04,2322  0 2413  0 TC 

REP  10  LAST  231  04,2323  50  l27  0 INDEX 
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USER'S  OwN  PAGF  NO.  13 

ZERO 

decbrnch 

REGRET 

ENDINST 

ENTRET 

ENDOFJOB 

ZERO 

SET  FOR  ENTPASO 

IF  DSPALARM  OCCnRS  (TEFORE  FIRST  ENTPASq 
OR  NVSUB,  ENTREt  MUST  ALREADY  Be  SET 

TO  TC  ENDOFJOFS 

NOUNREG 

NDl 

NYCOM 

NDl,  OCT  21  (DEr  17) 

SIGNTEsT 

-UN 

TwO 

INRPL 

BIT7 

SET  DEC  COMP  BIt  TO  1 (IN  DECBRnCH) 

BIT  5 FOR  Rl,  rIT  4 EOR  R2, 

DeCBRNCH 

CLPASS 

ZERO 

CLPASS 

+ 1 

ENDOFJOB 

SIGNTEST 
♦ ON 

ONE 

BOTHSGN 

0 

GE  T INREL 

INREL 

5GNTAB  -2 
SGNOFF 

ONE 

SgNON 

ZERO 

CODE 

SgNOPF 

llDSPIN 

BlTll 

CODE 

SgNON 

llDSPIN 

L 

0 

GET INREL 

INREL 

BIT  3 for  R3. 

IF  CLPASS  IS  + nR  ♦O*  MAKE  IT  +0. 

48895^A  YJL  SYSTL'M  FOR  AGC . NEW  PR0Gri\,vi  SHePATIN  BY  EYLES 


PINBaLL 

GaMl 

buttons  and  LIG 

HT  6 

0536 

REF 

2 

LASl 

231 

04,2324 

3 2327 

0 

CAF 

SGNTAB 

0537 

REF 

3 

LAST 

231 

04,2323 

54  112 

1 

TS 

sgnon 

0538 

REF 

39 

LAST 

231 

04,2326 

6 7755 

1 

AD 

one 

0539 

REF 

3 

LAST 

231 

04,2327 

5 4 1 1 3 

0 

T S 

SGNOFF 

0540 

REF 

1 

0h,2330 

0 2310 

1 

TC 

SGNCOM 

0541 

04,2331 

00005 

1 SoNT  AB 

OCT 

5 

0542 

04,2332 

DOOO3 

1 

OCT 

3 

0543 

Oh, 2333 

ooooo 

1 

OCT 

0 

05AA  REF  n last  231  0^t,233A 

0545  REF  10  Last  21;9  0a,2331’ 

0546  REF  7 last  231 

0547  REF  1*,3  LAST  ZZ9  0a,2337 

0548  REF  32  LAST  231  04,2340 

0549  REF  1 0A,234i 

0550  REF  1 04,2342 

0551  REF  1 0a,2343 

0552  REF  2 LAST  232  04,234A 

0553  REF  1 04,2343 

0554  REF  3 LAST  232  04,2346 

0555  REF  33  LAST  232  04,234^ 

0556  REF  11  LAST  230  0a,235O 

0557  Oa,2351 

0558  0a,2352 

0559  REF  rz  LAST  232  Oh, 2353 

0560  REF  46  LAST  231  04,235^ 


22  002  0 51GNTLST  LXCH  0 

3 6301  0 CAF  THRFE 

7 0271  1 'lASiC  DtCBRNCH 

10  Ooo  0 CCS  A 

0 5605  1 TC  ENDOFJOB 

4 4316  0 CS  RlDl 

0 2350  0 IC  SGNTSTl 

4 4317  1 CS  R2D1 

0 2350  0 TC  SGNTSTl 

4 4320  0 CS  R3D1 

0 2350  0 1C  SGNTSTl 

0 5605  1 TC  ENDOFJOB 

6 0270  1 SGNTSTl  AD  DSPCOUNT 

0 0006  1 EXTEND 

1 2354  0 3ZF  +2 

0 0002  0 TC  0 

0 0001  0 I'C  L 


R0561  ERROR  light  KESEt  (RSEl)  tUKsjs  jFF  » 

R0562  J3l1N<  ACTUITY,  AUtO,  HOiD*  -REE*  NO  AIT,  OPERATOR  ERROR, 

R0563  PROG  ALH,  TRACKER  FAIL. 

R0564  LEAVES  GIMBAL  LOCK  ALONE. 

R0565  IT  ALSO  ZEROES  THE  :1EST  ALAR'Ii;  oOf  BIT.  WHICH  TURNS  OFF  STBY  .REST  ART . 

R0566  it  also  sets  :CAUTI0N  RESft:  10  1. 

R0567  it  also  forges  BIT  12  OF  ALL  JSST'^B  ENTRIES  TO  1. 


0568  REF  2 LAST 

0569  rEF  3 LAST 

0570 

0571  REF  25  LAST 

0572 

0573  REF  2 LAST 

0574  REF  1 

0575  REF  26  LAST 

0576  REF  16  LAST 

0577  REF  2?  LAoi 


227  04,2353 

227  04,2356 

04,2357 
210  04,2360 

Oh ,2361 
216  04,2362 

Oh, 2363 
157  04,2366 

207  Oh, 2363 

232  Oh, 2366 


3b  105  0 ERROR 
54  303  0 
0 0004  0 
3 7744  1 
0 0006  1 

05  011  1 
3 2444  1 
7 0326  1 

6 7737  0 

54  326  1 


XCH  21/22REG 

TS  DsPLOCK 

INHINT 

CAF  BlTlO 

EXTEND 

WOR  DSALMOUT 

CAF  GL+NOATT 

^ASK  DSPTAB  +11D 

AD  BIT  15 

TS  DSPTAB  +11D 


dec  U,  1966  (MAIN)  PAGE  232 


USER'S  OWN  PaGf  NO.  14 


-R1 

-R2 

-R3 


ALLOWS  +,-  ONLY  WHEN  DSPCOUNT =RiDl , 
R2DI,  OR  R3D1.  allows  ONLY  FiRSr  OF 
CONSEOUTIVE  +/-  CHARACTERS. 

IF  LOW  2 BITS  OF  DECBRNCH  NOT  = 0,  SIGN 
FOR  THIS  WORD  Al  READY  IN,  REJECT. 


NO  MAICH  FOUND,  SIGN  ILLEGAL 


MATCH  FOUND 
SIGN  LEGAL 


RESTORE  ORIGINAI  C(DSPLOCK),  THUS  ERROR 

Light  reset  lfaves  dsplock  unchanged. 

TURN  ON  jCAUTIOm  RESET;  OUTBIT 
BITlO  CHAN  11 

leave  GIMBAL  LOrK  AND  NO  ATT  INrACT, 
TURNING  OFF  AUTf.,  HOLD,  FREE, 

PROG  ALARM,  AND  TRACKER. 


488954A  YJL  SYSliiM  FOK  AGC  ; NEW  PROGRAM  sHePATIN  BY  EYLES 
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L pinball  Game  buttons  mnu  lights 


0578 

REF 

2 

LAST 

11  1 

04,2367 

4 

5P6O 

0 

0579 

REF 

12 

LAST 

15  7 

Oh ,2370 

7 

0366 

0 

0580 

REF 

3 

LAST 

233 

0h,2371 

6 

5660 

1 

0581 

REF 

13 

LAST 

233 

Oh, 2372 

54 

366 

0 

0582 

REF 

26 

LAS  T 

232 

Oh  ,2373 

4 

7(44 

0 

0583 

REF 

56 

LAST 

211 

04,2374 

7 

0365 

0 

0584 

REF 

2 1 

LAST 

233 

04,2375 

6 

7744 

1 

0585 

REF 

57 

LAST 

233 

04,2376 

54 

365 

0 

CS  PKI016 

'TASK  IM0DES33 

AD  PKI016 

TS  IM0DES33 

C5  BITIO 

MASK  IM0DES30 

AD  BiTlO 

IS  IMDDES30 


0586  REF  I 

0587  REF  72  LAST  207 

0588  REF  16  LASl  231 

0589  REF  13  LAST  233 


0590  REF 

0591 

0592  REF 

0593  REF 

0594 

0595  REF 

0596  REF 
0591  REF 

0598 

0599  REF 

0600  REF 

0601  REF 

0602  REF 

0603  REF 

0604  REF 

0605  REF 

0606  REF 

0607  REF 


28  LASl  233 

1 

1 

3 LAST  232 
1 
1 

2 LAST  233 
28  LASl  232 

40  LAST  232 
1 

41  LAST  233 

44  LAST  232 
1 

1 

45  LAST  233 


O^t 

04 

Oh 

Oh 

Oh 

04 

Oh 

Oh 

Oh 

Oh 

Oh 

Oh 

Oh 

Oh 

Oh 

04 

Oh 

Oh 


2377 

2400 

2401 

2402 

2403 

2404 

2405 

2406 
240  ! 

2410 

241 1 

2412 
241B 
2414 

2416 
2410 

2417 
242° 

2421 

2422 

2423 

2424 


4 2443  1 
7 0413  0 
6 7 147  1 
54  413  0 

4 7^44  0 
0 OOO6  1 

03  013  0 

4 2442  0 
0 0006  1 
03  011  1 

3 4657  1 
54  107  0 
0 0004  0 
50  107  1 
10  313  1 
6 7^55  1 
0 2424  1 

6 7^55  1 

4 0000  0 

7 2445  1 
0 2427  1 
4 OOOO  0 


TSTAB 


ERMINUS 


ERPLUS 


CS 

RFAILS 

mask 

radmodes 

AD 

BiT7 

TS 

radmodes 

CS 

BITIO 

EXTEND 

WAND 

CHAN13 

CS 

ERCON 

EXTEND 

WAND 

DSALMOUT 

CAF 

BINCON 

TS 

ERCNT 

INHINT 

INDEX 

ERCNT 

CCS 

dsptab 

AD 

ONE 

TC 

ERPLUS 

AD 

ONE 

CS 

A 

MASK 

N0TRIT12 

TC 

CS 

ERCOM 

A 

0608  REF 

0609  REF 

0610  REF 

0611  REF 

0612 

0613  REF 

0614  REF 

0615  REF 

0616  REF 

0617  ref 

0618  REf 

0619  REF 

0620  REF 


0621 

A0622 

0623 

0624 


2 last  233 
46  LAST  233 

3 last  233 
29  LAST  233 

4 LAST  233 
1 

56  LASl  231 

4 LAST  78 

5 last  233 

6 last  233 
2 LAST  83 

34  LAST  232 


Oh 

04 

Oh 

Oh 

Oh 

Oh 

Oh 

Oh 

Oh 

04 

04 

OH 

04 


2426 

2426 

2427 
243B 

2431 

2432 

2433 

2434 

2435 

2436 

2437 

2440 

2441 

2442 


7 2445  1 
4 ODOO  0 
50  107  1 
54  313  1 
0 0D03  1 
10  107  0 
0 2412  1 
3 7^61  0 
55*363  1 
55*364  0 
55*365  1 
55*361  0 
0 56O5  1 

00104  1 


ERCOM 


ERCON 


04»2443 
O4 » 2444 


00330  1 RFAILS 
00050  1 GL+NOATT 


MASK 

N0TBIT12 

CS 

A 

INDEX 

ERCNT 

TS 

DSPTAB 

REL I NT 

CCS 

ERCNT 

TC 

TSTAB  +1 

CAF 

ZERO 

TS 

FAILREG 

TS 

FAILREG  +1 

T S 

FAIlREG  +2 

TS 

SFAIL 

TC 

ENDOFJOB 

OCT 

^ ^ 

104 

J^T 

330 

OCT 

00050 

USER*5  OWN  PAGp  NO.  15 

RESET  FAIL  BITS  WHICH  GENERAlE  PROG 
ALARM  SO  that  If  THf  FAILURE  STILL 
EXISTS,  THE  ALARM  WILL  COME  BAC<. 


TURN  OFF  :TEST  rLARM:  OUTBIT, 


TURN  OFF  UPLINK  ACTIVITY, 
OPERATOR  error, 

(DEC  10) 

ERCNT  = COUNT 


MIGHT  WANT  TO  RrSET  CLPASS,  DEChRNCH, 
ETC. 


CHAN  11  BITS  3*7* 

uplink  Activity,  anq  operator  error. 

RADAR  CDU  AND  DaTA  FAIL  FLAGS. 

NO  ATT  AND  GIMBaL  LOCK  LAMPS 


48895^A  YJL  bYSiL'M  f'UR  AGC : NEW  PRO'^^AM  SHePATIN  BY  EYLf-S 


dec  U,  1966  (MAIN)  PAGE  23A 


L 

0625 


R0626 

R0627 

R0628 

R0629 

R0630 

R0631 

R0632 

R0633 

0639 

0635 

0636 

0637 

0638 

0639 

0690 

0691 

0692 

0693 
0699 

0695 

0696 

0697 

0698 

0699 

0650 

0651 

0652 

0653 
0659 

0655 

0656 

0657 
0656 

0659 

0660 
0661 
0662 
0663 
0669 

0665 

0666 

0667 

0668 


pinball  game  BUTloNb  aUD  LIGHiTS 

09,299b  7307  1 NDTBIT12  OCT  73777 


USER'S  OWN  Page  no*  Ib 


CaEaR  blanks  which  R1»  R2,  R3  IS  LurrENT  or  last  to  be  DISPLaYED(PERTINE 
NT  xREG,YREG,zRtG  IS  CLEARED) , SUCCESSIVE  CLEARS  TAkE  CARE  OF  EACH  Rx 
L/  RC  until  Ri  is  done.  THeN  NO  FURTHER  ACTION 

the  bIfNGLE  component  LoAD  VERBS  aLLoW  ONLY  tHE  SINGLe  RC  tHAT  IS 
APPROPRIATE  TO  BE  CLEARED. 


C_PASb  +0  PASSO,  LAN  Be  B/^c<e0  UP 

+NZ  hipass*  can  be  backed  up 
-Nz  PASSO,  Cannot  be  backed  up 


REF  12  LAST  232 
REf  92  lAsI  233 

REF  93  last  239 
REF  197  last  233 
REF  2 LASl  230 
REF  11  last  231 
REF  6 LAST  231 
REF  1 


REF  12  LASl  239 
REF  1 
REF  1 

RcF  13  LAST  239 
REF  l9  Last  239 
REF  2 LAST  239 
REF  1 

REF  3 last  231 
REF  15  LASl  239 
REF  1 

REF  7 LAST  230 


09.2996  10  270  0 CLEAR  CCS 

09.2997  6 7^55  1 Ap 

09,295D  0 2A52  0 TC 

09.2951  6 7(55  1 AD 

09.2952  50  DOO  1 INDEX 

09.2953  3 2^17  1 CAF 

09,295A  59  127  1 T5 

09.2955  10  306  0 CCS 

09.2956  0 2^69  0 TC 

09,295Y  0 2961  0 TC 

09.2960  0 2961  0 TC 

09.2961  3 0127  0 CA 

09.2962  0 2506  0 TC 

09.2963  0 2501  1 TC 

09.2969  10  l2Y  1 CLPASHI  CCS 

09.2965  59  127  1 TS 

09.2966  0 2506  0 TC 

09.2967  3 2555  0 CAF 

09.2970  26  309  1 ADS 

09.2971  3 0127  0 CA 

09.2972  59  115  0 TS 

09.2973  0 0O06  1 EXTEND 

09,2979  26  272  1 OIM 


REF  18  LAST  199  09,2975  0 5229  0 TC 

ref  1 09,2976  12315  0 CADR 

REF  2 LASl  239  09,297V  3 0115  1 CA 

REF  16  LAST  239  09,2500  59  127  1 TS 

REF  1 09,2501  0 2509  1 CLEARl  TC 

REF  7 LAST  239  09,2502  29  306  1 INCR 

REF  35  LAST  233  09,2503  0 5605  1 TC 

REF  T3  Last  232  09,2509  22  002  0 CLR5  LXCH 

REF  1 09,2505  -0  2516  1 TC 

REF  2 LAST  66  09,2506  6 5355  1 LEGALTST  AD  . 

REF  198  LAST  239  09,2507  10  Ooo  0 CCS 

REF  79  LAST  239  09,251°  0 0002  0 TC 


DSPCOUNT 

ONE 

+ 2 

ONE 

A 

INRFLTAB 
IlNRFL 
CLPASS 
CLPASHI 
+ 2 
+ 1 

INRFL 

LEGALTST 

CLEARl 

INREL 

InRFL 

LEGALTST 

DOUBLK  +2 

REQRET 

INREL 

MIXTEMP 

VERBREG 

BANKCALL 

UPDATVB 

MIXTEMP 

INREL 

CLR5 

CLPASS 

ENDOFJOB 

Q 

5BLANK  +2 
NEG2 
A 
0 


DO  NOT  CHANGE  DaPCOUNT  BECAUSE  lAY  LATER 
FAIL  LEGALTST. 

MUST  SET  INREL,  EVEN  FOR  HIPASS. 


+0  IF  CLPASS  IS  +0  OR  IT  IS  PASSO 


♦3  TO  - NUMBER.  BACKS  DATA  REQUESTS. 


TEMP  STORAGE  EOr  INREL 
decrement  verb  and  RE-DISPLAY 


RESTORE  INREL 

ONLY  IF  CLPASS  iS  + OR  +0, 

SET  FOR  HIGHFR  PASS. 

USES  5BLANK  BUl  AVOIDS  ITS  TC  GETINREL 


LEGAL  INREL  G/  2 


48895AA  YJL  SYS7t£H  TOR  AGC : N^W  PRO<jRAM  S^ePATIN  3Y  eYLeS 
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L 

0669 

0670 
0671 


R0672 

R0673 

R067A 

0675 

0676 

0677 

0678 

0679 

0680 
0681 
0682 
0683 

068a 

0685 

0686 

0687 

0688 
0669 

0690 

0691 

0692 

0693 
069A 

0695 

0696 

0697 

0698 

0699 

0700 

0701 

0702 

0703 
070A 

0705 

0706 

0707 

0708 

0709 


PHmBALL  game  buttons  and  l^G^TS 


USER'S  O^N  page  no.  17 


REF 

2 

LAST 

230 

09,2511 

0 

9/25 

0 

TC 

CCSHOLE 

REF 

36 

LAST 

239 

09,2519 

0 

5605 

1 

TC 

ENDOFJOB 

ILLEGAL 

INRFL=  0,1 

REF 

7 5 

LASl 

239 

09,2513 

0 

0002 

0 

TC 

Q 

LEGAL 

INREL  = 2 

53LAN<  BLAN<S  5 cHAR  dISplAY  a,07d  Rl*  R2,  OR  R3.  IT  ALSO  ZEROES  xREG. 
YRlCi.  OK  ZReO. PLACE  ANY  + OSPIOJNI  NUMBeR  FOR  PlRTINeNT  RC  INTO  DSPCOUNT 
DSPGOJNT  IS  LeFi  SeT  10  LeFT  viosj  DSP  NUMB  FOR  RC  JUST  BLaNKeD. 


REF  lb  LASl  235  0A.251A  22  Doz  0 5BLANK  LXCri  Q 

RFF  a lAsI  231  09,2blS  0 2^13  0 Tc  GEIINREl 


REF  57  LASl  233  0A,2516  3 7161  0 C 
REF  17  last  23A  09,2511  50  l27  0 1 
REF  8 LAST  239  09,2520  59  ^12  1 1 
REF  18  LASl  235  09,2521  50  127  0 I 
REF  2 LASl  229  09,2522  59  273  0 T 
REF  9 LASl  231  09,2523  59  ll9  1 T 
REF  19  last  235  09,2529  50  127  0 1 


AF 

ZERO 

NDEX 

INREL 

S 

NDEX 

I/ERBREG 

ZERO 

X,  Y,  Z REG. 

InREL 

S 

XRE6LP  -2 

S 

NDEX 

CODE 

INREL 

ZERO 

pertinent  dec  COMP  BIT 

REF  17  LASl  233 
ref  8 LASl  232 
REF  1 

REF  9 LASf  235 
REF  20  LAST  235 
REF  1 

REF  2 LASl  228 
REF  2 LASl  228 
REF  21  LAST  235 
REF  2 LASl  239 
REF  13  LASl  239 
REF  2 LAST  230 
REF  20  LASl  231 
REF  19  LASl  235 
REF  3 LAST  235 
REF  22  LASl  235 
REF  2 LAST  232 
REF  15  LAST  235 
REF  97  LASl  232 


09,2525 

9 7/97 

7 0271 

0 

1 

C5 

09 ,2523 

MASK 

09,252? 

7 2356 

1 

MASK 

09.2530 

09.2531 

59  971 

1 

TS 

50  127 

0 

INDEX 

09,2532 

3 2396 

1 

CAF 

09,2533 

59  I33 

0 3217 

1 

IS 

09,2539 

0 

TC 

09,2533 

50  127 

0 

5BLANK1 

INDEX 

09,2533 

3 2351 

1 

CAF 

09 ,253? 

59  270 

0 

TS 

09,2590 

0 2357 

1 

1C 

09,2591 

9 7 /59 

1 

cs 

09 ,2599 

2 6 270 

0 

ADS 

09,2593 

0 2357 

1 

TC 

09,2599 

50  127 

0 

INDEX 

09,2595 

3 9319 

0 

CAF 

09,2593 

59  270 

0 

TS 

09,2597 

0 0001 

0 

TC 

09,2550 

OOOI6 

0 

SINBLANK 

OCT 

09.2551 

09.2552 

0pOO5 

00009 

1 

0 

OCT 

OCT 

BIT7 

DtCBRNCh 

BKNCHCON 

DLCRRNCH 

INREL 

SINBLANK  -2 
COUNT 
DSPIN 
INREL 

DOUBLK  -2 
DSPCOUNT 
2BLANK 
TWO 

DSPCOUNT 

2bLANI9 

INREL 

RlDl  -2 

DSPCOUNT 

L 

16 

5 

9 


PROTECT  OTHERS 
ZERO  LOW  2 BITS. 


BLANK  ISOLATED  rHAR  SEPARATELY 


SET  DSPCOUNT  TO  LEFT  MOST  DSP  NjMBER 
OF  REG.  JUST  BLaNKED 

DEC  19 


09,2553 

09,2559 

09,2553 


OOD15  0 DOUBLK 
00011  1 
OOU03  1 


OCT 

ocr 

OCT 


15  dec  13 

11  DEC  9 

3 


09,2556  77/79  0 BRNCHCON  OCT  77779 


R0710  23LAN<  blanks  TWO  CHAR.  PLAC^  DSP  NUMBER  oF  LeFt  CHAR  OF  THE  PAIR  INTO 
R0711  DSPCOJNl.  THIS  number  IS  LeF't  1 M DsPCoUNT 
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L 

PINBaLL 

GaMe 

buttons  and  Llo 

HI  S 

0712 

REF 

16 

LAST 

235 

09,255  ? 

3 0270 

c f f I 1 

1 

23LANK 

CA 

DSPCOUNT 

0713 

REF 

10 

LAST 

217 

09 ,256® 

5 9 F^2 1 

0 

T S 

SR 

071A 

REF 

1 

09,2561 

9 2372 

1 

CS 

BLANKCON 

0715 

09 , 2 562 

0 0009 

0 

INF)  I NT 

0716 

REF 

11 

LAST 

236 

09,2563 

50  O21 

1 

INDEX 

SR 

0717 

REF 

30 

LAST 

233 

09 ,256^ 

56  313 

0 

XCH 

DSPTAB 

0718 

09 ,2563 

0 OOO6 

1 

EXTEND 

0719 

09,256fc 

6 2370 

1 

3ZMF 

+ 2 

0720 

REF 

5 

last 

93 

09,2567 

29  307 

0 

INCR 

NOUT 

0721 

09,2570 

0 0O03 

1 

RELINT 

0722 

REF 

11 

LAST 

235 

09,2571 

0 0002 

0 

1C 

Q 

0723 

09,257K 

09000 

0 

BLANKCON 

OCT 

9000 
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USER'S  OWN  PaG(:  no*  1^ 


IF  OLD  contents  NOUT  OK 
IF  OLD  CONTENTS  +,  +1  TO  NOUt 
IF  -,NOUT  OK 


^8895^A  YJL  SYSILM  FOR  AGC:  NEW  PR0GR1\V|  sHePATIN  3Y  EYLeS 
L pinball  GaML  BUTlONS  AiMD  Ll3HiV5 

P072A  enter  pass  c IS  THE  E>^£CUte  FJNCTiON,  HIGHER  ORDER  ENTERS  ARp  TO  LOAD 

R0725  data,  the  SIGN  OF  ReDRET  DeTeR'^INLS  tHE  PASS,  + FDR  PASS  o.-  FOR  HIGHER 

R0726  PASSES. 


Ro727  machine  ^ADR  TO  Be  SPeCIFIeD  (MCrPS)-  NOUNS  DeSIRe  an  pCADR  TO  Bp  LOADeD 
R0728  i/JHEN  jSED  wITH  LOAD  VERBS,  MONITOR  VERBS,  OR  DISpLAy  VERBS  (EXCEPT 

R0729  verb  = i-IXED  memory  DISPLAY,  VHICH  REQUIRES  AN  FCADR). 


0730  05*2000  SETlOC  22000 


0731 

REF 

1 

05 ,2OO0 

0 

3344 

1 

NVSUBB 

<■  rr  Mi  f.yi 

TC 

NVSUBl 

0732 

0733 

R pF 
REF 

2 LAS  r 6 7 

1 

05 .2001 

05.2002 

1 

0 

3AO3 

2P63 

1 

0 

USr  MM 
LDADLVl 

TCF 

TC 

DsPMM 1 
LOADLV 

A073A 


0735 

0736 

0737 

0738 

0739 
P740 
07A1 
07A2 
07A3 
07A4 


REF  58  LAST  235  o5 

REF  8 LASr  23A  05 

REF  2 LAST  231  05 

REF  2 LAST  231  05 

REF  A LAST  23A  05 

REF  1 05 

REF  2 LASl  237  05 

05 

REF  11  LaSI  232  05 

REF  10  last  235  05 


2003  3 7Tbl  o ENTER 

200A  5A  306  0 

2005  3 4‘*7A  1 

2006  54  T26  0 

200?  10  304  1 

2010  0 2031  1 

2011  0 2O3I  1 

2012  0 2013  1 

2013  3 6301  0 

2OIA  7 0271  1 


CAF  Zero 

TS  CLpASS 

CAF  ENDINST 

TS  ENTRET 

CCS  REQRET 

TC  ENTPASO 

TC  ENTPASO 

K +1 

CAF  THREE 

MASK  DeCbRNCH 


0745 

0746 

0747 

0748 

0749 

0750 

0751 

0752 

0753 

0754 

0755 


REF 


REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 


1,9  LAST  234  05*2015  10  000  0 CCS 

05,2016  0 2O2O  1 TC 

1 05,2017  0 2O24  0 TC 

U LASl  236  05,2020  10  270  0 CCS 

1 05,2021  0 2324  0 TC 

2 LAST  237  05,2022  0 2324  0 TC 

05,2023  0 2024  0 TC 

5 LASl  237  05,2O2A  4 0304  1 ACCbPTWD  CS 

6 LAST  237  05,2025  54  304  1 TS 

2 LAST  194  05,2026  0 4615  1 TC 

7 last  237  05,2027  0 0304  0 TC 


A 

+ 2 

ACCEPTWD 

DSPCOUNT 

GODSPALM 

GODSPALM 

+ 1 

ReQRFT 

REQRFT 

FLASHOFF 

REQRET 


0756  REF  3 LASl  237 


0126  ENTEXIT  = ENTRET 


0757 


05*2030  D0030  1 LOw'VeRB  OCT 


30 


0758 

REF 

59 

LAST 

237 

05,2031 

3 7 761 

0 

ENTPASO 

CAF 

0759 

REF 

11 

LAST 

237 

05,2032 

54  271 

1 

TS 

0760 

REF 

9 

LAST 

235 

05,2033 

4 0272 

1 

testvb 

CS 

ZERO 

DECBRNCH 

VeRBREG 
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USER'S  OiNN  page  NO.  19 


STANDARD  LEAD  InS.  DONT  MOVE, 


END  OF  standard  LEAD  INS, 


IF  +,  PASS  0 
IF  +,  PASS  0 
IF  -,  NOT  PASS  n 

IF  DEC,  ALARM  IE  LESS  THAN  5 CHaR  IN, 
BUT  LEAVE  REQRET  - AND  FLASH  ON,  SO 

operator  can  supply  missing  numerical 
characters  and  rONTlNUE. 

OCTAL.  ANY  NUMBr-R  OF  CHAR  OK, 

LESS  THAN  5 CHAk  DEC (DSPCOUNT  IS  +) 
LESS  than  5 CHAR  DEC (DSPCOUNT  IS  +) 

5 CHAR  IN  (DSPCfiUNT  IS  -) 

5 CHAR  IN  (DSPCnUNT  IS  -) 

SET  REQRET  t. 


LOWER  VERB  THAT  AVOIDS  NOUN  TEST 
NOUN  VERB  SUR  ENTERS  HERE 
IF  verb  is  30-77,  SKIP  NOUN  TEST 


^88954A  YJL  SYSTEM  FOK  AGC  ; NEW  Pi^qG^AM  SHePATIN  BY  EYLES 
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L 

PINBaLL 

GaM^  buttons  and  LI 

0761 

REF 

1 

05.203^ 

0762 

05 .2035 

0763 

REF 

1 

05.2036 

076A 

05.2037 

0765 

REf 

1 

05 .20AO 

0766 

REF 

3 

LASl  80 

05.2041 

0767 

REF 

1 

05.2042 

0768 

05 .2043 

0769 

05.2044 

0770 

REF 

1 

O5.204S 

0771 

REF 

1 

05.2046 

0772 

REF 

2 

last  238 

05.2047 

0773 

REF 

3 

LAST  237 

O5.205O 

077A 

REF 

1 

05.2051 

+IS 


6 2D3O 

0 

AD 

LOWyERB 

0 ODO6 

1 

EXTEND 

6 2116 

0 

3ZMF 

VERBFAN 

0 0DO6 

1 TESTNN 

EXTEND 

3 2D76 

1 

DCA 

LqDNNLOC 

52  D06 

0 

DXCH 

z 

50  130 

0 ■ 

INDEX 

MlXBR 

0 2Da3 

1 

TC 

+ 0 

0 2046 

1 

TC 

+ 2 

0 2176 

0 

TC 

mixnoun 

10  136 

1 

CCS 

nnadtem 

0 2ll4 

1 

TC 

VERBFAN  - 

0 2324 

0 2055 

0 

0 

TC 

TC 

GODSPALM 

reqadd 

0775  REF 

0776  REF 

0777  REF 

0778  REF 

0779  REF 

0780  REF 

0781  REF 

0782 

0783 

078A  REF 

0785  REF 

0786  REF 

0787  REF 

0788  REF 

0789  REF 

0790 

0791  REF 

0792  REF 

0793  REF 


1 

1 

1 

i?  LAST  232 
9 last  237 
3 LASr  237 
1 


2 Last  238 
1 

12  LAST  237 
A LASl  238 
1 
1 

2 las:  238 
A LAST  238 

3 Last  238 


05 

05 

*2052 

.2053 

24  310 
0 4510 

0 

1 

05 

.2054 

0 2102 

0 

05 

.2055 

3 7 T37 

0 

05 

.2056 

54  306 

0 

05 

.2057 

4 4474 

0 

05 

.2060 

6 0126 

1 

05 

.2061 

0 0OO6 

1 

05 

.2062 

1 2064 

0 

05 

.2063 

0 2100 

1 

05 

.2064 

0 2Z56 

1 

05 

.2065 

10  271 

1 

05 

.2066 

0 2324 

0 

05 

.2067 

56  276 

1 

05 

.2070 

0 4502 

1 

05 

.2071 

0 0006 

1 

05 

.2072 

3 2O76 

1 

05 

.2073 

52  006 

0 

05 

.2074 

0 2II6 

0 

REOADD 


INCR  NoUNCADR 

TC  SLTNAdD 

TC  INTMCTBS  +2 

CAF  BIT15 

TS  CLPA5S 

CS  ENDINST 

AD  ENTFXIT 

EXTEi'mD 
3ZF  +2 

TC  KmTMCTBS 

TC  REODATZ 

CCS  DECRRNCH 

TC  GODSPALM 

XCH  ZREG 

TC  SETNCADR 

EXTEND 

DCA  LoDNNLOC 

DXCH  Z 

TC  VERBFAN 


0794 

REF 

18 

Last 

0795 

C0795 

REF 

1 

0796 

0797 

REF 

84 

Las, 

0798 

rsf 

2 

LAST 

0799 

REF 

21 

last 

0800 

REF 

10 

last 

0801 
n Q n 0 

REF 

1 

UoU<: 

0803 

REF- 

4 

Last 

0804 

REF 

2 

Last 

0805 

REF 

19 

las  r 

0806 

REF- 

2 

last 

0807 

REF 

1 

237 

05.207:5 

05.2076 

05.2077 

229  05.2100 

238  05.2101 

211  05.2102 

237  05.2103 
n5.2lOA 
O5.21OS 

238  05.2106 

232  05.2107 

238  O5.211O 

238  05.2111 

05.21  12 


EO 

02O00  0 LODNNLOC 
A6D0O  0 

imz  0 neg5 

3 0lA6  1 INTMCTBS 

0 aP02  1 
A 7^52  1 
7 0272  1 
6 2D77  0 
0 0006  1 

1 2116  1 
3 AP20  1 
5A  270  0 
3 0310  0 

0 3222  0 


EBAN<=  DsPCOUNT 
2CADR  LODNNTAB 


OCT  77772 

CA  MPAC  +2 

TC  SETnCADR 

CS  BITa 

MASK  VERBREG 

AD  NEG5 

EXTEND 

3ZF  VERBFAN 

CAF  R3D1 

TS  DSPCOUNT 

CA  NuUNCADR 

TC  DSPOCTWD 


USER’S  OWN  PaGf  no.  20 
30-vB 

VERB  G/E  30 
VERB  L/  30 

SWITCH  BANKS  TO  NOUn  I ABLE  ReADiNG 
ROUTINE. 


NORMAL 

MIXED 

NORMAL 

NORMAL  IF  + 

NOT  IN  USE  IF  +0 

SPECIFY  Machine  cadr  if  - 

augment  machine  cadr  IF  -0 

ECAdR  from  NOuNfAqR.  sETs  EB.  NOUNAdD. 

SET  CLPASS  FOR  pASSo  ONLY 

TEST  IF  reached  HeRf  FRUM  INTERNAL  OR 
FROM  external 

external  MACH  C/lDR  TO  BE  SPECIFIED 

EXTERNAL  MACH  CADR  TO  BE  SPECIFIED 

ALARM  IF  DECIMAl  USfD  FOR  MCTDS 

OCTAL  USED  On 

ECADR  INTO  NOUNCADR.  SET  EB , NOJNADD, 

SWITCH  BANKS  TO  NOUn  TABLE  READING 
ROUTINE. 


INTERNAL  MACH  CaDR  TO  BE  SPECIFIED. 
ECADr  into  nOUncADR.  set  EB.  nO  inADD. 
NVSUB  CALL  LfFT  CaDR  IN  MPAC+2  FOR  MACH 
CADR  TO  BE  SPFCtFIED. 
masking  makes  VFU5  I OOK  LIKE  VBo5. 

VB  = 05  OR  15.  no  NOT  DISPLAY  CaDR. 

VB  NOT  = 05  OK  l5.  DISPLAY  CADR. 
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L pinball  gamf  buttons  and  lights 


0808  ref  5 Easy  236  05,2113  0 2U6  0 


TC 


0809  REF  AA 

0810  REF  3 

0811  REF  1 

0812  REF  11 

0813  REF  150 

081A  REF  A5 

0815 

0816  REF  1 

0817  REF  85 

0818  REF  3 

0819  REF  86 

0820  REF  1 

0821  REF  5 

0822 

0823  REF  1 

0824  REF  12 

0825  REF  1 

0826  REF  6 

0827  REF  5 

0828  REF  1 

0829  REF  1 

0830  REF  1 

0831  REF  1 

0832  REF  1 

0833  REF  1 

0834  REF  1 

0835  REF  1 

0836  REF  1 

0837  REF  2 

0838  REF  3 

0839  REF  4 

0840  REF  5 

0841  REF  6 

0842  REF  7 

0843  REF  6 

0844  REF  1 

0845  REF  1 

0846  REF  1 

0847  REF  1 

0848  REF  1 

0849  REF  7 

0850  REF  1 

A0851 

0852  REF  1 

0853  REF  1 

0854  REF  1 


LASl  234  05 

LAS!  238  05 

05 

Last  236  05 

LASl  237  05 

LASl  239  05 

05 
05 

Last  238  05 

LASl  228  05 

LAS;  239  05 

05 

LASl  207  05 

05 

05 

last  239  05 

05 

LaSI  239  05 

La  S i ti38  05 

05 

05 

05 

05 

05 

05 

05 

05 

05 

LaSi  239  05 

LASl  239  05 

LAST  239  05 

Last  239  05 

LAS)  239  05 

last  239  05 

Last  239  05 

05 

05 

05 

05 

05 

LaSi  239  05 

05 

05 

05 

05 


2UA  6 7T55  1 
2115  0 4502  1 

2115  4 2i31  1 

2117  6 0<i72  0 

2120  10  000  0 

2121  6 7T55  1 

2122  0 2I24  1 

2123  0 2^-33  1 

2129  54  i44  1 

2125  0 4555  0 

2125  56  I44  0 

2127  6 2^-32  0 

2130  0 5246  1 

2131  OOO4O  0 

2132  22OOO  1 

2133  50  272  0 

2134  3 2J-36  1 

2135  0 5246  1 

2136  12324  1 

2137  12340  0 

2140  12345  0 

2141  12352  0 

2142  12333  1 

2143  12326  0 

2144  12445  1 

2145  10T22  1 

2146  113150 

2147  I3O77  0 

2150  13O77  0 

2151  13O77  0 

2152  I3O77  0 

2153  I3O77  0 

2154  13O77  0 

2155  I3O77  0 

2155  12324  1 

2157  12520  0 

216°  12531  0 

2161  12546  0 

2162  12^72  1 

2163  12535  1 

2164  12324  1 

2165  I321A  1 

2165  133U  0 

2167  13340  1 

217O  11343  0 


AD 

TC 

VLRbFAN  CS 
AD 
CCS 
AD 
TC 
TC 
TS 
TC 
XCFi 
AD 
TC 

LST2CON  OCT 

LST2CADR  CADR 

vbfandir  index 

CAF 

TC 

VERBTAB  CADR 
CAdR 
CADR 
CADR 
CAUR 
CADR 
CADR 
CADR 
CADR 
CADR 
CADR 
CADR 
CADR 
CADR 
CADR 
CADR 
CADR 
CADR 
CADR 
CADR 

CADR 

CADR 

CADR 

CADR 

REQLXLOC  CADR 
CADR 
CADR 
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VERBFAN 

ONE 

SETNCADR 

LST2CON 

VERRREG 

A 

ONE 

+ 2 

YfaFANDIR 

MPAC 

RELDSP 

MPAC 

LST2CADR 

BANKJUMP 

40 

LST2FAN 

VtRBREG 

VERBTAB 

BANKJUMP 

GODSPALM 

DSPA 

DSPB 

DSPC 

DbPAB 

DSPABC 

DECDSP 

DSPDPDEC 

DSPALARM 

MONITOR 

MONITOR 

MONITOR 

MONITOR 

monitor 

MONITOR 

MONITOR 

GuDSPALM 

AlOAD 

BLOAD 

CLOAD 

AbLOAD 

AbCLOAD 

GODSPALM 

DsPFMEM 

VBRQEXEC 

VBROWAIT 

BUMP 


USER'S  OWN  PAGf  no.  21 


ECADR  INTO  NOUNfADR.  5EIS  EB,  NoUNADD, 

VERB-LST2CON 

VERB  G/  LST2C0N 

VERB  L/  LST2C0N 

release  display  SYST 

ALSO  TURN  OFF  RfLeASE  DISPLAY  SYST  LIGHT 
FIRST  LST2  VERB 


VDOO  ILLEGAL 

VBOl  display  Oct  cOmP  1 (Rl) 

VB02  DISPLAY  nCi  COmP  2 (Rl) 

VB03  DISPLAY  OCt  COMP  3 (Rl) 

VB04  DISPLAY  CjCt  COmP  1,2  (Rl,R2) 

VBO5  DISPLAY  OCt  COMP  1,2,3  (R1,R2,R3) 

VB06  DECIMAL  DISPLAY 

VB07  DP  decimal  DISPLAY  (Rl,R2) 

VBIO  SPARE 

VBll  MONITOR  OCt  COmP  1 (Rl) 

VB12  MONITOR  OCt  COMP  2 (Rl) 

VB13  MONIIOR  OCT  COMP  3 (Rl) 

VB14  MONITOR  OCT  COMP  1,2  (Rl,R2) 

VB15  MONITOR  OCT  COMP  1,2,3  (R1,R2,R3) 

VB16  MONITOR  DECIMAL 

VB17  MONITOR  DP  DEC  (R1,R2) 

VB20  spare 

VB21  LOAD  COMP  1 (Rl ) 

VB22  load  Comp  ? iRz) 

VB23  LOAD  COMP  3 (R3) 

VB24  LOAD  COMP  1,2  (R1,R2) 

VB25  LOAD  COmp  1,2,3  (R1,R2,R3) 

VB26  SPARE 

VB27  FIXED  MFMOrY  DISPLAY 

THE  FOLLOWING  VfRBS  MAKE  NO  NOUN  TEST 

VB30  request  FXfCUTIVE 

VB31  request  WAITLIST 

VB32  C(R2)  INFO  R3,  ClRl)  INTO  S2 


48895‘+A  YJL  S'iSIEM  f OK  AGC:  NEW  PROCiRAM  sHtPAlIlM  3Y  EVLLS 


0855 

0856 

0857 

0858 

0859 


PINBaLL  GAMt  BUTToNb  AND  LlGHJb 

REF  1 05*2171  11^26  0 

REF  1 05,2172  11333  1 

REF  1 05»2173  13^19  1 

REF  2 last  81  05,2I7A  02OO0  0 

REF  1 05,2175  13267  0 ENDVBFAN 


CADR 

CADR 

CADR 

cadr 

CADR 


R0860  The  LiSi2  VLREFAN  Is  located  1\  the  extended  verb  bank 


dec  U,  I966  (MAIN)  PAGE  2aO 


user's  own  Page  no*  22 

VBPROC 

vbtfrm 

VB33  proceed  without  DATA 

VB3A  terminate  ( URRfNT  TEST  OR  1 OAD  ReQ 

VBTSTLT5 

slApi 

MMCHANG 

VB35  TEST  LIGHTf 

VB36  fresh  STAR! 

VB37  CHANGE  MAJnR  MODE 

^e895AA  YJL  SY5  iEM  F Of-  AGC:  NEW  PROORA.Vf  SHePATIN  BY  EVLES 


dec  1:^,  1966  (MAIN)  PAGE 


L 

PO86I 

R0862 

R0863 

R0864 

0865 

0866 

0867 

0868 

0869 

0870 

0871 

0872 

0873 

0874 

0875 

0876 

0877 

0878 

0879 

0880 
0881 

A0882 

A0883 

0884 

0885 

0886 

0887 

0888 

0889 

0890 

0891 

0892 

0893 

0894 

0895 

0896 

0897 

0898 


R0899 

R0900 

R0901 

0902 

0903 

0904 


pinball  GaMh  buttons  and  LlGBiT5  USER'S  OwN  PAGE  NO.  23 

NMADTAB  contains  A ReLAIIYE  AJDRePD,  IDADDReL(1N  LOW  lO  BITS),  REFERRING 
TO  WHERE  3 CONSECUTIVE  ADDRESSES  Are  STOReD  (IN  IOADDtAB), 

MIXNOJN  GETS  DATA  AND  STORED  IN  M I XT  EMP  , 1 , -.2  . IT  SETS  NOUNADD  FOR 
vflXT  LMf  . 


REF  2 LAS’;  238  05.2)7^  10  136  1 MlXNOUN  CCS  NNADTEM 

05,2)77  0 2203  1 TC  +4  + IN  USE 

REF  8 LAST  239  05,2200  0 2^24  0 TC  GODSPALM  +0  NOT  IN  USF 


05,2201 

REF 

REF 

6 

13 

LAST 

LAST 

aOO 

239 

05.2203 

05.2204 

REF 

6 

LAS', 

239 

05 .2205 

05.2206 

05.2207 

REF 

REF 

REF 

REF 

REF 

REF 

2 1 

1 

1 

1 

2 

1 

LAST 

235 

05 . 22 10 

05.2211 
L'5,2212 

last 

241 

05,2213 

05,221A 

05,2215 

REF 

1 

05 ,22  16 

REF  1 05 

REF  1 05 

REF  1 (J5 

REF  2 Las  I <^41  05 

REF  3 last  241  05 

REF  4 LAST  93  C'5 

REF  1 05 


221T 

2220 

2221 

2222 
2223 
222A 
222S 


0 2203  1 
0 2203  1 
4 6276  0 

6 0272  0 

0 OOO6  1 
6 2210  0 
0 2116  0 
3 7(54  0 

54  107  0 MlXNNl 

6 2235  1 

54  135  1 
50  107  1 
3 0140  1 
54  112  1 


TC  +2 

IC  ♦! 

CS  SIX 

AD  VER8REG 

EXTEND 
3ZMF  *Z 

TC  VERBFAN 

CAF  TwO 

TS  DECOUNT 

AD  MIXAD 

TS  NOUNADD 

INDEX  DECOUNT 

CA  IDADITEM 

IS  NOUNTEM 


0 2(21 

1 

TC 

5FRUTMIX 

0 2236 

1 

TC 

DPTEST 

0 2223 

0 

TC 

MIXNN2 

24  112 

0 

1 NCR 

NOUNTEM 

3 0112 

0 M1XNN2 

CA 

NOUNTEM 

7 4552 
0 4512 

0 

0 

MASK 

TC 

LOWl  1 

setfbank 

- IN  USE 
-0  IN  USE 


VERB  L/E  6 

AVOID  MlXNOUN  SwAP  IF  VB  NOT  = DISPLAY 


SET  NOUNADD  TO  F.IXTEMP  * K 

GET  IDADDTAb  fNtRY  FOR  COMPONENT  K 

OF  NOUN. 

TEST  For  dp  (FOR  OCT  DISPLAY).  IF  SO,  Ge I 
MINOR  PART  ONl  Y. 

GET  SF  ROUT  NUMrER  IN  A 

NO  DP 

DP  GET  MINOR  PART 

ESUBK  (NO  DP)  OR  (ESUBK)+1  FOR  DP 
SET  EBANK,  LEAVf  EADRES  IN  A, 


REF  151  last  239 

REF  2 LAST  241 

REF  3 LAST  c41 

REF  1 

REF  7 LAST  241 


05,2225  50  DOO  1 

05,222'(  3 0000  1 

('5,2230  53  135  0 

05.2231  56  Ooo  1 

05.2232  10  107  0 

05.2233  0 2211  1 

05,223A  0 2116  0 


INDEX  A 
CA  0 
INDEX  NOUNADD 
XCH  0 
CCS  DECOUNT 
TC  MlXNNl 

TC  VERBFAN 


PICK  UP  C(ESUBK)  NOT  DP 

OR  C(  (ESUBK)-.!)  FOR  DP  MINOR  PaRT 

STORE  IN  MIXTFM  + K 


REF  3 LAST  234  05,2235  0 0ll5  1 MlXAD  TC  MIXTEMP 


DPTLSl  enter  with  SF  rOuT  njJMBEK  In  A, 
returns  to  L-.1  IF  No  DP. 

REiURNS  TO  L+2  IF  DR. 

REF  152  last  241  05,2236  50  Ooo  1 DPTEST  INDEX  A 

05,223(  1 2240  1 ICF  ■.  1 

REF  78  LAST  236  05,2240  0 0002  0 TC  0 OCTAL  ONLY  NO  nP 


48895‘tA 


L 

0905 

0906 

0907 

0908 

0909 

0910 

0911 

0912 

0913 


09lA 

0915 

0916 

0917 

0918 

0919 

0920 

0921 

0922 

0923 
092*^ 

0925 

0926 

0927 

0928 

0929 

0930 

0931 

Ro932 

R0933 


093''* 

0935 

0936 

0937 

0938 

0939 

0940 

0941 

0942 

0943 

0944 

0945 

0946 

0947 


YJL  SYSIEI'I  FOR  AGC:  NtW  PROGRAM  SMtPATIN  BY  EYLtf. 


dec  1h,  I966  (MAIN)  PAGE  24^ 


pinball  Game  buttons  and  lights 


user's  own  page  no. 


REF  79  Last  241  05.2241 

REF  80  LAST  242  05.2242 

REF  81  last  242  05.2243 

REF  1 05.2244 

REF  2 LASi  242  05.224S 

REF  62  last  242  05.2246 

REF  3 Last  242  05.224Y 

REF  63  last  242  05.2250 

05.2251 


0 0002  0 TC 

0 0002  0 TC 

0 0002  0 TC 

1 2250  0 TCF 

1 2250  0 TCF 

0 0002  0 TC 

1 2250  0 TCF 

50  002  0 DPTESTl  INDEX 

0 oOOl  0 TC 


Q FRACT  NO  DP 

0 DEG  NO  DP 

0 ARITH  NO  DP 

DPTFSTl  DPIOUT 

DPTESTl  DP20UT 

Q OPDEG  NO  DP 

DPTFSTl  DP3OUT 

Q 

1 RETURN  TO  L+2 


REF  3 last  235  05.2252  3 45i6  1 ReQDATX  CAF  RlDl 

REF  1 05.2253  1 2257  1 TCF  REqCOM 


REF  2 last  232 
REF  2 LAS  I 242 
REF  3 last  238 
REF  20  last  238 
REF  84  LASi  242 
REF  8 LAS!  237 
REF  19  LAST  234 
REF  2 last  234 
REF  4 last  207 
REF  4 LAST  238 
REF  2 LAST  238 

REF  1 

REF  faO  LAST  237 
REF  4 LAST  153 
REF  3 last  242 


05.225^  3 4517  0 

05.2255  1 2457  1 

05.2256  3 4520  1 

05.2257  54  <^70  0 

05.2260  A 0O02  1 

05.2261  54  304  1 

05.2262  0 5224  0 

05.2263  10514  0 

05.226^  0 4611  0 

05.2265  4 4474  0 

05.2266  6 0126  1 

05.2267  0 0006  1 

05.2270  1 2273  1 

05.2271  4 7761  1 

05.2272  54  327  0 

05.2273  0 Ol26  1 


REQUATY  CAF  R2D1 

TCF  REQCOM 

REQDATZ  CAF  R3D1 

REQCOM  TS  DSPCOUNT 

CS  Q 

TS  REQRET 

TC  BANKCALL 

CADR  5BLANK 

TC  FLASHON 

CS  ENDINST 

AD  ENTFXIT 

EXTEND 

3ZF  ENDRQDAT  ENTEXIT  = ENDOFjOB,  EXTERNALLY  INITIATED 

CS  Zero  ENTEXIT  NUT  ENDoFJOB.  NVSUB  INITIATED 

TS  CaDRSTOR  NVSUB  INITIATED  LOAD,  SET  CADRSIOR  TO  -0 

ENDRQDAT  TC  ENTEXIT 


IE  NVSUE  initiated  LOAD.  SeT  CADR^tOR  TO  -0  TO  TeLL  ReCALtSt  TO  ReLeASe 
display  if  ENdIULL  WAS  NOT  USED.  'NECFSSARY  FOR  dATAwAIT) 


REF  4 Last  231 

REF  85  Last  242 
REF  1 

REF  3 last  238 
REF  5 last  238 
REF  3 last  241 
REF  46  LAST  239 
REF  1 

REF  2 last  242 
REF  3 LAST  242 
REF  4 last  239 
REF  2 LAST  231 
REF  21  LASi  242 


O5.227A  54  273  0 

05.2275  55  002  0 UPDATNN 

05.2276  54  107  0 

05.2277  0 0OO6  1 

05.2300  3 2076  1 

05.2301  52  006  0 

05.2302  10  136  1 

05.2303  6 7755  1 

05.2304  1 2307  0 

05.2305  1 2310  0 

05.2306  1 2310  0 

05.2307  0 4502  1 PJTADD 

05.2310  3 4555  0 

05.2311  54  2 70  0 


TS 


nounreg 


XCH  Q 

TS  UPDATRET 

EXTEND 

OCA  LODNNLOC 

OXCH  Z 

CCS  nnadtem 

AD  ONE 

TCF  PUTADD 

TCF  PUTADD  +1 

TCF  PUTADD  +1 

TC  SeTNCADR 

CAF  NDl 

TS  DSPCOUNT 


SWITCH  banks  to  noun  TABLE  READING 
ROUTINE. 

NORMAL 

MCTBS  DONT  CHAr.GE  NOUNADD 
MCTBI  DONT  CHANGE  NOUNADD 
ECADR  INTO  NOUNrADR.  SETS  EB,  NoUNADD. 


48895‘^A  YJL  5YSIEH  f-OR  AGC;  NEW  PROG^JAM  S^EPATIN  3Y  EYLES 


L PINBALL  GAME  BUTTONS  mND  LIGHTS 


09A8  REF  5 last  292  05,23l2  3 0^73  1 CA 

0999  REF  1 05*2313  1 2322  1 TCF 

0950  REF  19  LAST  291  05.231**  59  272  1 TS 

0951  REF  86  LAST  292  05,2315  55  ^02  0 UPDATVB  XCH 

0952  REF  2 LAST  292  05,231^  59  107  0 TS 

0953  REF  3 LAST  230  05,2317  3 9559  1 CAF 

0959  REF  22  LASl  292  05,2320  59  270  0 TS 

0955  REF  15  LASr  293  05,2321  3 0272  0 CA 

0956  REF  1 05,2322  0 3255  0 UpOATl  TC 

0957  REF  3 LAST  293  05,2323  0 OIO7  1 TC 


0958  REF  l5  LAST  22^ 

0959  REF  2 LASl  239 


05,232^  0 5293  1 GqDSPALM  TC 

05,2325  11315  0 CADR 


DEC  U,  1966  (MAIN)  PAGE  293 


USER'S  OkJN  PAGf  no. 


NOUNREG 

UPDATl 


VERRREG 

Q 

UPDATRET 

VDl 

DSPCOUNT 

VERBREG 

DSP2BIT 

UPDATRET 


POSTJUMP 

DSPALARM 


25 


488954A 


L 

P0960 

R0961 

Ro962 

R0963 

R0964 

R0965 

R0966 

R0967 

R0968 

R0969 

R0970 

R0971 

R0972 

R0973 

R0974 

R0975 

R0976 

R0977 

R0978 

Ro979 

R0980 

R0981 

R09B2 

R0983 

R0984 

R0985 

R0986 

R0987 

R0988 

R0989 

R0990 


R0991 

R0992 

R0993 

R0994 

R0995 


YJL  bVSiEM  FOR  AGC;  NEW  PRO'^RA'-I  SHePatIN  BY  EYLES 
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PINBalL  GaMe  buttons  and  L154TS  USER'S  OWN  PaG|:  NO.  26 

NOUN  TABLES 

NOUN  CODe  L/  s5*  NORMAL  CASE,  nIO'^N  CODE  G/E  55,  MIXED  NOUN  CASE. 

FOR  NoRtiAL  CASE*  NNADtAB  CoNtAINS  ONe  eCADR  FoR  EACH  NoUN. 

♦ 0 INDICATES  NOUN  NOT  USeU.  - eI^TRY  INDICATES  MACHINE  CADR(E  OR  F)  TO 

Be  specified.  -1  indicates  CraNNE*-  10  Be  specified.  -0  indicates  augment 
OF  last  machine  cadr  supplied, 

FOR  MlXcD  CaSe,  NNADTAB  CONTAINS  ONE  INDIRECT  ADoReSS ( I DADDReL ) IN  LOW 

10  bits,  and  the  component  Oboe  number  in  the  high  s bits, 

NNtYPtAB  is  a packed  TABLf  of  the  form  mmmmmnnnnnppppp. 

FOR  the  NORvAl  case*  M-S  ARE  THE  COMPONENT  CODE  nJMBER, 

N-s  are  he  BF  routine  code  number. 

P-S  are  the  ^f  constant  code  number. 

mixed  CASt,M_S  ARE  THE  SF  CO\|5TANl3  CODE  NUMBER  3 COMPONENT  CASE 

*,-S  ARE  the  SF  CONST  AN  I 2 CODE  NUMBER 

P-S  ARE  the  SF  COnstANII  CoDE  NUMBER 

N.-S  ARE  THE  SF  CONST  AN!  2 CODE  NUMBER  2 COMPONENT  CASE 

P-S  ARE  the  SF  COnSTANII  CODE  NUMBER 

P-S  ARE  the  SF  CONST  AN  I 1 CODE  NUMBER  1 COMPONENT  CASE 

there  is  also  an  indirect  address  TABLe(IDADDTAB)  For  mixed  CASE  ONLY, 
each  entry  contains  one  ecaDr,  idaddrel  is  the  Relative  address  of 

the  first  of  these  entries. 

there  is  one  entry  in  this  TASLE  •'OR  each  component  of  a mixed  noun 
they  are  listed  in  order  OF  ascending  k. 

there  is  ALSO  A SCALE  FACtOR  ROUTINE  NUMB£R  TABEpI  RUtMXTAB  ) FOR  MIXED 
CASE  ONLY,  there  IS  ONE  ENTRy  P£R  MIXED  NOUN,  THf  FORM  IS, 

UL00QRRRRRSS5SS 

0-5  are  the  SF  routine  3 CODe  NUMBER  3 COMPONENT  CASE 

R-5  ARE  THE  SF  ROUTINE  2 CODe  NJMBeR 

s-s  are  the  SF  routine  1 code  number 

R-5  ARE  THE  SF  ROUTINE  2 CODe  NUMBER  z COMPONENT  CASE 

S-S  ARE  THE  SF  ROUTINE  1 CODe  NUMBER 


IN  OCIAL  display  AND  LoAD  (OCI  OR  DEC)  VERBS*  EXCLUDE  USE  qF  VERBS  WHOSE 
component  number  is  GReATfR  than  IHe  number  of  COMPONENTS  IN  NOUN, 

ALL  machine  address  TO  BE  SPECIFIED  NOUNS  ARE  1 COMPONENT. 

ONLY  EXCePTIOiN  IS  NOUN  oi  TU  AL^O^  OCtAL  DISPLAYS  AND  LOADS  OF 
AN  UNCOhTOLLED  NUMBER  OF  COMPONENIS, 


R0996  H MJLTi-CoVPoNEnT  LOAD  VFRBs*  NO  MIXING  qF  qCTaL  AND  DECIMAL  DATA 

R0997  COMPDNEI.T  WORDS  IS  ALLuWld,  A.ARM  IF  VIOLATION, 


48895^A  YJL  SYSltM  ^0R  AGt . MEW  PROGRt^.vi  ShEPATIM  BY  EYLES 


DEC  1^,  I966  (MAIM)  PAGE  2Ab 


L 

R0998 

R0999 


pinball  game  buttons  and  lights  USER'S  OWN  PaGf  no.  27 

IN  Decimal  loads  of  data,  5 numerical  characters  must  be  keyed  in 
before  each  enter,  if  mot,  alarm. 


YJL  SYSltM  FOR  AGC;  Ntkv  PROGRA^i  SHePATIN  BY  EYLES 


L PINBaLL  GaMe  buttons  and  LIGTiIS 


Piooo  DISPLAY  Verbs 

1001  REF  22  LAS!  2A1  05 

1002  REF  1 05 

1003  REF  3 last  2A1  05 

lOOA  05 

1005  REF  10  LAST  192  05 

1006  REF  A7  LAST  2A2  05 

1007  RBF  2 LAST  2A6  05 

1008  REF  A LAST  2A6  05 

1009  05 

1010  REF  11  LAST  2A6  05 

1011  REF  1 05 

1012  REF  5 last  2A6  05 

1013  05 


2329  A 7f5A  1 DSPABC  CS 

232Y  0 2^76  1 TC 

233B  50  i35  0 INDEX 

233I  A 0002  1 CS 

233-^  5b  i-22  0 XCH 

2333  A 7^55  0 DSPAB  CS 

233A  0 2076  1 TC 

233B  50  I35  0 index 

2339  A 0001  1 CS 

233Y  5b  I21  0 XCH 

23a0  U 2A20  0 DSPA  TC 

23AI  50  I35  0 INDEX 

23A3  a OOOO  0 CS 


lOlA  REF 

1015  REF 

1016  REF 

1017  REF 

1018  REF 

1019 

1020  REF 

1021  REF 

1022  REF 

1023  REF 
102A 

1025  REF 

1026  REF 

1027  REF 

1028  REF 

1029  REF 

1030  REF 

1031 

1032  REF 

1033  REF 
103A  REF 

1035  REF 

1036  REF 

1037  REF 

1038  REF 

1039  REF 

ioao  ref 


12 

LAST 

2A6 

1 

AB 

LAST 

2A6 

3 

LAST 

2A6 

6 

LAST 

2A6 

1 

2 3 

LAST 

2 A6 

A 

LAST 

2A6 

7 

LAST 

2A6 

2 

LAST 

2A6 

2A 

LAST 

2A6 

1 6 

LAST 

2A3 

153 

LAST 

2A1 

1 

A 

LAST 

2A2 

1 

15A 

LAST 

2A6 

A 

LAST 

2A2 

23 

LAST 

2A3 

2 

LAST 

2A6 

13 

LAST 

2A6 

2 

LAST 

238 

3 

LAST 

2A6 

2 

LAST 

2A6 

05»23A3  5b  120  1 DSPCOMl  XCH 

05»23AA  0 2^57  1 TC 

05,23AB  a 7^55  0 DSPB  CS 

05,23Ab  0 2^76  1 TC 

05,23A/  50  T35  0 index 

05.2350  A OUOl  1 CS 

05.2351  0 2BA3  1 TC 

05.2352  A 7^5A  1 DSPC  CS 

05.2353  0 2^76  1 TC 

O5.235A  50  TOS  0 INDEX 

05.2355  A 0002  1 CS 

05.2356  0 23A3  1 TC 

05.2357  A 7^5A  1 D5PCOM2  CS 

05.2360  6 0272  0 AD 

05.2361  10  000  0 CCS 

05.2362  0 2365  0 TC 

05.2363  0 0126  1 TC 

05.236A  0 2365  0 TC 

05.2365  5A  112  1 D5PC0M3  TS 

05.2366  50  000  1 INDEX 

05,236?  3 A516  1 CAF 

05.2370  5A  270  0 TS 

05.2371  50  112  0 INDEX 

05*2372  A OI2O  0 CS 

05,2373  0 3222  0 TC 

05,237A  5b  112  0 XCH 

05.2375  0 2361  1 TC 


RlOAl 

R10A2 

R10A3 

lOAA 

10A5 

10A6 

10A7 

10A8 


comptest  alarms  if  Component  mjmblr  of  verb (load  or  oct 
greater  than  the  highest  COMpoNENI  number  of  noun. 


NOUN 

01 

IS  EXCLUDED 

FROM  TEBT 

, 

REF- 

1 

05,2376 

5 A 113 

0 

COMPTEST 

TS 

REF 

REF 

67 

A9 

LAST 

LAST 

2A3 

2A6 

05.2377 

05,2A00 

22  U02 

A 7?55 

0 

COMPTST 1 

lxch 

CS 

0 

REF 

6 

LAST 

2A3 

05,2a01 

6 0273 

1 

AD 

05 . 2a02 

0 0U06 

1 

EXTEND 

TWO 

COMPTEST 

NOUNADD 

2 

BUF  +2 

ONE 

COMPTEST 

NOUNADD 

1 

BUF  Al 

TSTFORDP 
NOUNADD 
0 

BUF 

DSPC0M2 

ONE 

COMPTEST 

NOUNADD 

1 

DSPCOMl 

TWO 

COMPTEST 

NOUNADD 

2 

DSPCOMl 

Two 

verbreg 

A 

OSPCOM3 
ENTEXI T 
+ 1 

DISTFM 

A 

RlDl 

DSPCOUNT 

DISTEM 

BUF 

DSPOCTWD 
DISTEM 
DSPC0M2  +2 

DISPLAY)  IS 


SFTFMPl 

0 

ONE 

NOUNREG 


DEC  13,  1966  (MAIN)  PAGE  2A6 


USER'S  OWN  Page  no. 


A B C AB  ABf 

-1  -0  a1  a2  +3  IN  A 

+0  +0  +0  .1  +2  IN  A AFTER  CCS 


+0,+l,+2  INTO  DiSTEM 


VERB  COMP 


yjl  system  toe  agc:  neiy  program  smepatin  by  eyles 


L PIMeAll  game  buttons  ANd  lI 


1049 

1050 

1051 

REF 

REF 

REF 

1 

2 

1 

LAST 

238 

05.2403 

05.2404 

05.2405 

1052 

REF 

155 

LAST 

246 

05,2406 

1053 

05,2407 

1054 

REF- 

3 

LAST 

93 

C5,24l0 

1055 

REF 

1 

C 5 , 2 4 1 1 

1056 

REF- 

2 

LAST 

246 

05,2412 

1057 

REF 

156 

LAST 

247 

05,2413 

1058 

REF 

48 

LAST 

235 

0 5 , 2 4 1 A 

1059 

REF 

3 

LAST 

235 

05,2415 

1060 

REF 

9 

LAST 

241 

05,2419 

1061 

REF 

49 

LAST 

247 

05,2417 

iTS 


1 2^17 

0 

3ZF 

NDCMPTST 

50  130 

0 

INDEX 

MIXBR 

3 2442 

1 

CAF 

COMPICK 

5 0 OOO 

1 

I NDEX 

A 

3 0000 

1 

CA 

0 

7 4547 

1 

MASK 

H15 

0 4530 

0 

T C 

LEFTS 

6 0il3 

1 

AD 

SFTFMPl 

10  000 

0 

CCS 

A 

0 OOO 1 

0 

1 C 

L 

0 4^25 

0 

TC 

CCSHOLE 

0 2324 
0 0001 

0 

0 

TC 

NDCMPTST  TC 

GODSPALM 

L 

1062 

REf 

88 

last 

246 

05,2420 

1063 

1064 

REF 

REF 

4 

50 

LAST 

LAST 

242 

246 

05.2421 

05.2422 

E2  P02  0 TST(-ORdP  LXCH  Q 

3 OJ-36  0 CA  NNADTEM 

t 7 '55  1 AD  ONE 


1065 

1066 

1067 

1068 

1069 

1070 

1071 

1072 

1073 
107A 
1075 


RaF  1 

REF  3 LAST  2A7 


REF  50  LAST  2A7 
REF  1 
REF  2 LAST 
REF  51  last  2a7 
REF  8 LAS  2A6 
REF  52  LAST  2A7 


05*2a23  0 0006  1 

G5»2a2A  1 2^36  0 

05,2A2i>  50  130  0 

05*2420  0 2^26  0 

C5.24ZT  0 2^31  0 

05.2430  0 0001  0 

05.2431  0 2 a3  0 

05.2432  0 2236  1 

05.2433  0 0001  0 

05,243^  24  135  0 

05,2433  D oOOl  0 


EXTEND 

3ZF  CHANdSP 

INDEX  MIXRR 
TC  +0 

TC  +2 

TC  L 

TC  SFRUTNOR 

1C  DPTFST 

TC  L 

INCR  NuUNADD 
TC  L 


1076 

1077 

REF 

3 

LAST 

238 

05,243^ 

05,2437 

1078 

1079 

REF 

157 

LASY 

247 

05 .2440 

05.2441 

1080 

REF 

3 

last 

246 

05,2442 

0 0006  1 chandsp  extend 

5 0310  0 INDEX  NuUNCADR 

00  000  1 READ  0 

4 OOOO  0 CS  A 

1 2343  0 TCF  DSPCOMl 


1081  REF  1 o3,2A43  00137  i COMPICK.  ADRES  NNTYPTEM 

1082  REF  5 LhSi  247  05,2444  00l36  0 ADRES  NNADTEM 


1083  REF  4 LASi  247  05,2445 

1084  REF  2 LAS^  241  05,2446 

1085  REF  158  LAST  247  05,2447 

1086  05,2450 

1087  REF  4 LASi  247  05,2451 

1088  REF  2 LAST  247  05,2452 


50  130 

3 2442 
50  Ooo 

0 DeCDSP 

1 

1 

index 

CAF 

MIXBR 

COMPICK 

I NDEX 

A 

3 0000 

1 

CA 

0 

7 4547 

0 4530 

1 

0 

MASK 

1C 

HIS 

lefts 

Dec  U,  1966  (MAIN)  PAGE  247 


uSeR'S  OwN  PAgF  no.  29 

NOUN  = 01,  ANY  rOMP  OK 
NOUN  NOT  = 01. 


NOUN  COMP 

NOUN  COMP  - VERr  COMP 

NOUN  COMP  G/  VERB  COMP 

NOUN  COMP  L/  verb  COMP 
NOUN  COMP  = VFRr  comp 


TEST  FOf<  DP,  If  30,  gLT  mINOR  pART  ONlY* 
IF  NNADTEM  = -1,  CHANNEL  TO  BE  SPECIFIED 


NORMAL 

mixed  case  already  handled  in  MiXNOUN 

NO  DP 

DP  E+1  INTO  nOUNADD  FOR  MINOR  PART. 


NORMAL  mixed 

ADRES  NNTYPTEM  ADRFTS  NNAoTEM 


C (NNTYPTEM)  C (NNADTEM) 

GET  Hl5  OF  NNTYpTAB  (NORM)  OF  NNAl)T AB  ( M I X ) 


^8895^A  yJL  SySTHM  f'OK  Ag^;  PROO^A'I  S^EPATIN  gy  EyLES 


L pinBall  gaMe  buttons  and  lisa, I S 

1089  R'F  A last  2A1  0S.2a53  SA  ^07  0 Ts 

1090  RSF  1 05.2A5A  8A  U2  1 OSPUCGET  TS 


1091 

1092 

1093 
109A 

1095 

1096 

1097 

1098 

1099 

1100 
1101 
1102 
1103 
U04 

1105 

1106 

1107 

1108 

1109 

1110 
1111 
1112 
1113 

lllA 

1115 

1116 


R£F  9 LAST  247 
rEF  159  last  247 


REF  2 LAS  I 
REF  1 
REF  3 LAST 
REF  1 
REF  61  Last 
REF  87  LASI 
REF  d8  LASi 
REF  5 last 
REF  5 LASi 
REF  24  LAS,' 
REF  6 LAST 
REF  2 LAST 
REF  89  LAST 
REF  1 
REF  3 LAST 


248 

248 

242 

239 

248 

248 

246 

246 
248 
248 
248 

247 


REF  1 

REF  6 LASi  242 
REF  ■ 5 last  247 


REF  1 

REF  2 LASI  241 
REF  1 


05»2A55 
05  »2a50 
05,245T 

05.2460 

05.2461 

05.2462 

05.2463 

05 .2464 

05.2465 
05,2465 
05,2467 

05.2470 

05.2471 

05.2472 

05.2473 

05.2474 

05.2475 
05,2475 
05,2477 

05.2500 

05.2501 

05.2502 

05.2503 

05.2504 

05.2505 

05.2506 


6 OI35  0 
50  000  1 
4 0000  0 
50  112  0 
5b  274  0 
10  112  1 


0 2454  0 
3 7^61  0 
54  145  0 
54  146  0 
50  107  1 

3 4516  1 
54  270  0 
50  107  1 

4 0274  i 
54  144  1 
0 2 734 
54  113  0 
0 OOO6 
3 2512 
52  006 
50  130 
0 2503  0 

0 2507 
0 2 721 
0 2=22  0 


DSPDCPUt 


AD 

index 

CS 

INDEX 

XCH 

CCS 

TC 

CAF 

TS 

TS 

INDEX 

CAF 

TS 

INDEX 

CS 

TS 


0 

TC 

0 

TS 

1 

extend 

0 

OCA 

0 

OXCH 

0 

INDEX 

0 

TC 

1 

TC 

TC 


1117 

1118 


REF 

REF 


2 last  247  05,2507  0 2713  0 DSPSFNOR  TC 

2 LAST  248  05,25l0  0 2P22  0 TC 


1119  REF  25  LASi  248 

1120 

CII20  REF  1 


EO  EBANK= 

05.2511  O2O37  1 GTSFOUTL  2CADR 

05.2512  46000  0 


1121  REF  20  LAST  242  05,2513  0 5224  0 DsPDCEND  TC 


1122  REF  1 05,2514  11117  0 CADR 

1123  REF  7 last  248  05,2515  10  107  0 CCS 

1124  05,2515  0 2520  1 TC 

1125  REF  5 LAST  246  05,2517  0 0l26  1 TC 

1126  REF  8 LAST  248  05,2520  54  107  0 TS 

1127  REF  1 05,2521  0 2464  0 TC 


1128 

REF 

I60 

LAST  248 

05,2522 

50  000 

1 

DECDSP3  INDEX 

1129 

1130 

REF 

REF 

1 

7 

LASi  239 

05.2523 

05.2524 

3 2325 
0 5^46 

1 

1 

CAF 

TC 

Dec  lA,  I966  (MAIN)  PAqE  248 


USER’S  0*^N  Pa<Jf  NO.  30 

DECOUnT 

DeCTEM 

COMP  number  into  dEc'OUn'' 

PICKS  UP  DATA 

NOUNADD 

A 

DECTEM  ICOMP  +n,  2C0MP  +1,  3CO  !P  +2 

0 

DECTEM 

XREG 

DECTEM 

CANT  USE  BUF  SInCE  DMP  USES  IT. 

DSPDCGET 

zero 

MPAC  +1 
MPAC  +2 
DECOUNT 

RlDl 

DSPCOUNT 

DECOUNT 

XREG 

MPAC 

MORE  TO  GET 

DISPLAYS  data 

DECOUNT  ICOMP  +0,  2C0MP  +1,  3COMP  +2 

SFCONUM 

SFTEMPl 

2X(  SF  CON  NUMB  ) IN  A 

GrSFOUTL 

Z 

MIXBR 

+ 0 

DsPSFNOR 

SFRUTMIX 

DECD5P3 

SFRUTNOR 

DECDSP3 

DSPCOUNT 

GT  5F0UT 

SIa/ITCH  banks  to  SF  CONSTANT  TABi  E 

READiNvj  Routine. 

LOADS  SFTEMPl,  SFTEMP2. 

BANKCALL 

DSPDECWD 

DECOUNT 

ALL  SFOUT  routines  FND  HERE 

+ 2 

ENTFXIT 

DECOUNT 

DSPDCPUT 

MORE  TO  DISPLAY 

A 


SFOUTABR 

BANXJUMP 


488954A 


1131 

1132 

1133 
113A 

1135 

1136 

1137 

1138 

1139 


RilAO 

RllAl 


1192 


R1193 

R1149 

11A5 

1196 

1197 

1198 

1199 
1150 

R1151 

1152 

1153 
1159 

1155 

1156 

1157 

1158 

1159 

1160 
1161 
1162 
1163 

1169 

1165 

1166 

1167 

1168 
1169 


yjL  SVSIEI'I  f-OR  AGC.  NtW  PR0'-'7A-1  bHtPATIM  3Y  EYLLS 
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pinball  gaM):  buttons  and  lights 

REF  3 last  293  05,2525  11^15  0 5F0UTABR  CADR 

REF  1 05,252B  12^13  0 CADR 

REF  1 05,2527  10573  1 CADR 

REF  1 05,2530  10960  0 CADR 

REF  1 05,2531  10965  0 CADR 

REF  1 05,2532  10972  0 CADR 

REF  1 05,2533  . 10901  1 CADR 

REF  1 05,253A  10979  0 CADR 

35’2535  ENIDRTOUt  EQUALS 


USER'S  OWN  PaGf  NO.  31 

DSPALARM  alarm  IF  DEC  DI.sP  WlTU  OCTAL  ONl  Y NOUN 

D5PDCEND 

DEGOUTSF 

ARTOUTSF 

DPIOUTSF 

DP20UTSF 

OPDFGOUT 

DP30UTSF 


The  following  is  atypical  SF  routine  . it  UsEs  MPAC.  leaves  REsU 
Lis  in  i.pac,  mpac+i.  ends  with-  tc  dspdceno 


ref  2 last  236 


09»2573  SETLOC  BLANKCON  +1 


DEGOUTSF  SCALES  BY  ,18  THe  lOW  19  BITS  OF  ANGLE  , 

numbers  in  the  negative  (AGC)  range. 


REF 

REF 

62  LASl  2A8 

90  LASl  298 

09,2573 

09,257A 

3 '7  761 
59  196 

0 

0 

DEGOUTSF 

CAF 

TS 

REF 

1 

09,2575 

0 2632 

1 

T C 

09,2576 

0 2600 

0 

TC 

REF 

1 

09,2577 

0 2625 

1 

TC 

REF 

1 

09,2600 

0 2693 

1 

T C 

o=de 

GjUf  oCaLeS  by 

.95  (THE 

Range  is 

90 

OeGKEES) 

AND 

ING  .18  FOR 


ZERO 

MpAC  +2  SET  INDEX  FOR  FliLL  SCALE 

FIXRANGE 

+2  NO  AUGMENT  NEFDfD  (SFTEMPi  AND  2 ARE  0) 

SETAUG  SET  AUGMENTER  ACCORDING  TO  C(MPaC  +2) 

DbGCOM 

adds  a 20  DeG  BIAS, 


REF 

REF 


REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 


91  LAST 

92  LASI  299 

1 

1 

1 

93  LASl  299 

18  LASl  238 
99  LAST  299 
25  LAST  296 
2 LAS;  299 


09.2601 

09.2602 
0‘t,2b03 

09.2609 

09.2605 

09.2606 

09.2607 

09.2610 
Oh, 2611 

09.2612 

09.2613 
09,26lA 


10  1A9  1 
55  199  0 
0 2606  0 
0 2615  1 
6 7763  1 
5 2657  1 
59  I99  1 
0 2613  1 
3 7737  0 
25  I99  1 
3 7759  0 
0 2579  0 


OPDEGOUT 


BIASCOM 


CCS 

XCH 

TC 

TC 

AD 

AD 

T5 

TC 

CAF 

ADS 

CAF 

TC 


MPAC 

MpAC 

+ 3 

NEGOPT 

NEGl 

20BIAS 

MPAC 

♦ 3 

BIT15 

MPAC 

TWO 

DEGOUTSF 


+ 1 


RANGE  IS  90  DFG 

IF  pOS  UR  pOS  0 THEN  ADD  BIAS  AND 
CORRECT  FuR  POSSIBLE  OVERFLOW 
IF  NEG  NON  ZERO 
IF  NEG  ZERO  subtract  1 

TEST  FOR  OVERFLOW 
NO  OVFLOW 
IF  OVFLOW 

SET  multiplier  tO  ,95 


REF  95  LAST  299  09,2615  55  199  0 NEGOPT  XCH 

REF  2 LASl  299  09,2616  o 2657  1 AD 

REF  161  last  298  09,261 7 10  OOO  0 ' CCS 

REF  1 09,2620  0 2607  1 TC 

REF  9 LAST  297  09,2621  0 9725  0 TC 

REF  51  LAST  297  09,2622  6 7755  1 AD 


MPAC  negative  case 

20BI AS 
A 

BIASCOM  IF  POS  then  SUBtRACt  1 BECAUSE  OF  2SCOM 

CCSHOLE 

ONE  IF  NEG  RESTORE  sUM 
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1170 

1171 


1172 

1173 
11  7A 

1175 

1176 

1177 

1178 

1179 

1180 
1181 

1182 

1183 

US'* 

1185 

1186 

1187 

1188 

1189 

1190 

1191 

1192 

1193 


119A 

1195 

1196 

1197 

1198 

1199 

1200 
1201 
1202 

1203 

1204 

1205 

1206 

1207 

1208 


PINBAlL  GAMt.  buttons  AND  LIGHTS 
04.2623  ■+ 

REF  2 LAST  249  04.262*+  0 

04.2625  0 

ref  96  last  249  04.2626  5 

REF  1 0<t,262  7 3, 

REF  4 LAST  248  04,2630  52 

REF  89  LAST  247  04,2631  0 


OOOO 

0 

COM 

2907 

1 

TC 

BI ASCOM 

0006 

1 setaug 

EXTEND 

0146 

1 

index 

MPAC 

2954 

1 

DCA 

DEGTAB 

114 

0002 

1 

0 

DXCH 

TC 

SFTEMPI 

0 

REF  97  LAST  250  04+2632 

REF  90  last  250  04,2633 

REF  91  LAST  250  04.2634 

04.2635 

REF  19  LAST  249  04.2636 

REF  98  LAST  250  04.263^ 

REF  99  LAST  250  04,2640 

REF  92  last  250  04,2641 

04.2644 


ID  l44  1 FIXRANGE  CCS  MPAC 
0 0002  0 TC  0 

0 0002  0 1C  Q 

1 2036  1 TCF  ♦! 

4 7737  1 CS  B1T15 

7 0144  1 MAS<  MPAC 

54  144  1 IS  MPAC 

5D  002  0 INDEX  0 

0 0001  0 TC  1 


USER'S  OWN  PaGp  NO*  32 
IF  NEG  0 LEAVF  NEG  0 

LOADS  SFTEMPi  AnD  SFTEMP2  WITH  THE 
DP  AUGMENTER  COnSTANI 


IF  MPAC  IS  + RETURN  TO  L+1 
If  MPAc  IS  - return  to  l+2  AfTER 
MASKING  OUT  THE  SIGN  611 


REF  100  Last 
REF  2 LAST 
REF  101  LAST 
REF  2 Last 
REF  5 LAST 
REF  102  LASi 
REF  1 


04,2643 
250  04,2644 

250  04,2645 

250  04,2646 

229  04,2647 

250  04,2650 

250  04,2651 

04,2652 


0 OOO6  1 DeGCOM 
5 0146  1 
3 2954  1 
52  145  0 

0 7351  1 

52  114  1 
2D  I45  0 
0 2963  0 


extend 
INDEX  MPAC 

DCA  DEGTAB 

DXCH  MPAC 

TC  SHORTMP 

DXCH  SETFMPl 

DAS  MPAC 

TC  SCOUTEND 


LOADS  multiplier  , DOES  SHORtMP,  AND 
ADDS  AUGMENTFR, 

adjusted  angle  TN  a 


04,2653 

D59o5 

1 

DEGTAB 

DCT 

056c5 

HI  PART  OF 

.18 

04,2654 

D3656 

1 

DCT 

03656 

LOW  PART  OF 

.18 

04,2655 

16314 

0 

DCT 

16314 

HI  PART  OF 

.45 

04 ,2656 

31463 

1 

DCT 

31463 

LO  PART  OF 

.45 

04,265‘T 

I6O4O 

1 

2nB I AS 

DCT 

16040 

20  DEG  BIAS 

FOR  OPTICS 

REF 

6 

LA5“ 

250 

04 ,2660 

52  ll4 

1 

ARTOUTSF 

DXCH 

SFTEMPI 

ASSUMES  POINT  At  LETT  OF  DP 

SFCoN 

REF 

D r CT 

103 

LASi 

250 

04 ,2661 

52  I45 

0 

DXCH 

MPAC 

K Cr 

3 

LAST 

2 50 

O4 , 2662 

0 7351 

1 

I C 

SHORTMP 

REF 

16 

LASI 

243 

04,2663 

0 5243 

1 

SCOUTEND 

TC 

POSTJUMP 

REF 

2 

LAST 

249 

04,2664 

12513 

0 

CADR 

DSPDCEND 

REF 

1 

04,2665 

0 2977 

0 

DPIOUTSF 

TC 

DPOUT 

SCALES  MPAC, 

MPAC  +1  BY  DP 

scale 

FACTOR 

REF 

DTP 

104 

LAST 

1 C.  T 

250 

04,2666 

56  146 

1 

XCH 

MPAC  +2 

IN  SFTEMPI, 

SFTTMP2.  then 

scale 

RESULT 

K -r 

i W ? 

l_M  0 : 

250 

04 ,266  ^ 

5 6 I45 

I 

XCH 

MPAC  +1 

BY  B14, 

REF 

106 

LAST 

250 

04,2670 

5 4 1 44 

1 

TS 

MPAC 

REF 

2 

LAST 

250 

04,2671 

0 2963 

0 

TC 

SCOUTEND 
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1209 

REF 

2 

LAST 

250 

04,267K 

0 

2677 

O 

DP20UTSF 

TC 

DPOUT 

SCALES 

MPAC  , 

MpAC  +1 

BY  DP  SCAi  E 

FACTOR 

1210 

REF 

3 

LAST 

250 

04 ,2673 

0 

2663 

o 

T C 

SCOUTEND 

1211 

REF 

3 

Last 

251 

04,2674 

0 

2^77 

0 

DP30UTSF 

TC 

DPOUT 

ASSUMES 

POINT 

BpTWEEN 

BITS  7-8  nF 

HIGH 

1212 

1213 

REF 

REF 

1 

4 

LAST 

251 

04.2675 

04.2676 

0 

0 

3O72 

2663 

1 

0 

IC 

TC 

TPLFFT7 

SCOUTEND 

PART  OF 

SFCON 

. shifts 

RESULTS  LfFT 

7. 

R121A  D^OUT  PiCK-S  UP  FRESH  UaTA  FUR  BoiH  HI  AND  Lc  COMPONENTS. 
R1215  this  is  NLEI EU  FOR  TIME  DISPLAY. 


1216 

REF- 

93 

LAST 

250 

04,2677 

56  002 

0 DPOUT 

xCh 

0 

1217 

REF 

2 

LAST 

66 

04,2700 

54  111 

1 

rs 

OVFIND 

1218 

REF 

6 

LAST 

248 

04,2701 

5 0 1 30 

0 

INDEX 

Ml  XBR 

1219 

04,2702 

0 2(02 

0 

TC 

+ 0 

1220 

REF 

1 

04,2/03 

0 2(20 

0 

TC 

DPOUTNOR 

1221 

REF 

9 

LAST 

248 

04,2704 

50  107 

1 

index 

DfCOUNT 

get  idaddtae  fNtRy  for  component  K 


1222  REF  2 LaSi  2A1  CA'2705  3 OHO  1 CA  IDADlTEM  OF  NOUN. 

1223  REF  5 LAS i 2A1  04.2706  7 4^52  0 MASK  LUWll  E SUBK 

1224  REF  2 LAST  241  04,2707  0 4^12  0 IC  SETFBANK  SET  EB,  LEAVF  EaDRES  IN  A, 

1225  04,2710  0 0006  1 DPOUTCOM  EXTEND 

1226  REF  162  LAST  2A9  04,27ll  5 OOOO  1 INDEX  A MIXED  Nr.RMAl 

1227  04,2712  3 OOOl  0 DCA  0 C(ESUbK)  C(E) 

1228  REF  107  LAST  250  04,2713  52  U5  0 DXCH  MPAC  C((E  SUBK)+1)  C(E+1) 

1229  REF  3 LAST  196  04,271^  0 7320  1 1C  TPAGREE 

1230  REF  2 last  229  04,2715  0 7l46  0 TC  DMP 

1231  RET  7 LaSi  250  04,2716  00113  1 ADRES  SFTFMPl 

1232  REF  3 LAST  251  04,2  717  0 OUl  0 TC  OVFIND 

1233  REF  10  LAST  248  04,2720  3 Ol35  0 DPOUTNOR  CA  NOUNADD  E 

1234  REF  1 04,2721  0 2(10  0 TC  DPOUTCOM 


Rl235  this  is  a SFECIAL  PUrPqSe  VER3  FqR  DISPLAYING  A OOUBlf  PRECISION  AGC 

R1236  wORO  AS  10  IECIMAL  DIgHS  ON  THE  AgC  DISPLAy  PANEL.  IT  CAN  BE  USED  WITH 

R1237  any  NJUI.,  E>CePT  MIXeO  NOUN&,  ll  OjsplayS  tHE  CONTENTS 

R1238  Or  tHe  KeGISTlR  NOUNADD  IS  POINTING  TO  . IF  USeO  WItH  NOUNS  WHICH  ARe 

R1239  inherently  iQt  DP  SUCH  AS  tHe  COU  COUNTERS  tHe  DISPLAY  WILL  Re  GARBAGE. 
R1240  DISI'LaY  is  IN  Rl  AND  R2  ONLY  mtH  THe  SIGN  IN  Rl. 


1241 

1242 

RsF 

7 LAST 

251 

04.2722 

04.2723 

50  130 
0 2 (23 

0 

0 

DSPDPDEc  index 
TC 

MlXBR 

+ 0 

i 4 Hi 

1244 

REF 

4 Last 

249 

04 .2724 

04.2725 

0 2726 
0 3315 

0 

0 

TC 

TC 

+ 2 

dspalarm 

normal  NOUN 
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L PINGalL  GaMe  BUTTONB  and  lights  USLR'S  own  PAGf  NO. 


1245 

04*2726 

C 0006 

1 

extend 

1246 

RBF 

1 1 

Last 

251 

04*2727 

5 0 1 35 

0 

I NDEX 

nounadd 

1247 

108 

LAS1 

04»2730 

3 OOOl 

0 

OCA 

0 

1248 

REF 

251 

04*2731 

52  F45 

0 

DXCH 

MPAC 

1249 

REF 

6 

LAST 

248 

04*2732 

3 46I6 

1 

CAF 

RlDl 

1250 

REF 

26 

LAST 

248 

04*2733 

54  470 

0 

TS 

DSPCOUNT 

1251 

REF 

63 

LAST 

249 

04*2734 

3 7 i'61 

0 

CAF 

ZERO 

1252 

REF 

109 

LAST 

252 

04*2736 

54  146 

0 

TS 

MPAC  +2 

1253 

REF 

4 

LAST 

251 

04*2736 

0 7320 

1 

IC 

TPAGREE 

1254 

REF 

1 

04*2737 

0 3I73 

1 

TC 

DSP2DEC 

1255 

REF 

6 

LAST 

248 

04*2740 

0 0126 

1 

ENODPDLC  TC 

ENTEXIT 

34 
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PU56 


1257 

1258 

1259 

1260 
1261 
1262 
1263 
126A 

1265 

1266 

1267 

1268 


1269 

1270 

1271 

1272 

1273 
1279 

1275 

1276 

1277 

1278 

1279 

1280 
1281 
1282 
1283 
1289 

1285 

1286 

1287 

1288 

1289 

1290 

1291 

1292 

1293 
1299 

1295 

1296 

1297 


PINBALL  game  BUTTONS  AND  LloiTS 
LOAD  VERBS 


REF  1 

REF  26 
REF  5 

REF  1 
REF  2 
REF  1 
REF  1 
REF  3 
REF  1 
REF  1 
REF  9 
REF  2 


LAST  299 
LAST  296 

LAST  239 

LAST  253 

LAST  253 
LAST  238 


05.253S 

05,253B 

05,2537 

05.2590 

05.2591 

05 . 2592 

05.2593 
05,2599 

05.2595 

05.2596 

05,259  F 


35*2535 

9 7F59  1 
0 23/6  1 

3 2673  1 
0 2319  0 

0 22:52  0 

3 2679  0 
3 2319  0 
0 2'^59  0 
3 2675  1 
0 2319  0 
0 2956  1 


ref  7 last  291 
REF  1 

REF  9 LAST  292 
REF  7 LAST  298 
REF  69  LAST  252 
REF  1 

REF  12  LAST  252 

REF  52  LAST  299 
REF  2 LAST  253 


05 

05 

05 

05 

05 

05 

05 

05 

05 

05 

05 


9 6^76  0 
0 2676  1 
0 OOO6  1 
3 2O76  1 

52  006  0 
3 7761  0 
0 2762  0 

53  I35  0 
59  OOO  0 
3 7755  1 
0 2762  0 


REF  13  LAST  253 

REF  27  LASI  253 
REF  3 LAST  253 
REF  19  LAST  253 

REF  2 LAST  237 

REF  53  LAST  253 
REF  6 LAST  253 
REF  2 LAST  253 
REF  5 LAST  253 
REF  2 last  253 
REF  2 last  253 
REF  6 LAST  253 
REF  2 LAST  253 
REF  3 last  201 
REF  2 LAST  253 


05 

,2563 

50 

135 

0 

05 

,2569 

59 

00  1 

1 

05 

,2565 

3 

7 759 

0 

05 

,266t) 

0 

2 762 

0 

05 

,2567 

50 

135 

0 

05 

,2570 

59 

002 

1 

05 

,2571 

0 

2663 

0 

05 

,257Z 

9 

7755 

0 

05 

r\  c. 

,2573 

0 

2376 

1 

,2579 

3 

2*573 

1 

05 

,2575 

0 

2319 

0 

05 

,2576 

0 

2952 

0 

05 

,2577 

3 

2679 

0 

05 

,2600 

0 

2319 

0 

05 

,2601 

0 

2959 

0 

05 

,2602 

9 

7 7 60 

0 

05 

,2603 

0 

2*576 

1 

05 

,2609 

0 

0006 

1 

A3CL0AD 


PjTXYZ 


A3L0AD 


PJTXY 
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SETloC  EnOrToUT 

CS  Two 

TC  COMPTEST 

CAF  VBSPlLD 

1C  UPDATVB  -1 

TC  REQDATX 

CAF  VBSP2LD 

TC  UPDATVB  -1 

TC  RbQDATY 

CAF  VBSP3LD 

TC  UPDATVB  -1 

TC  REQDATZ 


CS  SIX  TEST  ThAT  ThF  3 DATA  wOKoS  LOADED  ARE 

TC  ALLDC/OC  ALL  DEC  OR  ALL  nCT. 

EXTEND 

3CA  LODNNLOC  SWITCH  BANKS  TO  NOUN  TABLE  READING 

3XCH  Z ROUTINE. 

CAF  ZERO  X COMP 

TC  PUTCOM 

INDEX  NOUNADO 

TS  0 

CAF  ONE  Y COMP 

TC  PUTCOM 

INDEX  NOUNADD 
TS  1 

CAF  Two  Z COMP 

TC  PUTCOM 

INDEX  NOUNADD 

TS  2 

TC  LOADLV 

CS  ONE 

TC  COMPTEST 

CAF  VBSPlLD 

TC  UPDATVB  -1 

TC  REQDATX 

CAF  VBSP2LD 

TC  UPDATVB  -1 

TC  REQDATY 

CS  FIVF  TEST  THAT  THf  2 DATA  WORDS  LOADfD  ARe 

TC  ALLDC/OC  ALL  DEC  OR  ALL  nCT. 

EXTEND 
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1298 

REF 

5 

LASI 

253 

1299 

REF 

8 

last 

253 

1300 

REF 

65 

LAST 

253 

1301 

REF 

9 

LASI 

253 

253 

1302 

1303 

REF 

I 5 

LAST 

1309 

REF 

59 

LASI 

253 

1305 

REF 

5 

LAST 

2 59 

1306 

1307 

REF 

16 

LAST 

259 

253 

1308 

REF 

3 

LAST 

0S,260S 

05*2606 

05,260T 

05.2610 

05.2611 


05i2612 

05,2613 


05,261“+ 

05.2615 

05.2616 
05,261 T 


3 2^76  1 
52  006  0 
3 7T6I  0 
0 2762  0 
50  I35  0 
59  000  0 
3 77551 
0 2762  0 
50  135  0 
59  OOl  1 
0 2663  0 


1309  R£F  3 

1310 

1311  REF  6 

1312  REF  9 

1313  REF  66 

131A  REF  6 

1315  REF  17 

1316 

1317  REF  A 


1318  REF  55 

1319  REF  7 

1320  REF  20 

1321  REF  10 

1322  REF  3 

1323 

132A  REF  7 

1325  REF  10 

1326  REF  56 

1327  REF  7 

1328  REF  18 

1329 

1330  REF  5 

1331  REF  28 

1332  REF  8 

1333  REF  21 

133A  REF  11 

1335  REF  3 

1336 

1337  REF  8 

1338  REF  11 

1339  REF  29 

13A0  REF  8 

13A1  REF  19 

13A2 

13A3  REF  6 


last  253  05 

05 

LASI  25A  05 

LAST  25A  05 

LAST  25A  05 

LAST  25A  05 

LAST  25A  05 

05 

LAST  25A  05 

LAST  25A  05 

LAST  253  05 

LAST  250  05 

LAST  238  05 

LASI  253  05 

05 

LAST  25A  05 

LAST  25A  05 

LAST  25A  05 

LAST  25A  05 

last  25A  05 

05 

LAST  25A  05 

LAST  253  05 

LAST  25A  05 

last  25A  05 

LAST  25A  05 

last  253  05 

05 

LAST  25A  05 

last  25A  05 

LAST  25A  05 

LAST  25A  05 

LAST  25A  05 

05 

last  25A  05 


2620 

0 2252 

0 

262  I 

0 OOO6 

1 

2622 

3 2076 

1 

2623 

52  006 

0 

2629 

3 7 761 

0 

2625 

0 2 762 

0 

2626 

50  135 

0 

262  7 

59  OOO 

0 

2630 

0 2663 

0 

2631 

9 7755 

0 

2632 

0 2376 

1 

263-^ 

3 7737 

0 

2639 

59  306 

0 

2635 

0 2259 

0 

2636 

0 OOO6 

1 

263  7 

3 2O76 

1 

2690 

52  006 

0 

2691 

3 7755 

1 

2692 

0 2 762 

0 

2693 

50  I35 

0 

2699 

59  Ool 

1 

2695 

0 2663 

0 

2b9t> 

9 7 759 

1 

2697 

0 2376 

1 

2650 

3 7737 

0 

2651 

59  306 

0 

2652 

0 2256 

1 

2653 

0 OOO6 

1 

2659 

3 2076 

1 

2655 

52  UO6 

0 

2656 

3 7759 

0 

2657 

0 2 762 

0 

2660 

50  135 

0 

2661 

59  O02 

1 

2662 

0 2663 

0 

T 3Y  EYLF 


ALOAD 


bLOAD 


CLOAD 
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USEr'5  own  PaGf  no*  36 

OCA  LODNNLOC  SWITCH  BAwKS  TO  NOUN  TABLE  READING 

OXCH  Z ROUTINE. 

CAF  ZERO  X COMP 

TC  PUT COM 

INDEX  NoUNADD 

TS  0 

CAF  ONE  Y COMP 

TC  PUTCOM 

INDEX  NoUNADD 

rs  1 

1C  LOADLV 

rc  reqdatx 

EXTEND 

OCA  lodnnloc  switch  banks  to  noUn  table  Reading 

OXCH  z routine. 

CAF  ZERO  X COMP 

TC  PUTCOM 

INDEX  NOUNADD 

TS  0 

TC  LOADLV 

CS  ONE 

TC  COMPTEST 

CAF  BIT15  SET  CLPASS  FOR  fASSO  ONLY 

TS  CLPASS 

1C  REQDATY 

EXTEND 

OCA  LODNNLOC  SWITCH  BANKS  TO  NOUN  TABLE  READING 

OXCH  Z ROUTINE. 

CAF  ONE 

TC  PUTCOM 

index  NOUNADD 

TS  1 

TC  LOADLV 

CS  Two 

TC  COMPTEST 

CAF  BIT15  SET  CLPASS  FOR  PASSo  ONLY 

TS  CLPASS 

TC  REQDATZ 

EXTEND 

OCA  lodnnloc  SWITCH  BANKS  TO  NOUN  TABLE  READING 

OXCH  Z ROUTINE. 

CAF  Two 

TC  PUTCOM 

INDEX  NOUNADD 

TS  2 

TC  LOADLV 
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L PInBAEL  GaMF  BUTToNj  and  lIgH'IS 


USER'S  OWN  Page  no.  37 


134A  REF  (i!  LAST  25A  05,2663  3 7'6l  0 LDADLV  CAP 

13A5  REF  13  LAST  238  05,266'+  5'+  ^71  1 TS 

1346  REF  68  LAST  255  05,2665  4 7''6i  1 CS 

1347  REF  1 05,2666  54  305  0 TS 

1348  REF  H LASI  243  05,2667  4 4554  0 CS 

1349  REF  27  LAST  252  05,2670  54  ^70  0 TS 

1350  REF  17  LAST  250  05,2671  0 54a3  1 TC 

1351  REF  1 05,267^  ^ 11440  1 CADR 


ZERO 

DECBRNCH 

ZERO 

LOADSTAT 

VOl  TO  BLOCK  NUMERKAL  CHARACTERS  AND 

DSPCOUNT  CLEARS  AFTER  A rOMPLElEO  LOAD 

POSTJUMP  after  COMPLETED  LOAD,  GO  TO  RECALTST 

RECALTST  TO  SEE  IF  THERE  IS  RECALL  FROM  ENDIDLE. 


1352 

05,2673 

OOU2I 

1 

YBSPlLO 

OCT 

21 

VB21  = ALOAD 

1353 

05 ,2674 

OOO22 

1 

V8SP2LD 

OCT 

22 

VB22  = BLUAD 

1354 

05,2675 

OOO23 

0 

VaSP3LD 

OCT 

23 

VB23  = CLOAD 

1355  REF  10  lAST  251  05,267°  54  107  0 AlLDC/Oc  TS 


1356  REF  14  LAST  255  05,267?  4 0Z7I  1 CS 

1357  REF  12  LAST  236  05,2700  5*+  021  0 TS 

1358  REF  13  LAST  255  05,2701  4 OO2I  0 CS 

1359  REF  14  last  255  05,2702  4 OO2I  0 CS 


decount  tests  thAt  data  woRdS  lOadEd  arf  either 

DECBRNCH  ALL  DEC  OR  ALl  nCT.  ALARMS  IF  NoT. 

SR 

SR 

SR  shifted  RIGHT  2 


1360 

REF 

163 

LAST 

251 

05,2703 

1361 

1362 

1363 

REF 

REF 

94 

11 

LAST 

LAST 

251 

255 

05 ,2  704 
05,2705 
05,2  706 

1 364 

1365 

1366 

REF 

10 

LAST 

247 

05,270? 

05.2710 

05.2711 

1367 

REF 

95 

LAST 

255 

05,2712 

10  000  0 CCS  A 

1 2?06  0 TCF  +2 

0 0002  0 TC  0 

6 0107  1 AD  DECOUNT 

0 0OO6  1 EXTEND 

1 2a2  0 3ZF  +2 

0 2324  0 TC  GODSPALM 

0 0002  0 GOQ  TC  Q 


DEC  COMP  BITS  Im  LOW  3 

SOME  ONES  IN  LOw  3 

ALL  ZEROS,  ALl  iXTAL.  OK 

DEC  COMP  = 7 for  3COMP,  =6  FOR  2COMP 

(BUT  IT  HAS  BfEN  DECREMENTED  BY  CCS) 

MUST  MATCH  6 FOR  3C0MP,  5 FOR  2rOMP. 

ALL  REQUIRED  ARf  DEC.  OK 


1368 

REF 

98 

LAsI 

255 

05,2710 

5b  O02 

0 

sfRutnor  xch 

1369 

REF- 

1 

05,271'+ 

54  104 

0 

TS 

13  70 

REF 

1 

05,2715 

3 4546 

1 

CAF 

1371 

REF 

2 

LAST 

247 

05,2716 

7 OI37 

0 

MASK 

1372 

1373 

REF- 

REF 

1 

2 

last 

255 

05,271? 

05,2720 

U 4521 

0 0104 

0 

1 

TC 

TC 

Q GETS  SF  ROUTINE  NuMbER  FOR  NORMAL  CAsE 

EXITEM  CANT  USE  L FOR  rETUrN.  TStFORDP  USES  L. 

MID5 

NNTYPTEM 

RIGHTS 

EXITEM  SF  routine  NUMBfR  IN  A 


1374 

REF 

97 

LAST 

255 

05,2721 

5b 

1375 

REF 

3 

LAST 

2 5 5 

05,2722 

54 

1376 

REF 

12 

LAST 

255 

05,2723 

50 

1377 

REF 

1 

05,2724 

3 

1378 

REF 

53 

LAST 

247 

05,2725 

5 4 

002  0 SFRUTMIX  XCH  0 

104  0 TS  ExITEM 

107  1 INDEX  DECOUNT 

2T53  1 CAF  DISPLACE 

OOl  1 TS  L 


GETS  SF  ROUTINE  NUMBER  FOR  MIXED  CASE 
PUT  TC  GOQ,  TC  RIGHTS,  OR  TC  LEFTS  IN  L 


1379  REF  13  LAST  255  05,2726  50  107  1 INDEX  DECOUNT 

1380  REF  6 LASl  228  05,2727  3 4545  1 CAF  Low5  L0W5,  MIO5,  OR  ulS  IN  A 

1381  REF  1 05,2730  7 OI43  0 mask  RUTMXTEM  GET  Hl5,  MID5,  nR  LOWS  OF  RUtMXtAB  ENTRY 

1382  REF  54  LAST  255  05,2731  50  OQl  0'  INDEX  L 

1383  05,2732  0 OOOO  1 TC  0 

R1384  do  TC  G0O(DeC0UNT  = 0)  , DO  TC  R 1 oHT5 ( DECOUNt  = 1 ) , Do  TC  LEFTS ( DeC0UNT  = 2 I . 

1385  REF  A last  255  05,2733  0 0l04  1 SFRETl  TC  EXiTEM  SF  ROUTINE  NUMBER  IN  A 
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L pinball  Game  buttons  and  lights 
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1386 
13  87 

1388 

1389 

1390 

1391 

1392 

1393 
139A 

1395 

1396 

1397 

1398 
R1399 

1400 

1401 


REF  98  LAST  255 
REF  5 LAST  255 

REF  8 LAST  251 

REF  1 

REF  14  LAST  i;55 
REF  2 LAST  255 
REF  55  LAST  255 
REF  15  LAST  256 
REF  7 LAST  255 
REF  3 LAST  255 
REF  56  LaSI  256 

DD  TC  GlQ (DeCOUNT=0) 

REF  6 LAST  256 


05»273A  S6  U02  0 SFCONUM 
05, 273s  54  i04  0 

05»2736  50  I30  0 

05,273?  0 2?37  0 

05.2740  0 2?56  1 

05.2741  50  107  1 

05.2742  3 2?53  1 

05.2743  54  Uoi  1 

05.2744  50  107  1 

05.2745  3 4545  1 

05.2746  7 0I37  0 

05,274?  50  001  0 

05.2750  0 0000  1 

UO  IC  R1GHT5(DeC0UNt  = 1)  , 

05.2751  6 OOOO  1 SFRET 

05.2752  0 0104  1 


XCH 

Q 

GETS  2X(  SF 

CQN'^TANT  NUMBER) 

T S 

EX  I TEM 

index 

MlXBR 

T C 

IC 

INDEX 

+ 0 

CUNUMNOR 

decount 

NORMAL  NOUN 
MIXED  NOUN 

CAF 

TS 

INDEX 

DISPLACE 

L 

DECOUNT 

PUT  TC  GOU, 

TC  rights,  dr  TC  LEFTS  IN  L 

CAF 

MASK 

INDEX 

TC 

LOWS 

NNTYPTEM 

L 

0 

DO  TC  lefts (DeCOUNT =2) . 

DOUBLE  2X(SF  CONSTANT  n.UMBfR  ) IN  A 

TC  EXITEM 


1402  REF  1 05*2753 

1403  REF  2 last  255  05,275^ 

1404  REF  3 LAST  247  05,2755 


0 2712  1 DISPLACE  TC 
0 4521  0 TC 
0 4530  0 TC 


GOO 

rights 

LEFTS 


1405 

REF- 

8 

LAST 

256 

05,2756 

1406 

REF 

4 

LAST 

256 

05,2757 

1407 

1408 

REF 

7 

LAST 

256 

05.2760 

05.2761 

3 4545  1 CDNUMNOR  CAF  L0W5 

7 0137  0 MASK  NNTYPTEM 

6 OOOO  1 DOUBLE 

0 0104  1 TC  EXITEM 


NORMAL  NOUN  ALWAYS  GETS  LOW  5 OF 
NNTYPIAB  FOR  SF  CONUM, 

2X(  SF  CONSTANT  NUMBER)  IN  A 


1409 

1410 

1411 

1412 

1413 

1414 

1415 

1416 

1417 

1418 

1419 

1420 

1421 

1422 
R1423 

1424 

1425 

1426 

1427 

1428 

1429 


REr 

16 

LAST 

256 

05,276Z 

REF 

99 

LAST 

256 

05,2763 

REF 

1 

05,2764 

REF- 

69 

LAST 

255 

05,2765 

REF 

4 

LAST 

251 

05,2766 

REF 

1 7 

Last 

256 

05,276? 

REF 

3 

LAST 

235 

05,2770 

REF 

110 

LAST 

252 

05,2771 

REF 

18 

LAST 

256 

05,2772 

REF- 

3 

LAST 

248 

05,2773 

REF 

111 

LAST 

256 

05,2774 

REF- 

9 

LAST 

256 

05,2775 

05,2776 

REF 

1 

05,277? 

I-  MIXNOUN, 

place 

address  for 

REF 

19 

LAST 

256 

05,3000 

REF 

□ r tr 

3 

LAST 

251 

05,3001 

Kir 

6 

L A S 1 

251 

05 ,3002 

REF- 

5 

LASi 

242 

05,3003 

05,3004 

REF 

20 

LAST 

256 

05,3005 

54  107  0 PjTcOM  TS 


56  002  0 
54  105  1 
3 7?61  0 
54  111  1 
50  107  1 
56  277  0 
54  I45  0 
50  107  1 
56  27a  0 
54  I44  1 
50  130  0 
0 2?76  0 

0 3023  0 
component  K 

50  107  1 
3 OI4O  1 
7 4552  0 
0 4502  1 
0 0006  1 
60  107  1 


XCH 

TS 

CAF 

TS 

INDEX 

XCH 

TS 

INDEX 

XCH 

TS 

index 

TC 

TC 

INTO  NOJNADD, 
INDEX 
CA 

MASK 

TC 

EXTEND 

SU 


decount 

Q 

DECREE 
ZERO 
OVF IND 

decount 

XREGLP 
MPAC  +1 
DECOUNT 
XREG 
MPAC 
MlXBR 
+ 0 

PUTNORM 

Set  fbank  bits. 
DeCOUNT 
IDADITEM 
LOWl  1 
SETNCADR 

DECOUNT 


NORMAL  NOUN 

GET  IDADDTAb  FNtRY  FOR  COMPONENT  K 
OF  NOUN. 

(ECADR)SUBK  FOR  CURRENT  COMP  OF  NOUN 
ECADR  INTO  NOUNfADR.  SETS  EB,  NOUNADD, 
C(lMOUNADD)  IN  A UPON  RETURN 
PLACE  (ESUBK)-K  INTO  NOUNADD 


1430  RSF  20  LAST  254  05,3005  54  135  1 


TS  NOUNADD 
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1531 

REF 

15 

LaS  1 

255 

1532 

RbF 

1 

1533 

REF 

3 

LAST 

258 

1535 

REF 

3 

Last 

257 

1535 

RbF 

1 

A1536 

A1537 

A1538 

1539 

REF 

21 

LAST 

256 

1550 

REF 

22 

Last 

257 

1551 

REF- 

21 

LaSi 

256 

1552 

REF 

70 

LAST 

256 

1553 

REF- 

22 

last 

257 

1555 

1555 

REF 

2 

Last 

257 

05,3007  n A71  1 
05,3010  0 3O5I  0 
05t30ll  0 2721  1 
05,301i!  0 2^3b  1 
05,3013  0 3OAO  0 


CCS  DECRRNCH 

TC  PUTDECSF 

TC  SFRUTMIX 

1C  DPTFST 

TC  PUTC0M2 


05,301A  2A  J-35  0 PJTBPCOM  INCR  NOUNADD 

05,30lt>  3 OJ'35  0 CA  NOUNADD 

05.3016  26  J-07  0 ADS  DtCOUNT 

05.3017  3 7^61  0 CAF  ZERO 

05.3020  50  107  1 INDEX  DECOUNT 

05.3021  53'  ni  0 TS  0 

05,302^1  0 3OAO  0 TC  PUTC0M2 


1AA6  REF  2 LAST  238  05,3023 

1AA7  REF  16  LASI  257  05,3025 

1558  REF  2 LAST  257  05,3025 

1559  REF  3 LAST  258  05,3026 

1550  REF  5 LASl  257  05,3027 

1551  REF  3 Last  257  05,3030 

1552  REF  71  LASI  257  05,3031 

1553  REF  23  LAST  257  05,3031^ 

1555  REF  1 05,3033 

1555  REF  6 LASl  257  05*3035 

1556  REF  57  LaSI  255  05,3035 

1557  05,3036 

1558  REF  1 05,3037 

1559  REF  112  LAST  256  05,3050 

1560  REF  2 LASl  256  05*3051 

1561  REF  28  LASl  255 

1562  05*305li 

C1562  REF  1 05*3053 


1563  REF  113  LaSI  257  05*3055 
1565  05*3056 
1565  REF  5 LASl  257  05,3056 
1A66  05,3057 
1567  REF  7 LASl  255  05,3050 


0 5510 

1 

PJTNORM 

TC 

setnadd 

I'J  571 

1 

CCS 

DECBRNCH 

0 3O5 1 

0 

TC 

PUTDECSF 

0 2713 

0 

TC 

SFRUTNOR 

0 2536 

1 

TC 

DPTFST 

0 3035 

0 

T C 

PUT  COM2  ■ 

3 7I6I 

0 

CAF 

ZERO 

55  107 

0 

TS 

DECOUNT 

0 30 15 

1 

T C 

PUTDPCOM 

3 0136 

0 

CA 

NNADTEM 

6 7 T55 

1 

AD 

ONE 

0 0006 

1 

EXTEND 

1 3055 

0 

PJTCOM2 

3ZF 

CHANLOAD 

5b  I55 

0 

XCH 

MPAC 

0 0105 

0 

TC 

DECREE 

EO 

ebank= 

DSPCOUNT 

32O55 

1 

GTSF INLC 

2CADR 

GTSFIN 

56000  0 


5b  I55  0 chanload  XCH  MPAC 

0 0006  1 EXTEND 

5 0310  0 index  NOUNCADR 

01  000  0 WRITE  0 

0 2663  0 TC  LUADLV 


R1568  PJTDECSF  FI\DS  MlXBR  AND  DECoJnI  BT ILL  SET  FROM  PJTCoM 

1569  REF  2 LAST  258  05,3051  0 2 05  0 PJTDECSF  TC  SFCONUM 

1570  REF  8 LASl  251  05,305^1  55  113  0 TS  SFTFMPl 


7 ** . . 
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+ DEC 
+0  OCTAL 

NO  DP 

test  for  dp  scai e For  ocj  load,  if  so* 
+0  into  major  paRt.  Set  nounadd  for 
Loading  octal  WhRD  into  minor  part. 

DP  (ESUBK)-K+1  OR  E+1 
NOUNADD  NOW  SfT  FoR  MINOR  PART 
(ESUBK)+1  OR  F+1  INTO  DECoUNT 
NOUNADD  SET  FOR  MINOR  PART 

1 ZERO  MAJOR  PARTiESUrK  OR  E) 


ECADR  FROM  NOUNrADR,  SETS  Eb*  NiUNADD, 

+ DEC 
+0  OCTAL 

5 NO  DP 

DP 


IF  NNADTEM  = -1,  CHANNEL  TO  BE  SPECIFIED 


2X(SF  CON  NUMB)  IN  A 
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1A71  05,3053 

1472  REP  i 05,305A 

1473  REF  12  last  254  05,3055 

1474  REF  10  LAST  256  05,305B 

1475  05,3057 

1476  REF  1 05,3060 

1477  REF  4 last  257  05,3061 

1478  REF  1 05,3062 

1479  REF  4 LAST  257  05,3063 


0 0006 

1 

EXTEND 

3 3O43 

0 

DCA 

gtsfinlc 

52  006 

0 

OXCH 

2 

53  T30 

0 

INDEX 

MIXBR 

D 3O57 

0 

1 C 

+ U 

0 3063 

1 

TC 

PUTSFNOR 

0 2(21 

1 

TC 

SFRUTMIX 

0 3O64 

0 

T C 

PUTDCSF2 

0-  2713 

0 

PJTSFNOR  TC 

SFRUTNOR 

1480 

1481 

1482 

1483 


REF  164  last  255 
REF  1 

REF  8 last  248 
REF  5 last  251 


05,306‘f  50  OOO  1 
05,3065  3 3067  0 
05,3069  0 5246  1 
05,3067  11315  o 


PJTDCSF2  index 
CAF 
K 

sfintabr  cadr 


A 

SFINTABR 

BANKJUMP 

DSPALARM 


1484  REF 

1485  REF 

1486  REF 

1487  REF 

1488  REF 

1489  REF 

1490  REF 

1491 


1 

1 

1 

1 

1 

1 

2 last  258 


05.3070  11021  1 

05.3071  10141  1 

05.3072  llOll  1 

05.3073  ilOAl  I 

05,307A  11066  1 

05,3075  il024  1 

05,3079  11041  1 

05’3077  En 


CADR  BINROUND 
CADR  DEGINSF 
CADR  ARTHINSF 
CADR  DPINSF 
CADR  DPINSF2 
CADR  OPTDEGIN 
CADR  DPINSF 
IN  EQUALS 


R1492  scale  factors  poR  thDsl  rouT I nes  Needing  them  are  available  in  sftempi 
R1493  all  spin  ROjTINES  USE  MPAC  M?AC+1.  LEAVE  RESULT  IN  A.  END  WITH  TC  DpCR 


1494  rEP  1 04’2741  SETlOC  EnDDPDEC  +1 

R1495  DEGINSF  APPLIES  lOOO/lBO  =5.55555'10)  = 5.43434(8) 


1496  REP  3 last 

1497  REF  1 

1498  REF  114  LAST 

1499  REF  la  LAST 

1500 

1501  REF  19  LAST 

1502  REF  115  Last 

1503  REF  1 

1504  REF  1 

1505  REF  2 LAST 

1506  REF  1 

1507  REF  3 LAST 

1508  REF  116  LAST 

1509  REP  1 

1510  REF  2 last 

1511 


251  04,2741 

04,2742 

257  04,2743 

231  04,2744 

04,2745 

258  04,2749 

258  04,274/ 

04.2750 

04.2751 

258  0,,,2752 

04,2753 

258  04,275A 

258  04,2755 

04,2759 

258  04,2757 

04,2790 


0 7146  0 DEGINSF 

33004  0 
IJ  145  0 

3 7 '’43  0 

0 2/47  1 

4 7/43  1 

•6  OI45  1 
0 3T04  1 

0 4900  0 

U 4900  0 DEGINSF2 
0 3T13  1 
0 4900  0 

ID  144  1 
0 2(62  0 
0 2(62  0 
4 OUOO  0 


TC  DMP 

ADRES  degconi 

CCS  MPAC  +1 

CAF  BlTll 

TC  +2 

CS  BlTll 

AD  MPAC  +1 

TC  2R0UND  +2 

TC  TPSLl 

TC  TPSLl 

TC  TESTOPUF 

TC  TPSLl 

CCS  MPAC 

TC  S16NFIX 

TC  SIGNFIX 

COM 
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USER'S  OWN  PaGf  no-  40 

SWITCH  BANkS  to  SF  CONSTANT  TABLE 
READING  ROUTINE. 

LOADS  SFTEMPi,  5,FTEMP2, 


SWITCH  BANKS  FOR  EXPANSHION  ROOT 
ALARM  IF  DEC  I OaD  WITH  OCTAL  ONLY  NOUN 


SAME  AS  ARlTHDPi 


SF  ROUTINE  FOR  DEC  DEGREES 

mult  by  5.5  5(iO)X2ExP-3 

THIS  ROUNDS  OFF  MPAC+1  BEFORE  SHIFT 

LEFT  3,  AND  CAUSES  s60.00  TO  OF/UF 

when  shifted  ieft  and  alarm. 


LEFT  1 
LEFT  2 

returns  if  no  OF/UF  (LEFT3) 

IF+,  GO  TO  SIGNFIX 
IF  +0,  GO  TO  SIgNFIX 
IF  - , USE  -magnitude  +1 


A8895‘+A  YJL  SYS[£M  F Uk  AGC;  NtW  PkO^^^AM  S^lPATIN  BY  EYLES 


1512 

1513 
151A 

1515 

1516 

1517 

1518 

1519 

1520 

1521 

1522 

1523 
152A 

1525 

1526 


1527 

1528 

1529 

1530 

1531 
C1531 

1532 
C1532 

1533 

153a 

1535 

1536 

1537 

1538 

1539 
15A0 
15A1 
15A2 
15A3 
1 5AA 


i5a5 

15A6 

15A7 

15A8 

15A9 

1550 

1551 

1552 


pinball  GAMh  BUTTONS  AND  LiGkiTS 


REF  11/  LAST  258 
REF  5 LAST  256 
REF  1 
REF  1 , 

REF  118  LAST  259 
REF  5 LASl  2A9 
REF  1 

REF  119  LAST  259 
REF  10  LAST  178 
REF  120  LAST  259 
REF’  18  LAST  255 
REF  A LAST  257 


0 A * 2 76 1 

5 A 1 A A 

1 

T5 

Oa  *2762 

10  ill 

1 

SIGNFIX 

CCS 

0a*2763 

0 3000 

1 

TC 

Oa  *2769 

0 2 Y 7 A 

1 

1 C 

Oa  *2765 

10  lAA 

1 

CCS 

0A*2766 

0 AY25 

0 

1C 

Oa  *2767 

0 2^76 

0 

T C 

0a,2770 

0 2T71 

1 

TC 

OA  *2771 

55  lAA 

0 

XCH 

0 A * 2 7 7 2 

7 7 T 3 5 

0 

MASK 

0a*2773 

5A  lAA 

1 

TS 

0*,  ,2779 

0 52A3 

1 

ENDSCALF 

1C 

0a*2775 

1 3OAO 

1 

CADR 

REF  11  LAST  259  0A,2775  A 705  0 NEG180  CS 

REF  2 LAST  259  0a,2777  0 2^73  0 TC 


REF  121  last  259  0a,3O0C  a OlAA  1 SGNTOl  CS 

REF  12  LAST  259  0A,300l  7 7735  0 'lASK 

REF  165  LAST  258  0a«3QO2  A OOOC  0 CS 

REF  3 LAST  259  Oa,3003  0 2 OB  0 TC 


OA 

OA 

Oa 

OA 

OA 


3009 

3005 

3006 

3007 

3010 


26J-61  0 DEGCONl 
3007  1 

21516  0 DEGC0N2 

07071  0 

71227  1 NEG.2 


2DEC 


2DEC 


OCT 


REF  A LAST  258 
REf  9 LAST  257 
REF  122  LAST  259 
REF  123  LAST  259 
REF  12A  LASl  259 

REF  2 LAS'I  258 
REF  6 last  258 
REF  2 LAST  258 
REF  2 LAST  256 
REF  A LAST  259 


3011 

3012 

3013 

3019 

3015 

3016 
30lV 

3020 

3021 

3022 


0 7iA6  0 
00113  1 
55  Ut  1 
55  ^95  1 
55  I99  0 

0 OOO6  1 

1 3021  0 
0 3315  0 
0 3102  1 
0 3113  1 
0 20a  1 


ARTHINSF 


BINROUND 


1C 

ADRES 

KCH 

>CCH 

XCH 

EXTEND 

3ZF 

TC 

TC 

1C 

TC 


ref  125  Last  25R 


REF  7 Last  259 
REF  8 LAST  259 
REF  1 

REF  126  LAST  259 
REF  5 LASl  259 


OA  *3029 
OA,3025 
0a*3026 
0A,3027 
OA.3030 
0A*303l 
0a,3032 
Oa  *3033 


10  lAA  1 

0 3031  0 
0 3031  0 
0 3315  0 
0 3315  0 
3 3OIO  0 
25  ■^AA  1 
0 7^96  0 


optdeoin 


OPDEGIN2 


CCS 

TC 

TC 

1C 

1C 

CAF 

ADS 

TC 
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USER’S  OrtN  PAGf  NO-  91 

MPAC 

ovfind 

IF  -0,  USE  +0 

SGNTOl 

ENDSCALE 

MPAC 

CCSHOLE 

NEG180 
+ 1 

MPAC 

PuSMAX 

MPAC 

POST JUMP 

PUTC0M2 

POSMAX 

ENDSCALE  -1 

IF  OVERFLOW 

NO  OVERFLOW/UNDfRFLOW 

IF  UF  FORCE  sign  TO  0 EXCEPT  -leO 

MPAC 

POSMAX 

A 

ENDSCALE  -1 

IF  OF  FORCE  SIGN  TO  1 

5.555555555  B-3 
2.222222222  B-2 


-06250 

= .197753906  l.E.  THE  BIAS  SCAi ED 

DMP 

SfTFmpI 

MPAC  +2 

MPAC  +1 

MPAC 

SCALES  MPAC*  +1  BY  SFTEMPI*  SFTEMPZ* 
assumes  point  BfTwEfN  hi  AND  LO  pARTS 

OF  SFCON.  SHIFTS  RESULTS  LEFT  By  lA. 

(BY  TAKING  RESUi  TS  FROM  MPAC+1,  MPAC+2) 

BINROUND 

DSPALARM 

2R0UND 

TESTOFUF 

TOO  LARGE  A LOAD 

ENDSCALE 

returns  if  no  Of/UF 

MPAC 

♦ A 

OPTICS  scaling  routine 

+ 3 

DSPALARM 

DSPALARM 

NEG.2 

MPAC 

DMP 

reject  negative  input 

DITTO 

RANGE  IS  90  DFG 

SUBTRACT  BIAS 

MULT  BY  100  / As  B-2 

48895'^A  YJL  SYSilM  f-OR  AGC  ; NbW  ShtPATlR  3Y  bYLfS 
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L PINBaLL  GAMb  BUTTONS  aND  Lio-nib 


USER'S  OWN  PaGf  NO.  A2 


1553  REF  1 

155A  REF  16  last  172 

1555  REF  127  LAST  259 

1556  REF  3 last  259 

1557  REF  1 


1558  REF 

1559  rEF 

1560  REF 

1561 

1562  REF 

1563  RnF 
156A  REF 

1565  REF 

1566  REF 

1567  REF 

1568 

1569  REF 

1570  REF 

1571  REF 

1572  REF 

1573  REF 
157A  REF 

1575 

1576  REF 


6 Last  259 

10  last  259 

128  LAST  260 

129  last  260 
72  LAST  257 

130  LAST  260 
A LAST  260 
3 LAST  259 

11  last  258 

1 

2A  LAST  257 
23  LAST  257 

100  LAST  256 

131  LAST  260 

101  LAST  260 

5 LAST  259 


0A.3O3A  03^06  1 ADRFS 

0a,303S  3 7'A2  1 CAF 

0a,3036  6 0lA5  1 AD 

OA.303Y  0 3FOA  1 TC 

0a,3OAO  0 2752  0 )C 

0A.30A1  0 7iA6  0 DPINSF  1C 

0A,30A2  00113  1 ADrEs 

0a,30A3  55  lA6  1 XCH 

0A,30AA  6 0000  1 DOUBLE 

OA,30A5  5A  1A6  0 TS 

OA,30A6  3 7I6I  0 CAF 

0A,30A7  6 0lA5  1 AD 

09,3050  0 3IOA  1 TC 

0A,3O5l  0 3II3  1 1C 

09.3052  50  I30  0 index 

09.3053  0 3O53  1 TC 

09,305A  0 3069  0 1C 

09,3053  3 0IO7  1 CA 

09,3050  6 OI35  0 DPINCOM  AD 

09,3057  59  002  1 TS 

09.3060  56  I95  1 XCH 

09.3061  50  002  0 INDEX 

09.3062  59  OOl  1 IS 

09.3063  0 2179  1 TC 


DEGC0N2 

BIT12 

MPAC  +1 
2R0UND  +2 
DEGINSF2 

DMP 

SF tempi 

MPAC  +2 

MPAC  +2 

ZERO 

MPAC  +1 

2R0UND  +2 

TESTOFUF 
MiXBR 

+ 0 

DP  I NORM 
DECOUNT 
NoUNADD 
Q 

MPAC  +1 

Q 
1 

ENDSCALE 


ROUND  AS  IN  DFGTNSF 


scales  MPAC,  MPaC  +1  BY  SFTEMPl, 
5FTEMP2.  sTOrEs  lOw  PArT  Of  rEs,ULT 
IN  (E  SUBK)  +1  nR  E+1 


RETURNS  IF  NO  Of-/UF 


MIXEDNOUN 
MIXED 
E SUBK 


normal 

E 


PLACE  LOW  PART  tN 
(E  SUBK)  +1  wIXED 


1577  REF  73  last  260 

1578  REF  1 


09,3069  3 7^61  0 DPINORM  CAF  ZERO  E +1 

09,3065  0 3056  1 TC  DpiNCOM 


NORMAL 


1579 

REF 

7 

last 

260 

09«3060 

0 7196 

0 DPINSF2 

TC 

DMP 

1580 

1 K Q 1 

R Ep 

D nr 

1 1 

LAST 

260 

09,3067 

00113 

1 

ADRES 

SfTfmpi 

i.  D 0 1 

K cr 

2 

LA  5 1 

251 

O9 , 307L 

0 3L72 

1 

T C 

TPLEFT  7 

1582 

REF 

3 

LAST 

258 

09,3071 

0 3^93 

0 

1C 

DPINSF 

ASSUMES  POINT  BfTWEFN  BITS  7-8  oF  HIGH 
pARI  Of  Sf  const,  DpINSFZ  SHIFTS  RESULT^ 
LEFT  BY  7,  ROUNDS  MpAC+2  INTO  MpAC+1, 


1583  ref 
1589  REF 

1585  REF 

1586  REF 

1587  REF 

1588  REF 

1589  REF 

1590  REF 


02  LaSI  26o 
1 

8 LASi  253 

12  LAST  260 

9 LAST  258 

13  last  260 
1 

2 LAS  I 260 


09.3072  56  002  0 

09.3073  59  119  1 

09,3079  3 6276  1 

09,3075  59  113  0 

09,307P  0 9POO  0 

09,3077  10  113  0 

09.3100  0 3O75  0 

09.3101  0 0119  0 


TPLEFT7  XCH 
TS 
CAF 

LEFT7COM  IS 
TC 
CCS 
TC 
TC 


Q 

SFTFMP2 

SIX 

SFTFMPl 

TPSLl 

SFTFMPl 

LEFT7C0M 

SFTFMP2 


operates  ON  MPAr . MPAC+i*  MPAC+2 
CANT  USE  L FOR  qETUrN.  IPSLl  USfS  L. 
left  by  7 


1591  ref  i32  LAST  26o  09,3io2  56  195  1 2rOUND  XCH  MPAC  +1 

1592  09,3103  6 OOOO  1 DOUBLE 


48895^A  YJL  system  FOR  AGC;  NEW  PROGRAM  5HEPATI1M  BY  EYLt  S 


L PIRBaLL  GaMe  BUtTORS  aRD  LloRilS 

1593  REE  133  LAST  260  0A,31OA  S A 1^5  0 TS 

1594  RcE  103  LAST  260  04,310S  0 0^02  0 TC 

1595  REF  134  LAST  261  04,3106  6 0l44  0 AD 

1596  REF  135  LAST  261  04,310Y  54  144  1 IS 

1597  REF  104  LAST  261  04,31 lO  0 0002  0 1C 

1598  REF  6 LAST  259  04,31  11  54  Ul  1 TS 

1599  REF  105  LAST  261  Oa,3112  0 00C2  0 2RNDERD  TC 

1600  rEp  7 last  261  04,3113  10  111  1 TEsTOpui  CCS 

1601  REF  9 LAST  259  04,3114  0 3315  0 TC 

1602  REF  106  LAST  261  04,31lS  0 0O02  0 TC 

1603  REF  10  LAST  261  04,3116  0 3315  0 TC 
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MPAC  +1 
0 

MPAC 

MPAC 

Q 

OVFIRD 

0 


OvfINo 

dspalarm 

Q 

DSPALARM 


USER'S  0*FR  PaGf  RO.  43 
IF  MPAC+1  DOFS  ROT  OF/UF 
IF  MPAC  DOES  ROT  OF/UF 


rETUrRs  If  mo  Op/UF 
OF 

UF 
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L 

PI6OA 

R1605 

RI6O6 

R1607 

RI6O8 

RI6O9 

RI6IO 

R1611 

RI6I2 

R1613 

RI6IA 

R1615 

RI6I6 


R1617 

1618 

1619 

1620 
1621 
1622 
1623 
162A 

1625 

1626 

1627 

1628 

1629 

1630 

1631 

1632 

1633 

1635 

1635 

1636 

1637 

1638 

1639 

1650 

1651 

1652 

1653 
C1653 

1655 


pinball  Game  buttons  anu  LiSiiis  user's  own  page  no. 

MONITOR  allows  OTHER  <EYBOARO  ACTIVITY,  IT  IS  ENDED  BY  VERB  TERMINATE. 

ANY  NvSUb  call  THAT  PASSES  TME  OSPLOCK , OR  ANOTHER  MONITOR. 

Monitor  action  is  suspended’  but  not  ended,  by  any  keyboard  action. 

EXCEPT  error  lTghT  RESET.  IT  3ESlNs  Ac.AIN  WhEN  KEY  RELEASE  Is  PERFORMED. 
monitor  SaV(.S  the  noon  and  appropriate  display  verb  in  MONSaVe.  it  saves 
NOUNCADR  IN  MoNSAVEl,  IE  NoDn  = MACHINE  CADR  TO  BE  SPECIFIED.  BIT  15  OF 

MONSAveI  IS  the  kill  monitor  signal  (KILLeR  bit), 
monsav'e  indicates  if  Monitor  is  oN(  +=on.  +o=ofF) 

If  mOnsave  is  +.  monitor  fnIeRS  no  reoueS] , but  tjRns  killer  bit  Off. 

I-  MONSAVE  IS  +0.  monitor  eNtERS  ReQUfST  AND  TURNS  KILLeR  BIt  OFF. 

N(/sub  and  vb=tlRMinate  turn  kill  Monitor  bit  on. 

IF  kTlllR  bit  is  on,  munrfq  enters  no  further  Requests,  zeros  monsave 

AND  MONSAVEI  (TURNING  OFF  KIL-ER  Bit). 


monitor  DOSfNT  test  for  mates  since  NvSub  can  HANOLe  internal  mATBS  Now 
ref  1 05’3077  SETLOC  ENORUTIN 


REF 

22 

last 

255 

05,3077 

5 7(37 

REF 

5 

LAST 

257 

05,3100 

7 0310 

REF 

136 

LAST 

261 

05,3101 

55  155 

REF 

1 

05,3102 

3 3AOI 

REF 

17 

LAST 

256 

05,3103 

7 0572 

REF 

5 

LAS  1 

256 

05,3105 

0 5530 

REF 

5 

LAST 

229 

05,3105 

55  U22 

REF 

6 

LAST 

262 

05,3106 

56  U22 

REF 

7 

LAST 

256 

05,3107 

6 0273 

REF 

137 

LAST 

262 

05.3110 

55  I55 

REF- 

2 

LAST 

86 

05,3111 

5 0330 

REF 

30 

LAST 

2 55 

05,3112 

6 7(55 

REF 

166 

last 

259 

05,3113 

ID  UOO 

REF 

1 

05,311A 

0 5(00 

05,3115 

0 3121 

1 

1 

MONITOR 

MONITl 

CS 

MASK 

BIT  15 
NOUNCADR 

0 

T S 

MPAC 

1 

CAF 

LUW6 

1 

MASK 

VERBREG 

0 

T C 

LEFTS 

0 

IS 

CYL 

1 

KCH 

CYL 

1 

AD 

NOUNREG 

1 

TS 

MPAC 

0 

CS 

grablock 

0 

AD 

T wO 

0 

CCS 

A 

1 

0 

TC 

TC 

RELDSPl 

♦ 5 

TEMP  storage 


TEMP  storage 

NEITHER  CASE  SEARCHfS  LIST. 


GRABL0CK=0,1.  +0  into  DSPLOCK  and 
TURN  OFF  KEY  RLSE  LIGHT. 


REF  6 LAST  259 
REF  75  last  260 
REF  5 last  232 

REF  2 LAST  86 

REF  58  LAST  257 
RET  29  LAST  208 
REF  29  LAST  257 

REF  1 

REF  138  LAST  262 


05,3116 


05,31  17 

05.3120 

05.3121 

05.3122 


3123 

3125 

3126 


05,3126 

05,312T 

05,3130 


0 5(25  0 
3 7(61  0 
5A  U03  0 
D 0005  0 
ID  311  0 

0 3130  0 

3 7(55  1 
0 5(01  1 
EO 

O3I35  1 
12000  1 
52  155  0 


TC  CCSHOLE 

CAF  ZERO 

TS  DSPLOCK 

inhint 

CCS  MONSAVE 

TC  +b 

CAF  ONE 

TC  WAITLIST 

ebank=  dspcount 

2CADR  MONREQ 

DXCH  MPAC 


GRADL0CK=2,  +0  INTO  DSPLOCK  AND 

leave  key  rlsf  I ight  alone 


IF  MONSAVE  WAS  +,  No  REOUEST 
IF  MONSAVE  WAS  0,  REQUEST  MONREQ 


PLACE  MONITOR  VrRB  AND  NOUN  INTO  MONSAVE 


^88954A  YJL  SYSTEM  FOK  AGC:  NeW  PROGRAM  SMePATIN  BY  EYLeS 


16A5 

1646 

1647 


1648 

1649 

1650 

1651 

1652 

1653 

1654 

1655 

1656 

1657 
C1657 

1658 

1659 

1660 
1661 

CI66I 

1662 

1663 

1664 

1665 

1666 


1667 


1668 

1669 

1670 

1671 

1672 

1673 

1674 

1675 

1676 

1677 

1678 

1679 

1680 
1681 
1682 


pinball  GAMF  BUllONS  ANd  LIGHTS 


REF 

3 last 

262 

05 .31 3l 

52  312 

0 

05.3132 

0 0003 

1 

REF 

4 LAST 

237 

05.3133 

0 0126 

1 

2XCH 

RELINT 

TC 


RET  3 LAST  216  05*313A 

REF  2 last  86  05*3T3R 

05i31 36 
05»313T 

RET  1 05 » 3 1 4O 

REF  2 LAST  263  05.3141 

REF  1 05.3142 

RET  30  LAST  262  05.3143 

RET  30  LAST  262 

05 .31 4A 

REF  2 LAST  262  05.314!? 

REF  2 LAST  215  05.3146 

REF  11  last  215  05.3147 


0 4^74  0 MsnREO  TC 

10  312  0 CCS 

0 3I42  0 1C 

0 3I42  0 TC 

0 3I53  0 TC 

0 3I53  0 TC 

3 3I57  1 CAF 

0 5101  1 TC 

EO  EBANK= 

O3I34  1 2CADR 

I2OOO  1 

3 5226  1 CAF 

0 5R23  0 TC 


REF  31  LAST  263  EO  EBANK= 

05.3150  03160  0 2CADR 

REF  1 05.3151  I2OOO  1 

REF  21  LAST  209  05.3152  0 5^45  1 TC 


REF  75  last  262  05’3153  3 7^61  0 KILLMON  CAF 

REF  4 last  263  05.3154  54  ^ll  0 Ts 

REF  3 Last  263  05,315S  5A  312  0 TS 

RET  22  LAST  263  05.3156  0 5^45  1 1C 


05.3157  OOI44  0 MONLiEL  OCT 


REF  it  LAST  263  05.3160  10  312  0 MONDO  CCS 

05.3161  0 3l65  0 TC 

05.3162  0 3l65  0 TC 

REF  37  LASI  235  05.3163  0 5605  1 TC 

RET  38  LAST  263  05,316^  0 5605  1 TC 

REF  5 LaSI  262  05,3166  10  303  0 CCS 

REF  1 05,3166  0 3212  0 TC 

REF  2 LAST  262  05,3167  3 3^01  1 CAF 

REF  5 LAST  263  05,3170  7 0311  0 ^ASK. 

REF  3 Last  196  05,3171  54  113  0 TS 

REF  2 Last  196  05,3172  0 4^47  1 TC 

REF  39  Last  263  05,3173  0 5605  1 TC 

REF  1 05,317A  3 3210  1 CAF 

REF  6 last  263  05,3175  7 0311  o MASK 

REF  3 LAST  256  05,3176  0 4521  0 TC 
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MONSAVE 

ENTRET 

ZERO  THE  KILL  MnNITOR  BIT 

lodsampt 

MONSAvEI 

+ 4 

♦ 3 

KILLMON 

KILLMON 

MONDEL 

CALLED  by  WaitLtST 

time  is  SNATCHED  IN  RUPT  FOR  NO.jN  65 

IF  KILLER  BIT  = 0,  FNTER  REQUESiS 

IF  KILLER  bit  = 0,  ENIER  REQUESiS 

IF  KILLER  bit  = 1,  NO  REQUESTS 

IF  KILLER  BIT  = 1,  NO  REQUESTS 

WAITLIST 

OSPCOUNT 

MuNREU 

ENTER  WAITLIST  REQUEST  TOR  MONReQ 

CHRPRIO 

NOVAC 

OSPCOUNT 

MONOO 

TASKOVER 

enter  exec  requfst  for  MONDO 

Zero 

zero  MONSAVE  ANn  TURN  KILLER  BIT  OFF 

MONsAvE 

MONSAVEI 

TASKOVER 

TURN  OFF  KILL  MONITOR  BIT. 

144 

FOR  1 sEc  MONiTr.R  I^TERVALS 

MONSAVEI 

♦ 4 
+ 3 

endofjob 

ENDOFJOB 

DSPLOCK 

called  by  exec 

IF  KILLER  BIT  = 0,  CONTINUE 

IF  KILLER  BIT  s 0,  CONTINUE 

IN  CASE  terminate  CaMe  SINCe  LAST  MONREQ 
IN  CASE  terminate  CAME  SINCE  LAST  MONREQ 

MONBUSY 

NVSUB  IS  BUSY 

L0W6 

MONSAVE 

NVSUB  IS  AVAII able 

NVTEMP 

NVSUBMON 

ENDOFJOB 

place  noun  INTO  NOUnReG  AND  DISPLAY  IT 

IN  CASE  OF  ALaRn  DURING  DISPLAY 

MONMASK 

MONSAVE 

rights 

CHANGE  MONITOR  VERB  TO  DISPLAY  VERB 

^SSgS'^A  YJt  SYSieM  f-OR  AGC;  NEW  PRO^RA.M  SHePATIN  BY  eYLeS 


L PINBaLL  GAMt  BUTTONG  aUD  LIGHiTB 


1683  REF  3 last  o3  06,317?  6A  020  1 TS  CYR 

168A  REF  A LAST  26A  06,3200  56  020  0 XCH  CYR 


1685 

REF 

18 

LAST 

262 

1686 

Rr  F 

1 

1687 

REF 

5 

LASI 

263 

1688 

REF 

23 

LAST 

262 

1689 

REF 

5 

LAST 

263 

1690 

REF 

139 

LAST 

262 

1691 

REF 

1 

06»320l  5A  -?72  1 TS 

06.3202  3 3211  o CAF 

06.3203  6A  126  0 T5 

06,320A  i,  7^37  i CS 

05.3205  7 0312  0 MASK 

05.3206  6A  146  0 TS 


06,3207  0 2O37  1 ENOMONDO  TC 


VERBREG 

MoNBACK 

ENTRET 

BIT15 

MONSAVEl 

MPAC  +2 

TESTNN 


1692  REF  1 


1693  REF  1 4424 

1694  REF  7 LAST  263  4425 

1695  REF  4 last  263  4426 

1696  REF  3 last  263  442? 

1697  443O 

1698  REF  40  LaSI  263  4431 


4424  SETLOC  ENDRMODF 

3 4A32  0 PASTEVB  CAF  MlDSIX 

7 0311  0 vtAS<  MONSAVE 

64  113  0 TS  NvTfMP 

0 4A47  1 IC  NVSUBMON 

0 4A3I  0 IC  +1 

0 5605  1 ENDPASTE  IC  ENDOFJOfa 


1699 


443I;  07?00  1 MIDSIX  OCTAL  0/700 


1700  REF  1 

1701 

1702  REF  1 

1703  REF  1 

1704  REF  41  last 


06,3210 

06»32ll 

O6O2U 
264  05,3213 


05*3210 

00?00  0 MONMASX 

34424  1 MONBACK 

0 4570  1 MONBUSY 
0 56O5  1 


SETLOC  ENDMONDO  +1 
OCT  700 

ADRES  PASTEVB 

TC  RELDSPON 
TC  ENDOFJOB 


R1705  DSPFMeM  is  jSeD  TO  DiSf^LAY  (iN  OCTAL)  ANY  FiXEO  REGISTER. 

R1706  it  KS  USEO  ^.ITH  NOUN  = MACHl\l=  CAUR  TO  BE  SPeCIIIED.  tHe  FCADR  OF  THE 
R1707  OeSIReU  location  IS  THlN  PUNCHtO  IN,  IT  HANDLES  F/F  ( FCAUR  4000-7777) 

1708  REF  ? LAST  2S2  05,3214  3 a5i6  1 DSPFMEM  CAF  RiDi 

1709  REF  32  LASI  263  05,3215  54  K70  0 TS  DSpCOUNT 

1710  REF  6 last  262  05,3216  3 0^10  0 CA  NoUNCADR 

1711  RFF  I 06,321?  0 5267  1 1C  DATACALL 

1712  REF  3 last  246  06,3220  D 0 TC  DSPOCTWD 

1713  REF  42  LAST  264  06,3221  0 56O5  1 TC  ENDOFJOB 
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USER'S  OWN  PaGf  no.  46 


Set  return  to  pastevb  after  data  display 


PUT  ECADR  into  MPAC  +2.  INTMCTBS  WILL 
DISPLAY  IT  AND  aET  NOUNCADR,  NOJNADD, 
EBANK. 


PLACE  MONITOR  VpRB  INTO  VERBREG  AND 
DISPLAY  IT. 

IN  CASE  OF  ALARM  DURING  DISPLAY 


TURN  key  release  LIGHT 


IF  F/F,  DATACALI  USES  BANK  O2  OR  03* 
original  FCADR  1 OADfD  STILL  IN  NOUNCADR. 
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Pl714 

R1715 

1716 

1717 

1718 

1719 

1720 

1721 

1722 

1723 

1724 

1725 

1726 

1727 

1728 

1729 

1730 

1731 

1732 

1733 

1734 

1735 

1736 

1737 

1738 

1739 

1740 

1741 

1742 

1743 

1744 

1745 
1 746 

1747 

1748 

1749 

1750 

1751 

1752 
1 753 

1754 

1755 

1756 

1757 

1758 

1759 


PINBALL  GAMfc  BUTTONS  aND  LIjRTS 

osPOLCrtU  Converts  cimpao  c{Mpac  +i)to  a sign  and 
starting  in  LOC  SPLCiFiED  in  3S=CUUnT 

REF  4 last  260  04*3117  SETLOC 


REF  107  LASI  261 
REF  1 

REF  140  LAST  264 


REF  59  last  262 
REF  141  LASI  265 
REF  2 LASI  231 
REF  142  LASI  265 

REF  2 last  231 
REF  143  LAST  265 
REF  1 

REF  144  LAST  265 
REF  76  LAST  263 
REF  145  LASI  265 
REF  1A6  LASI  265 

REF  13  LASI  259 
REF  197  last  265 
REF  1 48  LAS  I 265 
REF  3 LASI  138 
REF  1 

REF  2 LAST  233 
REF  4 LAST  250 
REF  149  LAST  265 

REF  3 LAST  228 
REF  9 LASI  256 
REF  5 LAST  235 
REF  77  LaSI  265 
REF  150  LAST  265 
REF  151  LAST  265 
REF  152  LAST  265 
REF  33  LAST  264 
REF  3 last  235 
REF  167  LAST  262 
REF  34  LAST  265 
REF  3 LAST  235 
REF  2 LAST  265 
REF  1 

REF  5 LAST  255 
REF  35  last  265 
REF  2 last  265 


31  IT 

3120 

3121 


55  002  0 
54  105  1 
10  144  1 


DSPDECwD  XCH 
TS 
CCS 


04 

04 

04 

Oh 

04 

04 

04 

04 

04 

04 

04 

04 

04 

04 

04 

04 

04 

04 

04 

04 

04 

04 

04 


3122 

3123 

3124 

3125 

3126 

3127 

3130 

3131 

3132 

3133 

3134 

3135 

3136 

313  7 

3140 

3141 

3142 

3143 

3144 

3145 

3146 

314  7 
3150 


0 3131  1 
0 3131  1 
6 7755  1 

54  I44  1 
0 2321  0 
4 OI45  0 

0 3133  0 

0 2301  1 

55  I45  1 

6 3172  0 

54  I45  0 
3 7761  0 
6 OI44  0 

54  I44  1 

0 3144  0 

3 7735  1 
54  I44  1 
54  I45  0 
3 7753  1 
54  127  1 
3 4557  1 

0 7351  1 

50  I44  0 


TC 

TC 

AD 

TS 

TC 

cs 

TC 

TC 

XCH 

AD 

TS 

CAF 

AD 

IS 

TC 

CAF 

TS 

TS 

CAF 

DSPDCWDl  TS 
CAF 
TC 

TRACEl  INDEX 


04 

04 

O4 

04 

04 

04 

04 

04 

04 

04 

O4 

04 

O4 

04 

04 

04 

04 


31  5I 

3152 

3153 

3154 

3155 

3156 
315  7 

3160 

3161 

3162 

3163 

3164 

3165 

3166 

3167 

3170 

3171 


3 4^67  0 
7 4545  0 

54  1 l4  1 

3 7761  0 

55  l46  1 
55  I45  1 

54  I44  1 

55  270  1 
54  I33  1 
10  OOO  0 
54  470  0 
0 3217  0 

10  127  1 

0 3145  1 

4 4554  0 
54  270  0 
0 0105  0 


CAF 

vlASK 

TS 

CAF 

XCH 

XCH 

TS 

XCH 

TRACElS  TS 
CCS 
TS 
TC 
CCS 
TC 
CS 
, TS 
TC 


04,3172  02476  0 DECROUND  DCT 


1760 
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USERiS  OWN  PAGf  NO.  47 


CHAR  decimal 


TESTOFUF  +4 

Q USES  SHORTMP  THROUGHOUT 

WURET  CANT  USE  L FOR  RETURN, +0N  USES  l._ 

MPAC 


+ 7 
+ 6 

ONE 

MPAC 

-ON 

MPAC  +1 
+ 3 

♦ ON 

MPAC  +1 

DECROUND 

MPAC  +1 

ZERO 

MPAC 

MPAC 

♦ 4 

POSMAX 

MPAC 

MPAC  +1 

FOUR 

WUCNT 

BlNCON 

SHORTMP 

MPAC 

RELTAB 
LOW  5 
CODF 
ZERO 

MPAC  +2 

MPAC  +1 

MPAC 

DSPCOUNT 

COUNT 

A decrement  DSPCOhNT  EXCEPT  AT  +0 

DSPCOUNT 

DSPIN 

WDCNT 

DSPDCWDl 

yui 

DSPCOUNT 

WDRFT 


02476 
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L pinball  game  buttons  and  lIGhiTS  USER'S  OWN  PAGp  NO. 

R1761  DSP2DeC  CONVERTS  C(MPAL)  AND  :(V|PAC+1)  INTO  A SION  AND  10  CHAR  DECIMAL 
R1762  starting  IN  THE  LOC  SPECIFIED  IN  DsrcqUNT. 


1763  REF  108  LAST  265  0A,3173 

176A  RcF  3 LASI  2b5  04,317^ 

1765  REF  78  LAST  265  04,31755 

1766  REF  6 LAST  265  04,317^ 

1767  REF  12  LAST  237  0a,317T 

1768  REF  3 LAST  231  04,3200 

1769  REF  4 LAST  265  04,3201 

1770  REF  4 last  266  04,3202 

1771  REF  153  LAST  265  04,3203 

1772  04,3204 

1773  04,320S 


56  P02  0 DSP2DEC  XCH  0 

54  105  1 TS  WDRFT 

3 7Y61  0 CAF  ZERO 

54  114  1 TS  CODE 

3 6301  0 CAF  THRFF 

0 3301  0 TC  llDSPIN 

3 7153  1 CAF  FOUR 

0 3301  0 TC  llDSPIN 

10  144  1 CCS  MPAC 

0 3'^14  0 TC  +8D 

0 3214  0 TC  *7 


MUST  USE  same  RfTURN  AS  DSPDeCWO 

-R2  OFF 
+R2  OFF 


1774 

1775 

1776 

1777 

1778 

1779 

1780 

1781 

1782 


REF  60  LASl  265  04,3200 

REF  154  LASl  266  04,3207 

REF  3 last  265  04,321^ 

REF  155  last  266  04,3211 

REF  156  LAST  266  04,3212 

04,3213 

REF  3 LAST  265  04,321^ 

REF  3 last  242  04,3213 

REF  2 last  265  04,3216 


6 7T55  1 AD  ONE 

54  144  1 TS  MPAC 

0 2321  0 TC  -ON 

4 0145  0 CS  MPAC  +1 

54  145  0 TS  MPAC  +1 

0 3215  1 TC  +2 

0 2301  1 TC  +0N 

3 4317  0 CAF  RZDl 

0 3I45  1 END2DEC  TC  DSPDCwDl 


1783  ref  2 LAST  239  05»3222  SETLOC  DSPFMEM  +6 

Rl7b4  DSPoLiWU  DISPLAYS  C(A)  UPoN  ENTRY  AS  A 5 CHAR  OCt  StARTINo  TN  THe  DSP 

R1785  char  SPi-XIFieD  IN  DSPCuUNl  . Il  STUPS  AFTER  5 CHAR  HAVE  BeeN  DISPLAYED. 


1786 

REF 

7 

LAST 

262 

05,3222 

1787 

REF 

109 

LAST 

266 

05,3223 

1788 

REF 

4 

LAST 

266 

05,322W 

1789 

REF 

23 

Last 

173 

05,3225 

1790 

REF 

36 

LAST 

2 65 

05,3226 

1791 

REF 

5 

LAST 

266 

05,3227 

1792 

REF 

3 

LAST 

265 

05,3230 

34  D22  0 D5P0CTWD  TS  CYL 

56  D02  0 XCH  Q 

54  105  1 TS  WURET 

3 7740  0 CAF  BITI4 

26  270  0 ADS  DSPCOUNT 

3 7753  1 CAF  FOUR 

54  127  1 WDAGAIN  TS  WDCNT 


MUST  USE  SAME  RETURN  AS  DSPZbIT. 
TO  BLANK  SIGNS 


1793 

1 7 0 A 

REF 

ore. 

8 

LAST 

266 

05,3231 

4 0022 

0 

i f VH 

Kc.r 

9 

LASl 

266 

05 ,3232 

4 OO22 

0 

1795 

REF 

10 

LAST 

266 

05,3233 

4 0022 

0 

1796 

REF 

168 

LAST 

265 

05,323^ 

4 0000 

0 

1797 

REF 

1 

05 , 3233 

7 7 /57 

1 

1798 

REF 

169 

LAST 

266 

05,3236 

30  Ooo 

1 

1799 

1 0 nn 

REF 

4 

T A 

LAST 

265 

05,323/ 

3 4267 

0 

i 0 uu 

REF 

i u 

LAST 

265 

05 ,3240 

7 4345 

0 

1801 

REF- 

7 

LAST 

266 

05,3241 

5 4 114 

1 

1802 

REF 

37 

LAST 

266 

05,3242 

56  270 

1 

1803 

REF 

4 

LAST 

265 

05,3243 

54  I33 

1 

1804 

REF 

170 

LAST 

266 

05,3244 

10  000 

0 

1805 

REF 

38 

LASl 

266 

05,3243 

54  270 

0 

CS  CYL 

CS  CYL 

CS  CYL 

CS  A 

MASK  DSPM5K 

INDEX  A 

CAE  RELTAB 

MASK  L0W5 

TS  CODE 

XCH  DSPCOUNT 

TS  COUNT 

CCS  A decrement  DSPCOUNT  EXCEPT  AT  +0 

TS  DSPCOUNT 


48895^A  YJL  SYSTCM  FOR  AGC;  NEW  PRO^iRA'^  S^tPATlN  BY  EYLt.S 


L pinball  gaM[-  buttons  and  LI 


1806 

1807 

1808 

REF 

REF 

REF 

19 

1 

A 

LAST 

LASi 

259 

266 

05 ,32A6 
05.32A7 
05,3250 

1809 

REF 

1 

05 .3251 

1810 

REF 

6 

LAST 

2 65 

05.3252 

1811 

REF 

39 

LAST 

LAST 

266 

05.3253 

1812 

REF 

5 

266 

05 .325A 

1813 

REF 

7 

Last 

138 

Hits 

0 1 TC  POSTJUMP 

11A07  0 CADR  DSPOCTIN 

13  ^27  1 OCTBACK.  CCS  WOCNT 

0 3^30  0 TC  WDAGAIN 

h AP5A  0 DSPLV  CS  VUl 

SA  <^70  0 IS  DSPCOUNT 

0 0105  0 TC  WORET 

7757  DSPMSK  = SEVEN 


R181A  d5P2BIT  ylSpLAyS  C(A)  UPON  ENIRy  A 2 CrAR  OCT  BEGINNING  IN  ThE  dSP 

R1815  LOC  SPeCIEIeD  IN  DSPCoUnt  BV  3Re  CYCLING  RIGHT  C(A)  AND  USING  THe  LOGIC 

R1816  0-  the  5 CHAR  OCTAL  DISPLAY 


1817  REF  5 last  26A  05,325S  5A 

1818  REF  110  LAST  266  05.3256  56 

1819  REF  6 last  267  05.3257  5A 

1820  REF  61  Last  266  05.3260 

1821  REF  5 LAST  267  05.3261 

1822  REF  6 LAST  267  05.3262 

1823  REF-  ! LAST  267  05,3263 

182A  REF  8 LAST  267  05.326^ 

1825  REF  11  LAST  266  05.326^ 

1826  REF  2 LASI  267  05.3266 


020 

1 DSP2BIT 

TS 

CYR 

002 

0 

XCH 

Q 

105 

1 

TS 

WDRFT 

CAF  ONE 

TS  WUCNT 

CS  CYR 

CS  CYR 

XCH  CYR 

1 S CYL 

TC  WDAGAIN  +5 


3 7155  1 
5A  127  1 
A OO2O  1 

A OO2O  1 
55  020  0 
5A  022  0 

0 3*135  0 


R1827  FOR  DSPlN  PLACE  0/25  oCT  INTO  CoUNt*  5 Bli  RELAY  CODE  INTO  CODE.  BqtH 

R1828  ARE  destroyed.  IF  BITIa  OF  COJNI  IS  1,  SIGN  IS  BLANkEO  WITH  LEFT  CHAR. 

R1829  for  DSPINI  PLaCL  0.1  IIITO  BItiI  O'"  CODE.  2 INTO  COUNT,  REL  ADDRESS  OF 
R1830  DSPTA3  ENTRT  INTO  DSREL. 

1831  REF  1 jA»3217  SETLOC  END2DEC  +1 


1832 

1833 

REF 

REF- 

111 

1 

LAST 

267 

OA.3217 

0A,3220 

56  002 
5A  lOA 

0 

0 

1 83  A 

REF 

1 1 

LAST 

2 66 

0A,322l 

3 ASA5 

1 

1835 

REF 

5 

LAST 

2 66 

0a,3222 

7 01 33 

1 

1836 

1837 

REF- 

REF 

15 

16 

LAST 

LAST 

255 

267 

Oa  ,3223 
0A,322A 

5A  O21 
55  O21 

0 

1 

xCH  a 

TS  DSEXIT 

CAF  L0W5 
viASK  COUNT 
TS  SR 

XCH  SR 


1838  REF  1 Oa.3223  5A  131  O 

1839  REr  21  last  20A  0A,3226  3 7T55  1 
18A0  REF  6 LASI  267  0A,322T  7 Ol33  1 
18A1  REF  171  last  266  0a,3230  13  OOO  0 
18A2  0A,323l  0 3233  0 
18A3  REF  1 0A,323E  0 32A3  1 
18AA  REF  8 last  266  0a,3233  5fa  llA  0 
18A5  REF  1 0a,323A  0 aB37  1 


IS  DSREL 

CAF  BlTl 

MASK  COUNT 

CCS  A 

1C  +2 

TC  DSPINI  -1 

XCH  CODE 

TC  5LLFT5 


DEC  U.  I966  (MAIN)  PAGE  267 


USER'S  OWN  PaGf  no.  A9 


+ 

TO  BLOCK  NUMERICAL  CHARACTERS,  CLEARS. 
AND  SIGNS  AFTER  A COMPLETED  DISPLAY. 


CANT  USE  L AS  RrTURN.  UPDATNN  USES  L. 


CANT  USE  L FOR  RETURN,  SINCE  MANY  OF  THE 
ROUTINES  CALLING  DSPIN  USE  L AS  RETURN. 


LEFT  IF  COUNT  IS  ODD 
RIGHT  IF  COUNT  IS  EVEN 

DOES  NOT  USE  CYl 


YJL  SVS'itM  rOR  aGC;  NhW  PRO'^^AM  sH^PATIN  by  tVLi-S 
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L PINBaLL  GaM(,  buttons  and  Li  Buis 

1846  REF  y LAST  267  04i323B  34  il4  1 IS  CuDF 

1847  REF  24  LAST  266  04,3233  3 7^40  0 CAF  B1T14 


1848 

REF 

1849 

1850 

1851 

REF 

REF 

REF 

REF 

1852 

A1853 

A1854 

1855 

1856 

1857 

REF 

REF 

1858 

1859 

1860 

REF 

REF- 

1861 

1862 

1863 

REF 

REF- 

REF 

1864 

1865 

1866 

REF- 

1867 

1868 

1869 

1870 

REF 

REF 

REF 

REF 

7 LAST  267  04,323?  7 Oi33  1 

172  LAST  267  04,324°  10  OOO  0 

31  LAST  262  Oh, 3241  s 7(54  0 

62  LAST  267  04,3242  6 7?53  1 

8 last  268  04,3243  54  l33  1 


MASK  COUNT 

CCS  A 

CAF  Two 

AD  ONE 

TS  COUNT 


2 last  267 
31  LAST  236 

7 LAST  262 
63  LAST  268 
1 

9 Last  268 
1 

10  LAST  268 
1 

10  LAST  268 

2 last  268 

2 LAS!  268 


04 

Oh 

Oh 

04 

04 

04 

04 

04 

04 

04 

Oh 

04 

Oh 

Oh 

04 

Oh 


3244 

3245 
3243 
324? 

3250 

3251 

3252 

3253 
325A 
3255 
3253 
325  ? 

3260 

3261 

3262 

3263 


0 0004  0 
50  131  1 
10  313  1 
0 3251  1 

0 4?25  0 

6 7?55  1 
54  132  0 
50  133  0 

7 3275  0 
0 0006  1 
60  114  0 
0 0006  1 

1 3273  0 

50  133  0 
4 3275  0 
7 OI32  0 


D5PIN1 


DFRNT 


inhint 

INDEX  DSRFL 
CCS  DSPTAB 
TC  +2 

TC  CCSHOLE 
AD  ONE 

IS  DSMAG 

INDEX  COUNT 
MASK  DSMSK 
EXTEND 
5U  CODE 

EXTEND 
3ZF  DSLY 
INDEX  COUNT 
CS  DSMSK 
MASK  DSMAG 


1871 

REF 

11 

LAST 

268 

04  0264 

18  72 

REF 

173 

LAST 

268 

Oh  , 3265 

1873 

REF 

3 

LAST 

268 

04,3266 

1874 

REF- 

32 

LAST 

268 

Oh, 326  ? 

1875 

Oh, 327° 

1876 

REF 

2 

LAST 

268 

Oh, 3271 

1877 

REF 

6 

LAST 

236 

04,3272 

1878 

Oh , 3 2 7 3 

1879 

REF 

2 

LAST 

267 

Oh, 3274 

6 0114  0 AD  CODE 

4 OOOO  0 CS  A 

50  131  1 INDEX  DSRFL 

5b  313  0 XCH  DSPTAB 

0 OOO6  1 EXTEND 

6 3273  1 3ZMF  DSLV 

24  307  0 INCR  NOUT 

0 0003  1 DSLV  RELINT 

0 0104  1 TC  DSEXIT 

DSMSK  OCT  37 

OCT  1740 

OCT  2000 

OCT  3740 


1880 

Oh, 3275 

00037 

0 

1881 

04,3276 

01  740 

0 

1882 

04,327-? 

O2OOO 

0 

1883 

Oh, 3300 

03  ?40 

1 

USER'S  OWN  PAGf  NO-  50 


BITI4  = 1,  blank  sign 

DIT14  = 0,  LEAVf-  sign  ALONE 

+0  into  count  For  right 

+1  into  count  FnR  Left (SIGN  left  alone) 

+3  into  count  for  Left  (to  blank  sign) 


IF  + 


if- 


same 

MASK  WITH  77740.76037,  UR  75777 


DSPTAB  ENTRY  WAS  - 
DSPTAB  ENTRY  WAS  + 


Ri88a  For  IIDSPIN*  PUT  ReL  AUUReSSs  oF-  USPtaB  entry  into  A»  1 IN  Blril  OR  0 IN 
R1885  BITll  OF  CODE. 


1886 

REF 

4 

LAST 

268 

04,3301 

1887 

REF 

32 

LAST 

268 

04,3302 

1888 

REF- 

11 

LAS1 

268 

04,3303 

1889 

1890 

REF 

REF 

112 

3 

LAST 
LAS  I 

267 

268 

04.3304 

04.3305 

54  131  0 llDSPIN  TS  DSRFL 

3 7?54  0 CAF  TWO 

54  133  1 TS  COUNT 

5b  002  0 XCH  Q 

54  104  0 TS  DSEXIT 


MUST  USE  same  RfTURN  AS  DSPIN 
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L PifjBALL  GAMf  BUTTONb  rtj4D  LIGHiTS  USER'S  OWN  PAGp  NO.  51 

1891  REF  2 LASl  267  0A.3'i06  0 0 TC  DSPINl 


1892 

1893 

REF 

A 

EASi 

265 

189A 

1895 

REF 

REF 

9 

1 

LAST 

258 

OW.33o7  0 32l7  0 
0a,3310  3 3312  1 
0A,33li  0 ,1 
0A,33l^  13^50  1 


DSPOCTIN  TC  DSPIN 

CAF  *2 

TC  BaN<JUMP 

ENDSPOCT  CADR  OCTBACK 


SO  DSPOCTWD  DOEaNT  USE  SWCALL 


R1896  DSPbLAr,  FI\US  TC  NVSJBEmU  1n  E\,TKET  FOr  \|VSUB  ],m]IiATED  rOUTinEs* 
R1897  A30RT  WITH  01501. 

R1898  DSPALARfi  FINDS  IC  ENDOFJOB  IN  ENT*^ET  FOR  AeVBOARD  INITIATED  ROUTINES, 
Risgg  DO  TC  El. TRET. 


1900  REF  5 last  2a2  0a.3313  3 

1901  REF  6 last  26A  0A,331A  5A 

1902  REF  A Last  197  0a,331S  D 

1903  REF  1 0A.331B  A 

190A  REF  7 LAST  252  0a,331Y  b 

1905  0a,3320  0 

1906  0i»,332l  1 

1907  REF  8 LASI  269  0a,3322  0 

1908  REF  3 LAST  1A6  0a,3323  0 

1909  0A,332A  0 

1910  REF  1 0A.332S  0 


AA7A 

1 

charalrm 

CAF 

ENDINST 

126 

0 

TS 

ENTRET 

A560 

0 

dspalarm 

TC 

falton 

3325 

1 

cs 

nvsbendl 

0126 

1 

AD 

entfxit 

OOOb 

1 

EXT  End 

3323 

1 

32F 

+ 2 

0126 

1 

TC 

ENT  EXIT 

6000 

1 

T C 

ABORT 

1501 

1 

OCT 

01501 

AA53 

1 

nvsbendl 

TC 

NVSUBEND 

alarms  which  must  Dn  ENDOFJOBS  COME 
Here,  allows  fNtRet  to  be  temp  frasable 

TURN  ON  operator  ERdOR  LIGHT 


NVSUB  INITIATFD.  ABORT 
NOT  NVSUB  initiated. 


R1911 

mmchang 

USES 

NOUN 

Display  until  enter,  then 

IT 

Uses  mode  disp. 

R1912 

IT  goes 

TO  ' 

ODROUT 

with  the  new  m m code  in 

A, 

BUT  not  displayed 

IN 

R 19 1 3 

'I  R uiiohi:^# 

191A 

REF  2 

LAST 

2A3 

05»3267 

SETLoC  DSP2BIT 

+ 10D 

1915 

1916 

1917 

1918 

1919 

1920 

1921 

1922 

1923 
192A 
1925 


REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 


1 05,326Y  0 34502  0 MMCHANo  TC 


79  LASl  266  05,3270  3 7^61  0 CAF 

fa  last  262  05,3271  56  <173  1 XCH 

157  LASl  266  05,3272  5A  lAA  1 TS 

3 LAST  2A2  05,3273  3 a555  0 CAF 

AO  LAST  267  05,327^  5A  270  0 TS 

21  LASl  2A8  05,3273  0 522A  0 TC 

A last  235  05,3276  10557  1 CADR 

15b  LASl  269  05,3277  3 OUA  0 CA 

20  LAST  267  05,3300  0 S^AS  1 TC 

1 05,3301  11315  0 CADR 


REQMM 

ZERO 

NOUNREG 

MPAC 

NUl 

DSPCOUNT 

BANKCALL 

2BLANK 

MPAC 

POST JUMP 
MoDROUTB 


GO  THRU  standard  LOC, 


48895^A 


L 

1926 

1927 

1928 

1929 

1930 

1931 

1932 

1933 
193A 

1935 

1936 


R1937 

R1938 

R1939 

R19A0 

R19A1 

R19A2 

1943 

1944 

1945 

1946 

1947 

1948 

1949 

1950 

1951 

1952 

1953 

1954 

1955 

1956 

1957 

1958 

1959 

1960 


1961 

1962 

R1963 

R1964 

R1965 

R1966 

R1967 

R1968 


YJL  SYSiL'M  FOR  A(jC  : NhW  PRO'jRAM  SI'I£PATIN  BY  hYLtb 


Dec  1966  (MAIN)  PAtiE  270 


pinball  game  buttons  and  lights 


user's  own  Page  no* 


ref  11  last  26l 

REF  113  LASl  268  05*3302 
REF  9 LASl  242  05.3303 
REF  4 LASl  269  05.3304 
REF  Hi  LAST  269  05.330S 
REF  bO  LASl  269  05.330t> 
REF  9 LASl  269  05.3307 
REF  22  LASl  269  05.3310 
REF  5 LAST  269  05,33ll 
REF  5 LASl  242  05,33l2 
REF  9 LASl  269  05,3313 


04*3315  MODROUTB  = 

A 0002  1 REQMM  CS 


54  304  1 TS 

3 4S55  0 CAF 

54  470  0 TS 

3 7(61' 0 CAF 

54  473  0 TS 

0 5424  0 TC 

10S57  1 CADR 

0 4011  0 TC 

0 0126  1 1C 


DSPALARM  lutFIX  LATERini 

0 

REQRFT 

NDl 

DSPCOUNT 

ZERO 

NOUNREG 

BANKCALL 

2BLANK 

FlASHON 

ENTEXIT 


VSrOEXEc.  enters  request  to  tx-c  FOR  ANy  AqorESS  iHiTh  ANy  PRIORITY* 
IT  DOES  ENDOFjOB  AFTER  ENTeRI T5  REQUEST.  DISPLAY  SYST  IS  REI  EASED. 

IT  ASSUMES  \OUN  26  HAS  BEEN  ?R£'-OADeD  WITH 

COMPONENT  1 PRIORITY (BITS  10-14)  BlTl=0  FOR  NOVaC,  BIT1=1  FOR  FINDVAC. 
COMPONENT  2 JOB  ADRES  (12  Bli  ) 

COMPONENT  3 BBCON 


IF  bill  = 1 , FInDVAC 
IF  Bill  = 0,  N0\.AC 

TC  NOVAC  OR  TC  FINDVAC  INTO  MPAC 


PRIO  INTO  MFAC+4  as  A TEMP 


TC  ENDOFJOB  INTr,  MPAC  + 3 

JOB  ADRES  INTO  n.PAC  + 1 
BBCON  into  MPAC+2 
PRIO  IN  A 


RnF  IbH  LAST  270  05.333S  0 0l44  0 TC  MPAC 

REF  1 05.3336  3 4S51  1 SETVAC  CAF  TCFINUVC 

REF  1 05.3337  0 3321  1 1C  REOEXl 

V3RCJWAII  enters  request  TO  WAliLlBr  FOR  ANY  ADDRrSS  WITH  ANY  DELAY. 
IT  DDES  EN[)OFJOB  AFTER  ENTERING  REQUEST . D I SPlAY  SyST  IS  RELEASED* 

IT  ASSUMES  NOUN  26  HAS  BEEN  PRElOADeD  WITH 
component  1 delay  (LOW  BITS) 

COMPONENT  2 TASK  ADRES  (12  311) 

COMPONEI.T  3 BBCON 


REF  22  LASl 
REF  4 LAST 
REF  1 ?4  LAS! 
REF  1 
REF  1 
REF  159  LASl 
REF  23  LAST 
REF  5 last 
REF  160  LASl 
REF  4 LASl 
RcF  6 LAST 
REF  161  last 


267 
206 

268 


269 

270 
270 
270 
239 

269 

270 


REF  6 last  270 
REF  162  last  270 
REF  163  LAST  270 


05,3314 

05,3313 

05.3316 

05.3317 

05.3320 

05.3321 

05.3322 

05.3323 

05.3324 

05.3325 

05.3326 
05,332  f 
05,333D 

05.3331 

05.3332 

05.3333 

05 .333A 


3 7(55  1 
7 0337  1 
10  000  0 
0 3336  1 

3 5(41  0 
54  I44  1 

4 7(55  0 
7 0337  1 
54  150  1 

0 4655  0 

3 4474  1 
54  I47  1 
0 0006  1 
3 0341  1 
52  146  0 
3 OI5O  0 
n nOnn.  n 


VBROEXEC  CAF 
MASK 
CCS 
TC 
CAF 

REQEXl  TS 
CS 

MASK 

TS 

REQUESTC  TC 
CA 
TS 

extend 

OCA 

OXCH 

CA 

INHIiNT 


BIT  1 

DSPTFMl 

A 

SETVAC 

TCNOVAC 

MPAC 

BITl 

DSPTFMl 

MPAC 

RFLDSP 

ENDINST 

MPAC 


+ 4 


+ 3 


DSPTEMl  +1 
MPAC  +1 
MPAC  +4 


48895^A  YJL  5YS11.M  FOR  AGC : Nl^W  PROCiRAVl  S^^tPATlN  BY  bYLtS 


DbC  1^,  1966  (MAIN)  PAGb  27l 


L pinball  GAMb  BUTTONS  AfJL  LIGHTS 


USbR'S  OwN  PAGF  NO.  S3 


1969 

REf 

1 

05,3340 

3 4550 

0 

VBROWAIT 

CAF 

TCWAIT 

1970 

REF 

1 65 

LAST 

270 

05,3341 

54  144 

1 

TS 

MPAC 

1971 

1972 

REF 

REF 

7 

1 

LASI 

270 

05.3342 

05.3343 

3 0337 

0 3324 

0 

1 

ENDROWT 

CA 

TC 

DSPTFMl 
REOUFSTC  -1 

TC  WAITLIST  INTO  MPaG 
TIME  DELAY 


R1973  REOUeSTC  WILL  PUT  TAS<  ADRE^  INIO  MPaC+I*  BBCON  INTO  MPAC+2« 

R197A  T:  ENDObJOB  INTO  MPAc+3.  TT  WILL  'AKE  TIME  DLlAY  OUT  OF  MPAc+A  ANu 
RI975  leave  II  IN  A*  INHIN'I  AND  tC  WPAC. 


1976  rEF  2 LASI  269  0A»3326  sETlOC  NVSBEnDL  +1 

1977  REF  6A  LAST  268  0a,332P  3 T^5  1 V3PR0C  CAF  ONE  PROCEED  WITHOUT  DATA 

1978  REF  2 LAST  2S5  Ca,332Y  SA  AQs  o TS  LUADSTAT 

1979  REF  S LASI  270  0a,333O  0 At>55  0 TC  RELDSP 

1980  REF  3 LASI  237  0A,333i  0 APIS  1 1C  FLASHUFF 

1981  REF  2 LASI  255  Oa,3332  0 3^40  1 TC  ReCALTST  SEE  IF  THERE  IS  ANY  RECALL  FROM  ENDIDLE 


1982  ref  1 oA*3333  q 4^55  1 VBTERM  TC  KILMONON  TURN  ON  KILL  MONITOR  Bl  | 

1983  REF  65  LASI  271  04,333A  4 7^55  0 CS  ONE 

1984  REF  2 LAST  240  04*3335  0 3^27  1 TC  V6PR0C  +1  TERM  VERB  SETS  i OADSTAT  NEG 


R1985  FI-ASH  IS  TURNED  OFF  ONLY  BY  PROCEED  WITHOUT  DaTa*  TERMINATE.  END  OF  LOaD 


R1986  VBReLDSP  TURNS  OFF  RbLbASb  D] SPlaT  SYSTEM  LIGHT (aND  SeARCHeS  LIST  ONLY 
R1987  IF  this  light  WAS  TURNED  oN  3lf  NVOUBUSY),  AND  TURNS  OFF  UPACt  LIGHT. 


1988 

REF 

15 

last 

21P 

04,3336 

4 7(53 

0 

VBRELDSP  CS 

BIT3 

1989 

0 4 , 3 3 3 T 

0 0006 

1 

Extend 

1990 

REF 

D c n 

4 

LAST 

233 

04,3340 

03  011 

1 

^jAND 

DSALMOUT 

199  1 

Kcr 

6 

LAST 

271 

O4 ,3341 

0 4P55 

0 

t c 

RbLDSP 

1992 

REF 

43 

LAST 

264 

04,3342 

0 5P05 

1 

TC 

ENDOFJOB 

TURN  OFF  UPACT  I IGHt 
SEARCHES  LIST 


R1993 

1994 

1995 

1996 

1997 

1998 

1999 

2000 


BJI1P  SHIFTS  WORE)  DISPLAYED  IN 


REF 

REF- 

4 

42 

LAST 

LASI 

253 

270 

04,3343 

04 ,334A 

REF 

1 2 

LAST 

268 

O4 , 3345 

REF 

66 

LAST 

271 

04,334P 

REF 

13 

LAST 

271 

04,334'i' 

REF 

14 

LAST 

271 

O4.335O 

REF 

17 

LAST 

267 

04,3351 

r2  1 0 r3  * 

3 7(60  1 
54  270  0 
54  I33  1 
3 7(55  1 
7 0133  1 
56  133  0 
54  021  0 


Rl  TO  r2.  it  blanks  r1. 

BUMP  CAF  FlVF  R2D5 

TS  D5PC0UNT 

TS  COUNT 

CAF  ONE  shift  data  OF  Rp  TO  R3,  Rl  TO  Rp 

MASK  COUNT 

KCH  COUNT  +0  INIO  COUNT  IF  EVfN  (RIGHT) 

TS  SR  +1  INIO  COUNT  If  ODD  (LEFT) 


488954A  YJL  SYSTEM  FOR  AGC  : Nt.W  Pro^RA^  SHlPATIN  BY  tYLtS 


L 

2001 

2002 

2003 

200A 

2005 

2006 

2007 

2008 

2009 

2010 
2011 
2012 
2013 
201A 

2015 

2016 

2017 

2018 

2019 

2020 
2021 
2022 
2023 
202A 

2025 

2026 

2027 

2028 

2029 

2030 

2031 

2032 

2033 
203A 

2035 

2036 

2037 

2038 

2039 
20^,0 
20^1 
20a2 
20A3 
20aa 
20A5 
20A6 
20i>7 

20A8 

20A9 


PINBmLL  (jAMt  BUTTONS  AND  LloHTb 


RiF  18  last  ^71 
REF  175  last  270 

REF  33  LASI  268 


REF 

REF 

REF 

REF 

REF 


8 LAST  268 
67  last  271 

15  LAST 
3 LAST 

16  LAST 


REF 

REF 

REF 

REF 

ref 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF- 

REF 


271 
268 

272 


A last  263 
12  LAST  268 
5 LAST  271 


93  LAST 
176  LAST 
68  LAST 


271 

272 
272 


REF 
REF 
REF 
REF 
REF 
REF 

REF 
REF 
REF- 
REF 
REF 

REF  177  LAST  272 
REF  95  LAST  272 

REF  69  LAST  272 
REF  2 LAST  239 


9 LAST  272 
17  LAST  272 
5 last  269 
99  last  272 
8 last  269 


81  LAST  270 
96  LAST  272 
1 

178  last  272 
39  LAST  272 


10  LAST 

70  LAST 
20  LAST 
13  LAST 

97  LAST 

2 last 

5 LAST 

98  last 

3 LASI 
179  LAST 

99  LAST 

71  last 
1 

9 last 


272 
272 
258 
272 
272 
272 
266 
272 
2 72 
272 
272 
272 

272 


REF  50  LAST  272 
REF  3 last  292 


0^, 

09 

09 

09 

09 

09 

09 

09 

09 

09 

09 

09 

09 

09 

09 

09 

09 

09 

09 

09 

09 

09 

09 

09 

09 

09 

09 

09 

09 

09 

09 

09 

09 

09 

09 

09 

09 

09 

09 

09 

09 

09 

09 

09 

09 

09 

09 

09 

09 


3352 

3353 

335A 

3355 

3356 

3357 

3360 

3361 

3362 

3363 

3369 

3365 

3366 
336  ? 

3370 

3371 

3372 

3373 

3379 

3375 

3376 

3377 

3900 

3901 

3902 

3903 

3909 

3905 

3906 

3907 

3910 

3911 

3912 

3913 

3919 

3915 

3916 

3917 

3920 

3921 

3922 

3923 

3929 

3925 

3926 

3927 

3930 

3931 

3932 


5b  1'21  1 

50  000  1 


10  313  1 

0 3357  0 

0 9725  0 

6 7155  1 

50  I33 


7 3275  0 
50  133  0 
0 3369  0 
0 3366  1 
0 9521  0 
59  119  1 

9 7760  0 

6 0270  1 

10  000  0 
6 7755  1 
0 3375  0 
0 9725  0 


59  I33  1 
0 3217  0 

9 0270  0 
6 9516  1 

10  000  0 
5b  270  1 


6 7755  1 
0 3399  1 

3 7761  0 
59  270  0 

6 3936  0 

50  000  1 
10  313  1 
0 3919  0 
0 9725  0 

6 7755  1 

7 7793  1 
59  119  1 

50  970  1 
3 3939  1 
0 3301  0 

9 0270  0 
6 3936  0 

10  OOO  0 
56  270  1 

6 7755  1 
0 3906  0 
3 9516  1 


SwSGN 


59  270  0 
0 2519  0 


XCH 

index 

CCS 

TC 

TC 

AD 

INDEX 

'TASK 

INDEX 

1C 

TC 

TC 

TS 

CS 

AD 

CCS 

AD 

IC 

TC 

TS 

K 

CS 

AD 

CCS 

XCH 

AD 

TC 

CAF 

IS 

AD 

INDEX 

CCS 

TC 

TC 

AD 

MASK 

TS 

INDEX 

CAF 

TC 

CS 

AD 

CCS 

XCH 

AD 

TC 

CAF 

TS 

TC 


Dec  U,  lq66  (MAIN)  PAGE  272 


USER'S  OWN  PaGF  no-  59 

SR 

A 

DSREL  IN  A 

dsptab 

+ 2 

CCSHOLE 

ONE 

COUNT 

OSMSK 

COUNT 

DSMAG  IN  A 

+ 1 

+ 2 

RIGHTS 

CODE 

FIVE 

EVEN(RIGHT)  OK 

ODD(LLFT)  shift  RIGHT 

DSPCOUNT 

A 

ONE 

OSPCOUNT-5 

TO  PREVENT  -0 

+ 2 

CCSHOLE 

COUNT 

DSPIN 

CODE  ALREADY  IN  CODF 

DSPCOUNT 

RlDl 

A 

OCT  16 

DSPCOUNT 

+ , DSPCOUNT  1 / nCT  16 

ONE 

BUMP  +1 

increment  DSPCOUNT 

ZERO 

DSPCOUNT 

-0»  DSPCOUNT=  OfT  l6.  DO  SIGN  ShIFT 

SWTAB  +2 

A 

DSPTAB 

+ 2 

CCSHOLE 

ONE 

BITll 

CODE 

DSPCOUNT 

OCT  3 

PICKUP  ORDER  , r.SREL  =3,9,5.6. 

(-R2.+R2*-Rlt+Rl) 

SvJTAB 

1 IDSPIN 
DSPCOUNT 

PUT  AWAY  ORDFR,  DSReL=  0,1»3,9. 

(-R3,+R3,-R2,+R2.) 

SWTAB  +2 

A 

OCT  3 

DSPCOUNT 

ONE 

SWSCiN  +1 

+,  DSPCOUNT  L/  3 
increment  DSPCOiiNT 

RlDl 

-0,  DSPCOUNT  = 3 

DSPCOUNT 

5BLANK 

blanks  R1 

^88954A  yjL  SybT^M  p UR  AgC  ; Ntlvv  pROG^A.V|  SHEpATlIM  BY  tyl-tiS 


L pinball  (jAMt  DUtIONB  AND  LioH.lS 


2050 

rEP  10  LA5I  270 

0a»3a33 

0 0126 

1 

ic 

2051 

0a»3A3A 

ooooo 

1 SwTAB 

OCT 

2052 

0a,3A3S 

ooooi 

0 

OCT 

2053 

Oa  » 3A3P 

00003 

1 

OCT 

205A 

0A.3A3Y 

oouoa 

0 

OCT 

DEC  1^,  I966  (mAIN)  pAgE  273 


USER'S  OWN  PAUp  NO. 


EnTFxiT 

0 

1 

3 

A 


-R3 
+R3 
-R2 
+ R2 


55 


48895'tA  YJl  bVSiEM  EOR  a'^E:  (,jEW  sHEPaTIN  BY  LYLEs 


DEC  lAt  1966  (Main)  PaGE  27‘* 


L PINBALL  game  BUTTONb  AMD  LloHTb  USER'S  OWN  PAGf  NO.  5b 

P2055  N>/SJB  IS  used  FOR  SUB  ROUtINe  CALLS  FROM  WITHIN  COMPUTER.  IT  CAN  BE 
R2056  used  to  DO  ANY  THING  THE  K-E^SOARD  CAN  CALL.  PLACE  . . . VVV VVVNNNNNN 
R2057  I WTO  A.  V-S  are  6 BIT  VeRB  CUDe.  N-S  , 6 BIT  NOUN  CODE. 


R2058  N'/suB  Can  Be  used  wiih  MACH  cadr  io  Be  sPeC  by  placing  the  cadr  into 

R2059  M=AC  + 2 before  THE  STANDARD  N\/SJ3  CalE, 

R2060  NVSJ3  RETURNS  TO  2+  CaLLINU  .OL-At'rER  PERFORMING  TASK,  IF  DISPLAY 
R2061  SYSTEM  is  AvAiLABLE.  THE  nE^  nDJN  ArD  VERB  CODES  ARE  DISPLAYED. 

R2062  IF  \/;S  =0,  T HE  NEW  NOUN  CODE  IS  DISPLAYED  ONLY(RfTURN  WITH  NO  FURTHER 
R2063  ACTION),  IF  N-S  =0.  Hb  NfW  VeRS  CqDe  IS  DISPLAYED  0NLY(R£TURN  WITH  NO 
R206A  further  ACTION) , 

R2065  IT  RETURNS  lO  i+  CALLING  I oC  WIiHOUt  PERFORMING  tASK.  IF  DISPLAY 

R2066  system  iS  blocked  (NOTHING  IS  DISPLAYED  IN  THIS  CASE). 

R2067  IT  DOcS  TC  ABORT  (WITH  uCT  Oijiji)  IF  IT  ENCOUNTERS  A DISPLAY  PROGRAM 

R2068  a-arm  Condition  before  return  rO' '-alleR. 

R2069  the  Display  system  is  blocked  by  the  depression  of  any 
R2070  key,  except  ERROR  LIGHT  ReSLT,  ALPQ  BY  eNDIDLE. 

R2071  IT  IS  released  BY  SPeCU-  v/EHB  = RELEASE  DISPLAY,  ALL  GO  TO  VERBS, 

R2072  proceed  WlT-tOUT  DATA,  TERmIIWATE,  TNITIALUE  EXECUTIVE, 

R2073  RECALu  PART  OF  RECALTSI  IF  cNJIOLt  WAS  USED, 

R207A  IN  RECALTST  IF  NVSUB  INITIATED  -QAD  AND  ENDIOLE  WAS  NOT  USED, 

R2075  V3  = REOUtST  EXECUTIVE,  VR  = REDUEST  WAITLIST, 

R2076  MDNI TOR  SET  Up. 


R2077  A NVSJB  CALI  THAT  PASSES  DSPLjCKi  ENDS  OLD  MONITOR. 

R2078  DSPLoCK  is  THe  INTERLOCK  FoR  JSE  UF  KeYBoaRD  AND  DISPLAY  SYSTEM  WHICH 

R2079  LOCKS  OUT  INTERNAL  USE  WHENEVER  tHeRE  IS  EXTERNAL  KEYBOARD  ACTION. 


R2080  NVSUB  Ii,  FIXED-FIXeD  PLaCfS  2*CALLING  LOC  INTO  NVOTEM,  TC  NVSUBeND  INTO 
R2081  ENTREI.  (ThIS  WlLL  REsTURF  Ulj.  CALLING  BANK  Blls) 

2082  REF  2 LASl  26A  AA33  SETLOC  MlDSIX  +1 

2083  REF  5 LAST  26A  AA30  59  H3  0 NVSUB  IS  NVTFMP  IN  FIXED  FIXFD 


2084  RcF  6 LASl  263  443^  10  D03  0 CCS 

2085  REF  114  LAST  270  443^  0 0O02  0 TC 

2086  REF  115  last  274  4439  3 0U02  0 CA 

2087  REF  72  LASl  272  4437  6 7755  1 AD 

2088  REF  1 444O  54  331  1 TS 

2089  REF  2 LAS1  271  44A1  0 4''55  1 TC 


2090  REF  1 4442  3 4446  0 NVSUBCOM  CAF 


DSPLOCK 

Q DSP  SYST  BLOCKED.  RET  TO  1+  CALLING  LOC 

0 DSP  SYST  AVAII.ApLE 

ONE 

NVOTEM  2 + CALLING  LOC  INTO  NVOTEM 

KILMONON  TURN  ON  KILL  MOnITOk  BIT 

NVSBBBNK 


20gl 

2092 

REF 

REF 

REF 

REF- 

12 

1 

1 

51 

LAST 

73 

2093 

2094 

LASl 

272 

2095 

REF 

2 

LASl 

237 

4443  56  UQb  1 

4444  S4  332  1 

4445  0 2OOO  0 

EO 

4446  12O0O  1 NVSBBBNK 


XCH  BBANK 
TS  NVBNKTEM 
TC  NVSUBB  GO 

EBANK=  DSPCOUNT 
3BC0N  NVSUBl 


TO  NVSUBl  thru  Standard  loc 


A88954A  YJL  brSl  b'M  FUR  AGC ; RhW  PROGRAM  SHePATIN  BY  EYLL.S 
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L pinball  game  buttons  mnu  lights 


USER'S  OWN  PaGf  no.  57 


2096  REF  116  LAST  27A  AA47 

2097  REF  73  LAST  27A  AASO 

2098  REF  2 LAST  27A  AASi 

2099  ref  1 AA52 


3 0002 

0 

NvSUBMON  CA 

Q 

6 7(55 

1 

AD 

ONE 

5H  331 

1 

TS 

NVOTEM 

0 6^162 

1 

TC 

NVSUBCOM 

HONDO  comes  HFRf 
2 + CAELING  LOG  INTO  NVUTEM 


2100  rEf  3 last  27S  AA53  S2  ^32  1 NYSUBBND  OXch  NVQTFm  NVBNKTEM  MUST  s nvQTEm+1 

2101  REF  13  LAST  2bb  HAS**  52  ^06  0 3xCH  Z DTCB 


2102  REF 


05»33AA  SETLOC  ENDROWT  +1 


2103 

REF- 

REF 

1 

2106 

7 

LaS  I 

269 

2105 

REF 

3 

LAST 

263 

2106 

REF 

6 

last 

276 

2107 

2108 

REF 

REF 

166 

1 

LAST 

2^1 

2109 

2110 

REF 

REF 

7 

5 

LAST 

LAST 

275 

272 

05 ,33AA 
05,33A5 
05,33A6 
05,33A7 


05.3350 

05.3351 

05.3352 

05.3353 


3 3363  1 NvSUbI 
5A  T26  0 
3 3AOI  1 
7 0113  0 
5A  lAA  1 
3 3AO2  1 
7 0113  0 
0 A521  0 


CAF  ENTSET 

IS  ENTRET 

CAF  L0W6 

MASK  NVTEMP 

TS  MPAC 

CAF  M1D6 

MASK  NvTEMP 

TC  RIGHTS 


2111  ref  9 LAST  267  05 

2112  REF  10  LAST  275  O5 

2113  REF  167  LAST  275  05 

211A  REF  168  LAST  275  05 

2115  05 

2116  REF  169  LAST  275  05 

2117  REF  7 last  253  05 

2118  REF  2 LAST  269  05 

2119  REF  170  LAST  275  05 

2120  05 

2121  REF  171  LAST  275  05 

2122  REF  1 05 

2123  REF  3 LAST  275  O5 

212A  REF  W2  LAST  2 ?5  O5 

2125  REF  8 LAST  275  O5 

2126  REF  173  LAST  275  05 

2127  REF  2 LAST  275  05 

2128  REF  82  LAST  272  05 

2129  REF  3 last  271  05 

2130  REF  12  LAST  2bA  05 

2131  REF  3 last  237  05 


335A  5A  020  1 TS 

3j55  56  020  0 XCH 

3356  5F  iA5  0 TS 

335V  10  lAA  1 CCS 

3360  0 336A  0 TC 

3361  56  I45  1 XCH 

3362  0 231a  0 TC 

3363  0 AA53  1 ENTSET  TC 

336A  10  1A5  0 CCS 

3365  0 3371  1 TC 

3366  5b  lAA  0 XCH 

3367  0 2A7A  1 TC 

3370  0 AA53  1 TC 

3371  56  lA5  1 XCH 

337I;  0 231a  0 TC 

3373  56  lAA  0 XCH 

337A  0 2A7A  1 TC 

3373  3 7(61  0 CAF 

3376  5i,  305  0 TS 

3377  5A  306  0 TS 

3a00  0 2O3I  1 TC 


CYR 

CYR 

MPAC  +1 
MPAC 

+ A 

MPAC  +1 
UPDATVB  -1 
NVSUREND 
MPAC  +1 

♦ A 

MPAC 

UPDATNN  -1 
NVSUBEND 
MPAC  +1 
UPDATVB  -1 
MPAC 

UPDATNN  -1 
ZERO 

loadstat 

CLPASS 

ENTPASO 


R2132  IE  INTERNAL  MACH  CaDR  TO  BE  SPECIFIED,  MPaC+2  WILL  Be  PLACeD  INTO 


R2133  NOUNCADR  IN  ENTPASO  (INIMCTBs  ). 


IN  bank 

SET  RETURN  TO  NuSUBfND 

TEMP  STORAGE 


TEMP  STORAGE 
TEST  NOUN 

IF  NOUN  NOT  +0,  GO  ON 

IF  NOUN  = +0,  DISPLAY  VERB  . THEN  RETURN 
TEST  VERB 

IF  VERB  NOT  +0,  GO  ON 

IF  VERB  = +0,  Display  noun,  then  return 


IF  BOTH  NOUN  AND  VERB  NOT  +0,  DISPLAY 
BOTH  AND  GO  TO  fNT PASO 


set  for  waiting  for  data  condition 


2136 

2135 


05.3601  OOO77  1 L0W6 

05.3602  07(00  1 M1D6 


Oct 

OCT 


77 

7700 
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2136  REF  4 last  27S  4455  SETLoC  NVSUREND  +2 

2137  REF  24  LAST  264  445^  4 7'37  1 KILMONON  CS  BIT15  FORCE  BIT  I5  OF  MONSAVEl  TO  1. 


2138  4458  0 

2139  REF  6 LASI  264  4457  7 

2140  REF  25  LAST  276  4460  6 

2141  REF  7 Last  276  4h6I  5 

2142  446<i  0 

2143  REF  117  LAST  275  4463  0 


0^04 

0 

INHINT 

0312 

0 

MASK 

MONSAVEl 

7737 

0 

AD 

BIT15 

4 312 

0 

TS 

MONSAVEl 

OO03 

1 

REL I NT 

0002 

0 

TC 

Q 

THIS  TS  the  kill  MONITOR  BIT. 


R2144  LOAusVAT  +0  INACTIVE (WAl TIM3  poR  DATA),  5ET  BY  NVSUB 
R2145  +1  proceed  no  DATA.  5eI  BY  SPECIAL  VpRS 

R2146  -1  terminate  set  3r  SPECIAL  VERB 

R2147  -0  DATA  IN  SET  BY  END  OF  LOAD  ROUTINE 


R2148  L TC  ENDIDI  E (FIXED  FIXED) 

R2149  ROUTINES  THAT  REQUEST  LOADS  THRjUOH  NvSUB  SHOULD  JSe  ENDIDLe  WHILE 
R2150  WAITING  FoR  THE  DATA  TO  BE  LOADED.  ENDIDLe  PUTS  rJRRENT  JOB  TO  SLEEP. 
R2151  ENDIDLE  CANvOT  BE  CALLED  FROv)  ERASABLE  MEMORY,  SINCE  JOBSLEPP  AND 
R2152  JOBWAKE  CAN  HANDLE  ONLY  FIXEO  MEMORY, 

R2153  RECALT5T  TE‘=TS  LOADS!  AT  AND  WAKES  JOB  UP  TO, 

R2154  L*1  FOR  TERMINATE 


R2155  L+2  FOR  PROCEED  wITHoUT  DATA 

R2156  L+3  FOR  DATA  IN 

R2I57  IT  does  nothing  if  LOADStAT  indicates  waiting  For  data. 


2158  REF  74  LAST  275  446^ 

2159  REF  7 last  274  4465 

2160  REF  1 4466 

2161  REF  118  LAST  276  4467 

2162  REF  5 LAST  186  4470 

2163  REF  3 LAST  207  4471 

2164  REF  5 LAST  242  4472 

2165  REF  3 LAST  144  4473 


2166  rEF  44  last  271  447^ 


3 7'55 

1 

ENDIDLE 

CAF 

ONE 

54  S03 

0 

IS 

DSPLOCK 

2 2 U04 

0 

LXCH 

FbANK 

5b  UO2 

0 

XCH 

0 

52  124 

1 

OXCH 

BUF2 

0 5A53 

0 

1C 

MAKECADR 

5 4 327 

0 

T S 

CaDRSTOR 

0 5563 

1 

TC 

JOBSLEEP 

0 5605 

1 

endinst 

TC 

EnoOfjOb 

R2167  DATAimAIT  is  AN  ALTERNATIVE  TO  ENDIDLe.  IT  RETURNS  IMMEDIATELY  IF 
R2I68  LOADSTAI  INDICATES  THAT  DATA  IS  aLReADY  IN,  OR  PROCEED  OR  TERMINATE  HAS 

R2169  Been  executeD.  return  formai  is  same  as  for  endidle. 

R2170  DATAiNAlT  CANNOT  BE  CALLeU  FRom,  ERASABLE  MeMoRY,  SINCe  JOBSLeeP 

R2171  AND  JODWAKE  CAN  HANDLE  ONI  Y FIXED  MEMORY. 

R2172  DATAWAIT  SHOULD  BE  USED  ONLY  AFTER  REOUeStING  A I OAD  VERB, 


2I73  REF  4 LAST  Zlb 


4475  10  305  0 DATAWAIT  CCS 


LOADSTAT 


48895''A  YJL  system  EOK  AGC;  MEW  SHEPATIiM  BY  EYLES 
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2174 

REF 

1 

4476 

1 7°06  1 

TCF 

T V"  IT 

DATWAITI 

r“  M Ps  T r\  1 

2175 

REF 

17  LAST  208 

447  f 

1 4^64  1 

1 

END  I ULE 

2176 

REF 

119  last  276 

4500 

0 0D02  0 

TC 

Q 

2177 

REF 

4 LAST  155 

45OI 

1 7°10  0 

p.  A T 1.  A T 

TCF 

0 + 2 

2178 

REF 

3 LAST  155 

7006 

UA 1 w A 1 

1 1 ~ 

0 + 1 

R2179 

datawaii  dolS  not  Release  display  syst. 

It  is 

Released 

AT  end  OF  NVSUB 

R2I8O 

INI! 

IATlD  load,  IF  E 

NDIDLf  WA 

S NOl  used 

• 

2181  REF  2 LAST  2^5  D5*3A03  5ETLOC  MI06  +1 

R2182  DSPMM  PLACE  MAjOR  MODL  CODE  INTO  MODREG 

2183  REF  1 0S.3A03  3 aS56  0 DSPMMl  CAF  MOl 

218A  REF  52  LAST  27A  05,3a0A  55  -^70  1 XCH  OSPCOUNT 

2185  REF  1 05,3A0S  5A  ^30  1 IS  DSPMMTEM 

2186  REF  7 LAST  197  05.3406  3 0302  0 LA  MoDREG 

2187  REF  120  LAST  277  05,3407  22  <J02  0 LXCH  Q 

2188  REF  3 LAST  269  05.341°  0 3^55  0 TC  DSP2RIT 

2189  REF  2 LAST  277  05,34U  55  ^30  0 XCH  DSPMMTEM 

2190  REF  53  LAST  277  05,34l2  54  270  0 TS  DSPCOUNT 

2191  REF  5?  last  256  05.3413  0 OOOl  0 DSPMMEND  TC  L 


R2i92  ReCaLtst  IS  ENTERED  DIReCtLY  AFIE^  DATA  IS 

R2193  LOADED,  TERMINATE  VERB  IS  EXELOIeP.  OR  THe  PROCeeO  wUHOUT  DATA  vLRb  IS 
R2I94  EXECJIEP.  IT  WAKES  UP  JOB  tHAT  01°  TC  LNDIDLE. 

R2195  IF  NV'SUti  initiated  LOAD.  AND  -NOIDLE  WAS  NOT  USeD.  THeN  IT  RELEASES 
R2196  display  SyST.  (NEEDED  FOR  D^TAWAH) 

2197  REF  4 LAST  272  OA»3440  SETLOC  SwTAB  +4 


2198  REF 

2199  REF 

2200  REF 

2201  REF 

2202  REF 

2203  REF 
A2204 

2205  REF  83  LAST  275  0^,3446  3 7'6i  0 RECALl  CAF  ZERO 

2206  REF  8 LAST  277  04,3447  55  327  1 XCH  CADRSTOR 

2207  04,345°  0 0O04  0 INHINT 

2208  REF  3 LAST  143  04.3451  0 5S67  0 TC  JuBWAKE 

2209  REF  5 last  276  0^.3452  13  305  0 CCS  LoADSTAT 

2210  REF  1 04,3453  0 3^70  1 TC  DOPROC 

2211  REF  46  last  277  04.345^  0 56O5  1 TC  ENDOFJOB 

2212  REF  1 04,345s  0 3466  0 1C  DOTFRM 


6 LAST  276 
1 

45  LAST  276 
2 LAST  277 

7 LAST  277 
1 


0^.3440 

04 . 3441 

04.3442 

04.3443 

04.3444 

04 . 3445 


10  327  0 

0 3A46  1 
0 56O5  1 

0 3^46  1 
54  327  0 
0 3464  1 


RECALTST 


CCS 

TC 

TC 

TC 

TS 

TC 


CADRSTOR 

RECALl 

ENDOFJOB 

RECAI  1 

CADRSTOR 

ReCALs 


DEC  13,  I966  (MAIN)  PAGE  277 


USER'S  OWN  PAGf  NO.  5Y» 

procfed.  return  to  I +2. 

still  waiting.  r-O  TO  SLEEP. 
terminate,  rfturn  to  L+1, 

DATA  IN.  RETURN  TO  1+3 
RETURN  TO  L+2 


GETS  here  THRU  nSPMM  (STANDARD  lEAD  IN) 
SAVE  DSPCOUNT 


RESTORE  DSPCOUNT 


NORMAL  EXIT  TF  KEYBOARD  INITIATED 

-0.  CONCLUSION  nF  NvSUB  INITIATED  LOAD. 
+0  INTO  CADRSTOR,  RfLeASe  DISPLAY, 

AND  ENDOFJOB.  NEfDeD  FOR  DAT  AWAIT. 


+ PROCEED  WlTriOi.T  DATA 
PATHALOGICAL  CASE  EXIT 

terminate 


^88954A  YJL  SYSjcM  FOR  aOC;  N(;W  Prq^^RAM  SH^^PatIN  3Y  pYLf-S 
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2213 

REF 

3 3 

LAST 

268 

0a,3A56 

3 7(5A 

0 

CAF 

Two 

221a 

REF 

t 

LAST 

215 

Oa  » 3a57 

5 0 *-*  6 A 

0 

RECAL2 

index 

LOCCTR 

2215 

REF 

H 

LAST 

153 

Oa .3A60 

6 Oi5A 

1 

AD 

LuC 

2216 

REF 

8 

LAST 

278 

0a,3a61 

50  06A 

0 

INDEX 

LuCCTR 

2217 

REF 

5 

LAST 

278 

Oa 1 3 A62 

5 A 1 5 A 

0 

1 S 

LOC 

2218 

0A,3A63 

0 0003 

1 

RELINT 

2219 

2220 

REF 

REF 

2 

A7 

LAST 

LAST 

262 

277 

0 A » 3A6A 
0A,3A65 

0 A^OO 
0 5605 

1 

1 

RECAL3 

TC 

TC 

reldspi 

ENDOFJOB 

UStR'S  OWN  PAOF  NO.  60 


LOC  IS  + FOR  BAaIC  JOBS 


DOES  NOT  SEARCH  LIST 


2221  RlF  8A  LASI  277  0A.3A66  3 7^61  0 DOTERM  CAF  ZERO 

2222  REf  1 0a,3a67  0 3^37  1 Ic  REcAl2 

2223  REF  75  LAST  276  0A,3A7<j  3 7^55  1 DOPROC  CAF  ONE 

222A  REF  2 LAST  278  0a,3a71  0 3A57  1 TC  RECAL2 
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I pINbALL  game  buttons  AN[; 

P2225  THE  FOLLOWING  REFERS  TO  THE 


GHT  S 

NOJM  IABLfS 


USER'S  OwN  page  no.  61 


R2226  COMPOSE,  T CODE  NUMBER 


interpretation 


R2227  03000 
R2228  03001 
R2229  03010 


1 COMPONENT 

Z COMPONENT  (EACH  S P) 
3 COMPONENT  (EACH  SP) 


R2230  Sf  routine  lODE  NUMBER  INTERPRETATION 


R2231  03000  OCTAL  ONLY 

R2232  03001  STRAIGHI  FRACTIONAL 

R2233  03010  DEGREES  (XXX. XX) 

R2234  03011  ARITHMETIC  OF 

R2235  03100  ARITH  DPI  OUT (MULt  By 


AT  END)  IN(STRAI6HT) 


R2236  03101  ARITH  DP2  OUT ( StRa I GHT ' IN(SL  f AT  END) 

R2237  03110  Optics  DEGREES ( XX •Xx K 89.999)  OR  (XXX»XX  MAX  179.99) 

R2238  03111  ARITH  DP3  OUT  ( Sl  7 Al  END)  IN  ( STRAIGHT) 

R2239  END  OF  SF  routine  CODE  NUMBERS 


R22A0  Sr  CONSTANT  CODE  NUMBER  INTERPRETATION 


R22A1  03000 
R22A2  03000 
R22A3  03001 
R22AA  03010 
R22A5  03010 
R22A6  03011 
R22A7  03100 
R22A8  03101 
R22A9 

R2250  03110 
R2251  03111 
R2252 

R2253  01000 

R225A  OlOOl 


whole 

time  SEC (XXX. XX) same  as  WH0LF(ARITH  DPI) 
time  hours (XXX. XX)  use  ARITH  DP2 
degrees 

OHTiCS  DEGREES 

GYRO  degrees  (XX. XXX)  USE  AR1THDP3 
gYru  bias  drift  .3BXXXXX  MILLIRAD/SEC 
gyro  AXIS  ACCEL.  DRIFT 
.bBXXXXX  (MILLIRAD/SEC)  / (CM/SEC  SEC) 
PlPA  BIAS  X.XXXX  CM/SEC  SEC 
PIPA  SCALE  factor  ERROR 
XXXXX.  PARTS/MILLION 

PUSIT10N(XXXX.X  KILOMETERS)  USE  ARITHDP3 
VELOCITY (XXXX.X  MeTERS/SEC)  USE  ARITHDP2 


R2255  01010 

R2256  01011 

R2257  OllOO 
R2258 

R2259  01101 

R2260 

R2261  OHIO 
R2262 


TIME  HOURS(XXX.Xx)WEEKS  I NS I DE ( AR 1 THDP2 ) 
EEEvATION  DEgREES(89.999MAX)  USE  ARITH 
RENDEZVOUS  RADAR  RANGE ( XXXXXB .FEET ) 

USE  ARlTHDPl 

RENDEZVOUS  RADAR  RANGE  RATE ( XXXXX . FT /SEC 

USE  ARlTHDPl 

landing  Radar  altitude(xxxxx.feet) 

USE  ARlTHDPl 


^88954A  YJL  SYSILM  f OR  AGC ; NeW  PROIjRAM  SHePAtIN  3Y  eYLeS 


1 , I966 
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pinuall  Game  buttong  and  LiSH.rs 


USER’S  OWN  page  no. 


R2263  01111 

R226A 

R2265  10000 

R2266  10001 

R2267 

R2268  10010 

R2269 

R2270  10011 

R22  a 

R2272  10100 

R2273 

R227A  13101 

R2275 

R2276  10110 

R2277 

R2278  EMD  of  SP  CONSTANT  CODE  NUMBeTS 


liMTIAL/FINAL  ALTITUDE (XXXXX. FEET) 

USE  ARITHDPI 

altitude  rate (XXXXX, feet)  use  ARITH 

FURhARD/LATERAL  velocity (XXXXX. FEET/SEC) 

USE  ARITH 

RUTAtIONAL  hand  controller  angle  rates 

XXXXX. DEG/SEC  USE  ARITH 

landing  RADAR  VELX ( XXXXX . FEET /SEC ) 

USE  ARITHDPI 

landing  RADAR  VEL Y ( XXXXX . F EET /SEC ) 

USE  ARITHDPI 

landing  radar  VELZ  (XXXXX. FEFT/SEC) 

USE  ARITHDPI 

OPTICAL  TRACKER  AZIMUTH  ANGLE  ( XXX . XXDEG ) 

USE  ARITHDPI 


R2279  For  greater  Than  single  precision  scales*  put  address  oF  MAJoR  part  INTq 
R2280  NOUN  TABLES. 

R2281  OCTAL  Leads  place  +0  into  MAJOR  part,  data  INTO  MINOR  PAR). 

R2282  octal  displays  SHOW  MINOR  PART  ONLY . 

R2283  TO  GET  AT  BOTH  MAJOR  AND  MlNjR,  RARtS  (IN  OCTAL),  JSe  NOUN  01. 


488954A 


L 

P2'^8H 

R2285 

R2286 


R2287 

R2288 

R2289 

R2290 

R2291 

2292 

2293 
229A 

2295 

2296 

2297 

2298 

2299 

2300 

2301 

2302 

2303 
230a 

2305 

2306 

2307 

2308 

2309 

2310 

2311 

2312 

2313 
23U 

2315 

2316 

2317 

2318 

2319 

2320 

2321 

2322 

2323 


R2324 


Y jL  SySIEm  hOR  AGC:  NEW  pROGRAvi  SMEpATiN  BY  EyLLS 


PINBALL  GAMe  buttons  ai>iD  LIShtS 

HE  EOLLOwInCj  routines  Arp  FoTi  RE^DinU  the  nOUn  tables  AnU  the  sf  tables 
{/YHICH  are  TN  a separate  BAN<  PTQM  the  rest  of  PINBALL),  THrSe  READING 
ROUTINES  are  IN  THe  SAME  HAN<  AS  I He  TABLeS.  THeY  ARe  CALLED  BY  DXCH  2. 


LObNNTAl  LOADS  NNApTEM  WlTp  T hE  NNAdTAE  ENTRY*  NNTYPTEM  WITp  ThE 
nntyptab  entry,  if  the  NOUN  IS  nHed,  idaoitem  ia  Loaded  with  the  first 

lOAUDiAf-  eNtRY*  IDAD2TEM  THE  SECOND  IDADDtAB  ENtRY*  IDAD3IEM  THe  THIRD 

.ioaddtal  entry,  rutmxtlm  nith  he  rutmxtab  entry,  mixbr  is  Set  for 

mixed  UK  NORMAL  NOUN. 


REP 

REF 

REF 

REF 

REF 

REP 

REF 

REF 

REF 


REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 


1 

10  LAST  270 
1 

7 last  257 

11  LAST  281 
1 

5 LAST  256 

12  LAST  281 
1 

1 

76  LAST  278 

12  last  260 
1 

3A  LASI  278 

13  LAST  281 
13  last  281 

1 


23.2000 

23.2001 

23.2002 

23.2003 
23,200A 

23.2005 

23.2006 


23,2007 

23.2010 

23.2011 
23,201E 
23,2013 


20H 

2015 

2016 
2017 

2020 

2021 


23’2000 
52  1A2  1 
50  <^73  1 
3 2^*62  1 
59  136  1 
50  273  1 
3 2I52  0 
59  137  0 
9 0273  0 
6 2O36  0 
0 OUO6  1 
6 2016  1 
3 7T55  1 
59  I30  1 

0 2O39  1 

3 7Y59  0 
59  I3O  1 

50  273  1 

3 2^20  0 


3ANK 

LOdNNTAB  dXCh 
index 

CAP 

IS 

INDEX 

CAF 

TS 

cs 

AD 

extend 

3ZMF 

CAF 

)S 

TC 

LODMIXNN  CAF 
TS 

INDEX 

CAF 


23 

1 D^D2TEM 

NUUNREG 

NNADTAB 

NNADTEM 

NOUNREG 

NNTYPTAB 

NNTYPTEM 

NOUNREG 

MlXCON 

LODMIXNN 

ONE 

MiXBR 

LODNLV 

T WO 

mixbr 

NOUNREG 
RUTMXTAB  -55 


REF  2 LASI  255  23 

REF  1 23 

REF  8 LAST  281  23 

REF  121  LAST  277  23 

REF  180  LAST  272  23 

REF  1 23 

REF  9 last  256  23 

23 

REF  122  LASI  281  23 

REF  2 LASI  281  23 

REF  2 LAST  281  23 

REF  19  LAST  275  23 


2022  b9  I93  0 

2023  3 5356  1 

202A  7 0136  1 

2025  59  002  1 

2026  50  000  1 

2027  3 2906  1 

2030  59  190  0 

2031  0 OOO6  1 

2032  5 0002  0 

2033  3 2910  0 

2039  52  l92  1 LoDNLV 

2035  52  006  0 


TS  RUTMXTEM 

CAF  LOWIO 

MAS<  NNADTEM 

TS  Q 

INDEX  A 

CAF  IDADDTAB 

TS  IDADiTEM 

EXTEND 
INDEX  0 

OCA  IDADDTAB  +1 

OXCH  IDAD2TEM 

OXCH  Z 


23*2036  OOObb  1 MlXCON  OCT  SS 


GTSFDJT  LOADS  SFTEMPi,  SFteMP2  «IIH  THE  DP  SF0Uta3  ENTRIES. 


DEC  13*  1966  (mAIN)  pAgE  281 
USER'S  OWN  PAGp  NO.  63 


SAVE  return  info  in  1dAd2TEM*  IdAd3TEM. 


NOUN  number  G/E  first  MIXED  NOUN 
NOUN  NUMBER  I / FIRST  MIXED  NOUN 
NORMAL.  +1  INTO  MIXBR. 

MIXED.  +2  INTO  MIXBR, 


TEMP 

LOAD  IDADiTEM  WtTH  FIRST  IDADDTAB  ENTRY 

LOAD  IDAD2TEM  WiTH  2ND  IDADDTAB  ENTRY 
LOAD  IDAO3TEM  WITH  3RD  IDADDTAB  ENTRY. 
PUT  RETURN  INFO  INTO  A,  L. 

first  mixed  noun  = 55* 


48895^A  YJL  SYSltM  FUR  AGC  : NtW  PRO^iRAM  SHePAIIinI  BY  tYLfcb 


L pinball  gamb  buttons  and  lights 


2325 

REF 

14 

LAST 

260 

23.2037 

52  114 

1 

GTSf OUT 

3XCH 

r“  V/  T r-  M 

SFTFMPl 

2326 

23 .204O 

0 OOO6 

1 

EXTEND 

2327 

REF 

161 

LASl 

281 

23.204! 

5 0000 

1 

INDEX 

A 

2328 

REF 

1 

23.2042 

3 2531 

1 

DCA 

SFOUTAB 

2329 

REF 

15 

LASl 

282 

23.2043 

52  114 

1 

SFCOM 

DXCH 

SFTFMPl 

2330 

REF 

15 

LASl 

28l 

23 .204A 

52  006 

0 

DXCH 

Z 

R233I 

GTSfIN  lOAdS 

Sf'TEMPI.  SfTFmP2 

wiTh  The 

hP  sfinta^  entries. 

2332 

2333 

2334 

REF  16  LASl 

REF  182  LAST 

282  23.2046 

23.2046 
282  23.204T 

52  114  1 

0 0006  1 

5 OOOO  1 

GTSFIN  DXCH  SFTFMPl 

EXTEND 

INDEX  A 

2335  REF  1 23*2050  3 2^53  1 3CA  SFINTAB 

2336  REf  1 23.2051  1 20^3  0 TcF  SFCOm 


A2337 

2338 

2339 

2340 

2341 

2342 

2343 

2344 

2345 

2346 

2347 

2348 

2349 

2350 

2351 

2352 

2353 

2354 


REF  9 last  213 
REF  10  LAST  282 
REF  9 last  210 


23 

23 

23 

23 

23 

23 

23 

23 

23 

23 

23 

23 

23 

23 

23 

23 

23 


2052 

2053 
205A 
2055 
2055 

205  f 
2060 
2061 
2062 

2063 

2064 

2065 

2066 

206  F 

2070 

2071 

2072 


OOOOO  1 NNADTAB 
(.0000  0 
40000  0 
40OOO  0 

40O00  0 
40000  0 
40O00  0 
OOOOO  1 
77T76  1 
OOOOO  1 
OOOOO  1 
OOOOO  1 
OOOOO  1 
Tim  0 
0002A  1 

OOO24  1 
00032  0 


OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

ECAOR 

ECADR 

ECADR 


OOOOO 

40000 

40000 

40000 

40000 

40000 

40000 

OOOOO 

77776 
OOOOO 
OOOOO 
OOOOO 
OOOOO 

77777 
TIME2 
TIMF2 
CDUX 


2355  REF  2 

2356  REf  5 

2357  REF  4 

2358  REF  8 

2359  REF  9 

2360  REF  10 

2361  REF  2 

2362  REF  11 

2363  REF  3 

2364  REF  4 

2365  REF  1 

2366  REF  1 

2367  REF  12 


LASl  134  23 

last  203  23 

LASl  192  23 

LASl  271  23 

LASl  282  23 

LAST  282  23 

LASl  79  23 

LaSi  282  23 

LAST  233  23 

last  57  23 

23 
23 

LASl  282  23 


2073  OOO37  0 

207A  00400  0 

2075  00342  1 

2076  00537  0 

2077  00537  0 

2100  00537  0 

2101  01557  1 

2102  00537  0 

2103  01361  1 

2104  O2I66  1 

2105  O2O46  1 

2106  32I74  1 

2107  00537  0 


ECAOR  PIPAX 
ECAdR  ThETAo 
ECADR  DSPTFM2 
ECADR  DSPTEMl 
ECADR  DSPTEMl 
ECADR  DSPTEMl 
ECADR  SMODE 
ECADR  DSPTEMl 
ECADR  SFAIF 
ECADR  TDEC 
ECADR  TET 
ECADR  MEASO 
ECADR  DSPTEMl 
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USER'S  OwN  PaGF  no.  64 
2X(SFCQNUM)  ARRIVES  IN  SFTEMPl, 


2X(SFC0NUM)  arrives  in  SFTEMPl, 


NN  normal  nouns 

00  NOT  IN  USF 

01  specify  MACHINE  ADDRESS  (FRACTIONAL) 

02  SPECIFY  MACHINE  ADDRESS  (WHOLE) 

03  SPECIFY  MACHINE  ADDRESS  (DEGrEES) 

04  SPECIFY  MACHINE  ADDRESS  (HOURS) 

05  SPECIFY  MACHINE  ADDRESS  (SECONDS) 

06  SPECIFY  MACHINE  ADDRESS  (GYRn  DEG) 

07  SPARE 

10  CHANNEL  TO  Be  SPECIFIED 

11  SPARE 

12  SPARE 

13  SPARE 

14  SPARE 

15  INCREMENT  MArHINE  ADDRESS 

16  time  seconds 

17  time  Hours 

20  ICuU 

21  PIPAS 

22  new  ANulEs  I 

23  delta  angles  I 

24  delta  I IME  ((iEC) 

25  CHECKLIST 

26  PRIO/DELAY,  aDRES,  BBCON 

27  SELF  TEST  ON/OFF  SWITCH 

30  STAR  NUMBERS 

31  SFAIL,  ERCoUnT,  FAILREG. 

32  decision  TIMf  (MIDCOURSE) 

33  EPHEMERIS  time  (mIDCOURSE) 

34  measured  quantity  (MIDCOURSE) 

35  INBIT  MESSAGE 


^88954A  YJL  system  f OR  AGt;  NEW  PROGRAM  SHePATIN  BY  EYLES 
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L PINBALL  game  SUTIONS  AND  LIGHTS 


USER'S  OWN  page  no.  65 


2368  REF 

2369  REF 

2370  REF 

2371  REF 

2372  REF 

2373  REF 
237A  REF 

2375  REF 

2376 

2377 

2378  REF 

2379  REF 

2380  REF 

2381  REF 

2382  REF 


1 23,2110  31500  0 

2 LAST  283  23,21 ll  01503  0 

7 LAST  176  23,2112  00O35  1 

15  last  172  23,2113  00A23  1 

5 last  282  23,2119  00342  1 

8 LASl  159  23,2115  00379  1 

3 LAST  96  23,2116  00357  0 

1 23,211 ? O3O32  0 

23.2120  OOOOO  1 

23.2121  OOUOO  1 

7 last  233  23,2122  01363  0 

1 23,2123  01342  0 

1 23,212^  01944  1 

1 23,2125  01947  1 

1 23,212°  01952  0 


ECADR 

ECADR 

ECADR 

ECADR 

ECADR 

ECADR 

ECADR 

ECADR 

OCT 

OCT 

ECADR 

ECADR 

ECADR 

ECADR 

ECADR 


LANDMARK 

LANDMARK  +3 

OPT  Y 

TANG 

DSPTEM2 

XYMARK 

FORVFL 

PCOM 

OOOOO 

OOOOO 

FAILREG 

ALMCADR 

GBI ASX 

ADI  AX 

ADSRAX 


36  landmark  DATA  1 

37  LANDMARK  DATA  2 

40  RENDEZVOUS  RiDAR  ANGLES  (TRUn,  SHAFT) 

41  new  rend.  RAnAR  ANGLES  (TRUN,  SHAFT) 

42  AOT  ROTATION  ANGLES 

43  Aor  detent  Code 

44  forward  Velocity,  lateral  velocity 

45  rotational  Hand  controller  angle  rate 

46  SPARE 

47  SPARE 

50  FAILREG,  FAIi  RLG  +1,  FAILREG  +2. 

51  ALMCADR,  Al  Me  ADR  +1 

52  gyro  bias  DRIFT 

53  gyro  input  Axis  ACCELERATION  DRIFT 

54  gyro  spin  axis  ACCELERATION  DRIFT 


A2383  NN  MIXED  NOUNS 

2384  23,2127  02O00  0 OCT  02000  55  LANDING  RADAo  ALTITUDE,  TIME(SEC) 

2385  23,213D  02^02  1 OCT  02002  56  LANDING  RADAp  VEIX,  TIME(SEC) 


2386 

2387 

2388 

2389 

2390 

2391 

2392 
A2393 

2399 

2395 

2396 

2397 

2398 

2399 

2900 

2901 
2402 
2903 


23.2131  02^09  1 

23.2132  02006  0 

23.2133  O2OIO  1 

23.2139  04012  0 

23,2135  O4OI5  1 

23,2130  O4O2O  1 

23,2137  O2O23  1 

23.2140  O4O25  1 

23.2141  O4O3O  0 

23.2142  32O33  0 

23.2143  02035  0 

23.2149  O4O37  1 

23.2145  04042  0 

23.2146  O4O45  1 

23.2147  O4O5O  0 

23.2150  04053  0 

23.2151  O4O56  0 


OCT  02004 
OCT  02006 
OCT  02010 
OCT  O4O12 
OCT  04015 
OCT  O4O2O 
OCT  02023 

OCT  04025 
OCT  O4O3O 
OCT  02033 
OCT  O2O35 
OCT  O4O37 
OCT  O4O42 
OCT  O4O45 
OCT  O4O5O 
OCT  04053 
OCT  04056 


57  LANDING  RADAR  VElY*  TIME(SEC) 

60  LANDINu  RADAp  vEiZ,  TImE(SEC) 

61  TARGET  AZIMUTH  AND  ELEVATION 

62  RENDEZVOUS  RaDAR  RANGE,  TRUN,  SHAFT 

63  REND.  RADAR  RANGE  RATE,  TRUN,  SHAFT 

69  INITIAL  ALT,  FINAL  ALT,  ALT  RATE 

65  SAMPLED  TIME  (HOURS  AND  SECO jDS) 

(FETCHED  In  INTERRUPT) 

66  SYSTEM  TEST  RESUI  TS 

67  delta  gyro  Angles 

70  OPIICAL  tracker  ANGLES  ( AZ I MJTH ,ELEV ) 

71  DESIRED  OPT.  TRAcK.  ANGLES  (AZ,  ELEV) 

72  DELTA  POSITION 

73  DELTA  VELOCITY 

74  measurement  dATA  (MIDCOURSE) 

75  measurement  |;EVIATI0NS  (MIDCdURSE) 

76  POSITION  VFCtOR 

77  VELOCITY  VFCTOR 


^2904  NORMAI  NOUNS 

2905  23,2152  OOOOO  1 NNTYPTAB  OCT  OOOOO  00  NOT  IN  USF 


2906 

2907 

2908 

2909 

2910 

2911 

2912 

2913 


23,2153 

JOO4O 

00140 

00102 

0 

1 

1 

OCT 

00040 

01 

ICOMP 

FRACTIONAL 

23,2159 

23,2155 

OCT 

OCT 

00  1 40 

00102 

02 

03 

ICOMP 

ICOMP 

WHOl  E 

degrees 

23,2156 

00241 

0 

OCT 

00241 

04 

ICOMP 

HOURS 

23,2157 

23,216° 

00200 

00343 

0 

0 

OCT 

OCT 

00200 

00343 

05 

06 

ICOMP 

ICOMP 

SECONDS 

Gyro  degrees 

23.2161 

23.2162 

OOUOO 

OOUOO 

1 

1 

OCT 

OCT 

OOOOO 

OOOOO 

07 

10 

ICOMP 

SPARE 

octal  only 

^88954A  YJL  SYSTEM  hOR  AGC;  NEW  PRO'^RAM  SM^PATIN  BY 


L pinBall  gaMe  buttons  and  lights 


241A 

2A15 


2T63 

216“^ 


OOGOO  1 
30000  1 


2416 

23,2165 

2417 

23,2166 

2A18 

23,216Y 

2419 

23,2170 

2420 

23,2171 

2421 

23,2172 

2422 

23,2173 

2423 

23,2174 

2424 

23,2175 

2425 

23,217P 

2426 

23,2177 

2427 

23,2200 

2428 

23,2201 

2429 

23 ,2202 

2430 

23,2203 

2431 

23,2204 

2432 

23 ,2205 

2433 

23,2206 

2434 

23,2207 

2435 

23,2210 

2436 

23,22ll 

2437 

2 3 , 2 2 1 

2438 

23,2213 

2439 

23,221A 

2440 

23,2215 

2441 

23,2219 

2442 

23,2217 

2443 

23,2220 

2444 

23,222l 

2445 

23,2222 

2446 

23,2223 

2447 

23,2229 

2448 

23.2225 

2449 

23 ,22  26 

A2450 

2451 

23,2227 

2452 

23,2230 

2453 

23,2231 

2454 

23,2232 

2455 

23,2233 

2456 

^ Zi.  C *7 

23,2239 

23,2235 

2458 

23 , 2 2 3R 

2459 

23,2237 

2460 

23,2290 

2461 

2462 

23.2241 

23 .2242 

OOOOO  1 
30000  1 
30000  1 
30200  0 
302A1  0 
34102  0 
34I4O  0 
34I02  0 
34IO2  0 
00200  0 
30140  1 

04O00  0 
30I4O  1 
34I4O  0 
34000  0 
00252  1 

30252  1 
30350  1 

34O00  0 
O4OOO  0 
34OOO  0 
32102  0 
O2IO2  0 

02102  0 
3OI4O  1 
02l6l  0 
34162  0 
30000  1 
30000  1 

34OOO  0 

32000  0 

34144  1 
34l‘t5  0 

34145  0 


OOOlo  0 
30023  0 

00024  1 

00025  0 
00542  1 

04114  1 

04115  0 

40^57  0 
OOOOi  0 
OOOOO  1 

061A3  1 
00126  1 


EYLeS 


OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

ocr 

OCT 

OCT 

OCT 


OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 
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OOOOO 

OOOOO 

OOOOO 

OOOOO 

OOOOO 

00200 

00241 

O4IO2 

O4I4O 

O4IO2 

O4IO2 

00200 

00140 

O4OOO 

00140 

O4I4O 

O4OOO 

00252 

00252 

00350 

04000 

O4OOO 

04000 

02102 

O2IO2 

02102 

00140 

02161 

04162 

OOOOO 

OOOOO 

O4OOO 

02000 

04144 

04145 
O4I45 


00016 

00023 

00024 

00025 
00542 
04114 
O41 1 5 
40757 
00001 
OOOOO 

06143 

00126 


USER'S  OWN  PaGt  no.  66 

11  SPARE 

12  SPARE 


13 

14 

15  ICOMP 

16  ICOMP 

17  ICOMP 

20  3C0MP 

21  3C0MP 

22  3CaMP 

23  3C0MP 

24  ICOMP 

25  ICOMP 

26  3C0MP 

27  ICOMP 

30  3C0MP 

31  3C0MP 

32  ICOMP 

33  ICOMP 

34  ICOMP 

35  3C0MP 

36  3C0MP 

37  3C0MP 

40  2C0MP 

41  2C0MP 


SPARE 

SPARE 

OCTAL  ONLY 

SECONl'.S 

HOURS 

DEGREl-S 

WHOLE 

degrees 

degrees 

SECONDS 

WHOLE 

OCTAL  ONLY 

WhOl_E 

WHOLE 

OCTAL  ONLY 
TIME  U.EEKS 
TIMF  i.;EEKS 
POSITION 
OCTAL  ONLY 
OCTAL  only 
OCTAL  only 

degrees 

DEGREES 


42  2C0MP 

43  ICOMP 

44  2C0MP 

45  3C0MP 

46 

47 

50  3C0MP 

51  2C0MP 

52  3C0MP 

53  3C0MP 

54  3C0MP 


degrees 

WHOLE 

forwacd/lateral  velocity 

ROT  HflND  CONT  ANGLE  RATE 

SPARE 

SPARE 

OCTAL  only 
OCTAL  ONLY 
GYRO  hi  AS  DRIFT 
GYRO  AXIS  ACCEL.  DR  I F i 
GYRO  AXIS  ACCEL.  DRIFi 


NN  MIXED  NOUnS 

55  2C0MP  landing  RaDAR  ALT*  SECONDS 

56  2C0MP  landing  RaDAR  VELX,  SECONDS 

57  2COMP  landing  RADAR  VELY,  SECONDS 

60  2C0MP  landing  RaDAR  VELZ,  SECONDS 

61  2CUMP  Degrees,  elevation  degrees 

62  3C0MP  REND.  RADAR  RANGE,  DEG,  DEG 

63  3C0MP  REND.  RAD.  RANGE  RATE,  DEG, DEG 

64  3C0MP  IN/FN  ALT.  IN/FN  ALT,  ALT  RATE 

65  2C0MP  HOURS.  SECONDS 

66  3C0MP  WHOLE.  FRACTIONAL,  WHOLE 

67  3C0MP  GYRO  DEGREES  FOR  EACH 

70  2CUMP  OPT  Track  azimuth,  degrees 


48895AA  YJL  SYS!  b'M  FOR  AGC;  f4EW  PROi^RAM  SHlPATIN  BY  EYLE 


L pinball  GmML  BUtTONo  aNO  Li  Gill 


2A63 

2A64 

2A65 

2A66 

2467 

2468 

2469 


23i2Z43  OOi2o  1 
23,2244  20410  0 
23,2243  22451  1 
23,2246  00412  0 
23,224?  c0450  1 
23,226^  20410  0 
23,2251  22451  1 


OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 


2470 

2471 

2472 

2473 

2474 

2475 

2476 

2477 

2478 

2479 

2480 

2481 

2482 

2483 

2484 

2485 

2486 

2487 

2488 

2489 

2490 

2491 


23,2252  00^06  1 SFINTAB  OCT 


23.2253  03i;40  1 OCT 

23.2254  00253  0 OCT 

23.2255  25124  1 OCT 

23.2256  OOOOO  1 OCT 

23,225?  OOOOO  1 OCT 

23.2260  iO?07  0 OCT 

23.2261  03435  0 OCT 

23,226i:  OOOOl  0 OCT 

23.2263  O2I33  1 OCT 

23.2264  OOUll  1 OCT 

23.2265  30322  1 OCT 

23.2266  OOOOh  0 OCT 

23,226?  I4O2I  1 OCT 

23.2270  00314  1 OCT 

23.2271  31463  1 OCT 

23,227^  23420  0 OCT 

23.2273  OOOOO  1 OCT 

23.2274  00201  1 OCT 

23.2275  30327  1 OCT 

23,2275  01371  0 OCT 

23,2277  34750  1 OCT 


2442  23 

2493  23 

2494  23 

2495  23 

2496  23 

2497  23 

2498  23 

2499  23 

2500  23 

2501  23 

2502  23 

2503  23 

2504  23 

2505  23 

2506  23 

2507  23 

2508  23 

2509  23 


2306  00601  0 OCT 

2301  03434  1 OCT 

2302  00006  1 OCT 

2303  20l62  0 OCT 

2304  OOOll  1 OCT 

2305  27P66  1 OCT 

2306  00O05  1 OCT 

2307  24?33  0 OCT 

2310  00002  0 OCT 

2311  23224  1 OCT 

2312  00014  1 OCT 

2313  06500  1 OCT 

2314  00012  1 OCT 

2315  36455  0 OCT 

2316  04256  1 OCT 

231?  07071  0 OCT 

2320  OOUll  1 OCT 

2321  17410  1 OCT 
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00126 

71 

2C0MP 

20410 

72 

3C0MP 

22451 

73 

3C0MP 

00412 

74 

3C0MP 

3C0MP 

2045O 

75 

20410 

76 

3C0MP 

22451 

77 

3C0MP 

OPT  Track  azimuth,  degrees 

POSITION  FOR  each 

VELOCITY  FDR  EACH 

TIMF  i,EEKS,  POSITION,  WHOLE 

POSITION,  VELOCITY,  PtSITION 

POSITION  FOR  EACH 

VELOCITY  FOR  EACH 


00006  whole, TimE(sFc) 

03240 

00253  TIME  HOURS  ( = 1.3 ) 

25124  (POINT  BETWEEN  BITS  7-8  ) 

0 degrees  (SFCON  IN  DEGINSF  ) 

0 

10707  GYRO  DEGREES 

03435  uppfd  by  1 

00001  GYRO  BIAS  DRIFT 

O2I33 

OOOll  GYRO  AXIS  ACCFL,  DRIFT 

30322 

00004  PIPA  BIAS 

14021 

00314  PIPA  SCALE  ERROR. 

31463 

23420  POSITION 

OOOOO 

00201  VELOCITY 

30327  ( POINT  BETWEEN  BITS  7-8  ) 

01371  TIME  WEEKS 

34750  ( POINT  between  BITS  7-8  ) 


00001 
03434 
00006 
20162 

00011 
27066 
00005 
24733 

00002 
23224 
00014 
06500 

00012 
36455 
04256 
07071 
OOOll 
17410 


ELEVATION  DEGREES 
RENDEZVOUS  RADAr  RANGE 

rendezvous  radar  range  rate 

LANDING  radar  AiTITUDE 
INI TIAL/KINAL  Ai  titude 
ALTITUDE  RATE 
FORWARD/LATERAL  VELOCITY 
ROT  HAND  CONT  ANGLE  RATE 


LANDING  RADAR  VfLX 


L 

2510 

2511 

2512 

2513 

251“^ 

2515 

A2516 

2517 

2518 

2519 

2520 

2521 

2522 

2523 

252A 

2525 

2526 

2527 

2528 

2529 

2530 

2531 

2532 

2533 

253A 

2535 

2536 

2537 

2538 

2539 

2540 

2541 

2542 

2543 

2544 

2545 

2546 

2547 

2548 

2549 

2550 

2551 

2552 

2553 

2554 

2555 

2556 
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23.2322  30004  0 OCT 

23.2323  33^40  1 DCT 

23.2324  30O07  0 OCT 

23.2325  33701  1 OCT 

23.2326  30005  1 OCT 

23.2327  21616  0 OCT 


USER'S  OWN  page  no.  6“ 

00004  LAN13ING  RADAR  VfLY 

33740 

00007  LANDING  RADAR  VfLZ 

03701 

00005  OPTICAL  AZIMUTH  TRACKER  ANGLE 

21616 

END  OF  SFINTAH 


23,2330 


23.2331 

23.2332 


23,2333 


35174 

0 

SFOUTaB  OCT 

O5I74 

13261 

0 

OCT 

13261 

27670 

31357 

0 

1 

OCT 

OCT 

27670 

31357 

23 

23 

23 

23 

23 

23 

23 

23 

23 

23 

23 

23 

23 

23 

23 

23 

23 

23 

23 

23 

23 

23 

23 


233A 

2335 

2336 

233  7 

2340 

2341 

234^ 

2343 

2344 

2345 

2346 

234  ! 

2350 

2351 

2352 

2353 
235A 
2355 
2350 

235  ! 
2360 
2 361 
2362 


00000  1 

JOOOO  1 
ooa4  0 
31463  1 
35^53  0 
32323  1 
03216  1 
06‘+00  0 
07237  0 

37/76  0 
00120  1 
OOOOO  1 
00321  1 
26/06  1 
37A4I  1 
14247  0 

05300  1 
20305  0 
34631  1 
23I46  0 
04F25  0 
35A54  1 
03225  1 


OCT  0 

OCT  0 

OCT  00714 

OCT  31463 

OCT  35753 

OCT  32323 

OCT  03216 

OCT  06400 

OCT  07237 

OCT  37776 

OCT  00120 

OCT  OOOOO 

OCT  00321 

OCT  26706 

OCT  37441 

OCT  14247 

OCT  05300 

OCT  20305 

OCT  34631 

OCT  23146 

OCT  0A725 

OCT  35454 

OCT  03225 


23.2363  07470  0 OCT 

23.2364  05521  1 OCT 

23.2365  30260  0 OCT 

23.2366  14226  1 OCT 

23,236  ^ 3H57  0 OCT 

23,237°  02476  0 OCT 

23.2371  J553I  0 OCT 

23.2372  32/27  1 OCT 

23.2373  16415  0 OCT 

23,237A  JOUO7  0 OCT 

23,2375  I3F34  0 OCT 

23,237P  03277  0 OCT 

23,237?  14l65  0 OCT 


07470 

05521 

30260 

14226 

31757 

02476 

05531 

02727 

16415 

00007 

13734 

03277 

14165 


whole,  riME(SEC) 

TIME  HOURS 

DEGREES 

GYRO  DEGREES 

(POINT  BETWEEN  rITS  7-8) 

GYRO  BIAS  DRIFT 

GYRO  AXIS  ACCFL.  DRlFl 

PIPA  BIAS 

PIPA  SCALE  ERROP 

POSITION 

( POINT  between  BITS  7-0  ) 
VELOCITY 

TIME  WEEKS 

ELEVAI ION  DEGREES 

RENDEZVOUS  RADAR  RANGE 

RENDEZVOUS  RADAR  RANGE  RATE 

LANDING  radar  A|  TITuDE 
INITIAL/FINAL  Ai  TlTllDE 
ALTITUDE  rate 
FORWARD/LATERAL  VELOCITY 
ROT  HAND  CONT  ANGLE  RATE 
LANDING  RADAR  VF LX 
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2557 

23,2400 

06442 

0 

OCT 

06442 

LANDING  RADAR  VfLY 

2558 

23,2401 

04  ?35 

1 

OCT 

04735 

2559 

23,2402 

04374 

0 

OCT 

04374 

LANDING  RADAR  VfLZ 

2 560 

2 3 ,2403 

30251 

1 

OCT 

30251 

2561 

23,2404 

O56O5 

1 

OCT 

05605 

OPTICAL  TRACKER  AZIMUTH  ANGLE 

2562 

A2563 

23,2405 

03956 

1 

OCT 

03656 

END  OF  SFOUTAR 

A2564 

2565  REF  4 

2566  RzF  5 

2567  REF  6 

2568  REF  7 

2569  REF  8 

2570  REF  9 

2571  REF  10 

2572  REF  11 


Last  185  23 

LAST  287  23 
last  287  23 
LAST  287  23 
LAST  287  23 
LAST  287  23 
LAST  287  23 
LAST  287  23 


24O6  03462  1 

2aO?  03A66  0 

24IG  03440  1 

241I  03444  0 

2a1<I  03446  1 

2413  03452  1 

2414  03454  1 

241^^  03460  0 


lOADDTAB  ECADR 
ECAOR 
ECADR 
ECADR 
ECADR 
ECADR 
ECADR 
ECADR 


RSTACk  +18D 
RSTACK  +22D 
RSTACK 
RSTACK  +4 
RSTACk  +6 
RSTACK  +10D 
RSTACK  +12D 
RSTACK  +16D 


MIXNOUN  SF  ROUT 
01  LANDTNf, 

01  SECONDS 

02  LANDlNf, 

02  SECONDS 

03  LAND  I NT-, 

03  SECONDS 

04  LANDINCT 

04  SECONDS 


RADAR  ALTITUDE 
RADAR  VELX 
RADAR  VELY 
RADAR  VELZ 


2573 

REF 

13 

2574 

REF 

14 

2575 

REF 

12 

2576 

REF 

13 

2577 

REF 

14 

2578 

REF 

15 

25  ?9 

REF 

lo 

2580 

R ir 

1 7 

2581 

REF 

6 

2582 

REF 

3 

2583 

R:iF 

6 

2584 

REF 

1 

2585 

REF 

2 

2586 

REF 

6 

2587 

REF 

7 

2588 

REF- 

8 

2589 

REF 

5 

2590 

REF 

6 

2591 

REF- 

7 

2592 

REF 

1 

2593 

REF 

1 

2594 

REF- 

1 

2595 

REF 

1 

LAST  282  23 

LAST  287  23 

last  287  23 

LAST  287  23 

LAST  287  23 

last  287  23 

LAST  287  23 

LAST  287  23 

LAST  209  23 

LAST  209  23 

last  209  23 

23 

LAST  287  23 

LAST  283  23 

last  287  23 

last  287  23 

LAST  195  23 

LASi  287  23 

last  287  23 

23 
23 
23 
23 


2419  00037  0 

2417  003i,0  0 

2420  03440  1 

2421  03442  0 

2422  03443  1 

2423  03446  1 

2424  03450  0 

242l>  03451  1 

2426  00351  0 

2427  00354  0 

2430  00353  1 

2431  00O13  0 

2432  00013  0 

2433  00342  1 

2434  , 00343  0 

2433  00344  1 

2436  00403  0 

2437  00405  0 

2440  00407  1 

2441  01476  0 

244Z  01475  0 

2443  01475  0 

2444  01475  0 


ECADR  DSPTFMl  05 
ECADR  DSPTFMl  +1  05 
ECADR  RSTACK  06 
ECAOR  RSTACK  +2  06 
ECADR  RSTACK  +3  06 
ECAOR  RSTACK  +6  07 
ECADR  RSTACK  +8D  07 
ECAOR  RSTACk  +9D  07 
ECADR  ALT  10 
ECADR  FINALT  10 
ECADR  ALTRATE  10 
ECADR  SAMPTIME  11 
ECADR  SAMPTIME  11 
ECAOR  DSPTFM2  12 
ECAOR  DSPTFM2  +1  12 
ECAOR  DSPTEM2  +2  12 
ECADR  DELV/X  13 
ECADR  DELVX  +2  13 
ECADR  DELVX  +4  13 
ECADR  AZANG  14 
ECADR  ELANG  14 
ECADR  DESLOrSY  15 
ECADR  DESLOTSX  15 


DEGREES 

elevation  degrees 

rendezvous  RADAR  RANGE 

DEGREES 

DEGREES 

rendezvous  RADAR  RANGE  RATE 

DEGREES 

DEGREES 

INITI Al  /FInAL  ALTITUDE 
INITIAl /FINAL  altitude 

altitude  rate 

HOURS 

SECONDS 

whole 

FRACTIr.NAL 

WHOLF 

V.YRO  DeGREFS 

GYRO  degrees 

ijYro  Degrees 

OPT  TRaCK  azimuth  ANGLp 

DEGREES 

OPT  TRACK  azimuth  ANGLf 
degrees 


2596 

2597 

2598 

2599 

2600 
2601 
2602 
2603 


REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 


1 

2 Last  287 

3 last  287 
1 

2 LAST  287 

3 LAST  287 
5 LAST  282 
2 LAST  282 


2445 

2446 

2447 

2450 

2451 

2452 

2453 

2454 


O2O52  1 
O2O54  1. 
02056  0 
O2O6O  0 
02062  1 
02O64  1 
O2I66  1 
02174  1 


ECADR 

ECADR 

ECADR 

ECADR 

ECADR 

ECADR 

ECADR 

ECADR 


DELR 

DELR  +2 

DeLR  +4 

DELVEL 
DELVFL  +2 
DELVEL  +4 
TDEC 
MEASQ 


16 

16 

16 

17 

17 

17 

20 

20 


POSITION 

position 

position 

velocity 

velocity 

velocity 

TIME  WsEKS 
POSITION 
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L 

260^ 

2605 

2606 

2607 

2608 

2609 

2610 
2611 
2612 
2613 
261^ 

2615 

2616 
2617 
2616 
2619 

A2620 


A2621 

2622 

2623 

262A 

2625 

2626 

2627 

2628 

2629 

2630 

2631 

2632 

2633 
263A 

2635 

2636 

2637 

2638 

2639 
26A0 

A26A1 


PINBALL  Game  buttons  ANU  LloHTb 


REF  1 23,2a56  02*^00  1 ECADw 

REF  15  last  267  23.2A56  00337  0 ECAOR 

REF  16  last  288  23»2a57  003A1  1 ECADR 

REF  1 23»2A60  02l76  0 ECADR 

REF  17  LASI  288  25,2461  00337  0 ECADR 

REF  18  LASi  288  23,2462  00341  i ECADR 

REF  19  last  288  23,2463  00343  0 ECADR 

REF  20  LASi  288  23,246^  00337  0 ECADR 

REF  21  LASI  288  23,2463  00341  1 ECADR 

RcF  22  LASI  288  23,2466  00343  0 ECADR 

23,246?  OOOOO  1 OCl 

23.2470  OOOOO  1 OCT 

23.2471  OOOOO  1 OCT 

23,247^  OOOOO  1 OCT 

23,2473  OOOOO  1 OCT 

23,247A  OOOOO  1 OCT 


23,2473  00204  1 RJTMxTAB  OCT 


23,247fc  00204  1 OCT 

23,2477  00204  1 OCT 

23.2500  00204  1 OCT 

23.2501  00142  0 OCT 

23.2502  04104  0 OCT 

23.2503  04104  0 OCl 

23,250A  06204  1 OCT 

23,2503  00205  0 OCT 

23.2506  06043  0 OCT 

23.2507  16347  0 OCT 

23.2510  00104  1 OCT 

23.2511  00104  1 OCT 

23.2512  16347  0 OCT 

23.2513  12245  1 OCT 

23,251A  06345  0 OCT 

23,2513  16247  1 OCT 

23,25lfc  16347  0 OCT 

23,2517  12245  1 OCT 
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MEASMODE 

20 

WHOLE 

OSPTEMl 

21 

POST  T I nN 

DSPTEMl  +2 

21 

VELOCITY 

DE  LT  AO 

21 

POST  T InN 

DSPTEMl 

22 

POSITION 

DSPTEMl  +2 

22 

POSITION 

DSPTEMl  +4 

22 

POS I T I oN 

DSPTEMl 

23 

velocity 

OSPTEMl  +2 

23 

velocity 

DSPTEMl  +4 

23 

VELOC I T Y 

OOOOO 

SPARE 

OOOOO 

SPARE 

OOOOO 

SPARF 

OOOOO 

spare- 

OOOOO 

spare 

OOOOO 

spare 

END  OF 

IDaDCTAB 

00204 

00204 

00204 

00204 


MIXNOUN  SF  ROUT 

01  LANDING  radar 

02  landing  RADaR 

03  LANDING  RADaR 

04  LANDING  RADaR 


ALTITUDE,  SECONDS 

vflx,  seconds 

VFLY,  SECONDS 
VELZ,  SECONDS 


00142 

04104 

04104 

06204 

00205 

06043 

16347 

00104 

00104 

16347 

12245 

06345 

16247 

16347 

12245 


05  DEGREES,  FLfVATTON  DEGREES 

06  rendezvous  PApAR  RANgE,  pEG,  dEG 

07  REND,  RADAR  RANGE  RATE,  DEG,  DEG 

10  INII/FIN  ALT,  INIT/FIN  ALT,  ALT  RATE 

11  HOURS,  seconds 

12  WHOLE,  FRACTIONAL,  WHOLE 

13  GYRO  DEGREES  (FOR  EACH) 

14  OPT  track  Azimuth  angle,  degrees 

15  OPT  track  Azimuth  angle,  degrees 

16  POSITION  (FOR  EACH) 

17  VELOCITY  (FoR  EACH) 

20  TIME  WEEKS,  POSITION,  WHOLE 

21  POSITION,  Velocity,  position 

22  POSITION  (EnR  EACH) 

23  VELOCITY  (EnR  EACH) 

END  OF  RUTMXTAB 
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P26A2  miscellaneous  SERVICE  ROUTINES  IN  FIXeD/FixeD 


2693  9S02  SLOCK  02 

R2699  SetNCADR  E CADR  ARRIVES  IX  A,  n IS  StOReC  IN  NoUNCaDR.  eBANK  BItS 

R2695  are  Set.  E At^RES  iS  DERIVED  AND  PUT  INTO  NoUNADD. 


2696  REF  7 LAST  269  9b02  39  ^10  1 SeTNCADR  TS  NoUNCADR  STORE  FCADR 

2697  REF  10  LAS)  213  9503  59  U03  0 TS  EBANK  SET  EBANK  BITS 

2698  REF  9 LAST  190  950A  7 9^53  1 MASK  L0h8 

2699  REF  2 LAST  6l  950S  6 5370  0 AD  0CT1900 

2650  REF  29  LASi  260  9506  59  135  1 TS  NOUNADD  PUT  E ADRE5  INTO  NOUNADD 

2651  REF  123  LAST  261  9507  0 0U02  0 TC  0 


R2652  5ETNAD0  GETS  L CAOR  TROm  NOUNCADR'  SETS  LbANK  bITs*  DERIVES 

R2653  E ADReS  aNU  PJiS  IT  INTO  NoUnADD. 


2659  REF  a last  289  951°  3 0310  0 SETNADD  CA  NOUNCADR 

2655  REF  6 LAST  256  95ll  1 9^03  1 TCF  SETNCADR  +1 


R2656  SeTEBanK  E GADR  ARRIVES  IX  A,  eBANK  BITS  ARE  SET*  E ADReS  IS 

R2657  derived  and  Le-t  IN  a. 

Set  EBANK  BITS 
E ADRES  Left  in  a 


2658  REF  11  LASl  289  9512 

2659  REF  5 LaSI  289  9513 

2660  REF  3 LAST  289  951^ 

2661  REF  129  LAST  289  95lS 


ST  U03  0 SeTEBANK  IS  EBANK 

7 9P53  1 MASK  LUW8 

6 5370  0 AD  0CT1900 

0 0002  0 1C  0 


2662 

9516 

00016 

0 

RlDl 

3CT 

16 

2663 

951'^ 

OOOll 

1 

R2D1 

OCT 

11 

2669 

952O 

00009 

0 

R3D1 

OCT 

9 

2665 

REF 

11 

LASl 

275 

9521 

59  O20 

1 

RIGHT5 

TS 

CYR 

2666 

REF 

1 2 

LASI 

289 

9522) 

9 OO2O 

1 

CS 

CYR 

2667 

REF 

13 

LAST 

289 

9523 

9 OO2O 

1 

CS 

CYR 

2668 

REF 

19 

LAST 

289 

952A 

9 0020 

1 

C5 

CYR 

2669 

REF 

1 5 

LAST 

289 

952S 

9 OO2O 

1 

CS 

CYR 

2670 

REF 

16 

LAST 

289 

9526 

56  0^0 

0 

XCH 

CYR 

2671 

REF 

125 

LAST 

289 

9527 

0 0002 

0 

TC 

0 

2 672 

REF- 

12 

LAST 

267 

9530 

59  022 

0 

LEFT5 

TS 

CYL 

2673 

2679 

REF 

REF 

13 

19 

LASl 

LAST 

289 

289 

9b3T 

9532 

9 0022 
9 0022 

0 

0 

CS 

CS 

CYL 

CYL 
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L pinball  OaME  buttons  aNU  LlGHlTb 

C5 
C5 
XCH 
1C 


2675 

REF 

REF- 

ID 

16 

LAST 

289 

9533 

A OU22 

0 

2676 

LAST 

290 

9539 

9 OO22 

0 

2677 

REF 

17 

LAS! 

290 

953^^ 

56  U22 

1 

2678 

REF 

126 

LAST 

289 

9536 

0 0U02 

0 

2679 

2680 

9537 

959O 

6 

6 

ouoo 

ouoo 

0000 

1 SLEFT5 

1 

DOUBLE 

DOUBLE 

2681 

959 1 

6 

1 

DOUBLE 

2682 

9592 

6 

oooo 

1 

double 

2683 

2689 

REF  127  LAST  290 

9593 

9599 

6 

0 

0000 

0002 

1 

0 

DOUBLE 

TC 

2685 

2686 

9595 

9596 

V t - 7 

00037  0 
01 ?90  0 

LDw5 

MID5 

Oct 

OCT 

2687 

2688 

REF 

i 

76000  0 

5791 

HI  5 

TCNOVAC 

OCT 

2689 

REF 

3 i 

LAST 

263 

9550 

0 5(01  1 

T CWA I T 

1 c 

2690 

REF 

2 

LAST 

290 

5735 

TCTSKOVR  = 

2691 

REF 

8 

LAST 

197 

9551 

0 5R39  0 

TCFINDVC  TC 

2692 

RfF 

9 

LAST 

202 

5226 

ChrPRIO 

= 

2693 

LAST 

9552 

03  ni 

0 

LOW  11 

OCT 

2699 

REF 

7 

256 

9552 

B12-1 

EQUALS 

2695 

9553 

00377 

1 

LOWS 

OCT 

2696 

9559 

00023 

0 

VOl 

OCT 

2697 

9553 

OOO2I 

1 

NOl 

OCT 

2698 

9556 

00O25 

0 

MDI 

OCT 

2699 

955  > 

00012 

1 

BlNCON 

DEC 

2700 

REF 

18 

LAST 

235 

9560 

3 7797 

1 

FALTON 

CA 

2701 

9561 

0 OOO6 

1 

EXTEND 

2702 

7 7 n 7 

REF 

D r CT 

5 

LAST 

1 y\  C 

271 

9562 

05  on 

1 

WOR 

K Lr 

128 

LAS  1 

290 

9563 

0 0002 

0 

TC 

2709 

0 *7  n c 

REF 

19 

LAST 

290 

9569 

9 7797 

0 

FALTOF 

CS 

c ( Ub 

9563 

0 0006 

1 

EXTEND 

2706 

REF 

6 

LAST 

290 

9560 

03  On 

1 

«AND 

2707 

REF 

129 

LAST 

290 

956  7 

0 0002 

0 

TC 

27O8 

REF 

11 

LAST 

188 

957^ 

3 7751 

0 

RELDSPON' 

CAF 

2709 

7 7 1 n 

1 A C Y 

957I 

0 0006 

1 

EXTEND 

K C.  r 

7 

L Ao  1 

290 

9572 

05  On 

1 

WOR 

2711 

REF 

130 

LAST 

290 

9573 

0 0002 

0 

TC 

CYL 

CYL 

CYL 

Q 


0 


37 

1790 

76000 

S^/CT3  +5 
WAITLIST 
SVCT3  +1 
FlNDVAC 


PRI030 

3777 

LOWll 

377 

23 

21 

2S 

10 

BIT7 


DSALMuUT 

Q 

BIT7 

d.salmuut 

0 

B1T5 

DSALMOUT 

Q 
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USER'S  OWN  Page  no.  72 


MUST  STAY  HERE 


EXEC  priority  Of  CHaRIN 


TURN  ON  operator  ERROR  LIGHT 

BIT  7 OF  CHANNEI  11 

TURN  OFF  operator  ERROR  LIGHT 
BIT  7 OF  CHANNEI  11 

TURN  ON  KEY  RFLfASE  LIGHT 


BIT  S OF  CHANNEI  11 


48895^A  YJL  SVSTIfM  f UR  AGC : PRO^RA'I  SH^PatIN  3Y  eYLlS 


u pinbAll  game  BUTTONG  ANo  l^ghtg 


2712 

A57A 

0 0^06  1 

lodsampt  extend 

2713 

REF 

11 

LAST 

282 

4573 

3 0025  0 

OCA 

TIME2 

271A 

REF 

3 

LAST 

207 

467P 

52  OlA  0 

OXCH 

samptime 

2715 

REF 

131 

LAS'i 

290 

A57  I 

0 0002  0 

TC 

Q 

2716 

ApOO 

0 OOOo 

1 TpsLl 

extend 

2717 

REF 

1 7A 

LAS! 

275 

A601 

3 01a6 

1 

OCA 

MPAC 

2718 

REF 

1 ?5 

LAST 

291 

A602 

20  lAo 

0 

OAS 

MPAC 

2719 

REF 

176 

LAST 

291 

A603 

6 OlAA 

0 

AD 

MPAC 

2720 

REF 

177 

LAST 

291 

A60A 

2 5 IAh 

1 

ADS 

MPAC 

2721 

A 6 O S 

5 A 0 0 7 

1 

t s 

7 

2722 

REF 

132 

LAST 

291 

A60P 

0 0002 

0 

rc 

(J 

2723 

272A 

REF 

REF 

8 

133 

LhST 

LAST 

261 

291 

A60  ( 
A6lO 

5A  111 

0 0002 

1 

0 

TS 

TC 

OVFIND 

0 

2725 

Rlf 

22 

lAsi 

203 

A6l  I 

3 7(50 

1 

FlAshON  cAf 

B1T6 

2726 

A612 

0 0O06 

1 

extend 

2727 

REF 

8 

Last 

290 

A613 

05  011 

1 

aIOR 

OSALMOUT 

2728 

REF 

13A 

LAST 

291 

A61A 

0 0002 

0 

TC 

Q 

2729 

ref 

23 

LAsI 

291 

A615 

A 

7(50 

0 

FlAshOFF  cs 

B1T6 

2730 

A6l0 

0 

0006 

1 

EXTEND 

2731 

REF 

9 

LAST 

291 

A617 

03 

Oil 

1 

/JAND 

OSALMOUT 

2732 

REF 

135 

LASI 

291 

A620 

0 

0002 

0 

TC 

Q 
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SHIFTS  MPAC»  +1.  +2  lEF'I  1 

LEAVES  OVFIND  SfT  TO  +/-  1 FOR  OF/UF 


TS  A DOES  NOT  CHANGE  A ON  OF/UF. 
NO  Net  OF/UF 

OVFIND  set  to  +/-  1 FOR  OF/UF 


TuRM  on  v/fl  FI  Ac,h 
BIT  6 OF  CHANNEI  11 


TURN  Off  v/n  flash 


BIT  6 OF  CHANNEI  II 


48895^A 


L 

P2733 

R273'^ 

R2735 

R2736 
R273  7 

R2738 

R2739 

R2  7^0 

R27A1 

R2  742 
R2743 
R2744 


R2745 

R2746 

R2747 

R2748 

R2749 

R2750 

R2  751 
R2752 

R2  753 
R2754 
R2755 
R2756 
R2757 
R2  758 

R2759 
R2  760 
R2761 


R2  762 
R2763 
R2  764 


R2765 

R2766 

R2767 


yjL  5YSii;M  PoR  AGCj  Pko'^RAM  SHf-PATlN  3Y  eYLeS  D^C  i,,  I966  (MAIN)  PAGe  29-7 


pinball  (jaML  BUTTONb  mNO  LloHTb  USER'S  Ov^N  PaGF  NO.  74 

IMTeR'^Al  routines  that  USf  TRr  <e'^B0ARD  AND  DISPLAY  5YSTEM(tHRU 
NYSU3)  IvUSt  TC  GRABDSP  ReKo^eHaNO  , TO  GRAB  THE  DISPLAY  SYSTEM  AND 

nakl  it  busy  to  other  interna-  users. 

when  hnished  , there  MJ61  Be  a tc  freedsp  , TO  Release  the 
SYSTEM  lOR  other  INTERNAL  USERS, 

TiiE  Calling  sedjences  are 

L TC  GRABuSP 

L+l  RETURN  HERE  wHeN  SYSIEM  IS  ALREADY  GRABBED 

L*2  RETURN  HERE  MEANS  YOJi  HaVe  IT 

L TC  NVSUB 

L+1  RETURN  HERE  IE  OPERATOR  Has  INTERVENED 

L+2  RETURN  HERE  AFTER  EXECUTION 


A routine  called  grabUsy  is  Provided  (Use  is  optional)  to  put  your 

UDB  TO  SLEEP  UNTIL  He  SySIeM.  IS  FREED  BY  THE  UU3  HOLDING  IT, 

GRABJaY  CANNOT  BE  CALLeD  FRUN  e MEMORY,  SINCE  JOBSLeeP  AND  JOBWAKE 

handle  only  Fixed  memory. 

YDUR  CALK  IS  PUT  AT  FIRST  aVaILABLe  SLOT  IN  A WAITING  LIST  (FlFo). 

THE  Calling  se'JJencf  is 

CAF  WAKEFCmDR 

rc  GRABUSY 

A ROUTINE  called  NVSUBUaY  IS  PROVIDED  (USE  IS  OPTIONAL)  TO  PUT 
YDUR  UOB  TO  SLEEP  UNTIL  THE  OPERAIOR  RELEASES  IT. 

NVSU3USY  CANNOT  BE  CALLED  FROM.  £ MeMORY,  SINCE  J03SLfeP  AnD  JOBWAKE 
handle  only  Fixed  memory. 

YOUR  CADR  is  put 

ON  TUP  OF  A waiting  LIST  (FiFD').  IT  ALSO  TURNS  O.T  KEY  RELeASf  LIGHT. 

THE  CALLING  SEDUeNCE  Is 
CAF  WAKEFCADR 

tc  NVSUBJSY 


A'TER  a tc  FREEDSP.  I HL  InTErmaL  INTERLOCK  IS  KEPT  BUSY  FUR  1.75  SECS. 

after  WEicH  A cadr  is  Called  =rom  the  list,  this  insures  that  all 
displays  waiting  WILL  BE  VIS13LE. 


GRaBLoCK  is  the  internal  interlock  EqR  the  use  of  the  KEYBOARD 
AND  display  system. 

♦D  FREl 


‘+8895^A  YJL  system  TOR  AGC;  MEW  PROGRAM  SHePATIN  bY  EYLES 

L PIiMBaLL  GaMe  buttons  aNU  L13HITS 

R2768  +1  SOME  INTERNAL  ROUTINE  HA5  GRABBED  DSP  SYST 
R2769  +2  some  INTERNAL  ROUTINE  HAS  oONb  TO  NVSUBU5Y 


2770 

2771 

ref 

REF 

3 

1 36 

Last 

LAST 

262 

291 

A62l 

A622 

n ^30 
0 0002 

0 grabdsp 

0 

CCS 

1C 

GrABLoCK 

Q 

2772 

REF 

T7 

LAST 

281 

9623 

3 7 7 S 5 

1 

CAF 

ONE 

2773 

277A 

REF 

REF 

A 

LAST 

LAST 

293 

277 

A62H 

A62S 

59  330 

1 700b 

0 

1 

T5 

TCP 

GrABLOCK 

0+1 

2 775 
2776 

ref 

ref 

2 

137 

lAsi 

LAST 

281 

293 

962b 

9627 

3 5^56 
7 0002 

1 

1 

pregbsy 

CAp 

MASK 

LOWIO 

0 

2 777 

REF 

2 

Last 

276 

9630 

6 OOO9 

0 , 

AD 

FBANK 

2778 

REF 

21 

last 

269 

9631 

0 5<i93 

1 

GRABUSY 

1C 

POSTJUMP 

2779 

REF 

1 

9632 

lOOOO 

0 

CADR 

GRABUSYB 

2780 

REF 

2 

L A 0 T 

277 

St  1 LU'w  UUKKUL 

2781 

REF 

58 

last 

277 

0-t,3972 

59  001 

1 

GRABUSYl 

IS 

L 

2782 

REF 

5 

LAST 

293 

09,3973 

10  330 

0 

CCS 

GRABLOCK 

2783 

Oh , 3979 

0 3A77 

0 

T C 

+ 3 

2789 

REF 

59 

LAST 

293 

09,397s 

3 ouoi 

0 

CA 

L 

2785 

REF 

10 

last 

269 

09,397b 

0 5296 

1 

TC 

BANKUUMP 

2 786 

REF 

35 

LAST 

28l 

09,397  ^ 

3 7759 

0 

CAF 

T wO 

2787 

REF 

1 

09,3500 

59  139 

0 

TS 

LSTPTR 

2788 

REF 

2 

last 

293 

0 , 3 5 0 1 

50  139 

1 

INDEX 

LSTPTR 

2 789 

REF 

9 

LAST 

86 

O9 ,3502 

10  U33 

0 

CCS 

DSPLIST 

2790 

Oh, 3503 

0 3S05 

1 

TC 

+ 2 

2 791 

REF 

1 

Oh, 3509 

0 3S10 

0 

TC 

PUTINLST 

2792 

REF 

3 

LAST 

293 

09,3505 

10  139 

0 

CCS 

LSTPTR 

2793 

09 ,3b0b 

0 3S00 

1 

TC 

-6 

2 799 

REF 

1 

O9 ,3507 

0 3S59 

0 

TC 

LSTFULL 

2795 

REF 

60 

LAST 

293 

Oh, 3510 

3 OUOl 

0 

PUTINLST 

CA 

L 

2796 

REF 

9 

LAST 

293 

09,3511 

50  I39 

1 

INDEX 

LSTPTR 

2797 

REF 

5 

LAST 

293 

09,351^ 

59  333 

0 

TS 

DSPL I ST 

2798 

REF 

9 

LAST 

2 76 

09,3513 

0 5S63 

1 

TC 

UOBSLEEP 

R2799  GRABa'AIi  I5  A SPECIAL  LNTrAI'cE  FOR  ROUTINES  IN  F UED  bANks  ONlY.  IP 

R28OO  system  is  NOT  grabbed,  IT  GRASS  II  AND  RETURNS  TO  L+i  ( L ; LoC  FROM 

R28OI  WHICH  ThE  TC  GRABWAIT  WAS  P0\JE).  IP  SYSTEM  IS  GRASBeD,  IT  PUtS  CALLING 

R28O2  UDB  TO  SLEEP  WiTh  L+i  GOING  IMTO-  b-lST  FOR  EVENTUAL  WAKING  UP  WHEN 

R2803  SYSTEM  iS  FREED. 


2809 

REF 

1 

9633 

SETLOC 

GRABUSY 

2 805 

REF 

6 

LA  5 7 

293 

9633 

10  S30  0 

GRABWAIt  CCS 

GRABLOCK 

2806 

REF 

1 

963A 

1 9b26  0 

TCF 

PREGBSY 

2807 

REF 

78 

LA51 

293 

963S 

3 7755  1 

CAF 

ONE 
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ALREADY  GRABBED.  RETURN  TO  L+1 
NOT  GRABBED,  SEl  TO  +1 

AND  RETURN  TO  L+2 


special  entrancf  fOr  routines  IM  fIXEd 

BANKS  ONLY  DFSIrING  THE  FCADR  OF 
1 + (LOC  FROM  Which  TC  PREGBSY  aAS  DONE) 
TO  BE  ENTcRLD. 


STILL  GRABBED 

NOT  grabbed  so  nO  DIRECT  CALL 


search  list  For  first  available  space 

FROM  BOTTOM, 

space  found 
decrement  POINTfR 


grabbed,  put  l+1  into  list,  go  ro  sleep. 

NOT  grabbed.  GRaB  AnD  RETURN  TO  L+1. 


488954A  YJL  SYSTL'M  FOR  A&C . SHePaiIN  BY  tYLfS 

U PINBaLL  OaMe  BUlTONb  AND  LloiHS 

2808  REF  7 last  293  A63B  S'.  A30  0 TS  GRABLOCk 

2809  REF  138  LAST  293  A63Y  0 0O02  0 TC  Q 


2810 

2811 

REe 

REF 

1 

139 

LAST 

299 

9690 

969 1 

2812 

REF 

3 

LAST 

293 

9692 

2813 

REF 

22 

LAST 

293 

9693 

2819 

REF 

1 

969A 

2815 

9695 

2816 

REF 

2 

LAST 

293 

2817 

ref 

61 

LAST 

293 

09,351A 

A abas  0 PRENVBSY  CS  2k+3 

b 0002  0 AD  Q 

b OOOA  0 AD  FBANK 

0 52A3  1 NVSUBUSY  TC  POSTJUMP 

lOOOl  1 CADR  NVSUBSYB 

02O03  0 2<+3  OCT  2003 

0A»351A  SETLOC  PUTINLST  +A 

SA  001  1 NVSUBSYl  TS  L 


2818  REF 

2819 

2820  REF 

2821  REF 

2822  REF 

2823  REF 
282A  REF 

2825  REF 

2826  REF 

2827  REF 

2828  REF  1 

2829  REF 

2830 

2831  REF 

2832  REF 

2833  REF 
283A  REF 


8 last  276 

62  last  29A 
11  LAST  293 
36  LAST  293 

8 LAST  29A 

63  Last  29A 
6 LAST  293 

■ 7 LAST  29A 
8 LAST  29A 
83  LAST  282 

2 LAST  293 

3 LAST  29A 
2 LAST  26A 

6A  LAST  29A 
5 LAST  293 


Oa,351B  10  303  0 CCS 

0<.,3blB  0 3P21  1 TC 

0a»361Y  3 OOOl  0 CA 

0a,3520  0 5AA6  1 TC 

0a,3521  3 7'SA  0 CAF 

0a,3522  5A  ^>30  0 TS 

0a,3523  3 0001  0 CA 

0A,352A  5b  335  1 >,CH 

0A,3b2S  5b  33A  0 XCH 

0a,352B  56  333  1 XCH 

0A,352Y  10  OOO  0 CCS 

OA.353O  0 3P5A  0 TC 

0A»353l  D 3S33  1 TC 

Oa,3532:  0 3S5A  0 TC 

0a,3533  0 aP70  1 TC 

0a,353A  3 0001  0 CA 


0A,353S  0 5S63  1 ENDNVBSY  TC 


DSPLOCK  ' 

+ 3 

L 

BANKJUMP 

T7.0 

GRABLOCK 

L 

DSPLTST  +2 
DSPLIST  +1 
DSPLTST 
A 

LSTFULL 

+ 2 

LsTFULL 

RELDSPON 

L 

JOBSLEEP 


R2835  Nv'SBWAIl  1$  A SPECIAL  LNTrANcE  FOR  ROUTINES  IN  fIXED  bANKs  ONlY.  IF 
R2836  SYSTE'A  iS  NOT  BUSY,  IT  EXECUTES  VXN  AND  RETURNS  TO  L+i  (L=  LOC  FROM 

R2837  WHICH  TF'E  TC  NVSBWAIT  WAS  DOME).  IF  SYSTEM  IS  BUSY,  It  PUTS  CALLING  JOB 

R2838  TO  SLEEP  with  L-1  GOING  INTO  _1ST  FOR  E'/ENTUAL  WA<ING  UP  WHeN  SYSTEM 
R2839  IS  NO  I busy. 

2890  REF  2 LAST  206  9696  SETLOC  NVSUBUSY  +3 

2891  REF  8 LAST  275  9696  59  113  0 NvSBWAIT  IS  NVTEMP 

2892  REF  9 LAST  299  9697  10  303  0 CCS  DSPLOCK 

2893  REF  1 9650  1 9653  1 TCF  NVSBWTl 

289a  ref  I9O  LAST  299  9651  3 0OC2  0 CA  Q 

2895  REF  3 LAST  206  965^^  1 9990  1 TCF  NVSUB  +5 

2896  REF  1a1  LASl  299  9653  29  O02  0 NvSBWTl  INCR  Q 

2897  REF  1 965A  i 9690  0 TCF  PRENVBSY 
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spEcial  entrancf  pOR  routines  I ) f^xed 
BANKS  only  Desiring  the  fcadr  of(LOC 
from  which  THF  iC  prenvbsy  was  done)  -2 

TO  BE  ENTERED. 


TEST  IF  really  I OCKED  OUT 
STILL  BUSY 

DSPLOCK  = +0  SO  return  DIRECtLY 

SET  FOR  GRABBED  STATE  AND  NVSUBjSY  USE 


enter  CADR  INTO  FIRST  POSITION  OF  LIST 
(bottom. 


BUSY 

FREE.  NVSUB  WILl  SAVE  L+1  FOR  RETURN 
AFTER  EXECUTION, 

L+2.  PRENVBSY  WILL  PUT  L-1  INTO  LIST  AND 
GO  TO  SLEEP. 


4889f>4A  YJL  SY5lbM  FOR  AGO:  PkOGRi^^  SHtPATlN  BY  BYLE.S 


L PiNbALL  GAML  BUTTONS  ANq  L^S-iTS 


28A8  REF  1A2  LAST  29A  4655 

2849  REF  1 4656 

2850  REF  2 LAST  249  465"? 

2851  REF  9 LAST  294  4660 

2852  4661 

2853  REF  1 4661^ 

2854  REF  1 4663 

2855  REF  2 LAST  295  4o6A 

2856  REF  4 LAST  277  4665 

2857  REF  79  LASl  293  4666 

2858  REF  10  LAST  295  466? 

2859  4670 

2860  REF  12  LAST  290  4671 

2861  467*^ 

2862  REF  10  LAST  291  4673 

2863  REF  85  LASl  278  467^ 

2864  REF  10  LASl  294  4675 

2865  4670 

2866  REF  2 LAST  295  467'? 


5b  002 

0 

RELDSP 

XCH 

Q 

54  134 

0 

TS 

RELRET 

3 7?63 

1 

CAF 

NEGl 

■ 6 033c 

1 

AD 

grabi ock 

0 0006 

1 

EXTEND 

6 4670 

1 

3ZMF 

RELDSP2 

0 4 ?03 

1 

T C 

wksf  arch 

0 4670 

1 

TC 

RELDSP2 

0 5567 

0 

TC 

jobwake 

3 7 ? 5 5 

1 

CAF 

ONE 

54  330 

0 

TS 

grarlock 

0 0004 

0 

RELDSP2 

INHInT 

4 7 ?5  1 

1 

cs 

Bits 

0 OOO6 

1 

EXTEND 

03  011 

1 

aIAND 

DSALMOUT 

3 7 ?61 

0 

CAF 

ZERO 

54  303 

0 

TS 

DSPLOCK 

0 0O03 
0 0I34 

1 

1 

RELINT 

TC 

RELRET 

2867  REF  143  LAST  295  4700  56  002  0 RELDSPl  XCH  Q 

2868  REF  3 LASl  295  470l  54  134  0 IS  ReLRET 

2869  REF  3 LAST  295  4702  0 467O  1 TC  RELDSP2 


2870 

ref 

86 

LASl 

295 

47o5 

3 7?6i 

0 

WKSeARCH  caf 

Zero 

2871 

REF- 

9 

LAST 

294 

470A 

5 b 333 

1 

xCH 

DsPL I ST 

2872 

REF 

10 

LAST 

295 

4705 

56  334 

0 

XCH 

DSPLIST  +1 

2873 

REF 

11 

LAST 

295 

4706 

56  335 

1 

xch 

DSPLIST  +2 

2874 

470  ? 

0 OOO6 

1 

EXTEND 

2875 

REF 

3 

LAST 

157 

4 710 

1 7011 

1 

3ZF 

TC(j 

2876 

4711 

0 0004 

0 

INHINT 

2877 

REF 

5 

LAS  1 

293 

4712 

1 7006 

1 

TCF 

Q+1 

2878 

REf 

144 

last 

295 

4713 

56  002  0 

freedsp 

XCH 

0 

2879 

REF- 

1 

47IF 

54  134  0 

TS 

FREFRET 

2880 

4715 

0 0004  0 

INHINT 

2881 

REF 

1 

4716 

3 4?24  1 

CAF 

SHOTIME 

2882 

REF- 

32 

LASl 

290 

471  ! 

0 5?01  1 

TC 

WAITLIST 

2883 

REF 

54 

LASl 

277 

EO 

ebank= 

DSPCOUNT 

2884 

4720 

33536  1 

2CADR 

freewait 

C2884 

REf 

1 

4 721 

lOOOO  0 

2885 

472Z 

0 0003  1 

RELINT 

2886 

REF 

2 

LAST 

295 

4723 

0 0134  1 

TC 

FREFRET 

2887 

472A 

00257  1 

shotime 

DEC 

1 75 

2888 

REF 

1 

04'3536 

SETLOC 

ENDNVBSY  +1 
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SET  DSPLOCK  TO  *0,  TURN  RELDSP  LIGHT 
OFF,  SEARCH  DSpLIST 


SEARCH  LIST  ONLY  IF  GRAbLOCK  = +2 
(SOMEONE  USFLj  NVSubUSY) 

LIST  EMPTY 
LIST  NOT  empty 


TURN  OFF  KEY  REI  EASf  LIGHT 
(BIT  5 OF  channel  ll  ) 


SET  DSPLOCK  TO  +0,  RELUSP  LloHT  OFF, 
NO  LIST  Search 


searches  list.  I EAVeS  result  in  a. 

IF  EMPTY,  return  to  L+1. 

IF  NOT  EMPTY,  InHINt  AND  RETURN  TO  L+2. 


EMPTY,  RETURN  T(;  L+1 
NOT  EMPTY 
RETURN  TO  L+2 


SET  FOR  1.75  SEC. 


^8895‘tA  YJL  bVSiLM  l-OR  AtiC ; N^Vv  PRO'^^A*'!  S^^t^^ATlN  BY  tYLt-b 


L 

pinball 

Game 

buttons 

1 AND  Ll3 

Hit  5 

2889 

REF 

3 

Last 

263 

da, 3536 

3 5^26 

1 

FREEWAIT  CAF 

CHRPRIO 

2890 

REF 

1 2 

LAST 

263 

0 A ,3537 

O 5523 

0 

T C 

NOVAC 

2891 

REF 

55 

LAST 

295 

EO 

ebank= 

DSPCOUNT 

2892 

Oa , 35 AU 

035A3 

0 

2CA0R 

fredspdo 

C2892 

REF 

1 

0A,35A1 

lOUOO 

0 

2893 

REF 

23 

LAST 

263 

0A,35AZ 

0 5 1A5 

1 

TC 

TASkOVER 

289A 

2895 

2896 

R^r 

REF 

REF 

2 

1 

5 

LA5I 

LASl 

295 

295 

2897 

2898 

REF 

bO 

LAST 

295 

2899 

REF 

1 1 

LASl 

295 

2900 

REF 

A8 

LAST 

278 

2901 

2902 

REF 

8 J 

LAST 

295 

04,3b>A3  0 A/03  1 FrEdsPpO  Ic  WKSPArch 

0A,3bAA  0 3t>5Z  0 1C  LSTEMPTY 

O'tibSAb  0 5567  0 TC  JUBWAKE 

0A,35Af>  0 0<J03  1 RELINT 

0't,35A7  3 7 ^65  1 CAP  ONE 

0A,3550  6A  330  0 TS  GkABLOCK 

0l,355J-  0 5505  1 TC  ENDOFJOB 

0a,356Z  3 7161  0 LSTEMPTY  CAF  ZeRO 

0a,3553  0 3550  1 TC  -3 


0^*356A  O 6000  1 LSTFULL  TC 
0<t*3655  01Z06  1 OCT 


2903  REF  LAS!  269 

290A 


ABORT 

01206 
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USER'S  OwN  PAUp  NO.  76 
called  by  T3RUPt 


cAllEd  by  Executive 

LIST  EMPTY 
LIST  NOT  EMPTY 

SET  FOR  GRABBED  CONDITION 


SET  FUR  free  CONDITION 


pinball  waiting  line  full. 


488954a  YJL  b>5Tt:M  f-OR  SHePATIN  BY  £YLtS 


i^«  1966  (Main)  PA^t;  297 


L PINBALL  BAMt  BUTTONB  AND  LloHiTS 

P2905  Y3TblLTS  TURNS  ON  ALL  LISPLAy  PanLL  LIGHTS.  AFlbR  5 SpC,  IT  TURNS 
R2906  OFF  THE  CAUTION  AND  STATUS  Lisms* 

2907  REF  1 05»341A  SETLOC  DSPMMEND  +1 


2908 

2909  REF  24 

2910  REF  lA 


05 

LAST  270  OS 

LAST  233  OS 


3A14  0 OOOA  0 
3A15  A 7'55  0 
3A16  7 0366  0 


VBTSTLTS  INHTNT 

CS  BlTl 
v'lASK  IM0DES33 


2911  REF  25  LAST  297  0S»3a17  b 7(55  1 

2912  REF  i5  LAST  297  05,3a20  S4  366  0 


AD  BlTl 

IS  IM0DES33 


2913  REF 

2914 

2915  REF 

2916  REF 

2917  REF 

2918  REF 

2919 

2920  REF 

2921  REF 

2922  REF 

2923  REF 

2924  REF 

2925  REF 

2926  REF 

2927  REF 

2928  REF 

2929  REF 

2930  REF 

2931  REF 

2932  REF 


1 

II  LAST  295 
1 

35  last  272 
29  LAST  233 

2 LAST  233 

3 LAST  229 

5 LAST  233 
1 

6 LAST  297 

36  LAST  297 

7 LAST  297 
1 

1 

37  LAST  297 

38  LAST  297 
59  LAST  297 

1 


05 

05 

05 

05 

05 

05 

05 

05 

05 

05 

05 

05 

05 

05 

05 

05 


3A2l 

3422 

3423 

3424 

3425 

3426 

3427 

3430 

3431 

3432 

3433 

3434 
3436 

3436 

3437 

3440 

3441 
442 


3 3457  1 
0 0006  1 
05  011  1 

3 3460  0 
54  ^26  1 
3 7(44  1 
0 OOO6  1 
05  013  0 

3 4S57  1 
54  107  0 

4 3455  1 
50  107  1 
54  313  1 
10  107  0 

0 3432  1 

4 3456  1 
54  314  0 
54  317  0 
54  321  0 
3 7(56  1 


T5TLTS1 


CAF  TSTCONl 

EXTEND 

«OR  DSALMOUT 

CAF  TSTC0N2 

TS  DSPTAB  +11D 

CAF  BITIO 

EXTEND 

4OR  CHAN13 

CAF  ten 

IS  ERCNT 

CS  FULLDSP 

INDEX  ERCNT 

TS  DSPTAB 

CCS  ERCNT 

TC  TSTLTSl 

CS  FULLDSPl 

15  DSPTAB  +1 

TS  DSPTAB  +4 

TS  DSPTAB  +6 

CAF  ELEVEN 


2933 

REF 

7 

LAST 

268 

050445 

2934 

2935 

2936 

REF 

1 

05 .3446 

05.3447 
05,3450 

2937 

2938 

2939 

REF 

REF 

33 

40 

Last 

LAST 

295 

297 

05.3451 

05.3452 

C2939 

2940 

A2941 

A2942 

REF 

REF 

1 

49 

LAST 

296 

05 . 3453 

05.3454 

54  307 

1 

TS 

NOUT 

0 0003 

1 

RELInT 

3 3462 

1 

CAF 

SHOLTS 

0 0004 

0 

INHINT 

0 5(01 

1 

1 C 

WAITLIST 

EO 

ebank= 

DSPTAB 

03463 

0 

2CADR 

TSTLTS2 

I2UOO 

1 

0 5605 

1 

TC 

ENDOFJOB 

2943 

2944 

05.3455 

05.3456 

05675 

07675 

0 

1 

F JLLDSP 
FJLLDSPl 

OCT 

OCT 

05675 

07675 

2945 

A2946 

A2947 

05 ,3457 

00175 

1 

T STCONl 

OCT 

00175 

USER'S  OWN  PABf  no.  79 


SET  BIT  1 OT  IMnDES33  SO  IMUMON  WONT 
TURN  OUT  ANY  I AMPS. 


TURN  ON  UPLINK  aCtIvUY.  TEMP,  <eY  RLSE. 
V/N  FLASH,  OPERATOR  ERROR. 

TURN  ON  NO  ATT,  GIMrAL  LOCK,  TRaCKER, 
PROG  ALM. 

TURN  ON  TEST  ALflRM  OUTBlT 


TURN  ON  3 PLUS  rIGNS 


DSPLocK  IS  Left  busy  (from  Keyboard 
ACTION)  UNTIL  T4TLTS3  10  INSURE  THAT 

lights  test  wili  be  seen. 


DISPLAY  ALL  8:5 
DISPLAY  ALL  8:S  AND  + 

UPLINK  activity,  TEMP,  KeY  RLSE, 
V/N  FLASH,  operator  ERROR. 


YJL  system  tor  AOC;  new  PrO'J^A.M  SMcPATIN  by  eyles 


L PinBaLL  GAMt  buttons  AND  LISHiTS 


2948 

05,3460 

40650 

0 

TSTC0N2 

OCT 

40650 

A2949 

2950 

A2951 

05,3461 

00115 

1 

TSTC0N3 

OCT 

00115 

2952 

05 , 3462 

00  7 64 

1 

Shoe i s 

OCT 

764 

2^53 

2954 

R£F 

ref 

4 

13 

Last 

LAST 

296 

296 

05.3463 

05 . 3464 

3 5226  1 TSTLTS2 

0 5323  0 

CAP 

TC 

chrprio 

NUvAC 

2955 

REF 

41 

LAST 

297 

EO 

ebank= 

dsptab 

2956 

05,3463 

03470  1 

2CADR 

TSTLTS3 

C2956 

REF 

1 

05 ,3466 

12000  1 

2957 

REF 

24 

LAST 

296 

05,3467 

0 5745  1 

TC 

TASKOVER 

2958 

2959 

2960 

2961 

2962 

2963 
296A 

2965 

2966 

2967 

2968 

2969 

2970 

2971 

2972 

2973 
297A 


2975 

2976 


2977 

2978 


ref 

1 

REF 

12 

LAST 

297 

REF 

30 

LAST 

297 

REF 

3 

LASl 

297 

REF 

26 

LAST 

276 

REF 

42 

LAST 

298 

REF 

1 

REF- 

16 

LAST 

297 

REF 

4 

LASl 

233 

REF 

17 

LAST 

298 

REF  1 


REF 

58 

LAST 

233 

REF 

2 

LAST 

117 

REF 

59 

LASl 

298 

REF 

1 

REF 

74 

LAST 

233 

REF- 

REF 

20 

75 

LAST 

LASl 

290 

298 

05 

05 

05 

05 

05 

05 

05 

05 

05 

05 

05 

05 

05 


3A70 

3471 

3472 
347B 
347A 

347B 
347P 
347  V 

3500 

3501 

3502 

3503 
350A 


05.3503 

05.3506 

05.3507 
05,3blO 


05.3511 

05.3512 

05.3513 
05 , 35 1 A 


4 3A6I  0 TsTl1s3 
0 0004  0 
0 OOO6  1 

03  011  1 

4 7^44  0 
0 0006  1 
03  013  0 

3 7737  0 
54  326  1 

4 3321  0 
7 0366  0 

6 5660  1 
54  366  0 

4 3323  1 

7 0365  0 

6 5657  0 

54  365  0 

4 3322  0 

7 0413  0 

6 7747  1 

34  413  0 


CS  TsTcOii3 

INHINT 

EXTEND 

/(AND 

DSALMOUT 

CS 

BIT  10 

LA  1 bNU 

(VAND 

CHAN13 

CAP 

BIT15 

TS 

DSPTAB 

CS 

13-11,1 

MASK 

IM0DES33 

AD 

PR1016 

TS 

IM0DES33 

C5  OCT55OOO 


MASK 

AD 

1M0DFS30 

PRI015 

1 S 

IM0DFS30 

CS 

RFAILS2 

MASK 

RADMODES 

AD 

TS 

BIT7 

RADMODES 

2979 

2980  REF  2 

2981  REF  23 

2982  REF  2 

A2983 

A2984 

A2985 


05 

last  80  05 
LASr  294  05 
LAST  240  05 


3513  0 0003  1 

3516  0 2001  1 

3517  0 5243  1 

3520  11333  1 


RELINT 

TC  DSPMM 

TC  POSTJUMP 

CADR  VBTERM 


dec  13,  1966  (MAIN)  PAGE  298 


USER'S  OWN  PAGp  NO.  80 

DSPTAB+110  RITA  4, 6, 8, 9, 

NO  ATT,  GlMBAI.  lOCK,  TRACKER,  PROG  ALM. 
CHAN  11  bits  1.  3,  4,  7. 

UPLINK  activity.  TEMP,  OPERATOR  ERROR, 

5 SEC 


Called  by  Waitlist 


called  by  Executive 

TURN  OFF  UPLINK  ACTIVITY,  TeMP, 
OPERATOR  ERROR. 

TURN  OFF  TEST  Al  ARM  OUTBIT 


TURN  OFF  AUTO,  wULD,  FREE,  NO  Al T , SPARE 
GIMBAL  LOCK,  SPARE,  TRACKER,  PROG  ALM 
SET  BITS  10  INDICATE  ALL  LAMPS  lUT,  TESI 
LIGHTS  COMPLETE. 


15000. 


REDISPLAY  C(MODrEG) 

TURN  OFF  KEY  RLSE  LIGHT  (AND  SEARCH  LIST 
IF  APPROPRIATE  1 . 

TURN  OFF  V/N  FLASH,  SET  LOADSTAr  FOR 

FOR  terminate  Condition,  and  go  to 
RECALtST.  FINALi  Y Do  tc  endoejob. 


^ssgs'tA 

YJL  system  ^0R  AGC:  fMEW  Pko'^RAVI  sHePATI 

u BY  eYLeS 

Dec  13,  1966  (MAIN)  PAGE  299 

L 

PINBAUL  GAME  BUTTONS  Mtip  L^GHiIS 

USER'S  OWN  PAGE  NO.  81 

2986 

2987 

2988 

0S*352l  16O01  1 
0S»3S22  30330  1 
05.3523  55OOO  1 

1 3*1 1.1  OCT 
RFAILS2  OCT 
0CT55000  OCT 

16001 

330 

55000 

RADAR  CDU  AND  DATA  FAIL  FLAGS. 

488954A  Y JL  ^^ySIEm  f-OR  A&c  I NEW  pROORAvi  SHerATIN  BY  EYLES 


L 

005A 

005A2 

0053 

00555 

0056 

0057 

0058 

0059 

00591 

00592 

00598 

0060 

00602 

00604 

00606 

00607 

0060B 

00609 

0061 

00612 

00614 

0062 

0063 

0064 

0065 

0066 

0070 

0071 

0072 

R0480 

R0481 

A0482 

A0483 


Ai-arm  ai\u  abort 


4725 

n ™ c:  1 1 1 r 

3L0CK 

Equals 

inhint 

02 

REF 

1 1 

Last 

272 

4725 

4725 

0 OUOa  0 

HULL 

CCSHOLE 

CCSHOLE 

REF 

145 

LAS  f 

295 

4729 

u 

CA 

0 

REF 

2 

last 

283 

4727 

.551^42 

1 

TS 

ALMCADR 

R^F 

1 

473D 

0 6UO3 

1 

tc 

A60rT2 

473I 

01103 

1 

DCT 

1103 

4732: 

0 0U04 

0 

c iRt  a I ns 

I NH I NT 

REF 

1 A6 

LAST 

300 

4733 

3 0L02 

0 

CA 

Q 

REF 

3 

LAST 

300 

4734 

55*342 

1 

IS 

ALMCADR 

rhf 

1 

4735 

0 47a7 

1 

TC 

AlArm2 

4736 

00310 

0 

OCT 

00310 

4737 

0 0004 

0 

JETENTRY 

inhint 

REF 

1 

474O 

3 47A3 

0 

CAP 

CURTRB 

REF 

1 3 

LAST 

274 

4741 

5 6 OO6 

1 

XCH 

BBANK 

REF 

3 

LAST 

89 

4742 

1 2OOO 

1 

ICF 

FORGETIT 

REF 

27 

Last 

211 

t3 

ebank= 

LST  1 

REF 

4 

LAST 

300 

4743 

16U03 

0 

C iRTbB 

3BC0N 

FuRGFTIT 

07*2061 

3ANK 

0/ 

REF 

1 

07»206l 

0 4921 

0 

LARMLARM 

1C 

GRABDSP 

ree 

50 

LAST 

297 

07,2062 

0 5905 

1 

TC 

endofjob 

REF 

10 

LAST 

206 

07,2063 

0 4933 

0 

DOALARM 

TC 

GRABWAIT 

REF 

1 

07,2064 

3 2O97 

1 

CAF 

FAILDISP 

REF 

22 

LAST 

208 

07 ,2065 

0 4946 

1 

TC 

NvSBWAIT 

REF 

7 

LAST 

208 

07,2069 

0 5904 

0 

TC 

ejfree 

07,2067 

00550 

1 

Fa  I LD ISP 

OCT 

00550 

D ZC 

27 

1 A C ^ 

Kir 

LAb  1 

182 

07 ,2070 

0 4 1 44 

1 

JET  AtjORT 

T C 

ALARM 

REF 

07,2071 

00312 

1 

OCT 

00312 

1 

0 1^,2072 

1 4(37 

1 

1 CF 

JtTENTRY 

ALARN  is  called  either  in  INieRRUHt  or  under  executive  control 


CALLING  SEQjENCEi 


TC  ALARM 

DCl  AAANN 


A0484 


OEc  1966  (mAIN)  pAGE  300 


USER'S  OWN  PA&E  NO.  1 


SAVE  2CADR  oF  UaeR  pqR  CURTAINS  DISPLAY 

*jntMAY  Change  for  new  alarm  routine****# 


DISPLAY  FAILREG. 


free  DISPLAY  ANn  END  JOB. 


ALARM  NO.  NN  IN  GeNeRAL  AREA  AAA. 


(RETURNS  HERE) 


‘*8895‘*f^ 


Rosoo 

05002 

0501 

05012 

0501^ 

0502 

0503 
050^* 

05042 

05044 

0505 

0506 

0507 

0508 

0509 

0510 

0511 

0512 

0513 

0514 

0515 

0516 

0517 

0518 

0519 

0520 

0521 

0522 

0523 

05232 

05234 

05236 

05238 

005238 

0524 
05245 

0525 

0526 


0527 

0528 


YJL  SY5il:M  for  aOC!  S^ePatIN  3Y  eYLlS 


OhC  lA*  1966  (Makm)  Page  30i 


AwARM  ANU  AbORT 


»»»  failreg  and  vn  Decision^  si  ill  jq  be  ^ade**» 

4744  3L0CK  02 

4744  0 0O04  0 ALARM  INHINT 


USLR'S  OWN  PAOF  NO.  ^ 


REF 

147 

LAS1 

300 

REF 

4 

LASI 

300 

ref 

148 

LAST 

301 

REF 

65 

LAS  I 

294 

REF- 

14 

LAST 

300 

REF 

5 

LAST 

301 

ref 

149 

LASi 

301 

RzF 

10 

LAST 

215 

REF 

8 

last 

283 

3 Z"  C 

Kir 

1 

ref 

9 

LAST 

301 

REF 

1 

REF 

10 

LAST 

301 

rEF 

1 

REF 

11 

LAST 

301 

REF 

1 

REF 

12 

LASI 

301 

ref 

14 

LAST 

265 

REF 

184 

LAST 

294 

REF 

1 

REF 

13 

LAST 

301 

REF 

2 

LASI 

301 

REF 

43 

Last 

298 

rEf 

1 

REF 

44 

LAST 

301 

REF 

2 

LAS1 

81 

REF- 

14 

LAST 

298 

REF 

14 

LASI 

301 

REF 

1 

REF 

1 1 

LASI 

301 

REF 

185 

LASI 

301 

REF  66  LAST  301 
REF  27  LASi  298 


474P  3 0002  0 

4746  55'342  1 

4747  50  P02  0 

4750  3 OOOO  1 

4751  SA  001  1 

475i!  3 OOO6  1 

4753  55*343  0 

4754  3 0002  0 

4753  54  O73  1 

4750  11*363  1 

475'  1 4'62  1 

476°  23*363  0 

4761  1 4'74  0 

4761:  11*364  0 

4763  1 4'66  0 

4764  23*364  1 

4763  1 4'77  0 

4766  3 1365  0 

476  ' 7 7 '35  0 

477G  10  000  0 

4771  1 5G07  1 

4772  23*365  0 

4776  1 4 '77  0 

4774  £*  0326  1 

4773  7 6^06  0 

4776  26  326  1 

477'  3 5676  0 

5000  0 5323  0 

E2 

5001  O2O6I  1 

500-7  16002  1 

5003  Sb  O73  0 
500H  0 0003  1 

5005  50  000  1 

5006  0 0001  0 

5007  3 0001  0 
5010  fa  7737  0 


CA  0 

TS  ALMCADR 

alAkm2  index  Q 

CA  0 

bORTLNT  T5  L 


CA  B8ANK 

T5  ALMCADR  +1 

CA  0 

TS  RUPTREG4 

chkfaili  CCS  failreg 

TCF  CHKFAIL2 

LXCH  failreg 

ICF  PROGLARM 

CHKFAIL2  CCS  Failreg  +i 

TCF  FAIL3 

LXCH  failreg  +1 

TCF  MULTEXIT 

FAIL3  CA  FAILREG  +2 

mask  POSMAX 

CCS  A 

TCF  MULTFAIL 

LXCH  FAILRFG  +2 

TCF  MULTEXIT 

PROGLARM  CS  DSPTAB  +IID 

mask  0cT40400 

ADS  DSPTAB  +11D 

MJLTEXII  CAF  PRI037 

1C  NOVAC 

ebank=  failreg 

2CADR  LARMLARM 

XCh  RUPTREG4 

RELINT 
INDEX  A 

TC  1 

MJLTFAIL  CA  L 

AD  BIT15 


STORE  RETURN  _l  IN  I 


IS  anything  in  failreg 

YES  TRY  NEXT  REr, 

TURN  alarm  light  ON  FOR  FIRST  ALARM 


488954A  YJL  3YSteM  FOR  AGC;  fJtW  PRo'^RaM  SF^PatIN  BY  eYLcR 


DhG  1-^,  1966  (MAIN)  PAGe  302 


L A-ARM  and  abort  USER'S  OWN  PAGp  NO.  3 


0529 

SEF 

15 

LAST 

301 

5011 

5V  *365 

0 

xCH 

FAILREG  +2 

LAST 

05292 

RpF 

1 5 

301 

5012 

7 7 T35 

0 

MASK 

POSMAX 

0529A 

REF 

16 

LAST 

302 

5013 

55'369 

0 

TS 

FAILREG  +1 

0530 

R^F 

3 

LASI 

301 

5019 

1 9 F 7 f 

0 

IGF 

multexiT 

0595 

6000 

BLOCK 

03 

0550 

6000 

0 0*^09 

0 

Abort 

INHINT 

05502 

REF 

150 

LAST 

301 

6001 

3 0O02 

0 

CA 

Q 

05509 

REF 

6 

LAST 

301 

6002 

55*392 

1 

TS 

ALMCADR 

0551 

R^F 

151 

last 

302 

6003 

50  OO 2 

0 

AbOrT2 

INDEX 

Q 

0552 

600A 

3 0000 

1 

CAF 

0 

0553 

REF 

1 

600S 

0 9^51 

0 

T C 

BORTFNT 

0559 

6000 

90A00 

1 

OCT90900 

OCT 

90900 

0555 

REF 

1 

6007 

1 6007 

1 

WHINPER 

ICF 

whimper 

^88954A 


L 

0001 

0002 

Ro003 

R0005 

R0006 

Ro007 

Ro008 

R0009 

ROOlO 

Rooii 

R0012 

R0013 

Rooia 

R0015 

R0016 

R0017 

ROOI8 

R0019 

ROO2O 

ROO2I 

R0022 

R0023 

R0024 

R0025 

R0026 

R0027 

R0028 

R0029 

R0030 

R0031 

R0032 

0033 

003A 

0035 

0036 

0037 

00375 

0038 

0039 


0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 


YJL  bYSiLM  f-OR  AGC  ! NtW  PROGRAM  S^lPATIN  BY  lYLE  S 


dec  13.  I966  (MAIN)  PAGE  303 


E ROGRAm  PART  1 up  2 


USER'S  OwN  pAOP  NO.  1 


11*3247  3AN<  11 

REF  1 E4  EBANK=  SPBUFF 

TMe  JPDAIE  PROGRAM  PROClS.SeS  COMMANDS  AND  DATA  INSERTIONS  REQUESTED  BY  tHe  GROUND  VIA  UpLINK 
the  program  is  initiated  by  J=L1NN  entry  of  verbs  60,61i64-76 

input 

entry  Description  or,  daia 

V64E1EXXXXXE  double  PRECISION  GroUND  ELAPSeD  TIMeIN  CSeC  (OCTAL) 

XXXXXL 

V65E  SET  GUIDANCE  REFERENCE  RELEASE  DISCRETE 

V66E  initiate  the  -oC  dfi  tlm  calibrate  routine 

V67EXXXE  enter  A THREE  DIGIT  OCTAL  NUMBER  REPRESENTING  THe 

8-BlT  COMMAno  to  BE  SENT  TO  THE  LMP 
V70E1ETTTTTE  TIMeR  I IS  Sei  TO  TTTTT  (OCTAL, SeO  UNLESS 

TTTTl=+0  OR  -0  when  THE  TIMER  IS  SET  TO  -0  OR 
TTTTT  .Ll.  -0  aHICH  STARTS  MISSION  PHASE 
V71EIEFPE  MISSION  PHASe  REGISTER  I IS  SET  TO  PP  (OCrAl ) 

V72EiEPPETT  TTTE  SAPiE  AS  VTO.VPl 

V73EIE  CHANGE  THE  DtATE  'ENABLE  OR  INHIBIT)  oF  DPS  COLD  SOAK 


1/74E 

v^TSElEXXXXXL... 
V75E2EXXXXXE. . . 

V75E3EXXXXXE... 


V7SE4LXXXXXE. . . 
V76EXXXXXL. . . 


REF  24  last  298 
REF  I 

RET  2b  LAST  303 
REF  1 

REF  6 LAST  134 
REF  1 

REF  51  last  300 


Discrete  (i=i)*  ur  rcs  cold  soak  discrete  (i=2). 
STOP  mission  I 1 V|EKS 
FOR  DPSl,  EniER  M5b,LSB  OF  R(P) 

for  DFS2,  LniER  Msb.lSB  OF  CPT ( 6 ) ,CPT ( 7 ) , CPT  ( 8 ) . 
desired  value  X U,5  SHOULD  BE  ENTERED 
FOR  APS2, enter  MGB.LSB  OF  RCSM(TA)0,  RCSM(TA)1, 
RCSM (T A) 2 ,T A,RO. I IME  IN  CSEC  X ?(28) 

POSITION  IN  MEIERS  X 2(-24) 

FOR  AFS3,  lnier  All  rut  rd  above- 
state  vector  MS3,LSB  of  x,y,z,xvel,yvel,zvel, time. 

TIME  IN  CSLC  X 2'26) 

POSITION  IN  MEIERS  X 2(-24)  X 0.512 
VELOCITY  IN  METERS/CSEC  X 2(-7)  X 0.64876819 

1 1,3247  0 5‘'43  1 65UPDA1  TC  POSTUUMP 

11.3250  56000  1 CADR  GRRPLACE 

11.3251  0 5^43  1 74UPDAI  TC  PoSTJUMP 

11.3252  16000  0 CADR  D0V74 

11.3253  0 0004  0 66UPDAI  INHiNT 

n,325A  0 5PO7  0 TC  IBNKCALL 

11,3255  56211  0 CADR  DFITMCAL 

11,3258  1 5805  0 TCP  ENDOFUOB 


THE 


REF 


11*3257  3 3AI6  0 73UPDAT  CA  OCT73 


REF  2 LAST  187 
REF  1 

REF  178  LAST  291 
REF  81  LAST  296 
REF  2 LAST  187 
REF  1 

REF  2 LAST  167 
REE  1 


11.3260  0 3262  1 

11.3261  3 3AI7  1 

11T3262  54  I44  1 

11.3263  3 7T55  1 

11.3264  0 3304  0 

11.3265  3 3320  0 

11,3268  0 3270  1 

11,326?  3 3321  1 


TC  67UPDAT  +1 

67UPDAT  CA  0CT67 

TS  MPAC 

CA  ONE 

TC  76UPDAT  +3 

70UPDAT  CA  OCT7O 

TC  71UPDAT  +1 

71UPDAT  CA  0CT71 


48B95AA  YJL  SY5IEM  f OR  AGC;  NEW  PRO'^^^Y  S^EPATIN  BY  EYLES 
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L 

00A9 

OOBO 

0051 

0052 

0053 

0054 

0055 

0056 

0057 

0050 

0059 

0060 
0061 
0062 

0063 

0064 

0065 

0066 

0067 

0068 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 

0078 

0079 

0080 


UPDATE  RRuGraM  PART  1 OF  2 


REF  179  last  303  11 

REF  37  LAST  294  11 

REF  3 LAST  303  11 

REF  1 11 

REF  2 LAST  187  11 

REF  1 11 

REF  160  LAST  304  11 

REF  13  LAST  266  11 

REF  4 LAST  304  11 

REF  1 11 

REF  ifal  LAST  304  11 

REF  1 11 

REF  162  LAST  3O4  11 

REF  2 LAST  187  11 

REF  1 11 

REF  163  LAST  304  11 

REF  1 11 

REF  13  LAST  295  11 

1 1 

REF  3 last  197  11 

REF  23  last  270  11 

REF  1 11 


11 

11 

11 

11 

11 

11 

11 

11 

11 


3270  5!,  144  1 

3271  3 7^54  0 

3272  0 3^04  0 

3273  3 3322  1 640PDA1 

327^  0 3476  1 

327^>  3 3323  0 72.UPDAT 

3276  5£,  I44  1 

327Y  3 6301  0 

3300  0 3304  0 

3301  3 3324  1 76UPDAT 

3302  5‘i  I44  1 

3305  3 3325  0 

3304  5A  145  0 

3305  0 3310  0 

3306  3 3326  0 75UPDAI 

3307  5i,  144  1 

3310  3 0076  0 

3311  V 7F51  1 

3312  0 OOO6  1 

3313  1 2O53  1 

3314  0 5224  0 

3315  54OOO  0 

3316  OOO73  0 0CT73 

331''  00067  0 0CT67 

3320  OOO70  0 OCT7O 

3321  00071  1 0CT71 

3322  00064  0 110CT64 

3323  00072  1 0CT72 

3324  OOO76  0 0CT76 

3323  OOOI6  0 110CT16 

3320  00075  0 110C175 


TS 

CA 

IC 

CA 

TC 

CA 

TS 

CA 

TC 

CA 

TS 

CA 

TS 

TC 

CA 

TS 

CA 

MASK 

EXTEND 

3ZF 

TC 

CADR 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 


MPAC 

TwO 

76UPDAT  +3 
liaCT64 
72UPDAT  +1 
OCT  72 
MPAC 
THREE 

76UPDAT  +3 
0CT76 
MPAC 
110CT16 
MPAC  +1 
75UPDAT  +2 
110CT75 
MPAC 

FLAGWRD2 

BITS 

XACTALM 

BANKCALL 

UPPARI2 

00073 

00067 

00070 

00071 
00064 

00072 
00076 
16 

00075 


USER'S  OWN  PaGf  NO.  2 


TEST  IF  timers  ENABLED 


NO,  RETURN 


E4 


488954A  YJL  SYSltM  FOR  aGC;  l\ltW  PRO^JRAM  SHtPATlN  BY  EYLtS 
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L 

0001 

0002 

0003 

OOOA 

000b 

0006 

0007 

0008 

0009 

0010 
0010b 
00106 
00107 
0011 
0012 
0013 
OOlA 

0015 

0016 

0017 

0018 
00183 
00186 

0019 

0020 
0021 
0022 
0023 
002A 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 
003a 

0035 

0036 

0037 

0038 

0039 
OOaO 
OOAl 
00A2 
00A3 
OOAA 
00A5 


J=DAIE  program  PART  2 Of  2 


REF 

REF 

REF 

REF 


REF 


LAST 

26'2000 

3ANk 

26 

303 

EA 

EBANK  = 

ST  BUFF 

26,2000 

3 2530  1 UdPART2 

CA 

UPEa 

LASI 

289 

26,2001 

55  003  0 

TS 

EBANK 

26 , 20O2 

0 Ai21  1 

T C 

ChECKMM 

26,2003 

00027  1 

OCT 

27 

26,2005 

0 2OO6  0 

TC 

*Z 

26, 200b 

0 2526  0 

TC 

21XCTALM 

REF  82  LAST  303  26 

R£F  1 26 

REF  11  LAST  300  26 

REF  16A  LAST  30a  26 

REF  1 26 

REF  8 last  277  26 

REF  1 26 

REF  A last  208  26 

26 

REF  2 LAST  30b  26 

REF  1 26 

26 
26 

REF  185  LAST  305  26 

REF  1 26 

REF  1 2b 

RcF  83  LAST  305  26 

R E F 1 26 

REF  186  LAST  305  26 

REF  1 <;6 

REF  1 26 

REF  1 26 

REF  6 LAST  266  26 


2006  3 7Tbb  1 

200Y  55' as  1 

2010  0 A633  O 

2011  3 OlAA  0 

2012  55'/21  0 

2013  3 0302  0 

2015  5b'a6  1 

201b  0 Al05  1 

2016  00027  1 

2017  A lai  0 

2020  6 232A  0 

2021  0 0006  1 

2022  1 2026  0 
2023  3 OlA5  1 

2025  55*  IZ2  0 

202b  0 20A6  1 

2026  3 7(55  1 UpN033 
202 f 6 2537  0 

2030  55  1A6  0 

2031  3 2326  1 

2032  0 2505  1 

2033  0 2026  1 

2035  3 77b3  1 


CA  ONE 

is  51  COUNT 

TC  GRARWAIT 

CA  MPAC 

TS  UPVFRB 

CA  MODREG 

TS  UPOl.DMOD 

TC  NEWMOOEX 

OCT  27 

C5  UPVFRB 

AD  210CT75 

EXTEND 
3ZF  +5 
CA  MPAC  +1 

TS  COMPNUMB 

TC  UPIN  +1 

CA  ONE 

AD  ASTBFMl 

IS  MPAC  +2 

CA  SlATFNV 

TC  UPNVCALL 

TC  UPN033 

CA  FOUR 


REF  1 

REF  3 Last  305 
REp  1 

REF  2 last  3O5 
REF  A last  305 
REF  1 

ref  2 LASI  305 
REF  38  LAST  30A 
REF  2 last  305 
REF  2 LAST  305 
REF  3 last  305 
REF  187  last  305 
REF  2 LAST  305 
REF  2 LAST  305 
REF  2 last  305 
REF  A last  305 
REF  3 last  305 


203b 

2036 

2037 

20aO 

20A1 

20a2 

20A3 

20A5 

20Ab 


26  »20A6 
26*20A7 

26.2050 

26.2051 

26 .2052 

26.2053 

26.2055 
26,205b 

26.2056 

26.2057 


55'  a7  0 
3 1677  0 
0 2515  0 
0 2026  1 
51'677  0 

3 2531  0 
55'  UZ  0 
3 7fb5  0 
55'  as  1 
3 2537  0 
6 1(15  0 
55  lA6  0 
3 2^26  1 
0 2505  1 

0 2OA6  1 

5 1(15  1 

6 1(22  1 
0 0006  1 

1 2062  0 


UplN 


TS  UPTEMP 

CA  STBUFF 

Tc  UPRANGE 

TC  UPNO33 

INDEX  STBUFF 
CA  AOFC  -1 

TS  COMPNUMB 

CA  TWO 

TS  ST  COUNT 

CA  ASTBFMl 

AD  STCOUNT 

TS  MPAC  +2 

CA  STATFNV 

IC  UPNVCALL 

TC  UPIN  +1 

CS  STCOUNT 

AD  COMPNUMB 

EXTEND 
3ZF  +3 


USER'S  OWN  page  no.  1 


CONTINUE  V75 


FLASH  V21  NOl 

LOAD  V33  OR  octal  No. 

V33,  IGNORE 

OCTAL  NO,  IN  STBUFF 


IS  STBUFF  GE  1 AND  lE  A 
NO,  TRY  AGAIN 
YES 


V33  , IGNORE 
OCTAL  NO. 


^889b4A  YJL  SYSIEM  FOR  AGO : NlY.  PRO^JRAM  SHePATIN  BY  EYLeS 


Dec  u,  1966  (MAIN)  PAGE  3O6 


L 

00^6 

00<Y7 

0098 

0099 
OObO 
OObl 
00b2 

0053 

0069 

0055 

0056 

0057 

0058 

0059 

0060 
0061 
0062 
0063 
0069 

0065 

0066 

0067 

0068 

0069 
00692 
00699 
00696 

0070 

0071 

0072 

0073 
0079 

0075 

0076 

0077 

0078 

0079 

0080 
0081 
0082 
0083 
0089 

0085 

0086 

0087 

0088 

0089 

0090 

0091 

0092 


Update  pkugram  part  c uf  2 


REE  b last  305 
REF  3 LAST  305 
REF  1 

REF  188  last  305 
REF  1 

REF  3 LAST  305 
REF  1 

REF  9 last  305 
REF  2 LAST  305 
REF  1 

REr  2 LASi  305 
REF  1 

REF  2 LAST  306 
REF  3 last  305 

REF  9 LASI  306 
REF  7 LAST  208 

REF  2 last  309 
REF  29  LAST  291 
REF  152  LAST  302 
REF  25  LAST  306 
REF  3 LAST  306 
REF  153  LAST  306 
REF  9-  LAST  306 
REF  2 LAST  305 

REF  1 

REF  2 Last  305 
REF  5 LAST  305 
REF  19  LAST  309 
REF  5 LAS]  306 

REF  2 LAST  305 
REF  1 

REF  3 LAST  305 
REF  166  LAST  301 


26 
26 
26 
26 
26 
26 
26 
26 
26 
26 
26 
2 6 
26 
26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 


207L 
207T 
2100 
2101 
2102 
2103 
210A 
2lOb 
2106 
2107 
2110 
2111 
2112 
2113 
211A 
2113 
2113 
2H7 
21  2O 

2121 

2122 
2123 
212A 


3 

1 720 

0 

0 

2^15 

0 

0 

2062 

1 

3 

1 720 

0 

6 

2937 

0 

0 

2050 

0 

0 

9713 

0 

0 

0O09 

0 

9 

0076 

1 

7 

7750 

0 

59 

002 

1 

9 

7 

7 750 
0076 

0 

1 

UpSTORL 


6 0002  0 
59  076  1 

0 9121  1 
00027  1 


2il5 

1716 


9110  0 

7751  0 UpRETURN  C 


0 
3 
0 
3 

7 0076  1 

0 OOO6  1 

1 2^26  1 
9 2I35  0 
6 1721  1 
50  000  1 

0 2125  0 


TC 

IC 

INHINT 

CS 

MASK 

TS 

CS 

MASK 

AD 

IS 

TC 

OCT 

TC 

CA 

TC 

A 

MASK 

EXTEND 

3ZF 

CS 

AD 

INDEX 

TC 


SI  COUNT 
UPIN  +1 
UPAOFTPl 
MPAC  +2 
OCTID 

CoMPNUMB 

UPTEMP 

UPTEMPl 

urRange 

UPHERE 

UPTEMPl 

ASTRFMl 

UPIN  +3 
FREEDSP 


FLA6WKD2 

BIT6 

0 

BIT6 

FLAC-,WRD2 

0 

FLAGWRD2 

CHECKMM 

27 

UPRETURN 
UPOLDMOD 
NEWMODEX  +3 
BITS 

FLAGWRD2 

2iXCTALM 

210CT69 

UPVERB 

A 

+ 1 


REF  5 Last  305 
REF  1 

ref  1 

REF  1 
REF  1 
REF  1 
REF  1 
REF  1 

REF  1 

REF  6 last  306 
REF  21  LASI  298 


26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 


2123 

2126 

2127 

2130 

21  3I 

2132 

2133 
213A 
2133 

2136 

2137 

2190 

2191 


53*701  1 
53*220  1 

0 2250  1 

0 2957  0 
0 2263  1 
0 2971  1 

0 2277  1 
0 2307  i 

00069  0 210CT69 

0 2313  1 

9 0076  1 UPEND76 
7 7797  0 
0 0006  1 


OXCH  STBUFF  +1 
OXCH  UPGFT 

TC  UPEND69 

TC  UPEND67 

TC  UPEND70 

TC  UPEND71 

TC  UptND72 

TC  UPEND73 

OCT  00069 

1C  UPEND75 

CS  FLAGWRD2 

MASK  B1T7 

EXTEND 


USER'S  OWN  PAGE  NO.  2 


E9 


V33*  VERIFY 

octal  identifier 


BAD  octal  Identifier 


INVERT  VEHIFLAG  FOR  GROUND  VERIFY 


RESTORE  PRE-P27  MODE 


BEGIN  SIORING  DATA  FROM  STBUFF 
YES,  continue 


V67 

V70 

V71 

V72 


V7b 

IS  ORBITAL  integration  ON 


'♦8895'«A  YJL  bVS'lHM  FOR  AGC  : PROGRAM  S^EPATIN  BY  EYLtS 


dec  1a,  I966  (MAIN)  PAGE  307 


L 

J^DAl E 

PROGR. 

0093 

0094 

Ktr 

i 

0095 

R£F 

6 

LAST 

0096 

0097 

REF 

1 

0098 

R^F 

7 

LAST 

0099 

0100 

REF 

1 

0101 

REF 

8 

LAST 

0102 

0103 

REF 

2 

Last 

0104 

ref 

9 

LAST 

0 1 0 5 
0106 

REF 

2 

LAST 

0107 

REF 

10 

LAST 

0108 

0109 

REF 

3 

LAS  T 

0110 

rff 

11 

LAST 

0111 

0112 

0113 

REF 

REF 

3 

12 

LAST 

LAST 

OllA 

0115 

0116 

0117 

0118 

0119 

0120 
0121 
0122 

0123 

0124 

0125 

0126 

0127 

0128 

0129 

0130 

0131 

0132 

0133 

0134 


REF 

REF 

F<EF 

REF 

REF 

REF 

REf 

REF 

REF 

REF 

REF 

REf 


14  LA5I 
2 LAS  I 

15  LA5I 

2 LAST 

16  Last 

3 LAST 

n LAST 
3 LAST 

18  Last 
1 

88  LAST 
1 


307 

307 

307 

307 

307 

3OT 

307 

307 

307 

296 


26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

2b 

26 

26 

26 

26 

26 

26 

2b 

26 

26 

26 

26 

2b 

26 

26 

26 

26 

26 

2b 

26 

26 

26 

26 

26 

2b 

26 

26 

26 


2142 

2143 

2144 

2145 

2146 
214  T 
215° 

2151 

2152 

2153 
215A 
2 1 55 

2156 

2157 
2160 
2161 
2162 
2163 
216A 

2165 

2166 
216  T 

2170 

2171 

2172 

2173 

2174 
21  75 

2176 

2177 
2200 
2201 
2202 

2203 

2204 

2205 

2206 
22OT 
2210 
2211 
2212 
2213 


1 2234  1 

0 0O06  1 
3 1 TOO  1 
53*^23  1 
0 0006  1 
3 ITOO  1 
53*253  0 
0 OOOb  1 
3 1 T02  0 
53*225  1 
0 OOOb  1 
3 1T02  0 
53*255  O 
0 OOOb  1 
3 1 T04  0 
53*227  0 
0 0006  1 
3 1 T04  0 

53*257  1 

0 0006  1 
3 170b  1 

53*231  1 
0 0006  1 
3 1706  1 
53*261  1 
0 0O06  1 
3 1 TIO  0 

53*233  0 
0 0006  1 
3 1 TIO  0 
53*263  0 
0 0O06  1 
3 1712  1 

53*235  0 
0 0006  1 
3 1712  1 
53*265  0 
0 OOO6  1 
3 1714  1 

53*271  0 

3 7761  0 
55*236  0 


USER*S  OwN  pAGF  NO.  3 E4 

3ZF  SETUPRCK  yes,  SET  UP  aSEr  CALL  TO  CHECK  AGAIN 

EXTEND  V76 

OCA  STBUFF  NO,  BEGIN  LOAD  OF  UPDATE  PARAMETERS 

OXCH  REFRRECT 

EXTEND 

OCA  STBUFF 

OXCH  REFRCV 

EXTEND 

OCA  STBUFF  +2 

OXCH  REFRRECT  +2 

extend 

OCA  STBUFF  +2 

OXCH  REFRCV  +2 

EXTEND 

OCA  STBUFF  +4 

OXCH  REFRRECT  +4 

EXTEND 

OCA  STBUFF  +4 

OXCH  REFRCV  +4 

EXTEND 

OCA  STBUFF  +6 

OXCH  REFVRECT 

EXTEND 

OCA  STBUFF  +6 

OXCH  REFVCV 

EXTEND 

OCA  STBUFF  +8D 

OXCH  REFVRECT  +2 

EXTEND 

OCA  STBUFF  +8D 

OXCH  REFVCV  +2 

EXTEND 

OCA  STBUFF  +10D 

OXCH  REFvRFCT  +4 

EXTEND 

OCA  STBUFF  +10D 

OXCH  REFVCV  +4 

EXTEND 

OCA  STBUFF  +12D 

OXCH  TE 

CA  ZERO 

TS  DELTAV 


0135  REF 

0136  REF 

0137  REF 

0138  REF 

0139  REF 

0140  REF 

0141  REf 

0142  REF 


2 LAST  307 

3 LAST  3O7 

4 last  307 

5 LAST  307 

6 LAST  3O7 
1 

2 last  307 

3 LAST  307 


2214 

2215 

2216 
221  7 

2220 

2221 
2222 
2223 


55*237  1 
55*240  1 
55*241  0 
55*242  0 
55*243  1 
55*244  0 

5 5 * 2 A5  1 
55*246  1 


TS 

DELTAV 

+ 1 

T S 

DELT  AV 

+ 2 

TS 

DELTAV 

+ 3 

rs 

DELTAV 

+ 4 

T S 

DELTAV 

+ 5 

TS 

NUV 

TS 

NuV  +1 

T S 

NUV  +2 

^8895^A  YJL  SYbItIM  FOR  AGC;  NbW  PR0ORi\vi  sHePAUN  BY  EYLES 
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L 

oua 

014'+ 

0145 

0146 

0147 

0148 

0149 

0150 

0151 

0152 

0153 

0154 
C0154 

0155 

0156 

0157 

0158 

0159 
C0159 

0160 
0161 
0162 

0163 
01634 
01638 

0164 

0165 

0166 
C0166 

0167 

0168 

0169 

0170 

0171 

0172 

0173 

0174 

0175 

0176 

0177 

0178 

0179 

0180 
0181 
0182 

0183 

0184 

0185 

0186 
0187 


UPDATE  program  PART  2 UP  2 


REF  4 LAST  307  26,2224  55'^47  0 

REF  5 LAST  308  26,2225  BS'-^SO  0 


REF  6 LAST  308 
R£F  1 

REF  2 LAST  3O8 
REF  1 

REF  2 LAST  3O8 
REF  1 
REF  1 

REF  34  Last  297 
REF  19  LAST  307 

REF  1 

REF  52  LAST  3O3 
REF  2 last  206 
REF  15  last  301 
REF  20  LAST  308 

REF  1 

REF  25  LAST  296 

REF  2 Last  3O6 
REF  ■ 21  LAST  3O8 
REF  1 

REF  3 LAST  308 


26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 

26 


2226 
222  ? 
223O 
2231- 

2232 

2233 

2234 

2235 

223t> 
223  V 
224D 

2241 

2242 

2243 

2244 

2245 

2246 

2247 

2250 

2251 

2252 


55'<i51  1 
55*266  0 
55*467  1 
55*‘^72  0 
55*273  1 
0 2403  1 
3 2440  0 
0 5^01  1 
E4 

02241  1 
54GO4  1 
0 5505  1 

3 5867  0 
0 5523  0 
E4 

02246  0 
54OO4  1 
0 5^45  1 
0 0O04  0 
0 2^15  0 
3 1877  0 
55*216  1 
3 5867  0 


TS  NUv  +3 
TS  NUV  +4 

TS  NUV  +5 

is  RLFTC 
TS  REFTC  +1 

TS  REFXKLP 
TS  REFXKEP  +1 
1C  UPQUIT 
SLTUPRCX  CA  35tc21 

1C  WAITLIST 

EBANK=  STBUFF 
2CADR  UPDOAGN 

TC  ENDOFJOB 

UaDOAGN  CA  PRI027 

TC  NuVAC 

EBANK=  STBUFF 
2CADR  UPINHINT 

TC  TASKOVER 
UPlNPiINT  INHIiMT 

TC  UPRETURN 
UdENB64  CA  STBUFF 

TS  UPINDEX 

CA  PRI027 


REF  9 LAST  290  26 

REF  22  last  308 

26 

REF  1 26 

REF  2 LAST  308  26 

REF  23  LAST  308  26 

REF  2 LAST  308  26 

REF  26  LASi  3O3  26 

REf  1 26 

RlF  24  LAST  3O8  26 

REF  3 LAST  3O8  26 

RlF  25  LAST  3O8  26 

REf  1 26 

REF  2/  LAST  308  2b 

REF  1 26 

RiF  26  LAST  3O8  26 

REF  4 LAST  308  2b 

R£F  27  LAST  3O8  2b 

REf  1 26 

REF  28  LAST  308  26 

ref  1 26 

REF  28  LAST  308  26 

REF  5 LAST  308  26 


2253  0 5534  0 

E4 

2254  02347  0 

2255  62*364  1 

2258  0 2403  1 

225V  3 1877  0 UdEND67 

2260  SST-^lb  1 

2261  0 5443  1 

2262  62426  0 

2263  3 1877  0 UdEND70 

2264  55*416  1 

2265  3 IVOO  1 

2268  55*415  1 

2267  0 5443  1 

2270  62401  0 

2271  3 1877  0 UPEND71 

2272  55*416  1 

2273  3 1700  1 

2274  55*414  0 

2275  0 5243  1 

2278  62‘^04  0 

2277  3 1877  0 UPLND72 

2300  55*416  1 


TC  FINDVAC 

EBANK=  STBUFF 

2CA0R  MGLTUP 

TC  UPUUIT 

CA  STBUFF 

TS  UPINDEX 

TC  POSTJUMP 

CAdR  D0V67 

CA  STBUFF 

TS  UPINDEX 

CA  STBUFF  +1 

TS  UPDT 

TC  POSTJUMP 

CADR  D0V70 

CA  STBUFF 

TS  UPINDEX 

CA  STBUFF  +1 

TS  UPPHASE 

TC  POSTJUMP 

CADR  D0V71 

CA  STBUFF 

TS  UPINDEX 


rEF  29  LAST  3O8 
REF  2 LAST  30b 


26.2301  3 HOO  1 

26.2302  55*414  0 


CA  STBUFF  +1 

TS  UPPHASE 


U5ER*5  OWN  PAGf  NO.  4 


L4 


488954A  YJL  SVSICH  FOR  AOC;  NLW  PRO&RAM  SHtPATiN  bY  LYLF 


L J=“DAiE  Program  part  uP  2 


0188  REF  30 

0189  REF  2 

0190  REF  29 

0191  REF  1 

0192  ref  31 

0193  REF  6 

019a  ref  30 

0195  REf  1 

0196  REF  17 

0197  REF  5 

0198  REF  187 

0199 

0200 

0201  REF  32 

0202  REF  1 

0203  ref  3 

0204  REF  1 

0205 

0206  REF  1 

0207 

0208 

0209  REF  33 

0210  REF  1 

0211 

0212  REf  3A 

0213  REF  2 

0214 

0215  REF  35 

0216  REF  3 

0217 

0218  REf  36 

0219  REF  1 

0220 

0221  REF  37 

0222  REF  1 

0223  ref  4 

0224 

0225  REF  38 

0226  REF  1 

0227 

0228  REf  39 

0229  REF  2 

0230 

0231  REF  40 

0232  REF  3 

0233  REF  5 

0234 

0235  REF  41 

0236  REF  4 

0237 


LAST  308  26 

LAST  308  26 

LASl  308  2b 

2b 

LASI  309  2b 

LASl  3O8  26 

LASi  309  2b 

26 

LAST  173  2b 

LASi  306  2b 

LAST  306  26 

2b 
2b 

LAST  3O9  2b 

26 

LASI  3OB  26 

26 
26 
2b 
26 
26 

LASI  309  2b 

2b 
26 

last  309  26 

LASI  3O9  26 

26 

LASi  3O9  26 

LAST  309  2b 

26 

LAST  309  2b 

26 

26 

LASI  309  2b 

26 

LAST  309  26 

2b 

last  309  26 

2b 

26 

LASI  309  26 

LAST  309  26 

26 

LASI  3O9  26 

last  309  2b 

LAST  309  2b 

26 

Last  309  26 

LAST  3O9  26 

26 


2303  3 1101  0 

2304  55*^15  1 

2305  0 5243  1 

2306  62^03  1 

2307  3 IR77  0 

2310  b5'‘^l6  1 

2311  0 5^43  1 
231^  52'ilO  0 

2313  4 7/54  1 

2314  b U22  1 

2315  50  000  1 

2315  0 2016  1 

231?  0 0O06  1 

2320  3 lYOl  0 

2321  53' '55  0 

2322  0 2403  1 

2323  0 2347  0 

2324  OOO75  0 

2325  0 2361  1 

2325  02101  0 

2327  0 OOOb  1 

2330  3 I'Ol  0 

2331  53'  '65  0 

2332  0 OOOb  1 

2333  3 1'03  1 

2334  53'  '67  1 

2335  0 OOOb  1 

2336  3 1 '05  1 

233  ' 53'  '71  0 

2340  0 OOOb  1 

2341  3 1 '07  0 

2342  53' '73  1 

2343  0 OUO6  1 

2344  3 I'll  1 

2345  53'  '75  1 

2346  0 2403  1 

2347  0 OOO6  1 

235C  3 I'Ol  0 

2351  53'  '57  1 

2352  0 0006  1 

2353  3 1'03  1 

235^  53''6l  1 

2355  D 0006  1 
2355  3 1'05  1 

2357  53'  '63  0 

2360  0 2403  1 

2361  0 OOOb  1 

2362  3 ITOl  0 

2363  53'  '65  0 

236^  0 OOO6  1 


UPEMD73 

U6EMD75 

1 = 1 

210CT75 

STATENV 

1=3 


1=2 
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USER'S  OWN  PAGf  no.  5 


E4 


CA  STBUFF  +2 

TS  UPDT 

TC  POSTJUMP 

CADR  DOV72 

CA  SI  BUFF 

TS  UPINDEX 

TC  POSTJUMP 

CADR  DOV73 

CS  BI  T 2 V75 

AD  CuMPNUMB 

INDEX  A 

TC 

EXTEND 

DCA  STBUFF  +1 

DXCH  RP 

TC  UPQUIT 

1C  1=2 

DCT  75 

TC  1=4 

OCT  2101 

EXTEND 

OCA  STBUFF  +1 

OXCH  RIVEC 

EXTEND 

OCA  STBUFF  +3 

OXCH  RlVFC  +2 

EXTEND 

OCA  STBUFF  +5 

OXCH  RlVFC  +4 

EXTEND 

OCA  STBUFF  +7 

OXCH  TINT 

EXTEND 

OCA  STBUFF  +9D 

OXCH  RCO 

TC  UPQUTT 

Extend 

OCA  STBUFF  +1 

OXCH  CPT6/2 

EXTEND 

OCA  STBUFF  +3 

OXCH  CPT6/2  +2 

EXTEND 

OCA  STBUFF  +5 

OXCH  CPT6/2  +4 

1C  UPQUIT 

extend 

OCA  STBUFF  +1 

OXCH  RIVEC 

EXTEND 


^t8e9!J4A  YJL  system  f OR  Ne'^  Pro'^RA'''  SMePATIN  BY  e^LeS 


Dec  1a*  1966  (MAIN)  PA^E  310 


L UPDATE  PROGRAM  PART  E OE  2 


0238 

REF 

A2 

LAST 

309 

26 

0239 

rBf 

5 

LAST 

309 

2 6 

02A0 

26 

02A1 

REF- 

A3 

LAST 

310 

26 

02A2 

REF 

6 

Last 

310 

2 6 

02A3 

26 

02aa 

REF 

AA 

LASl 

310 

26 

02  A5 

REF 

2 

LAST 

309 

26 

02  A6 

REF 

8 

LAST 

306 

26 

02A62 

REF 

3 

LAST 

306 

26 

02  A6A 

2 6 

02A66 

26 

02A7 

REF- 

3 

LAST 

3O6 

26 

02A8 

REF 

6 

LAST 

3O6 

2 6 

2365  3 W03  1 DCA 

2366  53»  (67  1 DXCH 

2367  0 0006  1 EXTEND 

237D  3 1(05  1 DCA 

237i  53'  (71  0 OXCH 

237E  0 OUO6  1 EXTEND 

2373  3 1(07  0 OCA 

237A  53*  (73  1 OXCH 

237B  0 A(13  0 TC 

2376  0 a121  1 TC 

2377  00027  1 OCT 

2a00  D 2A03  1 TC 

2a01  3 1(16  0 CA 

2a02  0 aUO  0 TC 


02A9  REF  2a  last  30A 

0250  REF  1 

0251 

0252  REF  3 LAST  3O6 

0253  REF  23  LAST  3OO 

025A  REf  18  LAST  277 

0255  REF  6 LAST  309 

0256  REF  A LAST  3IO 

0257  REF  5 LAST  310 

0258  REF  6 LAST  310 

0259 

0260  REF  1 

0261  REF  188  LAST  3O9 

0262  REF  189  LAST  310 

0263  REF  7 last  310 

026A 

0265  REF  2 LAST  310 

0266  REF  15A  LAST  30b 

0267  REF  155  LAST  3IO 

0268  REF  25  LAST  310 

0269  REF  A LAST  3OA 


2b  ' 2a03 
26»2aOA 
26  »2a05 
26  » 2 a06 
26»2a07 
2 6 » 2 A 1 0 
26  1 2 A 1 1 


26 

26 

26 

26 

2b 

26 

26 

26 

26 

2b 

26 

26 

2b 

26 


2a12 

2a13 

2a1A 

2A13 

2A1B 

2a17 

2a20 

2A2i 

2A22 

2A23 

2A2A 

2A25 

2a26 

2a27 


0 5^2A  O 

62373  1 
0 OOO6  1 
23'  (17  1 
0 a8A6  1 
0 A96A  0 
0 2375  1 
0 1(17  1 
2 5 ' ( 1 7 1 
0 1(17  1 
0 OOC6  1 
6 2A25  0 
A OOOO  0 
2A  OOO  1 
6 1(17  1 
0 0O06  1 
6 2^25  0 
2A  002  0 
0 0002  0 
0 522A  0 

22053  1 


UpOUIT  TC 

CADR 

upnvcall  extend 

3XCH 

TC 

TC 

TC 

TC 

INCR 

TC 

UpRANgE  extend 
3ZMF 
CS 

INCR 

AD 

EXT  END 

3ZMF 

INCR 

UpRAUS  TC 
21XCTALM  TC 

CADR 


0270 


26*2A30  02000  0 UpEA  OCT 


0271 

0272 

0273 
027A 

0275 

0276  RbF  3 last  3O6 

0277  REF  A5  LAST  310 

0278 


2b,2A3l  02102  0 OCTID  OCT 
26»2a32  OOOO3  1 AOFC  OCT 
26,2a33  00007  0 OCT 
26,2A3A  00013  0 OCT 
26»2a35  OOOll  1 OCT 


26,2a38  02320  1 UPAOFTPl  ECADR 
26,2A37  02276  0 ASTBFMl  ECADR 
2b,2AA0  00A5A  1 3SEC21  OEC 


STBUFF  +3 
RlVEc  +2 

STBUFF  +5 
RlVEC  +9 

STBUFF  +7 
TINT 
FKEEDSP 
CHECK MM 
27 
♦ 3 

UPOLDMOD 
NEWMODEX  +3 

BANKCALL 

ENDUP 

UPTEMP 

NVSRWAIT 

ENDIDLE 

UPQUIT  -6 

UPTEMP 

UPTEMP 

UPTEMP 

UPRAUS 

A 

A 

UPTEMP 

UPRAUS 

Q 

Q 

BANKCALL 

XACTALM 

2000 

02102 

00003 

00007 

00013 

OOOll 

UPTFMPl 

STBUFF  -1 

300 


USER'S  OWN  PAGf  NO.  6 


EA 


terminates  job 


V33  RETURN  TO  Q 
RETURN  TO  Q+1 

CIA)  LE  ZERO  RETURN  TO  U 

C(A)  GT  C(LOC)  return  TO  Q 

CIA)  LE  CILOC)  and  GT  0 RfTURN  10  Q+1 
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L D3WN-1 ELEMEIRY  PROGRAM  USER’S  OWN  PAGE  NO.  1 

ROOOl  PROGRAM  NAMl-  DOWN  TELEMETRY  PROGRAM 
R0002  MOD  NO.-  2 

R0003  MOD  by-  KILROY 

ROOOA  date-  21N0V66 

Roods  log  secuun-  down  telemetry  program 

ROOO6  ASSEM3LT-  RrV  12  OF  SUNBURST 

Rood?  functional  description-  this  routine  is  initiated  by  telemetry  end 
R0008  pui SE  from  the  Downline  ielemetRy  converter,  this  pulse  occurs 

R0009  AT  so  times  Per  SEL(EVERY  20  MS)  therefore  DODOWNTM  is 

Roolo  extcutep  At  these  raies,  this  routine  Selects  the  appropriate 

Rooil  L6C  data  to  Be  TRAHSMii  ) tLD  DOWNLINK  AND  LOADS  iT  INTO  OUTPUT 

R0012  channels  3A  and  35.  IHE  INFORMATION  IS  THEN  GATED  OUT  FROM  THE 

ROOlO  LGC  IN  SERIAL  FASHiO'J.. 

ROOlOl  THIS  program  IS  CoPeO  FQR  A 2 SECOND  DowNLISt.  SINCE  DoWNRUPTS 

R00132  OCCUR  every  20MS  ANO  2 LOC  COMPUTER  WORDS  CAN  Be  PLACED  IN 

R00133  channels  3A  AND  35  OURINO  EACH  DOWNRUPT  THe  PROGRAM  IS  CAPABLE 

R0013A  oF  Sending  200  lgc  words  every  2 seconds, 

ROOIA  CALLING  SEQUENCE-  NONE 

ROOIS  PROGRAM  IS  lNIeRfD  VIA  t'-F  DODoWNTM  WHICH  IS  EXECUTED  AS  A 

R0016  Result  of  a downrupt,  control  is  returned  via  tcf  noqrsm  which 

R0017  IN  EFFECT  IS  A RESUME. 

R0018  subroutines  callld-  none 

R0019  normal  exit  mode-  tcf  nogrsm 

R0020  Alarm  or  abort  exit  mode-  none 
R00201  restart  protection-  none. 

R00202  lXCEPT  that  when  a RES'iAKT  does  occur  :STARTSUb:  WILL 

R00203  initialize  1 he  DowNLISt  Pointer  to  the  beginning  of  the  nominal 

R002OA  dOlNLIST.  this  has  he  effect  of  ignoring  the  remainder  of  the 

Ro0205  DO.'.NLIST  which  THE  OOWN- 1 ELeMETRY  PROGRAM  WAS  WORKING  ON  WHEN 

R00206  the  restart  occurred. 

R002I  OUTPUT-  EVFRY  2 SECONDS  lOO  OOUBLe  PRECUION  WOROSd.E.  200  LGC 
R0022  CO^.PUTER  WORDS)  ARL  IRAN^MITTED  VIA  DOWNLINK. 

R0023  erasable  initialization  Required-  none 

Ro024  DNiMGOTO.DNLSi  ADR  A\iD  eBANK  are  initialized  in  StARtSUB (FReSH 

R0025  START  AND  RESTART) 

R0026  DEBRIS(LRASABLE  locations  DESIROYLD  BY  THIS  PROGRAM)- 

R0027  LDATALST,lTLMPl,lTtM=2,DHTMBUFF  TO  DNTMBUFF  + 2 1 D ,TM I NDEX ,DNQ 

R0028 


0029 

0030 

REF 

2 

LASI 

55 

15*2000 

E7 

BANK 

ebank= 

15 

DNTMBUFF 

00301 

00302 

REf 

REF 

I 

0007 

0007 

ERASZERO 

DmYEcADR 

dmyadres 

EQUALS 

EQUALS 

equals 

7 

ERAS2ER0 

USE 

DMYEcADR 

DMYADReS 

TO  GENfRATB  a DoMMr  ECADR 

00303 

2 

L A S I 

311 

0007 

E,kASZtRO 

USE 

TO  geMfRate  a dummy  ADReS 

00309 

REF 

3 

LAST 

311 

0007 

UNKNOWN 

equals 

eKas/^Ro 

USE 

UNKNOWN 

when  tHf  mnemonic  15  UNKNOWN 

00305 

REF 

9 

last 

311 

0007 

SPARE 

equals 

ERASZeRO 

USE 

spare  to 

TNnICATE  available  SPACe 

0031  1S*2000  00^37  1 LOwIDCOD  OCT 


0OA37 
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L 

R0032 

ROO33 

R003A 

R0035 

0036 

A0037 

0038 

0039 
OOAO 
OOAl 
00A2 

0043 

0044 

0045 

0046 

0047 

0048 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 

0058 

0059 

0060 
0061 
0062 

0063 

0064 
A0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 
A0078 

0079 

0080 


DDWN-1 eLeMLIRV  PROGRAM 


USER'S  OWN  PA&F  NO. 


SPECIAL  DOWnLiST  FOR  ACjS  i N 1 T 1 A- 1 AAT i On*  AGSLiST  MUST  RESIDE  IN 
LOCATION  2001  OF  DOwNLlNK  E3A\K« 

ASSLIST  IS  \0T  REUUIRLD  FuR  AS226  BUt  IS  INSERTED  IN  SUNBURST  TO 
reserve  SPACE  FOR  IT  IN  207/8  AND  FUTURE  MISSIONS. 


15'2C01  AGSLISI 


REF 

REF 

REF 

REF 

RE) 

REF 

REF- 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF- 

REF 

REF 

REF 

REF 

REF 

REF- 

REF 


REF 

REF 


1 

2 last 

3 LAS  I 

4 last 

5 last 

6 last 

7 LAST 

8 last 

9 last 

10  LaSI 

11  last 

12  last 

13  last 

14  LAST 

15  last 

16  LAST 

17  Last 

18  LAST 


20  LAST 

21  LASI 

22  LAST 

23  LAST 
t;4  LAST 

25  last 

26  LASI 


312 

312 

312 

312 

312 

312 

312 


Last 
last 

LAST 

Last 
last 
last 
last 
last 

10  LASi 

11  last 

12  LAST 


29  last 


312 

15  . 

312 

15. 

312 

15. 

312 

15. 

312 

15. 

312 

15. 

312 

15  . 

312 

15. 

312 

15. 

31^ 

1 5 . 

312 

15. 

312 

15. 

312 

15. 

312 

15, 

312 

15  . 

312 

15. 

312 

15  . 

312 

15. 

312 

15, 

1 5 . 

312 

15. 

312 

15, 

312 

1 5 . 

312 

15, 

312 

15, 

312 

15, 

312 

15, 

312 

15, 

312 

15 . 

312 

15, 

312 

15, 

312 

312 

IS, 

15, 

2001 

2002 

2003 

2004 

2005 
2008 
2007 

2010 

2011 
2012 
2013 
2OIA 

2015 

2016 
2017 
2020 
2021 
2022 

2023 

2024 

2025 
2028 

2027 

2030 

2031 

2032 

2033 

2034 

2035 
2038 
2037 
2040 

20A1 

2042 

2043 

2044 

2045 
2048 
2047 


2050 

2051 


0OOO7  0 
00007  0 
00007  0 
00007  0 
00007  0 
00007  0 

00007  0 

00007  0 
00007  0 
00007  0 

00007  0 
00U07  0 

00007  0 
00007  0 

00007  0 
00007  0 
00U07  0 

D0007  0 


00O07  0 
00O07  0 
00007  0 
00007  0 

00007  0 
00007  0 
00007  0 
00007  0 

00O07  0 


0OO07  0 

00007  0 

00007  0 
00O07  0 
00OO7  0 
00007 
00007 
00007 
00007 
00007 
00007 
00007 


EQUALS 

DOUBLE  PRECISION  - ANY  EBANK 

ECADR  DMYfCADR 
DMYECADR 
DMYECADR 
DMYECADR 
DMYECADR 
DMYECADR 
DMYECADR 
DMYECADR 
DMYECADR 
DMYECADR 
DMYECADR 
DMYECADR 
DMYECADR 
DMYECADR 
DMYECADR 
DMYECADR 
DMYECADR 
DMYECADR 


(GROUP  2). 


ECADR 

ECADR 

ECADR 

ECADR 

ECADR 

ECADR 

ECADR 

ECADR 

ECADR 

ECADR 

ECADR 

ECADR 

ECADR 

ECADR 

ECADR 

ECADR 

ECADR 


ECADR  DMYECADR 
ECADR  DMYECADR 
ECADR  DMYECADR 
ECADR  DMYECADR 
ECADR  DMYECADR 
ECADR  DMYFCADR 
ECADR  DMYECADR 
ECADR  DMYECADR 
ECADR  DMYECADR 

-SNAPSHOT  DP  WORDS  FROM  eBANK  E7  OR  UNSWITCHaBLE  ERASABLE (GRoUP  Z)  ■ 
ADRES  DMYAORES 
ADRES  DMYADRES 
ADRES  DMYADRES 
ADRES  DMYADRES 
ADRES  DMYADRES 
ADRES  DMYADRES 
ADRES  DMYADRES 
ADRES  DMYADRES 
ADRES  DMYADRES 
ADRES  DMYADRES 
ADRES  DMYADRES 
ADRES  DMYADRES 

DOUBLE  precision  - ANY  EBANK  (GROUP  1) 


00007  0 

00007  0 


ECADR  DMYECADR 
ECADR  DMYECADR 
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L down-teLemethy  PROC^RaM 


USER'S  OWN  PAGf  NO.  3 E7 


0081 

REF 

30 

LAST 

312 

15.2052 

00007 

0 

ECADR 

0082 

REF 

3 1 

LAST 

313 

15.2053 

OOOO7 

0 

ECADR 

0083 

REF 

32 

LAST 

313 

15.2054 

00O07 

0 

ECADR 

0084 

REF- 

33 

LAST 

313 

15.2055 

00O07 

0 

ECADR 

0085 

REF 

34 

LASl 

313 

15 .2055 

00O07 

0 

ECADR 

0066 

REF 

35 

LAST 

313 

15.2057 

00007 

0 

ECADR 

0087 

REF 

36 

LAST 

313 

15.2060 

00007 

0 

ECADR 

0088 

REF 

37 

LAST 

313 

15.2061 

00007 

0 

ECADR 

DMYECADR 

DMYECADR 

DMYECADR 

DMYECADR 

DMYECADR 

DMYECADR 

DMYECADR 

DMYECADR 


0089 

REF 

38 

LAST 

313 

0090 

REF 

39 

LAST 

313 

0091 

REF 

40 

LAST 

313 

0092 

REF 

41 

LAST 

313 

0093 

REF 

42 

LAST 

313 

0094 

REF- 

43 

LASl 

313 

0095 

REF 

44 

LAST 

313 

0096 

REF- 

45 

La  SI- 

313 

0097 

REF 

46 

LAST 

313 

0098 

REF 

47 

LAST 

313 

0099 

REF 

40 

LAST 

313 

0100 

REF 

49 

LAS'i 

313 

0101 

REF 

50 

LAST 

313 

313 

0102 

REF 

5 1 

last 

0103 

REF 

52 

LaST 

313 

0104 

REF 

REF 

53 

54 

LAST 

LAST 

313 

0105 

A0IO6 

313 

0107 

REF 

13 

LAST 

312 

0108 

REF- 

14 

LAST 

313 

0109 

REF 

15 

LAST 

313 

0110 

REF 

16 

LAST 

313 

0111 

REF 

17 

LAST 

313 

lb. 2062 
15.206-3 
15 .206A 
15.206^ 
15.2065 
15.2067 

15.2070 

15.2071 

15.2072 

15.2073 

15.207^ 

15.2075 

15.2075 

15.2077 

15.2100 

15.2101 

15.2102 


00007  0 

30007  0 
0OUO7  0 
00007  0 
00007  0 
DOOOV  0 
00007  0 
00007  0 
00007  0 
00O07  0 
00007  0 
OOU07  0 
00007  0 
0OO07  0 
00007  0 
00O07  0 
0OO07  0 


15.2103  30O0Y  0 
15.210A  00007  0 
15.2105  30O07  0 
15.2105  00007  0 
15.2107  30007  0 


ECADR  DMYECADR 
ECADR  DMYECADR 
ECADR  DMYECADR 
ECADR  DMYECADR 
ECADR  DMYECADR 
ECADR  DMYECADR 
ECADR  DMYECADR 
ECADR  DMYECADR 
ECADR  DMYECADR 
ECADR  DMYECADR 
ECADR  DMYECADR 
ECADR  DMYECADR 
ECADR  DMYECADR 
ECADR  DMYECADR 
ECADR  DMYECADR 
ECADR  DMYECADR 
ECADR  DMYECADR 

SNAPSHOT  OP  WORDS  FROM  eBANK  E7  OR  UNSWItCHaBLE  ERASABLE (GROUP  l) 

ADRES  DMYADRES 
ADRES  DMYADRES 
ADRES  DMYADRES 
ADRES  DMYADRES 
ADRES  DMYADRES 


0112 

REF 

18 

LAST 

313 

0113 

REF- 

19 

LAST 

313 

0114 

REF 

20 

LASl 

313 

0115 

REF- 

21 

LAST- 

313 

0116 

REF 

22 

LAST 

313 

0117 

REF 

23 

LAST 

313 

0118 

REF 

24 

last 

313 

15.2110  00007  0 

15.2111  00007  0 

15.2112  00007  0 

15.2113  00007  0 

15.211A  00O07  0 

15.2115  00007  0 

15.2115  00O07  0 


ADRES  DMYADRES 
ADRES  DMYADRES 
ADRES  DMYADRES 
ADRES  DMYADRES 
ADRES  DMYADRES 
ADRES  DMYADRES 
ADRES  DMYADRES 


R0119  Special  data  list  for  high  ss^gj  Radar  sampling,  not  reduired  in  AS206. 

0120  RcF  2 last  202  15’2001  UPDNLIST  EQUALS  AGSLIST 
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L DDWN-lELtMElKY  PROGRAM  USER'S  OwN  PAGf  NO.  4 E7 

P0121  dOdownTm  is  Entered  every  20  vis  by  interrupt  triggered  by  the 
R0122  receipt  Oh  AN  eNDPULSe  from  the  spacecraft  telemetry  programmer. 


R012205  the  organization  of  the  program  IG  as  follows 

R0122I  1.  A MAIN  program  (DoODWNtm)  W-iICH  CONtRoLS  A SeRIE^  OF  SUBROUTINES. 

R0122I5  2.  SJBRlUi i;,ES (SENDID,SeNDSNA^.  ETE.)  which  ARE  DeSIGNeO  to  handle 
ROI222  SPECIFIC  PORTIONS  OF  THE  OjwMLIST. 

R012225  3.  :EOUaLS:  CaRDSCNDPI,  NDP2,  LinLR)  which  define  NO.  OF  items  in  the 
R01223  portions  OF  (HE  DOWNLISTS. 

R012235  4.  DOftNLISTS.  - DOWNLISTS  MUSI  3E  COMPILED  IN  THE  SAME  BANK  AS  THE 
RoI224  DOwN-T ELeMeTRY  PROGRAM.  iHiS  I^  DONE  FoR  eASe  OF  CODING,  FASTER 

R0I2245  eXlCUTION  and  TO  insure  THAI  T^E  DOWnLISt  ID:S(F1RS1  WORD  OF  EACH 

R0122b  2 SEC  DOaNLIST.)  ARe  UnIOJf.  tHe  LOCATION  OF  THE  AGS  DOWNIIST  MUST  Be 

R0122S5  2001  OF  THE  FBANK  IN  WHICr  tHE  DOWN-TELEMETRY  PROGRAM  RESIDES. 


R0122B  (I.E.  AGsLiSr  = XX»Z00l)*  HIS  WILL  MAKE  THE  lO  WORD  FqR  THE  AGS 

R012265  DOWNLINK  DATA  = OOOOi. 

R01227 


0123  REF 

0124 

01245  REF 

0125  REF 

0126 

0127  REF 

0128  REF- 

0129 

0130 

0131  REF 

0132  REF 

0133  REF 

0134  REF 

0135  REF 

0136  REF 

0137  REF 

0138  REF 

0139  REF 

0140  REF 


6 LAS1  216 

6 LAST  2l6 
4 last  86 

I 

22  LASl  306 


1 

1 

1 

1 

1 

1 

1 

1 

1 

2 last  3l4 


15,2117 

15.2120 

15.2121 

15.2122 
15,212A 

15.2129 
15,2125> 
15,2125 
15,212  ^ 

15.2130 

15.2131 

15.2132 

15.2133 

15.2134 

15,2133 

15.2135 

15,2137 

15.2140 

15.2141 


54  O16  1 DODOWNTM  TS  BANKRUPT 

0 OOO6  1 EXTEND 

22  O12  1 OXCH  ORUPT 

51 '401  0 INDEX  DNTMGOTO 

1 0000  0 TCF  0 

0 2150  1 dnphasli  TC  SENdID 

3 7747  1 CAF  BIT7 

0 0006  1 EXTEND 

05  013  0 WOR  13 

3 2353  0 CA  DNLINCR 

27*400  0 ADS  LDATALST 

0 2l64  0 TC  SNAPSHOT 

3 2351  1 CA  DNDPl-1 

0 2234  0 TC  SENDDP 

0 2270  0 TC  SENDCH 

0 2324  0 TC  SENDDSTb 

0 2344  0 TC  SENDTIME 

4 2230  0 CS  DNSNAP 

27'400  0 ADS  LDATALST 


GO  TO  APPROPRIATE 
TELEMETRY  PHASE 

send  Id  word(s) 

SET  WORD  ORDER 

BACK  TO  1 FOR 

REMAINDER  OF  CYCLE 

CALCULATE  ADDREsS  OF 

SNAPSHOT  WORDS  tO  Bf  SENT  (GROjP  1) 

SAVE  AND  SEND  SNAPSHOT  WORDS  (GROUP  1) 

place  NO,  OF  DP  WORDS  IN  GROUP  i INTO  A 

SEND  DOUBLE  PRECISION  WORDS  (GROUP  1) 

SEND  CHANNELS  11-14  AND  31-33 

SEND  DISPLAY  TABLES 

send  TIMEI  and  tIME2 

CALCULATE  ADDREbS  OF 

SNAPSHOT  WORDS  TO  BE  SENT (GROUP  2) 


0141  REF  2 LAST  314  15,2142  0 2l54  0 TC 

0142  R£F  1 15,2143  3 2352  1 CA 

01h3  ref  2 LASl  314  15,2144  0 2234  0 TC 

0144  REF  2 LAST  314  15,2145  0 227O  0 TC 

0145  REF  2 LAST  3l4  15,2145  0 2324  0 1C 

0146  REF  2 LASl  86  15,2147  1 2124  0 TCF 


SNAPSHOT  SAVE  AND  SEND  SNAPSHOT  WORDS  (GROUP  2) 

DNDp2-l  place  NO,  OF  Dp  WORDS  IN  gROup  2 

SENDDP  SEND  DOUBLE  PRECISION  WORDS(gROJP  2) 

SENDCH  SEND  CHANNELS  I1-I4  AND  31-33 

SENDDSTB  SEND  DISPLAY  TABLE 

dnphasei  go  back  and  start  over 


A0147 

0148  REF  5 last  202  15,2150 

0149  REF  3 LAST  314  15,2151 

0150  REF  3 last  293  15,2152 

0151  15,2153 


3 0411  0 SeNDID  CA  DNLSTADR 

55'400  0 TS  LDATALST 

7 5356  0 MASK  LOWlO 

0 0006  1 EXTEND 


INITIALIZE  DOwNI 1ST  ADDRESS  AS  SELECTED 
BY  A MISSION  OR  TEST  PROGRAM 

ISOLATE  Relative  loc  of  downlist  in  this 

FIXED  BANK.  RFSiiLT  = 0000  - 177  7,  NO 


488954A  YJL  SYSTEM  FOR  AGC : NeW  PROOr^M  sHePATIN  BY  eYUlS 


L DOWU-lELFMtTRY  PKO&RAM 


A0152 

0153 

REF 

1 

15.2159 

01  03^, 

1 

a/RITE 

0159 

REF 

23 

LAST 

319 

15.2155 

9 7T97 

0 

cs 

0155 

15.2156 

0 ODOb 

1 

EXTEND 

0156 

15.2157 

03  Ol3 

0 

^AND 

0157 

15.2160 

0 0006 

1 

EXTEND 

0158 

REF 

5 

last 

319 

15.2161 

23*901 

0 

3XCH 

A0159 

0160 

ref 

1 

15.2162 

3 2000 

0 

CAF 

0161 

REF 

1 

15.2163 

1 2261 

1 

T CF 

A0162 

0163 

016A  REF  1 

0165  RiF  89 

0166  SEF  55 

0167  REF  1 

0168  REF  27 

0169  REF  ^ 

0170 

0171  REF  190 

01711 

0172 

0173  REF  56 

017A  REF  3 

0175  REF  39 

0176  SEp  57 

0177  REF  28 

0178  REF  1 

0179  REF  1 

0180  REF  1 

0181  REF  1 

0182  REf  6 

A0183 

018A 

0185  REF  5 

0186  REF  1 

0187 
A0188 

0189  REF  1 

0190  REF  2 


15 

15 

LAST  307  15 

last  209  15 

15 

last  209  15 

last  3iA  15 

15 

last  310  15 

15 
15 

last  315  15 

last  311  15 

last  305  15 

LAST  315  15 

last  315  15 

15 
15 
15 
15 

last  315  15 

15 

last  315  15 

15 
15 

15 

last  315  15 


216A  0 0^06  1 

2165  23*A03  1 

2166  3 7'’61  0 

2167  5<,  061  1 

2170  3 2232  0 

2171  S'!  062  1 

2172  6 1^00  1 

2173  0 OOOb  1 

2179  5 OOOO  1 

2175  5 OUOO  1 

2175  3 oOOl  0 

2177  50  061  0 

2200  53*905  0 

2201  3 TCSA  0 

2202  26  061  1 

2203  10  062  1 

2209  1 2171  0 

2205  3 2231  0 

2206  55*902  1 

2207  3 2233  1 

2210  55*901  1 

2211  0 0006  1 

2212  5 1900  1 

2213  5 0013  0 

2219  3 0001  0 

2215  1 2256  0 

2216  11*^02  1 


SNAPSHOT  EXTEND 
OXCH 
EAF 
IS 
CAE 

SNAPLOOP  T5 
AD 

EXTEND 

index 

INDEX 

OCA 

index 

OXCH 

CAF 

ADS 

CCS 

TCF 

CAF 

TS 

CAF 

TS 


EXTEND 

INDEX 

index 

OCA 

TCF 

SeNDSNAP  CCS 


0191  15 

0192  REF  2 last  315  15 

A0193 

0199  REF  3 last  315  15 

0195  15 

0196  15 

0197  15 

0198  REF  191  last  315  15 


2217  1 2221  0 TCF 

2220  0 1903  1 TC 

2221-  55*902  1 IS 

2222  6 0000  1 DOUBLE 

2223  ^ 0000  0 COM 

2229  0 0006  1 EXTEND 

2225  5 0000  1 INDEX 


DNTMl 

BIT7 

13 

DNTMGOTO 

LOvJIdCOd 
TMEXI TL 


dno 

ZERO 
I TEMPI 
DNSNAP-2 
ITEMP2 

LDATALST 

A 

0 

0 

1 TEMPI 
DNTMBUFF 
T wO 

1 1 empi 

1TEMP2 

SNAPLOOP 

DnSNAP-1 

TMlNDEX 

LSENDSNP 

DNT  mGOTO 


LDATALST 
NSNAP  -1 
0 

DNTMEXIT 

TMlNDEX 

+ 2 
DNQ 

TMlNDEX 


A 
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USER'S  OwN  page  no.  5 E7 

conflict  of  dupi icate  id  words  can  occur 

SEND  first  id  WORD, 

SET  WORD 
ORDER  BIT  7 IN 
CHANNEL  13  TO  0. 

set  up  DNTMGOTO  SO  NEXT  ENTRY  TO 

dodowntm  will  transfer  Control  to 
the  instruction  after  tC  sendid. 
place  special  In  cOdE  in  a. 

GO  send  special  id  code. 


save  return  address 
initialize  the 

DNTMBUFF  I NCRFMfNTER ( I TEMPI ) TO  ZERO, 
INITIALIZE  LOOP  COUNTER ( I TEMP2 ) TO 
TOTAL  NO.  OF  SNAPSHOT  DP  WORDS  LESS  2. 

calculate  address  of  next 

ENTRY  IN  DOWNLIsT. 

PICK  UP  THE  DQUbLe  PRECISION  WOrD  FROM 
THE  NEXT  ENTRY 
IN  THE  DOwNLlST. 

AND  SAVE  IT  IN  tHE  NEXT  AVAILABLE  LOC 
IN  DNTMBUFF  SNAPSHOT  BUFFER. 

INCREMENT  DNTMBuFF  I NCREMENTER ( i TEMP 1 ) 

BY  2. 

HAVE  ALL  SNAPSHOT  DP  WORDS  BEEN  SAVED... 
NO— GO  BACK  AND  CONTINUE  SAVING  THEM 
YES — PLACE  NO.  oF  DP  WORDS  REMAINING 
TO  BE  SENT  INTO  TMlNDEX. 

SET  UP  DNTMGOTO  SO  PROGRAM  CONTROL  WILL 
BE  transferred  tO  SeNDSNAp  ON  NeXT 
entry  to  DODOWNtM. 

PICK  UP  FIRST  DP  SNAPSHOT  WORD 
AND  PLACE  IT  IN  A + L. 

(((THIS  additional  CODING  ALTHOUGH  A BIT 

superfluous  IS  justified  because  it 

SAVES  2 WORDS  OF  ERASABLE  STORAGE))) 

GO  SEND  FIRST  SNAPSHOT  DP  ENTRY. 

ANY  SNAPSHOT  WORDS  LeFT  IN  BUFFpR 

YES--GO  PROCESS  Them 

NO — RETURN  TO  INSTRUCTION  AFTER 

TC  SNAPSHOT. 

SAVE  COUNT  OF  SNAPSHOT  WORDS  RElAlNING 
CALCULATE  DECRETENTfR 
FOR  NEXT  DP  WORD  IN 
BUFFER. 


48895^A  YJL  SYSTEM  FOR  ACiC;  NEW  PRO^RRM 


L ddwn-ielemetry  program 

0199  REF  A LAST  31S  lb,Z226  3 

0200  REF  2 last  315  15.222^  1 

0201 

0202  REF  2 last  31S  15^2230 


0203 

REF 

3 

last 

316 

15,2231 

020a 

0205 

REF 

REF 

A 

1 

last 

316 

15,223E 

15,2233 

SHePATITJ  3Y  EYLES 


1^31  0 OCA  DNTMBUFF  +200 

2^56  0 TCF  DNTMEXIT 

OOIA  NSNAP  equals  120 
OOOIA  1 ONSNAP  AOReS  NSNAP 

:00l3  0 DNSNAP-i  AORES  NSNAP  -1 

00012  1 0N5NAP-2  AORES  NSNAP  -2 

02^16  0 LSENOSNP  AOReS  SeNDSNAP 
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USER’S  OWN  PAGf  NO-  6 E7 

TAkE  next  op  WOrO  out  OF  BUFFER,  PLACE 
IT  INTO  A + L AND  Go  SEND  IT. 

number  OF  DP  snapshot  WORDS. 

NO,  OF  OP  SNAPSHOT  wORDS  CONSTANT 
NO.  OF  DP  SNAPSuOT  WORDS  -1  C0^^5TANT 
NO,  OF  DP  SNAPSHOT  WORDS  _2  CONSTANT 
LOC  OF  routine  which  SENDS  SNAPSHOT  BUFF 


A0206 

0207 

0208  REF 

0209  REF 

0210  REF 

0211 

0212  REF 

0213  REF 
021A  REF 

0215  REF 

0216  REf 

0217  REF 

0218  REF 

0219 

0220  REF 

0221  REF 


3 last  315 
A last  315 
LAST  305 

6 last  315 
1 

7 last  315 
3 LAST  3 1 6 

6 last  316 

7 LAST  316 
192  LAST  315 

13  LAST  305 
6 LAST  289 


15,223A 

15.223P 

15,223B 

15*2237 

15.22A0 

15.22A1 

15.22A^ 

15,22A3 

15*22AA 

15,22AP 

15,22A6 

15.22A7 

15.2250 

15.2251 

15.2252 


0 0U06  1 
23’A03  1 
55*902  1 
6 7^55  1 
A OOOO  0 
27'AOO  0 
3 2267  0 
55*A01  1 
3i'A02  0 
55»'*02  1 

6 lAOO  1 
50  000  1 
3 OUOO  1 
5A  003  0 

7 AP53  1 


SENDDp 


SENdDPB 


extend 

3XCH 

T5 

AD 

COM 

ADS 

CAF 

15 

CAE 

IS 

AD 

INDEX 

CA 

TS 

MASK 


DNQ 

TMINDEX 

ONE 

LDATALST 

LSENDOPA 

DNTMGOTO 

TMINDEX 

TmINdFX 

LDATALST 

A 

0 

EBANK 

LoW8 


enter  with  no.  Dp  WORDS  REMAINING  TO 
BE  Sent  in  a.  Save  return  address. 

PLACE  NO.  OF  DP  WORDS  TO  BE  SENT  AFTER 
THIS  ONE  into  T^.INDEX.  CALCULATf  NEXT 
location  in  DOWMLlSr  AND  SAVE 
IT  IN  LDATALST. 

SET  UP  DNTMGOTO  SO  PROGRAM  CONTROL  WILL 
GO  TO  SENDDPA  0^.  NEXT  ENTRY  TO  DODOWNTM, 
PLACE  NO.  OF  words  REMAINING  TO  BE  SENT 
INTO  A.  SAVE  NO.  DP  WORDS  TO  BE  SENT. 
CALCULATE  NEXT  DOWNI 1ST  ENTRY. 

PICK  UP  ECADR  Of  NEXT  DOWNLIST  ENTRY. 

SET  EBANK. 

isolate  relative  address. 


0222 

0223 

022A 


REF  193  LAS! 


316 


15 

15 

15 


2253  0 0006  1 EXTEND 

225^  5 0000  1 INDEX  A 

2255  3 I'tOl  0 DCA  3a00 


PICK  UP  DOUBLE  PRECISION 

WORD  INTO  A + L.  (DCA  3A00  e DCA  IAOO) 


0225 

0226  REF 

0227  REF 

0228 

0229  REF 

0230  REF 


2 LAST  315 
67  LASl  301 


1 

15  last  217 


l5  *225^ 
15,2257 

15.2260 

15.2261 
15,226A 
15,2263 


0 0006  1 
01  034  1 

3 0001  0 

0 0O06  1 

01  035  0 

1 5751  0 


DNTMEXIT  extend  GENERAL  DOWN-TEI  EMET RY  EXIT 

a/RITE  DNTmI  to  SEND  A + L TO  CHANNELS  3A  + 35 

CA  L RESPECTIVELY. 

TMEXITL  EXTEND  ALTERNATE  DOWN  TELEMETRY  EXIT 

WRITE  DNTM2  TO  SEND  A TO  CHANNEL  35. 

TCF  RESUME  EXIT  DOWN  TELfMfTRY  PROG  VIA  RESUME. 


0231 

REF 

7 

LAST 

316 

0232 

REf 

1 

0233 

REF 

A 

LAST 

316 

023A 

REF 

1 

15*226A  11'A02  1 

15.2265  1 2KA5  1 

15.2266  0 IAO3  1 

15.2267  02b6A  0 


SENDDPA  CCS 
TCF 
TC 

LSENDDPA  ADRES 


TMINDEX  ANY  DP  WORDS  REMAINING  TO  BE  SENT. 

senddpb  yes— GO  send  THFM. 

DNQ  RETURN  TO  INSTR  AFTER  TC  SENDDP. 

SENDDPA  LOC  OF  ROUTINE  wHICh  SENDS  Dp  wdRDS, 


A0235 

0236 

0237 

0238 

noon 

REF 

REF 

D C C 

5 

1 

Last 

last 

316 

15.2270 

15.2271 

15 ,227ii 

Kcr 

8 

316 

15 ,2273 

02A0 

A02A1 

REF 

lA 

LAST 

30A 

15,227A 

0 0006  1 sendch  Extend 

23’A03  1 3XCH  DimQ 

3 2313  1 CAF  LSENDCHA 

55'AOl  1 TS  DNTMGOTO 

3 6301  0 CAF  Three 


SAVE  return  ADDRESS 

SET  UP  DNTMGOTO  SO  PROG  CONTROL  WILL  GO 
TO  SeNDCHA  ON  NrXT  ENTRY  TO  DODoWNTM. 

PLACE  NO.  OF  PAiRS  OF  CHANNELS  lO  BE 

Sent  after  this  pair  into  a. 
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DOWN- ( ELEMETRY  program 


USER'S  OWN  PAGr  NO. 


7 


E7 


0243 

0244 

0245 

0246 

0247 

0248 

0249 

0250 

0251 

0252 

0253 

0254 

0255 

0256 

0257 

0258 

0259 

0260 
0261 
0262 

0263 

0264 

0265 


REE  8 last  316 

REF  194  LAST  316 
REF  1 

REF  68  LAST  3l6 
REF  9 LAST  317 
1 


REF- 

REF 

REF 

REF 

REf 

REF 


3 LASI  3l6 
10  LAST  317 
1 

6 last  316 
1 


15,227i> 

15.2276 

15.2277 

15.2300 

15.2301 
15.230L 

15.2303 

15.2304 

15.2305 

15.2306 

15.2307 
15.231<J 
15.2311 
15.2311; 
15.2313 
i5.23lA 

15.2315 

15.2316 

15.2317 
15.232D 

15.2321 

15.232L 

15.2323 


55*‘702  1 
0 0U06  1 
5 0000 
5 2320 
00  UOO 
54  001 
0 0006 


SENDCHB 


5 1A02  0 


5 2314  0 

00  Ooo  1 

1 2456  0 
11'402  1 
1 2475  1 
0 1403  1 

02310  1 
O003<;  0 

00030  1 

00013 
DOOll  1 
OOO33  1 

00031 

00014 


rs 

extend 

index 

INDEX 

READ 

is 

EXTEND 

INDEX 


TMINDEX 


00012  1 


INDEX 

REA(j 

TCF 

SENDCHA  CCS 
TCF 
TC 

LSENDCHA  ADRES 

FIXLSTCA  OCT 
OCT 
OCT 
OCT 

FIXLSTCL  OCT 
OCT 
OCT 
OCT 


FIXLSTCL 

0 

L 

TMINDEX 

FIXLSTCA 

0 

DNTMEXIT 

TMINDEX 

SENDCHB 

DNQ 

SENDCHA 

32 

30 

13 
11 

33 

31 

14 
12 


SAvE  NO,  OF  PAIRS  OF  CHANNELS  RfMAINING 

TO  Be  sent  into  a.  PICK  UP  channel 

ADDRESS  FROM 
NEXT  ENTRY  IN  FtXLSTCL. 
place  contents  nF  THE 
CHANNEL  INTO  L. 

PICK  UP  NeXT  CHaNNEI 

address  from  next  entry 

IN  FIXLSTCA. 

place  contents  np  Channel  into  a. 

NOW  GO  send  a + L. 

ANY  MORE  CHANNEI  PAtRS  10  BE  SENT 

YES— GO  SEND  THrM. 

NO — return  to  instr  After  tc  sendch. 

LOCATION  OF  ROUtINE  WHICH  SENDS  CHANNELS 
CHANNEL  32 
CHANNEL  30 
CFlANNEL  13 

channel  11 

CHANNEL  33 
CHANNEL  31 
Channel  14 
CHANNEL  12 


A0266 

0267 

0268 

REF 

7 

last 

317 

0269 

0270 

REF 

ref- 

1 

9 

last 

316 

0271 

ref 

6 

last 

272 

15.232A  0 0006  1 
15.2325  23'403  1 
15’2326  3 2343  1 
15.2327  55'401  1 
15.2330  3 7f60  1 


SENDDSTB  EXTEND 

OXCH  DNO  save  RETURN  ADDrESS 

caf  lsenddsa  set  up  dntmgoto  so  program  Control  will 

TS  dntmgoto  go  to  SENdDSA  On  NExT  entry  to  jjOdOwNTM. 

CAF  FiVF  place  NO.  OF  PAtRS  OF  DSPtAB  WOrDS  REM 


0272 

0273 

0274 

0275 

0276 

0277 

0278 

0279 
02B0 
0281 
0282 


REF  11  last  317 


REF  195  last  317 
RtF  45  Last  301 
REF  4 LAST  317 
REF  12  LAST  317 
REF  1 

REf  8 last  317 
REF  1 


I5.233I  55'‘*02  1 

15.2334  6 OOOO  1 

15.2333  4 OOOO  0 

I5.233A  0 0006  1 

15.2335  5 OOOO  1 

15.2336  3 0326  0 

15.2337  1 2456  0 

15.2340  11*402  1 

15.2341  1 2331  0 

15.2342  0 1403  1 

15.2343  02340  1 


SeNDDSB  TS 

DOUBLE 

COM 

extend 

index 

DCA 

TCF 

SENDDSA  CCS 
TCF 

Tc 

LSENDDSA  ADRES 


TM INDEX 


A 

DSPTAB  +10D 

DNTMEXIT 

TMINDEX 

SENDDSB 

DimQ 

SeNDDSA 


AFTER  THIS  PAIR  INTO  A.  SAVE  NO.  REMAIN- 
ING INTO  TMINDEX.  CALCULATE  DECrEMENTER 
FOR  next  pair  Of  WORDS(Sp) 

IN  DSPTAB. 

PICK  UP  PAIR  OF  DSPtAB  WORDSISP)  AND 
LEAVE  THEM  IN  A + L. 

NOW  GO  SEND  A + L. 

ANY  WORDS  LEFT  tN  DSPTAB  TO  BE  SENT 

YES--GO  SEND  THfM 

NO— return  to  instr  After  tc  seviddstb. 
LOC  of  routine  ^HICh  sends  DISPiAY  table 


A0283 


0284 

0285 

REF 

10 

LAST 

317 

15. 2344 

15.2345 

15.2346 

15.2347 

0 0O06 
23*401 

1 

0 

sendtiml  extend 

DXCH 

DNTMGOTO 

set  up  dntmgoto  so  program 

GO  TO  INSrRUCTInN  AFTER  TC 

control  wIll 
SeNDt ime. 

0286 

REF 

12 

LAST 

291 

0 0^06 
3 

1 

0 

LX  1 lnL? 
:)CA 

TIMF2 

PLACE  TIMe2  and  TIMfI  INTO 

A ANiJ  L. 

0287 

REF 

5 

LAST 

317 

I5.235O 

1 2456 

0 

ICF 

DNTMEXIT 

NOW  GO  Send  a and  l. 

48895'^A  YJL  SYSILM  FOR  AGC:  NEW  PROtiRAM  sHePATIN  BY  eYLES 
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L OjWN-t LlEMETRY  program  user's  own  PaGP  no*  a E7 


A0288 


0289 

REF 

1 

15,2351 

OOQ32 

0 

DNDPl-1 

ADRES 

NDPl  -1 

NO,  OF  DP  WORDS 

IN  GROUP  1 EeSS  1 

0290 

REF 

1 

15,2352 

OOD32 

0 

DNDP2-I 

ADRES 

N0P2  -1 

NO.  OF  DP  WORDS 

IN  GROUP  2 EESS  1 

0291 

REF 

1 

15,2353 

00102 

1 

DNEINCR 

ADRES 

EINCR 

reeative  eoc  of 

FIRST  GROUP  IN  DOWNEIST 

A0292 

A0293 

A029A 

A0295 

0296  0033 

0297  0033 

0298  0102 
A0299 


CHANGE  THE  FOI.EOWING  3 EqUAES  CARDS  WHeN  MODIFYING  tHe  StRUCiURe  OF  THE 
DOwNLISTS. 

NDPl  EQUAES  27D  NUMBER  OF  DP  WOrDS  (GROUP  1) 

NDP2  EQUAES  2 /D  NUMBER  OF  DP  WOpDS  (GROUP  2) 

EINCR  EQUAES  6bD  EINCR  = NDPl  + NDP2  ♦ I2D 

* dJUUHHt  JHHHJ  » X Jnnnnnnnnnm- jUt  JUt** 
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L DohN-lELtML(RY  PROGRAM  USER'S  OWN  PaGF  NO*  ^ E7 

PO3OO  NOMINAL  SUNBURST  (AS206)  ^ ^>ECONO  OOWNLIST 
R03001  AS  OF  DATE  = 29NOV66 

R03OO2  IN  COLUMN  Bo  INDICATES  THE  REOUIRED  DATs  IS  NOT  AVAILABLE  THROUGHOUT 
R03003  THE  ENTIRE  mI&SION  IN  THE  SAME  NeoISTLRS  NITH  THE  SAME  SCALING  FACTORS 
R0300A  THESE  CONFLICTS  MUST  BE  RESjLmeD. 

R0301  last  entry  in  DOWNLIST  will  Be  sent  first,  then  last  entry  - 1 etc. 

0302  15»235A  NOMDNLST  EQUALS 

A0303  DISPLAY  TABLES 

A030A  DSPTAB  +10D  AND  DSPTAB  +11D 

A030S  DSPTAB  +8D  AND  DSPTAB  +9D 

A03G6  DSPTAB  +6  AND  dSPTAB  +T 

A0307  DSPTAB  +A  AND  dSPTAB  +5  T 

A0308  DSPTAB  +2  AND  dSPTAB  +3 

A0309  DSPTAB  AND  dSPTAB  +1 

A0310  CHANNELS 

A031I  CHANNELS  32  AND  33 

A0312  CHANNELS  30  AND  31 

A0313  CHANNELS  13  AND  lA 

A031A  CHANNELS  11  AND  12 

A0315  DOUBLE  PRECISION  - ANY  EBANK  (GROliP  

0316  REF  20  LAST  2O7  1S,235F  OOD76  0 ECADR  STATE  +2  ( FLAGwRD^ , DAPBOnLS ) FLAGWORDS 

0317  REF  21  LAST  3l9  1S,235S  OOD7A  1 ECADR  STATE  ( STATE , FLAGWRDI)  FLAGWORDS 

0318  REF  2 LAST  A3  IS, 2356  03^20  0 ECADR  OMEGAR  -1  (GARBAGE  .OMEGAR ) ANGULAR  RATES  ABOUT  THE 

0319  REF  5 LAST  AS  -15,2357  O3DI6  0 ECADR  OMEGAP  (OMLGAP .OMEGAO ) P,Q,R  BODY  AXES  (DAP) 

0320  REF  A LAST  ISO  15,2360  OOU33  1 ECADR  CdUy  (CDUY.CDUZ)  ACTI.AL  CDU:S 

0321  REF  10  LAST  282  15,2361  OOO3I  0 ECADR  CDUX  -1  (GARBAGE  ,CDUX ) aCTUaL  CDU:S 

0322  REF  1 15,2362  02PA5  1 ECADR  RD  +a  APS2  DESIRED  RADIUS  VECTOR  IN  StABLE 

0323  REF  2 LAST  319  15,2363  C23A3  1 ECADR  Ru  +2  MEMBER  CO-ORD I Na TES. 

032A  REF  3 LAST  319  15,236^  023A1  0 ECADR  RD  SCALED  METERS  X 2 (-7). 

0325  REF  1 15,2363  02331  1 ECADR  VDVFCT  +a  APS2,DPSi  DESIRfD  VELOCITY  VECTOR  IN 

0326  REF  2 last  319  15,2366  02327  0 ECADR  VUVECT  +2  STABLE  MEMBER  CD-ORdINAT ES, 

0327  REF  3 last  319  15,2367  02325  1 ECADR  VDVECT  SCALED  M/CS  X 2(-7). 

0328  REF  1 15,2370  ,02337  1 ECADR  VGVFCT  +A  APS2,DPS1  VELOCITY  TO  BE  GAINED  SCALED 

0329  REF  2 LAST  319  15,2371  02335  0 ECADR  VGVFCT  +2  M/CS  X 2(-7).  IN  LOCAL  VERTICAL  (APS2) 

0330  REF  3 last  3l9  15,2372  02333  0 ECADR  VGVFCT  OR  STABLE  MEMBER  (DPSl). 

0331  REF  2 last  37  15,2373  023^7  0 ECADR  T I GO  ESTIMATED  TIMF  tO  Go  IN  CS ( APS2 , DPSl , 2 ) . 

0332  REF  2 LAST  lit  15,237^  00(65  0 ECADR  PHASENUM  ( PHASENUM , GARBAGE ) PRESENT  MISSION  PHASE 

0333  REF  3 last  89  15,2376  OII7I  1 ECADR  MT1MFR2  (MT I MER2  ,M1 I MfR 1 ) REGISTERS  CONTAINING 

033A  REF  A LAST  89  15,2376  01167  0 ECADR  MTIMfRA  (Ml  I MERA  ,MT I MfR3 ) DfLTA  t:S  OF  ,P:S. 

0335  REF  3 LASi  89  15,2377  01l75  0 ECADR  MPHASE2  (MPHASE2 .MPHASEi ) REGISTERS  CONTAINING 

0336  REF  3 LAST  89  15,2A00  01173  0 ECADR  MPHASEA  (MPHASEA  .MPHASEr  ) MP.'S  TO  BE  CAl  LED. 

0337  REF  1 15,2A0l  00007  0 ECADR  SPARE  SPARE 

0338  REF  2 LAST  79  15,2A02  31lA2  1 ECADR  LmPIN  ( Lmp I N .LmpOUT ) 

0339  REF  lA  last  92  i5,2A03  OllAO  0 ECADR  LMPCMD  +6  OUTPUT  TO  LMP  s REGISTERS 

03A0  REF  15  last  319  15,2aOA  01136  1 ECADR  LMPCMD  +A  CONTAINING  THF 

03A1  REF  16  last  319  15,2a05  0113A  0 ' ECADR  LMPCMD  +2  LAST  EIGHT  LMP  COMMANDS 

03A2  REF  17  LAST  319  15,2a06  01l32  0 ECADR  LMPCMD  TO  BE  SENT  BY  THE  L&C. 

A03A3  SNAPSHOT  DP  WoRDS  FROM  eBANK  E7  OR  UNSWItCHaBLe  ERASABLE ( GRqUP  zl 


A8895AA  YJL  SYSTEM  FOR  AGO:  RR0<^RAM  SHePAtIN  BY  EYLeS 


L DOWN-l LLtMEl RY  PROGRAM 


03AA  R£F  2 last  319  IS, 2407  OOOO?  0 

0345  RHF  3 LAST  320  15,24l0  30007  0 


0346  REF 

0347  REF 

0348  REF 

0349  REF 

0350  REF 

0351  REF 

0352  REF 

0353  REF 

0354  REF 

0355  RFF 
A0356 
A0357 
A0358 
A0359 
A0360 
A0361 
A0362 
A0363 
A0364 
A0365 
A0366 
A0367 
A0368 


4 last  320 

5 last  320 

2 last  134 

3 last  282 
22  LAST  319 
17  last  302 

1 

1 

2 last  320 

3 last  320 


15,2411  00007  0 

15,24U  00007  0 

15,24lA  30041  1 

15,24lA  00037  0 

15.2416  OOlOO  0 

15,241B  01S64  1 

15.2417  01B62  1 

15.2420  01914  0 

15.2421  01912  0 

15.2422  01910  1 


ADRES 

ADRES 

ADRES 

ADRES 

ADRES 

ADRES 

ADRES 

ADRES 

ADRES 

ADRES 

ADRES 

ADRES 


A0369 

A0370 

0371  REF  23  LAST  320  15 

0372  REF  24  LAST  320  15 

0373  REF  3 LAST  319  15 

0374  REF  6 LAST  319  15 

0375  REF  5 LAST  319  15 

0376  .REF  11  LAST  319  15 

0377  REF  4 LAST  89  15 

0378  REF  3 last  310  15 

0379  ref  4 last  51  15 

0380  REF  1 15 

0381  REF  1 15 

0382  REF  60  LAST  298  15 

0383  REF  46  LAST  310  15 

0384  REF  47  LAST  320  15 

0385  REF  48  LAST  320  15 

0386  REF  49  LAST  320  15 

0387  REF  50  LASi  320  15 

0388  REF  51  LAST  320  15 

0389  REF  52  LAST  320  15 

0390  REF  6 LAST  306  15 

0391  REF  4 LAST  306  15 

0392  REF  6 LAST  320  15 

0393  REf  3 LAST  319  15 


2423  0OO76  0 ECADR 

2429  OOO74  1 ECADR 

2425  03020  0 ECADR 

2429  D3OI6  0 ECADR 

2427  00033  1 ECADR 

2430  OOO3I  0 ECADR 

2431  01^60  0 ECADR 

2431^  02372  0 ECADR 

2433  33^52  1 e<^ADR 

2439  02562  1 ECADR 

2435  02323  1 ECADR 

2439  00365  1 ECADR 

2437  02313  1 ECADR 

2440  02311  0 ECADR 

2441  02307  1 ECADR 

244<;  02305  0 ECADR 

2443  02303  0 ECADR 

2449  02301  1 ECADR 

2495  02‘i77  1 ECADR 

2449  02315  1 ECADR 

2447  02321  0 ECADR 

2450  00O07  0 ECADR 

2451  01142  1 ECADR 
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USER'S  OWN  PAGF  no.  10  E7 

sparf  spare 

spare  spare 

spare  spare 

SPARE  SPARE 

PIPAZ  (PIPAZ, garbage ) ACTUAL  L PIP  CO JNTS, 

PlPAX  (PIPAX.PIPAY)  ACTUAL  X,Y  PIP  COUNTS, 

state  +4  (STATE  +4, GARBAGE)  I AMBERT  FLAGS. 

FAILREG  +1  (FAILREG  +l,+2)  MULtIFAIL  ALARM  CODES, 

ERCOUNT  (ERCOUNT.FAILREOSLFCK  FaIL  CTR.ALM  CODE 

COMPTORK  +4  E)CYROCOMPAS.S  GvRO  TORQUeS  IN  VeRtICAL, 

CuMPTORK  +2  SISOUTH,  EAST  SYSTEM, ERAte  NOT  INCLUDED, 

CUMPTORK  V)  37777,37777  = (1  - 2 (-28)  1 RE  ,/S. 

lgc  clock _ 

TIME2  AND  TIMFl 

DISPLAY  TABLES 

DSPTAB  +10D  AND  DSPtAB  +IID 
DSPTAB  +bD  AND  nSPTAB  +9D 

DSPTAB  +6  AND  r.SPTAB  +7 

DSPTAB  +4  AND  nSPTAB  +5 

DSPTAB  +2  AND  nSPTAB  +3 

DSPTAB  AND  nSPTAE  +1 

CHANNELS 

CHANNELS  32  AND  33 
CHANNELS  30  AND  31 
CHANNELS  13  AND  14 


IBLE  PRECISION 

STATE  +2 

S)  ATE 

OMEGAR  -1 

OMEGAP 

CDUY 

CuUX  -1 

REDOCTR 

TINT 

AuSQ 

FC 

TEVFNT 
IM0DES30 
STBUFF  +I2D 
STBUFF  +10D 
STBUFF  +80 
STBUFF  +6 
STBUFF  +4 
STBUFF  +2 
STBUFF 
ST  COUNT 
UPVERB 


CHANNELS  11  AND  12 

ANY  EBANK  (GROUP  1) 

(FLAGwRD2,DAPR0r.LS)  FLAGWORDS 

(STATE, FLAGWRDli  FLAGWORDS 

(GARBAGE, OMEGAR)  ANGULAR  RATES  ABOUT  THE 

(OMEGAP, OMEGAQ)  P,U,R  BODY  AXES  (DAP) 

(CDUY,CDUZ)  ACTIjAL  CDU:S 

(GARBAGE, CDUX)  aCTUaL  CDU:S 

(REDOCTR, SFAIDRESTaRT  CtR,SLFC<  FAIL  0. 

PREDICTED  ENGTNy  ON  T I ME ( MP9 ,MP 1 1 ,MP  1 3 ) » 

(AOSQ.AOSR)  MnMpNT  OFFSET (Q'R) 

DPS2  FORCE  COMMAND  SCALE  3 LbS  x 2 (-19). 

TIME  OF  GRR  / ENGINE  ON  / ENGINE  OFF 

( IM0DES30 , IMODES33)  PGNCS  FLAGWORDS 

STBUFF  = 14  RFGTSTErS 

IN  WHICH  THE  UPi  INKfD  DATA 

IS  PLACED  for  ground 

DISPLAY  AND  VERIFICATION 

before  placement 

IN  THE  appropriate 
ERASABLE  LOCATinNS, 

(5TC0UNT ,UPOLDMn) 

(UPVERB, COMPNUMb) 


SPARF 

LmPIN 


SPARE 

(LmPIN,LmPOuT ) 
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L DDWN-IELLMETRY  program  USER'S  QwN  PAGp  NO.  11  E7 

0399  rEE  18  last  319  16,2952  OlUO  0 ECAdr  LMPCMO  +6  OUTPUT  TO  LMP  = REGISTERS 

0395  REE  19  LAST  321  15,2953  01l36  1 ECADR  LMPCMD  +9  CONTAINING  THE 

0396  REF  20  LAST  321  15,2959  D1139  0 ECADR  LMPCMD  +2  LAST  EIGHT  LMP  COMMANDS 

0397  REF  21  LAST  321  15,2956  01l32  0 ECADR  LMPCMD  TO  BE  SENT  BY  T^.E  LgC. 

A0398  SNAPSHOT  DP  ^ORDS  FROM  eBANK  E7  OR  UNSWItCHaBLE  ERASABLE ( GROUP  1) 

0399  REF  1 15,2959  00907  1 ADRES  DeLVZ  THE  CHANGE  IN  Vf-LOCiTY  ALONG 

0900  REF  I 15,2957  00905  0 ADRES  DeLVY  EACH  OF  THE  STABLE  MEMBER  AXES  IN  THE 

0901  REF  8 last  287  15,2960  00903  0 ADRES  DELVX  2 SEC  INTERVAL  pRECfEDING  PIPTIME. 

0902  REF  1 15*2961  OO '’67  1 ADRES  CdUYD  (CDUYD  ,CDUZD  ) DESIRED  CdU'.S 

0903  REF  9 lASI  210  15,2962  00T65  0 AdREs  CdUXD  -1  (GARBAGE , CDUXD ) DEsIREd  CDU:s 

0909  REF  1 15,2-t63  013^0  1 ADRES  STATIME  TIME  FOR  RN  AND  VN. 

0905  REF  1 15,29oA  01022  0 ADRES  VN  +9  AVE .G/ORB I T . I NT . STATE  VECTOR  Z VEL 

0906  REF  2 LAST  321  15,2965  O1U2O  1 ADRES  VN  +2  AVE .G/ORB I T . I NT . STATE  VECTOR  Y VEL 

0907  REF  3 last  321  15,2966  OIOI6  1 ADRES  VN  AVE , G/ORB I T . I NT . STATE  VECTOR  X VEL 

0908  REF  1 15,2967  OIO19  0 ADRES  RN  +9  AVE , G/ORB I T . I NT . STATE  VECTOR  2 POS 

0909  REF  2 last  321  15,2970  OIU12  0 ADRES  RN  +2  AVE .G/ORB I T , I NT . STATE  VECTOR  Y POS 

0910  REF  3 LASl  321  15,2971  OlUiO  1 ADRES  RN  AVE , G/ORB 1 T . 1 NT . STATE  VECTOR  X POS 

A0911  ID  Fjords 

A0912  I.D.,  SYNCH  BITS 

A0913  start  Here  and  read  back  for  contents  Op  DOWNLISI 


^8895^A 


L 

0001 

0002 


Ro003 

Ro005 

R0007 

R0OO8 

ROOlO 


0011 

0012 

0013 

OOIA 

0015 

0016 

0017 

0018 

0019 

0020 


0021 

0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 


0040 
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INFLlorii  aLIGimMeNI  ROJTINeS  USeR  • 5 OWN  PAGf  NO.  1 

15’2472  bank  15 

REF  13  LAST  59  E5  EBANK=  XSM 


c'^LCoI'A  computes  THe  3yR0  TOR^je  angles  ReouIREd  to  bring  THe  stable  member  into  tHl  uEtIREn  ORIeNTAtIO:. 

the  input  is  the  DeSIReD  STAB-E  member  coordinates  ReFeRReD  to  PReSeNT  stable  Member  COrRUUiATES.  THl  TmRlE 
HALF-JNiT  Vectors  arl  stored  at  xdc,  ydc,  and  zdc. 

THe  OUTFUtS  are  THe  three  <SYR3.  ioROUING  angles  to  Be  applied  to  tHe  Y,  Z,  and  X GYROS  and  are  stored  dp  at  igc. 
msc*  and  ogc  respectively,  anbles  are  Scaled  properly  for  imupulse. 


REf  1 

REF  6 Last  40 
ref  1 

REF  ! last  322 


REF  1 

REF  2 last  322 


REf  1 

REF  3 LASI  322 

REF  1 
REF  1 


15*247'^ 

15 ,2473 

71Z20 

OOO51 

1 

CaLCGTA  ita 

DLOAD 

0 

S2 

15*2474 

02423 

0 

Xoc 

15.2475 

15.2476 

55325 

0 

PDDL 

POOL 

33I52 

1 

ZERODP 

15,247T 

02427 

1 

xoc  +4 

15*2500 

55476 

1 

OCOMP 

VoEF 

15,2501 

7 7656 

1 

UNIT 

15,2502 

I4O27 

1 

STODL 

ZPRIME 

15,2503 

00027 

1 

ZPRIME 

15,2504 

77 '42 

0 

SRI 

15,2505 

I4O23 

0 

STOOL 

SINTH 

1 5,2509 

OOO33 

1 

ZPRIME  +4 

15,2507 

77  '42 

0 

SRI 

15,2510 

34O2I 

0 

STCALL 

CUSTH 

15,2511 

32543 

1 

ARCTRIG 

PUSHDOWN  00*02  * 1 6D * 1 80  * 22D-260 * 32D-36D 
XDC  = (XDl  XD2  xD3) 

YDC  = (YDl  YD2  VD3) 

ZDC  = (ZDl  ZD2  7D3) 


ZP  = UNIT(-X03  r.  XDl)  = (ZPl  ZP2  ZP3) 


SIN  (1  GO  = ZPI 


COS(IGC)  = ZP3 


REF  1 15*2512  16S03  0 STODL 

RcF  8 LAST  322  15*2518  02^25  0 

1S*251A  77T42  0 5R1 

REF  2 LAST  322  15*25lS  I4D23  0 STODL 

REF  4 LAST  322  15*2518  00027  1 

l5*25lY  65^^05  0 OMP 

REp  9 LAST  322  15*2520  J2A27  1 

REF  5 last  322  15*2521  OOO33  1 

15*252‘I  45^^05  1 OMP 

REf  10  last  322  15*2523  02423  0 

15*2524  77026  0 STADR 

REF  2 LAST  322  15,2525  43^56  1 STCALL 

REF  2 LAST  322  15,2526  32^43  1 


IgC  Y GYRO  TORQUING  ANGLE  FRACTION  OF  REV. 

XDC  +2 

SINTH  SIN(MGC)  = XD2 

ZPRIME 

POOL 

XDC  +4  PDOO  = (ZPl ) (xDa) 

ZPRTME  +4 

DSU 

XdC  MPAC  = (ZP3) (XDl ) 

COSTH  COS(MGC)  = MPAC  - PDOO 

ARCTRIG 


REF 


15,252T  26505  0 STOVL  MgC  Z GYRO  TOROUtnG  ANGLE  FRACtIOj  OF  REV. 


48895^A  YJL  SYSteM  f OR  AOC:  l^^EW  PRo'J^A'^  SH|rPA7lN  BY  eYI-ES 


L Alignment  rjjtinfS 


0041 

REF 

6 

LAST 

322 

15.2530 

30O27 

1 

ZPRIME 

0042 

15,2531 

77^141 

1 

30T 

0043 

REF 

1 

15.2532 

02‘+37 

0 

ZUC 

0044 

REF 

3 

LAS  1 

322 

15.2533 

24O2I 

1 

STOv/L 

COSTH 

0045 

REF 

7 

LAST 

323 

15 ,253A 

00027 

1 

ZPRIME 

0046 

15 ,253S 

77941 

1 

30T 

0047 

REF 

I 

15 .2536 

32431 

0 

YUC 

0048 

REF 

3 

Last 

322 

15.253  ! 

34O23 

1 

STCALL 

SI  NTH 

0049 

REF 

3 

LAST 

322 

I5.254O 

32R43 

1 

ARCTRIG 

0050 

REF 

4 

LAST 

197 

15,2541 

36S01 

0 

STCALL 

OGC 

0051 

REF 

2 

LAST 

322 

1 5 .2542 

300  51 

0 

S2 

Dec  U*  1966  (MAIN)  page  323 


USER'S  OwN  pAGF  NO.  2 E5 

COS(OGC)  = ZP  , ZUC 

SIN(OGC)  = ZP  , YDC 


X GYRO  TORQUING  ANGLE  FRACtIOm  OF  ReV 


488954A  YJU  system  EOR  AGt:  NEW  PRO<j9AM  SMePATIN  BY  EYLeS 


dec  U,  1966  (MAIN)  PAGE  32A 


L IMFLIGHI  alignment  RCjjriNPS  USER'S  OWN  PaGp  NO.  3 

Ro052  ARCr^IG  CoMPU^tS  AN  ANGLE  GIY£N  t'^E  SINe  AND  COSINE  OP  THIS  ANGLe. 

Roo53  tHe  inputs  aRe  sin/a  and  coii/it  Stored  dp  at  sinth  and  costh. 

Roosa  He  djthUt  is  the  calculaieD  AN3LL  between  +.5  and  -.5  Revolutions  and  stored  at  tHeta,  the  output  is  ai  so 
R0056  AYAILABLE  AT  MPAC. 


E5 


0057  iS»25A3 

0058  REF  “+  LAST  323  i5»25AA 

0059  15»25AS 

0060  REF  1 ■ 15»25A6 

0061  REF  1 15,25A7 


51SA5  1 ARCTrig  OLOad  ABS 

00023  0 SINTH 

50025  0 DSU  BMN 

33iA0  1 QTSNA5 

32556  0 TRIGI 


PUSHDOWN  l6D.lftD»2nD, 220-260 

AB5(SIN/A)  - S1n(A5)/A 
if  C_A5»A5)  or  (135,-135) 


0062 

0063 

REF 

H 

LAST 

323 

15.2550 

15.2551 

72595  0 

30021  1 

3L0AD 

SLl 

COSTH 

0069 

15,2552 

75326  1 

ACOS 

SIGN 

0065 

REF- 

5 

LAST 

329 

15,2553 

30023  0 

SINTH 

0066 
n A ^ 

REF 

1 

15,2559 

T fc.  L C h 

30025  0 

STORE 

THETA 

0068 

0069 

REF 

6 

LAST 

329 

15,255s 

15,255/ 

72595 

00023 

0 TRIgI 

0 

OLOAo 

SLl 

SINTH 

0070 

15, 2560 

'll  lib 

0 

ASIN 

0071 

REF- 

2 

LAST 

329 

15,2561 

I9O25 

0 

5T0DL 

THETA 

0072 

REF 

5 

LAST 

329  ■ 

15,2562 

30021 

1 

COSTH 

0073 

15,2563 

77690 

0 

BMN 

0079 

REF 

1 

15,256A 

32567 

1 

TRIG2 

0075 

15, 2565 

93545 

1 

3L0AD 

Rva 

0076 

REF 

3 

last 

32^, 

15,2566 

30O25 

0 

THETA 

0077 

15,2567 

75345 

1 TRIG2 

3L0AD 

SIGN 

0078 

REF 

i 

15,2570 

33I92 

0 

HALFDp 

0079 

REF 

7 

LAST 

329 

15,2571 

30023 

0 

SINTH 

0080 

15,2572 

77625 

0 

DSU 

0081 

REF 

LAST 

329 

15 ,2573 

30O2  5 

0 

THETA 

0082 

REF 

5 

LAST 

329 

15,2579 

00025 

0 

STORE 

THETA 

0083 

15,2575 

77616 

0 

RVQ 

(95,135)  OR  (_1^5,_a5) 

X s ARCCOS(COS)  WITH  SIGN(SIN) 

(-95,95)  OR  (135,-135) 

X = ARCSIN(SIN)  WITH  SIGN (SIN) 

IF  (135»-135) 

X = ARCSIN(SIN)  (-45*95) 

( 135,-135) 

X = .5  WITH  SrGN(SIN)  - ARCSIN(5IN) 

(+)  - (+)  OR  (-)  - (-) 


488954A 


L 

ROO8A 

ROO06 

ROO88 

Ro090 

Ro092 

Ro09A 

R0096 


0097 

0098 

0099 

0100 
0101 
0102 
0103 
OlOA 

0105 

0106 

0107 

0108 

0109 

0110 
0111 
0112 

0113 

0114 

0115 

0116 


YJL  system  FOR  AGC:  NtW  PRO'jRAM  SHePATIN  BY  eYLeS  DeC  1,.  1966  (MAIN)  PAGe  ^Z'^ 


IMFLIoHl  alignment  ROlITINeS  USER'S  OWN  PAGp  NO.  4 E5 

SMNB  TRANSFORMS  A StaS  DIRECTION  •'ROM  STABLE  MEMBER  TO  NAVIGATION  BASE  COORDINATES. 

tHe  inputs  aRe  1)  the  Star  v-CioR  ReFeRReD  to  preSeNt  Stable  MembeR  coordinates  StoreD  at  iocation  32D  of  tNe 
VAC  area.  2)  the  gimbal  angles  (Gduy,cduz,cdux)  stored  at  alternating  locations  Respective! y.  ihe  angles  are 

USUALLY  stored  AT  LOCATIONS  2,4,  AND  6 OF  THE  MarL  VAC  AREA.  THEY  CAN  BE  STOReD  AT  LOCAtIONs  20,22,  AND  24  OF 
YOUR  JOB  VAC  area.  3)  THp  BASE  aDDRlSS  OF  THE  GIMBAL  ANGLES  STORED  SP  AT  LOCATION  Si  OF  YOUR  JOB  VAC  AReA. 

the  output  IS  the  Star  vector  referred  tO  navigation  base  coordinates  Stored  at  32D  of  tHe  vac  area,  the  output 
IS  ALSO  available  AT  MPmC. 


15,257B 

43O2O 

1 

5MNB 

ITa 

CLEar 

PUSHDOWN  00,02 .04-1 0d,30D»32d-36D 

REF- 

3 

LAST 

323 

15,257Y 

OOO5I 

0 

52 

REF 

1 

15,2600 

00264 

1 

NBSMBIT 

SET  NBSMBIT  = 0 

15 ,2601 

77170 

1 

SMNBl 

AXT  , 1 

AxT  ,2 

ROTATE  X,Z,  ABOliT  Y 

15,2602 

0OO04 

0 

4 

15 ,2603 

ooooo 

1 

0 

15,260A 

77924 

1 

CALL 

REF 

1 

15,260S 

32946 

1 

AXISROT 

15  >2606 

77I7O 

1 

AXT  , 1 

AXT  ,2 

ROTATE  Y,X  ABOUT  Z 

15,2607 

00002 

0 

2 

i5,26lO 

00004 

0 

4 

15,2611 

77924 

1 

CALL 

REF 

2 

LAST 

325 

15,2612 

32946 

1 

AxlSROT 

15,2613 

77170 

1 

AXT,1 

AXT  ,2 

ROTATE  Z,Y  ABOUT  X 

15,261A 

ooooo 

1 

0 

1 5 , 2 6 1 S 

00002 

0 

2 

15,2619 

77924 

1 

CALL 

REF 

3 

LaS  1 

325 

1 5 , 2 6 1 Y 

32946 

1 

AXISROT 

15,2620 

77950 

1 

3010 

REE 

4 

LAST 

325 

15 ,2621 

OOOs  1 

0 

52 

^88954A  rJL  SrSlEM  pOR  AGC:  NEW  PROGra^I  sHEPAHN  BY  EYLES  DEC  1966  (MAIN)  PAGE  326 


L nFLIorii  ALlGNMtNT  RDJl  IMpS  USSR'S  0»vN  PAGf  NO.  5 t5 

R0U7  n3BM  IRAnSFCRMG  A STAR  DirECTi'Jm  TrOM  n^VigAIiOn  BASE  TO  STABLE  MEMBER  COORDINATES. 

Roi19  the  I'^PUTS  ARe  l)  the  star  (/eLTOR  ReFeRReD  to  NAYIGAtION  base  coordinates  Stored  at  LOrATlON  32D  of  IHe  VAC 

R0121  area.  2)  the  GIMBAL  ANGLeS  ( CDJY.CDUZ.CDJX)  STOReO  at  alternating  locations  ReSPeCtI Vei  Y.  the  angles  are 

R0123  JSUALLY  StOREO  AT  LoCArlONS  2, a,  AND  6 OF  THE  NAR<  VAC  AReA.  tHeY  CAN  BE  StOReD  At  LOCAtIONS  20.22.  AND  29  OF 

Ro125  your  job  vac  AREA.  j)  THr  BaBe  AUDReSS  OF  tHe  GtMBAL  ANGLES  STORED  SP  AT  LOCATION  Si  OF  YOUR  JOB  VAC  AReA. 

Rou"^  THe  OJtPUt  is  tHe  Star  vector  referred  to  PRlSeNt  stable  MeMBeR  coordinates  StOReO  At  location  32D  of  THe  vac 

R0129  area,  the  OjTPUT  IS  ALSO  AVAI.AsLL  AT  MPAc. 


0130 

15.262Z 

93O2O 

1 

N3SM 

ITA 

SET 

LAST 

U 1 3 1 

REF 

5 

32  5 

i 5 . 262A 

JU'^  1 

0 

S2 

0132 

REF- 

2 

LAST 

325 

15.262A 

00069 

0 

NBSMBIT 

0133 

15 .2625 

77170 

1 

N3SM2 

AXT  . 1 

AxT  .2 

0139 

15.2626 

JOUOO 

1 

0 

0135 

15.262  f 

OOOO2 

0 

2 

0136 

15,2630 

77929 

1 

CALL 

0137 

REF 

9 

Last 

325 

15,2631 

32996 

1 

AXISROT 

0138 

15.2632 

V7I7O 

1 

AXT.I 

AxT  ,2 

0139 

15.2633 

00002 

0 

2 

0190 

15.263A 

O0009 

0 

9 

0191 

15,2635 

77929 

1 

CALL 

0192 

REF 

5 

LASl 

326 

15.2636 

32996 

1 

AXISROT 

0193 

15.2637 

V7I7O 

1 

AXT.I 

AxT  .2 

0199 

15.2690 

00009 

0 

9 

0195 

15.2691 

ooooo 

1 

0 

0196 

15.2692 

77929 

1 

CALL 

0197 

REF 

6 

last 

326 

15.2693 

32996 

1 

AXISROT 

0198 

15,269A 

77950 

1 

GOTO 

0199 

REF 

6 

LASI 

326 

15,2695 

OOO5I 

0 

S2 

pushdown  00.02 .09-1 0D.30D.32D-36D 


SET  NBSMBIT  = 1 

rotate  z.y  about  X 


rotate  Y.X  about  z 


rotate  X.Z.  about  y 


488954A  y JL  SYSli-M  ^GC : ''^^W  sHEpATiN  BY  EYL^S 


qEc  1^*  1966  (mAIN)  pAGE  327 


L 

R0150 


0152 

0153 
015A 

0155 

0156 

0157 

0158 

0159 

0160 
01601 
0161 
0163 


0164 

0165 

0166 

0167 

0168 


0169 

0170 


0171 

0172 

0173 

0174 

0175 

0176 

0177 
01  771 

0178 


0179 

0180 

0181 

0182 

01821 

0183 

0185 

0186 
01861 
0187 


HELIOUt  ALlGNMtNr  RO^IINeS  USSR'S  OwN  PAGf  NO.  6 E5 

AKiSROT  IS  jTiLi2ED  BY  THE  S\1.j3  AnD  ^BSM  ROUTINES.  SEE  REMARKS  On  THESE  ROUTinES  FOr  inPUTS  AnD  OUTPUTS. 


15 .26A6 

66660 

1 

AXISROT 

XSU.I 

SLOAD# 

REF 

3 

LAST 

170 

15 ,26A7 

OOO5O 

1 

Si 

1 5 .2650 

00'006 

1 

A . 1 

i5.265l 

56034 

0 

RTB 

XaD.I 

REF 

3 

LAST 

171 

15,265<^ 

33S24 

1 

CDULOGIC 

REF 

4 

LAST 

327 

15.2653 

00050 

1 

SI 

15.265A 

OOO37 

0 

STORE 

30D 

15.2655 

7 7 ^ A6 

1 

ACCUROT 

COS 

15.2656 

O4OII 

0 

STORE 

80,1 

15,2657 

73545 

1 

OLOAO 

SIN 

15.2660 

OOO37 

0 

30D 

15 . 266  ^ 

O4O13 

1 

STORE 

100,1 

15.2662  72A03  0 OMP*  SLl 


15,2663 

77^32 

1 

32D  +4,2 

1 5 . 266A 
15,2665 
15.2  666 

40  723 
OOOll 

77732 

0 

1 

1 

PDDL* 

OMP* 

80,1 

320  +4,2 

15.2667 

54  ('52 

0 

SLl 

POOL* 

15,2670 

00013 

0 

100,1 

15,2671 

7 2403 

0 

OMP). 

SLl 

15,267^^ 

OOO45 

0 

320  +4,1 

15,2673 

7 7614 

1 

30FF 

REF 

3 LAS!  326  15,267^ 

00344 

1 

NBSMBIT 

REF 

1 15,2675 

32  710 

0 

AX  I SROT  1 

15,2676 

45'*21 

1 

3DSU 

SI  ADR 

15, 267  7 

57732 

0 

STORF 

320  +4,2 

15,2700 

77  743 

1 

OLOAO* 

15,2701 

OOOll 

1 

80,1 

15,2702 

72403 

0 

OMP* 

SLl 

15,2703 

OOO45 

0 

320  +4,1 

15.270A 

0 

OAD 

STADR 

15.2705 

73732 

0 

store 

320  +4,1 

15 .2706 

43575 

1 

YLOAD 

RvQ 

15,2707 

OOO4I 

1 

320 

15,2710 

45415 

0 

AXISROll  OAD 

SI  ADR 

1 5 , 2 7 1 1 

57732 

0 

ST  ORE 

320  +4,2 

15.2712 

77  743 

1 

OLOAD* 

15,2713 

OOOll 

1 

80.1 

SMNB  . NBSM 

IG  MG  OCi  . OG  mg  IG 


Cf,S(ANGLE) 


SlN(ANGLE) 


Poo 

S3SIN  SISIN  .S2STN  . 52S1N  SlSlN  S3SIN 


PD2 

S3C0S  SlCOS  S2Cn5  . 52C0S  SlCOS  S3COS 

MPAC 

SISIN  S2SIN  S3S1N  . S3SIN  S2SIN  SlSIN 


. P02  - MPAC 

. S2  SI  S3 


. MPAC 

. S3C0S  S2C0S  SlCOS 

. PDO  + MPAC 
. 53  S2  SI 


MPAC  + PD2 
53  SI  S2 


488954A  YJL  SVSrLM  FOR  AqC:  Nt:^^  PROGRAM  SHePAiIN  EYUlS  DeC  1b,  I966  (MAIN)  PAqE  32b 

u inFlioHt  aLh^n^ent  Routines  useR's  qi^n  pa<3f  no.  7 E5 


0188 

15,271A 

72^03 

0 

DMP* 

SLl 

MPAC 

0189 

1 5 , 27 1 S 

oooas 

0 

32D  +A , 1 

SlCOS  S2C0S  SsCfiS 

0190 

15,27lS 

A5H25 
/3  (32 

0 

DSU 

STADR 

MPAC  - PDO 

0191 

1 5 , 27 1 T 

0 

bT  ORt 

32D  +a,1 

S 1 52  S3 

01911 

15,2720 

A3S75 

1 

^LOAD 

RVQ 

0192 

15,2721 

OOOaI 

1 

32D 

R0194  CALC'oA  compote^  the  ODU  DRlVl'15  ANCjLeS  REOUIReD  TO  BRING  tHr  STABLe  MeMBeR  INTO  THe  DrSiReD  ORIENTATION. 

Roi96  THE  INPLtS  aRe  1)  the  navigation  base  coordinates  ReFeRReI^  to  any  coordinate  system.  TNe  three  HALF-UNtt 

R0198  vectors  are  STORED  AT  XNB,yH3i  AND  ZNti.  2)  THE  uESIRed  STABLE  MEMBER  COORDINATES  REFERRED  TO  THe  SAme 
R0200  coordinate  system  are  StOReIO  at  XSM,  ysm,  and  zsm. 

R0201  tRe  ojtRUts  are  the  three  cdj  driving  angles  and  are  Stored  sp  at  thetad*  tHrtad  +i*  ant.  tHrtad  +2* 


0203 

020a  ref  1 

0205  REF  1 

0206 

0207 

0208  REF  1 

0209  REF  7 LAST  326 

0210  REF  6 last  32A 


15.2722  A7S75  0 

15.2723  02AZ3  0 

15,272A  O2AO7  0 

15,272S  A1A56  0 

15,2720  AAOAl  1 

15,272Y  02^37  0 

15.2730  00051  0 

15.2731  2A021  1 


CALCGA  VLOAD  VXV 
XNB 
YSM 

JNIT  PUSH 

OOT  IIA 
ZNB 
S2 

STOVE  COSTH 


0211 

1S,2732 

30001 

0 

0212 

15,2733 

T7SA1 

1 

0213 

REF 

1 

15,273A 

32H31 

0 

021A 

REF 

8 

LAST 

32A 

15,2735 

3a023 

1 

0215 

REF 

A 

LAST 

323 

15,273s 

325A3 

1 

0216 

REF 

5 

LAST 

323 

15,273T 

26S01 

1 

0217 

15,27A0 

OQOOl 

0 

0 

001 

YnB 

STCALL  SINTH 

ARCTRIG 
STOVL  OCjC 
0 


0218 

0219 

REF 

2 

LAST 

328 

15,27Al 

15,27A2 

50435 

32^23 

0 

0 

0220 

REF 

2 

LAST 

328 

15 ,27A3 

32407 

0 

0221 

15,2  7A‘'+ 

77  752 

1 

0222 

REF 

7 

LAST 

328 

15,2745 

24O2I 

1 

0223 

REF 

3 

LAST 

328 

15,274s 

32407 

0 

022A 

15,274  ! 

77S4I 

1 

0225 

REF 

D -r  r 

3 

LAST 

328 

15,2750 

32^23 

0 

0226 

Kcr 

9 

LAST 

328 

15,2751 

34O23 

1 

0227 

REF 

5 

LAST 

328 

15,2752 

325A3 

1 

0228 

REF 

2 

LAST 

322 

15,2753 

32505 

0 

0229 

15,2  754 

0 

0230 

REF 

1 

15,2753 

33160 

0 

023 1 

1 5 ,275s 

77S44 

1 

0232 

REF 

1 

15,2757 

32  776 

0 

VXV 

DOT 

XNB 

YSM 

SLl 

STOVL 

COSTH 

YSM 

DOT 

XNB 

STCALL 

SI  NTH 

ARCTRIG 

STORE 

MGC 

ABS 

DSU 

3PL 

• 1 66 • * • 

GIMLOCKI 


PUSHDOWN  00-0A.l6D,l8D 
XNB  = OGA  (OUTER  GIMBAL  AXIS) 
YSM  = IGA  (INNER  GIMBAL  AXIS) 
PDO  = unit (OGA  y IGA)  : MGA 


COS(OG)  = MGA  . ZNB 


SIN(OG)  = MGA  , YNB 


PROVISION  FOR  Mr  ANgLE  OF  90  DEGREES 


COS(MG)  5 IGA  , (MGA  X OGA) 


SIN (MG)  = IGA  . OGA 


IF  ANGLE  greater  THaN  60  DEGREES 


48895AA 


L 

0233 

0234 

0235 

0236 

0237 

0238 

0239 

0240 

0241 

0242 

0243 

0244 

0245 

0246 


0247 
02472 
02474 

0248 

0249 

0250 

0251 

0252 


YJL  SYSIEH  for  AGC:  new  program  SMePATIN  by  EYLES  dec  1,,  1966  (MAIN)  PAGE  329 


IMFLIoHT  alignment  RjJriNES  USER'S  OWN  PAGF  NO.  « E5 

15.276°  50A75  0 CALCGAl  VLOAD  DOT 

15.2761  02A15  0 ZSM 

15.2762  OOOOl  0 0 

15.2763  24021  1 STOVL  COSTH  COSdG)  r ZSM  . MGA 

15.2764  02401  0 XSM 


15,276i>  45441  1 DOT  STAOR 

REF  10  last  328  15,2766  43T54  0 STCAlL  SINTh  5lN(lG)  = XSM  . MGA 


REF 

6 

LASl 

328 

15,2767 

32543 

1 

ARCTRIG 

REF- 

1 

LASI 

322 

15,277° 

26503 

0 

STOVL 

IGC 

REF 

6 

LAST 

328 

15,2771 

02501 

1 

OGC 

15,2772 

77634 

0 

RTB 

REF 

1 

15,2773 

33573 

0 

V1ST025 

REF- 

b 

LAST 

282 

15,2774 

34401 

0 

STCALL 

THETAD 

REF 

b 

LASl 

328 

15,2^7^ 

OOO5 1 

0 

S2 

15,2776 

Tint 

1 

GlMLOCKl  EXIT 

REF 

1 

15,2777 

0 6O20 

0 

TC 

FlAGiUP 

SET  GiMBAL  LOCK  FLAG 

15,300° 

J0200 

0 

OCT 

200 

REF 

2b 

LASl 

300 

15,3001 

0 4744 

1 

TC 

ALARM 

1 5 ,3002 

00401 

1 

OCT 

00401 

REF 

6 

LAST 

213 

15,3003 

0 6l03 

0 

TC 

INTPRET 

REF 

i 

15,3004 

15,3006 

77650 
32  760 

1 

1 

3010 

CALCGAl 

REF  1 

REF  8 last  328 
REF  14  LAST  322 


488954a  YJL  SI^SieM  ^ OR  A'jC  : MtW  Pro‘^^A'1  S^ePatIM  BY  E^LtS 


Dec  n*  i966  (main)  paGl  33o 


L nFLIiHl  ALIoNMeNT  RDJTINkS  USlR»S  own  PAGii  NO.  9 E5 

R0253  AKISGEN  COMPUTES  THe  COORDINATES  OR  ONE  COORDINATE  SYSTEM  ReFeRReD  TO  ANOtHeR  COORDINATf  SYSTEM. 


Ro255  THe  inputs  ARe  l)  T^E  StaRI  >/eOtOR  ReFeRReD  TO  COORDINATE  SYSTEM  A StOReD  At  StAKAD.  ,)  THE  STAR2  VeCjOR 
R0257  REFERREl  to  COORuiNATE  SYSTEM  A SIORed  AT  STARAq  +6.  3)  ThF  STARI  VECTOR  REFERRED  TO  COORDINATE  SYSTEM  B STORED 

R0259  at  LOCAllON  o OF  THe  VAC  AREA.  A)  THe  STaR^  VeCtOR  RfEeRReD  TO  COORDINATE  SYSTEM  B StORE^)  AT  LOCATION  12^  OF 

R0261  THE  VAC  AREA. 

R0262  the  OJTPOt  CeFINeS  COORDINATE  SVSIeM  A ReFeRReO  TO  COORDINATE  SYSTEM  B,  tHe  THRee  HALF-iiNIT  VeCTORS  ARe  StOReD 

R0264  AT  LOCATIONS  XDCt  XDC  +6,  XDC  +12D,  AND  STArAD*  .^IArAd  +6,  sTArAD  +12D. 


0265 

0266  REf 


15.3006  66S7O  0 AXISOEN  AXt  , 1 SSP  PUSHDOWN  00-2  20 , 24D-28D , 30D 

15.3007  02452  0 STArAd  +6 


0267  REF  5 LAS!  327 

0268  REF  2 LAST  330 


15,3010  00051  0 Si 

15,3UlI  02436  1 STARAD  -6 


0269 

0270  REF  3 LAST  330 

0271  REF  LAST  330 

0272 

0273  REF  5 LAST  330 

02731 

0274  REF  6 LASi  330 

0275 

0276  REF  7 LAST  330 

0277  REF  a LAST  330 


15 ,30l<i 

15.3013 

15.3014 

15.3015 

15.3016 

15.3017 
15,3020 


15,3021 

16,302^ 

15,3023 


46(73  0 
02461  0 
02467  0 
77656  1 
06467  1 

77(73  1 

02461  0 


AXISGENl  VLOADit  VXV» 

STARAD  +12D,1 
STARAD  +18D,1 

UNIT 

store  SIARAD  +18D,1 
VLOAD* 

SIARAD  +12D,1 


06D 


12D 


UA  = Si 

STARAD  +r;OD  UB  = SI 

VA  = UNITtSl  X S2) 

STARAD  +r6D  VB  = UNITISI  X S2) 


76433  1 
02467  0 
06475  1 


VXV*  VSLl 

STARAD  +18D,1  18D  WA  = UA  X VA 

STORE  STARAD  +24D,1  STARAD  +120  WB  = UB  X VB 


0278 

0279  REf 


15.3024  77(00  0 TIX,1 

15.3025  33O12  1 AxISgENI 


0283 

15, 

0284 

15» 

0285 

REF 

6 LAST 

330 

15, 

0286 

15, 

0287 

15, 

0288 

15, 

0289 

REF 

9 LAST 

329 

15, 

0290 

15, 

0291 

0292 

15, 

15, 

0293 

0294 


3020  66160  0 

302 ( JOOO6  1 

3030  00036  1 

3031  56370  0 


AXC,l 


SXA,l 

6 

3UD 


303^ 

3033 

3034 


00022  1 
00051  0 
00006  1 


3035  56374  1 

3036  J0O06  1 

303(  00052  0 

3040  00002  0 

3041  76(20  0 

3042  00036  1 

3043  OOOOl  0 

3044  52(57  0 


AXT,1  SSP 

18D 

51 
6 

AXT, 2 SSP 
6 

52 
2 

AXISGEN2  XCHX,1  VLOADx 
30D 
0,1 

VXSC*  PDVL« 


Xl=-6  X2=+6 
J= (UA) (UBl) 


Xl=-6  X2=+4 
J= (UA) (UB2) 


Xl=-6  X2=+2 
J= (JA) (UB3) 


^88954A 

YJL 

system  for  agc: 

New  progriim  sHePatin 

BY  eYLfS 

Dec 

13,  1966  (MAIN)  PAGE  33l 

L 

IMFLiiHl  alignment 

ROJ  TINfS 

user*s  Own  page  no.  lo 

E5 

0295 

K:il- 

9 LAST 

330 

1 5 *3045 

75324  0 

STARAD  +6,2 

0296 

15  »304<> 

00O07  0 

6,1 

0297 

15  i3047 

77^57  1 

v'XSC# 

0298 

REF 

10  LAST 

331 

1 s 1 305O 

7 5 3 1 b 1 

SIARAD  +12D,2 

0299 

15.3051 

30031  0 

STOVLiT 

24D 

K=  (VA)  (VBl ) 

J= (VA) (VB2) 

J= (vA)  (VB3) 

0300 

15,3052 

J0U15  0 . 

12D,  1 

0301 

15,3053 

53357  0 

YXSCTt 

VAD 

0302 

REF 

11  LAST 

331 

15 ,305A 

75310  1 

STARAD  +lbD,2 

L= (WA) (WBl) 

J= (WA) (WB2) 

J=  (.mA)  (WB3) 

0303 

1 5 , 30  5S 

76‘*55  1 

V AD 

VSLl 

0304 

15,3059 

00031  0 

24D 

0305 

15,3057 

77^20  1 

XCHX.l 

0306 

15,3060 

OOO36  1 

30D 

0307 

REF 

11  LAST 

322 

15,3061 

06445  1 

STORE 

XDC  +18D,1 

XDC  = L+J+K 

YnC  = L+J+K 

ZDC  = L+J+K 

0308 

15,3062 

77  Too  0 

I IX  , 1 

0309 

REf 

1 

15,3063 

33O64  0 

Ax1SgEN3 

0310 

15,3064 

77  TOa  1 

AXISGEN3  TIX,2 

0311 

REF 

1 

15,3065 

331*41  1 

AX1SGEN2 

0312 

15,3069 

77T75  1 

YLOAD 

0313 

ref 

12  last 

331 

15,3067 

02^23  0 

XDC 

0314 

REF 

12  LAST 

331 

1 5 ,3070 

26^45  0 

STOVL 

ST  ARAD 

0315 

REF 

2 LAST 

323 

15,3071 

02‘*31  0 

YDC 

0316 

REF 

13  LAST 

331 

15 ,307^ 

26^53  1 

STOVL 

STARAD  +6 

0317 

REF 

2 LAST 

323 

15,3073 

02A37  0 

ZDC 

0318 

REF 

14  LAST 

331 

15 ,307A 

02A61  0 

STORE 

STARAD  +I2D 

0319  15»3075  /7616  0 ^VO 


488954A 

YJL  system  FOR  AGC ! NeW  PROGRAM 

sHtPATiN  BY 

eYLes 

Dec  U,  1966  (MAIN) 

page  332 

L 

R0418 

IMFLIGHI  alignment  R0UI INFS 

TRANSPSf  COMPUTES  THe  TRANSPOSE 

OT  A matrix 

(transpose  = 

inverse 

OF 

USER'S  OWN  PAGE  NO.  H 

orthogonal  TRANSFORMATION). 

E5 

R0‘*f20 

R0422 

tHe  input  is  a MATRU  DeFININS 

STARAD  +17D. 

CqURDINATE  system  a WI7H 

ReSPeCt 

TO 

coordinate  SYS'ieM  B AxoReD  IN  StARaD 

thru 

R0423 

R0425 

tHe  output  is  a matrix  DlFINirs 

STARAD  +WD. 

CUORDINATE 

system  b with 

RESPeCt 

TO 

coordinate  system  a Stored  in  starad 

thru 

0426 

REF 

15 

LAST 

331 

15,3076 

53'A47 

0427 

REF 

16 

LAST 

332 

15*3077 

53'‘+53 

0428 

RHF 

17 

lasi 

332 

15*3100 

53*^47 

TSANSP5E  3XCH  StARAD  +2  PUSHDOWN  - NONE 

DXCH  STARAD  +6 

DXCH  STARAD  +2 


0429 

0430 

0431 


REF  lb  LAST  332  Is, 3101  S3'‘*51  1 OXCH  STARAD  +4 

REF  19  LAST  332  15,3102  53*‘*bl  1 OXCH  STARAD  +12D 

REf  20  last  332  IS, 3103  S3'‘tSl  1 OXCH  STARAD  +4 


0432 

REF 

21 

LAST 

332 

15 ,310** 

53'S57 

1 

0433 

REF 

22 

LAST 

332 

15*3105 

53'‘*63 

0 

0434 

0435 

ref 

REF 

23 

1 

LAST 

332 

15.3106 

15.3107 

53  •‘*57 

1 6115 

1 

0 

DXCH  STARAD  +10D 
OXCH  STARAD  +14D 
OXCH  STARAD  +100 
TCF  DANZIG 


R0436 

R0438 

smd/eref  transforms  stablf  Member  desired  coordinates  from 
earth  RlFeRfNCE  coordinates  TD  align  the  stable  member  to 

Stable  member  desired  (desirfd  = present  herd 
specified  GIMbAL  angles. 

TO 

R0440 

R0442 

the  inputs  ARe  1)  the  matrix  DeI^IMING  the  earth  reference 
CDORDIiNaTE  frame.  2)  SAME  AS  2)  A'^D  3)  OF  SMNB. 

coordinate  frame  with  Respect  to  tHl  navigation 

base 

R0A43 

R0445 

the  djtput  is  the  Desired  stable  member  coordinates  with  respect  to  the  earth  reference  coordinate  framf. 

THREE  Ul.lr  vectors  ARE  STORtD  AT  ^SM,  YSM,  AND  ZSM. 

the 

0446 

0447 

0448 

0449 

0450 

0451 

0452 

0453 

0454 

0455 

0456 

0457 

0458 

0459 

0460 


R-F 

1 

REF 

3 

LAST 

170 

REF 

24 

LAST 

332 

REF 

3 r c 

15 

last 

329 

REF  4 LAST  332 


REF 

25 

LAST 

332 

REF 

4 

LAST 

328 

REF 

1 

15.3110 

15. 3111 

15.3112 

15.3113 
15,31  lA 

15.3115 

15.3116 

15.3117 

15.3120 

15.3121 

15.3122 

15.3123 
15,312A 

15.3125 

15.3126 


f7‘^2Q  1 
OOD14  1 
33150  0 
341*41  0 
32576  1 
76521  0 
02^45  0 
26^01  0 
33146  1 


SMD/LREF  ITA  VLOAD 

12D 
XUNIT 

STCALL  32D 
SMNB 
11XV  VSLl 

STARAD 
STOVL  XSM 

YUNIT 


PUSHDOWN  00,02,04-1 0D,30D,32D-36D 


STABLE  MEMBER  TO  NAVIGATION  BASE 
THEN  TO  EARTH  RfFERENCE 


34041  O 
32576  1 
76521  0 

02A45  0 

26^07  0 

33I44  0 


STCALL 

32D 

smnb 

STABLE  MEMBER 

TO  navigation  BASF 

MXV 

VSLl 

Sr  ARAD 

THEN  TO  EARTH 

RfFERfNCE 

STOVL 

YSM 

ZUNIT 

0461 


15*3127  341^41  0 


STCALL  32D 


488954A 


L 

0962 

0463 

0464 

0465 

0466 

0467 
C0467 

0468 
C0468 

0469 
C0469 

0470 
C0470 

0471 
C0471 

0472 
C0472 

0473 
C0473 

0474 
C0474 

0475 
C0475 

0476 
C0476 


yjL  system  for  agc:  new  prooram  smepatin  by  eylEs 


DEc  l3*  1966  (MAIN)  pAQE  333 


nFLISHi  alignment  ROJTINeS  USER'S  OWN  PAGf  NO.  12  E5 

REF  5 last  332  15.3130  32^76  1 SMNB  STABLE  MEMBER  Tn  nAvIGATiOn  bAsF 

15.3131  76S21  0 MXV  VSLl 

REF  26  last  332  15.313-2  32445  0 STARAO  THEN  TO  EARTH  RfFERFNCE 

REF  2 LAST  329  15.3133  36^15  1 STCALL  ZSM 

15.313A  OOOl-.  1 120 

15.3135  57277  1 270DEG  2DEC  -.25 

15.3136  77277  0 


15.3132 

15.3140 

15.3141 
15.314Z 

15.3143 

15.3144 

15.3145 

15.3146 

15.3142 

15.3150 

15.3151 

15.3152 

15.3153 
15.315“+ 

15.3155 

15.3156 
15.3152 
15.3160 


35520  0 QTSN45  2DEC  .1768 

26075  1 

20000  0 HALFDP  2DEC  .5 

30O00  1 

OOOOO  1 ZJNIT  2DEC  0 

30000  1 

30000  1 YJNir  2DEC  0 

30000  1 

20000  0 XJNIT  2DFC  0.5 

30000  1 

OOOOO  1 ZERODP  2DEC  0 

30000  1 

30000  1 2DEC  0 

30000  1 

30000  1 2DEC  0 

30000  1 

35352  1 .166...  20EC  .1666666667 

25253  1 


488954A  YJL  SYSieM  FOR  AGC  : .New  PRO^RA'I  S^ePatIN  3Y  eYLeS 


Dec  1^,  I966  (MAIN)  PaGe  33A 


L inflight  alignment  ROOTINFS  USER'S  OWN  PaGf  no*  13 

P0A77  AOTNB  CC'NVE^rS  tHe  AOT  RetIGLe  rotation  angle  (YROr  AND  SKOT)  AND 

Po478  tte  Detent  getting  td  a half  jnit  star  vector  referred  to  the 

R0479  navigation  BASE  FOR  NOiN-FLIGHt  ALTGNMeNT  MODeS 
R0480 

R0481  THE  INPUTS  ARE 
R0482 

Ro483  y Ret.  line  ratation  S(YRor)  stored  in  loc  3 of  the  mark  vac  area 
R0484  spiral  RcTATTON  ANoLe  S(S:?3t)  ^TOReD  IN  LQC  5 OF  MaRK  VAC  AREA 

Ro485  angle  of  Center  of  fieid  o-  view  sieit/)  sioRed  in  loc  9 of  mark  vac 

R0486  ADT  ASZIVUtH  ANGLE  S(DeT>  STORED  IN  LOC  8 OF  MARK  VAC  AREA 

R0487  He  complement  OF  BASE  ADOReSS  OF  MARK  VAC  IS  STOReD  AT  Xi 

R04671  compensation  FOR  FIELD  oF  VIEW  TILT  IN  LoC  loD 

R04872  the  A30NE  STORAGE  IS  CONE  BY  AOTM^RK 


the  output  is  a half 

AT  32D  and  available 


REF  4 LAST  327 


R0488 
R0489 
R0490 
R0491 

0492 

0493 

04931 

04932 

0494 

0495 

0496 

0497 
04971 

0498 

0499 

0500 

0501 

0502  REF 

0503 

0504 

0505  REF 

0506  REF 

0507 

0508 

0509  REF 

0510 

0511  REF 

0512 

0513  REF 

0514  REF 

0515 

0516 

0517 

0518 

0519  REF 

0520 


5 LAST  334 

1 

1 

1 

2 LAST  334 

2 LAST  322 
1 

1 


UNIT  STAR 
IN  VaC  on 

15.3161 

15.3162 

15.3163 

15.3164 
15,3163 
15,3166 
15,316T 

15.3170 

15.3171 

15.3172 

15.3173 

15.3174 
15,3173 

15.3176 

15.3177 

15.3200 

15.3201 

15.3202 

15.3203 

15.3204 

15,3203 

15.3206 

15.3207 

15.3210 

15.3211 

15.3212 

15.3213 
15,32H 

15.3215 

15.3216 

15.3217 
15,3220 


vector  in  nb  coordinates  Stored 
REIURN  to  the  calling  program 


66601  0 AOTNB 
OOOOl  0 
00013  0 
413A2  1 

47133  0 

00004  0 
33324  1 
00017  1 
41415  1 
65346  0 
41356  1 

47133  0 
00006  1 
33324  1 
OOO2I  1 
52054  1 
33203  0 
33213  1 

53I45  1 5ISZ 
00017  1 

33210  1 

T7650  1 

33213  1 

52I45  0 YISZ 

33I52  1 
33220  1 

45345  1 SCOMP 
00017  1 
00021  1 
77621  1 

33305  1 
41405  0 S30T 


SETPD 

SLOAD* 

SRI 

0 

10D,1 

PUSH 

SI  RAn# 

RTH 

3,1 

CDULOGIC 
STORE  I4D 
OAD  PUSH 

COS  PDDL 


SIN 

SLOAD" 

PUSH 

RIB 

5,1 

STORE 

3ZE 

CDUl  OG I C 
16D 

goto 

OLOAD 

5 1 SZ 
SlOMP 

BZE 

14D 

YISZ 

GOT  0 

OLOAD 

SCOMP 

GOTO 

OLOAD 

ZERODP 

sgot 

DSU 

3DSJ 

14D 

16D 

OMP 

NE ARONE 
PUSH 

AOT  FOV  TILT  COMPENSATION  ANGLE 
RESCALE  TILT  TO  2P1 


STORE  uncompensated  YROT  FOR  S COMP 
YROT  NOW  corrected  fOR  TILT 
1/2  COS(YROT)  Pr,  0-1 
1/2  SIN(YROT)  PR  2-3 


STORE  S IP  S AND  Y ARE  ZERO,  S=o 

s not  zero 

S = 0 


IS  Y ZERO 


Y = 0 


Y-S 

S=360- (Y-S) 


E5 


^e8954A  YJL  system  FOR  AGC ; iMEw  PRO^iRAM  SHePATIIM  BY  EYLES 


dec  I966  (MAIN)  PAGE  335 


L 

0521 

0522 

0523 
052A 

0525 

0526 

0527 

0528 

0529 

0530 

0531 

0532 

0533 
053A 

0535 

0536 

0537 

0538 

0539 
OSAO 
05A1 
05A2 

05A3 

05AA 

05A5 

05A6 

05A7 

05A8 

05A9 

0550 

0551 

0552 

0553 
055A 


0555 

0556 

0557 

0558 

0559 

0560 

0561 

0562 

0563 


i'iflIghi  Alignment  rouiinfS 


USER'S  OwN  pAGf  NO,  lA 


E5 


REF  1 


REF  6 LASl  33A 


REF  7 LASl  335 


15i322l 

33303  1 

OPl/12 

15,3222 

S53A6  0 

COS 

PDDL 

15,3223 

A1556  1 

SIN 

PUSH 

1 5 , 322A 

72A05  0 

3MP 

SL 1 

15,3225 

DOOOl  0 

0 

15,3226 

IAOOI  0 

STOOL 

0 

15,3227 

0OO03  1 

2 

15,3230 

A5AO5  1 

jMP 

STADR 

15,323! 

7 7 7 7A  0 

STORE 

2 

15,3232 

A7133  0 

SLOAU* 

RTB 

15,3233 

30012  1 

90,1 

15,323A 

3352A  1 

ClDULOGIC 

15,3235 

73AO6  1 

PUSH 

SIN 

15,3236 

71R25  0 

POOL 

CuS 

15,3237 

A1206  0 

PUSH 

DMP 

15,32A0 

30001  0 

0 

1 5 , 32 A 1 

A 1 32 5 0 

PDDL 

DMP 

15,32A2 

30O05  1 

A 

1 5 , 3 2 A 3 

30O07  0 

6 

15,32AA 

72A15  1 

DAD 

SLl 

15,32A5 

77626  0 

STADR 

1 5 , 32A6 

537 36  0 

STODL 

32D 

15,32A7 

77605  1 

DMP 

15,3250 

30O05  1 

A 

15,3251 

IAO05  1 

STODL 

A 

15,3252 

A A 2 0 5 0 

DMP 

BDSU 

15,3253 

OOOOl  0 

0 

15,325A 

66606  1 

PUSH 

SLOAD^L 

15,3255 

OOOll  1 

8D,1 

15,3256 

A1A3A  1 

RTB 

PUSH 

15,325  7 

3352A  1 

COULOGIC 

15,3260 

553A6  0 

COS 

PDDL 

15,3261 

77756  0 

SIN 

15,3262 

30O01  0 

store 

0 

15,3263 

65205  0 

DMP 

PDDL 

15,326A 

30005  1 

A 

15,3265 

30007  0 

6 

15,3266 

A32O5  1 

DMP 

DAD 

15,3267 

30'J03  1 

2 

15,3270 

77712  0 

SL2 

1 5,32 7 1 

1A0a3  0 

STODL 

3AD 

15,3272 

A5A05  1 

DMP 

SI  ADR 

15,3273 

63732  1 

STODL 

36D 

488954A  YJL  SYSieM  f-Ok  AGC:  NeI^  PRO^i^AY  Sl^EPA^I^  3Y  eYLeS 
L nPLIGH)  ALjGkMeNT  ROujINeS 


056A 

I5.327A 

77605 

1 

OMP 

0565 

15*3275 

52‘*2 1 

1 

30SU 

0566 

15,3275 

00OA5 

0 

0567 

1 5 * 32  7 Y 

24DA5 

0 

STO\/L 

0568 

15,3300 

. dooai 

1 

0569 

15,3301 

776I6 

0 

RVQ 

0570 

15,3302 

02525 

1 

OPl/12 

2DEC 

C0570 

15,3303 

12525 

0 

NEARONE 

0571 

1 5 , 330A 

37  m 

1 

20EC 

C0571 

15,3305 

37  in 

1 

Dec  1:4,  1966  (MAIN)  PAGE  336 


USeR’5  0*YN  PaGp  no,  lb 


E5 


SL2 

360 

360 

320 


.0833333333 


999999999 
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L 

P0572 

R0573 

R057A 

R0575 

R0576 

R0577 

R0578 

R0B79 

R05791 

R0580 

R0581 

R0582 

R0583 

R0B8A 

0585 

0586 

0587 

0588 

0589 

0590 
05901 

0591 

0592 

0593 
059A 

0595 

0596 

0597 

0598 

0599 

0600 

0601 

0602 

0603 

060A 

0605 

0606 

0607 

0608 

0609 

0610 
0611 
0612 
0613 
061A 

0615 

0616 

0617 

0618 


nELIGHi  alignment  ROOTINFS  USER'S  OnN  PAGF  no.  1«>  E5 

AOISM  CALCULAIES  A HALF  UNIT  STAR  VECTOR  IN  STABLE  MEMBER  COORDINATES 
FROM  TWC  planes  CONTAINING  THE  ST^'R  REFERRED  TO  N3 

THE  INPUTS  ARE 


AOT  AZIMUTH  AND  ELEVATION  SIjReD  IN  8D  AND  9D  RESP,  OF  vAC  AREA 
CDJY,  CDUZ  AND  CDUX  FROM  A ymaRIF  STORED  AT  3.  5.  AND  7 oF  VAC  AREA 
CDUY,  CDU2  and  CDUX  FROM  A XMARF-.  STORED  AT  2*  A,  AND  6 uF  VAC  AREA 

compei  sation  for  field  of  viE-v  Stored  at  iod  of  vac  area 
THE  base  address  OF  THE  CDUS  IS  SlORED  AT  LOCATION  Si 


THE  OjTPUT  is  a STAR 
AND  AvAlLELD  IN  MPAC 


REF  7 last  330 


REF  8 LAST  335 


REF  9 LAST  337 


vector  R 

eFerked 

TO 

Stable 

member  at 

LOC  32D 

15,3306 

40220 

0 

AOTSM 

STO 

SETPD 

15,3307 

00035 

1 

29D 

15,3310 

OOUOl 

0 

0 

15,3311 

66740 

1 

LXC,1 

sload* 

1 5 , 33  1 2 

OOO5O 

1 

Si 

15,3313 

oooii 

1 

80,1 

15,33H 

77  742 

0 

SRI 

15,3315 

71406 

0 

PUSH 

CoS 

15,3316 

73525 

1 

PDDL 

sin 

15,3317 

66606 

1 

PUSH 

SLOADit 

15,3320 

0OO07 

0 

6,1 

15,3321 

41439 

1 

RTB 

PUSH 

15,3322 

33524 

1 

CDULOGIC 

15,3323 

65-546 

0 

COS 

PDDL 

15,332A 

41556 

1 

SIN 

PUSH 

15,3325 

65205 

0 

OMP 

PDDL 

15 ,3326 

OOOOl 

0 

0 

15,3327 

65205 

0 

OMP 

PDDL 

15,3330 

OOUO3 

1 

2 

15,3331 

0OUO5 

1 

4 

15,3332 

65205 

0 

OMP 

PDDL 

15, 3333 

oooo  1 

0 

0 

15,333A 

OOO05 

1 

4 

15,3335 

41405 

0 

OMP 

PUSH 

15,3330 

47I33 

0 

SLOAD* 

RTB 

15,333  7 

OOUIO 

0 

7,1 

15,3340 

33524 

1 

CDULOGIC 

15,3341 

73406 

1 

PUSH 

SIN 

15,3342 

71525 

0 

POOL 

COS 

15,3343 

41206 

0 

PUSH 

DMP 

15,3344 

OOOOl 

0 

0 

15,3345 

77  752 

1 

SLl 

15,3346 

I4O4I 

1 

5T0DL 

32D 

15,3347 

72405 

0 

OMP 

SLl 

15,3350 

00OO3 

1 

2 

SET  UP  RETURN 


COMPLEMENT  OF  Cr>U  AdR  FOR  XMARK 
LOAD  apparent  T t LT  ANGLE, ONES  COMP 
RESCALE  TILT  TO  2PI 

1/2  COS(TA)  0-1 
1/2  SIN(TA)  2-3 
LOAD  AZIMUTH,  2c  COMP 


1/2  C05(AZ)  A-6 

1/2  SIN(AZ)  6-7 


LOAD  ELEVATION,  2S  COMP 


1/2  SIN(ELV)  U-15 
1/2  COS(ElV)  lf,-17 

X component  of  x-PLANE  VECTOR 

UP  16-17 


488954A  YJL  SYSIENi  F E)r  Agc:  PrOIorAvi  sHErATIN  3Y  EYlE.s 


OEc  lA»  1966  pAGE  33b 


L iNiFLIbHT  ALjOhgMENT  RCiJllMpS  USER'S  OWN  PAGp  NO.  17  E5 

0619  15»335l  65‘^76  1 3COMP  POOL  X COMPOfvjEr^T  Op  v-PLA|mE  VECTOk  16-17 


0620 

15.3352 

00017 

1 

06201 

15.3353 

72405 

0 

0621 

15.3354 

0OO07 

0 

0622 

15.3355 

72‘+21 

0 

0623 

15.3356 

00015 

0 

0624 

15.3357 

I4O43 

0 

0625 

15.3360 

00017 

1 

0626 

15 .3361 

72405 

0 

0627 

15.3362 

00013 

0 

0628 

15.3363 

72415 

1 

0629 

1 5 .3364 

OOO 1 1 

1 

lAD 

3MP  5L1 

6 

3DSU  SLl 

UO 

STOOL  3AD  Y component  OF  y-PLANE  VEC 

lAD 

OMP  SLl 

100 

OAD  SLl 

80 


0630 

0631 


16.3365  77676  0 OCOMP 

16.3366  1^045  0 STOOL  360  Z COMPONENT  OF  x-PLANE  VECTOR 


0632 

0633 
063A 

0635 

0636 

0637 


15.336?  00017  1 

15.3370  72^05  0 

15.3371  OOOll  1 

15.3372  72A15  1 

15.3373  00013  0 

15.337A  A1525  0 


UD 

OMP  SLl 

80 

OAD  SLl 

100 

5D0L  OMP 


Y COMPONENT  OF  V-PLANE  VECTOR  18-19 


0638 

0639 

0640 

0641 

0642 


15.3375  00017  1 1^0 

15.3376  00015  0 120 

15.3377  72^25  1 OSU  SLl 

15.3400  00007  0 6 

15.3401  34O25  1 STCALL  200 


Z COMPONENT  OF  v-PLANE  VECTOR  20-21 


0643  REF 

0644 


15.3402  32622  0 NBSM  TRANSFORM  TO  SM 

15.3403  24013  0 STOVL  loO  STORE  X-PLAVF  VpCTOR  (SM) 


0645 

0646 

064  7 REF 
06471 


8 LAS(  337 


i5.340A  00021  1 

15.3405  52120  0 

15.3406  00050  1 

15.3407  OOOOl  0 


160  LOAD  Y-PLANE  VErTOR  (NB) 

XCHX.l  INCR.I 

Si  increment  COU  Base  AOR  to  YMARK  cdus 

1 


06472 

06473  REF  9 LASi 

06474 

06475  REF  2 LAST 

06476 

06477 

06478 

06479 
0648 
06481 


15.3410  77720  1 

338  15.3411  00050  1 

15.3412  34O4I  0 

338  15.3413  32622  0 

15.341A  76435  1 

15.3415  00013  0 

15.3416  53476  1 

15.3417  30O4I  1 

15.3420  77650  1 

15.3421  OOO35  1 


XCHX.l  PUT  IT  BACK  IN  4l 

SI 

STCALL  320 

NBSM  GET  Y-PLANE  IN  SM 

vxv  vsLi  yp  Cross  xp 

lOD 

VCOMP  UNIT  UNIT(XP  CROSS  YP) 

STORE  320  star  VECTOR  IN  pM  COORDINATES 

oOTO 

290  RETURN 


‘^88954A 


L 

P06A9 

R0651 

R0653 

R0655 

R0657 

R0658 

R0660 

R0661 

0662 

0663 

066A 

0665 

0666 

0667 

0668 

0669 

0670 

0671 

0672 

0673 
067A 

0675 

0676 

0677 

0678 

0679 

0680 
0681 
0682 


YJL  system  tor  agc:  imew  pro^ravi  sHepatin  by  eyles 
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INIFlIoHt  ALiGNMENT  RDjTlMpS  USER'S  OwN  pAGF  NO,  18  E5 

THe  following  ROUtIN-  TA^eS  a HALF  UNIT  TARGeT  VeCtoR  ReFeRReD  TO  NAV  BASE  COORDINATE^  AND  FINDS  BOTH 
GIMBAL  orientations  AT  WHICH  fR-  RR  MIGHT  SIGHT  tHE  TARGET.  tHe  GIMBAL  ANGLeS  CORReSPONh I NG  TO  THe  PReSeNT  MODe 

are  left  in  MoDeA  and  those  /JHT:H  would  Be  used  after  a ReMODe  in  MODeB.  this  routine  AsSUMeS  mode  1 is'trunnion 

ANGLE  Ll.SG  iHmN  90  DeGS  In  A3S  YA^-Ue  wItH  ARBITRARY  SHAFT,  WITH  A CORRESPONDING  DEFINITION  FOR  MODE  z,  RODE 

seleGtiln  a\o  limit  >:hecking  :\re  Done  elsewhere. 

the  mode  I configuration  is  CALC  iLATED  FROM  tHe  VeCtOR  AND  tHeN  MODe  2 IS  FOUND  USING  THe  ReLAtIONS 


S (2) 

5 180 

+ S ( 1 ) 

T (2) 

= 180 

- r ( 1) 

15,3422 

575A5 

1 

RRANGLES  3L0AD 

DCOMP 

15,3423 

30043 

0 

34D 

1 5 , 342‘t 

67'*01 

0 

SETPD 

ASIN 

15,342S 

JOOOl 

0 

0 

15,3420 

44206 

0 

PUSH 

BDSU 

REF 

2 

LAST 

324 

15,3427 

33I42 

0 

HALFDP 

15,3430 

I4O05 

1 

STOOL 

4 

REF 

3 

LAST 

334 

15,3431 

33152 

1 

ZERODP 

15,343Z 

24O43 

0 

STOVL 

34D 

15 ,3433 

30041 

1 

32D 

15 ,343A 

41O56 

1 

UNIT 

BuVR 

REF 

4 

LAST 

168 

15,3435 

20346 

1 

DESRFTRN  +1 

15,3430 

I4O4I 

1 

STOOL 

32D 

15 ,343"? 

OOO4I 

1 

32D 

15,3440 

44I42 

0 

5R1 

SIQ 

REF 

10 

LA  S T 

330 

1 5 ,344! 

00051 

0 

|S2 

REF 

11 

LAST 

329 

15,3442 

14023 

0 

STOOL 

'^INTH 

15,3443 

JOU45 

0 

36D 

1 5 , 344't 

77  T42 

0 

SRI 

REF 

9 

LAST 

329 

15,3445 

34O2I 

0 

STCALL 

COSTH 

REF 

7 

LAST 

329 

15,344b 

32543 

1 

ARCTRIG 

SINCE  WE  WILL  FiND  THE  MODE  1 SwAFT 
ANGLE  later,  WE  CAN  FIND  THE  MODE  1 
trunnion  by  simply  taking  THe  ARCSIN  OF 
THE  Y COMPONENT.  THE  ASiN  GIVING  AN 
answer  whose  Abs  VAL  IS  LESS  THaN  90  DeG 

MODE  2 TRUNNION  TO  4. 


UNIT  THE  projection  OF  THE  VeCTdR  IN  THE 
X-Z  PLANE. 

CALL  FOR  S/C  MANEUVfR  ON  GIMBAL  LOCK, 
PROJECTION  VECTOR. 


USE  ARCTRIG  SINfE  SHAFT  COULD  Bg  ARB. 


48895‘tA  YJL  SYblEH  FOR  AGC;  NtW  PROGRAM  SHlPATIN  BY  b'YLLS 


0683 

I \iFLloH 

1 mLiO/siMENT 

RyUT INFS 

i5,3AA7 

93*^06 

1 

RUSH 

068A 

Ktr 

8 

LHO  1 

3:)y 

1 5 » 3a50 

33  I A2 

0 

0685 

15,3A51 

2A007 

0 

STOYL 

0686 

1 5 * 3a5^ 

OOOO5 

1 

0687 

15,3a53 

7763A 

0 

RTb 

0688 

REF 

1 

15,3a5A 

33610 

0 

0689 

REF 

3 

LAST 

1 67 

1 5 » 3a5 5 

2 AA26 

1 

STOYL 

0690 

15,3A5t) 

00001 

0 

0691 

15.3A57 

7763A 

0 

RTB 

0692 

REF 

2 

Last 

3a0 

1 5 1 3 a6^ 

336IO 

0 

0693 

REF 

2 

LAST 

165 

15.3A61 

OOA2A 

0 

STORE 

069A 

15*3A62 

77(76 

1 

EXIT 

0695 

REF 

76 

LAST 

298 

150A63 

A 0913 

0 

CS 

0696 

R£F 

17 

last 

260 

15,3a6A 

7 7(92 

0 

mas< 

0697 

196 

LAST 

10  GOO 

RtF 

317 

1 5 * 3A66 

0 

wCS 

0698 

15*3A6fc 

1 3972 

1 

ICF 

0699 

REF 

3 

Last 

3A0 

1 5 » 3A67 

52  92A 

1 

3XCH 

0700 

REF 

A 

LAST 

3A0 

15*3a70 

52  926 

0 

OXCH 

0701 

REF 

A 

last 

3A0 

15.3A7i 

52  92A 

1 

OXCH 

0702 

REF 

7 

LAST 

329 

15*3a72 

0 6i03 

0 

1C 

0703 

15»3a73 

77650 

1 

GOTO 

070A 

REF 

11 

LAST 

339 

15,3a7A 

OOG5I 

0 

DEC  I966  (MAIN)  PAGE  3AO 


USER'S  OWN  PaGF  NO*  1“^  E5 

DAD 

halfdp 

MODE  i SHAFT  TO  2. 

(OVERFLOW  DOESNt  MATTER  SINCt  SCALED  REV 

6 

A 

2Y15T025 

MODFB 

0 

FIND  mode  2 CDU  ANGLES. 

2Y1ST02S 

MODEA 

MODE  1 ANGLES  TO  MODE  A. 

RADMOOES 

B1T12 

A 

+ A 

MODEA 

MODEB 

MODEA 

INTPRET 

SWAP  MODEA  AND  mODER  IF  RR  IN  MODE  2. 

52 


488954A 


L 

P0705 

R0706 

R0707 

0708 

0709 
07091 

0710 

0711 

0712 

0713 

0719 

0715 

0716 

0717 

0718 

0719 

0720 

0721 


0722 

0723 
0729 

0725 

0726 


YJL  system  YOR  AOt:  PRO'JRAM  5MeFat1|\1  3Y  EYLfcS 


1966  (MAIN)  page  391 


IMFLISH]  alignment  ROJTINfS  USeR»S  OWN  PAGp  NO.  20  E5 

given  RR  IRUNION  AND  SHaF T (1*P)  IN  TANG,+1,  FIND  tHE  ASSOCIATED 
Line  of  sight  in  NAV  base  axes.  'he  half  UniT  vector,  .5(5in(S)C0S(T) , 

-5IN(I) ,C0S(S)C05(T))  IS  LEF T IN  MPAC  AND  32D. 


15,3a7S  97I35  0 RRNB 

REF  16  LAST  283  15,3976  00929  0 

REF  10  LAST  337  15,397/  33^29  1 

15,3500  91901  1 


SLOAO  RTB 
TANG 

CDULOGIC 

SETPO  PUSH  trunnion  ANGLf  tO  0 


15.3501  OOUOl  0 0 

15.3502  57.P56  0 SIN  DCOMP 

15.3503  I9O93  0 STODL  39D  Y COMPONENT 


15.3509  91596  0 

15,3S05  97J-35  0 

REF  17  LASl  391  15,3506  00925  1 

REF  11  LASl  391  15,3507  33529  1 

15.3510  71906  0 

15.3511  72905  0 

15.3512  OOOOl  0 

15.3513  I9O95  0 


COS 

SLOAO 

PUSH 

RTB 

TaNG  +1 

.5  C05(T)  TO  0 

PUSH 

OMP 

CDULOGIC 

Cos 

SLl 

SHAFT  ANGLE  TO  ? 

STODL 

0 

36D 

2 COMPONENT 

15.3519  91356  1 SIN  DMP 

15.3515  77/52  1 SLl 

15.3516  29O9I  1 STOVL  32D 

15.3517  00091  1 32D 

15.3520  77616  0 RVQ 


48895^A 


L 

0001 

R0002 

0003 

OOOa 

0005 

Ro006 

Rqoos 

0009 

0010 
0011 
0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 

Ro021 

0023 

0024 

0025 

0026 

0027 

0028 
0029 

R0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 

0040 

0041 

0042 


VJL  SVSteM  for  aGC:  me''  SP^ePatIN  3Y  eYLeS 


De.C  l3«  1966  (Main)  PA^^E  ^42 


RTB  op  COUES  USER'S  OWN  PAGf  NO.  1 

15*3521  3AN<  15 

LOAD  TIME2.  TIMEl  INTO  mPaC: 

I5«352l  0 0006  i LOADTIME  EXTEND 

REE  13  last  317  15*3522  3 0025  0 OCA  T1MF2 

REF  1 15.3523  1 6633  0 TCP  SL0AD2 

COMVeRt  THe  single  ^ReCIPION  a’S  complement  NUMBeR  arriving  in  MPAC  (SCALED  IN  HaLf_ReV0LUtI0N5)  to  A 
DP  I's  complement  number  scaleO  in  Revolutions. 


REF 

REF 

189 

90 

last 

LAST 

306 

315 

15.3524 

15.3525 

15.3526 

15.3527 

10  144 

3 7161 

1 3531 

1 3530 

1 

0 

1 

CDULOGIC  CCS 

CAF 

TCF 

MPAC 

ZERO 

♦ 3 

0 

NOOP 

REF 

2 

LAS! 

160 

15.3530 

4 7 140 

1 

CS 

HALF 

REF 

190 

LASI 

342 

I5.353I 

54  I45 

0 

TS 

MPAC  +1 

REF 

91 

LAST 

342 

15.3532 

3 7161 
56  I44 
0 0006 

0 

CAF 

ZERO 

REF 

191 

LAST 

342 

15.3533 

15.353^ 

0 

1 

XCH 

EXTEND 

MPAC 

REF 

3 

192 

LAST 

LAST 

342 

15,3535 

7 7140 

1 

MP 

half 

REF 

342 

15 .3536 

2 0 I45 

0 

OAS 

MPAC 

REF 

2 

LAST 

342 

15,353  1 

1 6535 

0 

TCF 

SL0AD2  +2 

Read  imu  cdjs  into  mpac  as  a vector,  especially  useful  in  connection  with  smnb.  etc. 


15,3540 

0 0004 

0 READCDUS  INHINT 

REF 

6 

LAS  ( 

320 

1 5 . 354 1 

3 OO33 

1 

LA 

CDUY 

REF 

193 

LAST 

342 

15,3542 

54  I44 

1 

TS 

MPAC 

REF 

8 

LASI 

210 

15,3543 

3 OO34 

0 

CA 

CDUZ 

REF 

1 94 

LAST 

342 

1 5 .3544 

5 4 1 4 7 

1 

TS 

MPAC  +3 

REF 

12 

LAST 

320 

15.3545 

3 OO32 

0 

CA 

CDUX 

REF 

1 

15.3546 

1 3555 

0 

TCF 

READPIPS  +6 

IN  order  Y 2 X 


COMMON  CODING. 


READ  the  PiPs  INTO  MPAC  WithoUT  CHANGING  THEM: 

15.3547  0 0004  o READPIPS  INHINT 

PIPAX 
MPAC 
PIPAY 
MPAC  +3 
PIPAZ 

MPAC  +5 


REF  4 LAST  320  15.3550  3 OO37  0 CA 
REF  195  LAST  342  15.3551  54  l44  1 TS 
REF  2 LAST  134  15.3552  3 0040  0 CA 
REF  196  last  342  15.3553  54  l47  1 TS 
REF  3 LAST  320  15.355^  3 OO4I  1 CA 

15.3555  0 0003  1 RELINT 
REF  197  LAST  342  15.3556  54  151  0 IS 


REF  92  LAST  342  15.3557 
REF  198  LAST  342  15.3560 
REF  199  LAST  342  15.3561 
REF  200  LAST  342  15.3562 


3 7161  0 CAF  ZERO 

54  145  0 IS  MPAC  +1 

54  150  1 TS  MPAC  +4 

54  I52  0 TS  MPAC  +6 


48895'^A  YJL  system  f- OK  AGC ; NEW  sHePATIN  3Y  EYLES  DEC  U,  I966  (MAIN)  PAGE  3A3 


L STB  DP  CODES  USER'S  OwN  PAGf  NO.  Z 


OOA3 

OOAA 

REF 

REF 

85 

1 

LAST 

316 

15,3563 
15, 3 56A 

4 7?55 
1 6114 

0 

1 

VECMODE 

CS 

rcF 

ONE 

NEHMODE 

R00A5 

. force  TP 

SIGN  AGREtM 

ENT  In  I 

00A6 

REF 

5 

LAST 

15,3565 

0 7320 

1 

SGNAGREE 

TC 

TPAGREE 

0047 

RcF 

2 

LAST 

332 

15,3566 

1 6 1 1 5 

0 

1 CF 

DAN7 1 G 

R0048 

CON 

VeRT  THe  dp  I'S  c 

DMPLEMeNt 

angle  3CAL 

■ ED  in 

Revolutions 

TO  A single  precision  e's  compleMeNt  angle 

ROOSO 

SCALED 

iN  HALE-KE90LUT IONS. 

0051 

REF 

1 

1 5 , 3 56T 

0 3617 

1 

15T02S 

TC 

1T025UB 

0052 

REF 

93 

LAST 

342 

15,3570 

3 7 f 6l 

0 

CAF 

ZERO 

0053 

REF 

201 

LAST 

342 

15,3571- 

54  I45 

0 

TS 

MPAC  -,1 

0054 

REF 

2 

LAST 

343 

15,3572 

1 6ll4 

1 

TCF 

NEWMODE 

R0055 

DO 

1ST023 

ON  A VeCI  DR'  OF  ANGLE 

3 1 

0056 

REF 

2 

Las  r 

343 

1P,35  T j 

0 LI 

1 

V 1 STO2S 

TC 

ITO2SUB 

answer  arrives  TN  a and  MPAC. 

0057 

REF 

202 

last 

343 

15,357A 

52  I52 

0 

DXCH 

MPAC  +5 

0058 

REF 

203 

Las  I 

343 

15,3575 

52  I45 

0 

DXCH 

MPAC 

0059 

REF 

3 

LAST 

343 

15,3576 

0 3617 

1 

1C 

1T02SUB 

0060 

REF 

204 

LAST 

343 

15,357? 

54  l46 

0 

TS 

MPAC  +2 

0061 

REF 

205 

LAST 

343 

15,3600 

52  150 

1 

DXCH 

MPAC  -,3 

0062 

REF 

2 06 

LAST 

343 

15,3601 

52  145 

0 

DXCH 

MPAC 

0063 

REF 

4 

LhS  r 

343 

15 ,3602 

0 3617 

1 

TC 

1 T02SUB 

0064 

REF 

207 

LAST 

343 

15,3603 

5 4 1 4 5 

0 

IS 

MPAC  +1 

0065 

REF 

208 

LAST 

343 

1 5 , 360A 

3 0I5I 

1 

CA 

MPAC  *5 

0066 

REF 

209 

LAST 

343 

15,3605 

54  I44 

1 

IS 

MPAC 

0067 

REF 

86 

LAST 

343 

15,3606 

3 7 ? 5 5 

1 

TPMODE 

CAF 

ONE 

MODE  IS  TP. 

0068 

REF 

3 

LAST 

343 

15, 360  7 

1 ol  14 

i 

TCF 

NLWMODE 

R0069  VIST02S  rOR  2 component  ^ector.  jsed  by  rr. 


0070 

REF 

5 

LAST 

343 

15,3610 

0 36I7 

1 

2V15T02S  TC 

1T02SUB 

007 1 

R C.F 

210 

LAST 

343 

1 5 , 36l 1 

5 2 1 50 

1 

DXCH 

MPAC  +3 

0072 

REF 

211 

Last 

343 

15,3612 

52  I45 

0 

DXCH 

MPAC 

0073 

REF 

6 

LAST 

343 

15,3613 

0 3617 

1 

TC 

11025UB 

0074 

R EF 

69 

LAS  T 

317 

1 5 , 361 A 

54  001 

1 

TS 

L 

0075 

npi'i  L. 

REF 

212 

LAST 

343 

15,3615 

3 OI47 

0 

CA 

MPAC  +3 

UU  ( b 

RcF' 

3 

LAS  i 

342 

15,3616 

1 0633 

0 

T CF 

SL0AD2 

Ro077 

SU'iRoUl  INe 

TO  Do  DOJSLINO  AND 

I's  TO  2's  Conversion: 

0078 

R^F 

213 

LAST 

343 

15,3611 

52  I45 

0 

1T02SUB  DXCh 

MPAC 

Final  mpac  +i  unspecified. 

0079 

15,3620 

2D  001 

1 

DDOUBL 

A8895^A 

YJL 

SYSTEM  FOR  AGC; 

NEW  PROGRAM  SHePATIN 

BY  EYLES 

L 

rtb 

COOES 

0080 

REF 

197 

LAST 

340 

15,3621 

10  000 

0 

CCS 

0081 

REF 

87 

LAST 

343 

1 5 ,3622 

6 1 ^55 

1 

AD 

0082 

15,3623 

1 3525 

1 

TCF 

0083 

J.  5 , 3624 

4 OOOO 

0 

COM 

008A 

REF 

21a 

LAST 

343 

15,3625 

5 4 1 44 

1 

TS 

0085 

REF 

156 

LAST 

310 

15 ,3625 

0 0002 

0 

T C 

0086 

REF 

198 

Last 

344 

i5»3627 

50  OOO 

1 

INDEX 

0087 

ref 

1 

15 ,3630 

3 7^36 

1 

caf 

0088 

REF- 

215 

LAST 

344 

15,3631 

26  I44 

1 

ADS 

0089 

REF 

157 

LAST 

34^ 

15,3632 

0 0002 

0 

TC 

Dec  lg66  (MAIN)  PAGE  34A 


A 

ONE 

USER'S  OWN  PAGE  NO.  3 

+ 2 

THIS  WAS  REVERSE  OF  MSU. 

MPAC 

□ 

AND  SKIP  ON  overflow. 

A 

LIMITS 

MPAC 

OVERFLOW  UNCORReCT  AND  IN  MSU. 

Q 


48895^A  YJL  SySieH  (OR  M&t ; NlW  PRO<jR‘\>I  sHePATIim  BY  eYLeS 


DEC  1,,  1966  (MAIN)  PAGE  3Ab 


L RIB  0?  CODES 


USER'S  o<YN  Page  no.  a 


P0090 

0091 

0092 

0093 
009A 


0095 

0096 

0097 

0098 

0099 

0100 

0101 

0102 


SUBROUTINE  TO  INCREMENT  ^DUS 

REF  1 

REF  19  LAST  246 
REF  216  LAS'I  344 
REF  2 LASl  192 


REF  15  LAST  345 
REF  217  last  345 

REF  3 Last  3A5 

R ;F  16  LAS  r 34  5 
REF  218  LASl  345 
REF  4 LAST  3A5 

REF  1 

REF  7 last  329 


15,3633 

15,363A 

15,3633 

3 3646 
54  120 
30  I44 

0 

0 

0 

INCRCDUs 

CAF 

IS 

CAE 

LOCTHETA 

BUF 

MPAC 

1 5 , 363B 

0 3B47 

1 

T C 

CoUINC 

15,3637 

24  120 

1 

INCR 

BUF 

15, 3 6 aO 

30  I47 

0 

CAE 

MPAC  +3 

15 ,36A1 

0 3B47 

1 

TC 

CDUINC 

15,36A2 

24  120 

1 

INCR 

BUF 

1 5 ,3643 

30  151 

1 

CAE 

MPAC  +5 

1 5 ,3644 

0 3647 

1 

TC 

CDUINC 

15,3643 

1 3363 

0 

TCF 

VECMODE 

1 3 ,3643 

00400 

0 

LOCTHETA 

adres 

THETAD 

PLACE  ADReS(THEtA)  IN  BUF. 
increment  IN  IS  COMPL. 


Ro103  THe  following  ROUtIN-  INLReMeNtS  IN  zS  COMPLEMENT  THe  REGISTER  WHOSe  ADDReSS  Ic  IN  BUF  BY  THe  iS  CoMPL. 

Ro105  OJANTlTV  FOUND  IN  TEM2.  THIB  ^AY  Be  USED  TO  INCREMENT  DeSIReD  IMU  AND  OPTICS  CDU  ANGLES  OR  ANY  OtHeR  2S  COMPL. 

R0107  (.0  JNELUaL  to  -0)  QUANTITY.  »1AY  Be  CALLED  BY  BAN <CALL/SWCALL . 


0108 

0109 

REF 

REF 

3 

17 

LAST 

LAST 

16 

343 

1 5 ,3647 
13,3650 

54  132 
30  120 

0 COUINC 

1 

TS 

INDEX 

TtM2 

BUF 

0110 

15,3651 

1 0 ooo 

0 

CCS 

0 

0111 

REF 

88 

LAST 

344 

15,3652 

6 7(55 

1 

AD 

ONE 

0112 

15,3653 

1 3357 

1 

TCF 

+ 4 

0113 

REF 

89 

LAS  1 

345 

15,3654 

6 7(55 

1 

AD 

One 

0114 

REF 

90 

LAST 

345 

13,3655 

3 7 '55 

1 

AD 

ONE 

0115 

15,3653 

4 OOOO 

0 

COM 

0116 

REF 

4 

last 

345 

15,365F 

6 0132 

1 

AD 

TEM2 

C0117 

REF 

199 

LAST 

0118 

344 

i 5 ,3660 

1 0 Ooo 

0 

CCS 

A 

0119 

REF 

91 

LAST 

345 

13, 3661 

6 7'55 

1 

AD 

ONE 

0120 

13,3662 

1 3364 

1 

TCF 

+ 2 

0121 

15,3663 

4 oooo 

0 

COM 

0122 

REF 

5 

LASl 

345 

1 5,3664 

54  132 

0 

TS 

TEM2 

0123 

D C C 

15,3665 

1 3371 

0 

TCF 

+ 4 

Ktr 

2 00 

LAST 

345 

1 5 ,3663 

50  Ooo 

1 

index 

A 

C0125 

0126 

A 1 ^ -7 

REF 

2 

LASl 

344 

15, 3667 

3 7 '36 

1 

CAF 

LIMITS 

U 1 7 

REF 

6 

LAST 

343 

1 5 ,3670 

6 0 1 32 

1 

AD 

TEM2 

0128 

REF- 

18 

LAST 

343 

15,3671 

50  120 

1 . 

INDEX 

BUF 

0129 

15,3672 

54  Ooo 

0 

T S 

0 

0130 

REF 

138 

LASl 

344 

15,3673 

0 0002 

0 

TC 

0 

IS  COMPL. UUANT.  arrives  IN  ACC.  STORE  IT 
CHANGE  2S  COMPL.  ANGLE (IN  BUF) INTO  IS 


OVERFLOW  HERE  IF  2S  COMPL.  IS  I3O  DeG. 


ADD  IN  increment.  WILL  OVERFLOW  IF  RE- 
SULT moves  From  2ND  to  3D  quad, (OR  BACK) 
BACK  TO  2S  COMPi  . 


STORE  lABIT  QUANTITY  WITH  PRESENT  SIGN 

overflow  means  correct  I4BIT  VAlUEiWRONG 
SIGN. 

FIX  n ,BY  ADDING  IN  37777  OR  40n00 


STORE  NEW  ANGLE  IN  2S  COMPLEMENT 


488954A  YJL  S'rbitM  '•OK  AGO;  NlIn  KRO'J^A'1  SH^PaiIN  BY  eYLtS 


Dec  1^,  1966  (MAIN)  PaGe  3A6 


RTB  OP  CODES 


USER'S  OWN  PAGE  NO. 


P0131 

rtb 

TO 

torqjl  gyros, 

EXCEPT 

FOR  THe  call 

TO  IMUStALL.  ecadr 

OF  commands  arrives  in  Xi, 

0133 

REF 

1 

15’367^ 

50  110 

1 pjlseimu 

index 

FIXLOC 

address  OF  GYRO  COMMANDS 

013A 

R'F 

1 

15,3675 

3 00A6 

O 

CA 

XI 

0135 

REF 

26 

LAS  i 

310 

15,367P 

0 5‘^2A 

0 

TC 

BaNKCALL 

0136 

REF 

2 

LAST 

193 

15,3677 

26361 

1 

CADR 

IMUPULSE 

0137 

REF 

3 

LAST 

3A3 

15,3/00 

1 6115 

0 

TCF 

DAN7It) 

N XI 


488954A  yjL  5^S1£h  f 0^^  NEK  pROG^Av]  SHtpATlN  BY  EyLLS 


L 

P0138 

0139 

0140 

0141 

0142 

0143 

0144 

0145 

0146 

0147 

0148 

0149 

0150 

0151 

0152 

0153 

0154 

0155 

0156 

0157 

0158 

0159 

0160 
0161 
0162 

0163 

0164 

0165 

0166 

0167 

0168 

0169 

0170 

0171 

0172 

0173 

0174 

0175 

0176 

0177 

0178 

0179 


0180 

0181 


RTB  OP  eOUt.-i 

the  roLLowiNG  koutIme  is  used  only  in  Ba'JCH  testing  the 


REF  12  LAST  209 


REF  18  LASi  i09 


REF  1 

REF  7 LAST  345 
REp  27  LAS7  206 
REF  1 

REF  19  last  345 
REF  27  LaSi  206 
REF  6 LASi  163 


REF  1 

REF  5 last  345 

REF  iO  LASI  347 

REF  8 LAS'i  283 


REF  3 last  122 

REF  25  LAST  268 
REF  201  LAST  345 


REF  92  Last  345 
REF  58  LAST  315 

REF  5 LAST  160 

REF  2 last  347 

REF  59  LAST  34F 
REF  6 LAST  347 
REF  28  LAST  347 

REF  8 LASI  347 
REF  28  LAST  347 
REF  21  LAST  347 
REF  2 LAST  347 

REF  9 last  347 


15.3701 

15.3702 

15.3703 
15,370A 

15.3705 

15.3706 

15.3707 

i 5’37l0 

15.3711 

15.3712 

15.3713 
15,371A 
15,3/lS 

15.3716 

15.3717 

15»3720 

15.3721 

15.3722 

15.3723 
15,372A 

15.3725 

15.3726 
15,372  f 

15.3730 

15.3731 

15.3732 

15.3733 
1 5 ,373A 

15.3735 

15.3736 

15.3737 

15.3740 

15.3741 

15.3742 
15,37A3 
15,374A 

15.3745 

15.3746 

15.3747 

15.3750 

15.3751 

15.3752 
15 ,3  753 


0 5 717 
00062 

3 7754 
0 0006 


3 OI32 
54  O70 


54  O71 
3 0361 
6 0000  1 
0 OOO6 


0 5372 
0 0006  1 
7 7740 


3 735 


3 0362 
0 0006 
7 3753 
0 0006 
13  Obi 

0 3647 
3 0U70 


3 OO7I 
54  120 
1 3 701 


0 

RRSIM 

TC 

FIXDELAY 

0 

DEC 

50 

’ 0 

RRSIM2 

CAF 

B1T2 

1 

EXTEND 

0 

RAND 

12 

1 

EXTEND 

0 

3ZF 

RRSIM 

1 

CA 

TEM2 

1 

T S 

RUPTREGl 

1 

CAF 

LOPTY 

1 

XCH 

BUF 

0 

1 S 

RUPTREG2 

0 

CA 

LASTYCMD 

1 

30UBEE 

1 

EXTEND 

1 

MP 

RRSIMG 

1 

Tc 

CdUINc 

1 

INCR 

BUF 

1 

CA 

OPTY 

1 

EXT  END 

1 

vlSU 

7 

1 

TC 

SPCOS 

1 

EXT  end 

1 

v|p 

B 1 T 1 4 

0 

CCS 

A 

1 

TCF 

+ 3 

1 

rcF 

+ 2 

1 

TCF 

+ 1 

1 

AD 

ONE 

1 

rs 

ITEMPl 

0 

^A 

LASTXCMD 

1 

EXTEND 

1 

VIP 

RRSIMG 

1 

EXTEND 

1 

3V 

ITEMPl 

1 

TC 

CDUINC 

0 

C A 

RUPTREGl 

0 

TS 

TEM2 

1 

CA 

RUPTREG2 

0 

TS 

BUF 

0 

TCF 

RRSIM 

1 

loPty 

adres 

OPTY 

0 

RRSIMG 

DEC 

.59259 

Dec  u,  1966  (mAIN)  pAge  347 


USER'S  OWN  PAGr  NO.  6 


SEE  IF  RR  ECtR  fNABI ED, 


SAVE  EXEC. TEMPS  SINCE  IN  RUPt. 


ECTR. 


SHAFT  CMD  IS  DIVIDED  BY  THE  ABS  VALUE  OF 
THE  COS  OF  THF  tRUNMON  ANGLE. 

TO  IS  complement. 

# 

SPCOS  NOW  GIVES  COS  SCALED  Al  1 » 

(A  DAP  GROUP  Fix)  * 


shaft  rate  depends  on  trunnion 


YJL  SrSItM  FOK  AGC;  new  s^epatin  by  eyles 


L 

0001 

0002 


Ro003 

Roooa 

R0006 

R0007 

R0008 

R0009 

ROOlO 

ROOll 


0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 
0021 
0022 

Ao023 

0024 

A0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 

0040 
C0040 

0041 

0042 

0043 


lem  fli^hi  control  syeiem  test 


REF 


Db*2467 

E4 


3AN< 

EBANK= 


Lem  F;.3  TlSi  entry  and  IwITI  ALIz^UON  JO3, 

This  JOB  INItIALIZe'S  TH-  pR'^^ABLe  TABLeS  Fo9  tHe 

waitlist  control. 

(1)  RCS  JEl  set  TA3< 

(2J  ENGINE  ON  - OF-  TA^K 

(3)  degceni  engine  gimbal  trim  task 

(4)  descent  engine  throttle  task 
i5J  interface  chan  HE-  Look  tas< 


REf  12  LAST  305 
REF  1 

ref  202  LhSI  347 
REF  219  LhST  345 
REF  1 

REF  2h  last  310 
ref:  220  last  348 
REF  1 


06 

06 

06 

06 

06 

06 

06 

06 


2h67 

2<t70 

2-471 

247E 

2473 

247H 

247^ 

247P 


0 -.933  0 FcSSTART  Tc 


3 23*43  1 CAK 

10  UOO  0 FCS3  CCS 

54  146  0 IS 

3 25*46  1 FCS2  CAF 

0 -4946  1 TC 

24  146  1 INCR 

3 2544  0 CAF 


REF  25  LaS;  348 
REF  19  LaSi  310 


06»2477 

06.2500 

06.2501 


0 4946  1 
0 4^64  0 
0 2504  1 


TC 

TC 

1C 


06 


2502 


0 2503  0 


TC 


REF  1 
REF  1 

REF  2o  L/lST  348 
REF  20  LAST  348 
REF  8 LAST  300 
REF  1 

REF  23  LAST  288 
REF  1 
REF  1 

REF  27  last  348 

REF  40  LAST  315 
REF  35  LAST  308 
REF  2 LAST  348 

REF  1 

REF  26  LAST  297 


06,2503 
06 , 2 504 
06,2505 
06 ,2509 

0 2A73 

3 2545 
0 4946 
0 -4^64 

0 

TC 

1 

1 

0 

CAF 

TC 

TC 

06,2507 

0 5904 

0 

T C 

0 6 , 2 5 1 

0 2513 

1 

TC 

06,25ll 

30  337 

0 

CAE 

06,251-^ 

0 2A  f 1 

1 

TC 

06,2513 

3 2547 

0 

FCSTESTI 

CAF 

06,251A 

0 4946 

1 

TC 

06,2515 

0 0004 

0 

FCSTEST 

1 NH I NT 

06,2519 

3 7754 

0 

CAF 

06,2517 

0 5701 

1 

TC 

E4 

EBANK= 

06,2520 

02554 

1 

2CADR 

06,2521 

14004 

0 

06,2522 

3 1 755 

1 

CAF 

REF  36  LAST  348  06,2523  0 S^Ol  1 TC 

REF  3 LASF  348  £4  EBANK= 


DEC  I3,  I966  (MAIN)  PAGE  348 
USER'S  OWN  PaGj;  NO.  1 

6 

JETSTEP 


-cs  tf-‘’T  and  pujs  jHe  Following  programs  und^r 


grarwait  so  nothing  disrupts  the  load, 

JSTEPADR  the  start  of  THr  LIST. 

A 

MPAC  +2 

V04N01K  DISPLAY  PRESENT  CONTENTS  IN  R2. 

NVSBWAIT 

MPAC  +2 

V21N02K 

NVSBWAIT  IN  CASE  1T,S  BUSY  BUT  IT  SHOULD-i,T  BE. 

ENDIDLE  WHILE  LOADING. 

+3  V34E.  TERMINATE  LOAD  OF  THIS  LIST 

SECTION,  GO  TO  (EW  SECTION  OR  TO  TEST. 
+1  V33E.  present  CONTENTS  OK,  PROCfED  TO 

NEXT  LOCATION  IN  LI  ST. 

FCS2 

V21N30K 

NVSBWAIT 

ENDIDLE 

EJFREE 

FCSTESTI  PROCEED  TO  TEST. 

DSPTEMl  NEW  ADDRESS. 

FCS3 

V47K 

NVSBWAIT  OUR  VERB  IN  THE  LIGHTS, 

Two  20MS. 

WAITLIST 

JETSTEP 

JeTSTART 

BITl  lOMS. 


WAITLIST 

JETSTEP 


^88954A  YJL  SYSTEM  FOh!  AGC : NEW  PFiO<S9AM  S^^PatIN  3Y  EYLES 


L LEM  FLIGHT  gOnTRQL  SYSTEM  TLsT 


OOAA  06*2b2A  ^^(Q7  0 

C004A  REF  1 06»2525  0 

00A5  REF  IS  last  3l6  06.2526  3 6301  0 

00A6  REF  37  LAST  3A8  06.252T  0 5^01  1 

00A7  REF  A LAST  3A8  EA 

00A8  06,2530  03O0A  0 

C00A8  REF  1 06,253T  IAO-OA  0 

00A9  REF  7 LAST  305  06,2532  3 7^53  1 


0050 

REF 

38 

LAST 

3A9 

0051 

REF 

5 

LAST 

3 A9 

0052 

C0052 

REF 

1 

0053 

REF 

7 

LAST 

317 

005A 

REF 

39 

LAST 

3A9 

0055 

REF 

6 

LAST 

3A9 

0056 

C0056 

REF 

1 

0057 

REF 

9 

LAST 

3A8 

06,2533  0 5TOI  1 

EA 

06,253A  03T2A  0 

06,2533  IaOOA  0 

06.2536  3 7T6O  1 

06.2537  0 5TOI  1 

EA 

06,25A0  33212  0 

06,25A1  IaOOA  0 
06,25A2  0 56OA  0 


0058  REF  7 LAST 

0059 

0060 
0061 
0062 


3A9  06*25A3 

06 , 2 5 A A 
06 ,25A3 
06 , 2 5A6 
06 , 2 5 A 7 


32O07  1 JSTEPADR 
02i02  0 V21N02K 

02^30  1 V21N30< 

30A01  1 VOANOK 
3AT00  1 VA7K 


2CA0R 

CAF 

TC 

EBANK= 

2CADR 

CAF 

TC 

EBANK= 

2CA0R 

CAF 

TC 

ebank= 

2CADR 

TC 

ECADR 

OCT 

OCT 

OCT 

OCT 


dec  13,  I966  (MAIN)  PAGE  3A9 


ENG5TART 

USER'S  OWN  page  no.  2 EA 

THREE 

WAITLIST 

JETSTEP 

TRIMTOP 

30MS. 

FOUR 

WAITLIST 

JETSTEP 

THRSTART 

AOMS. 

FIVE 

WAITLIST 

JETSTEP 

looktop 

50MS. 

ejfree 

JETSTEP 

02102 

02130 

OOAOl 

OA700 

NOW  they  start. 

48895‘4a  YJL  SrslEM  FOr  A^C  : NtW  PrOCi;)a''I  St^EPAlIN  BY  EYLt.s 


dec  U*  1966  (MAIN)  PaGE  350 


L 

P0063 

R0O6A 

R0O66 

ROO68 

Rqoyo 

Ro072 

R007A 

R0076 

R0077 

Ro079 


0081 

0082 

0083 

008A 

0085 

0066 

0087 

0088 

0089 

0090 
A0091 

0092 

0093 

0094 
C0094 

0095 

0096 

0097 

0098 

0099 

0100 
0101 

0102 

0103 

0104 

0105 

0106 

0107 

0108 

0109 

0110 

0111 
0112 
0113 

C0113 


LEM  FLIoHl  control  SYSTEM  TtSI  USER'S  OWN  PAGp  NO.  3 L4 

LEM  PCS  TEST  RCS  JLTsLT  TAsc, 

THIS  JOB  ISSUES  A PROPILe  OF  jet  ON-OFF  SIGNALS  AS  DeTfRMINeU  BY  tHe  CONSTANTS  IN  A SET  OF  SIX  REGISTERS, 

the  six  Registers  are,  (d  Ntimes*  the  number  of  times  a particular  step  will  be  peRforned.  (2)  neXttimp,  the 
time  BeiWeLN  steps,  a maximum  of  2 MINUTES,  (3)  JETONfM,  tHe  TIMe  TO  TURN  THe  JETS  ON,  aCALeO  FOR  T3,  (9)  JET- 
OFFtM,  iFfE  time  after  ONtm  TO  1 JRH  THe  JETS  off,  (5)  XJeTS,  the  particular  X Jets  to  Be  TURNeO  on  and  off 

DURING  each  RePeAT  OF  A SteP,  AMD  (6)  YZJeTS,,  THE  Y AND  Z JetS  TO  Be  tURNeD  ON  AND  OFF  DURING  EACH  RePeAT  OF  A 

Step,  xjets  and  yzjeis  must  be  i'^  ihe  same  format  as  channels  5 ands  respectively,  tHeRe  aRe  eight  Sets  of 
these  six  registers. 

the  Register  uetsteP  is  jseo  10  index  the  s sets  of  registers,  tHe  allowable  valufS  of  jetstep  are  ,0  thru  7 

this  JOB  will  Be  ENTEReP  SUI  immediately  ENDeD  if  tHe  initial  values  of  JeTSTeP  and  NtIMeS  ARe  +0. 


rEf  8 lAsT  349  06,2550  11*407 


NExTsET  CCS  jETsTEp 


06,2551  0 2S53  0 TC  +2 

REF  26  LASi  30b  06,255^  0 5^45  1 1C  TASXOVER 

REF  9 LAST  350  06,2553  55'A07  1 TS  JETSTEP 


REf  10  last  350  06,255A 

REF  1 06,255S 

06,2556 

REF  1 06,255T 

REF  11  LAST  350  06,2560 

REF  1 06*2561 


51  * A07 

0 

JETsTArT  \,DX 

JETSTEP 

11*410 

1 

CCS 

NTIMES 

0 2560 
0 2550 

0 

TC 

■•■2 

0 

1 c 

NEXT  SET 

51  •‘*07 

0 

NDX 

JETSTEP 

31 *420 

0 

CAE 

NtXTTIME 

REF 

REF 

40 

12 

LAST 

last 

349 

350 

06,2562 

REF 

REF 

1 

27 

LAST 

350 

06,2563 

06,256A 

06,2565 

O 5(01  1 TC  WAITLIST 

E4  ebank=  jetstep 

O2P77  0 2CADR  JTOP 

14O04  0 

O 5(45  1 TC  TASKOVER 


REF  94  LASf  343  06*2566  3 7(6l  0 

06,2567  0 OOO6  1 

06.2570  01  005  0 

06.2571  0 0006  1 

06.2572  01  O06  0 

REF  13  LAST  350  06,2573  51*^07  0 


JETOFF  CAF  ZERO 

EXTEND 
WRITE  5 
EXTEND 
WRITE  6 
NDX  jetstep 


ref  2 LAS]  350 
REf  14  lAsI  350 
REF  3 last  350 
REF  15  LAST  350 
REF  A LAST  350 

REf  2 last  350 
REF  16  LAST  350 
REF  1 

ref  a1  Last  350 
ref  17  last  350 

REF  1 


06*257H  11*410  1 

06*257S  51*407  0 

06,2576  55*410  1 

06,257?  51*407  0 

06.2600  11*410  1 

06.2601  0 2603  0 

06,260Z  0 2550  0 

06.2603  51*H07  0 

06.2604  31'H30  1 

06*2605  O 5(01  1 

E4 

06,2606  02611  0 

06,260?  14004  0 


CCS 

NTIMES 

ndx 

TS 

NDX 

jETsTEP 
NT IMES 
JETSTEP 

CCS 

NT IMES 

IC 

+ 2 

TC 

NEXTSET 

NDX 

JETSTEP 

CAE 

JETONTM 

IC 

WAITLIST 

ebank= 

JETSTEP 

2CADk 

JETON 

IT  mAy  be  ZErO, 

NOPE 

IT  IS  SO  WE  ARE  DONf  WITH  THIS  lASK. 


EnTEr  hErL. 

SEE  IF  THIS  STEd  IS  FINISHED, 

NO 

YES 

MUST  BE  SCALED  fOR  T3.  REMEMBER  TO  BIAS 
THIS  for  ON  TIME. 


ONE  LESS  TIME. 

FOR  LOOPING, 

SCALED  FOR  T3.  TIMf  FOR  JETS  On. 


488954A  YJL  SYSTbM  bOR  AGCj  NbW  PRO<i^AM  SHbPATlM  BY 


L Lem  flight  control  system  tlsi 

OllA  REF  28  last  350  06i26l'^  0 5 ^A5  1 


0115  REF  10 

0116  REf  1 

0117  REF  1 

0118  REF  19 

0119  REF  1 

0120  REf  1 

0121 
0122 
0123 

012A  REF  1 

0125  REF  8 

0126  REf  1 

0127  RSF  2 

0128  REF  2 

0129  REF  11 

0130  REF  203 

0131  REF  1 


LAST  350  06 

06 
06 

LAST  351  06 

06 
06 
06 
06 
Oo 
06 

LAST  267  06 

06 

LAST  351  06 

LAST  351  06 

LAST  177  06 

LAST  3A8  06 

06 


2611  Sl'^'OT  0 

2612  31»AA0  0 

2613  55'AOl  1 

2615  51*507  0 

2613  31*550  1 

2616  55*502  1 

261Y  0 0006  1 

2620  00  032  0 

2621  if  oOOO  0 

2622  55*503  0 

2623  3 7T57  0 

2625  55*50A  1 

2623  31*503  1 

2626  51'50A  0 

262Y  7 7F56  1 

2630  10  OOO  0 

2631  0 2650  0 


0132 

0133 
0135 

0135 

0136 

0137 

0138 

0139 
OlAO 
0151 
01A2 
0153 
015A 

C015A 

01A5 


REF 

3 

LAST 

351 

06  » 6 3 ^ 

1 1*505 

1 

REf 

1 

06  »2633 

0 2625 

0 

REF 

2 

LASl 

351 

06i263^ 

31*501 

0 

06^263^ 

0 0006 

1 

06*2630 

01  005 

0 

REF 

2 

LAS! 

351 

06,2637 

31 *502 

0 

06  >26^^ 

0 0006 

1 

06 ,264i 

01  006 

0 

REF 

20 

LAST 

351 

06,26^2 

51 *507 

0 

REF 

1 

Ob , 26-^^ 

31*560 

1 

REF 

52 

LASl 

350 

Oo  ’26'^^ 

0 5 FOl 

1 

ref 

21 

last 

351 

E5 

06,2640 

02666 

0 

REF 

1 

06,2640 

15005 

0 

REF 

29 

LAST 

351 

Ob  ,264  ^ 

0 5 755 

1 

0156 

0157 
0lA8 
0159 
0150 

0151 

0152 


REF 

5 

LAST 

351 

06*2650 

51  *505 

0 

REf 

1 

06,2651 

5 2673 

0 

REF- 

3 

LASl 

351 

06,2652 

7 1501, 

1 

REF 

5 

LAST 

3 51 

06 ,265^^ 

55*501 

1 

REF 

5 

LASl 

351 

Ob*2655 

51 *505 

0 

ref 

1 

06,2655 

5 2663 

1 

REF 

3 

LAST 

351 

06 ,2656 

7 1502 

1 

0153  REF  A LAST  351 

0155  REf  29  last  329 

0155 

0156  REF  1 


55*502  1 
0 5i55  1 
01510  0 
0 2632  1 


JETON 


JFAILCK. 


JF3 


JFAILl 


JFAIL 


dec  U,  1966  (MAIN)  PAGE  351 


USER*S  OiVN  PAGf  no.  5 e5 


1C  TASKOVER 

NDX  JETSTEP 

CAE  XJETS  MUST  BE  IN  CHANNEL  5 FORmAT. 

TS  XjBUF 

MDX  JETSTEP 

CAE  Y2JETS  MUST  BE  IN  CHANNEL  6 FORMAT. 

TS  YZJRUF 

EXTEND  THIS  ROUTINE  FXaMINfS  EACH  JeTFaIL  BIT 

READ  32  AND  IF  A FAILURf  IS  INDICATED  THE  CORRES 

COM  PONDING  CUMMANDf  ARf  MASKED  OUT  . 

TS  JFBUF  SAVE  32  REINVFRtED, 

CAF  SEVFN 

TS  FcNTR 

CAE  JFBUF 

NDX  FCNTR 

mask  BIT8 

CCS  A 

TC  JFAIL 

CCS  FCNTR 

TC  JF3 

CAE  XJBUF 

EXTEND 

aRITE  5 XJETS  GO  ON. 

CAE  YZJBUF 

EXTEND 

ijRlTE  6 YZJETS  go  ON. 

NDX  JETSTEP 

CAE  JETOFFTM  JET  OFF  TIME  SCALED  FOR  T3. 

TC  WAITLIST 

EBANK=  JETSTEP 

2CADR  JETOFF 

1C  TASKOVER 

NDX  FCNTR 

CS  xjetmask 

MASK  XJBUF 

TS  XJBUF 

NDX  FCNTR 

CS  Y7JFTMSK 

MASK  YZJRUF 

TS  YZJBUF 

TC  Alarm 

DCT  01510 

TC  JFAILl 


TEMPORARY  JET  FAIL  ALARM  CODE 


I 
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L LEM  FLIbHI  CONTROL  SYSTEM  TE51  USER'S  OWN  PAGf  NO.  3 EA 


0157 

06  1 2 66^ 

OOOlO 

0 

YZJETMSK 

OCT 

00010 

JET 

11 

0158 

06 . 266A 

00020 

0 

OCT 

00020 

JET 

12 

0159 

06*2665 

OOUOA 

0 

OCT 

OOOOA 

JET 

15 

0160 

06  * 2660 

00200 

0 

Oct 

00200 

JET 

16 

0161 

06  * 266  Y 

OOOOl 

0 

OCT 

OOOOl 

JET 

7 

0162 

06.2670 

00002 

0 

OCT 

00002 

JET 

3 

0163 

06  * 267  T 

oooao 

0 

OCT 

OOOAO 

JET 

8 

016A 

06.2672 

JOiOO 

0 

OCT 

OOIOO 

JET 

A 

0165 

06 . 2673 

OOOaO 

0 

X jetmasic 

OCT 

OOOAO 

JET 

10 

0166 

06.267A 

00020 

0 

OCT 

00020 

JET 

9 

0167 

06.2675 

OOiOO 

0 

OCT 

OOIOO 

JET 

13 

0168 

06  *267^ 

00200 

0 

OCT 

00200 

JET 

lA 

0169 

06 . 267  T 

JOOlO 

0 

OCT 

00010 

JET 

6 

0170 

06.2700 

OOOOi 

0 

OCT 

OOOOl 

JET 

1 

0171 

0 0 * 2 7 0 1 

ooooa 

0 

OCT 

OOOOA 

JET 

5 

0172 

06.2702 

00002 

0 

OCT 

00002 

JET 

2 
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L LEM  FLIGHT  CONTROL  5TSTEM  TEST  USER'S  qWN  PaGt  NO*  6 EA 

P0173  LEM  FCS  TEST  ENGINE  ON  - OFF  TAS^ 

Ro17A  T^IS  task  T'JPNS  tHE  LeM  ASCENT  JR  DeSCeNT  eNGINe  ON  AND  OFF  ACCORDING  tOTHe  CONSTANTS  StOReo  IN  tHe  FIVe  SeTS  OF 

Ro176  R-GISteRS,  (1)  CYLTIMeS,  wHICH  CONTAINS  THE  NUMBeH  OF  TIMeS  A PAR  1 1 CULARSTEP  WILL  Be  RepeATfD,  (2)  NeXTCYLT, 

Ro178  which  contains  THe  TIME  BeTa/EEN  ^TEPS  SCALED  FOR  T3,  (3)  ONTIMe,  WHICH  CONTAINS  THE  TIME  TO  TURN  THe  E«GINe  ON 
R0180  WHICH  ALSO  DETERMINES  THE  LENGTH  wp  TIME  THe  ENGINE  WILL  Be  OFF  WItHIN  A SERIES  OF  ONTOFF  CyCLeS,  (a)  OfFtIME. 

Roi82  which  contains  the  njmber  of  2 minutes  Before  the  engine  will  be  torned  off,  and  (5)  offtimer,  which 
R018A  contains  the  Residual  timf  ^e-ohe  the  engine  will  be  turned  off.  offtime  and  offtimer  determine  tHe  length 

R0186  OF  riME  the  engine  will  bf  On  in  any  one  cycle.  theRe  are  three  sets  of  theSe  Registers. 


R0188  tHe  engsteR  register  is  Jdeo  as  an  index  to  pick  up  a Particular  set  of  tHe  above  5 registers,  this  task 

R0190  WILL  BE  entered  BUT  IMMeDIATE-T  eNDeD  IF  eNGSTEP  AND  CYLTIMeS  = +o.  THE  ALLOWABLE  VALUES  OF  eNGSi eP  ARE  +0* 
R0192  1 AND  2. 


0193 

REF 

1 

06*2703 

11'470 

1 

NXTONOFF 

CCS 

engstep 

0 1 94 

06  *2704 

0 2 T06 

1 

TC 

+ 2 

0195 

REF 

30 

LAST 

351 

06,270S 

O 5 T45 

1 

TC 

TASkOvER 

EXIT  here  WHEN  c.TEP 

AND  CYL  ARE  +0. 

0196 

REF 

2 

LAST 

353 

06*2706 

55*470 

1 

TS 

ENGSTEP 

ONE  LFSS. 

0197 

REF 

3 

LAST 

353 

Ou  *270  J 

51*470 

0 

ENGSTART 

NDX 

ENGSTEP 

ENTER  HERE, 

0198 

REF 

1 

06*271° 

11*471 

0 

CCS 

CYLTIMES 

NUM  OF  EACH  ON/OFF 

SET 

0199 

Oo  * 27  1 1 

0 2^13 

0 

T C 

+ 2 

0200 

REF 

1 

06*271^ 

0 2 ^03 

1 

TC 

NxTONOFF 

NO  MORE  OF  THIS  SET 

0201 

REF 

4 

LAST 

353 

06*2713 

51*470 

0 

NDX 

ENGSTEP 

0202 

REF 

1 

06*2719 

31 *479 

1 

CAE 

NEXTCYLT 

START  OF  NEXT  CvCLE. 

0203 

REF 

43 

LAST 

351 

0b*27lS 

0 5T01 

1 

IC 

WAITLIST 

0204 

RHf 

5 

last 

353 

E4 

EBANk 

= engstep 

0205 

00*2716 

J2 '37 

0 

2CADR 

ENGONTM 

C0205 

REF 

1 

06*271  1 

14004 

0 

0206 

REF 

31 

LAST 

353 

06*2720 

0 5 C45 

1 

TC 

TASKOVER 

0207 

REF 

5 

LAST 

290 

06*2721 

4 5226 

0 

ENGRESET 

CS 

PRIO30 

BITS  13  AND  1<*. 

0208 

06*2722 

0 0006 

1 

extend 

0209 

0o*2723 

02  011 

0 

RAND 

11 

0210 

REF 

26 

LAST 

347 

06*2724 

6 7T4O 

0 

AD 

B1  ri4 

0211 

06  *272S 

0 OOO6 

1 

EXTEND 

0212 

06  *272^ 

01  °1 1 

0 

WK  1 1 t 

11 

ENG  ON  = 0*  ENG  OFF 

si. 

0213 

REF 

6 

LAST 

353 

06*2  727 

51*470 

0 

NDX 

ENGSTEP 

0214 

REF 

2 

LAST 

353 

0b*2 73° 

11*471 

0 

CCS 

CYLTIMES 

0215 

REF 

204 

LAST 

351 

0 0 * 2 7 3 1 

1 0 ooo 

0 

CCS 

A 

0216 

06*2732 

J 2 C34 

0 

TC 

+ 2 

0217 

REF 

2 

LAST 

353 

Oo*2 733 

0 2 CO3 

1 

TC 

NXTONOFF 

WAS  ONE. 

0218 

REF 

93 

LAST 

347 

06  *2739 

6 7 T55 

1 

AD 

ONE 

WAS  MORE  than  OmE. 

0219 

REF 

7 

LAST 

353 

06*2736 

51*970 

0 

NDX 

ENGSTEP 

0220 

REF 

3 

LAST 

353 

06*2736 

55*971 

0 

TS 

CYLTIMES 

0221 

rEf 

8 

lAst 

353 

06*2  73  1 

51*970 

0 

EnGOnT'M 

NDX 

Engstep 

0222 

REF 

1 

06*2 74O 

31*602 

i 

CAE 

OFFTIME 

0223 

REF 

1 

06*2791 

55*906 

0 

TS 

OFFTMBUF 

0224 

REF 

9 

LAST 

353 

06*2742 

51*970 

0 

NDX 

ENGSTEP 

48895^A  VJL  SYSitM  FOR  aGC : Pro'^RAM  S^ePatIN  3Y  eYL-eS 


1a*  1966  (MAIN)  PA^E  35A 


L LEM  FLIOHT  ConTroL  SYSTEM  Ttsi 


0225 

REF 

1 

06,2743 

3i *^77 

1 

0226 

RcF 

44 

LAST 

353 

06,2744 

0 5^01 

1 

0227 

REF 

10 

LAST 

353 

E4 

0228 

06,2  745 

02  750 

1 

C0228 

ref 

1 

06,2746 

I4UO4 

0 

0229 

REF 

32 

LAST 

353 

06 ,2747 

0 5 745 

1 

USER'S  OWN  PAGF  no.  ^ 

CAE  ONTIME 
TC  WAITLIST 

ebank=  engstep 

2CADR  ENGSET 
IC  TASKOVER 


0230  REF  6 LAST  353  06*2750 

0231  06,2751 

0232  06,2752 

0233  REF  17  LAST  203  06,2753 

0234  06,2754 

0235  06,2755 

0236  REF  2 LAST  353  06,2756 


4 5^26  0 ENGSET 

0 0O06  1 
02  011  0 
6 7T41  1 
0 0006  1 

01  011  0 

11*406  0 ENGRST 


CS  PRI030 

Extend 

RAND  11 

AD  Bni3 

EXTEND 

WRITE  II 

CCS  OFFTMBUF 


ENG  ON  : 1 , ENG  OFF  = 0. 


0237  REF 

0238  REF 

0239  REF 

0240  REF 

0241  REF 

0242 

C0242  REF 

0243  REF 


11  last  354 
1 

45  LASl  354 

12  last  354 

1 

33  last  354 


06,2757 
0 0 , 2 7 6 0 
06,2/61 
06*2762 

06,2  763 
06,2/64 
06,2765 


0 2766  1 
51,470  0 
3i'505  0 
0 5 701  1 
E4 

02721  1 
1400*,  0 
0 5745  1 


TC  LTIMEON 
NDx  ENGSTEP 
CAE  OFFTIMER 
TC  WAITLIST 
EBANk=  ENGSTEP 
2CADR  ENGRESET 

TC  TASKOVER 


AT  least  2MIN.  pEFOrE  ENGINE  OFF. 
LESS  than  2MIN,  TO  ENGINE  OFF, 


0244 

REF 

3 

LAST 

354 

06*2/65 

ll'^06 

0 LtIMeON 

CCS 

OFFtMBUF 

0245 

06,2/67 

0 2 771 

1 

tc 

+ 2 

0246 

REF 

1 

06,2/70 

0 2 756 

1 

TC 

ENGRST 

0247 

REF 

4 

LAST 

354 

06,2771 

55'''06 

0 

TS 

OFFTMBUF 

0248 

R ^F 

1 

06*2772 

3 2 777 

1 

CAF 

2MIN 

0249 

ref 

46 

last 

354 

06,2773 

0 5 701 

1 

TC 

waitlist 

0250 

REF 

13 

LAST 

354 

E4 

EBANK= 

ENGSTEP 

02  51 

06,277^ 

02 '66 

1 

2CADR 

LTIMEON 

C0251 

REF 

2 

LAST 

354 

06,2775 

14O04 

0 

0252 

REF 

34 

LASl 

354 

00,2/75 

0 5745 

1 

TC 

TASKOVER 

IS  there  any  MOcE. 

yes. 

NO, 

ONE  LESS. 


0253 


06,2/7'7  27340  0 2v|IN  OEC  12000 


E4 


488954A  YJL  SYSTEM  fOR  AGC  ; inIeW  PROGRAM  SMePATIN  BY  eYLlS 


Dec  1966  (MAIN)  PAGe  355 


L 

P025A 

R0255 

R0257 

R0259 

R0261 

R0262 

R0264 

R0265 

R0267 

R0268 

R0270 

R0271 

R0273 

R0275 

R0277 

R0278 


0280 

0281 

0282 

0283 

028A 

0285 

0286 

0287 

0288 

0289 

0290 

0291 

0292 
C0292 

0293 

0294 

0295 

0296 

0297 

0298 

0299 

0300 

0301 

0302 

0303 
030A 

0305 

0306 

0307 


LeM  FLIOHT  control  system  TES|  USER'S  OWN  PAGf  no.  8 EA 

LEM  FCS  TEST  TRIM  TASK 

this  program  ISSUES  A PROFlL^  OF  PlfCH  AND  ROLL  TRIM  COMMANDS  TO  THe  LeM  DeSCeNT  eNGINe  GIMBAL  In  ACCoRDANCeW I tM 

the  yalle  s IN  the  tRimstfP  r-oISTeR  and  tHe  12  Sets  of  5 Registers  called  numtimeS,  stfPdlvt,  trimont.  trimofft 

AND  THI'IND.  tRIMSteP  IS  USeD  (0  PICK  UP  A PARTICULAR  Set  OF  THe  5 REGISTERS  AND  HAS  Ai  LoWaBLe  VALUeS  FROM  +o 
through  +11  Decimal,  the  5 regisieRs  in  each  set  are  defined  as  Follows 

(1)  NUMtIMeS  DETtRMINES  THE  NUMBeR  OF  TIMES  THE  COMMAND  IN  TRIMIND  WILL  Be  ISSUeD.  VALUeS  FROM  +o  TO 
DCT  377)7  ARE  PERMITTED. 

(2)  stepdlyt  Determines  the  t^me  between  the  start  of  a step  and  the  beginning  of  tfIMont.  stePdlyt  must  be 

FORMATTED  FjR  T3*  ITS  MAXIMUM  YALUe  IS  2 MINUTES. 

(3)  triyoitt  Determines  the  iiMe  between  the  end  of  stePdlyt  or  trimofft  and  the  time  tHe  trim  commands  are 

ISSUED.  IT  must  be  FORMATTED  FDR  T3. 

(A)  tri'offt  Determines  the  length  of  time  the  trim  command  will  Be  on,  formatted  for  T3. 

(5)  TRIyIND  determines  the  RIICH  AND  ROLL  COMMAND  TO  BE  ISSUeD.  THe  FORMAT  IS,  BITq=1=+  PITCH  CoMMaND, 
B1tiO=1=-PItCh,  BItii=1=  +ROL.,  BIt12=1=  -ROLL.  A BIt=0  INDICATES  NO  COMMAND.  ANY  COMBINATION  oF  CoMMaNDS  IS 
PERMUTED. 

this  taSc  will  Be  ENTERE*^  but  immediately  ended  if  TRIMSteP  and  NUMtIMeS  = +0. 


REf 


06,3000  ll'PlO  0 NExTTRIm  ccs  TRImSTEP 


REF 

35 

LAST 

35A 

REF 

2 

LAST 

355 

355 

RtF 

3 

LAST 

REF 

i 

REF 

1 

REF 

A 

LAST 

355 

REF 

1 

REF 

A7 

LAST 

35A 

REF 

5 

LAST 

355 

REF 

1 

REF 

36 

LAST 

355 

REF 

1 

REF  6 last  355 
REF  2 last  355 
REf  205  last  353 


REF  2 LAST  355 
REF  9A  LAST  353 
REF  7 LAST  355 
REF  3 LAST  355 
REF  3 LAST  355 

ref  1 

REF  A8  LAST  355 


06 

,3001 

Oo 

, 30O2 

06 

,3003 

06 

,3004 

Ob 

,3005 

06 

,3006 

06 

,300  7 

06 

,30lO 

06 

*3011 

06 

,3012 

06 

,3013 

06 

,301H 

06 

,3015 

06 

*3016 

06 

,3017 

06 

,302° 

06 

,3021 

06 

*3022 

Oo 

,3023 

06 

, 302  A 

06 

,3025 

Oo 

,3026 

Oo 

,302  7 

06 

,3030 

Ob 

*3031 

06 

0032 

06 

,3033 

0 3D03  1 

0 57A5  1 
55'PIO  0 

5I'P10  1 
ll'Sll  1 
0 3D10  0 

J 3DOO  1 
51*510  1 
31*525  1 
0 5701  1 
EA 

D3U31  0 
IADOA  0 
0 57A5  1 

A 3II5  0 
0 ODO6  1 

03  Die  1 

51*510  1, 
11*511  1 
10  DOO  0 
0 3D26  0 

0 3D00  1 
6 7755  1 

51*510  1 
55*511  1 
51*510  1 
31*541  0 
0 5701  1 


T:?IMT0P 


TRIMOFF 

NJMSTEP 

TRIMSET 


rc 

+ 2 

T C 

T5 

T ASkOVER 
TRIMSTEP 

EXIT  HERE. 

LESS  ONE. 

\|DX 

CCS 

TC 

TR I mstep 

NUMTIMES 
+ 2 

EnTEr  HErE. 

TC 

NDX 

CAE 

NEXTTRIM 

TRIMSTEP 

STEPDLYT 

TC 

EBANK= 

2CADR 

waitlist 

TRIMSTEP 

TRIMSET 

TC 

taskover 

CS  TRIMMASK 


extend 

WAND 

12 

TRIM  goes  off. 

NDX 

TR I MSTEP 

CCS 

NUMTIMES 

CCS 

A 

TC 

+ 2 

TC 

NEXTTRIM 

WAS  ONE. 

AD 

ONE 

NDX 

TRIMSTEP 

TS 

NUMTIMES 

NOX 

TH I MSTEP 

CAE 

trimont 

TC 

WAITLIST 
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L L=M  FLIGHI  control  SYSIEM  TtST 


0308  REF  9 

0309 

C0309  REF  i 

0310  REF  37 

0311  REF  1 

0312 

0313 

031A  REF  2 

0315 

0316  REF  1 

0317  REF  1 

0318  REF  16 

0319  REF  22 

0320 

C0320  REF  1 

0321  REF  38 

0322  REF  10 

0323  REf  1 

032A  REF  2 

0325 

0326 

0327  REF  11 

0328  REF  1 

0329  rEf  A9 

0330  REF  12 

0331 

C0331  REF  1 

0332  REF  39 

0333  REF  13 

033A  REf  1 

0335  REF  2a 

0336  REF  1 

0337  REF  28 

0338  REF  1 

0339  REF  29 

03A0  REF  6 

03A1  REF  21 

03A2  REF  10 

03A3  REF  1 

03AA 

03A5  REF  19 

03A6  REF  50 

03A7  REF  23 

03A8 

C03A8  REF  2 

03A9  REF  11 


LAST  355 

06 

06 

LAST  355  06 

06 

06 

06 

LAST  356  Oo 

06 
06 
Oo 

LAST  308  Oo 

last  351 

06 

06 

LAST  356  Oo 

last  356  Oo 

Oo 

LAST  355  06 

06 
06 

LAST  356  Oo 

06 

LAST  355  06 

LAST  356 

06 

06 

LAST  356  06 
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06 
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06 
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06 
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last  3A8  06 

LAST  349  06 

06 
06 

last  347  06 

LAST  356  06 

LAST  356 

06 

LAST  356  06 

last  356  06 


E4 

,303A  03^37  0 

3035  14^04  0 

3035  0 5^45  1 

3037  3 3ll4  0 

3040  0 0006  1 

3041  06  032  0 

304-^  7 3114  1 

3043  0 0006  1 

3044  1 3052  1 

3045  3 5574  1 

3045  0 5523  0 

E4 

3047  03065  1 

3050  14004  0 

3051  0 5^45  1 

305*^  51*510  1 

3053  31*571  0 

305A  7 3II5  0 

3055  0 0006  1 

3055  05  012  1 

305^  51*510  1 

3060  31*555  0 

3061  0 5^01  1 

E4 

3062  03016  0 

3063  14OO4  0 

306A  0 5?45  1 

3065  0 4533  0 

3060  3 3II4  0 

306^  54  337  1 

3070  3 3II6  1 

3071  0 4546  1 

3072  3 3II7  0 

3073  0 4546  1 

307A  0 4511  0 

3075  0 446a  0 

3076  0 5504  0 

307'  0 3IO6  0 

3100  0 0004  0 

3101  3 7/54  0 

3102  0 5'01  1 

E4 

3103  J3O37  0 

3104  I4OO4  0 

3105  0 5504  0 


TRIMON 


TRIMONl 


Perform 
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USER'S  OWN  PAGf  NO.  0 E4 


EBANk= 

TRIMSTEP 

2CADR 

TRIMON 

1C 

TASKOVER 

CAF 

BITSg.lO 

Extend 

RXOR 

32 

MASK 

BiTS9,10 

EXTEND 

3ZF 

TRIMONl 

CAF 

T 

PRI035 

T ^ 

NOVAC 

EBANK= 

jetstep 

2CADR 

Perform 

TC 

TASKOVER 

NDX 

TR I MSTEP 

CAE 

TRlMlND 

MASK 

TRIMMASK 

EX  T END 

WOR 

12 

NDX 

TRIMSTEP 

CAE 

TR I MOFFT 

TC 

WAITLIST 

EBANk= 

TRIMSTEP 

2CADR 

TRIMOFF 

TC  TASKOYER 


IC 

GRABWAIT 

CAP 

trimcode 

TS 

DSPTFMI 

CAF 

V01N25K 

T C 

NV5BWAI T 

CAF 

V50K 

TC 

NVSBWAIT 

T C 

F LASHON 

TC 

endidle 

TC 

ejfree 

T C 

TRl 

INHINT 

CAF 

BIT2 

T C 

WAITLIST 

EBANK= 

JETSTEP 

2CADR 

TRIMON 

TC 

ejfree 

CHECK  PITCH  AND  ROLL  TRIM  FAIL  BITS. 


FAIL  IS  ON.  FLASH  FAIL  CODE  (OI4OO)  AND 
IDLE  UNTIL  SOMEr.NE  RESETS  IT,  TERMINATE^ 

THE  TASK,  OR  DECIDES  TO  PROCEED  WITH  IT. 


SAFETY  PLAY 
TRIM  starts. 


KEY  RELEASE  MAY  COME  ON. 
01400 


PLEASE  PERFORM. 

ANY  RESPONSE  TUaNS  IT  OFF. 

WAIT  FOR  SOMfONf  TO  DO  SOMETHING. 
V34E.  TERMINATE  THE  TASK. 

V33E.  PROCEED  WlTH  THE  FAIL  ON. 
ENTER,  the  FAIL  HAS  BEEN  RESET. 
20MS. 


CHECK  AGAIN  TO  BE  SURE.  THEN  PRjCEED.. 
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0350 

06.3106 

0 odoa 

0 

TRl 

INHINT 

0351 

REF 

20 

last 

356 

06.3107 

3 7 T5A 

0 

CAF 

B1  T2 

0352 

REF 

51 

LAST 

356 

06.311D 

0 5 (01 

1 

TC 

WAITLIST 

0353 

REF- 

Zh 

LASI 

356 

EA 

ebank= 

JET5TEP 

035A 

06.3111 

J3°52 

0 

2CADR 

TRIMONI 

C035A 

REF 

2 

LAST 

356 

06.31U 

IADOa 

0 

0355 

REF 

12 

LAST 

356 

06.3113 

0 590a 

0 

TC 

EJFRFE 

0356 

06.3119 

OlAOO 

1 

BITS9.10 

OCT 

OlAOO 

0357 

Ref 

3 

last 

356 

06*31 lA 

trimcOue 

Equals 

BITS9,10 

0358 

06.3115 

J 7‘*0U 

1 

TR I MMASK 

OCT 

07A00 

0359 

06.311° 

J0125 

1 

V01N25< 

OCT 

00125 

0360 

06.311  t 

O5DOO 

1 

V50K 

OCT 

05000 
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USER'S  OWN  PAGF  no.  ID  EA 

proceed  WITH  THf  FAIL. 

20M5. 


BYPASS  THE  RFCHfCK 
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L LEM  flight  CONTROL  SYSTEM  TLsT  USER'S  OWN  PAGF  NO.  11  EA 

P0361  LEM  FCS  TEST  THROTTLE  TASK 

R0362  this  PROGRAM-  ISSUES  A PROFILE  UF  tHROTTLe  COMMANDS  TO  tHe  LeM  DeSCeNT  eNGINe.  THe  PrOFUe  IS  DeTeRMiNeD  BY 

R036A  THe  YaLUeS  IN  JHe  THRTSieP  REjT^TtR  AND  T He  6 SeTS  OF  REGISTERS,  5 PeR  SeT , CALLeD  DOtIMeS,  DELAY,  THRitIMe, 

Ro366  THCOMMi  and  THC0MM2.  tHe  TMRiSrEP  REGISTER  VALUe  IS  USeD  TO  INDeX  tHe  6 SeIS  OF  s REf.ISTERS  AND  HAS  ALLOWABLE 

Ro368  values  uf  +0  through  +s.  t^e  5 REGISTERS  peR  Set  are  DeFined  as  Follows 

R0369  (1)  dotimes  Determines  He  dumber  of  times  the  throttle  will  be  eXeRCised  as  per  tht  values  of  thritime, 

R0371  THCOMMi  AND  THCOMM2  OF  | Hf  CjrreNI  SteP.  IT  HAS  ALLOWABLE  VALUES  OF  +0  THROUGH  37777  OfT. 

R0373  (2)  Delay  determines  the  time  between  the  start  of  a step  and  the  Be  GINNING  OF  THRiTlMp.  ITIS  CaLLeD  only 

Ro375  once  Per  stlp,i.e.»  Repeats  o-  the  same  thcommi  and  thcomm2  start  at  thritime.  delay  must  re  formatted  for  t3 
R0377  and  hence  HaS  A MAXIMJFi  VaLUe  JF  2 MINUTES. 

R0378  (3)  THRiTIMe  DETERMINES  THe  T^Me  BetWeeN  THe  END  oF  DeLAY  OR  THe  END  OF  THCOMM2  AnD  THe  START  OF 

R0380  thcommi.  IT  MUST  Be  FORMATTED  FOR  T3. 

R0381  (9)  thcommi  AND  (S)  THCUMMe  DETERMINE  THe  NUMBER  OF  THRUST  INCREASE  OR  DeCReASe  PUi  SeS  TOBe  ISSUED  AT  A 

R0383  3.2<PPS  RATE.  THE  RANGe  OF  POSSIBLE  VALUeS  OF  EITHER  IS  FROM  POSMAX  (OCT  37777)  TO  NfGmAX  (OCT  AOOOO)  ALTHOUGH 


R0385  the  actual  tHROTTLE  RANGE  iS  -ROM  OCT  6116  TO  OCt  7i661  (+.-  3l5o  DEC). 

R0386  iHiS  TAS<  wILL  BE  ENTERED  3J I IMMEDIATELY  ENDfD  Ip  THE  INITIAL  VALyES  OF  THRTSIEP  ANn  DOtImES  ARe  +0. 
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3A8 

06,31 Al 
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OAO7 
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WAITLIST 
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CKDOTIME 
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NDX 

THRTSTEP 
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K ih 

C 
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06,3 1 A7 

11*606 

1 

CCS 

dotimes 

0A13 

REF 

20b 

LAST 

355 

06,3150 

10  000 

0 

CCS 

A 

EXIT  HERE. 


ENTER  here. 

NUMBER  OF  TIMPS  COMMANDS  1 AND  2 DONE. 


time  between  steps.  BIAS  FOR  ThRiTIME. 
MUST  BE  scaled  eOR  T3. 


same  remarks  As  for  Thcommi. 

lOMS  IN  CASE  OF  NO  THCOMM2. 
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REF 
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DOTIMES 
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LAST 
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NDX 

THRTSTEP 
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REf 
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06,315  f 

3 1 ' “22 

0 

CAE 
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0421 

REF 

54 

LASl 
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06,3160 

0 5101 

1 

TC 

WAITLIST 

0422 

REF 
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LAST 

359 

E4 

ebank= 

thrtstep 

0423 

06,3161 

03*-64 

1 

2CADR 

THRICOMM 

C0423 

REF 

1 

06,316Z 

I4U0*, 

0 

0424 

REF 

43 

LAST 

358 

06,3163 

0 5145 

1 

TC 

TAS<OVER 

0425 

REF 

12 

LAST 
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06,3164 

51*605 

0 

THRICOMM 

NDX 

THRTSTEP 

0426 

ref 

1 

LAST 

06,3160 

31 *630 

0 

cae 

ThCOMMI 

0427 

REF 

2 

358 

06 ,3166 

0 3174 

0 

TC 

T HROTON 

0428 

REF 

1 

06,3161 

6 3411 

0 

AD 

250MS 

0429 

REF 

55 

LAST 

359 

06,3170 

0 5101 

1 

TC 

WAITLIST 

0430 

REF 

13 

LAST 

359 

EBANK= 

THRTSTEP 

0431 

06,3)71 

03136 

0 

2CADR 

THR2COMM 

C043  1 

REf 

1 

06 , 3 1 7<s^ 

1 4OO4 

0 

0432 

REF 

44 

LAST 

359 

06,3173 

0 5145 

1 

1C 

TASKOVER 

0433 

REF 

1 

06 , 3 1 7 A 

5 4 O55 

0 

T HROTON 

T S 

THRUST 

0434 

REf 

1 

06,3170 

55*405 

0 

1 S 

ThBUF 

0435 

REF 

22 

LAST 

238 

06,3176 

3 7 752 

0 

CAF 

BIT4 

0436 

06,3171 

0 OOO6 

1 

EXTEND 

0437 

06,3200 

05  ou 

1 

WOR 

14 

0438 

REF 

2 

LAST 

359 

06,3201 

31*405 

1 

CAE 

THBUF 

0439 

06,3202 

0 OOO6 

1 

EXTEND 

0440 

06,3203 

6 3405 

0 

3ZMF 

+ 2 

0441 

06,3204 

4 0000 

0 

COM 

0442 

06,3200 

4 OOOO 

0 

COM 

0443 

06,3206 

0 OOO6 

1 

EXTEND 

0444 

REF 

31 

LAST 

298 

06,3207 

7 7744 

0 

MP 

BITIO 

0445 

REF 

159 

LASl 

345 

06 ,32  lO 

0 0002 

0 

TC 

0 

0446 

06,3211 

OOO3I 

0 

25OMS 

OCT 

00031 

USER’S  OWN  PAGf  no.  lii  EA 

WAS  ONE. 

time  between  dOtImes.  Scaled  for  T3. 

SHOULD  BE  NO  lAfGER  ThAN  3150dEc. 

SO  ACE  CAN  SAMPi E, 

THROTTLE  OUTPUT  COUNTER. 

SAVE  FOR  6ZMF. 

enable  thrust  Drive,  command  Siarts  now 

scales  for  T3. 


■> 
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L LEM  FLIGHT  CONTROL  SYSTEM  TLsl  USER'S  OWN  PAGr  NO.  13  EA 

P0AA7  L£M  FLS  TEST  INTERFACE  LOOK  (ASK. 

ROAA8  THIS  program  KeeF^)  A RUN^1IN3  HistoRY  OF  tHe  STATE  OF  ALL  tHe  BItS  IN  INPUT  CHANNELS  30*  31»  32  AND  33, 

ROASO  IT  DOES  This  BY  DETECTING  A Cs/ANgE  Op  AN  INPUT  BIT  FROM  AN  INITIAL  ONp  sTATE  TO  A ZERO  qTATP  OR  pROM  AN  INITIAL 

RoA52  zero  to  A 0\E.  T^E  HISTORY  IS  MAINTAINED  IN  TwO  BUFPeR  ReGISteRS  FOR  pACH  CHANNEL,  ONp  FOR  STORING  ONp  TO  ZpRO 

R0A5A  CHANGES  (3OEUP1,  +1,  +z,  aND  ,3)  AND  oNp  FOR  ZERO  TO  ONp  CHANGES  (30BUF0,  +1  +2  AND  +3).  THE  OPERATOR  MUST 

RoA56  load  the  initial  StATeS  OF  THp  INHUt  CHANNpLS  INiO  THeIR  RESPpCTlVE  BUFFpR  RpGISTERS  BefORe  THIS  PROGRAM  IS  IN- 

R0A58  IlIATED. 

R0A59  to  ALLOa  this  PROGRAM  TO  RON  C(QUItlOO<)  MUST  Bp  SET  GRpATPR  THAN  +0  BeFORe  It  IS  StARTpD,  IF  THp  iPeRAtOR 

ROA6I  does  NOl  Dp-SIRp  this  PROGRA.M  lO  R^N  Hp  SHOULD  Spy  C ( QU I TLOOK  ) = + o BeFORe  STARTING  THp  FCa  TEST.  AFTER  ThIS  TASK 

RoA63  IS  RUNNING  Thp  OPERATOR  CAN  SlOP  M BY  SEITING  COUItLOOK)  = +0. 

ROA6A  Mo  DISPLAYS  OF  ElTHpR  THp  BJFFeR  ReGIateRS  oR  CHANNELS  ARp  INCORPORATED  INTO  THIS  PrqGRaM,  tHIS  WAS  DONp  TO 

RoASS  Allow  the  test  operator  MoNTtORINO  flexibility.  for  Real  time  monitoring  It  is  SUGGeSTfD  that  iHp  BOFFpR 

R0A68  ReGISieRS  Bp  displayed  WItH  tHE  monitor  Verbs  (u  through  15).  on  tHe  OTHeR  hand*  the  nPERATOR  MAY  eLeCT  to 

Roa7o  Perform  no  real  ti^e  monitoring  until  the  test  is  completed,  when  the  buffer  registers  would  be  called  for 

R0A72  display  (VERB  01)  AND  RECORDED. 

RoA73  this  program  IS  PRIMARILY  INTLNDpD  FOR  INTpRFACp  MONITORING  DURING  THp  LpM  VIBRATION  TEST  AT  BeTHPAGE.  N.Y,, 

R0A75  ALTHOjGFi  It  may  also  Be  U.SeLJ.  DURING  VEHICAL  Lt\/EL  EMI  TESTS. 
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LAST 

366 
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VSLI 

BOFF 

0191 

REF- 

4 

LAST 

365 
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0 
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0 
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5 
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0 
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REF 

13 
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0 
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5 
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14,2306 

32622 

0 

NBSM 

THEN  TO  SM  PRFSfNT  FRAME 
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1 
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1 
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0 S-i^A 

0 

1C 

0215 

REF 

8 

lAsi 

366 

lA,232l; 

Zb  ! be 

0 
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1 
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1 
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OLOAD 
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0 
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0 
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1 
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SOUTH 

EAST 
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* 
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TARGET  2 
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0282 
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0288 
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0292  REF  1 
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2A32  3A<^28  0 
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LATITUDE 

VXSC 

OMEG/MS 

ERVECTOR 
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OMEG/MS  = .2A3...  GvRO  PULSES  / 10  MSEC 

LUADTIME 

TMARK 

time  for  gyro  Drift  - pipa  slale  factor 

MAkECADR 

OPLACES 

INTPRET 

CALCULATES  AND  tOMPeNSATeS  EARTH  RATE 

loadtime 

TEMPTIME 

T (PRESENT) 

SL 

TMARK 

90 

MXV 
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2 TO  2IST  POWER  = 1 REVOLUTION 

ERVFCTOR 

XSM 
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ERCOMP 

ERCOMP 

temptime 

TMARK 

T (PREVIOUS) 

RTB 

ERCOMP 

pulsfimu 

TO  PUT  OUl  GYRO  TORoUING  PULSES 
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QPLACES 

BANKJUMP 
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1h 

2510 

31*550 
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371 

14 

2320 

53*354 

0 

OXCH 

03A3 

REF 
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2520 

3 7754 
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14 
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2 

l4 
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14 

14 
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1 

TCF 
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QPLACE 
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3 

RIB 
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QPLACE 
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DSPTEMl 
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DSPTEMl 
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♦A 
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AZIMUTH  CLOCKWISE  FROM  NORTH  TO  TARGET 
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REF 

REF 

REF 

REF 

REF 

ref 

REF 


14,2532 

62S45 

1 

LATAZCHK  3L0AU 

370 

14,253s 

32S11 

0 

371 

14,2534 

14391 

1 

STOOL 

368 

14,253s 

3 2 S 0 7 

1 

14,2536 

r7434 

1 

RTB 

19,2537 

33S67 

0 

362 

19,2540 

5b  !44 

0 

XCH 

372 

14,2541 

5 4 337 

1 

TS 

371 

14,2542 

0 2S56 

0 

fC 

19,2543 

30961 

0 

OCT 

371 

19,2  544 

1 2^47 

0 

T CF 

371 

14,254s 

3 6103 

0 

TC 

19 ,2546 

47 135 

0 

SLOAO 

372 

19,254^ 

30340 

0 

363 

14,2550 

33S24 

1 

372 

19,255! 

3 2 S 0 7 

1 

STORE 

19,2552 

50535 

1 

SLOAO 

372 

19 ,2553 

30341 

1 

372 

19,2559 

32511 

0 

STORE 

14, 255s 

77916 

0 

RVQ 

0369 

0370 

REF 

1 

19,2559 

14,255Y 

0 OOO6 
23*545 

1 

1 

checkld 

extend 

3XCH 

0371 

REF 

2 

LAST 

372 

14, 2 56^ 

51*545 

1 

INDEX 

0372 

REF 

238 

last 

364 

1 4 , 2 5 6 1 

3 0000 

1 

CA 

0373 

REF 

4 

LAST 

294 

14 ,2562 

0 4433 

1 

TC 

0374 

REF 

1 

14,2563 

1 2576 

0 

TCF 

0375 

REF 

1 

LAST 

356 

19,2  5 6^* 

0 4911 

0 

TC 

0376 

REF 

23 

LAST 

361 

19,2565 

0 4^*64 

0 

TC 

0377 

14,2569 

1 25T1 

1 

TCF 

0378 

14,256^ 

1 25  73 

0 

T CF 

0379 

REF 

3 

LAST 

372 

14,2570 

1 2560 

1 

TCF 

0380 

REF 

3 

LAST 

372 

l4,257l 

51*545 

1 

INDEX 

0381 

14 ,2572 

0 ooo  1 

0 

TC 

0382 

REf 

4 

last 

372 

14,2573 

51*545 

1 

INDEX 

0383 

19,257A 

0 0O02 

0 

TC 

0384 

REF 

1 

14,2575 

3 25  77 

0 

CHECKED! 

CAF 

0385 

REF 

3 

LAST 

294 

14,2579 

0 4943 

1 

TC 

0386 

REF 

4 

LAST 

372 

19,2577 

30560 

1 

CHECKLD2 

CADR 
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USEr*S  own  PAGF  no.  12  E5 

SL2 

LATITUDE 

CALLS  FOR  AZIMUtH  (SM)  AND  LATITUDE 

DSPTEMl  +1 
AZIMUTH 

...NOT  really... 

EXIT 

1ST02S 

fraction  Of  revolution  to  2s  cOviPLEMENT 

MPAC 

DSPTEMl 

CHECKLD 

00661 

ENDTEST 

AZIMUTH  MUST  BE  135  DEGREES  R1  = +13500 

FOR  sxt-nb-imu  Fine  alignment  test 

Rl  +-  XXX. XX  AZIMUTH  IN  DEGREES  (SM) 

R2  +-  XX. XXX  latitude  IN  DECREES 

R3  not  used 

INTPRET 

RTB 

DSPTEMl 

CuULOGIC 

AZIMUTH 

BACK  TO  fraction  OF  REVOLUTION 

SR2 

DSPTEmI  +1 
LATITUDE 

QPLAC 

(OPLAC 

A 

NVSUB 

CHECKLDl 

FLASHON 

ENDIDLE 

+ 3 
+ 4 

CHECKED  +2 
CiPLAC 

1 

(3PLAC 

2 

CHANGE  Rl  V21  N61  F +-  XXX. XX  E 

CHANGE  R2  V22  N61  E +-  XX. XXX  E 

VERIFY,  THEN  PROCEED  WITH  VERB  33  ENTER 

CHECKLD2 

NVSUBUSY 

checkld  +2 

^88954A  YJL  SYSTEM  TOR  AGC : .MEW  PROGRAM  SMePATIN  BY  eYLES 


I MU  perkormance  tests  i 


0387 

1A,2600 

0 0D06 

1 

POSNJUMP 

EXTEND 

0388 

REF 

1 5 

LAST 

37 1 

1 A . 260 1 

23' RA6 

1 

□ XCH 

0389 

REF 

2 

LAS  I 

361 

Ih.2602 

51 'PaA 

0 

INDEX 

0390 

1 H . 2 60  3 

1 2P0A 

0 

T CF 

0391 

REF 

12 

LASl 

372 

1“+  »260A 

1 27A7 

0. 

TCF 

0392 

REF 

1 

1^.2005 

1 2P12 

1 

TCF 

0393 

REF 

1 

1 A *260^> 

1 2^17 

1 

T CF 

039A 

REF 

1 

1h  .2607 

1 2935 

1 

TCF 

0395 

REF 

1 

1 A . 26 iD 

1 2956 

1 

TCF 

0396 

REF 

1 

lA,26ll 

1 2710 

1 

TCF 

0397 

REF 

98 

LAST 

36A 

lA  .26lZ 

3 7 755 

1 

POSl 

CAF 

0398 

REF 

3 

LAST 

363 

1 A 1 2 6 1 A 

55 ' PA2 

1 

T S 

0399 

REF 

AA 

LAST 

371 

lA,26iA 

3 7 75a 

0 

CAF 

OAOO 

REF 

A 

LAST 

373 

lA,26l!5 

55'PA3 

0 

TS 

0 AO  1 

REF 

1 6 

LAST 

373 

1 A » 2 6 1 6 

0 1 SA6 

1 

T C 

0A02 

REf 

1 1 

L^Sl 

372 

1A,261 7 

0 6103 

0 

P0s2 

TC 

0A03 

1A,2620 

57P75 

1 

YLOAO 

0 aoa 

REF 

2 7 

LAST 

3 70 

1 A . 2 62  1 

02A01 

0 

0A05 

lA.2b22 

77  7 1 5 

1 

= DVL 

0A06 

REF 

3 

LAST 

333 

1^.2623 

D2A15 

0 

0A07 

REF 

i.a 

LAST 

373 

1A,262A 

26A01 

0 

STOVL 

0A08 

lA.262t> 

77926 

0 

ST  ADR 

0A09 

REF 

A 

LAST 

373 

1a,2626 

75362 

1 

STORE 

OA 10 

!•+  .262  7 

77  776 

1 

EXIT 

OAII 

REF 

98 

LAST 

36A 

1A.2630 

3 7 761 

0 

CAF 

OA  1 2 

REf 

5 

lasi 

373 

IA.2631 

5 5 ' P A2 

1 

T S 

0A13 

REF 

99 

LAST 

373 

lA.2fa3Z 

3 7755 

1 

CAF 

OAlA 

REF 

b 

LAST 

373 

1A,2633 

55'PA3 

0 

TS 

0 A 1 5 

RtF 

1 7 

LAST 

373 

lA .263^ 

0 1 PA6 

1 

T C 

0A16 

REf 

la 

lAst 

373 

IA.2635 

0 6l03 

0 

PDS3 

TC 

0A17 

iH  ,2636 

53375 

0 

YLOAD 

OAl  8 

ref 

29 

LAST 

373 

1 A . 2 6 3 7 

02AO1 

0 

0A19 

REF 

6 

LAST 

366 

1A,26AD 

02  AO  7 

0 

0A20 

LAST 

1A.26A1 

77  71  5 

1 

PDVL 

0A2 1 

REF 

5 

3 73 

lA  .26AZ 

02A1  5 

0 

0A22 

REF 

30 

LAST 

373 

1 A . 26A3 

26A01 

0 

STOYL 

0A23 

1 A . 26A A 

77926 

0 

STADR 

0A2A 

REf 

6 

LAST 

373 

lA  ,26A5 

51P62 

1 

STOVL 
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USER'S  OWN  page  no.  13 
POSITIONS  FOR  SxTNBIMU 

□PLACE 


POSITOn 

+ 1 

EMDTFST 

POSl 

POS2 

POS3 

PuSA 

POS5 


ONE  XSM  = V YSM  = Sw  ZSM  s Se 

PlPNDx 

Two 

PIPNDX  +1  monitor  PIPAY  AnD  PIPAZ 

□PLACE 


INTpRET  XSM  = St  YSM  = Sw  ZSM  s -9 

VCOMP 

XSM 

ZSM 

XSM 

ZSM 


ZERO 

pipndx 

ONE 

PIPNDX  +1  MONITOR  PIPAX  A(,D  PiPAY 

□PLACE 


INTpRET  XSM  = sE  YSM  = V ZSM  s Sw 

POYL 

XSM 

YSM 


ZSM 

XSM 


ZSM 


E5 


'♦8895^A  YJL  SYSIEM  f OR  Ag^:  MtW  PROQ^A^I  SMePATIN  3Y  EYLES 


L I <10  PpREOKMfl.MCE  ftSTS  i 


0425 

1 4 ,2646 

77626 

0 

stadr 

0426 

REF 

7 

LAST 

373 

14,2647 

75370 

1 

STORE 

0427 

14,2650 

77  776 

1 

EXIT 

0428 

REF 

99 

LAST 

373 

14,2651 

3 7 761 

0 

CAF 

0429 

REF 

7 

LAST 

373 

14 ,2652 

55  * 542 

1 

T S 

0430 

REF 

45 

LAST 

373 

14,2653 

3 7754 

0 

CAF 

0431 

0432 

ref 

REF 

8 

18 

lasi 

LAST 

374 

373 

14.2654 

14.2655 

55*543 

0 1546 

0 

1 

TS 

TC 

0A33  REp  15  L^sT  306  14,2656  3 7^51  0 pOsA  cAp 

0434  REF  3 LAS!  365  14,265V  6 OUO  1 AD 

0435  RcF  4 LAST  374  14,2660  53  UO  1 IMDEX 


0436  RcF 

0437  RcF 

0438  RcF 

0439  RcF 

0440  RcF 

0441 

0442  REF 

0443  RcF 

0444 

0445  RcF 

0446  RcF 

0447 

0448  REF 

0449  REF 

0450 


11  LAST  365  14*2661  54  O50  0 TS 

1 14,2662  3 3660  1 OAF 

34  LAST  371  14,2663  0 4646  1 )C 

24  LASi  372  14,266A  0 4464  0 TC 

13  LAST  373  14,2665  1 2147  0 TCF 

14,2666  1 2662  0 KF 

8 last  345  14,266V  3 0400  0 CA 

5 LAST  374  14,2670  50  UO  1 INDEX 

14,2671  54  024  0 TS 

9 LAST  374  14,2672  3 0401  1 CA 

6 LAST  374  14,2673  53  llO  1 INDEX 

14,2674  54  U20  1 TS 

10  LAST  374  14,2675  3 0402  1 CA 

7 LAST  374  14,2676  50  llO  1 INDEX 

14,2677  54  022  0 TS 


0451  REF  19  LAST  373 

0452 

0453  REF  1 

0454  REF  1 

0455 

0456  REF  2 LAST  374 

0457 


14 ,2  TOO 

0 6l03  0 

TC 

14,2701 

45O34  1 

RTB 

14,2702 

33076  0 

14,2703 

33IIO  1 

14,2704 

77634  0 

RTB 

14.2705 

14.2706 

33076  0 

77776  1 

EXIT 

0458  REF  19  LAST  374  14,2707  0 1546  1 1C 
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USER'S  OWN  PAGr  NO.  14  E5 

YSM 

ZERO 

PIPNDX 

TwO 

PIPNOX  +1 
□PLACE 

MONITOR  pIpAx  And  PIPAZ 

8115 

FiXLOC 

FIXLOC 

OpTION  TO  AlIgM  SM  TO  sPEcIfIED  ANglEs 

Si 

V25N22E 

NVSBWAIT 

ENDIDLE 

ENDTE5T 

BASE  address  GImBAL  ANGLES 

Ri  +-  XXX. XX  outer  gimbal  angle 

R2  +-  XXX. XX  inner  gimbal  ANGLE 

R3  +-  XXX. XX  middle  GIMBAL  ANGLE 

-4 

THETAD 

FIXLOC 

24 

ThETAD  +1 
FIXLOC 

20 

THETAD  +2 
FIXLOC 

22 

SET  UP  ANGLES  FnR  SMNB 

INTPRET 

CALL 

TRANSPSE 

SMD/EREF 

earth  REF  WRT  NaV  BASE 

STABLE  member  DfSIReD  WRT  EARTH  ReF 

TRANSPSE 

back  to  NAV  BASF  WRt  TO  EARTH  RfF 

□PLACE 


^8895'fA  yjL  SySTEM  ^ Of<  Ag^:  NbW  pROG^  A V) . S^iEpA  1 I N 0y  Eyl-ES 


L nu  PERbOkMtNCE  TESTS  1 


0459 

REF 

20 

LAST 

374 

l4,27lD 

3 1546 

1 POS5 

CA 

0460 

REF 

3 

LAST 

371 

14,27ll 

55*551 

0 

IS 

0461 

RtF 

3 

LASI 

371 

14*271^ 

0 2503 

0 

I c 

0462 

REF 

20 

LAST 

374 

14,2713 

0 6103 

0 

TC 

0463 

l4,27lA 

77624 

1 

CALL 

0464 

REf 

2 

LAST 

365 

14,2713 

30350 

1 

0465 

14,2713 

41575 

0 

yLOAD 

0466 

14,2717 

00007 

0 

0467 

REF 

8 

LAST 

374 

14,272D 

02407 

0 

STORE 

0468 

14,2721 

76435 

1 

7XV 

0469 

14 ,2722 

00015 

0 

0470 

REF 

31 

LAST 

373 

14,2723 

02401 

0 

store 

0471 

14,2724 

76435 

1 

vxv 

0472 

14,2725 

77626 

c 

STADR 

0473 

REF 

7 

LAST 

373 

14,2726 

75362 

1 

STORE 

0474 

14,2727 

11  rib 

1 

EXIT 

0475 

REF 

4 

LAST 

375 

14,2730 

0 1551 

1 

TC 

Dec  1:(,  1966  (MAIN)  pAGE  375 


USER'S  OWN  PaGf  NO.  15  E5 

□place 

STOREPL 

OPTION  TO  ALIGN  SM  TO  ANY  ORIENtATION 
WRT  earth  REFERENCE  FRAME 

OPTdATA 

INTPRET 

load  ysM  And  zsm  azimuth  and  llevatiOn 

TAR/FREF 

PUSH 

6D 

YSM 

VSLl 

CALC  YSM  AND  ZSn  WRT  EARTH  ReF,  FRAME 

12D 

XSM 

VsLl 

XSM  = (YSM)  X (75M) 

ZSM 

ZSM  = (XSM)  X (vSM) 

STOREPL 

^88954A  YJL  SYSl[;<'t  AGC  : PRO^^^A>i  SH^PATIN  BY  t^LtS 


L nu  PtRf  OPMf  NCt;  TtSTb  1 


0476 

LAST 

14,2731 

C OOO6 

1 

ogczeRo  extend 

0477 

REF 

2 1 

375 

14,2731^ 

2 3 ' 646 

1 

3XCH 

OP  LACE 

0478 

rEf 

21 

las'i 

375 

14,2733 

0 6103 

0 

TC 

InTprET 

0479 

14,2734 

7 7 T 7 5 

1 

VLOAD 

0480 

REF 

5 

LAST 

370 

14,2735 

33I52 

1 

ZERODP 

0461 

REF 

4 

LAST 

370 

14,2736 

02  (72 

1 

STORE 

ERCOMP 

0482 

14 ,2737 

77(76 

1 

EXT  T 

0483 

REF 

22 

LAST 

376 

14,2740 

0 1646 

1 

TC 

QPLACE 

0A8A  REF  26  Last  806  14,27^1  3 7Y50  1 GMLCKCH<  CAF  B1T6 

0485  REF  46  LAST  317  14,2744  7 0^26  1 YAS<  DSPTAB  +1 

0486  14,2743  0 0O06  1 EXTEND 

0487  14,27AA  1 2746  1 3ZE  +2 

0488  REF  14  Last  374  14,274l>  1 2^47  0 TCF  ENDTEST 

0489  REF  161  LASi  365  14,2746  0 0002  0 TC  Q 


0490  REF  7 LaSt  125  14,2747  3 7 <’A6  0 ENDTEST  CA  ImUSEFLG 


0491 

REF 

4 

LAST 

164 

14,2750 

0492 

REF 

209 

LAS  I 

3 (2 

14,2751 

0493 

14,2752 

0494 

REF 

26 

LAST 

364 

14,2753 

0495 

REF 

27 

LAS : 

376 

14,2754 

0496 

REF 

7 

LAS  1 

310 

14,2756 

0497 

14,2756 

6 7 (’47  1 AD  RRUSEFLG 

4 OOOO  0 CS  A 

0 0004  0 inhint 

7 0074  0 MASK  STATE 

54  O7A  0 TS  state 


0 4105  1 

TC 

NEWMODEX 

00000  1 

OCT 

00000 

0498  REF  46  LAS!  370  14,2757  0 5424  0 TC  BANKCALL 

0499  REF  3 LAST  364  14,2760  27060  1 CADR  MkRFIEAS 

0500  REF  13  LAST  357  14,2761-  0 5604  0 TC  EjFREE 
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USER'S  OWN  PAGF  no.  16  E5 

zero  earth  rate  TORqUING  angles 


VECTOR  IN  THIS  rASE 


D 


CHECK  FOR  GIMBAI  LOCK  (MGA  GREATER  70) 


B1T8 

BIT7 


release  mark  system 
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L HU  PeRPORMANle  tests  i USER'S  OWN  PAGf  NO.  W E5 


0501 

RSF 

22 

LAST 

376 

14.2762 

0 6l03 

0 

LEMLAb 

TC 

InTprET 

0502 

14 .2763 

57575 

1 

y/LOAO 

VlOMP 

0503 

REF 

2 

LAST 

332 

14.276A 

33I46 

1 

YUNIT 

050A 

REF 

2 

LAST 

328 

14.2765 

02A37 

0 

ST  ORE 

ZNB’ 

XNB  matrix  USFD  IN  rALCGA 

0505 

REF 

31 

LAS  r 

366 

14.2766 

26^61 

0 

STOVL 

STARAD  +12D 

STARAD  MATRIX  USED  IN  AXISGEN  « SMDCALC 

0506 

REF 

2 

LASi 

332 

14.2767 

33I5O 

0 

XUNIT 

0507 

REF 

4 

LASi 

328 

14*2770 

02423 

0 

STORE 

XNB 

''XNB''  "1  0 0"  "V" 

0508 

RiF 

32 

LAST 

377 

14 .2771 

26A45 

0 

stovl 

SI  ARAD 

» I*  * * * 

O5O9 

R;F 

2 

LASi 

332 

i4  %2nii- 

33I44 

0 

ZUN I T 

»YNB»  = »0  0 1»  *S*t 

0510 

REF 

2 

LAST 

328 

14.2773 

02A31 

0 

STORE 

YNB 

0511 

REF 

33 

LAST 

377 

14 .277A 

02A53 

1 

STORE 

SIARAD  +6 

*ZNB**  40  -1  C "E* 

0512 

14 .277S 

77  776 

1 

EX  1 T 

0513 

REF 

3 

LAST 

373 

14.2776 

4 1544 

1 

CS 

POSITON 

05  1 A 

REf 

18 

LAS  i 

3 ? 1 

Ih . 2 7 7 ! 

6 6301 

0 

ad 

T hRFE 

0515 

14.3000 

0 0006 

1 

EXTEND 

0516 

14.3001 

1 3P03 

0 

3ZF 

*•2 

0517 

REF 

1 

14.3002 

1 3'116 

1 

T CF 

LEMLABI 

0518 

REF 

23 

LASI 

377 

14.3003 

0 6103 

0 

TC 

INTPRET 

0519 

14 .300“+ 

57575 

1 

VLOAU 

VCOMP 

0520 

REF 

5 

LASi 

377 

14.3005 

02A23 

0 

XNB 

0521 

14.3006 

7 7 715 

1 

ROVL 

I'XNBt  4 0 -1  04  4\/4 

0522 

REF 

3 

LAST 

377 

14.3007 

02^37 

0 

ZNB 

444  444 

0523 

REF 

6 

LAST 

377 

14 .3010 

02^23 

0 

STORE 

XNB 

4YNB4  =40  0 l4  4S4 

0524 

REF 

34 

LASI 

377 

14.3011 

26A45 

0 

STOVL 

STARAD 

4 4 4 4 4 4 

052  5 

14.3012 

77626 

0 

STAOK 

4ZNB4  4-1  n 04  4 4 

0526 

REF 

4 

LAST 

377 

14.3013 

75340 

1 

STORE 

ZimB 

0527 

REF 

35 

LAST 

377 

14.3014 

02461 

0 

STORE 

SIARAD  ♦IZD 

0528 

14.3015 

77  7 76 

1 

EXIT 

0529 

REF 

47 

LASI 

376 

14*3016 

0 5224 

0 

lemlabi 

IC 

BANKCALL 

0530 

REf 

1 0 

LASI 

3 70 

14.301 ^ 

26  7 62 

0 

CAdR 

imustall 

INSURE  IMUZERO  rOMPi.ETION 

0531 

REF 

15 

LAST 

376 

14.3020 

1 2 747 

0 

TCK 

ENDTEST 

0532 

REF 

2 

LASI 

361 

14.3021 

0 2600 

0 

TC 

PQSNJUMP 

SET  UP  STABLE  MfMBER  DEGIRED  COORDINATEG 

0533 

REF 

10 

LAST 

362 

14.3022 

0 4713 

0 

TC 

FREEDSP 

FREE  DISPLAY  SYSTEM 

0534 

REF 

2 

LAST 

361 

14 .3023 

0 2247 

1 

T C 

PUT  POSX 

TO  COARSE  ALIGN  S 1 ArLE  MEMBER 

0535 

REF 

2 

LAST 

361 

I4.302A 

0 2 741 

1 

TC 

gmlckchk 

0536 

REF 

48 

LAST 

37  1 

14.3025 

0 5224 

0 

TC 

BANkCALL 

0537 

REF 

3 

LASi 

361 

14.3026 

26251 

0 

CADR 

IMUFINE 

FINE  ALIGN  MODE 

0538 

REF 

49 

LAST 

in 

14.302  ^ 

0 5224 

0 

T C 

BANKCALL 

0539 

REF 

11 

LASi 

in 

I4.3O3O 

26  762 

0 

CADR 

IMUSTALL 

0540 

REF 

16 

LAST 

in 

I4.3O3I 

1 2 747 

0 

TCF 

ENDTEST 

^asgs-tA  YJL  stsiem  i^or  agc:  new  program  shepatin 


L I'lU  PERhoRMnNCE  TESTS  1 


05A1 

REF 

13 

LAST 

342 

14*3032 

3 0032 

0 

05A2 

REF 

8 

LAST 

374 

14*303-^ 

50  1 10 

1 

05A3 

14*3034 

54  0^4 

0 

05A4 

REF 

7 

LAS) 

342 

14*303^ 

3 OO33 

1 

0545 

REF 

9 

LAS! 

378 

14*3039 

50  1 10 

1 

0546 

14*303  7 

54  o^o 

1 

0547 

REF- 

9 

LAST 

342 

14*30a0 

3 OO34 

0 

0548 

REF 

10 

LAST 

378 

14  *304! 

50  110 

1 

0549 

14*3042 

54  022 

0 

0550 

REF 

16 

LASl 

3 74 

14*3043 

3 7751 

0 

0551 

REF 

11 

LAS  I 

378 

14*3044 

6 Olio 

1 

0552 

REF 

12 

LAST 

378 

14*3048 

50  llO 

1 

0553 

REF 

1 2 

LAS  r 

374 

14  *3049 

54  050 

0 

0554 

REP 

2 

LASl 

362 

14*304  7 

0 2263 

1 

0555 

REF 

24 

LAST 

377 

14*3050 

0 6l03 

0 

0556 

14*3051 

7/634 

0 

LAST 

0557 

R- F 

3 

370 

14*3052 

33521 

1 

0558 

REF 

5 

LASl 

370 

1^*3053 

02565 

0 

0559 

14*3054 

77  776 

1 

0560 

REF 

4 

LAST 

362 

14*3055 

4 1512 

1 

0561 

R£F 

46 

LAS  I 

374 

14*3056 

6 7754 

0 

0562 

14*3057 

0 0OO6 

1 

0563 

14*3060 

1 3062 

1 

0564 

REF 

3 

LaS  i 

362 

14*3061- 

1 2O5I 

0 

0565 

REF 

50 

LASl 

37  7 

l4  * 3062 

0 5224 

0 

0566 

REF 

1 

14*3063 

47237 

1 
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ca 

INDEX 

TS 

CA 

INDEX 

TS 

CA 

INDEX 

TS 

CDUX 

FIXLOC 

24 

CDUY 

FIXLOC 

20 

CUUZ 

FIXLOC 

22 

CAP 

AD 

INDEX 

TS 

BITS 

FIXLOC 

FIXLOC 

Sl 

rc 

SMDCALC  TO  FINE  ALIGN  StABLf  MeMBER 

TC 

RTB 

INTPRET  IF  earth  RATE  COMPENSATION  DeSIRED 

LOADTIME 

STORE 

EXIT 

TMARK 

cs 

Ad 

EXTEND 

3zr 

EROPTN 

Two 

+ 2 

TCF 

ERFINAL  +2 

TC 

CADR 

BANkCALL 

SAMoDRTN  RETURN  TO  SEMI -aUTOMAT  I L MODING  TEST 
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L Hu  PERi-ORmANcE  tests  1 


0567 

REF- 

1 

19,3069 

3 3376 

0 

0568 

REF 

23 

LAST 

376 

19,3063 

55*396 

0 

0569 

rEi- 

51 

LAs  i 

378 

I9 , 3066 

0 5229 

0 

05  TO 

REF 

2 

LAST 

190 

19*306  ! 

20297 

1 

0571 

REF 

52 

LAST 

379 

19,3070 

0 5229 

0 

0572 

REF 

2 

LAS- 

199 

19,3071 

22  (65 

0 

0573 

REF 

1 

19,307Z 

1 2326 

0 

0579 

REF 

53 

LASi 

379 

19,3073 

0 5229 

0 

0575 

REF 

3 

LAST- 

190 

19,3079 

26(56 

1 

0576 

REF 

53 

LAST 

308 

19,3073 

1 5305 

0 

057  ? 

REF 

25 

LAS  1 

378 

19 ,307R 

0 6 1 03 

0 

0578 

19,3077 

7(170 

1 

0579 

19, 3100 

ooooo 

1 

0580 

19,3101 

00O06 

1 

0581 

19,3102 

77329 

1 

0582 

RzF 

3 

LAST 

375 

19,3103 

30353 

1 

0583 

19,3109 

69375 

1 

0589 

19,3103 

00015 

0 

0585 

REF 

32 

LAST 

375 

19,3106 

02901 

0 

0586 

19 ,310Y 

77  (72 

0 

0587 

REF 

9 

Last 

170 

19,3110 

39916 

0 

0588 

REF 

1 

19,3111 

20306 

0 

0589 

REF 

1 

LAST 

19,3112 

1 3117 

1 

0590 

REF 

59 

379 

19,3113 

0 5229 

0 

0591 

REF- 

9 

LAST 

379 

19,3119 

26  (56 

1 

0592 

0593 

REF 

REF 

59 

55 

Last 

LASi 

379 

379 

19,31  13 

19,3116 

1 5305 

1 5305 

c 0 

RDR37511  CAP  RDRRETN 

TS  OPLACE 


TC  BAnKCALL 

CAOR  RRZFRO 

TC  BANkCALL 

CADR  AURLOKON 

RDRl  TCP  QPTRDRIN 

TC  baNkCALL 

CADR  RADSTALL 

ICF  ENDOFJOB 


TC  INTPRET 

AXT,1  AxT,2 
0 
6 


CALL 

TAR/EREF  +3 
YLOAD  MaV 

I2D 
XSM 

vSL  1 

STCALL  RRTARGET 
RRDESSM 

TCF  37511ALM 

TC  BANKCALL 

CADR  RADSTALL 

TCF  ENDOFJOB 

TCF  ENDOFJOB 


0599 

REF  30 

LAST  351 

19,311  ( 

0 9(99 

1 

37511ALM  TC 

ALARM 

0595 

19,3120 

00529 

1 

OCT 

529 

0596 

REF  56 

LASI  379 

19,3121 

1 5305 

0 

TCF 

ENDOFJOB 

0597  RcF  TOO  LAST  379  H,312C  A 7(61  1 RDRINIT  CS  ^ERO 

0598  REF  5 LAST  378  H,3123  55'P12  1 IS  EROPTN 

0599  REF  2 last  197  U,312A  1 2OO2  0 TCF  AuTNBIMU  +2 


jSer'S  Own  pagf  no.  19  e5 

RENDEZVOUS  RADAR  ANn  ANTENNA  TRACKING 
TO  return  from  nPTDATA 

operator  decision  to  lock  on  or  not 
CALL  For  azimutm  and  elevation 


SET  UP  XI  ANd  X7  fOd  TAR/EREf 

LINE-OF-SIQhT  WrT  EARTH  REF  FRAME 

LINE-OF-SIGHT  WRT  EARTH  REF  FRAmE 
TO  STABLE  MEMBER  PRfSENI  FRAME 
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L HU  performance  tests  1 


USER'S  OWN  page  no.  20 


0600  REF  lA  LAS',  3S6  lA,312S  0 At>33  0 MISALIGN  TC  GRABWAIT  DISPLAY  SYSTEM  WAS  FREED 

0601  REF  101  LAST  379  1A,312P  3 7(61  0 CAF  ZERO 


0602 

REF 

6 

LAST 

LAST 

LAST 

LAST 

0603 

060A 

0605 

ref 

REF 

REF 

7 
31 

8 

0606 

REF 

32 

LAST 

0607 

REf 

1 

0608 

REF 

9 

LAST 

0609 

REF 

210 

LAST 

0610 

REF 

19 

LAST- 

0611 

REF 

10 

LAST 

0612 

REF 

1 

0613 

REF 

11 

LAST 

3 71  1 A * 3 1 2 7 

380  1A,3130 

371  lA,313l 

380  1A,3132 

38O  lAt3133 

1A,313A 
380  1A,3135 

376  iA,313P 

377  1A,3137 

380  1A,31A0 

I A .31A1 
380  1A»31A2 


55'P37  0 
S1'P37  1 
A 167A  1 
S1'P37  1 
27'  (02  1 
3 3R6A  0 
6 H37  1 
13  000  0 
A 6301  1 
27'P37  0 
1 3T3O  1 
S5'P37  0 


TS 

BBBB  index 
CS 

INDEX 

ADS 

cae 

AD 

CCS 

CS 

ADS 

TCP 

TS 


NDXCTR 
NdXCTR 
GENPL  +68D 
NDXCTR 
GENPL  '•7AD 
63DFC 
NDXCTR 
A 

THREE 

NDXCTR 

BBBR 

NDXCTR 


E5 


061A 

REF 

26 

LAST 

379 

lA  ,31A3 

0 6T03 

0 CCCC 

TC 

INTPRET 

0615 

1 A » 3 1 AA 

70(50 

1 

LXA  1 1 

DLOADx 

0616 

REF 

12 

last 

380 

lA  ,31A!> 

02P37 

1 

NDXCTR 

0617 

REF 

33 

LAST 

380 

1A.31A6 

02  (01 

0 

GENPL  +720,1 

0618 

1 A » 3 1 A ( 

77P25 

0 

OSU 

0619 

REF 

3A 

LAST 

380 

1A,3150 

02P71 

0 

GENPL 

0620 

REF 

35 

LAST 

380 

lA,315l 

06(01 

1 

STORE 

GENPL  +72D,1 

0621 

1A,3152 

77(76 

1 

EXIT 

0622  REF  13  LAST  380  1A*3153 

0623  REf  1 1A,315A 

062A  REF  211  LAST  380  1A,3153 

0623  REF  20  LAST  380  lA.3156 

0626  REF  lA  LAST  380  1A,3157 

0627  REF  1 1A,3160 

0628  REF  5 LAST  371  lA,316l 

0629  REF  £1  LAST  380  1A,3162 

0630  REF  15  LAST  380  1A,3163 


A IP37 

0 

CS 

NDXCTR 

6 3^65 

1 

ad 

69DFC 

10  000 

0 

CCS 

A 

3 6A01 

0 

CAF 

THREE 

2 7 ' P37 

0 

ADS 

NDXCTR 

1 3iA3 

0 

TCF 

CCCC 

55'P50 

1 

TS 

RUN 

3 600 1 

0 

CAF 

THRFE 

55'P37 

0 

TS 

NDXCTR 

0631 

rEf 

E7  last 

380 

1A,316A 

0632 

0633 

REF 

6 LAST 

376 

1 A , 3 1 65 
1A,3166 

063A  1A,3167 

0635  1A.3170 

0636  lA*317l 


0637 

REF 

1 

1A,3172 

0638 

0639 

1 A , 3 1 7O 
1A,317A 

0 6^03 

0 DODD 

TC 

INTprET 

77(75 

1 

VLOAD 

33T52 

1 

ZERODP 

00031 

0 

STORE 

2AD 

OOO37 

0 

STORE 

30D 

77(35 

0 

SLOAD 

31R62 

1 

IIDEC 

OOOa  1 

1 

STORE 

32D 

77  (76 

1 

EXIT 

06A0  ref  28  LAST  380  lA.3173  0 6^03  0 DDDDl  TC  INTPRET 


1A,3176  70  (50  I LXA.l  DLOADiF 

1A,317(  32P37  1 NdXCTR 


06A1 

06A2  REF  16  last  380 
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0643 

REF 

36 

LAST 

380 

u, 

0644 

1 ^ » 

0645 

REF 

37 

LAST 

381 

0646 

14, 

064  7 

REF 

38 

LAST 

38l 

I4  , 

0648 

REF 

39 

LAST 

381 

14, 

0649  14 t 


0650 

14, 

0651 

1 4 , 

0652 

REF 

40 

LAST 

381 

14, 

0653 

14, 

0654 

14 , 

0655 

14, 

0656 

14, 

0657 

14  , 

0658 

REF 

6 

LAST 

380 

14, 

0659 

REF 

17 

LAST 

380 

1 4 , 

0660 

14  , 

0661 

REF 

2 

LAST 

380 

14, 

0662 

REF 

212 

LAST 

380 

14, 

0663 

REF 

9 

LAST 

260 

14  , 

0664 

REF 

18 

last 

381 

14, 

0665 

REF 

1 

14, 

0666 

ReF 

7 

last 

381 

14  , 

0667 

REF 

19 

LAST 

381 

14, 

3200  32T01  0 

3201  41A23  1 D5U* 

320<i  32673  1 

3203  ^*2^42  0 SRI 

3204  32673  1 

3205  36/01  1 . STORE 

3206  43^12  0 SL2 

320/  30031  0 

3210  20031  1 STOOL* 

3211  32/01  0 

32U  63^12  0 SL4 

3213  77615  0 3AD 

321A  00033  1 

32lS  30033  1 STORE 

3210  77/76  1 EXIT 

3217  3i»S50  0 CAE 

3220  fa  1337  1 AD 

3221  4 OOOO  0 COM 

3222  fa  3664  0 AD 

3223  13  000  0 CCS 

322A  3 6276  1 CAE 

3223  27*537  0 ADS 

3226  1 3I75  0 TCF 

3227  6 1550  0 AD 

323O  55*537  0 TS 


0666  rEf  29  lAsT  380  14 

0669  14 

0670  REF  20  LAST  381  14 

0671  REF  41  LAST  381  14 

0672  14 

0673  14 

0674  14 

0675  14 

0676  14 

0677  14 

0678  14 

0679  14 

0680  14 

0681  14 

0662  14 

0663  14 

0684  REF  42  LAST  381  14 

0685  14 

0686  14 

0687  14 

0688  14 


3231  0 6103  0 EEEE  Tc 

3232  66/40  1 LXC,1 

3233  32537  1 

323A  32504  1 

3235  00043  0 store 

3235  77/45  1 3L0AD 

3237  54^:06  1 PUSH 

3240  20211  1 

3241  43265  1 3DD\/ 

3242  00043  0 

3243  30O35  1 

324A  I4O35  1 STODL 

3245  55261  1 SL 

3246  20207  0 

324/  3OO43  0 

3250  42523  0 PDDL* 

3251  32502  1 

3252  77505  1 3MP 

3253  77515  0 DAD 

325A  30037  0 

3255  OOO37  0 STORE 
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GENPL  +72D,1 
PUSH 

GENPL  +66U,1 
DAD* 

GENPL  +660,1 
GENPL  +720,1 

DAD 

240 

240 

GENPL  +720,1 

Dsa 


26D 

26D 

RUN 

NDXCTR 

63DEC 

A 

six 

NDXCTR 

DDDDl 

RuN 

NDXCTR 


iNTpRET 

SLOAD* 

NDXCTR 

GENPL  +11D,1 
34D 

SL 

8d 

DAD 

34D 

26D 

28D 

BDDV 

6 

34D 

SL4 

GENPL  +90,1 


30D 

300 
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L 

0689 

I MU 

PtRf  Or^MANCE. 

tests  1 

1A,3256 

7FF76 

1 

Exit 

0690 

REF 

i 

LA6  1 

381 

1 A * 325  F 

A 1537 

0 

cs 

0691 

REF 

1 

1A,3260 

6 3663 

1 

AD 

0692 

REF 

8 

LAST 

361 

lA .3261 

6 1550 

0 

AD 

0693 

REF 

213 

LAST 

381 

lA .3262 

1 D 000 

0 

CCS 

069A 

REF 

10 

LASi 

381 

1A,3263 

3 6‘F76 

1 

CAF 

0695 

0696 

REF 

REF 

22 

1 

LAST 

382 

lA  ,326A 
IA.3265 

27'P37 

1 3231 

0 

0 

ADS 

TCF 

0697  REF  30  LASl  381  lA 

0698  lA 

0699  lA 

0700  lA 

0701  lA 

0702  lA 

0703  iH 

070A  lA 

0705  lA 

0706  lA 

0707  lA 

0708  lA 

0709  lA 

0710  lA 

0711  lA 

0712  lA 

0713  lA 

071A  REF  1 lA 

0715  lA 

0716  REF  9 last  287  lA 

0717  lA 

0718  REF  A LASl  377  lA 

0719  R::F  10  lAS'i  382  lA 

0720  REF  1 lA 

0721  REF  35  LAST  37A  lA 

0722  REF  8 LAST  372  lA 

0723  REF  25  LAST  37A  lA 

072A  REF  1 f LAST  377  lA 

0725  REF  22  LAST  380  lA 

0726  REF  9 LmST  382  lA 

0727  REF  102  LAST  380  lA 

0728  REF  1 l<t 


3266  0 0^03  0 1C 

3267  A1^A5  0 OLOAD 

3270  OOO31  0 

3271  00O37  0 

3272  A1325  0 PDDL 

3273  00033  1 

327A  OOO35  1 

3273  7?325  0 OSU 

3276  63325  0 PDDL 

3277  00031  0 

3300  633A2  1 SRI 

3301  OOOaI  1 

3302  A1261  1 5L 

3303  20212  1 

330A  OOU33  1 

3305  55'i25  1 OSU 

3306  5a^05  1 OMP 

3307  31P75  1 

3310  2020a  0 

3311  003A3  0 STORE 

3312  77F76  1 EXIT 

3315  3 13aA  0 CA 

331A  5A  5aA  0 TS 

3315  3 3656  1 CAF 

3316  0 a9A6  1 TC 

331 1 0 a911  0 TC 

3320  0 aA6A  0 TC 

3321  1 2'A7  0 TCF 

3322  3 6501  0 CAF 

3325  b5'550  1 TS 

332A  3 7F6I  0 CAF 

3325  i 3l63  1 TCF 


OEC  U,  1966  (MAIN)  PAgE  382 
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t5 


NDXCTR 

60DEC 

RUN 

A 

SIX 

NDXCTR 

EEEF 


INTPRET 

DMP 

2AD 

30D 

DMP 

26D 

2aD 

DSQ 

2AD 

PDDL 

32D 

DMP 

11 

2bD 

BODY 

SL 

KKKK 

3 

DSPTEM2 


POSITON 
DSPTEM2  +2 

\/06N66E 

NVSBWAIT 
FLASHQN 
END  IDLE 
ENDTEST 
THREE 
RUN 
ZERO 
DDDD  -1 
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l^tC  !•?,  1966  (MAIN)  PAGe  383 


L Iviu  PERfORMANcE  TESTS  1 USER'S  Oi/jN  pAGF  NO.  23 

Ro729  this  Revision  reflects  changes  a5  of 

R0730  1/31/66 

R0731  E'IGINE  UN/OFF  NOW  IN  CHANNEL  ELEVEN.  THE  BITS  FoR  EACH  CHANNEL  GET  TURNeD  ON  ALL  At  ONfE.  THeY  STAY 
Ro733  (eNIlRJIS  pushed.  THeN  tHEY  ALL  GO  OU f AND  THe  NeXT  CHANNeL:S  BItS  ARe  tURNeD  ON. 

R0735  CHANNEL  5 BI I S 1-8 

R0736  CHANNEL  6 HITS  1-8 

R0737  CHANNEL  11  TIT'S  13,19 

R0738  CHANNEL  12  BITS  9-19 

R0739  FOLLOrtl.-G  THE  CHANNEL  12  TeStS  ENIeR  IS  PRESSED.  CHANNEL  I2  IS  SET  TO  ZERO  AND  THE  NeXt  IEAT  BEGUN. 

Ro79i  goes  in  Location  (Counter)  ss. 

R0792  increase  THROTTLE  RAIE  DESCENT  ENGINE 

Ro793  ienter:  now  Causes  the  contenis  ot  ss  to  be  made  negative 

R0799  DECREASt  THROTTLE  RATE  DESCENT  ENLiINe 

Ro795  the  nexi  te'.TeR:  zeROS  THr  Reoisier  and  Sends  a pjlse  train  (HeRe  alteRn 
Ro796  zeros  For  clariiy)  to  the  aLtiijde  Meter. 


R0797 

R0798 

THE 

the 

NlXT 

NtX' 

:e’ 

:e 

ter: 

TlR 

WILL  advance  the  tlSt  to  THe  altitude 

WILL  TERMINWT::  I HL  TEST. 

Raie  Meter  test. 

0799 

REp 

16 

last 

3O2 

19,3326 

3 7(35 

1 

SAuTOIpS 

CA 

PUSmAx 

0750 

REF 

1 

19,3327 

55 ' S76 

0 

IS 

NUBITS 

0751 

REF 

103 

last 

382 

19,3330 

3 7(61 

0 

CA 

ZERO 

0752 

REF 

1 

19,3331 

55'S77 

1 

IS 

CHAN 

0753 

REF 

1 

19,3332 

55 ' S75 

0 

T S 

TEMP 

0759 

REF 

1 

19,3333 

0 3335 

1 

TC 

dino 

0755 

REF 

2 

last 

383 

19,3339 

25'S77 

0 

BACK  1 

INCR 

CHAN 

0756 

REF 

3 

LAST 

383 

19,333s 

51'677 

0 

DINO 

INDEX 

CHAN 

0757 

ref 

1 

19,3336 

3 3390 

0 

CA 

SAUTLOCS 

0758 

REF 

3 

LAST 

186 

19,3337 

1 5230 

1 

TCP 

SWCALL 

0759 

REF 

1 

19,3390 

31359 

1 

SAUTLOCS 

CADR 

CHAN5D 

0760 

REF 

1 

19,3391 

31372 

0 

CADR 

CHAN6D 

0761 

REF 

1 

19,3392 

31900 

1 

CADR 

ChANI ID 

0762 

REF 

1 

19,3393 

31H12 

1 

CADR 

CHAN12D 

0763 

REF 

1 

19,3399 

31^29 

1 

CADR 

piitrde 

0769 

REF 

1 

1 9 , 339S 

31A5I 

0 

CADR 

ptdtrde 

0765 

REF 

1 

19,3396 

31526 

1 

CADR 

altmet 

0766 

REF 

1 

19,3397 

31S53 

0 

CADR 

altrmet 

0767 

RcF 

la 

LAS  1 

3 82 

19,3350 

30  (97 

0 

CADR 

EnDTEST 

0768 

REF 

2 

LAST 

383 

19,3351 

31^56 

1 

THROTADD 

CADR 

PIDTRDE  +5 

0769 

REF- 

2 

last 

383 

19,3352 

31531 

1 

meteradd 

CADR 

ALTMFT  +3 

0770 

REF 

2 

last 

383 

19,3353 

3 1 5 5 6 

0 

mrat  eadd 

CADR 

altrmet  +3 

0771 

REF 

a 

LAST 

399 

19,335A 

3 1 (60 

1 

C H A N 5 D 

CA 

Five 

0772 

REF 

36 

Last 

372 

19 ,335s 

5 9 337 

1 

I S 

DSPTEMl 

0773 

REF 

7 

LAST 

316 

19,3356 

3 9S53 

0 

2ENTRY 

CA 

LUW8  channel  6 RETURNS  HERE 

0779 

REF 

57 

LAST 

383 

19,3357 

59  3a0 

1 

TS 

DSPTEMl  +1 

0775 

19,3360 

0 OOO6 

1 

EXTEND 

0776 

REF 

2 

LAST 

383 

19,3361 

5 1575 

1 

INDEX 

TEMP 

0777 

19,3362 

01  005 

0 

write: 

5 

E5 

OH  until 

L0h9 


^88954A  YJL  SYSieM  fON  AGC.  NeW  SHePatIN  BY 


nu  PERfOKMCNCE  TtSTS  l 


0778 

REF 

1 

14 

0779 

REF 

36 

LAST 

382 

1 4 

0780 

REF 

1 

14 

0781 

REF- 

37 

LAST 

384 

14 

0782 

REF 

26 

LAST 

382 

14 

0783 

REF 

19 

LAST 

383 

14 

0784 

REF 

1 

1 4 

0785 

REF 

3 

LAST 

383 

14 

0766 

REF 

38 

LAST 

383 

14 

0767 

REF 

104 

LAST 

383 

14 

0788 

14 

0789 

1 4 

0790 

REF 

1 

14 

0791 

REF 

1 

LAST 

14 

0792 

REF 

39 

384 

14 

0793 

REF 

1 

14 

0794 

REF 

40 

LAS  1 

384 

14 

0795 

14 

0796 

14 

0797 

REF 

105 

LAST 

384 

14 

0802 

0803 

0804 

0805 

0806 

0807 

0808 

0809 

0810 
0811 
0812 

0813 

0814 

0815 

0816 

0817 

0818 

0819 

0820 
0821 
08215 
0822 

C0822 

0823 

0824 


REF 

REF 


REF 

REF 

REF 

REF 

REF- 

REF 

R£f 

REF 

REF 


REF 


42  LASI  364 


2 LASi  384 
2 LAST  384 


106  LAST  384 

43  LAST  384 

44  LAST  384 
4 LAST  384 

29  LAST  371 
2 LAST  383 


59  last 
33  last 


363 

379 


2 LAST  384 


3365 

3366 
336  V 

3370 

3371 

337^; 

3373 

337A 

3375 

3376 
337^ 

3400 

3401 
340£ 

3403 

3404 

3405 

3406 
340  7 

3410 

3411 

34l^ 

3413 

34IA 

3415 

3416 

3417 

3420 

3421 

3422 

3423 

3424 

3425 

3426 

3427 

3430 

3431 

3432 

3433 

3434 

3435 

3436 

3437 

3440 

3441 

3442 


3 3645  0 
0 4646  1 

3 3652  0 
0 4646  1 
0 4464  0 
0 2747  1 

0 3334  0 

25*575  1 


24  337 
3 7 761 


0 0006  1 
01  005  0 
0 3356  1 
3 4517  0 
54  337  1 
3 5*^26  1 
54  3a0 

0 OOO6  1 
05  On  1 
3 7 761 
0 0006 

01  006 
0 3363 
3 4557 


54  337  1 

4 5*726  0 
0 OOO6  1 

03  On  1 

3 3050  1 
54  340  1 
0 OOO6  1 

05  012  1 
0 3363  1 

4 3050  0 
0 OOO6  1 
03  012  1 
3 7761  0 
54  337  1 
54  3^0  1 
55*575  0 
3 7755  1 


55*576  0 

0 OOO4  0 

0 5701  1 
E5 

03462  1 

3OOO5  1 


0 0003  1 
3 3652  0 


3ENTRY 

4ENTRY 

CHAK6D 

CHANllD 


CHAN12D 


PT ITRDL 

PIT 
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CA 

(/O4N3OD 

TC 

NVSBWA I T 

CAF 

WAITER 

T C 

NVSBWA I T 

TC 

EnDIDLE 

TC 

ENDTEST 

TC 

BACK  1 

INCR 

TEMP 

INtR 

dsptfmi 

CAF 

ZERO 

EXTEND 

WRITE 

5 

TC 

2ENTRY 

CA 

OCT  11 

T S 

DSPTEMl 

CA 

BIT13-14 

IS 

DSPTFMI  +1 

EXTEND 

wOR 

11 

CAF 

ZERO 

EXT  END 

WRITE 

6 

rc 

3ENTRY 

CA 

OCT  12 

TS 

DSPTEMl 

cs 

B 1 T 1 3-I4 

EXTEND 

wAND 

11 

CA 

CH12BITS 

TS 

DSPTEMl  +1 

EXTEND 

wOR 

12 

TC 

3ENTRY 

CS 

CH12B1TS 

EXTEND 

wAND 

12 

CA 

ZERO 

T S 

DSPTEMl 

IS 

DSPTFMI  +1 

TS 

TEMP 

CA 

BlTl 

TS 

Nobits 

INHINT 

T C 

waitlist 

EDANK= 

XSM 

2CADR 

THROTASK 

USER*S  OWN  PaGf  NO.  24  E5 

CHn,i2  return  aeRe  to  use  the  display 


WAITER  IS  03300 


GET  RID  OF  channel  5 BITS 


WOR  IS  non  exclusive  OR 


relint 

CA  WAITER 
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DEC  I966  (MAIN)  PAGE  385 


L 

0825 

0826 

0827 

0828 

0829 

0830 

0831 

0832 

0833 
083A 
0835 

R0836 

0837 

0838 

0839 

OSAO 

08A1 

08A2 

08A3 

08AA 

08A5 

08A6 

0847 

08^8 

0849 

0850 

0851 

0852 

0853 

0854 

0855 
08555 

0856 
C0856 

0857 

0858 

0859 

0860 
0861 
0862 

0863 

0864 

0865 

0866 

0867 

0868 

0869 

0870 

0871 


IMU  PERFORMANCE  TESTS  1 


REF  38  LASI  384  14,3443  0 4046  1 IC 
REF  27  LAST  384  14,3444  0 4464  0 TC 
REF  20  LASI  384  14,3445  0 2 F47  1 TC 
REF  107  LAST  384  14,3440  3 7^61  0 CA 
REF  3 LAST  384  14,3447  55*576  0 TS 
REF  2 LAST  384  14*3450  0 3334  0 TC 


USER'S  0<YN  PAGf  NO.  25  E5 

NvSBWAIT 

ENDTDLE 

ENDTEST 

ZERO 

NUBITS 

BACKl 


REF  1C8  LAST  385 


14,3451  3 7F6I  0 PTOTRDE  CA 


ZERO 


REF 

2 

LAST 

359 

REF 

1 

REF 

1 

REF 

8 

LAST 

363 

REF 

17 

LAST 

383 

REF 

5 

LAST 

384 

REF 

24 

LAST 

315 

ref 

1 

REF 

4 

LAST 

385 

REF 

2 

LAST 

385 

REF 

5 

LAST 

385 

REF 

7 

LAST 

362 

REF 

48 

LAST 

362 

REF 

6 

LAST 

385 

K CF 

1 

ref 

8 

LAST 

290 

REF 

3 

LAST 

385 

REF 

23 

LASI 

359 

REF 

27 

LAST 

376 

14.3452  54  O55  0 

14.3453  3 3351  0 

14.3454  55*574  1 

14.3455  0 5563  1 

14,3455  3 7F35  1 

14,345F  55*575  0 

14.3460  3 yF47  1 

14.3461  0 3435  0 

14.3462  11*576  0 

14.3463  0 3470  1 

14.3464  3 1574  0 

14.3465  55*576  0 

14,3460  0 5567  0 

14,3467  0 5F45  1 

14,3470  11*575  0 

U*347l  0 3504  0 

14.3472  3 4552  1 

14.3473  b'-i  055  0 

14.3474  3 7F52  0 

14.3475  0 OOO6  1 

14,3470  05  OlA  1 

14,3477  3 yfbO  1 


TS 

THRUST 

CA 

TS 

TC 

ThROTADD 

TEMPADD 

JOBSLEEP 

THIS  INHIBITS  Tf E NfXT  TASK  UNTIL 

current  TASK  HAS  BEEN  COMPLETED 
CA  POSMAX 

TS  TEMP 

CA  BIT7 

TC  PIT 

THROTAS<  CCS  NuBITS  IS  THIS  TASK  STTLL  REQ 

TC  +5  YES 

CA  tempadd  no 

TS  NOBiTS 

TC  JOBWAKE 

TC  TASKOVER 

CCS  TEMP 

TC  SOMETIME 

CA  LOwll 

ALWAYS  TS  THRUST 

CA  B1T4 

EXTEND  A SMERZH  FIX. 

WOR  14 

CA  BIT6  320  MS. DELAY 


REF  60  LAST  384 
REF  34  LAST  384 

REF  2 LAST  384 
REF  49  LAST  385 
REF  9 last  385 
REF  1 

REF  6 last  385 

REF  3 LAST  385 
REF  7 last  385 
REF  8 LAST  385 
REF  50  LAST  385 
REF  1 

REF  2 LAST  95 
REF  16  LAST  271 


REF  28  LAST  385 


14.3500 

14.3501 

14.3502 

14.3503 

14.3504 

14.3505 
14,3500 
14,3507 

14 .3510 

14.3511 

14.3512 

14.3513 

14.3514 

14.3515 
14,3510 
14,3517 

14.3520 

14.3521 


0 5FOI  1 
E5 

03462  1 
30005  1 

0 5F45  1 

4 4052  0 

0 3473  1 

11*576  0 

0 3014  1 

3 1574  0 
55*576  0 
0 5567  0 

0 5F45  1 

3 3046  0 
54  060  0 
3 7F53  1 
0 0006  1 

05  01^,  1 
3 7F50  1 


sometime 

ALTASK 


TC  WAITLIST 
EBANK=  XSM 
2CADR  THROTASK 

TC  taskoyer 

CS  LOWll 

TC  ALWAYS 

CCS  NOBITS 

1C  +5 

CA  TEMPADD 

TS  NOBITS 

TC  JOBWAKE 

TC  TASKOVER 

CA  ALBITS 

TS  ALTM 

CA  B1T3 

EXTEND 
WOR  14 

CA  Bll6 


IS  TASK  STILL  Rf Q 
NO 

ENABLES  NEXT  TAAK 

ACTUAL  TASK  STAbTS  HERE 

320  Mb.  delay 


48895^A  YJL  system  TOR  AGC;  NtW  PRO<jRAM  SMEPATIN  3Y  EYLES 


L 

0872 
08725 

0873 
C0873 

087A 

0875 

0876 

0877 

0878 

0879 

0880 
0881 
0882 

0883 

0884 

0885 
08855 

0886 
C0886 

0887 

0888 

0889 

0890 

0891 

0892 

0893 

0894 

0895 

0896 

0897 

0898 

0899 
C0900 

0901 

0902 

0903 

0904 


iviu  PERHORMtNCE  TESTS  1 


REF 

61 

LAST 

385 

14,3522 

REF 

35 

LAST 

385 

14,3523 

REF 

1 

14,3524 

RET 

51 

LAST 

385 

14,3525 

REF 

1 

14,3526 

REF 

4 

LAST 

385 

14,3527 

REF 

9 

LAST 

385 

14 , 353O 

RET 

109 

LAST 

385 

14,3531 

RET 

7 

LAST 

385 

14,3532 

RET 

2 4 

LAST 

385 

1 4 « 3 5 3 3 

14,3534 

14,3535 

0 5 701 

1 

TC 

L5 

EBAN<= 

03506 

1 

2CADR 

3OOO5 

1 

0 5745 

1 

TC 

3 3352 

0 ALTMET 

CA 

55*574 

1 

rs 

0 5563 

1 

TC 

3 7 761 

0 

CA 

55*575 

0 

TS 

4 7 ?52 

1 

cs 

0 0006 

1 

EXTEND 

03  014 
0 0004 

1 

0 

WAND 

INHINT 

RET  100  last  373 
REF  62  LAST  386 
REF  36  LAST  386 

REF  2 LAST  386 

REF  3 LAST  384 
REF  39  last  385 
REF  28  LAST  385 
REF  21  Last  385 
RET  110  LAST  386 
RET  8 LAST  385 
REF  3 LAST  386 

RET  1 

REF  5 LAST  386 
REF  10  LAST  386 
REF  101  LAST  386 
RlF  8 LASr  386 

REF  cl  LASi  357 


14,3537  3 7F55  1 CA 

14.3540  0 5701  1 FC 

E5  EBANK= 

14.3541  03P06  1 2CADR 

14,354F!  30^05  1 

14.3543  0 0003  1 RELINT 

14.3544  3 3852  0 CA 

14,3543  0 4846  1 TC 

14.3546  0 4464  0 TC 

14.3547  0 2747  1 IC 

14.3550  3 7761  0 CA 

14.3551  55'376  0 TS 

I41355I-  0 3334  0 TC 

14,3553  3 3353  1 ALTRMET  CA 

14,355A  55*374  1 TS 

14,3555  0 5363  1 TC 

14,3558  3 7755  1 CA 

14,3557  55*375  0 IS 

iH,3560  3 7 754  0 CA 

14.3561  0 0006  1 EXTEND 

14.3562  05  014  1 WOR 


REF  3 LAST  383  14,3563  0 3336  1 


1C 


WAITLIST 

XSM 

ALTASK 

TASKOVER 

METFRADD 

TEMPADD 

JOBSLEEP 

ZERO 

TEMP 

BIT4 

14 


ONE 

WAITLIST 

XSM 

Alt  ASX 


WAITER 

NVSBWAIT 

ENDIDLE 

EIMDTEST 

ZERO 

NOBITS 

BACKl 

MRATFADD 

TEMPADD 

JOBSLEEP 

ONE 

temp 

BIT2 

14 

ALTMET  +8D 
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USER'S  OWN  PaGf  no.  26 


E5 


TEMP  WILL  BE  INDEXED  TO  ACQUIRE  BIT2  IN3 
TEAD  of  B1T3 
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L.  HU  PlKEOKM^'.NCE  TL^’TE  1 USER'S  OWN  PAGe  NO.  27  E5 

P0905  THE  AOI  AnGLL  CHECKING  PROGRAM  PROVIDES  A S^PLE  VERiFjCATiOn  OF  THE  ACCURACY  OF  ThE  AOT.  THE  (DEA  jS  TO 

Ro907  CDMPUie  the  ANGLE  BeT^<EEN  T^D  LINES  OF  SlGHl  AS  INDICATED  BY  tHe  AOT  , WHICH  IS  WHAT  THH  PRoGRAM  DOeS. 

Ro909  INDePENLeNT  KNOWLEDGE  Of  iHE  INCLUDED  ANGLe  PROVIDES  A COMPARISON  AND  THUS  A MeASURe  OF  THE  AOT  ACCURACY, 

R0911  Tf'E  ISS  need  NOI  Be  oH  ID  RU(vj  jhIS  PROGRAM, 


0912 

rSf 

31 

LAS'i 

382 

14.356A 

0 6l03 

0 

aoTangck  tc 

InTprET 

0913 

14,356S 

77^14 

0 

SET 

Exit 

IN  CASE  the  ISA  IS  OFF. 

091A 

REF 

6 

Last 

366 

14 .3566 

D0U65 

1 

CUAROFIN 

0915 

REF 

3 

LASl 

362 

1 4 . 3 5 6 f 

0 2135 

1 

TC 

FINDNAVB 

FOR  LOSl  AND  Lf  S2. 

0916 

REF 

32 

LASI 

387 

14,357° 

0 6103 

0 

TC 

INTPRET 

0917 

14,3571 

47375 

0 

VLOAD 

VXV 

0918 

REF 

2 

LAST 

364 

14,357^^ 

D2601 

1 

LOSl 

0919 

REF 

2 

LAST 

365 

14,3573 

02607 

1 

L0S2 

0920 

14 ,357^ 

77946 

0 

AbV  AL 

0921 

REF 

12 

LaSI 

339 

14,3576 

24U23 

0 

STOVL 

SINIH 

SINTH  = ABVAL  (VXV  ) , 

0922 

REF 

3 

LAST 

387 

14,3576 

02601 

1 

LOSl 

0923 

14 , 3577 

77641 

1 

DOT 

0924 

REF 

3 

LAST 

387 

14 ,3b00 

02607 

1 

LUS2 

0925 

REF 

10 

LASI 

339 

l4 , 3b0 1 

34°21 

0 

ST  CALL 

COSTH 

COSTH  = V.V 

0926 

REF 

8 

LASI 

339 

14,3602 

32643 

1 

ARCTRIG 

0927 

14,3603 

77634 

0 

RTB 

0928 

RcF 

2 

LAST 

372 

1 4 * 3604 

33^67 

0 

1 STO2S 

DP  IS  COMP  TO  SP  2S  COMP, 

0929 

REF- 

6 

LASI 

324 

14,3606 

OOU25 

0 

STORE 

THETA 

0930 

14,3606 

77  f76 

1 

EXIT 

0931 

REF 

1 

14,3607 

3 3677 

1 

CAF 

1 HETAADR 

0932 

REF 

13 

LASI 

370 

14,361° 

6 olio 

1 

AD 

FIXLOC 

0933 

REF 

223 

LAST 

372 

l4,36l i 

54  l46 

0 

TS 

MPAC  +2 

0934 

REF 

1 

14 ,3o12 

3 3655 

1 

CAF 

V06N03E 

XXX, XX  degrefs  in  R1« 

0935 

REF 

•tO 

LaSI 

38b 

14,3u13 

0 4646 

1 

TC 

NVSBWAIT 

0936 

REF 

22 

LASI 

386 

14,36lA 

1 2147 

0 

TCF 

EiNDTEST 

488954A  YJL  SYSieM  HOR  AGC;  NeW  PRO'^RA'I  SHePATIN  BY  eYLe 


L nu  PeRi-OKMaNCe  TtSTb  1 


0937  E3  £BAN<=  1900 

0938  19*3c>15  0 0^09  0 ZeROERAS  INHINT 


09381 

REF 

1 1 1 

LAST 

386 

09382 

rbf 

2 

LAS  i 

89 

0939 

REF 

1 

0990 

REF 

19 

LAST 

3l6 

0991 

0992 

REF 

219 

LAST 

382 

0993 

LAST 

3 78 

0999 

RaF 

97 

0995 

ref 

15 

LAST 

388 

0996 

REF 

8 

LASl 

383 

215 

0997 

R 6r 

LAS  I 

388 

0998 

REF 

1 

0999 

REF 

16 

LASl 

388 

0950 

REF 

1 

0951 

REF 

31 

LAST 

309 

0952 

REF 

3 

LAST 

290 

0953 

09531 

REF 

112 

LAST 

388 

09532 

REF 

5 

LAST 

99 

0959 

0955 

REF 

102 

LAS1 

386 

0956 

09565 

REF 

2 

LASl 

388 

19.3616 
19 . 3bl  ^ 
19,3620 
19,3o2l 
19 ,3b22 
19,3623 

19.3629 

19,3623 
19 ,3o26 
19,3627 

19.3630 

19. 3631 

19.3632 

19.3633 
19,363^. 
19,3o33 
19,3636 
19,363? 

19.3690 

19.3691 

19.3692 

19.3693 
19,369A 


3 ??61  0 
59  026  1 
3 3699  1 
59  003  0 
22  007  0 
50  000  1 
23*901  0 

6 7?59  0 
26  ^^03  0 

7 9653  1 
10  000  0 
1 3622  0 
10  U03  0 
1 3636  0 
0 5^93  1 

02000  0 
0 0003  1 
3 7?61  0 
59  347  0 

0 0O09  0 
9 7?55  0 

1 3622  0 
00027  1 


ZEROLP 


ZEROLPl 


0CT27 


CAF 

ZERO 

I S 

T I NE3 

CAF 

0CT27 

IS 

EBANK 

ZL 

INDEX 

A 

LXCH 

1901 

AD 

Two 

ADS 

EbANk 

MASK 

r r c 

LUW8 

A 

TCF 

ZEROLP 

CCS 

EBANK 

rcF 

ZEROLPl 

TC 

POSTJUMP 

CADR 

SLAPl 

1 1 

CAF 

ZERO 

TS 

DSRUPTSW 

ii\n  1 ivi  1 

cs 

ONE 

TCF 

OCT 

ZEROLP 

27 
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USER'S  OWN  PAGf  no.  2“ 

PROGRAM  BY  MUNT7  TO  ZeRO  eRASeABLe 


E5 


KEEP  T9RUPT  GOING,  BUT  NOT  CYCLING 


488954A  YJU  SYSi^M  FOR  AGCj  Ne^  PRO'jRAY  S^ePATIN  3Y  eYLe3 


L I^U  PcRrOKMANCt  TESTS  i 


0958 

0960 

0961 

0962 

0963 
096A 

0965 

0966 


REF  8 LAST  367 


REF  5 last  360 
REF  1 


lA  ,36A5 
lA ,36A6 
lA  ♦36AV 


1A,3650 

lA,365l 


E5 

00‘*30  0 
52525  1 
70T07  0 
A557 
A517 
37AOO  1 
30130  0 


V0AN30D 

ALBITS 

T ARSBITS 

0CT12 

OCTll 

CH12BITS 

V01N30D 


0967 


1A»3652  33300  1 WAITER 


0968 

1A,3653 

3OI3O 

0 

V01N3OE 

0969 

1 A * 365^ 

00530 

1 

V05Ai30E 

0970 

1A,365S 

30603 

1 

V06N03E 

0971 

1a,3656 

00666 

1 

\/06N66E 

V / ^ / Pk ' ^ ^ Q 

0972 

1 A » 365 Y 

32'*30 

1 

V 24N3Ut 

0973 

1A,3660 

32522 

0 

V25N22L 

09  ^A 

iA  ,366i 

00^^13 

u 

1 loto 

0975 

lA  »366E 

00021 

1 

17DEC 

0976 

1 A 1 3663 

00D7A 

OOO77 

1 

60DEC 

0977 

lA  »366A 

1 

63DEC 

0978 

IA.3665 

00105 

0 

69DEC 

0979 

lA  ♦366A> 

OOllC 

1 

72DEC 

0980 

1 » 3 6 6 T 

05670 

0 

30SEC 

0981 

lA  ,367G 

13560 

0 

60SEC 

0982 

REF 

9 

LAST 

389 

1 A * 367 1 

oPoo 

0 

OoCADR 

0983 

REF 

A3 

LAST 

381 

1A,367A 

01570 

1 

GENPLADI 

098A 

REF 

AA 

LAST 

389 

lA i3673 

32570 

1 

genpladr 

0985 

1Ai367^ 

30322 

1 

K<KK 

C0985 

1 A »3675 

1 A366 

1 

0986 

REF 

1 

1A,3676 

O3D73 

0 

rdrretn 

0987 

REF 

7 

LAST 

387 

1A,3677 

0OO2A 

1 

thetaadr 

0988 

REF 

37 

LAST 

386 

lA  *3700 

OlAOO 

1 

xsmadrx 

0989 

1 A *3701 

2A365 

1 

SCALFTR 

C0989 

1 A k 3702 

302  AA 

0 

0990 

lA ,3703 

07923 

1 

OviEc,/MS 

CO99O 

1A,370A 

26552 

1 

EBANK= 

OCT 

OCT 

OCT 


OCT 

OCT 


OCT 


OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OEC 

OEC 

OEC 

OEC 

OEC 

OEC 

OEC 

OEC 


ADRES 

ADRES 

ECADR 

2DEC 

ADRES 

ECADR 

ADRES 

2DEC 

2DLC 


Dec  U?  1966  (MAIN)  page  389 


OGC 

00A30 

52525 

70707 

TEN 

NINE 

37A00 

00130 

03300 

USER'S  OWN  page  no.  29  E3 

00130 

00530 

00603 

00666 

FOR  FINDNAvb 

FOR  OPTDATA 

02A30 

02522 

FOR  POSITION  LOAD 

FOR  P0S4 

11 

17 

60 

63 

69 

72 

FOR  MISALIGN 

FOR  SIORRSLT 

3000 

6000 

3000  X 10  msec 

6000  X 10  msec 

OGC 

GENPL 

FOR  ZEROING 

GENPL 

210.39  B-14 

FOR  POSA 

1230  B-lA  FOR  CsM 

RDRl  +1 

THETA 

FOR  RDR37511 

XSM 

FOR  MAKEX5MD 

• 6 A 

FOR  StORRSLT 

.2A3390A8 

gyro  PULSES  / in  MSEC 

48895‘+A  YJL  bYSiaM  FOR  AGC;  MgW  PRO'^RA'I  SH|-PatIN  BY  eYLlA 


L HU  PtKFuRMANCt  TLSTS  1 

P099i  TUf  FoLLoWIt^o  RoUjINE  RHe  CLoCK  An3  SCaLaR  (CHANNELS 

R0993  data  rtAS  NOT  IN  TRANSITION  WHEN  II  WAS  READ. 


099A 

0995  50H 

0996  SOIL 

0997  REF  1 5017 

0998  REF  71  LAST  371  5020 

0999  5021 

1000  REF  ^ LAST  39O  5022 

1001  5023 

1002  502H 


5015 

BLOCK 

02 

0 0609 

0 

F 1 NET  I Me  1 NH I nT 

0 0006 

1 

EXTEND 

00  009 

0 

READ 

LOSCALAR 

5 9 Oo  1 

1 

TS 

L 

U OOO6 

1 

EXTEND 

06  009 

0 

RXOR 

LoSCALAR 

0 OOO6 

1 

EXTEND 

1 5030 

0 

3ZF 

+ 9 

1003  5025 

lOOA  REF  3 last  390  5026 

1005  REF  72  LASI  390  5027 

1006  REF  18  last  385  5030 

1007  REF  73  last  39O  5031 

1008  5032 

1009  REF  9 LAST  362  5033 

1010  503** 

1011  REF  1 5035 

1012  REF  162  LAST  376  5036 

lOlA  REF  2 LAST  370 

1015  REP  55  last  379  HtSi'OS 

1016  REF  12  LAST  377  l‘+,3706 

1017  REF  23  LAST  387  1Ai3707 


0 OOO6  1 EXTEND 

00  ooA  0 read  LOScAlAR 

59  OOl  1 TS  L 

9 7F35  0 +9  CS  PoSMAX 

6 0001  0 AD  L 

0 0O06  1 EXTEND 

1 5OI6  1 3ZF  FINFTIME  +1 

0 0OO6  1 EXTEND 

00  003  1 READ  HISCALAR 

0 0002  0 TC  Q 

19*3705  SETLOC  OMEG/MS  +2 

0 5229  0 REDYlOR<  TC  BANkcALL 

26762  0 CADR  IMUSTALL 

1 2F97  0 ICF  ENDTEST 


1018  REF  2 LAST  361  l9*37l0 

1019  REF  33  last  307  19»3711 

1020  19,3712 

1021  REF  2 LAST  361  19,3713 

1022  19,371A 


0 2131 

0 

TC 

ogczero 

0 6103 

0 

1 C 

INTPRET 

77629 

1 

call 

3090  7 
77  176 

1 

1 

EXIT 

ERTHRVSE 

1023  REF  1 1-,«3715' 

1029  REF  3 last  239  19,3716 

1025  REF  1 19,371Y 

1026  19,3720 

1027  19,3721 

1028  REF  98  LAST  388  19,3722 

1029  19,3723 

1030  REF  103  LAST  388  19,3729 

1031  REF  1 19,3725 

1032  REF  56  LAST  390  19,3726 

1033  REF  1 19,372^ 


3 1617 

0 

CA 

OPTNREG 

b 5355 

1 

AD 

NEG2 

55*616 

0 

rs 

gytobeto 

0 OOOb 

1 

EXTEND 

1 3129 

1 

3ZF 

+ 3 

3 7159 

0 

CAF 

Two 

0 3125 

1 

TC 

+ 2 

3 7 155 

1 

CAF 

ONE 

55*672 

1 

rs 

CDUNDX 

0 5^29 
50597 

0 

1 

TC 

CADR 

BANKCALL 

ENABLE 

DeG  1^,  1966  (MAIN)  page  390 


USER'S  OWN  PAGF  no.  30  E5 

3 and  9)  INTO  A AND  L,  tNSURING  T^At  T^^E 

Returns  with  interrupt  inhibited. 


See  if  2 readinc.s  agree,  if  not,  read 
loscalar  again. 


IF  clock  rippied  before*  it  wont  now. 


IF  Low  PART  Contains  something  less  than 
POSMAX,  THE  high  PART  CAN  BE  READ  SAFELY 

TRY  AGAIN  - CONDITION  WILL  DISAPPEAR. 


SETS  UP  EARTHRAtE  ANGLES  AND  TIME 


INITIALIZE  CDUNDX  FnR  PULSE  CATCHING 
C(K)  WAS  9 2 1 NOW  CIA)  IS  2 0 -1 
C(K)  = 2, 0,-1  FriR  X,Y,Z. 


C(K) 


1 FOR  Y,  2 For  Z CDU  SELfCT 


488954A  YJL  SYSTEM  f- OR  AGC : NEW  PROGRAM  SHePATIN  3Y  eYLeS 


dec  U,  1966  (MAIN)  PAGE  39i 


L HU  PER)  ORI-IANCE  TESTS  2 


USER'S  OwN  PAGE  NO,  1 


0001  2A*2000  3AN<  2A 

0002  REF  38  LAST  389  ES  EBANK=  XSM 


00021 

RTF 

113  last  388 

24,2000 

00022 

REF 

1 

24 ,200l 

00023 

REF 

1 

24,2002 

00024 

REF 

1 

24,2003 

00025 

RrF 

1 

24,2004 

3  7^61  0 HUIEST  cA  ZERO 

55'P76  0 TS  DRIFTT 

55*  H2  0 TS  GeOCOMPS 

3 3(07  1 CAF  ISECX 

55* (Ah  0 rs  ISECXT 


0003 

rtf 

34 

LAST 

390 

24,2005 

0004 

24,2006 

0005 

REF 

2 

LAST 

361 

24,2007 

0006 

24,2010 

0009 

REF 

104 

LAST 

390 

24,2011 

0010 

REF 

5 

LAST 

382 

24,20H 

0011 

REF 

1 1 

LAST 

382 

24,2013 

0 6103 

0 

GEOiMUTT  TC 

ImTPreT 

(7624 

1 

CALL 

30532 

0 

LATAZCHK 

77(76 

1 

EXIT 

3 7(55 

1 

CA 

One 

55  * 544 

1 

TS 

positon 

4- 

4- 

LTV 

0 

TS 

DSPTFM2  •^2 

12  R:: 

0013  REF 
OOlH  REF 

0015  REF 

0016  REF 

0017  REF 

0018  REF 

0019  REF 

0020  REF 

0021  REF 

0022  REF 

0023  REF 
002A  ref 
0026  REf 

0028  REF 

0029  REF 

0030  REF 
R0031  A3oU 

0032  REF 

0033  REF 


11  LAST  37A 

12  LASI  391 

13  LAST  391 
67  LAST  390 

3 LAST  361 

58  LAST  391 
13  LAST  390 

1 

1h  last  391 

12  LAST  391 
23  LAST  302 

1 

2 LAST  391 
1 

13  LASI  391 

59  last  391 

3 last  366 

gimbal  lock 
1 
1 


2h 
2h 
2h 
2h 
2a 
2h 
2A 
2A 
24 
2 A 
2A 


2014 

2015 

2016 
2017 
2020 
2021 
2022 

2023 

2024 

2025 

2026 


29  »202  ( 
2H'2030 
24,2031 
24,203^ 


2h  ,2033 
24,2034 


54  400  1 
54  401  0 
54  402  0 
0 5^24  0 
26O00  0 

0 5‘(24  0 
26(62  0 

1 2<(45  1 
3 7(61  0 
54  343  1 
55»537  0 
55*574  1 
55*575  0 
3 3P37  0 
54  342  0 
0 5<i24  0 

26U65  0 


r-tUBACK 


TS 

TS 

TS 

TC 

CADR 

TC 

CADR 

TCF 

CA 

i S 

TS 

TS 

T S 

CAf 

TS 

TC 

CADR 


24.2035  0 3571  1 TC 

24.2036  0 36OO  1 TC 


THETAD 

THETAD  +1 

THETAD  +2 

BANKCALL 

IMUZERO 

BANKCALL 

IMUSTALL 

ENDTESTl 

ZERO 

DSPTEM2  +1 

NDXCTR 

TURQNDX 

TURQNDX  +1 

TESTTIME 

DSPTEM2 

BANKCALL 

IMUCOARS 

SHOWLD 

SHOW 


drift  and  scAi e factor  Test 


COMPASS  COMES  TN  HFrE 


ISS  returns  in  rOARSE  ALIGN  MODE  TO 
enable  operator  to  decide  what  to  do 


0034  R^F  60  last  391  24,2037 

0035  REF  1h  LAST  391  24,2040 

0036  REF  2 last  391  24,2041- 

0037  REF  1 24,2042 

0038  REF  1 24,2043 

0039  REF  1 24,2044 

C0040 

0041  REF  1 24,2045 


0 5^24  0 TC  BANKCALL 

26(62  0 CADR  IMUSTALL 

0 2L45  0 TC  ENDTESTl 

0 3346  0 TC  NBPOSPL 

0 3IOI  1 TC  POSGMBL 

0 2110  0 TC  PIPACHK 

0 3126  1 TC  FALNE 


IF  MGA  IS  60DFG+  PRoG  WILL  STAY  IN  C0AR5 

align  and  Measure  vertical  pipa  rate 


48895^A 


L 

0042 

0043 

0044 

00442 

00443 

0045 

0046 

0047 

0048 

0049 

0050 

0051 

0052 

00521 

00522 

00523 

00524 

00525 

00526 

0053 
005301 

00531 

00532 

0054 

0055 

0075 

0076 
0081 
0082 

0083 

0084 

0085 

0086 

0087 

0088 

0089 

0090 

0091 

0092 

0093 

0094 

0095 

0096 

0097 

0098 

0099 

0100 
0101 


yJL  SrSltM  FOR  AOC;  MeW  PRO'J^AM  SHePatIN  Br  eYLeS 


1*1U  PtKFUKMANCE  TESTS  2 


REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 


REF 

REF 

REF 

REF 

REF 


REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REf 

REF 

REF 

REF 

REF 

ref 

REF 


Dec  1966  (MAIN)  page  39<1 

USER'S  OWN  PaGf  no.  2 E5 


61 

LAST 

391 

24  , 

15 

LAS  1 

391 

24  t 

3 

LAST 

391 

24, 

2 

LAST 

391 

24, 

1 

2h, 

35 

LAST 

391 

24, 

24  , 

5 

LAST 

372 

24, 

24, 

1 

24  , 

6 

LAST 

392 

24 , 

24, 

1 

24 , 

1 

24, 

1 

24  , 

1 

24  , 

2 

LAST 

392 

24, 

1 

24, 

3 

LAST 

392 

24 , 

24, 

2-,, 

1 1 

LAST 

3 7 7 

24 , 

1 

24, 

62 

LAST 

392 

24, 

1 

24 , 

2 

LAST 

71 

24, 

24  , 

115 

LAST 

391 

24, 

14 

LAST 

391 

24 , 

1 

24 , 

15 

LAST 

392 

24, 

6 

LAST 

391 

24, 

1 

24 , 

2 

LAST 

391 

24, 

2 4 

LAST 

391 

24  , 

24, 

63 

LAST 

392 

24, 

3 

LAST 

365 

24, 

1 

24, 

1 

24 , 

33 

LAST 

364 

24* 

1 

LAST 

24, 

105 

391 

24  , 

1 

24, 

116 

LAST 

392 

24  , 

3 

LAST 

363 

24 , 

6 

2 

LAST 

LAST 

362 

392 

24, 

24, 

2050 

2051 

2052 

2053 
205A 
205s 

2056 

2057 
2060 
2061 
2062 
2063 
206A 

2065 

2066 
206  7 

2070 

2071 

2072 

2073 
207A 
2073 

2076 

2077 
21OO 
2 1 Ol 
2102 

2103 

2104 

2105 

2106 
210  7 

21  lO 

2111 

2112 
2113 

2IIA 

2113 

2116 

2117 

2120 

2121 

2122 

2123 

212A 

212S 


0 5224  0 

26762  0 

1 2245  1 

11*742  0 

0 2073  1 

0 6l03  0 
n3A5  0 
32311  0 
72^76  1 
16373  1 
32311  0 
72356  1 
26371  0 
11711  0 


26721  1 


11717  0 
26727  1 
11725  1 
32  735  1 
77776  1 
3 2O74  0 
3 4713  0 


51*344 

55*351 


GJESS 


0 3614  1 
3 5224  0 
72014  1 


IC 

CADR 

rcF 

CCS 

rc 

TC 

3L0AD 

3C0MP 

STOOL 

SIN 

STOVl 

STOVL 

STOVL 


STORE 

EXIT 

TC 

JJMPLOAD  TC 
TC 
TC 

CADR 


0 4I47  1 TORQUE 
30O05  1 
3 7761  0 
54  342  0 
3 1640  1 
54  343  1 


0 36OO  1 

51*337  1 
0 2112  1 
0 5224  0 

30424  0 

3 3642  1 
55'632  0 
3 7744  1 
55*327  1 
3 7755  1 

55*673  0 

3 7761  0 
51*341  0 

54  O37  1 
55*626  0 


PIPACH< 


TC 

OCT 

CA 

TS 

CA 

TS 

INDEX 

TS 

TC 

index 

TC 

TC 

CADR 

CA 

TS 

CA 

TS 

CA 

TS 

CA 

INDEX 

IS 

TS 


BANkCALL 

IMUSTALL 

ENDTESTl 

GEOCOMPS 

JUMPLOAD 

INTPRET 

Cos 

LATITUDE 

SLl 

(JANCTI 

LATITUDE 

SLl 

WANGO 

GEORGED 

TRANSMl 

GEORGEC 

TRANSMl  +6 

GEORGEB 

TRANSMl  +12D 

+ 2 

FREEDSP 

LOADGISM 

BANKCALL 

ESTIMS 

PHASCHNG 

00005 

ZERO 

DSPTEM2 

DRIFTI 

DSPTFM2  +1 

POSITON 

SOUTHDR  -1 

SHOW 

NDxCTR 

+ 1 

BANKCALL 

EARTHR 

DeC17 
DATAPL  +4 
BITIO 
LENgTHOT 
ONE 

RESLJLTCT 

Zero 

PIPINDEX 

PIPAX 

DATAPL 


calculate  -COS  iATItUDe  AND  SIN  LATITUDE 
FOR  estimate 


LOAD  transition  MATRIX  INTO  ERASABLE 


FREE  DISPLAY  IF  IN  GYROCOMPASS 


filter  Returns  after  torque  and  eR  set 


TORqUE  platform  to  CORRECT  LEVELING  ERR 
IN  PREPARATION  tO  MEASURING  VERTICAL 
PIPA  OUTPUT  PUL4E  RATE 


ALLOW  PIP  counter  tO  OVERFLOW  17  TIMES 
IN  THE  ALLOTED  TIME  INTERVAL 

zero  PIPA  COUNTfR  INITIALLY 


488954A  YJL  SYSTEM  f-OR  AGC;  ,MEa  PRQGrAM  SHEPATIN  BY  EYLES 


DEC  U,  I966  (MAIN)  PAGE  393 


U HU  PERt-ORM<NCE  TESTS  Z 


USER'S  OWN  PAGf  NO.  3 


ES 


0102 

REF 

1 

29,2126 

0103 

REF 

1 

29,2127 

0109 

29,2130 

0105 

REF 

3 

LAST 

363 

29,2131 

0106 

29,2132 

0107 

REF 

1 

29,2133 

0108 

REF 

9 

LAST 

383 

29,21 35 

0109 

REF 

2 

LAST 

392 

29,2135 

3 3559 

0 

CA 

DEC56 

0 3A07 

1 

] ^ 

WAIT  LOOP 

0 0009 

C 

INHINT 

02/73 

0 

TC 

checkg 

0 0003 

1 

RELINT 

0 3O67 

0 

IC 

DATALD 

3 7 /60 

55*573 

1 

0 

CA 

TS 

FIVE 

RESULTCT 

0110 

ref 

25 

LAST 

392 

0111 

0112 

REF 

69 

LAST 

392 

0113 

REF 

9 

Last 

392 

0119 

REF 

1 

0115 

REF 

1 

0116 

REF 

3 

LAST 

392 

0117 

0118 

REF 

12 

LAST 

300 

0119 

REF 

9 

LAST 

393 

0120 

REF 

5 

LAST 

393 

0121 

0122 

0123 

REF 

REF 

6 

7 

LAST 

LAST 

393 

393 

29 
29 
2 9 
29 
29 
29 
29 
29 
29 
29 
29 
29 
29 
29 


2136 

2137 

2190 

2191 

2192 

2193 
219A 

2195 

2196 

2197 

2150 

2151 

2152 

2153 


51'P37  1 
0 2J-90  0 

0 5A29  0 

30929  0 
11*576  0 

0 3A3I  1 
11»527  1 
0 2151  0 
0 9^25  0 
9 1532  0 
55*532  0 
D 0006  1 
9 1527  1 
21*533  1 


INDEX 

NDXCTR 

TC 

+ 1 

TC 

BANKCALL 

CADR 

EARTHR 

CCS 

COUNTPL 

TC 

WAITLP2 

CCS 

DATAPL  +1 

I c 

+ 9 

TC 

CCSHOLE 

CS 

DATAPL  +9 

TS 

DATAPL  +9 

EXTEND 

DCS 

DATAPL 

DAS 

DATAPL  +9 

0129 

REF 

36 

LAST 

392 

29,2155 

0125 

29,2155 

0126 

REF 

8 

LAST 

393 

29,2155 

0127 

REF 

9 

LAST 

393 

29,215/ 

0128 

29,2160 

0129 

REF 

10 

LAST 

393 

29,2161 

0130 

29,2162 

0131 

REF 

1 

29,2163 

0 6l03 

0 

TC 

INTPRET 

95395 

1 

DLOAD 

DSU 

02535 

0 

DATAPL  +6 

02531 

1 

DATAPL  +2 

56325 

0 

PDDL 

DDV 

02533 

0 

DATAPL  +9 

91325 

0 

PDDL 

DMP 

1 1599 

1 

DEC585 

0132 

0133  REF  3 
0139  REF  16 

0135 

0136  REF  3 

0137  REF  1 

0138  REF  2 

01381  REF  65 

01382  REf  5 

01383  REF  19 
01389  REF  1 

0139  REF  7 

0190  REf  2 

0191  REF  2 
019101  REF  2 

0192  REF  117 

0193  REF  39 

0199  ref  90 

0195  REe  91 


29 

LAST  371  29 

LAST  392  29 

29 

LAST  392  29 

29 

LAST  392  29 

last  393  29 

last  393  29 

LAST  378  29 

29 

Last  392  29 

last  392  29 

last  391  29 

LAST  392  29 

LAST  392  29 

LAST  391  29 

last  393  29 

last  393  29 


2165  77539  0 

2165  33565  1 

2166  00393  0 

216/  77/76  1 

2170  0 3500  1 

2171  3 3535  1 
ZM'^  55*R27  1 

2173  0 0 

2179  30529  0 

2175  3 0032  0 

2175  55*530  1 

2177  51*599  0 

2200  9 1550  1 

2201  55*576  0 

2202  0 3519  1 

2203  3 7(61  0 

2205  55*500  0 

2205  55*501  1 

2206  55*509  1 


RTB 

SGNAGKEE 
STORE  DSPTEM2 
EXIT 

TC  SHOW 

VERTDRFT  CA  3990DEC 

TS  LENGTHOT 

TC  BANKCALL 

CADR  EARTHR 

CA  CUUX 

TS  LOSVEC 

INDEX  PUSITON 
CS  SOUTHdR  -2 

IS  DRIFTT 

TC  LOADGTSM 
CA  Zero 

IS  XSM 

TS  XSM  +1 

IS  XSM  +9 


LOOP  56  TIMES  5.12  SEC  "ACH,  EACH  INCR. 
WILL  ALSO  CORRECT  EaRTH  RATE 


DEC585  has  BEFN  ReDfFINED  FOR  LeM 


3900  SECONDS  FOR  VERTICAL  DRIFT 

THIS  WILL  correct  FoR  EARTH  RATf  DURING 

time  Spent  in  show  above* 

STOORE  AXIS  FOp  LAB  CALC  OF  DRjFT 


ALLOW  ONLY  SOUTH  GYRO  EARTH  RATE  COMPENS 


^8895^A  yJL  SySlhH  f- OR  AqO;  Nbw  pRObRAM  S^EpATlR  3Y  EyLL-S 


L I'lU  PtRboRMANCE  TESjS  2 


0U6  rEf  A2  last  393  2A,22C7  35*^05  0 Is 

0U7  REF  9 LAST  375  2A,22lO  55'A06  0 TS 

01A8  REF  10  LAST  39A  2A.2211  55*^07  1 TS 

01^9  ref  n LAST  39A  2A.2212  55*^12  0 TS 

0150  REF  12  LAST  39A  24,2213  S5»‘*13  1 TS 

0151  REF  8 LAST  375  24,22lA  55*414  0 TS 

0152  REF  9 LAST  394  24,2215  55*^15  1 TS 

0153  REF  10  LAST  394  24*2216  55'A20  1 TS 

0154  REp  11  last  394  24,2211  55*A21  0 TS 

0155  REF  19  LAST  390  24,222°  3 7135  1 bJESSl  CAF 

0156  REF  3 LAST  391  24,222i  55*374  1 TS 

0157  REF  4 last  394  24,2222  55*375  0 TS 

0158  REf  66  last  393  24,2223  0 5224  0 TC 

0159  REF  2 LAST  392  24,222^  72^14  1 CADR 


0160 

REF 

3 

last 

0161 

0170 

REF 

1 

0171 

REF 

17 

LAST 

01711 

REF 

15 

LAST 

01715 

REF 

2 

LAST 

0172 

REF 

118 

LAST 

OI73 

kEt 

I 8 

LAST 

0174 

REF 

4 

LAST 

392  24,2225  0 4I47  1 VALMIS  TC 


24.2226  00005  1 OCT 

24.2227  3 1636  0 CA 

393  24,2230  54  3-y3  1 TS 

393  24,2231  3 OO32  0 CA 

393  24,2232  55*331  0 TS 

393  24,2233  3 7761  0 CA 

394  24,2234  54  342  0 IS 

393  24,2235  0 36OO  1 TC 


0175 

REF 

106 

LAST 

392 

24,2236 

3 7755 

1 

FINISH 

CA 

0176 

REF 

8 

LAST 

393 

24,2237 

6 1544 

0 

AD 

0177 

REF 

19 

LAST 

394 

24 , 224O 

54  3a4 

0 

IS 

0178 

REF 

49 

LAST 

390 

24,224  1 

3 7754 

0 

CA 

0179 

REF 

24 

LAST 

379 

24 ,2242 

55*546 

0 

T S 

0180 

REF 

67 

Last 

394 

24,2243 

0 5224 

0 

TC 

0181 

REF 

2 

LAST 

197 

24,2244 

22343 

0 5224 

0 

CADR 

0182 

RcF 

68 

LAST 

394 

24,2245 

0 

ENDTEST 1 

I C 

0183 

REF 

24 

Last 

390 

24,2246 

30  747 

0 

CADR 

OEC  1^,  I966  (MAIN)  pAgE  394 


UStR*S  OWN  PACp  NO.  4 


E5 


XSM  +5 
YSM 

YSM  +1 
YSM  +4 
YSM  +5 
ZSM 

ZSM  +1 
ZSM  +4 
ZSM  +5 
POSMAX 
TORQNDX 
TORONDX  +1 
BANkcALL 
EST IMS 

PHASCHNG 
00005 
DRIFTO 
DSPTEM2  +1 

COUx  store  OG  ANGLF  FOR  lAB  CALC  oF  DRIFT** 

LOSVEC  +1 

ZERO 

DSPTFmZ 

SHOiiJ 


ONE 

POSITON 
DSPTEM2  +2 

Two 

QPLACE 
BANKCALL 
TSELECT  -6 
BANKCALL 
ENDTEST 
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L 

I viU 

PtRf  OkMfcNCE 

TLSTS  2 

r>  r'  1 K/  0 c*  c 

USER'S  OWN  PAGf  NO.  5 e5 

0 1 8 A 

REF 

1 

2A 

2247 

3 3545 

0 

OPCFiK 

C AF 

DELyOFF 

AUTOMATIC  TEST  FOR  aYSTEM  OPERATION 

0185 

24 

2250 

0 0O06 

1 

EXTEND 

0186 

24 

2251 

02  O30 

0 

RAND 

30 

CHECK  TO  SEE  IF  IMU  IS  ON 

0187 

REF 

216 

LA  Si 

388 

24 

225*^ 

1 0 OQO 

0 

CCS 

A 

0188 

REF 

1 

24 

2253 

0 2442 

1 

rc 

ALARMS 

0189 

REF 

1 

24 

2254 

3 3540 

0 

CAF 

V16N20S 

0190 

REF 

A 1 

LAS! 

387 

24 

225P 

0 4546 

1 

TC 

NVSBWA I T 

0191 

REF 

12 

LAST 

392 

24 

2256 

0 4 713 

0 

TC 

freedsp 

0192 

REF 

69 

LAST 

39A 

24 

2257 

0 5 2 4 

0 

1 c 

BANkCALL 

0193 

REF 

A 

LAST 

391 

24 

2260 

26000 

0 

CADR 

IMUZERO 

019A 

REF 

70 

LASi 

395 

24 

2261 

0 5224 

0 

TC 

BANKCALL 

0195 

REF 

1 6 

LAS! 

392 

24 

2262 

26  762 

0 

CADR 

IMUSTALL 

0196 

REF 

A 

LAST 

392 

24 

2263 

1 2445 

1 

TCF 

ENDTESTl 

0197 

REF 

12 

LAST 

351 

24 

2264 

3 7 746 

0 

CA 

B1  T8 

zero  all  eRasfarle  used  in  Test 

0198 

REF- 

2 

LAST 

368 

24 

226P 

55'  777 

0 

IS 

ZLRONDX 

0199 

REF 

1 

24 

2265 

3 3650 

1 

CA 

GENPLAD 

0200 

REf 

2 

last 

368 

24 

2267 

0 3240 

1 

I C 

ZERO  1 NG 

0201 

REF 

2 

LAST 

391 

24 

227O 

0 3346 

0 

TC 

NBPOSPL 

ALIGN  ANGLE  COMfUTAiION 

0202 

REF 

2 

LAST 

391 

24 

2271 

0 3101 

1 

TC 

POSGMBL 

coarse  align  those  GIMBALS  NOW 

0203 

REF 

2 

LAST 

197 

24 

2272 

1 2247 

0 

TCF 

OPCHK 

020A 

REF 

2 

LAST 

391 

24 

2273 

0 3126 

1 

TC 

FALNF 

FINE  ALIGN  PLATfORM  BY  TOROUING  GYROS 

0205 

REF 

71 

LAST 

395 

24 

2279 

c 5224 

0 

TC 

BANKCALL 

0206 

REF 

17 

last 

395 

24 

2275 

26  762 

0 

CAdR 

IMUSTALL 

0207 

REF 

5 

LAST 

395 

24 

2275 

1 2245 

1 

TCF 

ENDTESTl 

0208 

REF 

50 

LAST 

39A 

24 

227Y 

3 7754 

0 

CA 

T wO 

0209 

REF 

2 

LAST 

390 

24 

2300 

55*572 

1 

CDl)LHLC< 

TS 

CDUNDX 

THIS  LOOP  ChECKA  FOR  NO  ERROR  BfTWEEN 

0210 

REF 

3 

LAST 

395 

24 

23OI 

51 '572 

0 

index 

cdUndx 

desired  CDU  ANGl  ES  AND  THE  ACTUaL  ANGLES 

0211 

REF 

1 A 

LAST 

391 

24 

23O2 

A 0400 

1 

C5 

TUET  AD 

0212 

ref 

A 

last 

395 

24 

2303 

51*572 

0 

index 

CDUNDX 

0213 

REF 

16 

LAST 

39A 

24 

2304 

6 OO32 

0 

AD 

CDUX 

02  1 A 

R wf 

5 

LASI 

375 

2 4 

2305 

55*551 

0 

TS 

ST  OrEPL 

0215 

REF 

6 

LAST 

395 

24 

23O6 

11*551 

0 

CCS 

STOREPL 

0216 

REf 

1 

2 4 

2307 

0 2315 

1 

TC 

ERRmASK 

0217 

REF 

1 

24 

23lO 

0 2312 

0 

TC 

NOERR 

0218 

REF 

2 

LAST 

395 

24 

231  1 

0 2315 

1 

TC 

ERRMASK 

0219 

REF 

5 

LAST 

395 

24 

2312 

11*572 

1 

NDERR 

CCS 

CDUNDX 

0220 

REF 

1 

24 

2313 

0 2300 

0 

T C 

CDUCHECK 

0221 

REF 

1 

24 

2314 

0 2321 

0 

ERRMA5K, 

TC 

LOADIC 

0222 

REF 

1 

24 

2315 

7 3553 

0 

MASK 

LuwFOUR 

ALLOW  FIVh  Bit  fRRORS 

0223 

REF 

217 

LASI 

395 

24 

2315 

ID  OOO 

0 

CCS 

A 

022A 

REF 

2 

LAST 

395 

24 

2317 

0 24a2 

1 

TC 

ALARMS 

022  5 

REF 

2 

LAST 

395 

24 

2320 

0 2312 

0 

TC 

NOERR 

0226 

REF 

107 

last 

39A 

24 

2321 

3 7755 

1 

LOAEIC 

CA 

ONE 

0227 

0228 

REF 

REF 

3 

108 

LAST 

LAST 

393 

395 

24 

24 

2322 

2323 

55*573 

4 7755 

0 

0 

TS 

CS 

RESULTCT 

ONE 
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L I'lU  PeRYOPMaNCe  TESiS  2 


0229 

r2f 

1 

24 

,2329 

55,670 

0 

TS 

MAskrEG 

0230 

REF 

119 

LAST 

394 

24 

232:> 

3 7^61 

0 

CA 

ZERO 

0231 

REF 

7 

LAS'. 

392 

24 

2326 

59  U37 

1 

TS 

PiPAX 

0232 

REF 

4 

LAST 

362 

24 

2327 

5 9 O^tO 

1 

T S 

PIPAY 

0233 

REF 

5 

LAST 

362 

24 

2330 

59  OaI 

0 

TS 

PlPAZ 

023A 

ref 

21 

LAST 

272 

24 

233I 

3 7^93 

0 

CA 

BiTll 

0235 

ref 

3 

LAST 

393 

24 

2332 

55*327 

1 

IS 

LeNgTHOT 

0236 

REF 

109 

LAST 

395 

24 

2333 

3 7?35 

1 

CA 

ONE 

0237 

REF 

2 

LASl 

393 

24 

2339 

0 3207 

1 

I C 

WAITLOOP 

0238 

REF 

2 

LAST 

393 

24 

2336 

11*676 

0 

CCS 

COUNTPL 

0239 

REF 

2 

LAST 

393 

24 

2336 

0 3231 

1 

TC 

WAITLP2 

0240 

REF 

2 

LAST 

393 

24 

2337 

3 3659 

0 

CA 

DE  C 5 6 

0241 

REF 

3 

LAS  1 

396 

24 

239O 

0 3207 

1 

TC 

WAITLOOP 

0242 

REF 

51 

LAST 

395 

24 

23A1 

3 7/59 

0 

OPCHKl 

CA 

TWO 

0243 

REF 

4 

Last 

392 

24 

55*391 

1 

0PCHK2 

T S 

P 1 P I NDEX 

0244 

24 

2393 

0 0009 

0 

INHINT 

0245 

ref 

4 

LAST 

393 

24 

23A9 

0 2 173 

0 

TC 

chEckg 

0246 

24 

2395 

D OO03 

1 

REL I NT 

0247 

REF 

120 

LAST 

396 

24 

2396 

3 7I6I 

0 

CA 

ZERO 

0248 

REF 

5 

LAST 

396 

24 

2397 

51*391 

0 

INDEX 

PIPTNDEX 

0249 

REF 

8 

LAST 

396 

24 

235O 

5 9 0 3 7 

1 

1 S 

PIPAX 

0250 

ref 

2 

last 

393 

24 

2351 

0 3067 

0 

TC 

DATAlD 

0251 

REF 

4 

LAST 

395 

24 

2351^ 

57*673 

1 

XCH 

RESULTCT 

0252 

REF 

8 

LAST 

349 

24 

2353 

6 7153 

1 

AD 

FOUR 

0253 

REF 

5 

LASl 

396 

24 

2359 

55*673 

0 

TS 

RESULTCT 

0254 

REF 

6 

LASl 

396 

24 

2355 

11*691 

1 

CCS 

PIPINDEX 

0255 

REf 

1 

24 

2356 

0 2392 

0 

TC 

0PCHK2 

0256 

REF 

9 

LAST 

396 

24 

235  / 

9 7 153 

0 

READOUT 

CS 

FOUR 

0257 

REF 

6 

LASl 

396 

24 

2360 

6 16/3 

1 

AD 

RESULTCT 

0258 

REF 

7 

LASl 

396 

24 

2361 

55*673 

0 

TS 

RESULTCT 

0259 

24 

2362 

22  007 

0 

ZL 

0260 

REF 

8 

LAST 

396 

24 

2363 

51*6/3 

1 

INDEX 

RESULTCT 

0261 

REF 

11 

LAST 

393 

24 

2369 

3 1626 

1 

CA 

DATAPL 

0262 

ref 

218 

last 

395 

24 

2363 

22  Ooo 

1 

LXCH 

A 

1 rt  C T 

2366 

U263 

KEr 

9 

L A ij  1 

396 

24 

51*673 

1 

I NDEX 

RE  SUL  T CT 

0264 

REF 

45 

LAST 

389 

24 

2367 

21*572 

1 

DAS 

GLNPL  ♦! 

0265 

REF 

10 

LAST 

396 

24 

237O 

3 1673 

1 

CA 

RESULTCT 

0266 

REf 

2 

LAST 

396 

24 

2371 

7 16/0 

0 

mask 

MASkREG 

0267 

REF 

219 

LAST 

396 

24 

2372 

13  Ooo 

0 

CCS 

A 

0268 

REF 

1 

24 

2373 

0 2357 

1 

TC 

READOUT 

0269 

REF 

6 

LAST 

389 

24 

2379 

3 9357 

1 

CA 

TEN 

0270 

REF 

23 

LAST 

382 

24 

2373 

6 6301 

0 

AD 

THREE 

0271 

REF 

11 

Last 

396 

24 

2376 

55*673 

0 

TS 

RESULTCT 

LAST 

237  ? 

02  72 

K AT 

220 

396 

24 

9 OOOO 

0 

CS 

A 

0273 

REF 

3 

LAST 

396 

24 

2a00 

55*670 

0 

TS 

MASKREG 

0274 

REF 

3 

LAST 

396 

24 

2a01 

11*676 

0 

CCS 

COUNTPL 

n a '7  c 

D rcr 

K c.  r 

3 

L»  A o 1 

396 

24 

24D<^ 

0 3231 

1 

T C 

WA I TLP2 

0276 

REF 

1 

24 

.2403 

0 3252 

1 

TC 

COMPUT 

USER'S  OWN  PaGf  no.  6 ES 

SETs  UP  AZIMUTH  Af^D  VLrTiCAl  VECTOrs  POr 


vector  in  pIpA  COUNTERS 


LOAD  pIpA  DATA  AND  TImE  IN  DATApL 


488954A  YJL  SYSTEM  ^ OR  AGC ; Ntkv  PR009i\M  SHePATIN  3Y  EYLES 


L 

0277 

0278 

0279 

0280 
0281 
0282 
0283 
028A 

0205 

0286 

0287 

0288 

0289 

0290 

0291 

0292 

0293 
029A 

0295 

0296 

0297 

0298 

0299 

0300 

0301 

0302 

0303 
030A 

0305 

0306 

0307 

0308 

0309 

0310 

0311 


IvlU  PERfORMANCE  TESTS 

REF  1 2A,240^ 

REF  A2  last  395  2A,2aOS 

REF  9 last  382  2A,2406 

REF  29  LAST  386  24»2407 

REF  6 last  395  24»24l'^ 

2 4 » 24 1 ^ 

REF  121  LAST  396  24.2412 

REF  18  LAST  34l  24,2413 

REF  1 24,241^ 

REF  19  LAST  397  24,2413 

REF  n LAST  395  24,2415 

REF  3 Last  379  24,2417 

REF  73  last  397  24,2420 

REF  5 LAST  379  24,2421 

REF  1 las:  397  24,2422 

REF  37  Last  393  24,2423 

24,242't 

REF  2 LAST  194  24,2423 

REF  74  LAST  397  24,2426 

REF  6 last  397  24,2427 

REF  3 LAST  395  24,2430 

REF  10  last  397  24,2431. 

REF  30  Last  397  24,2432 

REF  8 LAST  397  24,2433 

24,243^ 

REF  122  LAST  397  24,2435 

RcF  20  LAST  397  24,2436 

REF  2 LAST  397  24,2437 

REF  21  LASi  397  24,2440 

REF  1 24,2441 

REF  163  LAST  390  24,2442 

REF  25  Last  394  24,2443 

REF  31  LAS!  379  2^,2a44 

24,2445 

REF  26  LAST  397  24,2446 


3 3641  1 RADCk  CA 
0 4646  1 TC 

0 4611  0 TC 

0 4^64  0 TC 

0 2445  0 TC 

0 2412  1 TC 

3 7Tbl  0 CA 

54  ^*24  1 TS 

3 3655  1 CA 

54  '♦23  0 rS 

0 5^24  0 DrIVRAD  TC 
202a7  1 CADR 

0 5424  O TC 

26156  1 CADR 

0 2445  O TC 

O 6l03  0 TC 

77624  1 CALL 

20363  0 

0 5224  0 TC 

26156  1 CADR 

0 2542  1 TC 

0 4011  0 TC 

0 4^64  0 TC 

0 2445  0 TC 

0 2535  1 TC 

3 7I6I  0 CA 

54  523  0 TS 

4 3655  0 C5 

54  524  1 TS 

0 2516  0 TC 

5b  002  0 alarms  XCh 
55*546  0 TS 

0 4I44  1 TC 

01511  1 dct 

0 1546  1 TC 
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USER'S  OwN  PAGf  NO.  7 E5 

V16N40S 

NVSBWAIT 

FLA5H0N 

ENDIDLE 

EMDTESTl 

operator  will  CleCK  radar  status, in  lab, 

SET  RADAR  OFF  TNEN  PUT  ReSOLvER  STANDARD 
ON  TRUNNIUN  AND  SET  TO  +45  DeG, SHAFT  WIL 

♦ 1 

ZERO 

TANG  +1 

AFTER  SETTING  Rt- S STANDARD  DO  A V33 

45DFG 

TANg 

BANKCALL 

RRZERO 

BANKCALL 

RADSTALL 

ENDTESTl 

INTPRET 

IN  SC  when  rad  pRESfNT  Do  V33  RIGHT  AWAY 
LGC  WILL  attempt  TO  DRIVE  45  DEG  TRUNN, 
to  MATCH  standard,  AFTER  ZEROINS  CDUS 

RRDESNB 

BANKCALL 

RADSTALL 

ALARMS 

IF  CDU  FAILS  TO  AGRfE  WITH  COMMAND  TO 

1 DEG  GET  ALARM  HERE 

FLASHON 

ENDIDLE 

ENDTESTl 

+ 1 

ZERO 

TANG 

45DEG 

TANG  +1 
DRIVRAD 

Q 

QPLACE 

ALARM 

1411 

QPLACE 

operator  will  CpECK  status  of  RaDAR 

IN  S/C  DO  V33  To  CONTINUE  WITH  SHAFT 

TEST 

IN  LAB  TURN  RADaR  OFF  CHANGE  REs  STANDAR 
TO  SHAFT  AND  SET  FOR  -45DEG. 

THEN  DO  A V33  IF  WANT  TO  REPEAT  CHECK 

DO  A V34  TO  terminate 

48895^A  yjL  SySlEM  ^ 0*^  ^gC:  Nbw  pROG^Avi  SHbpAlIN  3y  EY^ES 


L 

0312 

0313 
03U 

0315 

0316 

0317 

0318 

0319 

0320 

0321 

0322 

03221 

03222 

03223 

0322A 

03225 

03226 

03227 

03228 

03229 

0323 
032A 

0325 

0326 

0327 

0328 

0329 

0330 

0331 

0332 

0333 
033A 

0335 

0336 

0337 

0338 

0339 

0390 

0391 

0392 

0393 
0399 

0395 

0396 

0397 

0398 

0399 

0350 

0351 


I “lu  Plkjokmance  tests  2 


rSK  38 

REF  3 

REF  1 
REF  93 
REF  31 
REF  9 
REF  1 
REF  95 
REF  1 

REp  1 
REF  2 


LASi  397 
LaSI  391 

LAS;  397 
last  397 
LAST  397 

Last  389 

last  190 


REF  1 

REF  2 last  398 


2^ » 2^47 

0 6103 

0 

GYRSFI si 

Tc 

24*2450 

776  2 9 

1 

CALL 

24  * 2 45 1 

30532 

0 

24*245^ 

77  776 

1 

EXIT 

24*2453 

3 3630 

1 

TEST  CALL 

CAF 

24*245^ 

0 9696 

1 

TC 

24  *245^^ 

0 9969 

0 

1C 

24  *245^ 

1 2^95 

1 

T CF 

■24*2457 

D 2A53 

1 

IC 

24,2460 

56  337 

0 

XCH 

24  *246^ 

55*619 

1 

TS 

2^*246^ 

0 0006 

1 

EXTEND 

24,2463 

6 2^70 

0 

3ZMF 

24 ,246^ 

7 5357 

1 

SIZLOOK 

MASK 

24*246^ 

0 OOO6 

1 

EXTEND 

3 7 P 

24 ,246^ 

1 2^72 

0 

D 

24 , 246  ^ 

0 2‘*53 

1 

TC 

REF  1 

REF  2 LAST  398 
REF  10  LASI  396 
REF  221  Last  396 

REF  3 LAST  398 


REF  11  LASI  398 
REF  9 last  399 

REF  52  LAS'  396 


29 

29 

29 

29 

29 

29 

29 

29 

29 

29 

29 

29 

29 

29 

29 

29 

29 

29 

29 


2970 

2971 

2972 

2973 
297A 

2975 

2976 

2977 

2500 

2501 

2502 

2503 

2509 

2505 

2506 

2507 

2510 

2511 

2512 


9 OOOO 

0 

negsiz 

COM 

0 29b9 

0 

TC 

3 1619 

0 

GUDENTRY 

CA 

6 7753 

1 

AD 

50  000 

1 

INDEX 

0 2^76 

0 

IC 

0 2^53 

1 

I c 

0 2505 

0 

TC 

0 2509 

1 

TC 

0 2503 

0 

TC 

0 2976 

0 

TC 

0 2506 

0 

)C 

0 2512 

0 

T C 

0 2515 

1 

TC 

3 7753 

1 

CAF 

55*599 

1 

T S 

0 2517 

0 

IC 

0 2517 
3 7759 

0 

0 

TC 

CAF 

REF  10  LASI  398 

REf  110  last  396 
REF  11  LASI  398 
REF  2 LASr  390 
REF  1 

REF  13  LASi  395 
REf  123  LASI  397 
REF  1 

REF  2 LAST  398 
REF  1 
REf  1 
REF  1 


2513 

25IA 

2515 

2516 

2517 
2520 
2621 

2522 

2523 
2529 

2525 

2526 

252  7 


551549  1 

0 ^517  0 
3 7755  1 
55«599  1 
55'617  1 
55'621  1 
0 9713  0 
3 7761  0 
55*536  1 
55*622  1 
55*563  1 
55*615  0 
3 3632  0 


TS 

TC 

CAf 

TS 

TS 

TS 

TC 

CAf 

TS 

TS 

TS 

TS 

CAF 


ImTprET 

latazchk 

V21N30E 

NVSBWAI T 

LNDIDLE 

ENDTESTl 

TESTCALL 

DSPTEMl 

CALCDIR 

NE65IZ 

NEG3 


gudentry 

TESTCALL 


sizlook 

CALCDIR 

FOUR 

A 

♦ 1 

TESTCALL 
+ 6 
+ 9 
+ 2 
-9 
+ 3 
+ 6 
+ 10 
FOUR 
POSITON 
+ 7 
+ 6 
Tl/jO 

POSITON 
+ 3 
ONE 

POSITON 

OPTNREG 

SAVE  +1 

FREEDSP 

ZERO 

NbPOS 

SAVE  +2 

testno 

cuUflag 

SFCONST 
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USER*S  own  PAGf  no.  8 E5 

STArT  ADrEsS  FOc  IRIG  SF  TEST 
LOAD  AZ  and  LAT 


load  + or  - 1 FOR  ♦ OR  - X TLST  (+00001) 

LOAD  + OR  _ 2 FnR  + OR  - Y TEST 

LOAD  + OR  - 3 Fr.R  + OR  - Z TEST 


THIS  ROUTINE  I Or.KS  AT  THp  SIZE  OF  THE 

entry  mAde  by  TfE  Operator,  if  hE  dId  no 
T enter  test  no  that  is  W/I  permissible 

range-  he  WILL  re  Asked  to  load  again. 

this  is  Considered  necessary  because 
OF  Following  indexed  tc  which  could 

send  IHE  computer  OFF  INTO  THE  BOONDOCKS 
TO  play  with  ttrElf  if  The  operator 

makes  ABAD  ENTRy-int^xx# 


C(A)=+00001  for  -z 
C (A) =+00002  FOR  -Y 
C (A) =+00003  FOR  -X 
C(A)=+00009  EeROR 
C(A)=+00005  FOR  +X 


9 IS  FOR  A.L.  PnSN  9 USED  FOR  X SF  TEST 


+2  IS  A.L.  POS  ? used  for  Y SF  TEST 


+1  IS  A.L.  POS  1 USfD  FOR  z SF  TEST 
C(K)  = (9.2,1)  FOR  X.Y.Z 


set  up  NB  COORD  TO  Z NORTH,  X UP 
INITIALIZE  FOR  fARTHR  DESIGNATE  USAGE 
INITIALIZE  FOR  tEST  ABORT  ROUTINE 
ZEROS  for  STRTWACH  dSE 


48895HA  YJL  SYSltM  fOk  AGC ; NLW  PKO^^A'1  S^ePATIN  BY  EYLLS 


I I'lU  PERtORMANCE  TESTS  2 


0352 

REF 

1 

2A 

»2530 

551623 

0 

TS 

0353 

REF 

75 

LAS’ 

397 

2A 

2531 

0 5224 

0 

TC 

035A 

REF 

5 

LAS ! 

395 

2A 

2 53^ 

26000 

0 

CADR 

0355 

REF 

76 

LAS! 

399 

2A 

2533 

0 5224 

0 

TC 

0356 

REF 

18 

LAST 

395 

2A 

253A 

26  762 

0 

CADR 

0357 

REF 

10 

LAST 

398 

2A 

253S 

1 2245 

1 

TCP 

0358 

REF 

3 

LASi 

395 

24 

2536 

0 3346 

c 

TC 

0359 

REF 

3 

LAST 

395 

24 

2537 

0 3101 

1 

TC 

0360 

REF 

1 1 

LASl 

399 

24 

254O 

1 2245 

1 

T CF 

0361 

REF 

3 

LAST 

395 

24 

2541 

0 3^26 

1 

TC 

0362 

REF 

7 7 

LAST 

399 

24 

254“^ 

0 5224 

0 

TC 

0363 

REF 

1 

24 

2543 

31  705 

1 

CADR 

036A 

REF 

3 

last 

393 

24 

25AA 

55'P52 

0 

WAIlFIVt 

TS 

0365 

REF 

29 

LAST 

385 

24 

2545 

3 7750 

1 

CAF 

0366 

REf 

1 

24 

2 546 

0 2361 

1 

T C 

0367 

REF 

30 

LAST 

399 

2h 

254  7 

3 7 750 

1 

ENABLE 

CAF 

0368 

24 

2550 

0 0O06 

1 

EXTEND 

03  69 

REF 

1 

24 

255I 

05  014 

1 

(VOR 

0370 

24 

2552 

0 0004 

0 

inhint 

03  71 

REF 

53 

LAST 

398 

24 

2553 

4 7754 

1 

cs 

0372 

REF 

18 

LASl 

298 

24 

255A 

7 0366 

0 

MAS< 

0373 

REF 

5A 

LAST 

399 

24 

255S 

6 7754 

0 

AD 

037A 

R-F 

1 9 

LASl 

399 

24 

2550 

5 4 366 

0 

T 5 

0375 

REF 

5 5 

LAS: 

399 

24 

255  7 

3 7754 

0 

CAF 

0376 

REF 

A 

LAST 

399 

24 

2560 

55*352 

0 

TS 

0377 

REF 

A 

LAST 

396 

24 

2 56 1 

55 ' 327 

1 

T S 

0378 

REF 

111 

LASl 

398 

24 

256<7 

3 7755 

1 

CA 

0379 

REF 

A 

LASl 

396 

24 

2563 

0 3207 

1 

TC 

0380 

REF 

A 

LASl 

3 96 

24 

256A 

11*676 

0 

CCS 

0381 

REF 

A 

LASl 

396 

24 

2563 

0 3231 

1 

TC 

0382 

REF 

78 

LAST 

399 

24 

2560 

0 5224 

0 

DIRECTN 

TC 

0383 

REF 

1 

24 

2 56  7 

46  320 

1 

CADR 

038A 

REF 

5 

LASl 

399 

24 

2570 

11*352 

0 

CCS 

0385 

REF 

1 

24 

257i 

0 2344 

0 

TC 

0386 

REF 

2 

LAST 

398 

24 

2572 

11*015 

0 

STRTWACH 

CCS 

0387 

REF 

1 

24 

2573 

0 2654 

1 

TC 

0388 

REF 

3 

LAS  1 

398 

24 

257A 

11*621 

1 

CCS 

0389 

REF 

1 

24 

257s 

0 2614 

0 

TC 

0390 

REf 

2 

last 

399 

24 

2576 

0 2620 

1 

TC 

0391 

REF 

1 2 A 

LASl 

398 

24 

2577 

3 7 761 

0 

CORRECT 

CAF 

0392 

REF 

10 

last 

lAO 

24 

2600 

54  356 

0 

TS 

n "3  0 n 

D - rr 

1 A ^ i' 

V j yo 

f 9 

0 i 

3 9 9 

2 4 

J 5^24 

0 

T C 

039A 

REF 

6 

LAST 

393 

24 

2602 

30424 

0 

CADR 

0395 

REF 

112 

LAS  7 

399 

24 

2603 

3 7755 

1 

CAF 

0 “ r- 

1 1 

1 A C T 

260A 

54  356 

U396 

Kcr 

1.  M 0 1 

399 

24 

0 

TS 

0397 

REF 

A 

LASl 

399 

24 

2605 

55*622 

1 

TS 

0398 

REF 

2 

LAST 

398 

24 

2606 

27*363 

1 

ADS 
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USER*S  OWN  PAG*-  NO.  9 £6 

SFCONSTl 

EOR  DIVISION  DliRINr.  CALCSEE 

BmNKCALL 

IMUZERO 

BANKCALL 

IMJSTALL 

ENDTESTl 

NBPOSPL 

POSGMBL 

ENDTESTl 

FALNE 

BANKCALL 

REDYTORK 

SOUTHDR 

BIT6 

DIRFCTN  -5 

BI  T6 

THIS  SECTION  CAi  LS  FOR  2-32  MSEC  WAITS 

I4C 

ENABLE  gyro  TORoUING  LOOP  BY  TURNING 

ON  CAL  module  RfLAY 

T wO 

IMODES33 

TwO 

IM0DES33 

TwO 

SETS  UP  EXEC  SWITCH  SO  IMUPULSE  WILL 

NOT  TURN  OFF  GYpO  ToRQ  ENABLE  ReLAY 

SuUTHDR 

LeNGTHOT 

ONE 

WAITLOOP 

20  MSEC  delay  fOR  GYRO  LOOP  STABILIZAT. 

COUNTPL 

WAITLP2 

BANKCALL 

SILVER 

SuUTFIDR 

/lAITFIVE 

torquing  Routine  in  imu  performance 

BANK  3 

A one  first  TIMf  through,  then  zero 

CUUFLAG 

CUUZOTST 

SAVE  +1 
LUOKCOUP  -4 

lookcdup 

ZERO 

RETURNS  HERE  VtA  QPLACE  EROM  SILVER 

BEEN  CAUGHT  AND  CDU  THROUGH  ZERO  IS 

LGYRO 

BANkcAlL 

EARTHR 

releases  gyros  for  IMUPULSE  USAGE 
EARTHRATE  cORHEfllON  TO  oyROS  NjT  EAST 

OR  WEST 

ONE 

LGYRO 

SAVE  +2 
tlStno 

reserves  gyros  for  s.f.  test  torquing 

INITIALIZES  TO  iNSURE  5,6  DEG  OF  TORQ) 
INCR  the  burst  fOUNtER*  WHICH  IS  USED  TO 

YJL  5rS,EH  rOk  AGC:  new  Pro^^AM  SHePATIN  by  eYLES 


Dec  1^*  I966  (MAIN)  PACe  AoO 


L HU  PeRI-QPMaNCE  tests  ^ 


USeR*S  own  page  no.  10 


E5 


0399 

REF 

3 

LAST 

399 

24 

.2607 

4 1563 

1 

CS 

W A C i/ 

testno 

OAOO 

REF 

10 

LAST 

393 

24 

.261D 

7 7 760 

0 

FIVE 

OAOl 

24 

*2611 

0 0U06 

1 

EXTEND 

srOpTEST 

0A02 

REF 

1 

24 

» 2 6 1 2 

1 2 7 62 

1 

3ZF 

OAO3 

REF 

2 

LASI 

399 

24 

,2613 

0 2566 

0 

TC 

DlRECTN 

OAOA 

REF 

125 

LAS  1 

399 

2h 

,261A 

3 7 761 

0 

CAF 

zero 

0A05 

REF 

5 

LAST 

399 

24 

,2613 

55'921 

1 

TS 

SAVF  +1 

0406 

REF 

6 

LAST 

395 

24 

,2613 

51*672 

0 

INDEX 

CDUNDX 

0407 

REF 

17 

LAST 

395 

24 

,261  7 

54  U32 

1 

T S 

CDUX 

0408 

24 

,2620 

0 0004 

0 

LOOKCDUP 

INHINT 

0409 

REF 

17 

LASI 

3 78 

24 

,2621 

3 7 751 

0 

CAF 

BIT5 

0410 

REF 

1 

24 

,2622 

55*924 

1 

St  I LLOOK 

TS 

T I MFR 

0411 

REF 

7 

LAST 

400 

2a 

>2623 

51  *972 

0 

INDEX 

CDUNDX 

0412 

ref 

18 

LASI 

400 

24 

,2624 

10  O32 

1 

CCS 

T 

cdux 

1 I T r>  1 lie 

0413 

REF 

I 

24 

,2625 

0 2637 

1 

1 ^ 

UU I PLU5 

0414 

REF 

1 

24 

,2626 

0 2931 

1 

1C 

TlMEWACH 

0415 

REF 

4 

LAST 

397 

2a 

,2627 

0 2442 

1 

TC 

ALARMS 

0416 

REF 

I 

2 a 

,2630 

0 2950 

0 

T C 

OUTNEG 

0417 

REF 

2 

LAST 

400 

2a 

,2631 

11*924 

1 

T hlwach 

CCS 

timer 

0418 

REF 

1 

2a 

>2632 

0 2922 

0 

TC 

SI ILLOOK 

0419 

24 

,2633 

0 0003 

1 

RELInT 

0420 

REF 

3 

LAST 

211 

2 4 

,263A 

10  067 

1 

CCS 

NEWJOB 

042  1 

REF 

2 

LAST 

211 

24 

,2635 

0 5550 

1 

T C 

CHANGl 

0422 

REF 

3 

LAST 

399 

24 

,2636 

0 2920 

1 

TC 

LOOKCDUP 

0423 

REF 

1 

24 

>2637 

4 3931 

1 

OJTPLUs 

CS 

desangle 

0424 

ref 

a 

LAs  1 

400 

24 

,2640 

51*972 

0 

index 

cdundx 

042  5 

REF 

19 

LAS  i 

400 

24 

9 2 64  1 

54  O32 

1 

T S 

CDUX 

0426 

REF 

113 

LAST 

399 

24 

,2642 

3 7755 

1 

LDAUFLAG 

CAF 

ONE 

0427 

REF 

3 

LAST 

399 

24 

,2643 

55*015 

0 

TS 

CDUELAG 

0428 

REF 

1 

24 

,2644 

3 OO47 

1 

CA 

GYROCT  R 

0429 

REf 

6 

last 

400 

24 

,2645 

55*920 

0 

TS 

SAVE 

0430 

2a 

,2646 

0 0003 

1 

RELINT 

0431 

R iF 

2 

LAST 

399 

24 

» 26A  ' 

0 2954 

1 

T C 

CDUZOTST 

0432 

REF 

2 

LAST 

400 

24 

>265<3 

3 3631 

0 

OJTNEG 

CA 

DESANGLE 

0433 

RcF 

9 

LAs  i 

4OO 

2 a 

,2651 

51*972 

0 

index 

CdUNdX 

0434 

REF 

20 

LAST 

400 

24 

,2652 

54  O32 

1 

IS 

CDUX 

0435 

REF 

1 

24 

,2653 

0 2942 

0 

TC 

LUADELAG 

0436 

REF 

10 

LAST 

400 

24 

,265A 

51*972 

0 

CDUZOTST 

INDEX 

CDUNDX 

0437 

REF 

21 

LAST 

4OO 

24 

>2655 

10  O32 

1 

CCS 

CDUX 

0438 

24 

,2656 

0 2962 

1 

T C 

0439 

REF 

1 

24 

,2657 

0 2977 

0 

TC 

EfMDWATCH 

0440 

2a 

,2660 
^ y 1 

0 2962 

1 

TC 

*Z 

0441 

REF 

2 

LAST 

400 

24 

1 266 1 

0 2677 

0 

T C 

ENDWATCH 

0442 

0443 

REF 

34 

last 

392 

24 

24 

% 2662 
♦ 266^ 

3 7744 
0 0006 

1 

1 

CAF 

EXTEND 

BlTlO 

COUNT  THe  no,  Oe  times  THE  UYRO  COUNTER 
IS  loaded,  if  a tenth  load  is  Requested 

THE  SFE  IS  100  1 ARGf  TO  Be  MeANINGFULL 
OR  1e(E  CDUtS  are  not  WOKkING. 


zeros  CDU  REG  WHICH  WILL  BE  USED  TO 

measure  angle. 


LOOKS  FOR  FIRST  CDU  PULSe  AFTER  TOROUINO 

starts 

HERE  IS  PLUS  PUi  SE 

TTELL  operator  FIRST  CDU  PULSE  »>.AS  MISSD 
here  IS  MINUS  PhLSE 

WATCHES  the  in  INHiNT  SO  COPS  wILL  NOT 
CATCH  US 


keep  WATCHING  IF  THf  PULSE  IS  NOT  HERE 

-20A7  CDU  PULSES  ADnED  TO  CDU  RfG  SO 
ZERO  crossover  rAN  rE  qETECTEd 


GYRO  TOKO  CMOS  I EFT  OUT  OF  FiRSr  5*625 
DEG  commanded  WHEN  cDu  PUL SE  ARRIVED 


RAND  WITH  BIT  lo  TO  SEE  IF  STILI.  TORO, 


488954A  YJL  SYS  i EM  f Ot<  AGC ; NEW  PROGRAM  SHePATIN  3Y  EYLES 


L I MU  pereormance  tests  ^ 


0444  REF  2 LAST  399  24,266^  02  0 
04A5  REF  222  LAST  398  24,266^  iO  UOO  0 
0446  24t2666  0 2^74  0 


0447  REF  7 LAS;  400 

0448 

0449  RzF  1 

0450  REF  8 LAST  401 


24,2667  ll'C)22  1 

24.2670  0 20/2  0 

24.2671  0 2P77  0 

24.2672  55*S22  1 


0451 

REF 

3 

LAST 

400 

24,2673 

0452 

REF 

4 

LAS ; 

4OO 

24 ,2679 

0453 

REF 

3 

LASl 

4OO 

24,2675 

0454 

REF 

3 

LASi 

400 

24,2673 

0 2366  0 
10  067  1 
0 5350  1 
0 2054  1 


RAND  14C 

CCS  A 

TC  +6 

CCS  SAVF  +2 

1C 

TC  correct 

TS  SAVE  +2 

TC  DiRECTN 

CCS  NEWJOB 

tC  CHANG! 

rC  CUUZOTST 


0455 

0456  REp 

0457  REF 

0458  REF 

0459  REF 

0460  REF 

0461  RcF 

0462  REF 

0463 

0464  REF 

0465 

0466  REF 

0467  RcF 

0468 

0469  REF 

0470  REF 

0471 

0472  REF 


26  LAST  400 
12  LASl  399 
2 LAST  400 
9 last  401 
56  last  399 

20  laSI  399 

21  LASl  401 

10  LASl  401 

11  last  401 

12  LASl  401 

1 

1 

1 


24,26'7'^  0 0004  0 ENDWATCH  INHINT 


24,2700  3 7/61  0 cAp 

24,2/01  54  356  0 IS 

24.2702  55  O47  1 XCH 

24.2703  55*021  1 TS 

24.2704  4 7/54  1 CS 

24.2705  7 0366  0 mASK 

24,2700  54  366  0 IS 

24,270T  0 0003  1 RELINT 

24.2710  3 1020  1 CALCSFE  CA 

24.2711  0 0O06  1 EXTEND 

24.2712  61*021  0 5U 

24.2713  55*022  1 TS 

24.2719  0 OOO6  1 EXTEND 

24,2713  5 2/34  0 3zMF 

24,2710  7 3O33  0 MASK 

24,271'/  0 0006  1 EXTEND 

24.2720  1 2/26  1 3ZF 


ZERO 
LuYRO 
GYROCTR 
SAVE  +1 
Two 

INiOdES33 

IM0DFS33 

SAVE 

SAVE  +1 
SAVE  +2 

AkiTH 

SIZCHK 

NEGSFE 


0473  REF  13  LASl  4OI  24,2721  4 1022  1 CS  SAVE  +2 

0474  REF  2 LAST  401  24,2722  ( 3033  0 viAsK  SiZCHK 

0475  24,2723  0 OOO6  1 EXTEND 

0476  REF  1 24,2729  1 2 /30  0 3ZF'  POSSFE 

0477  REF  2 LASl  400  24,2723  0 2/62  0 IC  STOPTEST 

0478  REF  14  LAST  401  24,2720  31*022  0 NEGSFE  CAE  SAVE 

0479  REF  2 LASl  4OI  24,272/  0 2/34  0 1C  AKITH 


R0480 

tmeRefoi- 

E Ac 

orts  and 

lURNS  0 

0481 

REF 

20 

LASl 

394 

24,2730 

0482 

24,2731 

0483 

REF 

15 

LAST 

40 1 

24,2732 

0484 

REF 

3 

LAST 

4OI 

24,2733 

0485 

24,2739 

0486 

24,2733 

0487 

24 ,2733 

0488 

REF 

2 

LAST 

399 

24,273'/ 

0489 

REF 

20 

LAST 

394 

24,2740 

rrooraim  alarm 


3 7735 

1 

POSSFE 

CAF 

PuSMAX 

0 OOO6 

1 

EX  tend 

61*922 

0 

5U 

SAVF  t2 

0 2 /35 

1 

IC 

ARITH  +1 

4 OOOO 

0 

ariih 

COM 

22  007 

0 

ZL 

0 OOO6 

1 

EXTEND 

11*323 

0 

OV 

SFCONSTl 

54  342 

0 

LOADIT 

TS 

DSPTEM2 
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USER'S  OWN  PAUP  NO.  11  E5 


SEE  IF  2.8DFC,  nK  5.6  DEG  SINCE  LAST 
EEARTHR  USE,  IF  2.8  DEG,  DO  2.8  MORE 
then  go  TO  cOrRECI 


WWILL  STOR  GYROrTR  AT  END  OF  2O48  CDU 
pulses  and  stop  TORq  by  ZEROING  REQUESTS 

release  gyros  por  others  usage 

AND  STOPS  TDRUUiNG  BY  ZEROING  TORO 

THIS  luRNS  Off  pxec  switch  So  Twe  gyro 
TORQ,  enable  REl  AY  CAN  Be  TURNED  OFF. 

GYROCIR  AT  TFST  START 

GYROCTR  AT  TEST  END 


SEE  IF  IT  IS  NEr.  OR  ZERO,  IF  NE&.SFE  IS  + 
THIS  ROUTINE  TESTS  SAVE- I SAVE  + 1 ) TO  SEE 

IF  the  result  is  within  permissible  size 

AND  determines  pOLArIIY  OF  SFE  USING  THE 
presence  or  AbsfNcE  of  bus  12,13,14. 

IF  BITS  ARE  present  IN  POSITIVE  SAVE  +2 
then  the  SFE  MUST  Bf  POS,  IF  DIFFERENCE 
IS  greater  than  2047  PULSES  FROM  THE 
IDEAL  NO  OF  PULSES,  THE  SFE  EXCEEDS 
15600  PPM,  THE  TEST  IS  NOT  VALID  AND 


POS  SFE  definition  = IRIG  SF  IN  SEC  OF 
ARC  per  pulse  is  GRfATER  THAN 
,61798095703125  SEC  OF  ARC/  PUlSE 


^8895^A  YJL  system  f- Ot<  aGC:  NlW  SHePATKJ  3Y  eYLE-S 


L nu  PER^ORMA^CE  TESTS  l 


0490 

REF 

1 

2A, 

0491 

REF 

2 

last 

300 

24, 

0492 

REF 

2 

LAST 

293 

2A, 

0493 

REF 

3 

LAS  I 

398 

2*, , 

049A 

REF 

21 

LAST 

401 

2h  , 

0A95 

REF 

1 

last 

24  , 

0A96 

REF 

A 

398 

24  , 

0A97 

REF 

11 

LAST 

397 

2A, 

0498 

REF 

32 

LAST 

398 

2A, 

0A99 

24 , 

0500 

REF 

A 

LAST 

398 

2A, 

0501 

REF 

bO 

LAST 

399 

2A, 

0502 

REF 

6 

LAS  r 

399 

2 A , 

0503 

REF 

81 

LAST 

4O2 

24 , 

0504 

R;F 

1 9 

LAST 

399 

24 , 

0505 

REF 

12 

LAST 

399 

24, 

0506 

REF 

13 

LAST 

402 

24, 

27Al  0 2^A2  1 (C 

274-i  0 AP21  0 DATADSP  TC 

27A3  0 ^<>26  1 TC 

27^*^  3 IPIA  0 CA 

27AS  SA  3aA  0 TS 

27A6  3 3S36  1 CAT 

2747  0 4PA6  1 1C 

2750  0 4011  0 TC 

2751  0 4^64  0 TC 

275<i  0 2/SA  0 TC 

2753  0 2A53  1 1C 

275A  0 5^24  0 1C 

275S  26^00  0 CADR 

275t>  0 0 TC 

27S7  26^62  0 cADR 

2760  1 2A4S  1 TCP 

276'1-  12^451  ICF 


0507  REF  82  LAST  402  2A.2762  0 5224  0 SlOPTESl  TC 


0508  REF  7 LAST  A02  24,2763  26O00  0 CADR 

0509  REF  83  LASi  402  24,276A  0 522A  0 IC 

0510  REF  20  last  402  2A,276S  26^62  0 CADR 
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measured  by  accelerometers 
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L 1YIU  PERrORMtNGE  TESTS  2 


USER’S  0»'(N  PAGf  NO.  lb  E5 


0698 

29t3263 

D0009 

0 

OLOAO# 

9 

0699 

29*326A 

99793 

1 

ldpdelop 

DSUyy 

0700 

REF 

15 

LAST 

905 

29.3265 

75I2O 

0 

DATAPL  +290.2 

0701 

REF 

16 

LAST 

9O8 

29.326S 

0265  7 

1 

DATAPL  +29D.1 

0702 

29.326  t 

91323 

0 

PDDL9 

DHP 

0703 

REF 

96 

LAST 

396 

29.327D 

75I56 

1 

GbNPL  +290,2 

O7O/+ 

REF 

2 

LAST 

393 

29.3271 

1 1699 

1 

DEC585 

0705 

29.3272 

77671 

1 

ODV 

0706 

29.3273 

55  = 09 

0 

TIX,2 

VuEF 

0707 

REF 

1 

^:9.327A 

51301 

1 

NE  XT 

0708 

2‘i.3275 

97096 

0 

ABVAL 

RIB 

0709 

REF 

9 

LAST 

393 

29.32  79 

33  = 65 

1 

SioNAGREE 

0710 

REF 

22 

LAST 

9O2 

29.327^ 

39393 

1 

STCALL 

DSPTEM2 

0711 

REF 

1 

29.3300 

51303 

0 

KODU 

0712 

29.3301 

50O06 

1 

NEXT 

PUSH 

TlX.l 

0713 

REF 

1 

29.3302 

51269 

0 

LOPDELOP 

071A 

29.3303 

7 7 776 

1 

ODU 

EXIT 

0715 

REF 

15 

LhST 

380 

29.330A 

0 9633 

0 

TC 

GRABWAIT 

0716 

REF 

5 

LAST 

399 

29.3305 

0 36OO 

1 

TC 

SHOW 

0717 

REF 

92 

LAST 

907 

29.3306 

0 6l03 

0 

TC 

INTPRET 

0718 

29.3307 

91  = 35 

1 

SLOAD 

PUSH 

0719 

REF 

1 7 

LAS  i 

908 

29.3310 

02630 

0 

DATAPL  +1 

0720 

29.3311 

91  = 35 

1 

SLOAD 

PUSH 

0721 

REF 

18 

LAST 

9O8 

29.3312 

02639 

1 

DATAPL  +5 

0722 

29.3313 

55  = 35 

1 

SLOAD 

VDEF 

0723 

REF 

19 

LAST 

908 

29.331A 

02690 

1 

DATAPL  +11 

072A 

29.3315 

7 6 5 6 

1 

UNIT 

VSLl 

0725 

<'.9.3316 

77606 

1 

PUSH 

0 726 

29.3317 

91  = 35 

1 

SLOAD 

PUSH 

0727 

REF 

20 

LAST 

9O8 

29,3320 

02699 

0 

DATAPL  +15 

0728 

29,3321 

91  = 35 

1 

SLOAD 

PUSH 

0729 

REF 

21 

LAST 

908 

29,3322 

02650 

0 

DATAPL  +21 

0730 

29,3323 

55  = 35 

1 

SLOAD 

VDEF 

0731 

REF 

22 

LAST 

9O8 

29,332A 

02659 

1 

DATAPL  +25 

0732 

29,3325 

76956 

1 

UNIT 

VSLl 

0733 

29.3326 

95  = 25 

1 

PDDL 

DSU 

073A 

REF 

23 

LAST 

908 

29,332  7 

02655 

0 

DATAPL  +26 

0735 

REF 

29 

LAST 

9O8 

29.333O 

02691 

0 

DATAPL  +12 

0736 

29 .333I 

7/612 

1 

SL9 

0737 

29,3332 

7 7652 

0 

SL3 

0738 

REF 

6 

LAST 

907 

29,3333 

26  = 30 

0 

STOVL 

lengthot 

0739 

2 9 . 3 3 3 A 

51935 

1 

vXV 

ABVAL 

07A0 

29,3335 

56205 

0 

OMP 

DDV 

07A1 

REF 

1 

29.3336 

11697 

1 

ERUNITS 

0792 

REF 

7 

LAS  I 

908 

29 .3337 

02  = 30 

0 

LENGTHOT 

0793 

29,3390 

7 7639 

0 

RTB 

0799 

REF 

5 

LAST 

90b 

29,3391 

33  = 65 

1 

SgNAGREE 

0795 

REF 

23 

LAST 

908 

29 . 3392 

00  = 93 

0 

ST  ORF 

DSPTFM2 

0796 

0797 

REF 

6 

LAST 

908 

29,3393 

29,339A 

7 7 776 

0 36OO 

1 

1 

EXIT 

TC 

SHOW 
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L 

I MU 

PtRFORMANCE 

TESTS  2 

USEK*S  OWN  PAGf  NO.  19 

E5 

07A6 

REF 

1 

24 

3345 

1 2404 

1 

M Q C D 1 

TCF 

RADCk 

07A9 

24 

334S 

0 OOO6 

1 

l^3r  OorL 

t X T END 

Sets  up  azimuth  and  vertical  vectors 

for 

O7S0 

REF 

34 

last 

4O6 

24 

3347 

23*346 

1 

3XCH 

OPLACE 

AXISGLN, RESULTS  TO  RE  USED  IN  CaLCGA 

TO 

0751 

REF 

43 

LAST 

408 

24 

335O 

0 6103 

0 

1C 

IiMTPRET 

0752 

24 

335I 

54 1 60 

1 

Axe*  1 

XSU  9 1 

AZIMUIH  In  Nb  CF'ORDS 

0753 

REF 

1 

24 

335L 

51563 

0 

SCNBAZ 

075A 

REF 

2 

LAST 

39C 

24 

3353 

02536 

0 

NbPOS 

0755 

24 

335A 

77  T73 

1 

vLOADT* 

0756 

LASi 

24 

3355 

30001 

0 

O9I 

0757 

REF 

38 

4O6 

24 

3 3 5P 

32445 

0 

store 

ST  ARAD 

0758 

24 

335  ? 

54I6O 

1 

AXC,l 

X5U,1 

vertical  in  nb  rOORDS 

0759 

REF 

1 

24 

336^ 

51575 

1 

SCNBVER 

0760 

REF 

3 

LAST 

4O9 

24 

3361 

32536 

0 

NbPOS 

0761 

24 

3362 

77  '73 

1 

yloao* 

0762 

24 

3363 

30001 

0 

0 9 1 

0763 

REF 

39 

LAST 

409 

24 

336A 

16453 

1 

STODI 

SlARAD  +6 

076A 

REF- 

1 

24 

3365 

33334 

0 

SCHZEROS 

0765 

24 

3366 

1 4OO7 

0 

STOOL 

60 

0766 

REF 

5 

LAST 

372 

24 

336  1 

32507 

1 

AZIMUTH 

0767 

24 

337O 

5 7546 

1 

COS 

DCOMP 

076  8 

24 

33^1 

I4OI 1 

1 

STOOL 

80 

0769 

REF 

6 

LAST 

409 

24 

3372 

32507 

1 

AZIMUTH 

0770 

24 

3373 

77  756 

0 

SIN 

0771 

24 

337A 

30013 

0 

STORE 

lOD 

VERTICAL  IN  CFR 

0772 

24 

3375 

77  775 

1 

YLOAO 

0773 

REF 

2 

LAST 

409 

29 

3376 

11576 

0 

SCNBVER 

0774 

24 

3377 

34OI5 

1 

STCALL 

12D 

0775 

REF 

2 

LAST 

365 

24 

34OO 

33OO6 

1 

AXlSGEN 

0776 

24 

3401 

77  776 

1 

EXIT 

0777 

REF 

2 

Last 

392 

24 

3402 

3 3542 

1 

selposn 

CA 

DEC17 

0778 

ref 

5 

LAST 

407 

24 

3403 

55*  777 

0 

IS 

ZERONoX 

0779 

REF 

1 

24 

3404 

3 3562 

0 

CA 

XbMADR 

0780 

REF 

3 

LAST 

395 

24 

3405 

0 3240 

1 

TC 

ZEROING 

0781 

REF 

1 2 

LAST 

398 

24 

3406 

51*544 

0 

INDEX 

PUSITON 

0782 

24 

3407 

0 3410 

1 

TC 

+ 1 

0783 

REF 

1 

24 

34IO 

0 3526 

0 

TC 

OPCHkPOS 

OPCHk  will  put  7ERO  IN  POSITON 

0784 

RuF 

1 

24 

34 1 1 

0 3424 

0 

TC 

POSNl 

0785 

REF 

1 

24 

3412 

0 3433 

0 

TC 

P0SN2 

0786 

REF 

1 

24 

3413 

0 3440 

1 

TC 

POSN3 

0787 

REF 

1 

24 

34 1 A 

0 3452 

1 

TC 

P0SN4 

0788 

REF 

1 

24 

3415 

0 3462 

1 

TC 

P0SN5 

0789 

REF 

1 

24 

3415 

0 3472 

0 

TC 

P0SN6 

0790 

REF 

1 

24 

34I  / 

0 3502 

0 

TC 

PUSN7 

0791 

REF- 

1 

24 

342O 

0 3515 

0 

TC 

P0SN8 

0792 

REF 

1 

24 

3421 

0 3544 

1 

TC 

P05N9 

0793 

REF 

1 

24 

3422 

0 3555 

1 

TC 

POSNIO 

0794 

REF 

1 

24 

3423 

0 3566 

1 

TC 

PoSNl 1 

COMPASS  position 

A88954A  YJL  SYSieM  FOK  AGC;  SHePAtIN  3Y  eYLe 
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L nu  PEPf  ORMiiNCE  TtSTS  2 USER'S  OWN  PAGp  NO.  20 

P0795  (KXX.^X  MeR.')  AND  A ^SRIICAL  (eST  BY  Dy  (XXX. XX  MeRU)  EACH  POSITION  TELL 

R0796  how  l^E  displays  ARe  ReLATeD  TO  T I He  DRIFT  COEFFICIENTS  BeING  MeASUReD. 

R0797  note  IHAT  If  IS  ILLEGAL  TO  VERTICAL  IN  PoS  6.A.  OR  2 WITHOUT  FIRST 

R0798  RUNNING  HORIZONTAL  oF  PqS  5»3.  ORi.  THIS  IS  BECAUSE  THE  HuRlZ  DRIFt  CALC 

R0799  in  1,3,  OK  5 IS  USED  AS  EAST  URIF^FT  FoR  YeRTKaL  TESt.  THIS  IS  DONE  BY 


R0800 

R0801 

the  maci.ine  automatically  e><clPt  Ror  vertical 
operator  must  DU.  (SEI  POSITION  6 BELOW) 

Position 

6 WHICH  the 

0802 

Kcr 

5 

LM6  1 

368 

^;a  ,3A2H 

3 ( < AU 

U AjaiMi 

CA 

HALF 

X UP,  Y SOUTH 

0803 

REF 

A5 

LAST 

A07 

2A  ,3A25 

55'HOO 

0 

IS 

XSM 

OBOa 

REF 

lA 

LAST 

a06 

2A,3a26 

55’A10 

1 

TS 

YSM  +2 

NBDY  = DH 

0805 

REf 

12 

LAST 

39A 

2A , 3h2  7 

6 5 , A20 

1 

I s 

zsm  .a 

0806 

REF 

130 

LAST 

A07 

2a,3a30 

3 7/61 

0 NSUBGH 

CA 

ZERO 

0807 

REF 

13 

Last 

AOA 

2A , 3a3 1 

55'PAl 

1 

TS 

PiPINDEX 

0808 

REF 

U5 

LAST 

A09 

2A,3A3Z 

0 15A6 

1 

1C 

OPLACE 

0817 

0818 

REF 

REF 

6 

A6 

Last 

LAST 

AlO 

AlO 

2a,3a33 

2A,3A3A 

A 7 /AO 
55  •‘*00 

1 

0 

POSNZ 

CS 

TS 

HALF 

XSM 

0819 

0820 
0821 

REF 

REf 

REF 

I 5 
13 

1 

last 

last 

AlO 

AlO 

2a  ,3a35 
2A,3A36 
2A,3a37 

55  •''12 
55'H16 
0 3''30 

0 

1 

0 

TS 

TS 

TC 

YSM  +A 

ZSM  +2 
NuUBGH 

0832 

rEf 

7 

Last 

AlO 

2 A , 3 A AD 

3 7 / AO 

0 

P0SN3 

CA 

Half 

0833 

REF 

lA 

last 

AlO 

2A,3AA1 

55'H1a 

0 

IS 

ZSM 

083A 

2 A , 3aA2 

A OOOO 

0 

COM 

0835 

REF 

A7 

LAST 

AlO 

2A ,3AA3 

55 ' “*02 

1 

T S 

XSM  +2 

0836 

REF 

16 

LASI 

AlO 

2A,3AAA 

55'H12 

0 

TS 

YSM  +A 

0837 

REf 

58 

last 

AOS 

2A ,3AA5 

3 7/5A 

0 

NSFlAGD 

CA 

TwO 

0838 

REF 

1 A 

LAST 

AlO 

2 A , 3 A A 0 

5 5 , 5 A 1 

1 

TS 

PIPINDEX 

0839 

REF- 

131 

last 

AlO 

2A,3AA7 

3 7/61 

0 

NSBUGD 

CA 

ZERO 

08A0 

REF 

3 

LAST 

393 

2A  ,3a50 

55'P76 

0 

TS 

DKIFTT 

08a1 

REF 

36 

Last 

AlU 

2 A , 3 A 5 1 

0 1PA6 

1 

TC 

OPLACE 

08A5 

REF 

8 

LAST 

AlO 

2a,3A52 

3 7 /AO 

0 

PDSNA 

CA 

HALF 

08A6 

REF 

A8 

LAST 

AlO 

2A,3a53 

55'AOA 

1 

TS 

XSM  +A 

Uoh7 

REF 

17 

Las  I 

,,10 

2a , 3 ABH 

55 ' H 10 

1 

T S 

YSM  +2 

08A8 

2A,3A55 

A OOOO 

0 

COM 

08A9 

REF 

15 

LAST 

AlO 

2A,3a56 

55,A1a 

0 

TS 

ZSM 

0850 

REF 

59 

LAST 

AlO 

2 A , 3a57 

3 7 /bA 

0 

CA 

TwO 

0851 

REF 

15 

LAST 

AlO 

2 A , 3A6D 

55>bAl 

1 

TS 

PIPINDEX 

0852 

REF 

37 

LAST 

AlO 

2A,3A6l 

0 1PA6 

1 

TC 

□PLACE 

X DOWN,  Y WEST,  Z NORIH 
NBDZ=DH,NBDX-ADIAX=-DV 


Z UP,  Y WEST  ,x  north 
NBDX  = -DH 


Z DOWN,  Y SOUTH  ,X  LAST 
NBDY  + SRAY  = CH,Nf,DZ  + ADlAZ  = DV 


0855  REF  9 LAsT  AIO  2A,3A62  3 (/AO  0 P3sN5  CA  HALF  Y UP,  Z NORTH.  X WE^T 


E5 
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L IMU  PERFORMANCE  TESTS  i USER'S  OwN  PAGf  NO.  21  e5 


0856 

REF 

18 

LAST 

AlO 

2A,3A63 

0 

TS 

YSM 

0857 

2A,3A6A 

A OOOO 

0 

COM 

NBD2-SRAZ=DH 

0858 

REF 

A9 

LASi 

AlO 

2A  ,3A6S 

35 1 AOA 

1 

TS 

XSM  +A 

0859 

RcF 

i 6 

LAST 

AlO 

2 A * 3A6S 

5 5 * 1 6 

1 

T S 

ZSM  +2 

0860 

ref 

1 lA 

LAST 

AOO 

2 A , 3 A 6 7 

3 Hbb 

1 

CA 

ONE 

0861 

REF 

16 

LAST 

AlO 

2a,3a70 

SS'PAl 

1 

TS 

PIPINDEX 

0862 

REF 

1 

2A  , 3A7 1 

0 3AA7 

0 

TC 

NSBUGD 

R0866  To,  RUN  PoSHluN  & VERTiCaI  AFTER  PiP  TEST  PqS  6 (5  DISPLAYED  THE  qPERATR 

R0867  MJSl  CALCULATE  FROM  POSN  I'.P  -N3D2-AD5RAZ  ( XXX . XX ) ME RU.  WHEN  P 

R0868  1=  data  flashes  DO  Verb  33  enter,  this  staRts  Vertical  test,  tHen  the 

R0869  data  xXa.XX  Mt^RU  AS  CALCULAlE^  MU^T  BE  ENTERED  INTO  DRIETT.  lE  VeRB  21 

R0870  enter  N(,UN  01  enter  LOCATION  OF  DRIFtT  ENTER  + (oR  -)  XXXXX  ENTER 

0871  REF  10  last  AlO  2a,3a72  3 / TAO  0 P0SN6  CA  HALF  Y DOWN,  Z EAST,  X SoUlH 

0872  REF  SO  LAST  All  2A,3A73  SS'AOZ  1 IS  XSM  +2 

0873  REF  U LASI  All  2a*3a7A  55'''20  1 TS  ZSM  +a 

087A  2A,3a75  A OOOO  O cOm  NBDx  +AD5RAX  = DHt  NbDy  -ADIAy 


0875 

REF 

19 

LAST 

All 

2A,3A7P 

55*A06 

0 

0876 

REF 

115 

Last 

All 

2 A » 3 a7  T 

3 7^55 

1 

0877 

ref 

17 

LAST 

All 

2A ,3500 

55'PAl 

1 

0878 

REF 

38 

LAST 

AlO 

2A,3bOl 

0 iPA6 

1 

15  YSM 

CA  ONE 

TS  PIPINDEX 

TC  QPLACE 


^DV 


0883 

ref 

11 

last 

All 

2a,3502 

A 7^A0 

1 

P35N7 

cs 

HALF 

088A 

REF 

51 

LAS  1 

All 

2a, 3503 

55  IH02 

1 

TS 

XsM  +2 

0865 

REF 

1 

2A,350A 

3 3P56 

1 

CA 

ROOTl/2 

0886 

REF 

20 

LAST 

Al  1 

2A  ,3505 

5 5 • A06 

0 

T S 

YSM 

0887 

REF 

18 

LAST 

All 

2A,3506 

55'A1A 

0 

TS 

ZSM 

0888 

REF 

19 

LAST 

All 

2A . 3507 

55' A20 

1 

TS 

ZSM  +A 

0889 

2A,3510 

A oOOO 

0 

COM 

0890 

REF 

21 

LAST 

All 

2a,3511 

55'A12 

0 

TS 

YSM  +A 

0891 

REF 

2 

LAST 

89 

2A,3512 

0 6036 

1 

GEORGES 

TC 

FLAGlDWN 

0892 

2 A . 3 5 1 3 

00200 

0 

OCT 

200 

0893 

REF 

2 

LAST 

All 

2a,351A 

0 3AA7 

0 

TC 

NSBUGD 

0907 

Rp 

12 

LAST 

All 

2A,3515 

3 7TAO 

o posns 

CA 

Half 

0908 

REF 

52 

LAST 

All 

2 A , 3 5 1 5 

55 ' AO A 

1 

T S 

XSM  +A 

0909 

n n T n 

REF 

O Z (T 

2 

LAST 

All 

2a,351T 

3 3P56 

1 

CA 

ROOTI/2 

uy  i U 

K Cr 

22 

LAST 

All 

2 A , 3 52O 

55'A06 

0 

TS 

YSM 

0911 

REF 

20 

LAST 

All 

2A.3521 

55' A16 

1 

TS 

ZSM  +2 

0912 

ref 

21 

LAST 

All 

2A.3522 

55  ' AIA 

0 

TS 

ZSM 

0913 

2 A . 3 5 2 3 

A OOOC 

0 

COM 

091A 

REF 

23 

LAST 

All 

2A  ,352A 

55'A10 

1 

TS 

YSM  +2 

0915 

REF 

3 

LAST 

All 

2A,3525 

0 3Aa7 

0 

TC 

NSBUGD 

Z UP-EAST. Y UP-Ia-EsT.X  NORTH.IHIs  POsHON 
NBDX  - .707  ADsRAX  = -DH 

UNSET  GIMBAL  LOrK  FLAG 

z up-south.y  up-norfh.x  East. This  positn 

,707 (-NBDZ-N6DY)  +.5  ( AD  I AZ-AD I AY ) 

+ .S(ADSRAY  +AD<;RAZ)=DH 
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0922 

REE 

1 

2A,3526 

3 3657 

0 

OPCHkPOS 

CA 

ROOTISq 

OG=+A5DEG,1G=-a5DEG,MG=+A5DEG, 

0923 

REF 

S3 

LAST 

All 

2 A * 3 52  7 

5 5 • AOO 

0 

TS 

XSM 

092A 

ree 

2A 

last 

All 

2A,3530 

551AIO 

1 

TS 

YSM  +2 

0925 

REE 

25 

LAS  1 

A 1 2 

2 A . 3 53  ^ 

55 ' A1 2 

0 

T S 

YSM  +A 

0926 

REF 

22 

LAST 

All 

2A ,3532 

551AIA 

0 

TS 

ZSM 

0927 

REF 

3 

LAST 

All 

2A,3533 

3 3656 

1 

CA 

ROOTl/2 

0928 

REF 

26 

LAST 

A12 

2A , 353A 

5 5 • A 0 6 

0 

T S 

YSM 

0929 

REF 

1 

2A,353i= 

3 3661 

0 

CA 

ROOT3SO 

0930 

REF 

5A 

LAST 

A12 

2A  ,3536 

55 ' A02 

1 

TS 

XSM  +2 

0931 

REF 

23 

LAST 

Al2 

2a  f 353  ^ 

55' A20 

1 

T S 

ZSM  +A 

0932 

REf 

1 

2a,35a0 

A 3660 

0 

cs 

ROOT2SO 

0933 

REF 

55 

LAST 

A12 

2A ,35A1 

55'AOA 

1 

TS 

XSM  +A 

093  A 

REF 

2 A 

LAST 

A12 

2 A , 3 5 A2 

5 5 ' A 1 6 

1 

T S 

ZSM  +2 

0935 

REF 

39 

LAST 

All 

2a.35A3 

0 15A6 

1 

TC 

□PLACE 

0936 

REF 

13 

LAST 

All 

2 A , 3 5 A A 

3 7 ^AO 

0 

P3SN9 

^A 

HALF 

X up  EAST,Y  up  WEST, 2 SOUTH, THIS  POSITON 

0937 

REF 

25 

LAST 

A12 

2a,35A5 

55'A16 

1 

TS 

ZSM  +2 

0938 

REF 

A 

LAST 

A12 

* 354ti 

3 3656 

1 

CA 

ROOTl/2 

-NBDZ  +,707  SRaZ  sDH 

0939 

REF 

56 

LAST 

A12 

» 354  7 

5 5'  AOO 

0 

T S 

XSM 

09a0 

REF 

57 

LAST 

a12 

2a.355^ 

55'AOA 

1 

TS 

XSM  +A 

09A1 

REf 

27 

last 

A12 

2A,355l 

55'A06 

0 

TS 

YSM 

09A2 

2 A , 3 552 

A OOOO 

0 

COM 

09A3 

REF 

28 

LAST 

A12 

2A,3553 

55»A12 

0 

TS 

YSM  +A 

09AA 

REF 

A 

LAST 

All 

2A,355A 

0 3AA7 

0 

TC 

NSBUGO 

0955 

ref 

lA 

Last 

A12 

2A,355S 

3 7 TAO 

0 PoSNlO 

CA 

half 

X UP  noRTh.y  UP  south.z  East. this  positn 

0956 

REF 

26 

LAST 

A12 

2A  ,3556 

55'A20 

1 

TS 

ZSM  +A 

0957 

REF 

5 

LASi 

A12 

2A,3557 

3 3656 

1 

CA 

RUOTl/2 

.707(NBDY  -NBOX)  +.5(ADIAY  -ADIAX) 

0958 

REF 

58 

LAST 

A12 

2 A , 3 560 

5 5 ' AOO 

0 

T 5 

XSM 

+,5(ADSRAX)  = DH 

0959 

REF 

29 

LAST 

A12 

2a  <3561 

55'A06 

0 

TS 

YSM 

0960 

REf 

30 

LAST 

A12 

2a,3562 

55*A10 

1 

TS 

YSM  +2 

096  1 

2a , 3563 

A OOOO 

0 

COM 

0962 

REF 

59 

LAST 

A12 

2A,356A 

55 1 A02 

1 

TS 

XSM  +2 

0963 

REF 

5 

LAST 

A12 

2A,356S 

0 3AA7 

0 

TC 

NSBUGD 

096A 

ref 

91 

LAST 

406 

2a  ,3566 

0 5 A2 A 

0 PoSNll 

TC 

banxcall 

COMPASS  POSTT InN 

0965 

REF 

1 

2A ,3567 

7 3 100 

1 

CADR 

LuADxSM 

0966 

REF 

aO 

LAST 

41^ 

2a,3570 

0 15a6 

1 

TC 

□PLACE 

0970  ref  2A  LAsl  A08  Za.SSTI  3 0^A2  1 SHOY.LD  CA  DsPTEM2 


0971 

REF 

8 

LAST 

A08 

2A,3572 

55'S27 

1 

IS 

LENGTHOT 

0972 

REF 

25 

LAST 

Al2 

2A,3573 

3 03a3 

0 

CA 

DSPTEM2  +1 

0973 

REF 

A 

LAST 

A09 

2 A , 3 57A 

5 5 ' S 3 6 

1 

T S 

NBPOS 

097A 

REF 

26 

LAST 

A12 

2A,357S 

3 03aA 

1 

CA 

0SPTEM2  +2 

^8895^A  YJL  system  FOR  AGC:  MEW  PROG^i\M  sMePATIN  BY  EYLES 


DEC  U,  1966  (MAIN)  PAGE  A13 


L IMU  performance  tests  i USER'S  OWN  PAGr  NO.  23 


0975 

REF 

13 

LASi 

909 

29,357f> 

551599 

1 

TS 

POSITON 

0976 

REF 

16  7 

LAST 

907 

29 .3577 

0 0002 

0 

T C 

0 

0977 

29»3600 

0 OUO6 

1 

SHOW 

EXTEND 

0978 

REF 

9l 

last 

9I2 

29.3601 

2 3*  596 

1 

OXCH 

QPLACE 

0979 

REF- 

19 

LAST 

913 

29.3602 

3 1599 

0 

SHOWl 

CA 

POSITON 

0980 

REF 

11 

LAST 

912 

29.3603 

59  399 

0 

TS 

DSPTEM2  +2 

0981 

REF 

2 

LAST 

902 

29 . 360A 

3 36  36 

1 

CA 

Vb06N66 

0982 

REF 

95 

LAST 

902 

29.3605 

0 9696 

1 

rc 

NVSBWAIT 

0983 

REF 

12 

LAST 

9O2 

29.3606 

0 9611 

0 

T C 

FLA5FI0N 

0989 

REF 

33 

LAST 

902 

29.3607 

0 9969 

0 

TC 

END  IDLE 

0985 

REF 

1 

2 9 . 3 6 1 0 

0 2236 

1 

TC 

FINISH 

0986 

REF 

92 

LAST 

9 1 3 

29.3611 

0 1596 

1 

T C 

QPLACE 

0987 

REF 

2 

Last 

391 

29.3612 

0 3571 

1 

TC 

SHOWED 

0988 

REF 

1 

29.3613 

1 3602 

1 

TCF 

SHOWI 

098801 
098802  REF 
098803  REF 
09880A 
098805  REF 
098806  REF 
098807  REF 
098808  REF 
098809  REF 
09681  REF 
098811 
098812  REF 


93  LAST  9l3 
99  LAST  909 

60  LAST  9U 
1 

31  LAST  912 

2 LASi  913 
27  LAST  912 

3 LAST  913 

99  LAST  913 


29.3619 

0 OOO6 

1 

COADGTSM  extend 

THIS  LOADS  XSM  INTO  GlOMATRX 

29.3615 

23*596 

1 

OXCH 

QPLACE 

29.3616 

0 6103 

0 

TC 

INTPRET 

29.361^ 

77775 

1 

yload 

29.3620 

'J2901 

0 

XSM 

29,3621 

26  750 

1 

stovl 

GEOMTRX 

29.3622 

02907 

0 

ysm 

29,3623 

26  756 

1 

STOVL 

GEOMTRX  +6 

29.3629 

02915 

0 

ZSM 

29,3625 

02  769 

0 

STORE 

GEOMTRX  +120 

29,3626 

7 7 776 

1 

EXIT 

29,3627 

0 1596 

1 

TC 

QPLACE 

LS 


488954A  YJL  SYSTEM  F Ok  AGC : NgW  PRO^i^A'I  SMePAtIN  3Y  eYLeS  DeC  1:,,  I966  (MAIN)  PAGE  AlA 

L nu  performance  tests  I USER'S  OtVN  PaGF  no.  2A  ES 


0989 

0990 

0991 

0992 

0993 
099A 

0995 

0996 

0997 

0998 

0999 

1000 
1001 

ClOOl 


0019 

19C 

EQUALS 

0019 

29,3630 

JZ'-iU 

1 

V21N30E 

OCT 

O2I3O 

29 ,3631 

O9OOO 

0 

DESANGLE 

OEC 

2098 

29,3632 

09i93 

0 

SFC0N5T 

OEC 

.13107 

29,3633 

39OOO 

0 

SI ZCHK 

OCT 

39000 

29 ,363A 

00269 

1 

180DEC 

OEC 

180 

2a  , 3633 

07326 

1 

3990DEC 

OEC 

3990 

29,3633 

00366 

1 

\/B06N66 

OCT 

00666 

29, 363 T 

OII3O 

1 

TESTTIME 

OEC 

600 

29,3690 

01320 

1 

V16N20S 

OCT 

01620 

29,3691 

01390 

1 

V 1 6N9OS 

OCT 

01690 

29 ,3692 

OOO2I 

1 

DEC17 

OEC 

17 

29,3693 

29,369A 

06200 

ooooo 

0 

1 

DEC585 

2DEC 

3200  B+19 

1002 

1003 

C1003 

lOOA 

1005 

1006 

1007 

1008 

1009 

1010 
1011 
1012 
1013 
lOlA 


REF 

REF 

REF 


REF 


2A,36A5  OOAOO  0 DELYOFF 

2A,36A6  OOU2A  1 ERJNIT3 

2A.36A7  35AyA  0 

7 LaSI  a09  2A.3650  OIPO6  0 GENPLAD 

1 2A.3651  02P21  0 GYRODPL 

10  LAST  389  2A,3652  02^00  0 OGCPL 

29,3653  77F6O  0 LDfJFOUR 

29,365^  OOUFO  0 DEC56 

29,3653  lOOOO  0 95DEG 

29,3653  13‘;9l  1 ROOTl/2 

2h,3657  lOUOO  0 ROOTISQ 

29.3660  15320  1 R30T2SQ 

29.3661  02960  1 R00T350 

61  LASi  913  29,3669  0l900  1 XSMADR 


OCT  00900 
2DEC  392899  B-28 

5ENADR  AZIMUTH 
ECADR  GYROD 
ECADR  OGC 
OCT  77760 
OEC  56 
OCT  10000 
OEC  .353553 
OEC  .250000 
OEC  .926776 
OEC  .073223 
GENADR  XSM 


1018 

29,3663 

ooooo 

1 

SCNBAZ 

2DEc 

0 

C1018 

29,366A 

OOOOO 

1 

1019 

29 ,3663 

ooooo 

1 

2DEC 

0 

C1019 

29,3666 

OOOOO 

1 

1020 

29,366  T 

20OOO 

0 

LABNBAZ 

2DEC 

.3 

C1020 

29 , 367C 

ooooo 

1 

1021 

29,3671 

ooooo 

1 

2DEC 

0 

CIO2  1 

29 ,3672 

ooooo 

1 

1022 

29,3673 

ooooo 

1 

2DEC 

0 

C1O22 

29,3679 

ooooo 

1 

1023 

29,3673 

20000 

0 

SCNBVER 

2DEC 

. b 

C1023 

29,3673 

ooooo 

1 

1029 

29,367  ^ 

ooooo 

1 

2DEC 

0 

C1029 

29 , 370G 

ooooo 

1 

1025 

29,3701 

ooooo 

1 

LABNBVER 

2DEC 

0 

C1025 

29,3702 

ooooo 

1 

1026 

29,3703 

ooooo 

1 

2DEC 

0 

C1026 

29,3709 

ooooo 

1 

1027 

C1027 

29,3705 

29,3703 

57^77 

11  ni 

1 

0 

2DEC 

-.5 

^8895^A  yJL  SySIEM  EOR  AgC  ; NLw  pROCj^'A'^  SHtpATiN  sy  Eyt-t-S 


L nu  PeRtORMaNCE  TE^TS  2 


10271 

2A,3707 

OOlAA 

0 

ISECX 

OEC 

10272 

2A,37lO 

17^27 

0 

georged 

2DEC 

C10272 

2A.3711 

16  ^05 

1 

10273 

2A  » 37  1 ^ 

0731a 

0 

2DEC 

C10273 

2a*3  /13 

36<:23 

1 

1027A 

2A,37lA 

0At)21 

0 

2DEC 

C1027A 

2A»3?15 

31 1 AO 

0 

10275 

2A,37l6 

75  ^55 

1 

GEORGEC 

2DEC 

C10275 

2A,37l  <' 

73P2I 

0 

10276 

2A,372D 

72A  76 

1 

2DEC 

C10276 

2A,372l 

5Ai76 

0 

10277 

2A,3722 

OA  ^1 

1 

2DEC 

C10277 

2A»3723 

03365 

1 

10278 

2a,372A 

756AA 

0 

GE0R6EB 

2DEC 

C10278 

2A,372i) 

70661 

1 

10279 

2A  » 3726 

A 7 ^62 

1 

2DEC 

C10279 

2A.372^ 

75077 

0 

102791 

2A,3730 

70023 

1 

2DEC 

C102791 

2A  » 37  3 1 

73  ^AO 

0 

Dec  1a»  1966  (MAIN)  pAgE  Alt) 


100 

.A7A088A5 

.2312589A 

.1A561689 

-.06360691 

168067A6 

.18582939 

-.0680678A 

-.7507989A 

-.2A87870A 


USER'S  OwN  PAGf  no.  25 


E5 


A8895^A  y jL  SySlEM  Ag^:  f'ttiw  pROG^Avi  5^'lEpATllM  3Y  EY^-ES 


dec  l3t  1966  (mAIN)  pAGE  916 


U I'^U  PeREORMaIMCe  TESjG  3 


USER'S  OWN  PaGf  no.  1 


0001  23*2520  3An<  23 

0002  REF  52  LAST  919  E5  EBAN<=  XSM 


0500 

0501 

REF 

95 

LAST 

913 

23.2520 

23.2521 

0502 

0503 

REF 

REF 

9 

7 

LASl 

LAST 

902 

177 

23.2522 

23.2523 

0509 

0505 

0506 

REF 

1 

23,2529 

23.2525 

23.2526 

0507 

REF 

3 

LAST 

901 

23,2527 

0 0006 
23*596 

1 silver 

1 

EXT  End 
OXGri 

qplace 

11*614 

1 

CCS 

CALCDIR 

3 7795 

0 

CAF 

B1T9 

0 2526 

1 

TC 

♦ 2 

0 2530 

0 

rc 

toRk 

0 0006 
05  014 

1 

1 

EXTEND 

WOR 

14C 

SHOULD  BE  ADDRfSS  OF  STRFWACH 

2F  command  is  Positive  the  minus  torq 

WINDING  IS  TO  rE  ENERGIZED 
COMMAND  IS  NFG  SO  USE  PLUS  WINDING 

selects  the  minus  winding 


0508  REF  21  LASl  901  23,2530  3 7^35  1 TDRK  CAF  POSMAX 

0509  REF  3 LAST  901  23,2531  59  097  0 TS  GYROCTR 


0510 

REF 

2 

LAST 

390 

0511 

ref 

1 

0512 

REF 

13 

LASl 

393 

0513 

REF 

1 

0519 

REF 

1 

0515 

REF 

1 

0516 

0517 

REF 

9 

LAST 

416 

23*2532 

11 

*616 

0 

CCS 

GYTOBETQ 

23  *2533 

0 

2537 

1 

TC 

SE  LFCTX 

23*2539 

0 

9 725 

0 

TC 

CCSHOLE 

23,2535 

0 

2597 

0 

TC 

SELECIZ 

23,2536 

0 

2593 

1 

T C 

SELECTY 

23,2537 

3 

2553 

0 

SeLECTX  CAF 

TOR<X 

23,2590 

0 

0006 

1 

EXTEND 

23,2591 

05 

019 

1 

WOR 

I9C 

0518  REF  96  LAS?  916  23,2592 

0519  REF  1 23*2593 

0520  23,2599 

0521  REF  5 last  9l6  23,2595 

0522  REF  97  LAST  9l6  23,2596 


0 1546 

1 

TC 

QPLACE 

3 2559 

1 SELECTY 

CAF 

TORKY 

0 0006 

1 

EXTEND 

05  O14 

1 

WOR 

I4C 

0 1546 

1 

1C 

QPLACE 

16383  PULSES  =2.8125  DEG  LESS  0 viE  PULSE 
C(K.)=  1 Fur  X,  -0  For  y*  -ifor  7. 


BBITS  7AND  10  IN  channel  19  wILl 
select  X GYRO  AND  TURN  ON  BCSW  1/3200 
SSEC  LATER  BY  CrANNrL  OUTPUT  DESIGN... 


BBITS  8 AND  10  tO  TORQ  Y GYRO 


0523  REF  1 23*2597 

0529  23,2550 

0525  REF  6 LAST  9l6  23,2551 

0526  REF  98  LASl  916  23,2552 

0527  23,2553 

0528  23,2559 

0529  23,2555 


3 2555 
0 0OO6 
05  014 

0 

1 

1 

SeLECTZ 

CAF 

EXTEND 

wOR 

TORKZ 

I9C 

0 1546 

1 

1 C 

□PLACE 

OUOO 

1 

TORKX 

OCT 

01 100 

01200 

1 

TORKY 

OCT 

01200 

01300 

0 

rORKZ 

OCT 

01300 

BBITS  7*8AND  10  TO  TORQ  Z GYRO 


48S95AA  y jL  5>StEm  AGC:  MEa  pROG^Avi  SHEpATlN  BY  EYLLS 


Dec  1^*  1966  (MAIN)  pAGE  AH 


L HU  Peri  okmance  testg  3 


USER'S  OWN  PAGf  NO.  1 E5 


0630 

RHf 

132 

LAST 

410 

23,2556 

3 

7 761 

0 

samudchk 

CAP 

zero 

0531 

REF 

4 

LAST 

400 

23,2557 

5 5 

• 563 

1 

T S 

TESTNO 

0532 

REF 

10 

LAST 

382 

2 3 , 2 5 6® 

55,550 

1 

rs 

RUN 

0533 

REF 

1 

23 ,2561 

y 

3^53 

1 

TC 

ZEROMODE 

053A 

REF 

1 

23,2  56^ 

0 

3I76 

1 

1C 

OPRTRULY 

0535 

REF 

1 

23,2563 

0 

3456 

0 

TC 

COARZERO 

0536 

REF 

1 

23,2564 

0 

3162 

1 

TC 

ZEROMAIN 

0537 

REP 

2 

LAST 

417 

23 ,2563 

0 

3 1 76 

1 

IC 

OpRTRuLY 

0538 

REF 

2 

LAST 

4l7 

23,2566 

0 

3I52 

1 

TC 

ZtROMODE 

0539 

REF 

133 

LAST 

417 

23*256^ 

3 

7761 

0 

caf 

ZERO 

05A0 

ref 

1 

23,257° 

0 

3IO4 

1 

TC 

THETADLD 

05A1 

REF 

1 

23,2571 

3 

3333 

1 

CAF 

45ANG 

05A2 

REF 

2 

LAST 

417 

23,2572 

0 

3IO4 

1 

TC 

THETADLD 

05A3 

REF 

1 

23,2573 

0 

3272 

0 

TC 

FimZEROFN 

05AA 

REF 

1 

23,2574 

3 

3335 

1 

CAF 

90ANG 

05A5 

ref 

3 

LAST 

417 

23,2575 

0 

3104 

1 

TC 

THETADLD 

05  A6 

REF 

1 

23,2575 

3 

3336 

1 

CAF 

1 35ANG 

05A7 

REF 

4 

LAST 

417 

23,257  f 

0 

3IO4 

1 

TC 

THETADLD 

05A8 

REF 

134 

LAST 

417 

23,2t.OO 

3 

7 761 

0 

CAF 

ZERO 

0549 

REF 

5 

LAST 

417 

23,2601 

0 

3IO6 

0 

TC 

THETADLD  +2 

0550 

REF 

2 

LAST 

417 

23 ,2602 

0 

3272 

0 

TC 

FNZEROFN 

0551 

REF 

1 

23,2603 

3 

3341 

1 

CAF 

IBOANG 

0552 

REf 

1 5 

last 

395 

23,2604 

54 

400 

1 

T S 

ThETAD 

0553 

ref 

16 

LAST 

417 

23,2605 

54 

401 

0 

TS 

THETAD  +1 

0554 

REF 

1 

23,2606 

3 

3334 

0 

CAF 

71ANG 

0555 

REF 

6 

LAST 

417 

23,2607 

0 

3 1 06 

0 

TC 

THETADLD  *2 

0556 

REF- 

1 

LAST 

23,261° 

3 

3342 

1 

CAF 

225ANG 

055  7 

REF 

t 

417 

2 3 , 2 6 1 1 

0 

3IO4 

1 

TC 

THETADLD 

0558 

REF 

135 

LAST 

417 

23,2612 

3 

7 761 

0 

CAF 

ZERO 

0559 

REF 

8 

LAST 

4 1 7 

23,2613 

0 

3 104 

1 

TC 

THETADLD 

0560 

REF 

D C C 

60 

LAST 

410 

23,261A 

3 

7 754 

0 

CAF 

T NO 

0561 

Ktr 

1 1 

LAST 

400 

23 ,2615 

1 u 

1 

Cr|<2 

T S 

CUUNDX 

0562 

n K /E  ^ 

REF 

D r 1- 

1 

23,2615 

3 

3343 

0 

CAF 

I7OANG 

u D o ^ 

KiF 

1 2 

LAST 

417 

23,2617 

0 

INoEx 

cdundx 

^88954A  YJL  SYSTEM  TOR  AGC;  NEW  PROG:?AM  SHePATIN  BY  EYLES 


L 

1 MU 

PLRFORMaNCL 

TESTS  3 

056A 

REF 

17 

LAST 

AI7 

23,262° 

5A  AOO 

1 

IS 

0565 

REF- 

92 

LAST 

A12 

23,2621 

0 

522A 

0 

TC 

0 5 66 

REF 

5 

LAST 

AOS 

23,2622 

26°65 

0 

CADR 

0567 

REF 

1 

23,2623 

3 

3P37 

0 

CAF 

0568 

REF 

1 

23,262A 

0 

3°25 

0 

TC 

0569 

REF- 

1 

23,2623 

3 

33A0 

0 

CAF 

0570 

REF 

2 

LAST 

Al8 

23 ,2626 

0 

3°25 

0 

TC 

0571 

REF 

1 

last 

23,2627 

0 

3U5O 

1 

TC 

0572 

REF 

93 

A18 

23,263° 

0 

5^2  A 

0 

TC 

0573 

REF 

2A 

LAST 

A06 

23f263l 

26  IbZ 

0 

CADR 

057A 

R^F 

I 

23,263^ 

1 

2 ' 70 

1 

T CF 

0575 

REF 

2 

LAST 

A17 

23,2633 

0 

3256 

0 

TC 

0576 

REF 

13 

LAST 

A17 

23  »263A 

11 '672 

1 

CCS 

0577 

rff 

1 

23,2635 

1 

2615 

0 

TCF 

0578 

ref- 

2 

LAST 

Al7 

23,2636 

A 

3333 

0 

CS 

0579 

ref 

9 

LAST 

A17 

2 3 ,2637 

0 

3IOA 

1 

TC 

0580 

REF 

3 

LAST 

Al7 

23 ,26A° 

0 

3272 

0 

TC 

058  1 

REF 

2 

LAST 

A17 

23*26A1 

A 

3^36 

0 

CS 

0582 

rsf 

18 

LAST 

A18 

23,26A2 

5A  AOO 

1 

T5 

0563 

REF 

19 

LAST 

Al8 

23, 26A3 

5A  AOl 

0 

T S 

058A 

REF 

2 

LAST 

a17 

23 ,26AA 

A 

3A3A 

1 

CS 

0585 

REF 

10 

LAST 

A18 

23,26A5 

0 

3IO6 

c 

TC 
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L PReLAUNCH  ALIGnMerT  CALIBRATION  USER'S  0«IN  PaGf  NO 

f^oooooi  PROGRAM  naMe-oPtimum  preLaunch  aUgnment  calibration 

R000002  DATE-  NOVEMBER  2 1966 

R000003  BY-  GEORGE  SCHMIDT  IL  ?-1a6  E<T.  126 

R000009  mod  no  1 

K000006  FUNCTIONAL  DESCRIPTION 

ROOOOOS  THIG  LOG  SECTION  CONSISTS  oP  ^R'LAUNCH  ALIGNMENT  AND  GYRO  DRIFT  TESTS 
^000009  INTeSRAteO  tOGetHeR  to  Save  ^OROS.  It  is  completely  restart  proofed, 

Rooool  the  PRELAUNCH  alignment  /TL’CHNi  OJe  is  basically  the  same  as  in  block  t 
Rooooii  e>^cept  that  It  has  been  simPlifieL*  in  the  Sense  thai  small  angle  approx. 

R0000I2  have  SElN  used.  THe  drift  TESiS  USe  a UNIOUe  implementation  of  the 
R000013  o^timjm  Statistical  filter.  pjR  a Description  sef  e-ivts.both  of  these 
RoOOOIA  routines  use  standard  system  test  LeADIN  procedures.  tHe  initialisation 
Roooois  procedure  poR  the  drift  tfSTs  is  In  the  udc  s.  the  initialization  Method 

R0000I6  FOR  GYROCOMPASS  IS  IN  A SoON  ,0  CUME  SYSTEM  TEST  GROUP  MEMO. 

ROOOOI7  THIS  LOu  section  AlwAYj  StARtS  BY  A cApR  IN  IMU  PERf.  TLStS  2 ANp  BEGINS 
R0OOOI8  AT  ESlIf-iS.  [He  PIPS  ARl  KlAD  eVERT  .5  SeC  IN  COMPASS  AND  1 seC  IN  DRIFT 
R0OOOI9  TESTS.  tHeN  in  BOTH  CASES  RLErVANl  COMPUTATION  Is  DONg.  THE  KEY  ERASABLE 
R0OOO2  IS  GEOCcMPS-  0 WE  are  in  A DRIFT  I EST  -NOmZeRO  WE  ARg  IN  COMPASS, 

R000021  THE  Gyrocompass  has  the  capasilitt  to  align  to  any  orientation, has  the 
R000022  capability  to  change  orientations  while  running, is  compensated  for 
R000023  component  errors, is  capable  0-  OPIICAL  VERIFICAT T ON ( CSM  ONLY), 

R000025  SJBROJTINES  CALLED 


ROOOO27  EARTHR,  CALGTA,  OGC  4LR0,ERTHRvSt,GC0MPZER0  AND 
R000028  IMU  COMIENSaTION 

R0OOO29  DURING  oPlICAL  VERIFICATION  (CSM  UNLY)  ESSENTIALIY  ALL  OF  INFLIGHT  ALIGN 
ROOOO3  IS  called  in  ONE  WAY  OR  ANOTHER.  PEE  THE  LISTING, 

R000032  NORMAL  LXIT 


R000039  DRIFT  TESTS-  LENGTHOT  GOES  TO  ZfRU-RetURN  TO  IMU  ^ERF  TEST2  CONTROL 
R000035  GYrOCOMFAss-RLCLIVE  GUIDANCE  REFERENCE  RELEASE  SlGNAg-TC  MP2J0B 
R000036  206  IMPLEMENTATION 

R000038  ALARMS 

Rooooa  1500  overflow  in  drift  Test 
ROOOOAl  IbOl  bad  IMU  TOROUL  AHORT 

R000092  1602  bad  oPTICS  DURING  Vg RT F 1 Cat  I ON-ReTURN  to  COMPASS  CSM  ONLY 

R000099  OUTPUT 


R000096 

ROOOO97 

R000098 

R0OO099 

R00007 

R000071 


drift  tests-  flashing  displays  of  ReSULTS-CONTROL led  in  IMU  PeRF  TESTS  2 
COMPASS-PkOCRAM  mode  lights  tell  You  what  phase  of  program  you  are  in 

01  initializing  the  PLaiFORM  POSIflON  AND  ERASABLE 

OS  erection  600  SECONO  GPENI  ERECTING  PLATFORM 

02  GYR0C0MPA5S1NG 

03  DOING  OPTICAL  VERIFICATION  (CSM) 
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R000072  OA  GRR  SIGNAL  RECeWeD  -INIBh  UP  TOROUE  AND  TC  MP^JOB 

R000073  206  IMPLEMENTATION 

R000075  DEBRIS 

R000077  AlL  centrals  -ALL  OF  EBmNK  5 eSANKa  FROM  JeTSTEP  TO  JETSTEP  +77D 
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0003  REF  66  last  a27  E5  £BANK=  XSM 


Roooa  g ScHmIuJ  simplified  eghmation  pRoGRAM  f3R  alIghmemt  calibration.  THe 
Rooos  PROGRAM  IS  COMPLETELY  ReStARt  PROVED.  DATA  STOReD  IN  BANK^. 
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3 3352 

0 

CA 

AlXXXZ 

0026 

REF 

108 

LAST 

427 

35,2036 

0 5224 

0 

TC 

BANKCALL 

0027 

R lF 

4 

LAST 

4O9 

35 . 2036 

51240 

0 

V ADR 

ZERO  I NG 

0028 

REF 

4T 

LAST 

422 

35.203  ? 

0 6103 

0 

1C 

InTPRET 

0029 

3 5. 2040 

7/175 

1 

vLOAD 

0030 

REF 

1 

35 . 204  1 

33644 

1 

InTVAL  +2 

0031 

REF 

1 

35,2042 

02601 

1 

STORE 

ALXIS 

0032 

35 . 2043 

77/76 

1 

EX  I T 

0033 

REF 

3 

LAST 

392 

35'204A 

11 ' /42 

0 

CCS 

GEOCOMPS 

003A 

35,2046 

0 2047 

0 

TC 

+ 2 

0035 

REF 

1 

35.2046 

0 2/42 

1 

TC 

SLEEPIE  +1 

0036 

REF 

9 

LAST 

412 

35.2047 

3 1627 

0 

CA 

LeNGTHOT 

0037 

REF 

1 

35 .205O 

5 5 * 146 

1 

T S 

ERECTIME 

003701 

ref 

117 

LAST 

420 

35.205I 

3 7/55 

1 

CA 

One 

OO37O2 

REF 

3 

Last 

319 

35 .2052 

5 4 /65 

1 

1 S 

PHASENUM 

0038 

REF 

a 

LAST 

376 

35.2053 

0 4105 

1 

TC 

NEWMODEX 

0039 

35,205A 

0OUO5 

1 

OCT 

05 

0039 1 

R £F 

109 

LAST 

432 

35 .2055 

0 5224 

0 

TC 

BANKCALL 

003911 

REF 

1 

35.2056 

25602 

1 

CADR 

GCOMPZER 

0040 

REF 

1 

35.2057 

0 3014 

1 

IC 

ANNNNNN 

USER'S  OWN  page  NO.  3 


comes  Here  phasei  restart 

ZERO  THE  PIPAS 


GEOCOMPS  IN  NON  ZERO  IF  COMPASS 

TIMES  FIVE  IS  THE  NUM  OF  SbC  ERECTING 

ZERO  compensation  PROGRAM  REGISTERS 
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L 

dPTIMJM 

pkelaunch 

ALIGi^iMLnT  C 

ALlb^Al loN 

0086 

35i2060 

0 0004 

0 

ALLOOP 

INHINT 

0087 

REF 

1 1 

LAST 

432 

35  »206T 

3 0O2 5 

0 

C A 

T 1 MF 1 

0088 

REF 

2 

LAST 

432 

35»2062 

55' (45 

1 

TS 

GTSWTLST 

0089 

REF 

1 

35.2063 

3 1664 

1 

ALLOOP3 

CA 

ALTIM 

0090 

REF 

1 

35.2064 

5 5*  (16 

1 

1 S 

GeOSAVED 

0091 

REF 

5 

LAST 

432 

35 .2063 

0 4147 

1 

TC 

phaschng 

0092 

35.2066 

00115 

1 

OCT 

00115 

0093 

35 .2067 

0 2O7 1 

0 

T C 

+ 2 

0094 

35.2070 

0 0004 

0 

ALLOOPi 

INHINT 

0095 

REF 

2 

LAS  I 

433 

35 .207T 

3 1(16 

0 

CA 

geosaved 

0096 

REF 

2 

LAST 

433 

35,2072 

55*664 

0 

TS 

ALTIM 

0097 

REF 

224 

LASl 

405 

35.2073 

10  uoo 

0 

CCS 

A 

225 

last 

0098 

REf 

433 

35.2074 

3 0000 

1 

CA 

A 

0099 

REF 

1 

35,207s 

55*665 

1 

IS 

AlTIMS 

0100 

REF 

226 

LAST 

433 

35.207s 

4 OUOO 

0 

cs 

A 

0101 

REF 

3 

LAS  f 

433 

35 .207  T 

55*664 

0 

( s 

Alt  im 

01011 

REF 

16 

LASl 

432 

35.210O 

3 0037 

0 

CA 

PiPAX 

01012 

REF 

10 

LAST 

432 

35,2101 

54  403 

1 

TS 

DELVX 

01013 

REF 

0 

LAST 

432 

35.21O2 

3 00 aO 

0 

^A 

PI  PAY 

01014 

REF 

3 

LAST 

432 

35,2103 

54  405 

1 

IS 

DELVY 

01015 

REF 

7 

LAST 

432 

35,2104 

3 OOaI 

1 

CA 

PIPAZ 

010151 

REF 

3 

LAST 

432 

35.21OS 

54  ‘*01 

0 

T S 

DeLVZ 

010152 

REF 

1 

35,2106 

3 3370 

0 

CA 

OCTSl 

010153 

REF 

1 

35,2107 

0 4234 

0 

TC 

newphase 

010154 

35 .2  1 lO 

00005 

1 

OCT 

00005 

01016 

35,2111 

0 0003 

1 

PIPSTRTS 

RELINT 

010161 

REF 

141 

LAST 

432 

35,2112 

3 /(61 

0 

CAF 

ZtRO 

010162 

REF 

1 7 

LAST 

433 

35.2113 

5 4 O3Y 

1 

1 s 

PIPAX 

010163 

REF 

1 

LASl 

433 

35.2114 

54  O40 

1 

TS 

PiPAY 

010164 

REF 

8 

LAST 

433 

35, 211s 

54  Uai 

0 

TS 

PIPAZ 

01017 

REF 

6 

LAST 

433 

35.2116 

0 ‘.147 

1 

T C 

PHASCHNG 

01018 

35.21IT 

00235 

0 

OCT 

00235 

010181 

35.21 2O 

0 OO03 

1 

relint 

0113 

REF 

4 

LASl 

209 

35,2121 

3 7(40 

0 

SPECSTS 

CAF 

PKIO2O 

0116 

REF 

11 

LASl 

362 

35.2122 

0 5S34 

0 

1C 

FlNDVAC 

01165 

REF 

bl 

LAST 

432 

t5 

ebank= 

XSM 

0117 

35.2123 

02l26 

0 

2CADR 

ALFLT 

C0117 

0118 

REF 

REF 

1 

55 

LAST 

427 

35.2124 

35.2125 

72065 
0 5 (45 

1 

1 

K 

TASKOVER 

USER'S  owN  PaGF  N0«  A E5 

task  EVERY  .5  oR  1 SEC  (COMPASS-DRIFT) 
STORE  TIME  TO  SpT  Up  NEXT  WAITLIST 


Restarts  come  In  here 

SHOULD  never  HIt  THIS  lDcATION 


start  the  job 
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L 


0119 

0120 
0121 
012105 
01211 
01212 
01213 
0121A 
01215 
0122 


0123 

01231 

012A 

0125 

0126 

0127 

0128 

0129 

0130 

01301 

01302 

0131 

0132 

0133 
013A 

0135 

0136 

0137 

0138 

0139 

0190 

0191 

0192 

0193 

0199 

0195 

0196 

0197 
0199 
0150 

0151 

0152 

0153 


0 = PkeLAUNCH  ALIGNHEin  CALIBKATIoN 


r£f 

1 

35.2126 

0 3090 

0 

REF 

7 

LAST 

433 

35.2127 

0 91 97 

1 

35.213O 

00215 

1 

35.2131 

0 0003 

1 

REF 

9 

LAS  1 

43a 

35.2132 

1 1 ' T92 

0 

35.2133 

0 2I35 

1 

REf 

1 

LAST 

35.21 3A 

0 2I91 

1 

REF 

110 

432 

35.2135 

0 5229 

0 

REF 

1 

35.2136 

25220 

0 

REF 

2 

LAST 

434 

35.2137 

0 2i9l 

1 

Alflt 


REF  1 35 

REF  1 35 

REF  98  LAST  932  35 

35 

REF  2 LAST  932  35 

REF  15  last  907  35 

35 

REF  5 LAST  939  35 

REF  1 35 

35 

REF  1 35 

35 

REF  2 LAST  933  35 

REF  2 LAST  939  35 

35 
35 

REF  2 LAST  932  35 

35 

ref  1 35 

35 

REF  1 35 

35 

ref  1 35 

REF  3 LAST  939  35 

35 

REF  11  last  933  35 

REF  9 LAST  913  35 

35 
35 

REF  228  LAST  925  35 

REF  1 35 

REF  229  LAST  939  35 

REF  1 35 


2i90 

0 3061 

0 

ALFLT 1 

21  9I 

0 3A21 

0 

NORMLOP 

2192 

0 0IO3 

0 

2193 

7 7 795 

1 

219A 

33392 

1 

2195 

OOO51 

0 

2196 

53I35 

0 

2197 

02  793 

0 

215O 

72I53 

0 

2151 

■77650 

1 

2152 

72I7O 

1 

2153 

50135 

0 

alcgkk 

215A 

02666 

0 

2155 

72l  70 

1 

2156 

72I79 

0 

AlKCG 

215  1' 

00019 

1 

2160 

02600 

0 

2161 

52I93 

0 

Al<CG2 

2162 

33339 

0 

2163 

77775 

1 

2 16A 

12  701 

1 

2165 

66109 

1 

2166 

72l61 

1 

2167 

02600 

0 

217O 

61375 

1 

ALFLT2 

21  7I 

30909 

1 

2172 

02  750 

1 

2173 

77772 

0 

217A 

57595 

1 

2175 

00 1 50 

0 

2176 

16657 

1 

2177 

2200 

00152 

02663 

1 

0 

dec  13«  1966  (MAIN)  pAoE  939 


USER'S  OWN  PaGf  no.  5 E5 

TC  SIOrEDTA  store  DATA  ( A5E  Op  RESTArT  in  JOb 

TC  phaschng  this  is  the  job  donf  every  Iteration 

OCT  00215 

relint  inhint  in  PHASCuNG 

CCS  GEOCOMPS 

TC  +2 

Tc  NORmlOP 

TC  BANKCALL  COMPENSATION  IF'  IN  CoMPaSS 

CADR  1/PIPA 

1C  NORMLOP 


TC  LOADSTDT  COMeS  HERE  ON  RESTART 

TC  chkcomed  see  if  gyrocompass  over 

TC  InTPRF.T 

OLOAo 

INTVAL 

STORF  Si  STEP  REGISTERS  MAY  HAVE  BEEN  WIPED  OUT 

SLOAO  B2E 

GEOCOMPS 

ALCGKK 

5010 

ALFLT2 
SLOAO  BMN 

ALTIMS 

AlFLT2 

axt,2  lxa,i  loads  slopes  an,o  time  constants  at  ROSl 

12D 

AcXlS 

OLOADit  INCR,1 

ALFDK  +199D.1 
OEC  -2 

STORF  ALDK  +100. 2 
TIX,2  SXA.l 
ALKCG2 

ALXIS 

vLOAo  VXM 

delvx 

GEOMTRX 

vSLl 

OLOAO  DCOMP 

MPAC  +3 
STOOL  DPIPAY 
MPAC  +5 
store  DPIPAZ 
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L prelAl'Nch  Alignment  calib'^ation  user'S  o,yn  pag)  no.  6 


015A 

0153 

0156 

35.2201 

35.2202 

35.2203 

76001 

OOUOl 

30010 

1 

0 

0 

SETPD 

AXT  ,1 

0 

80 

measurement  INCnRPORATlON  ROUTINES, 

0157 

35 .220A 

53 1 35 

0 

SLOAO 

BZE 

0158 

REE 

6 

LAST 

A3A 

35.2205 

32  7A3 

0 

GEOCOMPS 

01581 

REF 

1 

35.2205 

72211 

0 

DELMLP 

01582 

35.2207 

77650 

1 

GOT  0 

0159 

REF 

1 

35.2210 

72517 

1 

alwaysg 

DO  A (jUICK  compass 

0160 

35.2211 

A13A3 

0 

DELMLP 

3L0AD* 

DMP 

0161 

REF 

2 

LAST 

A3A 

35.2212 

3266  7 

1 

DPIPAY  +80.1 

0162 

REF 

1 

35.2213 

33355 

1 

PIPASC 

0163 

35.221A 

A2661 

0 

SLR 

DADa 

0 1 6 A 

35.2215 

21212 

0 

90 

0165 

REF 

1 

35.2216 

32  715 

0 

DELM  +80,1 

0166 

35.2217 

6A623 

1 

33U*y 

PODL*t 

0 167 

REF 

2 

Last 

A2 

35.2220 

32635 

0 

INTY  +80.1 

0168 

REF 

2 

Last 

A2 

35.2221 

32655 

0 

VLAUN  +80,1 

0169 

35.2222 

A1223 

1 

3SU» 

omp 

0170 

REF 

2 

LAST 

A2 

35.2223 

32627 

0 

VLAUNS  +80.1 

0171 

REF 

1 

35.222A 

33357 

0 

VELSC 

0172 

35.2225 

77  732 

1 

5L2R 

0173 

35.2226 

A5A15 

0 

3AD 

ST  ADR 

017A 

REF 

2 

LAST 

A35 

35.2227 

71062 

0 

STORE 

DELM  +80,1 

0175 

REF 

3 

LAST 

A35 

35 . 223O 

36  7 17 

0 

STORE 

DeLM  +100.1 

01751 

35.2231 

n 7A3 

1 

3L0A0* 

0176 

REF 

3 

LAST 

A35 

35.2232 

32055 

0 

VLAUN  +80.1 

0177 

REF 

3 

Last 

A35 

35.2233 

36027 

1 

STORE 

VLAUNS  +80,1 

01771 

35.223A 

77  7A5 

1 

3L0AD 

0178 

REF 

3 

LAST 

A3A 

35.2235 

333A0 

0 

INTVAL  -2 

0179 

REF 

3 

LAST 

A35 

35 .2236 

36635 

1 

STORE 

INTY  +80,1 

0180 

35.2237 

77100 

0 

1 lx.i 

AXT  ,2 

0181 

REF 

2 

LAST 

A35 

35.22A0 

7221  1 

0 

DELMLP 

0182 

35 .22A1 

30O0A 

0 

A 

0183 

35 .22A2 

56  7a3 

1 

ALILP 

3L0AUA 

dmpr» 

018A 

REF 

1 

35,22A3 

75I  70 

0 

ALK  +A,2 

0185 

REF 

2 

LAST 

ASA 

35 .22AA 

75IOA 

0 

ALDK  +A.2 

0186 

REF 

2 

LAST 

A35 

35.22A5 

12607 

0 

store 

ALK  +A,2 

0187 

35 .22A6 

77IOA 

1 

IIX,2 

AXT  ,2 

0188 

REF 

1 

35 ,22A7 

72AA2 

0 

ALILP 

0189 

35.2250 

OOOlO 

0 

80 

0190 

35,2251 

561A0 

1 

AlK-LP 

LXC.l 

SXA.l 

0191 

REF 

1 

35,2252 

32601 

1 

CMPXl 

0192 

REF 

2 

LAST 

A35 

35*2253 

32001 

1 

CMPXl 

0193 

35 .225A 

56  7 A3 

1 

3L0AD« 

DMPR* 

019A 

REF 

3 

LAST 

A35 

35.2255 

3260A 

1 

ALK  +1,1 

0195 

REF 

A 

LAST 

A35 

35.2256 

75O62 

1 

DELM  +80,2 

0196 

35.2257 

77613 

0 

3ADX 

0197 

REF 

A 

last 

A35 

35.2260 

75IA2 

1 

INTY  +80,2 

0198 

REF 

5 

LAST 

A35 

35,2261 

12635 

1 

STORE 

INTY  +80,2 

01981 

35.2262 

A2  7A3 

1 

3LOAI3X 

OAOYt 

E5 
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L 

PKeLAUnCH 

alignment  ^ 

alibration 

0199 

R^F 

4 

LAST 

^35 

35,2263 

/5I60 

1 

0201 

REF 

3 

LAST 

^35 

35 ,2264 

75O74 

0 

0202 

REF 

5 

LAST 

436 

35,2265 

12617 

1 

0203 

35 ,2266 

42673 

0 

0204 

REF 

5 

LASi 

436 

35,226/ 

75062 

1 

0205 

REF 

6 

LAST 

436 

35,2270 

75132 

0 

0206 

REF 

7 

LAST 

436 

35,227! 

I2845 

0 

02061 

35,2273 

40  /43 

0 

0207 

REF 

1 

35,2273 

33362 

0 

0209 

REF 

6 

LAST 

436 

35,227A 

75O62 

1 

0210 

35,2275 

42/72 

0 

0211 

REF 

4 

LAST 

436 

35,2276 

/5I22 

1 

0212 

REF 

5 

LAST 

4 3 6 

35,227/ 

12655 

1 

0213 

35,2300 

76104 

0 

0214 

0215 

REF 

1 

35.2301 

35.2302 

72251 

OOOlO 

1 

0 

0216 

35,2303 

54/43 

0 

0217 

ref 

2 

LAST 

42 

35,2304 

02t>57 

1 

0218 

REF 

6 

LAST 

436 

35 ,2305 

02855 

0 

0219 

35,2306 

55523 

0 

0220 

REF 

1 

35,230  / 

02865 

0 

022 1 

35 ,23l0 

76521 

0 

0222 

REF 

4 

LAST 

392 

35,2311 

02  /21 

1 

0223 

35 ,231^ 

77/45 

1 

0224 

REF 

230 

LAST 

434 

35,2313 

00145 

1 

0225 

REF 

2 

LAST 

436 

35,2319 

06865 

1 

02251 

35,2315 

77  /45 

1 

0226 

REF 

231 

LAST 

436 

35,2318 

OOI5O 

0 

0227 

REF 

7 

LAST 

436 

35,2317 

06855 

1 

02271 

3b  ,2320 

77  /45 

1 

0228 

REF 

232 

LAST 

436 

35,2321 

OOI52 

1 

0229 

REF 

3 

LAST 

436 

35 ,232<1 

06657 

0 

02  30 

35,2323 

77  TOO 

0 

0231 

REF 

1 

35,2329 

72303 

1 

0232 

0233 
023A 

0235 

0236  REF  1 

0237  REF  1 

0238 

0239 


35,232l> 

76174 

1 

35 ,2328 

30OO6 

1 

35,2327 

00002 

0 

35,2330 

57343 

1 

35,2331 

02837 

1 

35,2332 

33365 

1 

35,2333 

35,2339 

77  /22 
73906 

0 

1 

0240  _ 35.233^  56^-72  0 

0241  R-F  2 LASi  346  35»233<>  00046  0 


LOOSE 


BOOP 


OEC  13,  1966  (MAIN)  pAgE  436 


UStR«S  OWN  PaOf  no.  7 


E5 


AlK  +120*^ 
ALDK  +12D,2 

STORE  ALK  +12D*2 
OMPR*  DAD# 

DELM  +8D,2 
INTY  +16D,2 
STORE  INTY  +16D,2 
OLOAD#  DMP# 

ALSK  +1,1 
DELM  +8D,2 
SLlR  DAD# 

VLAUN  +8D,2 
STORE  VLAUN  +8D,2 
1IX,2  AXT,1 
ALKLP 
8D 


OLOAD#  PDDL# 

ACCWD  +8D*1 
VLAUN  +aD,l 
PDDL#  VOEF 

POSNV  +8D,1 
MXV  VSLl 

TRANSMl 

OLOAo 

MPAC 

store  POSNV  +8D,1 
OLOAD 

MPAC  +3 

STORE  VLAUN  +8D,1 
OLOAO 

MPAC  +5 

store  ACCWD  +8D,1 
TIX,1 

LOOSE 


AXT,2  AXTtl  EVALUATE  SINES  AND  COSINES 

6 
2 

OLOAD#  DMPR 

ANGX  +2,1 
GtORGEJ 

SR2R 

PUSH  SIN 


SLlR  XAD,1 
XI 
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L o^llMJM  PKEl  AUNCH  ALJoNMeIjT  CALIBt'ATloN 


USSR'S  OWN  PAGr  NO.  B 


E5 


02A2 

35.2337 

IOO2I 

0 

store 

16D,2 

0243 

35 . 234O 

77^45 

1 

DLOAD 

02435 

3 5 . 2 34 1 

77  (46 

1 

COS 

0244 

35,2342 

10^27 

0 

STORE 

22D,2 

COSINES 

0245 

35.2343 

71304 

0 

T I X ,2 

DlOAD 

0246  REE  1 

35.2344 

72330 

1 

800P 

0247 

35.2345 

OOU17 

1 

14D 

0248 

35.2348 

43312 

0 

SL2 

DAD 

0249 

REF 

8 

LAST 

436 

35,2347 

02625 

1 

InTY 

0250 

REE 

9 

LAST 

437 

35,2350 

16625 

1 

STOOL 

INTY 

0251 

3 5 . 235 1 

OflO  1 5 

0 

120 

0252 

35,2352 

56405 

0 

OMP 

SL3R 

0253 

35,2353 

00025 

0 

200 

0254 

35 .2354 

7 7 6 1 5 

0 

DAD 

0255 

REF 

1 

35.2355 

02631 

1 

INTZ 

0256 

REF 

2 

LAST 

437 

35.2356 

16631 

1 

STOOL 

INTZ 

0257 

35 .235  ( 

OOO2  1 

1 

160 

0258 

35,2360 

57275 

0 

OMPR 

OMPR 

0259 

35.2361 

OOO23 

0 

180 

0260 

35.2362 

OOO17 

1 

140 

0261 

35.2363 

77(12 

0 

SL2 

0262 

35,2364 

57325 

1 

POOL 

OMPR 

0263 

35 .2365 

OOO13 

0 

100 

0264 
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REF 

5 

LAST 

394 

35,2730 

11 '374 

1 

QE0STRT4 

CCS 

0A79 

REF 

1 

35*2731 

0 2(37 

0 

1C 

0A80 

REf 

2 

last 

432 

35*2732 

0 3027 

1 

TC 

0481 

REF 

7 

Last 

435 

35,2733 

1 1 * 742 

0 

CCS 

0482 

REF 

1 

35,273A 

0 3002 

0 

1C 

0483 

REF- 

114 

Last 

442 

35,2733 

-0  5224 

0 

TC 

0484 

REF 

1 

35 ,2738 

5OO77 

1 

CADR 

0485 

REF 

llE 

LAST 

443 

35*2  ?37 

0 5*^24 

0 

GEOBAVR 

1C 

0486 

REF 

1 

35 , 274O 

50225 

1 

caor 

Dec  1:,,  1966  (MAIN)  PAGE  AA3 


USER'S  OWN  PAGE  NO.  14  E5 

TORQNDX 

GEOBAVR 

setuper 

geocomps 

toorestm 

ONLY  POSITIVE  iF  IN  VERTICAL  DRIFT  TEST 
VERT  DRIFT  TFST  OVER 

SET  OP  ERATE  pnR  PIPTEST  OR  cOviPASS 

BANKCALL 

TORQUE 

GO  TO  IMU2  For  a pipa  test  and  display 

BANKCALL 

VALMIS 

display  vertical  DRIeT 

^sagS-^A  yJL  bYSTEM  FOR  AGC;  NEY^  PROl^RAM  S^EPATIN  3Y  EYLFS 


DEC  1:>,  I966  (MAIN)  PAGE  AAA 


L o^TiMJM  PRELAUnCH  ALiGNMEfjr  CALIBKaHoN 

ROA86I  SET  JP  l^AlTLI3T  SECTION 

0A87  REF  12  last  AAO  35,27A1  55*527  1 SLELPIE  TS  LeNGTHOT 


0A88 

REF 

12 

LAST 

AA2 

0A89 

0A891 

0A90 

REF 

6 

LAST 

AA3 

0a91 

REF 

1 

0A92 

REf 

2 

lasi 

59 

0A93 

REF 

Ufa 

LAST 

AA3 

0A9A 

REF 

8 

LAST 

AAl 

0A95 

REF 

3 

LaS', 

AAO 

35.27A2  0 aTA7  1 
35,27A3  00^35  0 
35,27AA  0 0003  1 
35,27AS  ll*b7A  1 
35'27A6  0 2^50  1 
35,2/A7  0 2F52  0 
35,275°  0 522a  0 
35,2751-  30A2A  0 
35,2752  0 3‘*21  0 


TC 

OCT 

relint 

CCS 

TC 

tc 

earttprq  tc 

CADR 

i^lLISTNT  TC 


PHASCHNG 

00135 

TURQNDX 

EARTTPRQ 

wtltstnt 

BANKCALL 

EARTHR 

CHKCOMED 


0A951  35,2752 

0A96  REf  12  last  A33  35,275A 

0A97  REF  3 LAST  A33  35,2755 

0A98  35,2756 

0A99  35,275F 

0500  REF  3 LAST  123  35,276° 

0501  REF  2 LAST  391  35,2761 

0502  35,2762 

0503  REF  1 35,2763 

050A  REF  b7  LAST  A27  35,276^ 

050A5  REF  71  LAS [ AA2 

0505  35,276S 

C0505  REF  1 35,2766 


0 0°0A 

0 

INHINT 

A 0°25 

1 

CS 

TlMFl 

6 1 FA5 

0 

AO 

GTSwTLST 

0 0°06 

1 

EXT  END 

6 2 T61 

0 

3ZMF 

+ 2 

6 7'37 

0 

AD 

NEGMAX 

6 1 TAA 

1 

AD 

1 SECXT 

0 0°06 

1 

EXTEND 

fa  2 T71 

1 

3ZMF 

RIGHTGTS 

0 5 ^01 

1 

WTGTSMPL  TC 

WAITLIST 

E5 

ebanx= 

XSM 

D2°60 

72°65 

0 

1 

2CA0R 

AELOOP 

0506 

0507  REF 

0508  REF 

0509  REF 


57  LAST  379 
bA  LAST  A26 


35,2767  0 0U03  1 RELINT 

35,277°  0 5605  1 TC  END0FJ013 

35.2771  3 7T5A  0 RIGHTGTS  CAF  TWO 

35.2772  0 2T6A  0 TC  WTGTSMPL 


0510 

R^F 

32 

last 

397 

35,2773 

0 A7AA 

1 

sdmeerrr 

TC 

ALARM 

0511 

35,277A 

01600 

0 

OCT 

1600 

0512 

35,277s 

0 3°00 

1 

TC 

+ 3 

05 1 3 

REF 

33 

last 

AAA 

35,2776 

0 A TaA 

1 

S0MERR2 

TC 

ALARM 

051A 

35,2777 

Ol^Ol 

1 

OCT 

1601 

0515 

REF 

117 

LAST 

AAA 

35,3000 

0 522A 

0 

TC 

BANXCALL 

0516 

REF 

26 

Last 

A20 

35,3001 

30  7A7 

0 

CAUR 

ENDTEST 

USER'S  PaGf  no*  15  t5 


TEST  MOT  OVeR_Di:CREKENT  LeNGtHOt 

CHANGE  PHASE 

INHINT  IN  PHaSCmNG 

ARE  WE  DOING  VERTDRIFT 

YES, DO  HOR  ERATt  TOrq  THeN  SLEEP 

GO  TO  SET  UP  MEyT  WAITlIST 

IN  VeRTDRIFT.ADF;  HOR  ERATE  AnO  SLEEP 

SEE  IF  GYROCOMPASS  OVER 


1 SEC  FOR  calibration, ,5  SEC  IN  COMPASS 


^8895^A  YJL  system  FOR  A<^C : NE^  SHtPATIM  BY  ^YLeS 


L 

0617 

0518 


0520 

0521 

0522 

0523 

0525 

0526 

0527 

0528 

0529 

0530 

0531 

0532 

05321 

05322 

05323 
0532A 

0533 
053A 

0535 

0536 

0537 

0538 

0539 

0590 

0591 

0592 

0593 

0599 


OPtIMJM  PKeLAUNCH  ALlSNMhlMT  CALIBRATION 


REF 

REF 

118 

LAST 

AAA 

3 

LAST 

393 

RLE 

53 

LAS  1 

992 

REF 

2 

LAST 

909 

REF 

13 

LAST 

990 

REF 

3 LAST 

939 

REF 

9 last 

995 

35,300^  0 5^29 

35.3003  51019 

35*3009  0 0O03 

35.3005  0 6l03 

35.3006  77^75 

35.3007  33339 

35.3010  02625 

35.3011  nnb 

35.3012  ll»/96 

35*3013  55WA6 


0 TOOkESIM  1C 

0 CADR 

1 NOCHORLO  RELINT 

0 TC 

1 vLOAD 
0 

1 STORE 

1 EXIT 

1 CCS 

1 T5 


REF  2 LAST  389  35.301A 

REF  13  LAST  999  35.3015 

REF  5 last  995  35.3016 

REF  9 LAST  99O  35.30W 

ref  5 last  991  35.3020 

35.3021 

35.3022 

REF  5 last  995  35.3023 

REF  9 LAST  932  35.3029 

35.3025 

REF  6 LAST  995  35.3026 

35.302? 

REF  3 LAST  370  35.3030 

REF  59  LAST  995  35.3031 

35.3032 

REF  3 Last  390  35.3033 

35.303A 

REF  lly  LAST  995  35.3035 

REF  3 LAST  390  35.3036 

REF  9 LAST  995  35.303? 


3 9517  0 AMNNNNN  CAF 
55*327  1 IS 

11*  ?96  1 CCS 

0 2?92  1 1C 

0 9I2I  1 1C 

00003  1 OCT 

0 3029  1 1C 

0 2?92  1 TC 

0 9IO5  1 TC 

00002  0 OCT 

0 2?92  1 TC 

0 0O06  1 setuper  extend 

23*397  0 OXCH 

0 bT03  0 1C 

77629  1 CALL 

30907  1 

77?76  1 EXIT 

0 5229  0 TC 

30?31  1 CADR 

0 1347  0 1C 


bankcall 

LOADGTSM 


InTpRET 

SCHZEROS 

ThETAN 


EKECTIME 

ERECTIME 

NINE 

LENGTHOT 

ERECTIME 

SLEEPIE 

ChECKMM 

03 

+ 2 

SLEFPIE 

NEWMODEX 

02 

SLEEPIE 

OPLACES 

INTPRET 

ERTHRVSE 

BANKCALL 

06CZER0 

QPLACES 


Dec  13.  1966  (MAIN)  PA^E  A95 


USER*S  own  page  no.  16 

LOAD  NEW  XSM  MftTRIx  INTO  GEOMTRX 

after  changetn  orifn  or  no  change 


COUNTS  r,OWN  FOR  ERECT  IOm 


1 

IN  COMPASS  CHErK  FOR  VERIFICATION 

NOT  VERIFYING 
1 YES 


E5 


1 


COMPASS  IS  02  -ERECTION  05 
SUBROUTINE  CALI  ED  IN  3 PLACES 


^88954^  YJL  SYSl^M  FOR  Pro'^R!\M  S^tPATIlM  3Y  EYLE.s 


L 0 = t1^JM  prelaunch  ALICImMeM  CALlbHAiioN 


0578 

REF 

3 

LAST 

213 

0579 

R EF 

1 

0581 

REF 

1 

35,3090 

0582 

REF 

78 

LAST 

922 

35,3091 

0583 

REF 

2 

LAST 

932 

35,3092 

0589 

REF 

233 

LAST 

936 

35,3093 

0585 

REF 

239 

LAST 

996 

35,3099 

0586 

REF 

9 

LAST 

939 

35,3095 

0587 

REF 

17 

LAST 

388 

35,3096 

0588 

REF 

1 

LAST 

0589 

RiF 

2 3 5 

996 

35,309^ 

0590 

REF 

2 

LAST 

996 

35,3050 

0591 

REF 

IB 

LAST 

996 

35  •305I 

0592 

ref 

72 

LAST 

999 

0593 

REF 

236 

LAST 

996 

35,3052 

0599 

35,3053 

0595 

REF 

169 

LAST 

925 

35,3059 

0596 

REF 

237 

LAST 

996 

35,3055 

0597 

RrF 

2 

LAST 

996 

35 ,3056 

0598 

REF 

79 

LAST 

996 

35,3057 

0599 

REF 

2 

LAST 

939 

35,306° 

0600 

REF 

3 

LAST 

996 

35,3061 

0601 

REF 

238 

LAST 

996 

35,3062 

0602 

REF 

3 

LAST 

996 

35,3063 

0603 

REF 

19 

LAST 

996 

35 ,306^ 

0609 

REF 

80 

LAST 

996 

35,3065 

0605 

REF 

3 

LAST 

996 

0606 

REF 

239 

LAST 

996 

35 , 306° 

0607 

REF 

9 

LAST 

996 

35,3067 

0608 

REF- 

20 

LAST 

996 

35,307° 

0609 

REF 

1 3 

LAST 

996 

0610 

REF 

290 

LAST 

996 

35,3071 

0611 

REF 

5 

LAST 

996 

35,3072 

291 

LAST 

0612 

R iF 

996 

35,3073 

0613 

35,307A 

0619 

REF 

170 

LAST 

996 

35,3075 

0615 

REF 

292 

LAST 

996 

35,3078 

0616 

REF 

2 

LAST 

939 

55,3077 

5370 
5677 
3 5-^70  0 
5^  LOI  1 
3 33S1  0 
59  ^94  1 
50  i99  0 
3 1600  0 
22  <003  1 
E3 

53  199  0 
55‘600  1 
22  003  1 
E5 

10  199  1 
1 3U55  0 
0 0002  0 
59  I99  1 
3 5^70  0 
59  OOl  1 

1 3099  0 


3 3051  0 
59  I99  1 
3 5070  0 
5b  003  1 
59  Ooi  1 
E3 

53  199  0 
3 1600  0 
22  003  1 
E5 

53  I99  0 
55*600  1 
13  I99  1 

1 3O76  1 

0 0002  0 

59  I99  1 

1 3063  0 


GEObND 

GEOBNDI 

STOREDTA 


L3AD5TDT 


CAP 

T5 

CAF 

TS 

index 

CA 

LXCri 

ebank 

INDEX 

TS 

LXCH 

ebank 

CCS 

ICF 

TC 

TS 

CAF 

TS 

TCF 


CAF 

TS 

CA 

XCH 

IS 

ebank 

INDEX 

CA 

LXCH 

ebank 

INDFX 

TS 

CCS 

TCF 

TC 

TS 

TCF 


DEc  13»  I966  (MAIN*  Pa'jE 


user *5  OWN  PaGe  no.  17 


E5 


EbANK3 

EBANK5 

GEOBND 

L 

77OECML 

MPAC 

MPAC 

ALXIS 

EBANK 

RESTRTCS 

MPAC 

RESTRTCS 

EBANK 

XSM 

MPAC 
+ 2 
0 

MPAC 

GEOBND 

L 

STOREDTA  +9 


77BECML 

MpAC 

GEOBND 

EBANK 

L 

RESTRTCS 

MPAC 

RESTRTCS 

EBANK 

XSM 

MPAC 

ALXIS 

MPAC 


+ 2 
Q 

MPAC 

LUADSTDT  +2 


488954A  YJL  SYSTEM  HOK  A^C : NEW  S^ePATIN  BY  eYLlS 


Dec  U’  1966  (MAIN)  PA^E  AA7 


L 

O^Tl MjM 

PKei.AUNCH 

ALIoI^MeNT  c 

ALIBRATION 

extend 

USeR»S  OwN  PAGf  no.  18 

E5 

0617 

35  »3l00 

U U'-'Ub 

1 

LOADXSM 

0618 

REF 

5 

LAST 

445 

35,3101 

23*547 

0 

OXCH 

□PLACES 

0619 

REF 

1 

35,3102 

3 3402 

1 

CAF 

I7DECML 

0620 

RlF 

2 4 3 

LAS  ( 

446 

35,3103 

5 4 1 44 

1 

1 5 

MPAc 

0621 

REF 

227 

LAST 

433 

35,3104 

50  OOO 

1 

INDEX 

A 

0622 

REF 

2 

LAST 

42 

35,310S 

3 1 no 

0 

CA 

PRELMTRX 

062  3 

REF 

2 44 

LAST 

447 

35,3108 

50  I44 

0 

I NDEX 

MPAC 

0624 

REF 

74 

LAST 

446 

35,3107 

55*400 

0 

TS 

XSM 

0625 

REF 

245 

LAST 

447 

35,3110 

10  144 

1 

CCS 

MPAC 

0626 

R-F 

3 

last 

441 

35,3111 

1 3IO3 

1 

1 CF 

LOAdxSM  +3 

0627 

REF 

6 

LAST 

447 

35,3112 

0 1547 

0 

TC 

□PLACES 

0628 

35,3)  13 

77Y43 

1 

alfdk 

DEC 

-28 

SLOPES  AND  TIME  CONSTANTS  FOR 

First  30sc 

0629 

35 ,31  lA 

n fib 

1 

DEC 

— 1 

0630 

35,3115 

35143 

1 

2DFC 

.91230833 

TIME  CONSIANTS-pIPA  OUTPUTS 

C0630 

35,3118 

10237 

0 

0631 

35,311^ 

31766 

1 

2DLC 

.6119318  7 

TIME  CONST ANT-ERECT I ON  ANGLES 

C0631 

35,3120 

26106 

1 

0632 

C0632 

35.3121 

35.3122 

77  772 

43P77 

0 

0 

2DEC 

-.00035882 

SLOPE-AZIMUTH  ANGLE 

0633 

35,3123 

77777  0 

20EC 

-.00000029 

SLOPE-VERTICAL  hRIFt 

C0633 

0634 

C0634 

35.3124 

35.3125 
35,3128 

7 786 1 0 
ooyo2  0 

05420  1 

2DEC 

.00013262 

SLOPE-NORTH  SOUTH  DRIFT 

0635 

35,3127 

77  705 

0 

DEC 

-58 

31-90  SEC 

0636 

35,3130 

77776 

1 

DEC 

-1 

0637 

35,3131 

37560 

0 

2DEC 

.99122133 

C0637 

35,3132 

05046 

0 

0638 

35,3133 

37522 

0 

2DEC 

.98940595 

C0638 

35,3134 

15525 

1 

0639 

35,3135 

77  763 

0 

2DEC 

-.00079010 

C0639 

35,3138 

41504 

0 

0640 

35,3137 

77  777 

0 

2DEC 

-.00000265 

C0640 

35,3140 

78970 

0 

0641 

35,3141 

00O07 

0 

2DEC 

.00043154 

C0641 

35,3142 

02201 

0 

0642 

35,3143 

77  767 

1 

DEC 

-8 

91-100  SEC 

0643 

35,3144 

77  776 

1 

DEC 

-1 

0644 

35,3145 

37  773 

0 

2DEC 

.99971021 

C0644 

35,3148 

IOU42 

0 

0645 

35,31^7 

37747 

1 

2DEC 

.99852047 

C0645 

35,3150 

30232 

1 

0646 

35,3151 

OOU06 

1 

2DEC 

.00042697 

C0646 

35,3152 

37^66 

0 

0647 

35,3153 

77  777 

0 

2DEC 

-.00000213 

C0647 

35,3154 

76  703 

1 

06^t  8 

35,3155 

OOUOl 

0 

2DEC 

.00011864 

C0848 

35,3158 

36(47 

0 

488954A  y jL  SyblEw  p OR  Ag^;  NLw  pROCj^Avi  SHpipATIN  3Y  tyLES 


L 

PR^LADNCH  ALloNMfrpgj  C 

ALIBKatIoN 

06A9 

35,3157 

77635  1 

OEC 

0650 

35,3160 

77^76  1 

DEC 

0661 

35,3161 

37666  0 

2DEC 

C0651 

35 , 3 1 6^ 

IIO22  1 

0652 

35,3163 

37532  1 

2DEC 

C0652 

35,316‘* 

336A7  1 

0653 

35 , 3 1 6^ 

0OO07  0 

2DEC 

C0653 

35,3166 

036A1  1 

065A 

35,316  ^ 

nm  0 

20bC 

C065A 

35,31  7O 

75  M 3 0 

0655 

35,3171 

Ti  n^  0 

2DEC 

C0655 

35,3172 

5A605  0 

0656 

35,3173 

77AO7  1 

DEC 

0657 

35,317'*- 

'll  1 

DEC 

0658 

35,3176 

37 '12  1 

2DEC 

C0658 

35,3176 

16'55  1 

0659 

35,317*’ 

37630  0 

2DEC 

C0659 

35,3200 

01160  1 

0660 

35,3201 

oouoo  1 

2DEC 

CO66O 

35,3202 

23600  0 

0661 

35,3203 

77 '77  0 

2DEC 

C0661 

35 ,3z;0A 

53663  1 

0662 

35 , 3205 

77 '77  0 

2DEC 

C0662 

35,3206 

56527  1 

0663 

35,320' 

77455 

0 

DEC 

066  A 

35 , 32  lO 

77  '76 

1 

DEC 

0665 

35,3211 

37 '63 

1 

2DEC 

C0665 

35,3212 

23341 

0 

0666 

35,3215 

3 7 ' 5 5 

1 

2DEC 

C0666 

35,3211* 

26170 

0 

0667 

35,3215 

00000 

1 

2DEC 

C0667 

35,3216 

00254 

1 

0668 

35,321  ' 

77  '77 

0 

2DEC 

C0668 

35,3220 

52  '55 

1 

0669 

35,3221 

77 '77 

0 

2DEC 

C0669 

35,3222 

76'64 

0 

0670 

35,3223 

77I47 

0 

DEC 

0671 

35,3221* 

77  '76 

1 

OEC 

06  72 

35,3225 

37 '72 

1 

2DEC 

C0672 

35,3226 

02343 

1 

0673 

35,3227 

37'6l 

0 

2DEC 

C0673 

35,3230 

30560 

1 

0674 

C067A 

35.3231 

35.3232 

ooooo 

00362 

1 

0 

2DEC 

Dec  I966  (^AlN)  pAgE  AA8 


USeR'S  own  PaCie  no.  19  E5 

-98 

-1 

.99550063 

.98992124 

.00043452 

-.00000401 

-.00021980 

101-200  sEc 

-248 

-1 

.99673264 

.99365467 

.00003767 

-.00002317 

-.00003305 

201-450  SEC 

-338 

-1 

.99924362 

.99888274 

.00000064 

-.00004012 

-.00000195 

451-790  SEC 

-408 

-1 

.99963845 

.99913162 

791-1200  SEC 

00000090 


^8895AA  yJL  SySIEM  FOK  AqC;  NLw  PROG^AvI  SHlPATKJ  bY  tyLES 


dec  U,  1966  (MAIN)  PAqE 


L 

0675 

PPeLAUNCH  ALIGimMeM  0 

35,3233 

ALlBPAriON 

OOOOO  1 

2DFC 

.00002927 

USER'S  OWN  PAGf  no.  20 

E5 

C0675 

35 , 323A 

1 7 ^ 6 1 1 

0676 

35,3235 

nnr  o 

2DEC 

-.00000026 

C0676 

35,3236 

77R71  1 

0677 

35,323  1 

77^15  0 

DEC 

-498 

1201-1700  SEC 

0678 

35 , 32  A 0 

77  fib  1 

DEC 

-1 

0679 

35,32Al 

yjfbb  1 

2DEC 

.99934865 

C0679 

35 ,324'^ 

12403  0 

0680 

35,3243 

37<'52  0 

2DEC 

.99868793 

C0680 

35,3244 

20062  1 

0681 

35,3245 

OOOOO  1 

2DEC 

.00000055 

C0681 

35,3246 

00224  0 

0682 

35,324V 

OOOOO  1 

2DEC 

.00001183 

C0682 

35,3250 

06150  0 

0683 

35,3251 

77I77  0 

2DEC 

-.00000005 

C0683 

35,3252 

77lbZ  1 

0684 

35,3253 

77I6I 

1 

DEC 

-398 

1 701-2100  SEC 

0685 

35 ,3254 

17  fib 

1 

OEC 

-1 

0686 

35,3255 

ilfbl 

0 

2DEC 

.99947099 

C0686 

35,3256 

12513 

0 

0687 

35,3257 

n'f  5 b 

1 

2DEC 

.99894799 

C0687 

35,326° 

30343 

0 

0688 

35,3261 

OOOOO 

1 

2DEC 

.00000018 

C0688 

35 , 3262 

00060 

1 

0689 

35,3263 

OOOOO 

1 

2DEC 

.00000300 

C0689 

35,3264 

01445 

0 

0690 

35 ,3265 

77  f 77 

0 

2DEC 

-.00000001 

C0690 

35,3266 

77^74 

0 

0691 

35,3267 

76651 

1 

OEC 

-598 

2101-2700  SEC 

0692 

35,327° 

77  fib 

1 

OEC 

-1 

0693 

35,3271 

blfll 

1 

2DEC 

.9995  7801 

C0693 

35,3272 

02603 

0 

0694 

35,3273 

37  7 62 

0 

2DEC 

.99916095 

C0694 

35,3274 

10061 

1 

0695 

35,3275 

00°00 

1 

2DEC 

.00000007 

C0695 

35,3276 

00023 

0 

0696 

35,3277 

OOOOO 

1 

2DEC 

.00000096 

C0696 

35,330° 

00402 

1 

0697 

35,3301 

ooooo 

1 

2DEC 

.00000000 

C0697 

35,3302 

OOOOO 

1 

0698 

35,3303 

76505  0 

DEC 

-o98 

2700-3400  SFC 

0699 

35,3304 

77  fib  1 

DEC 

-i 

48895^A  yJL  SISIEM  f-OR  AqC;  MlW  PkOijRA'I  SHePAtIN  bY  eYLeT, 


Dec  1b,  1966  (MAIN)  PAGE  A50 


L pkelaunch  alionMent  Calibration 


USER'S  OWN  PAOf  NO,  21 


t5 


0700 

35,3305 

37?72 

1 

2DEC 

.99966814 

C0700 

35, 3306 

22OO5 

1 

0701 

35,330? 

37  ?65 

1 

2DEC 

.99933952 

C0701 

36,33l0 

05360 

1 

0702 

35,3311 

OOOOO 

1 

2DEC 

. 00000002 

C0702 

35,3313 

00OO5 

1 

0703 

35,3313 

OOOOO 

I 

2DEC 

.00000028 

C0703 

3 5 , 33  1 A 

00113 

1 

0704 

35,3313 

OOOOO 

1 

2DEC 

.00000000 

C0704 

35,3315 

OOOOO 

1 

0705 

35 

,331? 

0706 

35 

,3320 

0707 

35 

, 332  1 

C0707 

36 

.3322 

0708 

35 

,3323 

C0708 

35 

,332A 

0709 

35 

,3325 

C0709 

35 

,3326 

0710 

36 

,332  V 

C0710 

36 

, 333O 

0711 

36 

,3331 

C0711 

36 

,3332 

0712 

36 

,3333 

C0712 

35 

,333A 

0713 

35 

,3335 

C0713 

36 

,3335 

0714 

35 

,333V 

C0714 

35 

,3340 

0715 

35 

,3341 

0716 

36 

,3344 

0717 

35 

,3343 

0718 

35 

,334A 

,3345 

0719 

35 

C0719 

36 

,3346 

0720 

35 

,334  V 

C0720 

36 

,3350 

76B51  1 OEC  -698 

nnt  1 oec  -1 

37^73  0 2DEC  .99972716 

20^50  1 

37i’67  0 2DEC  .999A565A 

33UAA  1 

OOOOO  1 2DEC  ,00000001 

00003  1 

OOOOO  1 2DEC  .00000010 

00033  1 

OOOOO  1 2DEC  ,00000000 

OOOOO  1 


OOOOO  1 SCHZEROS  2DEC  .00000000 

OOOOO  1 

OOOOO  1 2DEC  ,00000000 

OOOOO  1 

OOOOO  1 2DEC  .00000000 

OOOOO  1 

OOOOA  0 INTVAL  OCT  A 

0OO02  0 OCT  2 

0OZ2O  1 OEC  lAA 

77'76  1 OEC  -1 

35?30  0 SOUPLY  2DEC  .93505870 

OOO35  1 

10317  0 2DEC  .26266A23 

17350  1 


3A01-A000  SEC 


INITIAL  GAINS  fOR  pIP  OUTPUTS 
INITIAL  oAINS/a  for  ERLCTION  ANGLES 


0721  36,3351 

0722  RaF  6 LAST  A46  35,335^ 

0723  REF  13  LAST  aa2  36,3353 

072A  35,335^ 

C072A  36,3353 

0726  36,3356 

C0726  35,3357 

0727  35,3360 

C0727  36,3361 


00115  I 77DECML  OEC  77 

01377  0 ALXXX2  SENAOR  ALXIS  -1 

02300  0 AtNGYRO  ECAIOR  ogc 

04133  1 PIPASC  2DEC  .13055869 

02Z65  1 

57323  0 VELSC  2DEC  -.52223476 

66^51  1 

35A27  0 ALSK  2DEC  .17329931 

12377  1 


512/980.402 

SSWAY  VEL  GAIN  x 980.402/4096 


^8895^A  yJL  S^SIEM  FOR  AgC  ; Ntw  PROC.^A'I  SHtPAIlN  3Y  tyLt 


L prelaunch  alignment  calibnation 


0728 

35,3362 

77567 

0 

2DPC 

C0728 

35,3363 

AA202 

1 

0731 

35 ,336A 

2A276 

1 

GEORGEJ 

2DEC 

C0731 

35,3365 

1 A066 

1 

23D73 

1 

2DEC 

0732 

35,336° 

oEURoCIA 

C0732 

35,3367 

11  /73 

1 

07325 

35,337° 

00031 

0 

0CT31 

OCT 

0733 

35,337! 

0 3 1 A6 

1 

GEOCONS 1 

2DEC 

C0733 

35,3372 

1A532 

0 

073A 

35*3373 

00121 

0 

GE0C0NS2 

2DEC 

C073A 

35 ,337A 

353a1 

1 

0735 

35,3375 

00631 

0 

GEOCONS3 

2DEC 

C0735 

35,3375 

23IA6 

0 

2DEC 

0736 

35,3377 

ooooo 

1 

GEOCONSa 

C0736 

35,3A00 

17565 

1 

07362 

35,3^01 

06200 

0 

1/PlPAGl 

OCT 

0737 

35 , 3a02 

OOO2I 

1 

1 7DECML 

OEC 

0738 

35 ,3a03 

00O23 

0 

19DECML 

OEC 

0739 

35 , 3 aO^ 

00062 

0 

1/2  SECX 

OEC 

07A0 

REF 

118 

LAST 

A32 

35,3A05 

3 7'55 

1 GTSCPSS 

CA 

07A1 

REF 

8 

LAST 

AA3 

35,3a06 

5 5' T a2 

0 

rs 

07A3 

REF 

10 

LAST 

hA5 

35 , 3a07 

0 A 1 05 

1 

T C 

07AA17 

35,3a10 

OOOOl 

0 

OCT 

07A518 

REF 

1 

35,3a11 

3 3^01 

1 

CA 

O7A6I9 

REF 

2 

LAST 

2A 

3 5 , 3 A 1 2 

5 5 ' 1 63 

0 

1 S 

07A72 

REF 

1A3 

LAST 

A A 1 

35,3a13 

3 7 761 

0 

CA 

07A821 

REP 

3 

lasi 

AAl 

35,3A1A 

5 5 ' 7 1 7 

0 

IS 

07A922 

REF 

1 

35,3a15 

3 3''0A 

1 

CAP 

075023 

REF 

3 

LAST 

aAA 

35 ,3a16 

5 5'  7 A A 

0 

1 S 

0781 

REF 

120 

LASI 

AA5 

35 ,3a17 

0 522a 

0 

1C 

0782 

REp 

1 

35 , 3A20 

50O05 

1 

cadr 

0783 

078A 

REF 

REp 

7 

22 

lasi 

lasi 

AOS 

386 

35,3A2l 
35 ,3a22 

3 0075 

7 775A 

0 

1 

ChKCoMlD  CA 

mask 

0785 

REF 

228 

LAST 

A A7 

3 5 ,3a23 

1 0 OQO 

0 

CCS 

0786 

REF 

1 

35,3a2A 

1 3''26 

0 

ICF 

0787 

REF 

1(1 

LASI 

AA6 

35,3a25 

0 0002 

0 

TC 

07885  REp 

0789 

0790  REF 


11  lAsI  A5i 


35,3a2&  0 Al05  1 PRLlTERm  TC 

35,3a27  OQNOA  0 DCT 

35,3a30  1 2b06  1 TCP 


1 


dec  1:^,  1966  (MAIN)  pAoE  A51 


USER'S  OWN  PAGf  NO.  22 

-.00835370  SSWAY  ACCEL  GAIN  x 980.A02/A096 

.63661977 

.59737013 

00031 

.1 

.005 

.025 

.00003 

06200 

17 

19 

50 


ONE 

GEOCOMPS  THIS  IS  THE  LpAD  IN  FUR  COMPASS 

NEkJMOUEX 

01 

1/PIPAGT 

1/PlPADT 

ZERO 

PREMTRXC 

1/25ECX 

ISECXl 

BaNKCALL 

GEOIMUTT 


flagwrdi  check  for  end  of  compass 

BiT2  TEST  pOR  uRK  FLAG 

A 

prelterm  yes  grr  has  occurred 

Q NO  continue 


E5 


NEl^(MOoEX 

OA 

LaStGTS 


OA  IS  end  of  compass 

GET  last  IOROUInG 


488954A  YJL  SYSTtM  f OR  AGC;  Ne.W  PR009(\vi  sHtPAllN  BY  eYLeS 


DtC  13,  1966  (MAIN)  PAGE 


L 0=71 MJM  PKelAUNCH  ALIGnNeNT  CALIbKATION 

07902  0 OOOA  0 P^ELTERN  INHInT 

0790A  35«3a32  0 0O06  1 EXTEND 


07905 

REF 

8 

LAST 

LAO 

35»3a33 

07906 

REF 

I 

35  t3A3‘* 

0791 

REF 

1 

35*3^,35 

0792 

REp 

12 

last 

A33 

35.3A36 

0793 

REF 

1 

079A 

35,3a37 

C079A 

REF 

1 

35,3AA0 

0795 

REF 

58 

LAST 

AAA 

3 5 * 3 A A I 

3 lb65  0 OCA  TMARK 

63'l55  0 DXCri  TEMTPREL 

3 a260  1 CAP  PKI02A 

0 bP3A  0 Ic  FINdvAC 

E3  EBANK=  TGRR 

32066  0 2CAt)R  MP2J0B 

66003  1 

1 5P0b  0 TCP  ENDOPJOB 


UbpR'S  OWN  page  no.  23  e5 

GET  TIME  OF  PREi  AUNrH  TERMINATION. 

time  OF  EAST  fAPTH  RATE  COMPENSATION, 
INTO  COMMON  TFMd  UNTIL  MP^. 

SET  UP  MISSION  pHASF  2 


48895itA 


UoOlO 

0001 

0002 

R0003 

ROOOA 

Rooos 

R0007 

R0008 

RoooR 

ROOlO 

ROOll 

R0OI2 

R00121 

R0013 

ROOIA 

ROOKl 

R0015 

ROOI6 

R0017 

R0018 


yJL  system  '■or  AGC:  NlW  PRO'JRAM  SHj^PatIN  by  eY*-(-S  De;C  in,  1966  (MAIN)  PA^E  a53 


DAP  1\TlRI-AlE  subrout  IimeB  USER'S  OWN  PAUf  NO.  1 

16*2000  sank  16 

REF  A LAST  116  E6  EBANK=  DT 

MOD  0 DATE  11/13/66  BY  GEORGE  W,  CHERRY 

fjnchonal  description 

Herein  are  a collection  of  subroutine^  which  allow  mission  contRol  programs  to  coNtRol  tHe  mqDf 
AND  interface  WITH  THE  DAP. 

calling  seojences 

IN  INTERRUP]  or  with  INTERRUR]  inhibited 
TC  IfaNKCALL 

FCADR  routine 

IN  A JOB  WITHOUT  INTERRUPT  INHISHeD 
INhINI 

TC  IBNKCALL 

ecadr  routine 
REL.INT 

OUTPUT 

SEE  INDIVIDUAL  ROUTINES  BeLOW 

DEBRIS 

a,l,  and  sometimes  MOJETEMP 


488954A  VJL  SrSlEM  f'OR  AGC;  SMePAtIN  BY  E^Lej 


Dec  1:%,  1966  (MAIN)  PAGe  A5A 


LOOlO 

R0019 

Dap  iniTlrface  subrout 

DAPBOOLS  BUS  AND  NAM 

0020 

REF 

30  last  38A 

0021 

REF 

23  LAST  A51 

R0022 

STILL 

. Available  bit3 

0023 

REF 

LAST  AO3 

002A 

rff 

21  last  A25 

0025 

REF 

3A  last  a19 

0026 

REF 

25  LaST  385 

0027 

REF 

lA  last  A05 

0028 

REF 

8 last  A16 

0029 

REF 

37  Last  a26 

0030 

REF 

23  last  a27 

R0031 

STILL 

Available  biti2 

R0032 

STILL 

Available  biti3 

0033 

REF 

27  last  353 

003A 

REF 

28  Last  301 

USER'S  OtvN  page  no.  i- 


7765  OJRRCBir  EQUALS  BlTl  INTERNAL  UAP  RAtE  CqMMAND  ACiIVItY  FLAG 

775A  TRYUIMBL  EQUALS  BIT2  DeSCeNT  TRIM  UIn.BaL  CONTROL  SYSteM  FLAG 


7752 

7751 

7750 

77A7 

77A6 

77A5 

77A4 


ACCaOR2X  equals  BITa 

AOrBsYsI  equals  bits 
ULLAGER  equals  B1T6 
DBSeLeCT  equals  BIT7 
APSGOING  equals  BITb 
VIZPHASe  equals  BIT9 
PULSES  equals  BiTIO 


2 OR  A JET  X-TRaNSLATION  MODE  FLAG 
P-AXIs  rotation  jet  system  (A  O9  B) 
INTERNAL  ULLAGE  REQUEST  FLAG 

DAP  Deadband  sei ect  flag 
ascent  propulsion  system  burn  Fi  AG 
Descent  visibility  phase  flag 
minimum  impulse  rhc  mode  flag 


flag 


77A3  GODAPGO  equals  BlTU 


DAP  enabling  flag 


77AO  AJTORHLD  EQUALS  BlTlA  AUTOMATIC  MODE  pAtE  HOLD  FLAG 

7737  SPSBACJP  EQUALS  BIT15  5PS  BACKUP  DAP  f LAG 


0036 

ref 

1 

16,2000 

3 5650 

1 

SETmINDB  caf 

0037 

REF 

81 

LASl 

AA6 

16,2001 

5A  UOl 

1 

TS 

0038 

REF 

21 

LAST 

A A6 

16,2002 

22  U03 

1 

LXCH 

0039 

REF 

1 

16 ,2003 

3 2U75 

1 

CAF 

OOAO 

REF 

1 

16,200A 

55'A15 

1 

TS 

OOAl 

REF 

1 

16 ,2003 

A 7 ^ A7 

0 

CS 

00A2 

REf 

5 

last 

210 

16,2006 

7 OU77 

0 

mask 

00A3 

REF 

6 

last 

a5A 

16,200 ( 

5A  U77 

0 

TS 

OOAA 

REF 

22 

LAST 

A5A 

1 6 , 20 1 0 

22  U03 

1 

lXCH 

00A6 

REF 

1 n 

LAST 

A5  1 

16,2011 

0 0U02 

0 

TC 

EbANkS 

L 

EBANK 

NARROWDB 

DB 

DESELECT 

dapbools 

DAPBOOLS 

EBANK 

Q 


00A8  REF  2 LAST  a5A  l6'20l2  3 5^50  1 SETMAXDB  CAF  EBANK6 


00A9  REF  82  LAST  ASA  16,2013 

0050  REF  23  LAST  ASA  16,201'+ 

0051  REF  1 16,2013 

0052  REF  2 LAST  ASA  16,2016 

0053  REF  7 last  A5A  16,2017 

005A  REf  2 last  A5A  16,2020 

0055  REF  8 LAST  ASA  16, 2021 

0056  REF  2A  LASI  ASA  10,2022 

0058  REF  173  LAST  ASA  16,2023 

0060  REF  9 LAST  ASA  16+202A 

0061  REf  1 16,2023 

0062  REF  10  LAST  ASA  16,2026 


5A  UOl  1 TS  L 

22  003  1 LXCH  EBANK 

3 2076  1 CAF  WIDEDB 

55'‘'15  1 IS  DB 

A OU77  0 CS  DAPBOOLS 

7 7(A7  0 mask  deselect 

26  O77  0 ADS  DAPBOOLS 

22  003  1 LXCH  EBANK 

0 0002  0 rc  Q 

A OU77  0 ULLAGE  CS  DAPBOOLS 

7 7(50  0 mask  UlLAGER 

26  O77  0 ADS  DAPBOOLS 


488954A  YJL  SYSieM  (-OR  AGC ; New  PROGRAM  SHePATIN  3Y  eYLeS 


LoOlO  D'^P  inteRpace  SUBROUTIUeS 


006A  RHP  174  LAST  4S4  lb, 2027 


0066 

0067 

0068 
0070 

0072 

0073 

0074 

0075 

0076 

0077 


REF 

2 

LAST 

454 

16,2030 

ref 

1 1 

las'i 

454 

1 6 , 203 1 

REF 

12 

last 

455 

16,2032 

REF 

1 75 

las  T 

455 

16,2033 

REF 

3 

LAST 

454 

lb, 2034 

ref 

2 5 

LAST 

4 54 

lb, 2035 

REF 

1 

16,2036 

REF 

13 

LAST 

455 

16,2037 

REF 

1 

16,2040 

REF 

14 

LAST 

455 

1 6 ,2041 

0078 

0079 

REF 

7 

LAST 

320 

0080 

REF- 

3 

LAST 

21 

0081 

0082 

REF 

REF 

4 

1 

LAST 

320 

16,2044 
16,2043 
lb  ,204A 
16 ,204!5 
16,2046 


0083 

428 

0084 

REF- 

i 1 

LAS  1 

0085 

REF 

2 

LAST 

321 

0086 

0087 

REF 

REF 

5 

LAST 

LAST 

42b 

321 

lb  , 2047 
i.6,2050 
lb, 2051 
16,205^ 
16,205'3 


0088  REF  2 LaSi  455  lb,205A 

0089  REe  26  LASi  455  lb, 2055 

0091  REF  176  LAST  455  16,2056 


0093 

REF 

4 

LAST 

455 

0094 

ref 

27 

last 

455 

0095 

REF 

3 

LAST 

455 

0096 

REF 

2 

last 

455 

0097 

REF 

15 

LAST 

455 

0098 

REF 

16 

LAST 

455 

0099 

REF 

144 

LASI 

451 

0100 

REF 

4 

LAST 

455 

0101 

RcF 

1 

0102 

REF- 

2 

LAST 

455 

0103 

REF 

4 

LAST 

28 

0104 

REF 

2 

LAST 

28 

lb, 2057 
16,2060 
1 6 ,2061 
lb  ,206,1 
16,2063 
16,206A 

16.2065 

16.2066 
16,2067 

16.2070 

16 .2071 

16.2072 


0105  REF  2 Last  28  16,2073 

0106  REF  1 16,2079 


0 0002 

0 

TC 

Q 

S 7 750 

0 

noullagl 

cs 

ULLAGbR 

7 0077 

0 

mask 

oapbouls 

54  O77 

0 

TS 

DAPBOOLS 

0 0002 

0 

TC 

0 

3 5650 

1 

HOLDRAT  b 

CAF 

EBANK6 

56  003 

1 

XCH 

EbANk 

5 5 • ,=-07 

1 

T S 

MOUETEMP 

4 OO77 

0 

CS 

DAPBOOLS 

7 7 740 

1 

MASK 

AUTORHLD 

2 6 0 7 7 

0 

ADS 

DAPBOOLS 

0 0006 

1 

EXTEND 

3 1417 

1 

DCA 

OMEGAP 

5 2 775 

0 

DXCH 

OMEGAPD 

31 '421 

1 

CAh 

OMEGAR 

5 4 '76 

0 

T S 

omegard 

0 0006 

1 

COMNtxIT 

Extend 

3 OO34 

0 

DCA 

CuUY 

52  770 

0 

DXCH 

CdUYD 

30  032 

0 

CAL 

CDUX 

5 4 7 66 

1 

t s 

cduxd 

31 'AO? 

0 

CAE 

MuUETEMP 

54  O03 

0 

t S 

EbANk 

0 0002 

0 

TC 

Q 

3 5650  1 STOPRAIE  CAP  EBANK6 


56  003 

1 

XCH 

EbANk 

55'A07 

1 

TS 

MDUFTEMP 

4 7 740 

1 

CS 

AUTORHLD 

7 0077 

0 

MASK 

DAPBOOLS 

54  077 

0 

TS 

DAPBOOLS 

3 7 761 

0 

CAF 

ZERO 

54  774 

1 

TS 

OMEGAPD 

5 4 775 

0 

T S 

OMEGAOD 

54  776 

0 

TS 

OMEGARD 

54  771 

1 

TS 

DELCDUX 

54  772 

1 

T S 

DELCDUY 

54  773 

1 2O47 

0 

1 

TS 

TCF 

DELCDUZ 

COMNEXIT 

0107  REF 

0108 
0109 


16*2034  SETRATL  EQUALS  HOLDRATE 

16.2075  00033  1 NARROWDB  OEC  0.00167 

16.2076  00707  1 WIDEDB  OEC  0.02778 


DEC  U,  1966  (MAIN)  PAGE  455 


USER'S  OwN  paGf  no.  3 


E6 


0.3  degrees  scai  Ed  at  Pl  RAdIANs 
5.0  DEGREES  SCAl  ED  AT  PI  RADIANS 


A88954A  YJL  SYS'i  lM  FOk  AGC  : NeW  PRO^^A'^  SHePATL'J  BY  eYLES 
LOOlO  DAP  IMTLRFACt-  SUBRoUTirES 


Dec  U,  1966  (MAIN)  page  A56 
USER'S  OWN  PaGf  no.  Eb 


POllO 

Roin 

R0U2 

Rons 

RoilW 

Rons 

R0116 

R0117 

Rons 

R0120 

R0121 

R0122 

R0123 

R0124 

R012A5 


subroutine  name:  1.  UPCOAST 
2.  ALLCOAST 


mud.  imo.  1 date:  December  a,  1966 


3.  wCHANCiE 

author:  UoNATHAN  D,  aDDeLSTON  (aDAMS  ASSOCIATES) 

"UPCOAST"  Sets  up  dap  variables  T^  THeIR  ASCeNT-COASt  values, 
groundrile:  it  must  be  called  as  Soon  as  asceNt  coast  is  detected, 
"allcoast"  sets  up  many  dap  variables  For  "startdaP"  in  "uapidler". 
GrOUNDrULE:  DESCOA5T  Is  called  As  soon  As  descent  COA5T  Is  detected. 
I'/jcHANGu"  Sets  up  the  variable  =’oR  "WchangeR"  as  a storage  saving  Device, 
calling  sequence:  (same  as  above.) 

SUBROUTINES  CALLED:  NONE. 

ZERO:  ACSu.AOSR.AOSU.AOSv.AOSdI ERM.AOSRTERM.ALL  iTjS. 

SET  URgRATO  and  URGRATR  TO  POaMAX. 
output:  WFORP  (1-K)  MINI-IPOB  apsgoing/dapbools 

WF'ORQR  (l-K)/d  DbMINIMP 


R0125 

debris:  A,L, 

ROI26 

ebank  must  Be  set 

TO  6 • 

0127 

20»2056 

3ANK 

20 

0128 

REF  2 LASi  50 

E6 

EBANK= 

WFORP 

0129 

20,2050  0 OUOA  c 

descoast 

INHINT 

(MISSION  ENTRY) 

0130 

0131 

0132 

0133 

013A 

0135 

0136 

0137 

0138 


REF  1 

REF  17  LASI  ASS 
REF  2 LAST  AS6 
REF  1 U LAS  T AS6 


20,2057  A 7F5A  1 ALLCOAST  CS 

20.2060  7 0D77  0 MASK 

20.2061  6 7 CSA  0 AD 

20, 206^  SA  U77  0 IS 


REF 

REF 


20,2063  3 2116  0 

2U,206A  1 2U72  1 


CAF 

TCF 


TRYGIMBL 

DAPBOOLS 

TRYGIMBL 

DAPBOOLS 

0,3DEGDB 

MINIMSTO 


2U,206S  0 OUOA  0 UaCOAST  INHINT 


REF  1 

REF  19  last  a56 


20.2066  A 7IA6  1 

20.2067  7 OU77  0 


CS 

MAsK 


APSGOING 

DAPBOOLS 


SINCE  THE  DESCENT  ENGINE  IS  OFF,  LM  DAP 
USE  OF  TRIM  GIMfAL  C.ONTKOL  SYSTEM  15 
CLEARLY  impossible. 


SET  BOTH  MINIMUM  IMPULSE  DEADBA  iDS  TO 
0.3  DEGREES  SCALED  AT  PI  RADlANs. 

STOP  INTERRUPTS  FROM  WREAKING  HAVOC. 

TURN  OFF  APS  BURN  BIT  IN  DAPBOOLS  SINCE 
LEM  Is  staged  FnR  AsCENT,  BUT  ThE  AsCENT 


0139 


REF  20  LAST  A56 


20,2070  5A  077  0 


IS 


DAPBOOLS 


engine  IS  NOT  ON. 


48895^A  YJL  system  EOH  AGC;  PRO^^AM  SHePATIN  BY  EYLES 


LoOlO  DAP  IMTtKFAEE  SUBROUI iWES 


0140  R£F  1 ^0,2071  3 3304  0 CAF 

0141  REF  1 20,2072  55'P26  0 MINIM5T0  TS 

0142  REF  2 last  5O  20*2073  55'P25  0 TS 

0143  REF  22  LAS]  4I6  20,20  74  3 lOS  1 CAF 

0144  REF  2 LAS]  51  20,207^>  55'a7  0 TS 

0145  REF  1 20,207^'  55'T20  1 TS 


0146 

REF- 

1 

0147 

REF 

1 

0148 

REF 

145 

LASi 

455 

0149 

REe 

2 

LAS  1 

457 

0150 

REF 

5 

LAST 

320 

0151 

REF 

3 

LAST 

457 

0152 

REF 

1 

20,2077  3 2117  1 

20.2100  55'P44  1 

20.2101  3 7^61  0 

20.2102  5itb44  0 

20,2)03  55't>52  0 

20,2104  11*644  1 

20,210s  1 2100  0 


CAF 

CLEARA5C  IS 
CAF 
INDEX 
TS 
CCS 
TCF 


0153  REF  1 

0154  REF  3 LAST  456 

0155  REF  1 


20,2)06  3 3307  0 ^CHANGE  CAF 

20,2107  55'1>34  0 1 S 

2u,2110  55’«>35  1 TS 


0156  20,2111  0 0006  1 EXTEND 

0157  REF  1 20,2112  3 3^20  0 DCA 

0158  REF  2 LAST  50  20,2113  53*637  0 DXCH 

R0159  mOTl  THAT  sTArTDAP  rEsET  S /JFOKP  ^WFOrOr  , ( 1-<  ) , l 1-K  ) /8 

0160  20,2llA  0 0003  1 RELINT 

0161  REF  177  LAST  455  20,2113  0 0002  0 1C 


0162  20,2116  00033  1 0.3DEGDB  jEc 

0163  20,2117  300)5  0 I3DEC  DEC 


0.00444 

MINIMPDB 

DDMINIMP 

PoSMAx 

urgratq 

URGRATR 

I3DFC 

KCOEFCTR 

ZERO 

kcOefctr 

AOSQ 

KCOEFCTR 

CLEARASC 

0.3125 

t\IFORP 

WFORQR 


( 1-K ) S 
(1-K) 


a 


0.00167 

13 


DEC  13,  I966  (MAIN)  PAGE  457 


USER'S  OWN  page  no.  5 E6 

IN  ASCENT  COAST,  SET  BOTH  MINIM, iM 
IMPULSE  DEADBANi'.S  TD  0,08  DEGREES 
SCALED  AT  PT  RAnlANS. 

SET  URGENCY  FUNrTlON  CORRECTION  RATIOS 
TO  ALMOST  1 Before  being  set  in  AOSJOB, 
SCALED  AT  1. 

ZERO  THE  FOLLOWING  DAP  ERASABLES; 

AOSQ  AOSQTERM  NJ+Q  NJ+U 
AOSR  AOSKTERM  NJ-Q  NJ-U 
AOSU  NJ+R  NJ+v 

AOSV  NJ-R  NJ-V 


K = 0.5 

WFORP  = WFORQR  = K/nT  = K/.l  = lOK  s 5 
SCALED  AT  16  PER  SECOND. 

K = 0.5  IMPLIES  (1-x)  = 0,5: 

(1-K)  = 0,5  SINCE  scaled  Ar  1. 
(l-K)/8  5 0.0625  SINCE  SCALED  AT  8. 


LET  interrupts  i OOSe. 


RETURN 


Looio 

016A 

0165 

0166 

0167 

0168 

0169 

0170 

0171 

0172 

0173 

0174 


0176 

0177 

0178 

0179 

0180 
0181 
0182 

R0183 

0184 

0185 

0186 
0187 

A0188 

R0189 

R0191 

0192 

0193 

0194 

0195 
C0195 

0196 

0197 

0198 

0199 
C0199 

0200 
0201 
0202 
0203 

C0203 


YJL  system  fOR  AGC;  f«lEW  SMlPATIN  BY  eYLES 


dec  lA,  1966  (MAIR)  PAGE  458 


OAP  INTLRPACE  SUBROUTINES 


20,2120  0 0U04  0 ASCDAP  INHInT 

REP  2 last  456  20,2121  3 7^46  0 CAP 

REF  21  last  456  20,2122  7 OO77  0 MASK 

REF  229  last  a51  20,2123  10  OOO  0 CCS 

REF  1 20,212A  1 2l65  0 T CF 

REF  3 last  458  20,2123  3 7^46  0 CAF 

REF  22  last  458  20,2126  26  O77  0 ADS 

REF  3 last  454  20,2127  4 1415  1 CS 

REF  2 LASl  457  20,2130  55*626  0 TS 

REF  146  last  457  20,2131  3 7761  0 CAF 

R£r  3 LAST  457  20,2132  55'625  0 TS 


USER'S  OWN  PAGp  NO.  6 E6 

(MISSION  ENTRY) 

apsgoing  check  aostask  Bit  of  DAPBOOLS 

DAPBOOLS  IF  0,  SET  BIT  AND  INITIATE  WAITLIST  TASK 

A IF  1,  then  task  loop  ALREADY  BEoUN 

ASCDAPl  END  OF  ASCENT  DaP 

APSGOING  set  bit  TO  iNUIfATE  AOSTASK  SET  UP  AND 

DAPBOOLS  ASCeNt  LOGIC.  BIT  rLpARLY  NOT  SET  YET, 

DB  MODIFY  THE  TJETI AW  FOR  ASCENT : 

MlNIMPDB  (IN  ONE  EUUATION  DEI ETE  MINIMPDa  AND 

zero  shift  the  SWITCHING  CURVE  TO  THe  ORIGIN) 

DBMINIMP  MINImPdB  = -DB,  DBMTNImP  = 0 


REF  2 last  50  20,2133  55*621  1 TS  SUMRATEQ  INITIALIZES  SUMS  OF  JET  RATES. 

REF  1 20,213A  55*622  1 TS  SUMRATER 

ref  4 last  457  <10,2135  55*644  1 TS  KcOFFCTR  INITIALIZE  Aps  BURN  TlMtR. 

REF  2 LAST  43  20,2136  31*417  1 CAE  OMEGAO  CREATE  OLD  OMEGaQ 

REF  2 LAST  50  20,2137  55*023  0 TS  OLDWFORO 

REf  5 last  455  20,2140  31*^21  1 cAE  OmEgAR  CREATE  OlD  OmFGaR 

REF  1 20,2141  55*624  1 TS  OLDWFORR 

KKint*  Eventually,  use  zsecwLt',  frumm  fixed-fixed  and  new  name,  ihhhu* 

REF  1 20,2142  3 3316  0 CAF  2SLC5DAP  SET  UP  AOSTASK  tO  BfGIN  IN  2 SECONDS 

REf  68  last  444  20,2143  0 5701  1 TC  WAITlIST  IT  ThEN  SETs  UP  A LOOP  ON  WAITLIST  FOR 

REF  6 LAST  457  E6  EBANK=  AOSQ 

20,2144  03112  0 2CADR  AOSTASK  2 SECOND  INTERVALS  AND  CHECKS  FoR  THE 

REF  1 20,2145  40OO6  0 SHUTDOWN  CONDITION  IN  BiTb  OF  DAPBOOLS 

REMOVE  THIS  AND  THE  TASkS  w^'EV.  1 HE  INERTIA  ESTIMATOR  wORKS, 


REF  119  LASl  451  20,2146  3 7'55  1 CAF  ONE  ***:  SPECIAL  DAP  CHECKOUT  SEQUENCE 

REF  69  LASl  458  20,2147  0 5701  1 TC  WAITLIST  THESE  THREE  CALI  S TO  WAITLIST  BfGIN  A 

REF  1 E6  EBANK=  IXX 


20,2150  02^*41  1 2CADR  IXXTASK  COMPLICATED  PROCEDURE  TO  DECREMENT  THE 

REp  1 20,2l5l  54OO6  0 

REF  120  LASl  458  20,2152  3 7755  1 CAF  ONE  INERTIA  MATRIX  nIAGONAL  ELEMENTS  (EACH 

REF  70  LAST  458  20,2153  0 5701  1 K WAITLIST  SCALED  Af  2(+181  SLUG  FEET(2)  ) BY  ONE 

ref  1 E6  EBANK=  IYY 

20,215A  02^*52  0 2CADR  lYYTASK  BIT  AS  SOON  AS  APPROPRIATE  BY  A NOMINAL 

REF  1 20,2155  54O06  0 

REF  121  LAST  458  20,2156  3 7755  1 CAF  OlvE  LINEAR  APPROXIMATION  TO  INERTIAL  CHANGE. 

REF  71  LASl  458  20,2157  0 5701  1 1C  WAITLIST 

ref  1 E6  EBANK=  IZZ 

20,2160  02‘'63  1 2CADR  IZZTASK  NOT  TO  BE  USED  iN  MISSIONS 

R-F  1 20,2161  54OO6  0 


48895^A  YJL  5YS1EM  I- OR  AGC;  NEW  PRO^Ri^'l  SHePAT  I >1  BY  EYLES  DEC  13,  I966  (MAIN)  PAGE  A59 

LoOlO  l^AP  interface  subroutines  USER'S  OWN  PAGp  NO.  1 EP 


0206 

20.2162 

0 

0 

c 

0 

0 

DESCDAP 

INHINT 

(MISSION  ENTRY) 

0207 

REF 

1 

20.2163 

3 2167 

0 

CAP 

DbAUTO 

SINCE  ENGINE  IS  ON: 

0208 

RFE 

A 

LAST 

AS8 

20,216^ 

55'AIS 

1 

T5 

Db 

SET  DEADbAND  TO  1.0  DEgREES 

0209 

20.2166 

0 0O03 

1 

ASCDAPl 

RELINT 

let  interrupts  I OOSf. 

0210 

REF 

178 

last 

A57 

20.2166 

0 0002 

0 

1 C 

0 

return. 

0211 

20*2167 

00133 

0 

D3AUT0 

DEC 

0.005S6 

1 DEGREE  deadband  SCALED  AT  PI  RADIANS 

L 

Roool 

R0002 

Ro003 

Roooa 

Ro006 

Rooos 

Ro009 

Roolo 

Roou 

Ro013 

Roois 

R0017 

R0019 

R0020 

R0022 

R0023 

R002A 

R0025 

R0026 

R0027 

R0028 

R0029 


R0031 

R0032 

R0033 


R0034 

R003Ab 


yJL  SySItM  FOR  AqC;  NEw  PROGRA'1  S^EPATIH  by  EyL-ES 


dec  IB,  1966  (MAIN)  PAqE  A60 


T6-RJPT  PROoRAMS  USER'S  OWN  PA&f  NO.  1 

program  NAMES:  (1)  DOibRUPT  MUD.  NO.  2 DATE;  NOVEMBER  15.  1966 


(2)  T6J0BCHK 


modification  by:  JONAiHaN  D.  AOOePSTON  (ADAMS  ASSOCIATE^) 

tHese  programs  enable  ihe  lm  0A3  10  control  tHe  tHRUSt  times  of  tHe  Reaction  control  system  jets  by  usin(5  time6. 
since  tme  L'!  DAP  maintains  exclosWe  control  over  time6  and  Its  interrupts,  the  Following  conventions  have  been 
established  and  must  Nut  F)E  TA'-PeRlD  with: 

1.  NO  number  is  ever  P-AUeD  into  times  E)<CePT  by  lm  dap. 

2.  No  PROGRAM  OTHeR  THAN  LM  DAP  ENABLES  ] He  tIMEo  COUNTER. 

3.  ONLY  positive  NUMSeRS  ARe  ENTeReD  INtO  TIME6,  So  it  counts  down  to  -0  (MINUS  ZERO)  TO  INTERRUPT. 

A.  II-  -0  IS  NOI  IN  t1M£6  when  THe  INTERRUPT  OCCURS,  tHeN  tHe  INTERRUPT  HAS  ALRtADY  BeeN  PROCeSSeD. 

5.  ALL  PROGRAMS  WHlCHi  OPLRAte  IN  eITHeR  INTERRUPT  MoDe  OR  WItH  INTERRUPT  INHIBITED  MUST  CALL  TbJOBCHK 

every  6 milliseLdvds  10  process  a possible  waiting  TbRUPT  Before  it  can  bf  honored  by  the  hardware. 


D3T6RJPI  CALLING  SEUJENCE: 


REF 

1 

AOQA 

52  011 

0 

OXCH 

ARUPT 

400S 

0 0O06 

1 

EXTEND 

REF 

1 

4006 

3 5O45 

0 

OCA 

TbADR 

400? 

52  U06 

0 

OTCB 

T6RUP1 


TSJOBCHF  CALLING  SEOJLiiCE: 

REF  0 23.1000  0 A200  1 TC  T6J0BCHK 

SUBROUTINES  CALLED:  D0T6RUPT  CALLS  T6J0BCH<. 

NORMAL  lxit  modes:  doilrupt  tramsters  control  to  resume. 

TSJGBChK  TRAVSFERS  control  to  cAllER  at  location  after  call. 

ALARM/AbORT  MODlS:  NONE. 

INPUT:  TIME6»T6NEXT  RLcs  . t6NE)(  T JT  REGS. 

OUTPUT : (SALE  AS  INPUT . ) 

debris:  D0T6RUPT!  NONE.  TSUOSCHKl  A.L 

t)*#  NOTl:  AS  OF  MOD.  No.  2.  T6NEXT  AND  T6NEXTJT  LISTS  ARe  IN  UNSWITCHeD  ERASABLE.  *** 


48895^A  YJL  system  FOR  AGC : I\ILF»  PRO'jRA.'O  SF^lF’ATIN  BY  eYLeS  DEC  U*  I966  (MAIN)  PAGE 

L T5-RJPT  programs  UStR'S  OwN  PAGE  NO.  i- 


0035  5037  3L0C<  0^ 

00351  REF  1 E2  tBANK=  T6NEXT 


0036 

REF 

2 

LASl 

961 

0037 

503  7 

COO37 

REF 

1 

509O 

0038 

00381 

REF 

3 

LAST 

961 

0039 

REF 

7 

LASl 

319 

16»207T 

OOAO 

16 1 2 lOO 

0091 

REF 

7 

LASl 

319 

16, 2101 

0092 

REF 

1 

1 6 * 2 I02 

0093 

REF 

16 

LASl 

316 

16,2103 

E2 

02^77  0 
34GO2  1 
16*2077 
E2 

22  'Jl^>  0 
0 O'^OO  1 
22  P12  1 

0 sf^Al  1 

1 5 F51  0 


£BANK= 

T6ADK  2CADR 

3ANK 

EBANK= 


D0T6KUPT  LXCH 

EXTEND 

iXCH 

1C 

TCF 


T6NEXT 

D0T6RUPT 


lb 

TbNFXT 

BANKRUPT 

QRUPT 

ToJOBCHK 

RESUME 


2CADR  OF  interrupt  pROCtSSOR, 

(INTERRUPI  lead  in  rONTiNUED) 

CALL  T6J0BCHK 
END  TlMEb  RDPT 


OOAA  5CA1  3L0CK  02 

00A41  REF  A LAS!  A61  E2  EBAN<=  TbNEXI 

CHECK  TIME6  FOR  WAITING  IbRUpr: 

NONE:  CLOCK  COUtING  DOWN. 
none:  T6RUPT  AL:jEADy  PROCESSED. 

none:  invalid  Value,  (possible  abort.) 


0095 

REF 

1 

5091 

10  U31 

1 

T6J0BCHK  CCS 

0096 

REF 

1 79 

LASl 

959 

3092 

0 0U02 

0 

TC 

0097 

REF 

180 

L«5T 

h61 

509  3 

0 0002 

0 

1C 

0098 

REF 

181 

LASl 

961 

509A 

0 0002 

0 

IC 

R00A9  control  passes  TO  TbJOb  OnLY  »»HeN  C(TIMe9)  = "0  (I.E.  WHEN  A T6RUPT  MUST  Be  PROCESSED), 


0051 

REF 

197 

LASl 

958 

5095 

3 7 761 

0 

TbJOB 

CAF 

zero 

UPDATE  ORDERED  1 iST  OF  T1ME6  DTiS; 

0052 

REF 

5 

LAS1 

961 

5096 

57'V03 

0 

XCH 

TbNFXT  +1 

1)  PUSH  FIRST  entry  INTO  TIML6. 

0053 

REF 

6 

LAST 

96  1 

5097 

57*002 

1 

XCH 

T bNEX 1 

2)  PUSH  SECOND  fNTRy  INTO  FIRST  PLACE* 

0059 

REF 

2 

LASl 

961 

5O5O 

59  031 

1 

15 

T1ME6 

3)  ZERO  LAST  (SfCOND)  DT  IN  LIST, 

0055 

REF 

3 

LASl 

961 

5O5I 

13  031 

1 

CCS 

TlMPb 

TIMEb  Ell  HER  POtlTIvE  OR  PLUS  ZpRO: 

0056 

REF 

1 

5052 

1 5055 

0 

ICF 

TbNZERO 

(BRANCH  IF  TIMEb  STILL  ACTIVL.) 

0057 

REF 

1 

5o53 

81*009 

1 

CAE 

TbNEXTJT 

THESE  ARE  TRANSlATION  JETS  (NO  DT)* 

0058 

REF 

1 

505A 

1 bOlO 

1 

TCF 

WR I TFJTS 

Determine  channel  and  wRiie. 

0059 

REF 

99 

LASl 

959 

5055 

3 7737 

c 

TbNZERO 

CAF 

BIT15 

ENABLE  TIMEb  COUNTER  TO  START  TIMING 

0060 

5056 

0 0006 

1 

extend 

THIS  jet  FIRING  (PROPER  JETS  NOl  YET 

0061 

505  7 

05  013 

0 

wOR 

13 

WRITTEN  INTO  CHaNNEI , BUT  WILL  BE  SOON) 

0062 

REF 

1 9a 

LASi 

96 1 

5o60 

3 7 761 

0 

CAF 

Zero 

UPDATE  ordered  i IST  OF  JET  POLICIES: 

0063 

REF 

2 

LASl 

961 

506 1 

5 7 *006 

0 

xCH 

TbNExTjT  +2 

1)  LEAvE  JETS  TO  CjO  UN  lYOw  IN  A. 

0069 

REF 

3 

LASl 

96 1 

5062 

57*005 

0 

XCH 

TbNEXTJT  +1 

2)  CYCLE  LIST  Up  TOWARD  TOP. 

0065 

REF 

9 

LASl 

961 

5063 

5 7 *009 

1 

XCH 

TfaNFXTJT 

3)  ZERO  LAST  fNtRY  TN  LISI  . 

00651 

r£f 

2 

LAST 

961 

506A 

O' 

c 

0 

1 

TCF 

writfjts 

TEMP.  FIX  UnTiL  nEXT  rEV:  J0|J  A, 

^8895^A 


L 

P00685 

R00656 

R00657 

R00658 

00659 

0066 

0067 

R00675 

0068 

0069 

0070 

R00705 

0071 

0072 

0073 


yJL  SySltM  f-UR  AgC;  NLw  rRCORA-M  S^iEpAlIN  ay  EyLES 


Dec  iai  1966  (main)  pAqe  A6<^ 


r6-RJRT  Rk01jRAM5  USER'S  OWN  PaGf  NO.  3 t2 

THE  FjLLOwi\G  JET-On  LOGIC  MAf  3E  USEU  As  A SUBROUTINE  (3  EnTrY  POinTS): 

FIRST,  lei  SGN(A)  DETERMINE  THE  JET  CHANNEL: 

POSITIVE  implies  P-AKIS  POLICY, 
negative  IMPLItS  0,H-AXEP  POLICY. 

6010  3L0CK  03 

6010  0 0OO6  1 WRITEJIS  extend  TEST  FOR  CHANNei  TO  WRITE  POLICY  IN; 

REF  1 6OII  6 6015  0 3ZMF  WRlTEQR  NEG:  0,R_AXES  JrTS  tN  CHANNEL  5 

SECOND,  FOR  P-AXIS  JET  POLIGIeS: 

6OIZ  a 0OO6  1 WRITEP  EXTEND  POS;  P.AXIS  JpTS  iN  CHANNEL  6 

6OIS  01  006  0 WRITE  6 

REF  182  LAST  A6I  601^*  0 0002  0 IC  Q RETURN, 

THIRD,  FOR  w*R-AXES  JET  POLICIES: 


q,r-axes  jets  in  channel  5 


REF  163  last  A62 


6015  0 0006  1 writeoR  Extend 

6016  01  005  0 WRITE  5 

6017  0 0002  0 TC  Q 


return 


‘^88954A  yJL  SySlEM  P OR  AqC;  Nhw  pROCjRAv]  S^EPAI  IN  by  EyL-ES 


Dec  IB,  1966  (MAIN)  pAGE  A63 


L DAPIDLER  program  USER'S  OWN  PAGp  NO.  1 

ROOOl  HE  DAPIDLER  PROGRAM  IS  StARt-D  FReSN  START  AND  RESTART.  THe  DAPIDLeR  PRnGRAM  IS  DONE  10  TIMeS 

Rooo3  per  Second  „ntil  iHe  astronaji  De^ires  tHe  dap  to  wake  up,  and  the  imu  and  cdus  are  ready  for  use  by  the  dap. 
Roods  the  necessary  initialization  df  th<e  dap  is  duNl  by  the  dapidleR  program. 

Rooo6  additional  /ork  must  Be  Done  dn  dapidler  in  the  future. 


0007 

0008 

REF 

5 

LAST 

453 

OOO9 

REF 

35 

LAST 

454 

16*2109 

0010 

REf 

61 

LAST 

320 

16,2lOB 

0011 

REF 

230 

LAST 

458 

1 6 , 2 1 06 

0012 

REF 

1 

16.2107 

0013 

REF 

27 

LASI 

4 54 

16.2110 

0014 

REF 

22 

LAST 

454 

16.2111 

0015 

16.2112 

0016 

16.2113 

0017 

REF- 

231 

LAST 

463 

16.2114 

0016 

REF 

2 

LAS'I 

463 

1 tJ . 2 1 H 

0019 

REF 

38 

LASI 

454 

16,2116 

0020 

16.2117 

0021 

I6.212O 

0022 

REF 

232 

LAST 

463 

16,2121 

0023 

REF 

3 

LAST 

463 

16.2122 

0024 

16,2123 

0025 

16,2129 

0026 

16,212B 

0027 

REF 

3 

Last 

384 

16,2126 

0028 

16,2127 

0029 

REF 

4 

LASi 

463 

l6,2I30 

0 0 3 0 

REF 

1 

1 6 < 2 1 3 1 

0031 

REf 

23 

LAST 

458 

16.2132 

0032 

16,2133 

0033 

REF 

1? 

LASI 

463 

16.2139 

0034 

16»213B 

16*2104  3AfM<  16 

E6  EBANK=  D1 

3 7^50  1 CREKBIIS  CAF  Bllb 

y 0U65  0 mask  Im0dFs30 

10  000  0 CCS  A 

1  2^05  1 ICF  MOREIDLE 

3 TbZ  0 CAF  BITS 

6 7'51  0 AD  BITS 

0 0006  1 EXTEND 

C2  012  0 RAND  12 

10  OOO  0 CCS  A 

1 2U05  1 ICF  MOREIDLE 

3 7'’44  1 CAF  BITlO 

0 0006  1 EXTEND 

02  O30  0 RAND  30 

10  000  0 CCS  A 

1 2UO5  1 KF  MOREIDLE 

0 OOO6  1 EXTEND 

00  O31  0 READ  31 

4 0000  0 COM 

7 5^26  0 MASK  BIT13-14 

0 0006  1 EXTEND 

1 2305  1 3ZF  MOREIDLE 

3 7^43  0 CAF  G0DAP60 

7 0077  0 mask  DApbOOLS 

0 OOOb  1 EXTEND 

1 2305  1 3ZF  MOREIDLE 

0 0002  0 RETURN 


BITlO  OF  30  IS  PNGCS  CONTROL  OF  S/C 
BITS  IN  30  are  INVERTED 


IF  BOIH  BIT13  and  BIT14  ARE  ONE 
THEN  MODE  SELfCt  SWITCH  IS  IN  OFF 
POSITION. 

hence  dap  should  be  off. 
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L oaPiduEk  pro^iram  usek«5  own  pagf  no.  i-  t6 

P0035  DAPIDlER  ENIRY. 


0036 

REF 

8 

LAST 

A 6 1 

16*2136 

22  016 

0 

DaPIDLER  lxch 

BANKRUPT 

INTERRUPT 

lead  tNS 

(CONT INUeu) 

0037 

16,213? 

0 OOO6 

1 

EXT  END 

0038 

REF 

8 

LAST 

461 

1 0 , 2 1 4O 

22  Oiz 

1 

wilXCH 

QRUPT 

0039 

REF 

1 

16*2141 

0 2IO4 

0 

TC 

chekbits 

CHECK  TO 

SEE  IF  LM 

DAP  IS  TO  GO  ON. 

Ro040  THIi>  SUbRuUrlNE  CALL  PERFORMS  T HE  FOLLOWING  INITIALIZATION  FUNCTIONS; 

R0041  1.  the  0E5IRL0  RATE  v/'£CTOK  IS  ZEROED. 

R0042  2.  THE  DELCUJ  VECTOR  Ib  ZEROED. 

ROO43  3.  tHe  DeSIReD  COU  RejISILKS  ARE  SET  EOUAL  TO  THE  CDU  REGISTERS. 

0044  REF  1 16’214Z  0 2D57  1 STARTDAP  7C  STOPRATE  USE  DAP  INTERFAfE  SUBROUTINE 


R0045  this  SUgRoUTlNE  CALL  PeRFc;RM5  tHE  FOLLOWING  INITIALIZATION  FUNCTIONS; 
R0046  1.  the  minimum  IMPULSE  DEADBANDS  ARE  SET. 

ROO47  2.  the  OFFSET  ACCELERATION  ESTIMATES  ARE  ZEROED. 

R0048  3.  the  rate  DuRIvATION  ACCELERATION  TERMS  ARe  ZeROfD. 

R0049  4.  THE  NJ  FLAGS  ARE  CLEARED. 

ROOSO  5.  the  urgency  FUNCTION  CoRRtCTION  RATIOS  ARE  SET  TO  ONE. 


0051 

REF 

7 

LAS) 

303 

l6,214A 

0 5307 

0 

0052 

REF 

1 

16,2144 

40O57 

1 

0053 

REF 

149 

LAST 

46  1 

16,2145 

3 7 ?6 1 

0 

TC  IBNKCALL 

fcadr  allcoast 

CAF  Zero  jnnnnnt*-#*#  initialize:  ii-ii******n* 


0054  REF  4 

0055  REF  2 

0056  REF  I 

0057  REF  1 

0058  REF  1 

0059  REf  1 

0060  REF  1 

0061  REF  2 

0062  REF  2 

0063  REF  8 

0064  REf  3 

0065  REF  6 

0066  REF  7 

0067  REF  8 

0068  REf  1 

0069  REF  1 

0070  REF  2 

0071  REF  1 

0072  REF  1 

0073  REf  1 

0074  RE(-  3 

0075  REF  1 


LAST 

461 

16 

LAST 

49 

1 6 

16 

l6 

1 6 

16 

LAST 

16 

48 

1 6 

LAST 

48 

16 

LAST 

455 

16 

LAST 

458 

16 

LAST 

458 

16 

LAST 

461 

16 

LAS  1 

464 

1 6 

16 

16 

LAST 

55 

1 6 

16 

16 

1 6 

LAST 

457 

16 

16 

214S  54  U31  1 

214?  55'PIO  0 

2150  55*911  1 

2151  55'463  0 

2152  55'A64  1 

2)53  55*465  0 

2154  55*466  0 

2155  55*467  1 

2156  55*470  1 

215T  55'4l6  1 

2160  55*417  0 

216J-  55*421  0 

2162  55'002  0 

2163  55'D03  1 

2164  55*473  1 

2165  55*474  0 

2166  55*007  0 

216?  55*420  1 

2170  55*422  0 

2171  55'514  1 

2172  55*636  1 

2173  55*637  0 


TS 

TS 

TS 

TS 

TS 

TS 

TS 

TS 

TS 

TS 

TS 

TS 

TS 

TS 

TS 

TS 

TS 

TS 

TS 

IS 

TS 

IS 


T1Me6  T6RUPT  CLUCK 

Tp  RATE  DERIvAT IoN  DT  S 

TUR 

LASTPER  attitude  error  PLCOdDS  i-or  eightball, 

LASTOER 

LASTRER 

PERROR 

OERROR 

RERROR 

OMEGAP  RATES  IN  BODY  (PILOT)  CUORDINATf'S. 

OmEgAQ 

OMEGAR 

T6NEXT  JTLST  VARIABLES. 

T6NEXT  +1 

ADDT6JTS 

AUDTLT6 

DeLAYCTR  minimum  IMPULSE  RHC  MODE  COUNTER. 

ALPHAu  Descent  acclLfRatiom  esiimatls. 

AlPH AR 

DISPLACT  eightball  ROUTINE  SWITCH. 

(1-K)  K=1  first  PASS. 

(l-K)/8 


0076  REF 


16*2174  55*502  0 


TS 


CH5MASK 


TEMP.  INIT.  FOR  FAILURE  MONITOR 


488954a  YJL  SYSteM  FOR  AGC:  Ne"  PRC^^A'O  SH[.PatIiM  BY  e^I-eB 


L 

0077 


R0078 

0079 

0080 

0081 

0082 

0083 

0084 

0085 

0086 

0087 

0088 
R0089 

0090 

0091 

0092 

R0093 

0094 

0095 

0096 

R0097 

0098 

0099 

0100 
0101 

COlOl 

0102 

0103 

0104 

0105 
C0105 

0106 

0107 

0108 

0109 
C0109 

0110 
0111 
0112 
0113 

C0113 


DAPlOLtK  PRotjRAM 

REF  1 16,217P  55'P03  1 15  CH6MASK 


SEi  Jp  "OLD"  Measured  cdu  aN'.es: 


16,2l7P 

0 0O06 

1 

EXTEND 

REF 

28 

last 

455 

1 6 » 2 1 7 ! 

3 OO33 

1 

3CA 

CDUX 

REF 

4 

last 

46 

16*2200 

53*427 

0 

3XCH 

OLDXFORP 

16*2201 

0 OOO6 

1 

EXTEND 

ref 

12 

last 

*♦55 

1 6 1 2 2 02 

3 0034 

0 

3CA 

CDUY 

REF- 

1 

16,2203 

53*431 

1 

3XCH 

OLDYFORO 

REF 

1 

16*2204 

3 2331 

1 

CAF 

0.62170 

RcF 

1 

10*2205 

55*455 

0 

TS 

4JLTT0RK 

R-F 

1 

16,2208 

3 2332 

1 

CAF 

•68387 

REF 

1 

16,2207 

55'‘*56 

0 

TS 

JETT0RK4 

SET 

JP 

the  toruUe  Vector  re'^D'JSi ruction  switches: 

16,2210 

0 0006 

1 

EXTEND 

REF 

1 

1 6 , 2 2 1 T 

3 23A3 

1 

3CA 

VISNORMO 

REF 

1 

16,2212 

5 3 * 6A7 

1 

3XCH 

P jUMPADR 

SET 

J? 

INITjAL  values  for  wf-ORp  and  ' 

imforQr  : 

16,2213 

0 0006 

1 

EXTEND 

REF 

1 

16,2214 

3 23A5 

1 

3CA 

NFORPQRK 

rSf 

A 

last 

a57 

16 , 22  1 5 

53*835 

1 

3^CH 

WFOrP 

SET 

J?  1 

..aitl 

1ST  CALL  TO  RfSLt 

W“ORP  . 

AND  WFORUR: 

REF- 

1 

18*2219 

3 23A0 

1 

CAF 

IbOMS 

REF 

72 

last 

458 

16,221  ' 

0 5701 

1 

TC 

WAITLIST 

REF- 

2 

last 

457 

E6 

ebank= 

WF  OROR 

16,2220 

33322 

1 

2CADR 

WCHANGER 

REF 

1 

16,2221 

40O06 

0 

REF 

122 

last 

458 

16,2222 

3 7755 

1 

CAF 

ONE 

REF 

73 

LAST 

465 

16,2223 

0 5 701 

1 

TC 

WAITLIST 

REF 

2 

LAST 

458 

E6 

ebank= 

IXX 

10,222** 

J2^A  1 

i 

2CADR 

I X X T ASK 

REF 

2 

LAST 

458 

16,2225 

54OO6 

0 

REF 

123 

LAST 

465 

16,2226 

3 7755 

i 

CA 

One 

REF 

74 

LAST 

465 

16,2227 

0 5701 

1 

T C 

WAITLIST 

REF 

2 

LAST 

458 

E6 

ebank= 

lYY 

16,2230 

32452 

0 

2CADR 

I YYTASK 

REF 

2 

LAST 

458 

1 8 , 22 3 1 

5aO06 

0 

REF- 

12a 

LAST 

465 

16,2232 

3 7755 

1 

CA 

ONE 

REF 

75 

LAST 

465 

18,2233 

O 5 701 

1 

TC 

WAITLIST 

REF 

2 

LAST 

458 

L6 

ebank= 

122 

16,2234 

32463 

1 

2CADR 

I22TASK 

REF 

2 

LAST 

458 

16,2235 

54OO6 

0 

USER'S  OWN  PAUf  no 


3 


E6 


OLDXFORP  AND  oLdYFORP 


olDyforu  and  OLDZFORQ 


2200  FT  LriS.  SCALED  AT  2(10)  X PI, 
OR  AXIS  JET  TORoUE  FOR  A JETS. 


PJUMPADR  and  QJllMPADR 


SCALED  at  16: 

WFORP  = K/DT  = K/.l  = l/.l  = 0.625 
WFOrQp  = K/DT  = K/.15  = 1/.15  = 0.41667 
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L DaPiOUEK  PR0<JPAM 

RoilA  HIG  SELTlO',  COMPUTE^  IHe  3F  CHANGE  OF  ACCELERATION  UUe  TO  tHe 

Rons  rotation  np  the  GIMSAL  fNGIne.  IHe  equation  implemented  in  both  the 

R0II6  Y-X  PLANE  and  the  A-X  PLANe  15  --  D(ALPHA)/DT  = T L/1  » D(DeLTA)/DT 

R0117  WHERE  

ROU8  T = engine  THRUST  COMMAND 

R0119  L = PIVOT  10  CG  Distance  op  the  gimbal  engine 

R0120  I = inertia 

R0121  Delta  = gimbai  engine  angle  measured  from  the  x axis. 


0122  REF  1 16*223^ 

0123  16.2237 

012A  REF  1 16,22A0 

0125  l6,22Al 

0126  REF  1 16,22A2 


3 203'+  I OAF  DELTADOT 

0 OOO6  1 EXIEND 

7 1951  1 MP  L,PVT-CG 

0 0006  1 EXTEND 

7 1523  0 MP  THRSTCMD 


0127 

REF 

60 

LAST 

397 

16.2293 

0128 

1 6 .2299 

0129 

REF 

61 

LAS) 

L 66 

16.2295 

0130 

16.2296 

0131 

REF 

3 

LAST 

965 

16.2297 

0132 

REF 

1 

16+225° 

0133 

ref 

62 

last 

966 

16,2251 

0139 

1 6 . 22  5E 

0135 

REF 

3 

LAST 

965 

16,2253 

0136 

REF 

9 

LAST 

98 

16.2259 

0137 

16,2253 

0138 

REF 

1 

1 6 . 22  5P 

0139 

REF 

9 

LAST 

98 

1 6 . 22  5 (' 

OlLO 

16+226° 

0191 

16.2261 

0192 

REF 

1 

1 6 . 226^ 

52  062 

1 

OXCH 

ITEMPl 

0 OOO6 

1 

EXTEND 

3 0062 

0 

DCA 

I TEMPI 

0 OUO6 

1 

EXTEND 

11  * 95'+ 

1 

DV 

I ZZ 

55*533 

1 

TS 

ACCDOTR 

52  062 

1 

OXCH 

I 1 empi 

0 OOO6 

1 

EXTEND 

1 1*953 

0 

DV 

lYY 

55*331 

0 

TS 

ACCDOIQ 

0 0006 

1 

Extend 

7 2335 

1 

MP 

DGBF 

55*325 

0 

t s 

<0 

0 0006 

1 

extend 

7 OOOO 

c 

SQUARE 

55*526 

c 

T S 

K Cj  2 

0193 

REF 

2 LAST  966 

16+2263 

0199 

0195 

0196 

REF 

REF 

2 LAST  966 

1 

16 .2269 

16.2265 

16.2266 

0197 

16.226  f 

31'P33  0 CAE  ACCDOTR 

0 0006  1 extend 

7 2035  1 MP  DGBF 

55'P27  1 TS  <kDAP 

0 OOO6  1 EXTEND 


OILS 

0199  REF 


16.2270  7 OOOO  0 SQUARE 

16. 2271  55'P30  1 TS  Kk2 


0150 

0151  ref  1 

0152  REF  1 


16.2272 

16.2273 


16 


2279 


0 OOO6  1 
3 2326  1 
53*372  1 


EXTEND 

OCA  DFCcAqR 
OXCH  PFILTADR 


0153 

0159 

0155 

0156 

0157 

0158 


ref 

REF 

REF 

REF 

REF 


1 

6 LAST  116 
1 

2 LAST  89 
17  LAST  961 


2275 

2270 

2277 

2300 

2301 

2302 


0 0006  1 
3 2329  0 
53*001  0 
3 2327  0 
59  O30  0 
1 5T51  0 


SETI IME5 


EXTEND 

OCA  PAXAdIDL 

OXCH  T5ADR 

CAF  MSlOO 

TS  TIMES 

tcf  resume 


USER*S  OWN  PAGf  no.  9 E6 


0.2  DEG/SEC  SCAl  ED  AT  Pl/6^ 

GIMBAL  PIVOT  TO  C.G.  DISTANCl  ,SCALE=8. 
COMMANDED  THrUSt  SCALED  AT  2(19)  =16389. 

AT  2(18) 

AT  PI/2(7) 

AT  2(18) 

AT  PI/2  <7) 

.3ACCD0TQ  AT  PI/2(8) 

KQ  (2) 

.3ACCDOTR  at  PI/2(8) 


SET  UP  P-AXI5  TO  GO  TO  UUMMYFIL 


A8895AA 

YJL 

system  for  AGC; 

NEW  PROGRAM  sHePATIN  3Y  LYLES 

U 

dapidlei-  program 

0159 

K'l- 

6 LASI  968 

E6 

EBANK= 

DT 

0160 

lb,230S 

021-36  1 

IDLERADR 

2CADR 

DAPIDLER 

COI6O 

REF 

3 LAST  116 

16,2309 

39OO6  0 

0161 

1 6 , 23OS 

0 OOO6  1 

more  1 DUE 

EXT  END 

0162 

REf 

1 

16,2306 

3 2309  1 

OCA 

IDLFRADR 

0163 

REF 

7 LAST  966 

16,2307 

53'POl  0 

OXCH 

T5A0R 

0l6A 

REF 

150  LAST  969 

I6,23l0 

3 7761  0 

CAF 

ZERO 

0165 

16,2311 

0 OOO6  1 

Extend 

0 1 66 

1 6 , 2 3 1 Z 

01  005  0 

WRITE 

5 

0167 

16,2313 

0 OOO6  1 

EXTEND 

0168 

16,231A 

01  006  0 

WRITE 

6 

0169 

REF 

1 

l6,23l5 

9 2321  1 

CS 

BGIM23 

0170 

16,2316 

0 0006  1 

EXTEND 

0171 

1 6 , 2 3 1 V 

O3  012  1 

wAND 

12 

0172 

REF 

1 

16,2320 

1 2300  1 

TCF 

SlTTIMES 

0173 

1 6 , 2 32  1 

07900  1 

BGIM23 

OCTAL 

0 7900 

017A 

1 6 , 2 3 2 Z 

26S01  1 

.7O7P 

OEC 

.70711 

0175 

REF 

9 LAST  969 

E6 

ebank= 

OMEGAP 

0176 

16,2323 

02396  1 

PAXADIDL 

2CADR 

PAXI  S 

C0176 

REF 

1 

16,2329 

39OO6  0 

0177 

REF 

2 LAST  969 

E6 

EBAN<= 

ALPHAQ 

0178 

16,232S 

33631  0 

DF2CADR 

2CA0R 

DUMMYFIL 

C0178 

REF 

1 

16,2326 

39OO6  0 

MSlOO 

0179 

16,2327 

37766  1 

OCT  AL 

377  66 

0180 

16,2330 

00033  1 

0,00167 

OEC 

0.00167 

0181 

16,2331 

23712  1 

0.62170 

OEC 

0,62170 

0182 

16,2332 

25705  1 

.68387 

OEC 

0.68387 

0183 

16,2333 

I2OOO  1 

0.31250 

OEC 

0.31250 

0 1 8 A 

16,2339 

32Z15  0 

DEL  T ADOT 

OEC 

0.07111 

0185 

16,233S 

23I96  0 

D3BF 

OEC 

0.6 

0186 

16,2336 

11093  0 

.5ACCM1N 

OEC 

0.30680 

0187 

16 ,233  ^ 

30O33  1 

dbmnmp 

OEC 

0.00167 

ROI88 

TORQJE  and  ALIGHTING 

CuNSiANj 

3 : 

0189 

16,2390 

30022  1 

160MS 

OEC 

18 

0190 

I6,239l 

32315  1 

.075DEC 

OEC 

0.075 

0191 

REF 

DTP 

1 

16,2392 

32959  0 

VISNORMO 

oENADR 

CH<VISFZ 

0192 

Kir 

1 

16,2393 

32077  0 

Sen ADR 

nqrmalq 

0193 

n 1 Q4, 

16,2399 

29OOO  1 

10AT16 

OEC 

0.625 

i 0 t ^ 3*+^ 

1 5Z  5 3 1 

6 . 6 A 1 16 

OEc 

0,91 667 

0195 

REF 

1 

16*2399 

WFORPQRZ 

equals 

10AT16 

[JLC  U,  I966  (MAIN)  PAGE  A67 


USER'S  OrtN  PAGf  NO.  E^ 


DAP  SHOULU  BE  OfF 


COMMAND  JETS  OFF 


TURN  IRIM  GlMBAi  OFF 


SQUARE  ROOT  OF  1 /2 


0.2  DEG/SEC  SCAl  ED  AT  Pi/6A 


.3  DEGREES  SCALfD  AT  PI  RADIANS 


IbO  MS  WAITLIST  DT. 

100  MS  JEI  pULSr  torque  TERM  wiTH  K = .i> 
D.P,  GeNADR  FOR  INITIALIZATION  OF  THE 
TORQUE  VECTOR  RECONSTRUCTION  SWITCHES, 

INITIAL  value  FnR  WfORP. 
initial  value  poR  WF'ORqR. 

D.P,  name  FOR  Both  constants. 


48895^A 


L 

0001 

0002 

Ro003 

R0005 


0007 

0008 

0009 

0010 
0011 

R0012 

0013 

Rooia 

0016 

0017 

0018 

R0019 

R0020 

0021 

0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044 
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p-AXib  kEaciiqn  Control  5YsrE<i^  auIopilot  user'5  o<vn  page  no.  i 

16*2346  3AN<  16 

REF  7 last  467  E6  EBANK=  DT 

the  Following  t5RUPt  entry  bgsiMs  the  program  which  controls  tHe  p-axis  action  of  tHe  lfM  using  tHe  rcs  jets. 
The  nominal  hme  between  inb  -Axis  rupis  is  100  vis  in  all  non-idling  modes  of  The  dap. 


REF 

1 

16,2346 

3 36OI 

0 PAXIS 

CAF 

MS30P 

RESET  timer  immediately:  DT  i 

RbF 

3 

LAST 

^66 

16,2347 

5 4 O30 

0 

T S 

TIMES 

REF 

9 

LAST- 

16,235° 

22  016 

0 

lxch 

Bankrupt 

interrupt  Lead  tn  (continued) 

1 6 , 2 3 5 1 

0 OOO6 

1 

LA  1 tNU 

REF 

9 

LAST 

464 

16,2352 

22  012 

1 

OXCH 

QRUPT 

CHEC<  TC  see  if  dap  IS  STILL  IN  USe: 

REF  2 last  464  lb. 2353  o ^104  o TC  CHEKBITS  RETURN  IS  TO  1 + , IF  DAP  SHOULD  STAY  ON. 

WHILE  DAP  IS  ON,  SET  UP  EITHeR'  A x-almaN  FILTER  RUPT  OR  A DUMMY  FILTER  RUPT  BY  SETTING  Up  T5ADR  FROM  eRAsABLe. 

16.235A  0 0006  1 EXTEND  TsADR  IS  SET  TO  EITHER  FILTER  OR 

REF  2 last  A66  16.235^  3 1^72  0 oCA  PFIlTAdR  DUMMYFIL  IN  A Bi  INd  MANNER  SINCE 

REF  8 LAST  467  16.2350  53*001  0 OXCH  TbADR  PFILTADR  IS  SFT  UP  fLSEWHERE 

DO  P AXIS  RATE  DeRIVAIION  ANO  CONIROL  LaW. 
derive  lElTA  p. 


REF  151  LAST  467 
RbF  63  LAST  466 
REF  3 LAST  464 
REF  1 

REF  1 

REF  64  LAST  468 
REF  1 
REF  1 

R^F  4 LAST  468 

REF  23  LAST  463 
REF  83  LAST  454 

REF  1 

REF  S LAST  468 

REF  5 LAST  465 
REF  2 LAST  464 

RbF  6 LAST  468 

REF  2b  LAST  463 
REF  5 LAST  50 


16,2357 

16,236° 

16.2361 

16.2362 

16.2363 
16,236A 

16.2365 

16.2366 

16.2367 
16,237° 
lb, 2371 

16.2372 

16.2373 
16,237A 

lb  ,2375 
lb, 2376 
16,2377 
16,240° 
16,2401 
1 6 , 24°2 
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0229 

REF 

8 

LAST 

473 

16  *266^ 

0230 

REF 

39 

LAST 

473 

1 6 ♦ 2 b6  7 

0231 

REF 

1 

1 6 ♦ 2 67^ 

1 1 '466 

0 

OBEYRAPe  CCS 

PERROR 

1 2967 

0 

ICF 

+ 4 

1 3U5I 

1 

TCF 

JET5OFF 

1 2967 

0 

1 CF 

+ 2 

1 3U5I 

1 

TCF 

jetsoff 

6 7(55 

55' A62 

1 

1 

AD 

TS 

BlTl 

pratedif 

0232 

ref 

3 

LAST 

469 

16,2671 

0233 

0234 

REF 

REF- 

3 

2 

LAST 

LAST 

472 

473 

16.2672 

16.2673 

0235 

0236 

REF 

9 

LAST 

473 

1 6 , 2 67  A 
16,2675 

) 5O4I 

1 

TC 

T6J0BCHK 

> 1^76 

0 

CA 

-RATEDB 

> 1462 

0 

AD 

PRATFDIF 

) OUO6 

1 

extend 

) 3U5I 

0 

3ZMF 

JETSOFF 

0237 

REF 

3 LASf  473 

l6  * 26T9 

31 

•‘♦62 

0 

0238 

16,2677 

0 

0006 

1 

0239 

REF 

1 

16, 2700 

7 

14^,1 

0 

0240 

16,2701 

0 

OOO6 

1 

CAe  PKATEDIF 

Ext  end 

MP  1/2JTSP 

EXTEND 


02A1  REF  la 
02A2  REF  89 
02A3 

02AA  REF  1 
02A5  REF  9 
0246  REF  2 


LAST  470  16 

LASI  472  16 

16 
16 

LAST  470  16 

LAST  a70  16 


2702  7 7^53  0 

2703  30  uoi  0 

2704  0 0906  1 

2705  7 3910  1 

2709  55'910  0 

2707  55'475  1 


v|P  BIT  3 

CAE  L 

EXTEND 

NP  2b/32 

TS  TP 

TS  TOFJTCHG 


0247  REF  4 last  473 

0248  REF  3 LAST  472 

0249 

0250 


16,2  ?lO  31  •‘,62  0 
16,27U  6 1477  1 

16.2712  0 OOO6  1 

16.2713  6 2 a7  1 


CAF  PKATEDIF 

AD  -aJETLIM 

EXTEND 
3ZMF  +4 


0251 

REF 

23 

last 

457 

16*2(14 

0252 

REf 

2 

LAS  1 

470 

1 6 , 2 7 1 S 

0253 

REF 

2 

last 

470 

16,2719 

02  54 

REF 

5 

LAS  1 

470 

16*2717 

0255 

ref 

3 

LAST 

473 

16,2720 

0256 

REF 

10 

LAST 

473 

19,2721 

3 T'35 

1 

CAF 

PoSMAX 

55*461 

1 

T S 

NjET 

1 2(30 

0 

TCF 

PJETSLEC 

3 7(37 

0 

CAF 

negmax 

55 '461 

1 

TS 

NjET 

31 '910 

1 

CAE 

TP 
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IF  POSITIVE,  NOn-zERO,  STORE  POSITIVE 
P-AXIS  ROTATION 

WILL  NOT  COME  HfRE  DIRECTLY 
NEGATIVE,  nCn-ZfRO,  sTOrE  NEgATiVE 
P-AxIS  ROIATIoN.  no  NEG  zERU  PtSSIBLE 

get  ABVAL  of  rate  P-ERROR 


ABVAL  of  rate  error  scaled  At  Pt/4 
T6J0BCHK  IS  IN  FIXEd-F'iXED 


RATE  error  INSIDE  DeADBAND 
start  TJEI  COMPdTATtON 
1/2JTACC  SCALED  AT  2EXP(8)/PI 

ENOUGH  for  4 JEtS 

A CONTAINS  TJFT  SCAl  ED  AT  2EXP  ( 4 ) ( 1 9/25 ) 

TEST  WHETHER  2 oR  4 JETS  TO  gE  JSeD  bY 
COMPARING  DELTA  RATE  WITH  2 JET  LIMIT 

IF  negative,  2 lETS  ARE  ENOUGH 

POSITIVE,  NON-ZeRO.  put  POSMAX  IN  NJET 

AND  GO  Select  good  policy 

2 JETS,  put  NFGMAX  in  NJET , 


DOUBLE  TP 


A8895AA 

YJL 

SYSTEM  FOR  AGC 

: NEW  PROORiIM  SHePATIN  3Y 

eyles 

L 

K-AAi:>  KEA’'-iior4  auiu^'ilui 

0257 

16.2722  6 OUOO  1 

DOUBLE 

0258 

Dn?*^Q 

REF 

1 1 LAST  473 

16,2723  55'R10  0 

T 5 

TP 

R0260 

check  Rate  command 

ON  time  A5(\im5T  Mif.IMUM 

IMPULSE 

0261 

REF 

3 last  A73 

16,272A  551H75  1 

TS 

TOFJTCHG 

0262 

REF 

1 

16,2725  6 3511  1 

AD 

-T JMINT6 

0263 

it  nZ  12^  0 uOub  L 

tX 1 hND 

0264 

R0265 

REF 

10  LAST  A73 

16,2727  6 3O5I  0 

3ZMF 

JETSOFF 

DEC  1^?,  I966  (MAIN)  PAGE  A7A 
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AND  GO  CHECK  MINIMUM  IMPULSE 


AS  TP.  TEST  JfT  TIME,  IS  IT  GREATER  OK 
LESS  THAN  A MINtMUM  IMPULSE 


L 

P0266 

R0267 

R0268 


R0270 

R0271 

R0273 

R0275 

R0277 

R0279 

R0281 

R0283 

R0285 

R0287 

R0289 

R0291 

R0292 

R029a 

R0296 

R0297 

R0299 

R0301 

R0303 

R0305 

R0307 

R0308 

R0309 

R0310 

R03U 


R0312 

R0313 

R03U 

R0315 

R0316 


YJL  Sy51[;M  for  AGC:  New  PROG9AV1  SHePAIIN  by  eYLeS  Dec  1966  (MAIN)  page  A75 

P-AxiG  KlAcIION  control  Sy51E"1  AuiOPItOT  U&ER'S  OwN  pAGF  NO.  8 E6 

PROGRAM  name:  pjetslec  datf:  December  9*  i966 

modification  0 BY  JOHN  BL!SS{ADA(MP  ASSOCIATES)  ROOM  7-286,  Xi83 

LDG  SeCiIuN;  P-AXIS  REACTION  EONf'^OL  SYSTEM  AUTOPILOT  — FIRST  PUT  INTO  SUNBURST ( I I I ) RfVIStON  ^9 


FJNCTlOf.AL  description: 

THE  OBJECT  OF  PJETSLlC  ^5  lO  ChooSe  THE  BeSt  JET  POLICY  WHOSE  NECESSARY  JltS  HAVe  Nni  BpEN  ReCORDeD  AS 
failed  in  the  CH6MA5<.  REGISIeh,  I HE  CONDITIONS  oN  SELECTION  ARE  THE  NUMBER  OF  JEIS  ReQiiE5TED(2  OR  A),  iHE 
sense  of  P-AXlS  ROTATION  ReO JI ReO I +/_) , AND  ALTERNATING  USE  OF  DIAGONAL  FORCe-COUPLeD  PaIRS  OF  JeTS. 

PjElSLEC  FIRST  READS  CHANME^  ^ TO  SEE  IF  THe  JETS  ARe  CURRENTLY  FIRING.  IF  THeY  ARe,  THE  TlMb  OF  JpT 
SELECTIC.N  COMPUl  ArlON(S  MS.)  IS  SUBTRACTED  rROM  TOfUTCHc  AND  CONTROL  GOES  DIRECTLY  TO  TfST  THE  SENSE  Op"  P-AXiS 

rotation.  tHe  diagonal  fcrce-coupled  PAIRS  OF  jets  are  Nut  switched.  Because  it  would  fe  inefficient  to  turn 

ONE  OFF  AND  THE  OTHER  ON  )N  RAPID  SUCCESSION.  IF  THe  JETS  ARe  OFF,  tHe  MINIMUM  IMPULSE  DeLaY  tIMe  IS  ADDED  TO 

tofjtchc-  and  the  diagonal  jlts  arl  switched  ro  COMPLY  with  the  alternation  Condition. 

IF  ihb  F-axIS  is  +,  RtL  : 7,  IF  -,  REL  = 0,.  NjET  IS  TESTED  NExT;  IF  POSMAx,  A jFTS  DESIRED,  REL  = ReL  + 6, 
CTR  = 6.  IF  NEGMAX,  2 JETS  OfSlRLU,  REL  = ReL  + 5,  CtR  = S.  IF  A JETS  DeSIReD,  GO  TO  POLICY  TLSTING  L lOP 

without  Testing  to  see  which  uiagunal  pair  is  preferred  this  time. 

IF  2 JETS  ARE  DeSIRED,  See  aHETHeR  NO.  2 PAIR  IS  PREFERRED.  IF  IT  IS,  TEST  IT  FIRSt  ANO  USE  IT  IF  IT'S  OK. 
IF  IT  Has  Failed,  go  lO  the  test  loop  to  test  the  POLICIES  IN  order.  if  no.  1 POLICY  IS  preferred*  go  directly 
TO  the  test  loop. 

the  test  loop  uses  REL  to  PIClK  up  the  NeXT  policy  in  PPOLTABL  AND  CTR  TO  KEEP  TRACK  OF  THe  NUMBER  OF 
P0LIClE.S(l-7)  tested,  WHeN  A GOOD  POLICY  IS  FOUNO,  IT  IS  WRITTEN  INTO  CHANNEL  6,  OTHERWISE  THE  NEXT  POLICY  IS 
tried.  if  \0  GOOD  POLlClfS  ARE  FOUND,  COmTROL  GoeS  TO  ABoRtJET  TO  TURN  OFF  tHe  JETS  AND  tHe  DAP, 

WHEI-.  A GOOD  POLICY  IS  FOOviO,  WRij^p  i c,  CALLED  TO  wRiTE  THe  POLICY  INTO  CHANNEL  6*  +/-2/A  IS  STOReD  IN 
NO.PJETb*  and  BIT9  Is  PUT  INTO  JTSATChiQ  TO  CAUSE  THb  P-AXIS  JETs  TO  BE  TURNED  OFF  ON  Thf  NEXT  T6RUPT.  CONTROL 
then  iRANSFERS  TO  fORKVEC. 

CALLING  Sequences:  none  subroutines  called: 

writer  - writes  CIA) * the 

SELECTED  JET  POLICY,  INTO 
CHANNEL  6 


normal  exit  Modes: 


alarm  or  abort  exit  Modes: 


TCF  TORKVEC  extend 

DCA  ABORTADR 
DTCB 

EBANKs  JTSONNOW 


48895^A 


L 


R0317 

R0318 

R0319 

R0320 

R0321 

R0322 

R0323 

R0324 

R0325 

R0326 

R03273 

R0328 

R0329 

R0330 

R0331 

R0332 

R0333 

R033‘» 

R033-^3 

R0335 

R0336 

R0337 

R0338 


R0339 

R0340 

R03A1 

R03A2 

0343 

0344 

0345 

0346 

0347 

0348 

0349 

0350 

0351 
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ABORTADR  2CAOR  ABORTJET 

THIS  sequence  is  FOLLOWED 
IF  NONE  OF  THE  POLICIES  IS 
without  jet  FAILURES 


erasabll  initialization  rfqOireo 

TP  = ) time  PfRIOO  of  jet  firing 

TOFjTCHO  = ) AT  Tb  SCAlINO,  625  MICROSECONOS  PeR  BIt 

NJET  5 37777*  4000D,  DEFENDING  ON  WHETHER  4 OR  E JETS  DESIRED 

TJETSIG'  = +/-00001,  DE^ENOING  ON  DIsIRED  SeNSE  OF  P-AXIS  ROTATION 

CH6FASK  = bits  i-8  HOICATL  WHETHER  CORRESPONDING  JETS  HAVE  FAILED  - BIT  ON  IS  FaILURe,  BIT  OFF  IS  OK, 
0APe00LS,BlT5 (AORBSYSt)  =0/1,  DEPENDING  UPON  WHetHER  DIAGONAL  1 OR  DIAGONAL  2 WAS  PreFeRReD  DURING  1 AST  PASS 


OJTPJT : 


CHA.-.NcL  6 - CONTAIfJS  SeLeOTED  jET  POLICY  UNLeSS  NONE  IS  AVAILABLE 

NO.PJETs  - +/-2/4,  Sense  of  f-axis  rotation  and  number  of  jets  used 

BY  POLICY  ACtJALLY  SELECTED (MAY  NOT  = 4 IF  4 JETS  RE- 
QUESTED BUT  ONE  OR  MORE  JETS  FAILED) 

TOFJTCHG  - modified  BY  MOOMP  OR  -14TOMIN  DEPENDING  ON  WHETHER  THE 
JETS  ftEKE  ON  /vHEN  PJETSLEC  WAS  CALLED 

DAPBOOLS,  BITS (AORBSYST ) = 1/0,  IF  THe  INPUT  VALUf  WAS  o/l,  UNLESS  JETS  WERE  ON  WHea.  PJeTSLEC  STARTfD. 

JTSATCHG  - = bit?,  UNLESS  NO  POLICIES  AVAILABLE 

NJET  , TP,  TJETSIGN,  AND  CH6MABK  NOT  CHANGED  BY  PJeTSLeC 

REL  AiTD  CTR  ARE  LEFT  AT  HEIR  LAST  VALUES  WHeN  THe  GOOD  POLICY  WAS 
FOUcD 


debris: 

REL  = HEMPS 
CTR  = iTEMPb 
A,L,Q 


16,2730  0 0006  1 PJETSLEC  EXTEND 


lb, 2 /3I  00  006  1 read 

16,273Z  0 0O06  1 EXTEND 

16,2/33  1 2^37  1 3ZF 

rEF  1 lb,273A  3 3P76  0 CAF 

REF  4 LAST  474  16,273S  27*^75  1 ADS 

REF  1 16,2736  1 2746  1 TCF 


BEGIN  JET  SELECT  ROUTINE  BY  SEEING  WHE- 

6 Ther  thE  jet 5 Are  Turned  onighA'inel  6 

NON-ZERO) 

+ ^ IF  THE  JETS  AREIm'T  ON,  GET  MINlJP  DELAY 

MCOMPT  contains  -TiMF  OF  JFT  SELECT  iOn 

TuFjTCHG  add  IT  TO  TOFjTCHGttO  REDUCE  jEr  FIRING) 

TEStSIGN  since  JETS  ALREiiDY  ON,  DONT  SWITCH  DIAGS 


REF  1 16,2737  3 3P77  1 CAF  Ia-TJMIN  PICK  UP  MINIMUM  IMPULSE  DELAY  TIME 

ref  5 last  476  16,2/40  27'475  1 Aps  TQFJTChG  ANq  Add  TO  TOFJTCfiGiTO  LENGThEN  FIRING) 
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0352 

0353 
035A 

0355 

0356 

0357 

0358 

0359 

0360 

0361 

0362 

0363 
036A 


0365 

0366 

0367 

0368 

0369 

0370 

0371 


0372 

0373 
037A 

0375 

0376 

0377 

0378 

0379 

0380 

0381 

0382 

0383 
038A 

0385 

0386 

0387 

0388 

0389 

0390 

0391 

0392 

0393 


P-A\18  KeaCiIoN  control  BYSTe-^'  auiofilot 


USER'S  OwN  PAGE  NO.  10 


E6 


REF  1 l6,27Al  3 7^51  0 CAF 

REF  31  LAST  A72  16,27A2  22  O77  1 (.XCH 

16,27A3  0 0006  1 EXTEND 

REF  90  LAS!  a73  16,27AA  OS  OOl  0 RXOR 

REF  32  LAST  A77  16,27A5  SA  U77  0 TS 


A0RB5YST  IF  JE I S NOT  ON  NOW,  START  BY 

DAPBOOLS  switching  BITS  IN  DaPBOOLS. 

B1T5  ON  - DIAGONAL  JETS  IS*  7 AnD  8*  16 
L 

DAPBOOLS  BITS  OFF  - DIAGONAL  JETS  , 12  «ND  3*  U 


REF  155  LAST  A72 
REF  1 


16*27A6  3 7761  0 TEBTSIGN  CAF  ZERO 

16,27A7  59  065  0 Ts  REL 


COME  here  directly  iF  JETS  ALREADY  ON 

initialize  Addressing  inqex  at  /ero 


REF 

3 

LAST 

473 

16,2750 

1 1 *435 

0 

REF 

10 

LASl 

424 

16,2751 

3 7? 57 

0 

REF 

2 

LASl 

477 

16,2752 

2 5 OqS 

0 

CCS  TJETSIGN  TEST  DIRECTION  OF  PRAXIS  ROTATI  )N(ROLL) 

CAF  Seven  if  positive,  get  policy  from  lo,;er  seven 

ADS  REL  locations  OF  TArLE 


ref  4 LAST  473 
REF  12  LAST  419 
REf  1 

REF  11  LAST  400 
REF  3 LAST  477 
REF  1 

REF  33  LAST  477 
REF  2 LAST  477 
REF  234  LAST  473 
REF  1 


16,2753  11*461  1 CCS  NJET  SEE  IF  4-JET  POl ICY  IS  REQUESTED 

l6*275A  3 6^76  1 CAF  SIX  IT  IS,  PICK  UP  6 FOR  REL  AND  CTR 

16.2755  1 2776  1 TCF  FlLCOuNT  AND  GO  STORE  THEM 

16.2756  3 7^60  1 CAF  FIVE  2 JETS  ONLY  REQi.ESTeD,  PICK  UP  5,  STORE 

16,275?  25  065  0 AOS  REL  IN  REL  AND  CTR 

16,2  760  54  066  0 I 5 CTR 

16.2761  4 OU77  0 CS  DaPBOOLS  CHECK  BIT5  IN  DaPBOOLS  TO  SEE  WHICH  PAIR 

16.2762  7 7?51  1 MASK  AORBSYST  OF  DIAGONAL  JeTS  SHnULD  BE  USED  NEXT 

16.2763  10  000  0 CCS  A 

16.2764  1 3O0O  0 TCF  TESTPOL  FIRST  PAIR,  SO  GO  TO  TESTING  LOOP  NOW 


REF 

REF 

4 

5 

LAST 

LAST 

477 

4 77 

16.2765 

16.2766 

16.2767 

0 0O06 
25  065 
5D  065 

1 

0 

1 

REF 

1 

16,2770 

3 3O33 

1 

REF 

2 

LASl 

465 

l6,277l 

V 1P03 

1 

16,2772 

0 OOO6 

1 

REF 

1 

16,2773 

1 3O14 

0 

EXTEND  SECOND  PAIR,  DECREMENT  REL  TO  4 OR  11, 

DIM  REL 

INDEX  REL  PICK  UP  SECOND  nIAGnNAL  PAIR  FROM  POLICY 

CAF  PPOLTABL 

MASK  CH6MASK  TABLE  AND  COMPARE  WITH  FAILURE  BITS 

EXTEND 

3ZF  WRITEPOL  THE  JETS  ARE  GOOD,  GO  WRITE  IN  CHANNEL 


REF  6 last  477 
REf  2 last  477 


16*2774  2i,  0^5  j JNCR  ReL  THE  JET(S)  HAVE  FAILED  FOR  THIS  POLICY, 

16,2775  1 3OOO  0 TCF  TESTpOL  RESTORE  REL  AND  DO  TEST  pOLIeY  LOOP 


REF  7 last  477  16,2776  25  065  0 FlLCOUNl  ADS  ReL 

REF  2 LAST  477  16,2777  54  066  0 TS  CTR 


COME  HERE  TO  SET  RLL  AND  CTR  FOR  4-JET 
POLICY  REQUESTED.  ALSO,  SET  CTR  -1  HERE 


REF 

8 

LASl 

^77 

16, 3000 

50  065 

1 TESTPOL 

REf 

REF 

REF 

Z 

3 

last 

LAST 

477 

477 

1 6 .300 1 

16.3002 

16.3003 

3 3O33 

7 1503 
0 0006 

1 

1 

1 

2 

LAST 

477 

16,3004 

1 3OI4 

0 

INDEX  ReL 
CAf  PPOlTABL 

MASK  CH6MASK 
EXTEND 

3ZF  WRITEPOL 


PICK  UP  NEXT  POl ICY  AS  LOCATED  RELATIVE 
TO  PPOLTABL  BY  cEl* 

COMPARE  WITH  FAlLURt  BUS 

the  JETS  are  GOr.D,  WRITE  IN  THE  CHANNEL 


16,3005  0 OOO6  1 EXTEND 

REf  9 LASI  477  lo,3006  25  065  0 DIM 

REF  3 LASl  477  16,3007  ID  066  0 CCS 

REF  3 last  477  16,30lO  1 2?77  0 TCF 

16,3011  0 OOO6  1 EXTEND 

RcF  1 16,3012  i 3O32  0 DCA 


THE  JET(S)  HAVE  FAIIED  FOR  THIS  POLICY 
REL  DECREMENT  THE  Ii\.DEX, 

ctr  see  if  all  policies  have  been  tested. 

TESTPOL  -1  CTR  NUT  ZeRO,  A s CtR  -1,  DO  LOOP  AGAIN 

Ctr  zero,  ALL  Ai  lowable  Policies  failed 
ABORTADR  pick  up  2CADR  OF  ABqRTJET 
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0394 

16,3013 

52  006 

0 

OTCB 

AND  GO  THERE 

0395 

REE 

10 

LAST 

4 77 

16,3014 

50  065 

1 

WRITEPOL 

index 

rel 

A GOOD  POLICY  Is  FOUND,  PICK  It  UP  AND 

0396 

REF 

3 

LAST 

477 

16,3015 

3 3O33 

1 

CAF 

PPOLTABL 

0397 

REF 

1 

16,3016 

0 bO  1 2 

1 

T C 

writer 

Go  WRITE  IT  IN  CHANNEL  6 AND  RETURN 

0398 

REF 

235 

LAST 

477 

16,3017 

10  000 

0 

CCS 

A 

the  policy  is  Still  in  a,  test  mumber  of 

0399 

REF 

65 

LAST 

444 

16,3020 

3 T (54 

0 

CAF 

T WO 

0400 

16,3021 

1 3O23 

1 

TCF 

+ 2 

JETS(bITl5  ON  FnR  4-JET  POLICIES)  AND 

0401 

REF 

15 

LAST 

4 26 

16,3022 

3 T (53 

1 

CAF 

FOUR 

0402 

16,3023 

0 OOO6 

1 

EXTEND 

MULTIPLY  BY  T JETS  I GN ( + /-I ) TO  GET  +/-2*4 

0403 

REF 

4 

LAST 

477 

16,3024 

7 1435 

0 

NP 

TJETSIGN 

0404 

REF 

2 

last 

469 

16,3025 

23'651 

1 

;.XCH 

NO.PJETS 

IN  L,  WHICH  IS  tHeN  STORED  IN  N.'j.PJETS 

0405 

R6E 

10 

LAST 

472 

16,3026 

3 7(45 

0 

CAF 

BiT9 

turn  OFF  P-AxiS  JETs  AFTEr  T6rUPT 

0406 

REF 

1 

16,302  ( 

55*472 

0 

TS 

J 1 SATCHG 

0407 

REF 

1 

16,3030 

1 3407 

0 

ICF 

turkvec 

RECONSTRUCT  P TOROUk  VECTOR,  THEN  JTLST. 

0408 

REF 

1 

t6 

ebank= 

Jl  SONNOW 

WOULD  YOU  Believe*  ebank  s 6 

0409 

I6,303l 

02243 

0 

A30RTADR 

2CADR 

AbORTjET 

where  to  (jO  when  All  jet  policies  fail 

C0409 

REF 

1 

16,3032 

40006 

0 

ROAIO  

ROAI2  TABLE  Of  P-EXI5  JET  POLICIe^  IS  Ai>SEM8LED  HERE  To  Be  AODReSSeD  BY  RELATIVE  INDeX  PROM  BASe  ADDReSS  PPOLtABLe 


AOAIA 


channel  6 BITS  INDEX 


JETS  ON 


0A15 

0A16 

0A17 

0418 

0419 

0420 

0421 

0422 

0423 

0424 

0425 

0426 

0427 

0428 

R0429 


16*3033 

00202 

1 

PPOLTABL  octal 

00202 

16,3034 

00210 

1 

octal 

00210 

16,3035 

00050 

1 

OCTAL 

00050 

16,3035 

OOO42 

1 

OCTAL 

00042 

16,3037 

00290 

1 

OCTAL 

00240 

16,3040 

00012 

1 

OCTAL 

OOO12 

1 6 , 3 0 4 1 

40252 

0 

oc  r AL 

40252 

REL=0  -P  NON-KORCE  COUPLE  4-  16*  3 

REL=1  -P  NON-FORcE  cOUPLE  3-  111  16 

REL=2  -P  NON-FORCE  COUPLE  2-  8,  11 

REL=3  -P  N0N„F0RCE  COUPLE  1-  3*  8 

REL=4  number  Two  force  couple-  8,  16 
REL=5  -P  2-JfT  force  COUPlE-  3,  11 

REL=6  -P  4-JfT  POLICY-  3,  8,  11»  16 


16.3042  DOiOl  1 OCTAL  00101  REL  = 7 '•P  NON-FORcE  CUUPLE  4-  4 

16.3043  00021  1 OCTAL  00021  REL=8D  +P  NON.fORCE  COupLE  3-  12,  7 


lb, 3044  OOU24  1 

16,3043  00104  1 

16.3046  00005  1 

16.3047  00120  1 

16,3050  40125  0 


OCTAL  00024  REL=9D 

OCTAL  00104  REL=10D 

OCTAL  00005  REL=11D 

OCTAL  00120  REL=12D 

OCTAL  40125  REL=13D 


+P  NON-FORCE  COUPLE  2-  15*  12 
+P  NON-FORCE  COUPLE  1-  4,  15 
NUMBER  TWO  FORCE  COUPLE-  15*  7 
+ P 2-JF- T FORCE  COUPLE-  4*  12 
+P  4-JPT  POLICY-  4*  15,  12,  7 


0431 

0432 

REF- 

REF 

156 

12 

LAST 

LASi 

477 

474 

16.3051 

16.3052 

0433 

0434 

REF 

REF 

6 

2 

LAST 

LAST 

476 

478 

16 ,305^ 
16,305^ 

3 7(61  0 JETSOFP  CAF  ZERO 

55*610  0 TS  TP 

55*475  1 TS  TOPJTCHG 

0 6012  1 TC  writer 


TURN  ON  P JETS  LjSINF,  T6JOB  SUBROUTINE 


48895^A  YJL  SYSTEM  f-OR  AGC:  NItW  PROGRAM  SHbPATIN  3Y  tYLp.S 


L 

0435 

R0436 

R0437 

0438 

0439 

0440 

0441 

0442 

0443 

0444 

0445 

0446 
R0447 
R0448 

0449 

0450 

0451 

0452 

0453 

0454 

0455 

0456 

0457 

0458 

0459 

0460 

0461 

0462 

0463 

0464 

0465 

0466 

0467 

0468 

0469 

0470 

0471 

0472 

0473 

04^4 

0475 


P-AxI5  reaction  CONjROl  SySTcvi  AljIOPIlOT 


REF  19  LAST  469  lb, 3055  1 gf-gl  0 TCF  RESUME 

P-AXIS  URbENCY  FUNCTION  CaLCJ.ATIUN 


(NOTE  - 

- MI3 

= 1 

REF 

15 

LAST 

471 

REF 

4 

LAST 

471 

REF 

14 

La  S i 

469 

REF 

4 

LAS] 

45 

REF 

31 

Last 

471 

REF 

7 

LAST 

471 

REF 

5 

LAST 

479 

REF 

3 

LAST 

4 73 

r£F 

34 

LAST 

477 

REF 

1 

REF 

5 

LAST 

455 

REF 

1 4 

LAST 

473 

REF 

2 

LAST 

45 

REF 

1 

REF 

6 

LAST 

479 

REF 

3 

LAST 

479 

REF 

1 

REF 

1 

REF 

17 

LAST 

181 

REF 

4 

LAST 

479 

K-t- 

i 

7 

LAST 

479 

D cr  cr 

K « r 

2 

LAS  1 

479 

REF 

1 

REF 

18 

LAST 

h79 

IDeN  I KALLY 

16.3056 

16.3057 

16.3060 

16.3061 
I6,306li 
16,3063 
16*306“+ 

16.3065 

16.3066 


16,306 ( 

16.3070 

16.3071 
16,307<^ 
16,3073 
16,307A 

16.3075 

16.3076 

16,307  ! 

16.3100 

16.3101 

16.3102 

16.3103 

16.3104 

16*3105 

16.3106 

16.3107 
16*31  1<3 

16.3111 

16.3112 

16.3113 

16,311A 

16.3115 

16.3116 

16.3117 

lb*3120 

16,3121 


iM5cits  null  multiplication.) 


3 0U33  1 PJRGENCY  CA  CUUY 

0 0006  1 EXTEND 

20  767  0 MSU  CUUYD 

0 0O06  1 EXTEND 

7 1404  1 MP  Mil 

57'^11  1 XCH  E 

3 OO32  0 CA  CDUX 

0 0006  1 extend 

20  766  1 M5U  CDUXD 

EXT  END 
MP  M13 

27'Rll  0 ADS  E 


55'A66  0 TS  PeRROR 

30  077  1 cAE  DAPBOOLS 

0 0006  1 EXTEND 

6 3I45  1 3ZMF  NUBACKUP 

4 0774  1 CS  OMEGAPD 

6 1416  0 AD  OMEGAP 

55*'+07  1 IS  EDOT 


3 7735  1 CAP  SLOPEMP 

0 0006  1 EXTEND 

7 1 All  0 MP  E 

6 1407  0 AD  EDOT 

0 OOO6  1 EXTEND 

6 3I3I  1 3ZMF  PLUSDP 

3 3I43  1 CAP  NEGDP 


54  063  0 GCOMPER  TS  ITEMP3 

31'407  0 CAE  EDOT 

0 0OO6  1 EXTEND 

7 OOOO  0 SQUARE 

0 OOO6  1 EXTEND 

7 3I44  1 MP  1/2AP 


6 1411  1 ad  E 

6 3I43  1 AD  NtGDP 

0 0006  1 EXTEND 

6 3I37  1 3ZMF  UCOASr 


30  0(,3  1 CAE  ITEMP3 

0 0O06  1 EXTEND 


IDEC  13,  1966  (MAIN)  PAGE  479 


user *5  OnN  page  no.  12 


E6 


P-ERROR  CALCULATION 

CDU  VALUE  - ANGl  E DESIRED  (Y-AXiS) 

(CDUY_CDUYD)Mu  SCAl  ED  AT  PI  RAJIANS 
SAVE  FIRST  term  (OF  TWO) 

THIRD  COMPONENT 

CDU  value  - ANGIE  DESIRED  (X-AXlS) 

SAVE  SUM  UF  TFRn.S,  NO  OVERFLOW  EVR 
SAVE  P ERROR  FOP  DISPLAY 
B1T15  = 0 for  sps  back-up 

DAPBOOLS  IS  NEVfR  +0. 

THIS  IS  THE  P-AxIS  RCS  BACK-UP  CODING 


488954A  yJL  SY5IEM  FOR  AgC;  NEw  PROgRAvi  SHePATIM  3Y  EYLES 


L P-AXIS  KEACiioN  CONTROL  SySTe^,  AUiOPiLOl 


0A76  REF  1 

0A77  REF  1 

0A78 

0A79 

0A80  REF  20  LAST  A79 

0481  REF  1 

0482  REF  1 


16,3122 

5 

3F27 

0 

3ZMF 

negpjet 

16,3123 

3 

3I42 

0 

CAF 

POSP 

16,3124 

0 

OOO6 

1 

JETPON 

EXTEND 

16,3126 

01 

006 

0 

WR  I T E 

6 

16,3126 

1 

5751 

0 

TCF 

RESUME 

NEGPJET 

1 6 » 3 1 2 ' 

3 

3^41 

0 

CAF 

NEGP 

16,3130 

1 

3^24 

1 

TCF 

JETPON 

0483  REF  8 LAST  479 

0484  REp  9 last  480 

0485  REF  5 LAST  479 

0486  REF  6 LAST  480 

0487  REF  3 LAST  479 

0488  REF  1 

0489  REF  157  LAST  478 

0490  REF  2 LAST  480 

0491 

0492 

0493 

0494  REF  24  LASl  473 

0495 

0496  REF  28  LAST  454 

0497  REF  1 

0498  REF  6 LAST  479 


16 

16 

16 

16 

16 

16 

16 

16 

16 

lb 

16 


16.3144 

16.3145 


16,3146 

16*3147 


4 1411  0 
57*911  1 
4 1407  1 
57*407  0 
4 3^43  0 
1 3IO6  1 
3 7Y61  0 

1 3F24  1 
00120  1 
00440  1 
77644  1 
7735 
06143  1 

3 7140  0 
55*110  1 

4 0774  1 


PLUSLP 


UCOAST 

NEGP 

POSP 

NEGDP 

SLOPEMP 

1/2AP 

NDBACKUP 


CS  E 

XCH  E 

ES  LOOT 

XCH  EDOT 

CS  NEGDP 

fCF  GCOMPER 

CAF  ZERO 

TCF  JETPON 

OCT  00120 

OCT  00240 

DEC  -0,00555 

equals  POSMAX 
OEC  0.217 

CAF  B1T14 

TS  SIGNTAG 

CS  OMEGAPD 


0499  REF  15 

0500  REF  236 

0501  REF  1 

0502  REF  1 

0503  REF  1 

0504  REF  2 

0505  REF  7 

0506  REF  29 

0507  REk  2 

0508  REF  4 

0509  REF  10 

0510  REF  8 

0511  REF  40 

0512 

0513  REF  19 

0514 

0515  REF  3 

0516  REF  25 

0517  REF  4 

0518  REF  91 

0519  REF  9 

0520 

0521  REF  10 


LAST  479  16 

LASl  478  16 

16 
16 
16 

LAST  480  16 

LAST  480  16 

LAST  480  16 

last  480  16 

last  479  16 

LAST  480  16 

LAST  480  16 

LAST  473  16 

lb 

LAST  473  16 

1 6 

LAST  480  16 

LAST  480  16 

LAST  480  16 

LAST  477  16 

LAST  480  16 

1 6 

LAST  480  16 


3150  6 1416  0 

3151  10  000  0 

3152  1 3164  0 

3153  1 3174  1 

3154  1 3I56  1 

3155  1 3174  1 

3156  55*407  1 

3157  4 7740  1 

3160  55*  710  1 

3161  4 1466  0 

3162  55*411  0 

3163  31*407  0 

3164  6 7755  1 

3166  0 0006  1 

3166  7 7753  0 

3167  0 0006  1 

317^1  1 3I73  0 

3171  3 7735  1 

3172  1 3174  1 

3173  30  OOl  0 

3174  55*407  1 

3175  0 0006  1 

3176  7 1407  1 


AD  OMEGAP 

CCS  A 

TCF  SCALEUOT 

TCF  PTJETLAW 

TCF  REFLECT 

TCF  PTJETLAW 

REFLECT  TS  EDOT 

CS  BiTl4 

TS  SIGNTAG 

CS  PERROR 

TS  E 

CAE  EDOT 

SCALEDOT  AD  BlTl 

EXTEND 
MP  B1T3 

EXTEND 

3ZF  PTJETLAW  -1 

CAF  POSMAX 

TCF  PTJETLAW 

CAE  L 

PTJETLAW  TS  EDOT 

EXTEND 
MP  EDOT 


0522  REF  3 LAST  45  16,3177  55*412  0 


TS  ED0T(2) 


DEC  13,  1966  (MAIN)  PAqE  480 
USeR*S  O^N  PAGp  NO.  13  E6 


indicates  edot  dositive  FOR  time  being 


INDICATES  EDOT  REALLY  NEGATIVE 


488954A  YJL  SYSigM  FOR  AGC : NEW  PROGRAM  SHePATIN  3Y  eYLeS 


L P-AJ^IS  REACTION  CoNTRoL  SYSTE'I-  AUlQPILor 


0523 

REF 

1 

16 

0 524 

REF 

5 

LAST 

478 

1 6 

0525 

REF 

6 

LAST 

473 

16 

0526 

ref 

5 

LAST 

477 

16 

0527 

REF 

4 

LAST 

480 

1 6 

0528 

16 

0529 

REF 

2 

LAST 

473 

16 

0530 

lo 

3200  3 ^lb^  1 CAF 

3201  55'‘*35  0 T5 

3202  3 7^37  o CAF 

3203  1 TS 

320A  31'A12  1 CAE 

3205  0 0006  1 EXTEND 

3206  7 0 'IP 

3207  0 0006  1 EXTEND 


0531 

REF 

30 

LAST 

480 

0532 

REF 

1 1 

LAST 

4B0 

0533 

0534 

REF 

5 

LAST 

459 

O535 

REF 

1 

0536 

0537 

REF 

1 

0538 

REF 

I 1 

LAST 

480 

0539 

0540 

REf 

3 

lasi 

481 

0541 

RoF 

1 

0542 

0543 

REF 

24 

LAST 

454 

0544 

0545 

REF 

1 

0546 

REF 

1 

0547 

REF 

2 

LAST 

481 

0548 

0549 

0550 

REF- 

31 

LAST 

481 

0551 

REF 

1 

0552 

REF- 

2 

LAST 

481 

0553 

REF 

3 

LAST 

458 

16 

lo 

16 

lo 

16 

16 

16 

16 

16 

l6 

16 

16 

16 

16 

16 

lo 

16 

16 

16 

16 

16 

16 

16 


3210 

3211 

3212 

3213 
32l‘* 

3215 

3216 

321  f 

3220 

3221 

3222 

3223 
322A 

3225 

3226 

322  I 

3230 

3231 

3232 

3233 
323^ 

3235 

3236 


7 7TA0  1 

6 mi  1 

0 0O06  1 
61  'RIS  0 
55'A45  1 
0 0006  1 

6 3252  1 
31'‘+07  0 
0 0006  1 

7 lA<tl  0 
55*512  1 
A OOOO  0 
6 7TA3  0 
0 0006  1 
6 3247  0 

A 3575  1 
6 1512  0 
0 0006  1 
6 3235  0 

3 7TAO  0 

1 3375  1 

A 1AA5  1 
6 1626  1 


MAXPT JET 


VIP 

AD 

EXTEND 

SU 

TS 

Extend 

32MF 

CAE 

extend 

'^p 

TS 

COM 

AD 

extend 

3ZMF 

cs 

AD 

EXTEND 

3ZMF 

CAF 

TCF 

CS 

AD 


055A 

0555  REF 

0556  REF 

0557  REF 

0558 

0559  REF 

0560  KEF 

0561  REF 

0562  REF 

0563  REF 
056A  REF 

0565  REf 

0566 

0567  REF 

0568  REF 

0569  REF 

0570  REF 

0571 

0572 


1 

3 LAST  A81 
1 

1 

1 

1 

26  LAST  480 
6 LAST  481 
1 

5 last  481 
1 

12  LAST  481 

6 LAST  481 

4 LAST  458 


3237 

3240 

3241 

3242 

3243 
324A 

3245 

3246 

3247 

3250 

3251 

3252 

3253 
325A 

3255 

3256 

325  f 

3260 

3261 


0 OOO6  1 
6 3302  0 
31*512  0 
6 3567  0 
0 0006  1 
6 3364  0 

6 3571  1 

1 3344  0 

3 7T35  1 
55'‘*6l  1 

1 3233  1 

31*412  1 
0 OOO6  1 

7 2336  1 
6 lAll  1 
6 1^15  0 
6 1625  1 
0 0O06  1 
6 3263  0 


MJLTI JET 
5,6,7»8 


EXTEND 

3ZMF 

CAE 

AD 

extend 

3ZMF 

AD 

TCF 

CAF 

TS 

TCF 

CAE 

EXTEND 

v|p 

AD 

AD 

AD 

EXTEND 

3ZMF 


NEGONE 
TJETSIGN 
NtGMAX 
NjET 
EUOT  (2) 

1/2JTSP 


B1T14 

E 

DB 

FCTl 

5 ♦ 6 » 7 » 8 
EDOT 

1/2JTSP 

TERMA 

BITll 

MULTIJET 

♦1.5CSP 

TERMA 

+ 3 

BIT14 

FINDSIGN 

FLTI 

MINIMPDB 


PMBR 

TERMA 

-35AT16 

ZUNEA 

3b.7ATl6 

SCALTJET 

PUSMAX 

NjET 

MAXPTJET 

EuOT(2) 

.5ACCMIN 

E 

DB 

DBMINIMP 

+ 2 


Dec  13,  1966  (MAIN)  PAGe  481 


USER *5  OWN  PaGF  NO*  lA  E6 


INDICATES  2 JETs  ONlY  FOR  TImE  BEINg 


ISECOND  SCALED  AT  l6  SECONDS 
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dec  13,  1966  (MAIN)  PAGE  A8<i 


L P-AXIS  reaction  CONTROL  SysTeM:  AUIqPILoI 


0573  REF 
0579  REF 

0575  REF 

0576 

0577  REF 

0578  REF 

0579  REF 

0580  REF 

0581  REF 

0582 

0583  REF 

0589  REF 

0585  REF 

0586  REf 

0587  REF 

0588  REF 
0569  REF 

0590  REF 

0591 

0592  REF 

0593  REF 
0599  REF 

0595 

0596  REF 

0597  REF 

0598 

0599  REF 

0600  REF 

0601 

0602  REf 

0603 

0609  REF 

0605 

0606  REF 

0607  REF 

0608  REF 

0609  REf 

0610 
0611 

0612  REF 

0613 

0619  REF 

0615  REF 

0616  REF 

0617 

0618  REF 

0619  REF 

0620  REF 

0621  REF 

0622  REF 


11  LAST  979 
1 

12  LAST  981 
1 

12  LAST  982 
91  LAST  980 

6 LAST  981 

13  LAST  982 

9 LAST  981 
9 LAST  981 
3 LAST  981 
13  last  981 

19  LAST  982 
9 LAST  981 
9 LAST  982 
5 LAST  982 

32  LAST  981 
2 LAST  981 
1 

1 

5 LAST  982 
1 

6 LAST  982 

2 last  982 

6 LASl  982 

f LAST  982 
1 

2 LASl  981 
5 last  982 


2 Last  982 

2 LAST  981 
1 

6 LASl  982 
1 

9 LAST  973 

3 LAST  982 
1 

7 LAST  982 


16 

16 

16 

16 

16 

16 

16 

16 

16 

16 

16 

16 

16 

16 


3262 

3263 
326A 

3265 

3266 

3267 

327D 

3271 

3272 

3273 
327^ 

3275 

3276 

3277 


1 3D5I  1 
9 3565  0 
6 1907  0 
0 0006  1 

6 3270  1 
1 3O5I  1 

3 7(55  1 
55*^35  0 
9 1907  1 
0 0OO6  1 

7 l‘+9l  0 
55*512  1 
9 1995  1 
6 lAll  1 


16 

16 

16 

16 

16 

16 

16 

16 

16 

16 

16 

16 

16 

16 

16 

16 

16 

16 

16 

16 

16 

16 

16 


3300 

3301 

3302 

3303 
330A 

3305 

3306 

3307 
3310 
33  1 1 

3312 

3313 
331^ 

3315 

3316 

3317 

3320 

3321 

3322 

3323 
3329 

3325 

3326 


6 1911  1 
6 1626  1 
55»995  1 

31*991  1 
0 OOO6  1 

7 7T9O  1 

6 2336  0 
55*997  0 
0 0006  1 

7 3566  0 
6 1995  0 
0 0006  1 

6 3350  1 

31*A95  0 
0 OOO6  I 
11*A97  0 
0 OOO6  1 

7 1^91  0 
0 OOO6  1 
7 1991  0 
55*513  0 
9 3575  1 
6 1512  0 


3327 

3330 

3331 

3332 

3333 
333A 

3335 

3336 
333  f 

3390 

3391 

3392 

3393 


0 0006  1 
7 0000  C 
6 1513  1 
0 0O06  1 

6 3233  0 

9 3572  0 
6 1512  0 
0 0OO6  1 
6 3359  0 
0 5091  1 

9 1513  0 

0 5935  0 

6 1512  0 


Z0NE5  TCF  JETSOFF 

+2  :S  RATEMAX 

AD  EDOT 

EXTEND 

3ZMF  ZUNF56,7 

ZDNE8  TCF  JETSOFF 

ZDNES6,7  CAF  BlTl 

TS  TJETSIGN 

CS  EDOT 

extend 

MP  1/2JTSP 

TS  TERMA 

CS  FCTl 

AD  E 

AD  E 

AD  MlNIMPDB 

PMBR  T5  FCTl 

CAE  1/2JTSP 

EXTEND 

YIP  BIT19 

AD  .5ACCMIN 

TS  DENOM 

EXTEND 

MP  RATEMAX2 

AD  FCTl 

EXTEND 

3ZMF  MISSROOT 

CAE  FCTl 

EXTEND 

OV  DENOm 

EXTEND 

MP  1/2JTSP 

EXTEND 

MP  1/2JTSP 

TS  TERMB 

CS  +I.5CSP 

AD  TERmA 

EXTEND 

SQUARE 

AD  TERMB 

EXTEND 

3ZMF  MAXPTJET 

CS  TMINAT16 

AD  TERMA 

EXT  END 

3ZMF  LASTTEST 

ROOTNEXT  TC  T6J0BCHK 

CS  TERMB 

TC  SPROOT 

SJMTJ  AD  TERMA 


USER'S  OWN  PaG)-  no-  15 


FCTl  NOW  HOLDS  _FCT5  OR  -FCT2 


E6 


A8095AA  yJL  system  FOR  AGC : NEW  PrO'^RAM  SFIePATIN  BY  EYLL 


DEC  18,  I966  (MAIN)  PAGE  48^ 


L P-Axlb  ivEAcTlON  cDNTROl  SySl 


0623 

0624 

0625 

REF 

2 

LAST 

473 

16 

16 

16 

3344 

3345 

3346 

0626 

REF 

2 

Las  I 

481 

1 6 

3347 

0627 

REF 

1 

lb 

3350 

0628 

16 

3351 

0629 

REF 

8 

LAST 

482 

1 6 

3352 

0630 

REF 

1 

16 

335S 

0631 

REF 

2 

LAST 

482 

16 

3354 

0632 

REF 

8 

Last 

482 

1 6 

3355 

0633 

16 

3356 

0634 

16 

335  ^ 

0635 

R ;.F 

4 

LAST 

482 

1 6 

3360 

0636 

16 

3361 

0637 

REF 

1 

LAST 

16 

3362 

0638 

REF 

1 3 

482 

1 6 

3363 

0639 

REF 

3 

LAS  I 

480 

16 

3364 

0640 

16 

3366 

0641 

1 6 

3366 

0642 

REF 

1 

16 

336  7 

0643 

1 6 

337D 

0644 

REF 

2 

LASf 

483 

16 

337I 

0645 

REF 

7 

LAST 

480 

16 

3372 

0646 

REF 

1 6 

LAST 

480 

1 6 

3373 

0647 

REF 

3 

LAST 

470 

16 

3374 

0648 

REF 

13 

LAST 

478 

16 

3375 

0649 

REF 

4 

LAST 

483 

16 

3376 

0650 

16 

3377 

0651 

16 

34OD 

0652 

1 6 

3 40 1 

0653 

REF 

7 

LAST 

482 

16 

3402 

0654 

REF 

8 

LAST 

483 

16 

3a03 

0655 

REF 

14 

LAST 

483 

16 

3404 

0656 

REf 

7 

last 

478 

16 

3406 

0657 

REF 

3 

Last 

473 

16 

3406 

<1,  AuIOPIlUT 

6 ODOO 

1 

sc ALT  JET 

jOUBLE 

0 0006 

1 

EXTEND 

7 3610 

1 

MP 

25/32 

1 3375 

1 

tcf 

F 1 NDS I GN 

3 3 = 64 

0 

MISSROOT 

CAF 

RATEMAX+ 

0 OOO6 

1 

extend 

7 1441 

0 

V)P 

1 /2 JTSP 

1 3343 

1 

TCF 

SUMTJ 

4 3672 

0 

LASTTEST 

CS 

TMINAT16 

6 1612 

0 

AD 

terma 

0 OOO6 

1 

extend 

7 OOOO 

0 

square 

6 1613 

1 

ad 

TERMS 

0 0006 

1 

extend 

6 3340 

0 

3ZMF 

ROOTNEXT 

1 3O5 1 

1 

T CF 

JET  SOFF 

31  ' 710 

0 

20NE4 

CAE 

SIGNTAG 

0 0O06 

1 

EXTEND 

6 3371 

1 

3ZMF 

+ 3 

4 3 = 74 

0 

CS 

.IDPS 

1 3372 

0 

TCF 

+ 2 

3 3674 

1 

CA 

.IDPS 

6 0 774 

0 

AO 

0ME6APD 

55'4l6 

1 

TS 

OMEGAP 

3 3673 

0 

CAF 

PIJMINT6 

55*610 

0 

findsign 

TS 

TP 

31  ' 710 

0 

CAE 

S 1 GNT  AG 

0 0006 

1 

EXTEND 

6 3402 

1 

3ZMF 

+ 2 

1 3404 

0 

TCF 

+ 3 

4 1435 

0 

CS 

TjETSIGN 

55*435 

0 

TS 

TJETSIGN 

3 1 ' 610 

1 

CAE 

TP 

55*475 

1 

TS 

TUFJTCHG 

1 2 730 

0 

TCF 

PJETSLEC 
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0659 

REF 

8 

LAST 

483 

1 6 ♦ 3^07 

0660 

REF 

3 

LAST 

482 

i 6 f 3*^  1 C 

0661 

0662 

REF 

21 

LAST 

480 

1 6 • 3^  1 1 
I6i34l2 

4 1^75  1 TORKVEt-  ES  TUFjTCHg 

6 3i575  0 AO  +I.5CSP 

0 0006  1 EXTEND 

6 5^51  1 3ZMF  RESUME 


0663  REF  1 160413  3 3^16  C EA  PSKIPADR 

0664  REf  4 last  469  l6»34lA  &5'P46  0 TS  PJUMPAdR 


USER'S  OwN  pAGF  NO.  16  E6 

RATEMAX+  = RATEMAX+O.6DEGREES/SfC0N0 


NEVER  ZERO 

EC3U1VALENT  TO  BRANCH  ON  MINUS 

LOAD  lOFJrCHG 

AND  GO  SELECT  GnOD  POLICY 

USE  150  MS.  TO  test  FOR  A PAXIS  SKIP. 

TP  greater  THAN  I5OMS  THEN  DO  NORMAL  P. 

SET  UP  A P AXIS  SKIP. 

GOES  10  JTlST  from  hERE 
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L 

R0665 

RO666 

R0667 

RO660 

R0669 

R0670 

R0671 

R0672 

R0673 

R0674 

R06/5 

R0676 

R0677 

R0678 

R0679 

RO68O 

RO68I 

R0682 

R0683 

R0689 

R0685 

RO686 

R0687 

R0688 

R0689 

R0690 

R0691 

R0692 

R0693 

R0694 

Ro695 

R0696 

R0697 

R0698 

Ro699 

Ro700 


YJL  SYSIEM  fOR  AGC;  NEW  PROGRiYM  b^^EPAlIN  BY  EYLL3 


DPC  1^,  I966  (MAIN) 


P-A^'I^  RhACfloN  CuNTRcjL  SYS^E’'1i  AUIoRILqI  USER'S  QWN  PaGp  N0» 

program  name  jtlst 

WRITTEN  BY  DICK  GRAN  ( GaeC  - CALL  LR-S-1331  AReA  CODE  516  ) 

this  program  in  conjunction  Win  16-rupt  programs  allows  jet-s  to  be 
turned  let  at  the  Computed  of:-  ti^'e.  this  task  is  accomplished  by  using 

A JLT  LiSl  .-HlCH  IS  SET  UP  As  FOLLOWS  .... 

JET  OFF  times  UeSIRED  JETS  AT  THIS  TIME 

TIME6  I6NEXTJT 

T6NEXT  I6NEXTJT  +1 

T6NEXT  +1  I6NEXTJT  +2 

thebe  locations  receive  the  jet  QH  timed  scaled  as  T6  (*625  MS/BIT).  AS 

AN  example  of  hOW  ThE  PROuRAm  ^ORKS*  consider  The  following  problem... 

50  cs  Ago  a P axis  jet  CjvipjtAtION  decided  JfTS  12  AND  15  should  Be 
ON  hOR  120  MS.  AFIER  12^  MS  ll  WAS  FURTHER  DECIDED  THAT  JETS  12.15 
16  AND  3 SHOULD  Be  ON  UniIl  I He  NEXT  P AXIS  COMPUTATION  (WHICH 
OCCURS  IN  200  MS  AFTER  THE  LABt  P AXIS  JET  COMPUTATION).  AT  THE 
current  time  the  or  AaeD  competes  that  JET  2 SHOULD  BE  ON  FOR  65  MS 
AND  jet  9 SHOULD  Bt  ON  TOR  72.5  MS.  AFTER  72.5  MS  NO  FURTHER  OR  JETS 
SHOULD  BE  ON,  THIS  SeuULNCE  O'"  UETS  CORRESPONDS  TO  A +P  ROTATION 
with  A SIMULTANEOUS  +Y  AND  -Z  TRANSLATION  AND  ALSO  A -V  (DIAGONAL) 
rotation  ABOUT  THF  Y AMD  7 AXtS  , NOTE  UET  9 IS  ON  LONGfR  THAN  JET  2 
WHICH  WOULD  BE  THE  CASE  I-  THE  Q-R  JETS  HAD  BEEN  ON  BEFORE.  IN  THIS 

CASE.  TnE  FOLLOWING  SEljUpNCF  up  EVENTS  OCCURRED  AT  THh  P AXIS 
CDMlUTAlION  

1)  Channel  t was  loajeo  '^ith  octal  2a  to  turn  on  jets  12  and  15 

2)  TIME  6 WAS  LOADED  wITH  120  MS 

3)  T6NtXT  WAS  loaded  wITH  +o  ( THIS  INDICATES  THE  CONTENTS  OF 

T6NEXT  ARl  not  TO'  3E  USED  IN  THE  T6J0B  PROGRAM) 

A)  T6NEXTJT  WAS  LOADED  wUH  OCTAL  226  TO  CAUSE  JtTS  3,12*15 
AND  16  TO  GO  ON  ^HEN  T6  HAS  BEEN  DECREMENTED  TO  -0. 

5)  THE  T6  CLOCK  wAB  iJRNLD  ON  TO  BEGIN  COUNTING  DOWN  TIMt  6 

At  thl  OR  axes  jet  list  cdmruiation.  the  T6  clock  HAS  Been  Reduced 

TO  70  mb  (120-50)  THEREFORE  THE  FOLLOWING  OCCjRS  .... 

1)  CHANNEL  5 IS  I oADEO  WITH  OCIAL  A0022  TO  TURN  ON  JETS  2 AND 

9.  ( THIS  15  PER-DRMLD  IN  |He  SECTION  CALLED  RATE) 

2)  ThiE  bank  is  switched  From  the  or  bank  to  the  P bank  (WHERE 

THE  JET  list  I5  SIORLD)  AS  FOLLOWS  .... 


page  A8A 

E6 


R0701 


DCA  JTlsIADK 


A8895^A 


L 


R0702 

R0703 

R0709 
Ro  ro5 
R0706 

Ro7o7 
Ro  r08 
R0709 
R0710 
R0711 

R0712 

R0713 

R0714 

R0715 

R0716 

R0717 

R0718 

R0719 

R0720 

R0721 

R0722 

R0723 

R072^ 

R0725 

R0726 

R0727 

Ro728 
R0729 
R0730 
R0731 
R0732 
R0733 
Ro  ?3A 
R0735 
R0736 

0737 

0738 

0739 
07^0 
07A1 
07A2 
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p-axis  reaction  Control  sysIe'')'  auIqRiloT  user's  own  pack  no.  ip  E6 

DTCB  ( IN  THE  OR  AXES  ONLY) 

3)  THE  desired  JFT  OM,  1 IME  FOR  JET  2 IS  COMPARED  WITH  T6. 

а)  SINCE  T6  is  greater  T^^AN  THe  DESIReD  jet  on  time  for  Jet  2* 

16  IS  CHANGED  TO  65  Ms  AND  T6NEXT  IS  LOADED  WITH  5 MS. 

( the  difference  3ETWeEN  Jet  on  time  and  T6) 

5)  T6NEXTJT  IS  CHANGED  'fD  OCTAL  40020  » AND  tHe  FORMER  CONTENTS 
OF  T6NEXIJT  IS  p.ACE^  IN  TSNexTJT  +1.  THIS  CAUSES  JET  9 TO 

remain  on  and  Jei  2 10  bf  ilirned  off  when  T6  is  decremented 
TO  zero,  it  ALSo  assigns  THE  P AXIS  JET  CODE  TO  TF(E 
TIME  IN  T6NEXT. 

б)  THE  contents  OF  TbNEXI  (5MS)  IS  COMPARED  WITH  THE 

difference  between  tHe  two  OR  AXIS  JET  ON  TIMES,  SINCE  HERE 
THE  difference  IS  7.P  MS  WHICH  IS  GREATER  THAN  THE  CONTENTS 
UF  T6NEXT  151'iS).  THE  ADDITIOmAL  OR  AXIS  RUPT  OCCURS  AFTER 
THE  RUPT  stored  IN  T^NEXT.  THUS  2.5  MS  ( u5  - 5)  IS  STORED 
IN  T6NEXT  +1 

7)  T6NEXTJT  +2  IS  Made  E^UAL  to  the  jets  WHICH  ARE  TO  BE  ON 
AFTER  THE  75  MS  HAS  ^LAPSED  UN  THE  CA5E  HERE  iT  IS  ZERO) 

HUS  FOR  the  EXAMPLE  CONSIDERED  THE  JET  LIST  15  .... 

JET  TIMES  JET  CODES 

TIMEo  = 65MS.  TPNEXTJl  = 40020  SIGN  IS  NEGATIVE  TO 

T6NEXT  = 5 MS.  TPNEXTJl  +1  = 00226  INDICATES  Q-R  AXIS 

T6NEXT  +I  =2.5  MS.  T6NEXTJI  +2=.  40000  JET 5 , POS 1 T I VE  TO 

INDICATE  P JETS. 

CHANf.EL  6 = 00024 

channel  5 = 00022  SIGN  IS  _0^T  ONCE  THE  JET  CODE  IS  LOADED 

this  EXAMPLE  AND  ThE  CODING  SHOJLP  ALLOW  ONE  TO  UNDERSTAND  THE  JET  LIST. 

ONE  further  comment  is  in  order  - If  the  jet  on  times  exceed  150  MS» 
the  JcTS  are  turned  UN  and  the  J£T  LIST  IS  NOT  ENTERED.  IN  100  MS 
A NEW  Jet  on  time  IS  compUted  which  will  Reset  ihe  jets  if  needed, 
when  the  jet  on  time  is  less  TH«N  150MS,  the  jet  list  is  loaded  as 

DISCUbStD  ABOVE  AND  ThE  tJeI  COMPUTATION  IS  SXIPPeD  NeX|  tIMe»  THAT  IS 

THE  AaIS  is  NOT  REPEATED  A3AIN  OmtiL  2OO  MS  HAS  ELAPSED.  THIS  INSURES 

THAI  i’.HEN  A NeW  JeT  I IMp  IS  COMPUTED  [He  JET  L I ST  WILL  NOT  HAVE 

A time  stored  which  CORr'e5?jN0S  TO  THE  AXIS  JUST  COMPLEIED. 

REF  5 last  464  I6«34l5  10  U31  1 Jl LST  CCS  TiME6  TEST  CURRENT  St  AT E OF  T6. 

REf  1 16,3416  1 3‘'41  1 TCF  T60NN0W  IF  T6  IS  + THEN  CLOCK  15  ON, 

REF  1 lb, 3417  1 3H23  0 TCF  T60FFN0W  IF  T6  IS  + ZFRO  THeN  T6  MUST  BF  OFF 

REF  2 LASl  ^,85  16,3420  1 34c,i  1 JCF  T60NN0W  SINCE  ALL  DImC  S LEAD  TO  MINUS  ZERO. 

REF  1 16,3421  0 5O45  0 TC  T6JOB  WE  ARE  IN  THE  UnIOUe  STATE  WHICH  SAYS 

REF  1 16,3422  1 3415  0 TCF  JlLST  A T6  INIERRUPt  IS  WAl I ING.DO  T6  JOB. 
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07A3 

074A 

07A5 

07A6 

07A7 

07A8 

0 

0750 

0751 
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0753 
075A 

0755 

0756 

0757 

0758 

0759 

0760 

0761 

0762 

0763 
076A 

0765 

0766 

0767 

0768 

0769 

0770 

0771 

0772 

0773 
077A 

0775 

0776 

0777 

0778 

0779 

0780 

0781 

0782 

0783 
078A 

0785 

0786 

0787 

0788 

0789 

0790 

0791 

0792 


p-AXib  rEACiioN  Control  sys'Ievi,  auIopilqT 


USER'S  OWN  PaGH  no. 


1*7 


E6 


REF  9 LAST  A83  l6 

REF  6 last  985  16 

REF  31  LAST  971  16 

16 
16 

REF  2 LAST  978  16 

REF  5 LAST  961  16 

REF  158  LAST  980  lb 

REf  2 last  96A  16 

REF  9 last  969  16 

REF  159  LAST  986  lb 

REF  2 LAST  A6A  16 

REF  6 last  986  l6 

REf  22  last  983  16 

REF  10  last  986  16 

REF  1 ib 

REF  10  LAST  986  lb 

REF  7 LAST  986  16 

REF  237  last  980  16 

REF  125  LAST  965  16 

R :;F  1 16 

16 

REF  126  LAST  986  16 

REF  11  LAST  986  lb 

REF  3 LAST  986  16 

REf  7 LASI  986  16 

REF  160  LAST  986  16 

RbF  3 LmSI  986  lb 

REF  12  LAST  986  16 

REF  161  last  986  lb 

REF  3 LAST  986  16 

RbF  8 LAST  986  16 

REF  23  LAST  986  16 

Rbp  13  last  986  lb 

REF  11  LASl  986  16 

REF  8 LAST  986  16 

REF  9 LAST  986  16 

RzF  9 LAST  986  16 

REf  10  last  986  16 

REF  9 LAST  986  16 

16 

REF  29  LAST  986  16 

REF  19  LAS i 986  16 

R'F  238  LAST  986  lb 

REF  127  LAST  986  16 

16 
lb 

REF  128  Last  986  16 

REF  15  LAST  986  16 

REF  162  LAST  986  lb 


392B  3 1975  0 TbOFFNOw 

3929  69  U31  1 

3925  3 7(37  0 

3926  0 0L06  1 

3927  05  013  0 

3930  3 1972  1 

3931  55*009  0 

393'(  3 7761  0 

3933  57*'*79  1 

3939  55*002  0 

3935  3 7(61  0 

3936  57*‘*73  0 

393(  55'005  1 

3990  1 5(51  0 

3991  11*002  0 TbONNOW 

3999  1 3P22  0 

3993  9 1975  1 

3999  6 0031  0 

3995  10  UOO  0 

3996  6 7(55  1 

3997  1 3969  0 

3950  1 3'*51  0 

3951  6 7(55  1 

3952  55*002  0 

3953  3 1972  1 

3959  55*005  1 

3955  3 7(61  0 

3956  57*‘*79  1 

3957  55*003  1 

3960  3 7(61  0 

3961  57*'*73  0 

3962  55*006  1 

3963  1 5(51  0 

3969  55*002  0 JTSfIRGT 

3965  3 1975  0 

3966  5£f  031  1 

3967  3 1972  1 

3970  57*009  1 

3971  55*005  1 

3972  9 l‘t79  0 

3973  0 0O06  1 

397^  1 5(51  0 

3975  6 1002  1 

3976  10  UOO  0 

3977  6 7(55  1 

3500  1 3511  0 

3501  1 3PO2  1 

3502  6 7(55  1 

3503  55*003  1 

3509  3 7(61  0 


CA 

IS 

CA 

extend 

a'OK 

CA 

TS 

CA 

KCH 

TS 

CA 

XCH 

TS 

TCF 

CCS 

TCF 

CS 

AD 

CCS 

AD 

TCF 

NOOP 

AD 

TS 

CA 

TS 

CA 

XCH 

TS 

CA 

XCH 

TS 

TCF 

TS 

CA 

TS 

CA 

XCh 

TS 

CS 

EXTEND 

3ZF 

AD 

CCS 

AD 

TCF 

NOOP 

AD 

TS 

CA 


TUFJTCHG 

TIME6 

B1T15 


13 

JTSATCHG 

TbNEXTJT 

zero 

ADDTLT6 

TbNEXT 

ZlRO 

ADDTbJTS 
TbNEXTJT  +1 
RESUME 

TbNEXT 

T6NXT=+ 

TOF JTCHG 

TIME6 

A 

One 

jtsfirst 

ONE 

TbNEXT 

JTSATCHG 

TbNEXTJT  +1 

ZLRO 

ADDTL16 

TbNEXT  +1 

ZERO 

ADDTbJTS 

TbNEXTJT  +2 

RESUME 

TbNEXT 

TOF JTCHG 

TIME6 

JTSATCHG 

TbNEXTJT 
TbNFxTjr  +1 
ADDTLI6 

RESUME 
TbNEX  t 
A 

ONE 

+ 11 

ONE 

TbNEXT  +1 
ZERO 


WE  are  here  if  Tb  Cl OCK  IS  OFF. 

TURN  CLOCK  PULSf  FOR  Tb  ON  AND  LOAD  T6. 


SET  UP  next  T6  interrupt  AfTLR  tHE 
current  one  I5  complete.  ADDTLT6  MAY 
BE  zero  in  ir,HICH  CASE  NO  MORE  Tb. 


HERE  IF  Tb  IS  Now  On.  SEE  IF  TbNEXT  IS 
ZERO  OR  NOT. 

TbNEXI  IS  NEVFR  negative. 

A CONTAINS  Tb  - TJET  . 

TEST  SIGN  OF  A (SAVING  THE  DIFFfRENCE). 
TJET  IS  LESS  THZN  Tb. 

IF  difference  u neciAtivl  or  zero 

WE  ADD  1 SO  ZfRO  rAN  NEVER  BE  IN  LIST. 


BEGIN  SETIING  UF  JElS  IN  THE  jEr  lIST. 


HERE  If  TJET  IS  LESS  THAN  T6. 
SWITCH  Tb  AND  T.iET) 


begin  SWITCHING  JET  WORDS  IN  JET  LIST. 


SEE  IF  an  ADDITiONAl  (OR)  JET  TIME  IS 
REQUIRED. 

IF  AN  ADDITiONAl  T6  IS  NEEDEN,  COMPARE 
IT  ia/ITh  the  Contents  of  T6next. 


A88954A  YjL  system  i'OR  AGC : Nbl'i  sMePATIN  BY  eYLeS 


L 

0793 

079a 

0795 

0796 

0797 

0798 

0799 

0800 
0801 
0802 
0803 
080a 

0805 

0806 

0807 

0808 

0809 

0810 
0811 

0812 

0813 

081A 

0815 

0816 

0817 

0818 

0819 

0820 
0821 
0822 
0823 
082A 

0825 

0826 

0827 

0828 

0829 

0830 

0831 

0832 

0833 
083a 

0835 

0836 

0837 

0838 

0839 
R08A0 

08A1 


P-AxIS  KEACIION  cGNTROl  SySTeh,  AuIOPIlOI 


REF  5 LAST  A86  16,3505 

REF  A LAST  A86  16*3506 

REf  11  LAST  A86  16,3507 

REF  25  LAST  A66  16,35l0 

REF  16  LAST  A86  l6,35ll 

REF  163  LASI  a86  l6,35l2 

REF  6 LAST  A87  16,3513 

REF  17  last  a87  lb,35lA 

REF  16A  last  A87  16,3513 

REF  5 LAST  A87  16,3519 

REF  12  LAST  A87  16,351  ? 

REF  13  LAST  A87  ]6*352G 

REf  26  last  A87  16,3521 

REF  12  LAST  A86  16,352-1 

REF  9 last  a86  16,3523 

REF  18  LAST  A87  16,3529 

REF  239  LASI  A86  16,3525 

REF  129  LAST  A86  16,3529 

16,3527 

16,3531' 

REF  130  LAST  A87  16,3531 

REF  19  LAST  A87  16,353-1 

REF  5 LAST  A86  16,3533 

REF  lA  LAST  A87  16,3539 

RcF  27  last  A87  16*3535 

REf  92  last  A80  16,3536 

REF  13  Last  A87  16,353? 

REF  10  LAST  A87  16,35a0 

REF  2A0  LAST  A87  16,35Al 

REF  131  LAST  A87  16,3592 

Rr.F  1 16,35A3 

1 6 , 3 5 A9 

REF  132  LAST  A87  16,35A5 

REF  20  LAST  987  16,3596 

REF  93  LAST  987  16,3597 

REF  21  LAST  A87  16,3550 

REF  6 LAST  987  l6,355l 

16,3552 

REF  22  LAST  987  16,3553 

REF  23  LAST  987  16,3559 

REF  l9  LASI  987  16*3555 

REf  11  LAST  987  16,3556 

REF  7 LAST  987  16,355? 

REF  15  LAST  987  16,3560 

REF  16  LAST  987  l6*356l 

REf  1 ? last  987  16,3562 

REF  28  LAST  987  16,3563 

T-JLT  LAW  fixed  CONSIANTS 


55*979  0 T5 

57*973  0 XCH 

55*006  1 TS 

1 5?51  0 TCF 

55*003  1 +11  TS 

3 7?6l  0 CA 

57*979  1 XCH 

55*002  0 TS 

3 7?61  0 CA 

57*973  0 XCH 

57*1'05  0 XCH 

55*1'06  1 TS 

1 5?51  0 TCF 

9 1975  1 T6NXr=+  CS 

6 OO3I  0 AD 

6 1002  1 AD 

10  OOO  0 CCS 

6 7?55  1 AD 

1 3536  0 TCF 

1 3531  1 MOOP 

6 7?B5  1 AD 

55*003  1 TS 

3 1972  1 CA 

55*006  1 TS 

1 5?51  0 TCF 

59  OOl  1 +7  TS 

9 1975  1 CS 

5 0031  0 AD 

10  000  0 CCS 

6 7?55  1 AD 

1 3553  0 TCF 

1 3595  1 MOOP 

6 7?55  1 AD 

55*002  0 TS 

3 0001  0 CA 

55*003  1 TS 

3 l‘*72  1 CA 

1 3561  1 TCF 

57*002  1 JT5B9T6  XCH 
55*003  1 TS 

3 1975  0 CA 

59  031  1 TS 

3 1972  1 CA 

57*009  1 XCH 

57*005  0 +7  XCH 

57*006  0 XCH 

1 5?51  0 TCF 


16,3569  36115  1 RATLHAX+  DEC 


Dec  U,  1966  (MAIN)  page  98? 


USER*S  OwN  pAOF  NO.  20 


E6 


A0DTLT6 

ADDT6JTS 

T6NFXTJT  +2 

RESUME 

T6NEXT  +1 

ZERO 

ADDTLT6 

TbNEXT 

ZERO 

AUDT6JTS 
T6NFXTJT  +1 
TbNFXTJT  +2 

resume 

TOFJTCHG 

T1ME6 

TbNEXT 

A 

ONE 

+ 7 


ONE 

TbNEXT  +1 
JTSATCHG 
TbNEXTJT  +2 
RESUME 
L 

TuFJTCHG 

T1ME6 

A 

ONE 

JTSB9T6 

One 

TbNEXT 

L 

TbNEXT  +1 
UTSATCHG 

+ 7 

TbNEXT 
TbNEXT  +1 
TuFJTCHG 
T1ME6 

Jl 5ATCHG 
TbNEXTJT 
TbNEXTJT  +1 
TbNEXTJT  +2 
RESUME 


0.99222 


^8895A^  YJL  SV5lhM  ^ OR  : M^W  S^^t^ATlN  3Y  e'^^L^S 


L 


08A2 

0843 

0844 

0845 

0846 

0847 

0848 

0849 

0850 

0851 

0852 

0853 

0854 

0855 

0856 

0857 

0858 

0859 

0860 
0861 
0862 

0863 

0864 

0865 

0866 

0867 

0868 


0869 

0870 

0871 

0872 

0873 

08731 

08732 

0874 

0875 

R0876 

0877 

0878 

0879 

0880 

0881 

0882 

0883 


p-Axis  KEACiioN  Control  sysie'^'  auiopilot 


1613565  34A44  0 RATLMAX  OtC  0.88889 

16,3566  3l‘^21  1 RATLmAx2  oEc  0,79012 


16,3567 

16.3570 

16.3571 

16.3572 

16.3573 
16,357^ 
16,3576 

16.3576 

16.3577 

16. 3600 

16.3601 

16.3602 

1 6 . 3603 
l6 , 360A 
16,3606 

16.3606 

16.3607 
1 6 , 3 6 1 0 

16.3611 

16.3612 
1 6 , 3 6 1 3 
16,36lA 
16,3615 


77  733 

0 

-35AT16 

DEC 

77O7I 

1 

-5DEG+  1 

DEC 

OOO5O 

1 

38.7AT16 

DEC 

UOOlO 

0 

r Ml  NAT  16 

DEC 

30014 

1 

PTJM1MT6 

DEC 

30O44 

1 

.IDPS 

DEC 

30360 

1 

+1,5CSP 

DEC 

77  767 

1 

MCOMPT 

DEC 

30013 

0 

14-T JMIN 

DEC 

77537 

0 

NEGCSPl 

Mr*  r3 

DEC 

37775 

0 

M530P 

OCTAL 

34362 

1 

0,88975 

DEC 

24366 

1 

16/25 

DEC 

^7555 

1 

-DRATEDB 

OCTAL 

77OOI 

0 

-D2JTLIM 

OCTAL 

^6447 

1 

-A2JTL1M 

OCTAL 

77223 

1 

-ARAT  EDB 

3CT  AL 

3IOOO 

0 

25/32 

DEC 

77  762 

1 

-TJMINTS 

OCTAL 

300  7 7 

1 

DAPL0W6 

dct 

30600 

1 

BITS8,9 

OCTAL 

71462 

33146 

1 

1 

UpM 

CSPATIP 

DEC 

DEC 

-0,00219 
-,02772 
0,00242 
0,00047 
0,00073 
0.00222 
+0.0 1465 
-0.00049 
11 

-.00977 

37775 

0.88975 

0,64000 

77655 

77001 

76447 

77223 

.78125 

77762 

00077 

00600 

-.2 

0.10000 


REF  1 
REF  1 


16.3616  :2'^51  0 PSKIPADR  3ENA0R  bKIPPAXS 

16.3617  37003  0 JETLWADR  CADR  TJETLAW 


r£f 

REF 

10 

2 

LAST 

LAST 

468 

467 

REF 

9 

Last 

468 

REF 

1 

REF 

4 

LAST 

‘tba 

REF 

2 

LAST 

454 

REF 

7 

LAST 

481 

REF 

3 

LAST 

90 

16,3620  22  P16  0 SETIDLE  lXCH 


16.3621  3 2303  0 CAF 

16.3622  55*000  1 TS 

16.3623  3 3630  1 CAF 

16.3624  54  030  0 T5 

16.3625  3 2076  1 CAF 

16.3626  55*415  1 TS 

16*3627  1 5753  1 TCF 


bankrupt 

ioLfradr 

TbADR 

ISECRUPT 

TIMF_5 

WIDFDB 

OB 

NOORSM 


16,3630  37634  1 ISECRUPT  OCTAL  37634 


DUMMY  FILTER  RUPT  AFTER  P-A^li  RUFT. 


REF 

REF 

2 

1 

LAST 

51 

16,3631 

3 3 7 10 

E6 

1 

EBANK= 

DJMMYFIL  CAF 

AOSQTERM 

TWENTYMS 

ref 

REF 

5 

1 1 

LAST 

LAST 

488 

488 

16 .3632 

16.3633 

5 4 030 
22  016 

0 0006 

3 3 7 1 2 
53*001 

0 

0 

TS 

lxch 

TIMES 

bankrupt 

REF 

REF 

1 

10 

LAST 

488 

16 ,3634 

lo  , 3635 
16,3636 

1 

0 

0 

EXT  END 

DCA 

DXCH 

DFORAXIS 

T5ADR 

OeL  I-:)*  l966  (MAIN)  Pa^E 


USERiS  OWN  page  NO.  21 


E6 


-5  OEGREEb  + CCaBIT  SCALED  AT  PI  RADIANS 


-5  MS.  SCALED  As  T6  (P-AxlS  COMP  TIME). 


-0,4  DEG/SEC  scaled  A1  PI/4  RADIANS/SEC 

-1.4  DEG/SEC  scaled  at  PI/4 

-2.0  DEG/SEC  scaled  AT  PI/4 

-1.0  DEG/SEC  scaled  AT  Pl/4 

-(7.5  MS  + 1 BIT)  Scaled  as  times  clock 


TEMPORARY  EST IMaTE 
100  MS  at  1. 


first  TSrUPT  AftEr  FrEsH  sTArT  cOMEs 
here,  dapidler  ts  Started  in  i second. 


1 SECOND  SCALED  AS  TIMES  (100  PjLSES) 


RESET  timer  IMEdIATfLY.  DT=20  MS 
INTERRUPT  LEAD-tN  (CONTINUED). 


SET  UP  QRAXIS  RliPT 


488954A  YJL  SYSTEM  I- OR  AGC : NeW  PRO^iRAM  SHePATIN  3Y  E^LeS 


L P-AXIS  kEACIIoN  CoNTRqL  SVSTe*1  aUIoPILqT 

R088A  nCREMEl'iT  AOSTeRM  IN  De^CfNT  'IO^e  TO  IMPROVE  RATE  DERIVATION  DUR I 


0886  R£F  ^5  LAST 

0887 

0888 

0889 

0890  REF  A LAST  A88 


l6«363?  3 7'5A  0 
16,3640  0 0006  1 
1o,36aI  02  030  0 
16,364^  0 0006  1 
16,3643  1 5^S3  1 


CAF  B1T2 

EXTEND 
RAND  30 
EXTEND 

3ZF  NUORSM 


0891 

REF 

3 3 

LAST 

482 

16,3644 

0892 

16, 3645 

0893 

16,3646 

0894 

16,3647 

0895 

REF 

1 

16,3650 

0896 

REF 

165 

LAST 

487 

lb  *3651 

0897 

ref 

3 

LAST 

488 

16,3652 

0898 

REF 

1 

16,3653 

0899 

REF 

5 

LAST 

489 

16,3654 

0900 

REF 

42 

LAST 

482 

16, 3655 

0901 

REF 

66 

LAST 

469 

16,3656 

0902 

29 

16,3657 

0903 

R C.F 

LAST 

315 

16,3660 

0904 

REF 

67 

LAST 

489 

16 , 3 6 6 I 

0905 

REF 

1 

16 , 3662 

0906 

16,3663 

0907 

16,3664 

0908 

16,3665 

0909 

REF 

1 

16, 3666 

R09l0 

FORM 

ACCDOT^C 

SP(2)* 

(1-.5XK)  : 

3 7^40  0 CAF  BiT14 

0 0006  1 EXTEND 

02  011  0 RAND  11 

0 0006  1 EXTEND 

1 3655  0 3ZF  DLOOPBGN 

3 7 <’61  0 CAF  ZERO 

55*056  1 TS  AOSqTERM 

55*057  0 TS  AU5RTERM 

1 5^53  1 TCF  NUQRSM 

3 7'55  1 DLOOPBGN  CAF  BlTl 

54  0(>i  1 DLOOP  TS  ITEMPl 

6 0000  1 DOUBLE 

54  062  1 TS  I TEMPZ 

50  061  0 INDEX  I TEMPI 

3 i/O^  0 CA  PiTCHBTS 

0 0O06  1 EXTEND 

02  012  0 RAND  12 

0 0006  1 EXTEND 

1 3T02  0 3ZF  DLOOPCHK 

CA_eO  AT  PI/4*  THIS  IS  tHe  INCREMENT 


0912  REF 

0913 

0914  REF 

0915  REF 

0916 

0917  REF 

0918 

0919  REF 

0920  REF 

0921  REF 

0922  REF 

0923  REF 

0924  REf 

0925  REF 

0926 

0927 

0928 

0929 

0930  REF 


5 LAST  469 

11  LAST  478 

12  LAST  489 

1 

30  LAST  489 
1 

68  LAST  489 
4 LaSI  489 

69  LAST  489 
1 

6 LAST  489 


3 LAST  464 


16 ,3667 

16,3670 
1 o , 36  7 1 

16.3672 

16.3673 

16.3674 
16,367i> 

16.3676 

16.3677 

16.3700 

16.3701 
16*3702 

16.3703 

16.3704 

16.3705 
16,3  706 
16,3707 
16,3710 


31*636  0 
0 0006  1 
7 7745  1 

6 7745  0 
0 0006  1 

7 3707  0 
0 0006  1 
5 0062  0 
7 1532  0 
50  061  0 
27*656  1 
13  061  1 
1 3656  0 
1 5753  1 

31400  1 
36O00  1 
30Z43  1 
37776  0 
E6 


DLOOPCHK 

PlTCHblS 

CSPSC) 

TxENTYMS 


(1-0 

B1T9 

BITg 

CSPSO 

I T EMP2 

QACCDOT 

I T EMPl 

AUSQTERM 

ITEMPl 

DlOOp 

NOQRSM 

01400 

06000 

00243 

37776 

QERROR 


CAE 

extend 

VIP 

AD 

EXTEND 

VIP 

EXTEND 

INDEX 

MP 

INDEX 

ADS 

CCS 

TCF 

TCF 

OCT 

OCT 

OCT 

OCT 

EBANK= 


Dec  13,  1966  (MAIN)  PAGE  489 


USER'S  OWN  PaGF  No*  22 
, QRAxis  Control, 

STAGE  BIT  IS  ONf  FOR  DESCENT. 
READ  STAGE  BIT 

NOT  IN  DESCENT  MODE.  RESUME, 


E6 


IS  THE  ENGINE  OfF  BIT  SET* 
READ  ENGINE  OFF  BIT. 
zero  when  ENGINf  IS  NOT  OFF. 
YES,  engine  IS  OFF. 


RESUME. 

first  the  R-AXIA,  then  the  Q-AXrS. 


IS  PllCH(ROLL)  (,IMBaL  MOVING. 

Zero  when  gimbai  is  not  moving. 

TO  Be  added  to  ThE  Of FSET  ACCELERATION  TERM, 

(1-K)  IS  SCALED  AT  1, 

,5«(1-K)  , scaled  At  2(5) , 

(1,-.5#K)  SCALED  AT  2(5) , 

CSP(2)*(l,-.5xK)  AT  2(5) 

SELECT  THE  AXIS  , 

QACCDOT  AT  Pl/2(7), 

ADD  increment  SCALED  AT  PI/4. 

R-AXIS  DONE.  Now  Do  THE  Q-AxIS, 

RESUME. 

PITCH  GIMBAL  BItS  (9,10) . 

ROLL  GIMBAL  BITS,  (11,12), 

.01  SCALED  AT  1,  for  CSP(Z), 

20  MS  FOR  T5. 


488954A  YJL  SYSTEM  FOR  AGC : NEW  PROGRAM  SHePATIN  BY  tYLES 


Dec  U,  I966  (MAIN)  PAGE  A90 


L 

0931 

C0931 


p-axis  reaction  Control  system,  au'opilot  user's  own  page  no-  2^  E6 

16t37ll  02002  1 DFORAXIS  2CADR  QRAXIS 

REF  1 16,3712  36006  1 


48a954A  YJL  SySItM  FOR  AgC : NtW  PROGRAM  SHtPAlIN  3Y  EYLhS 


DEC  l3»  1966  (MAIN)  PAGE  A91 


L 3*r-a\e6  Reaction  control  system  autopilot  useR'S  o/vN  pag;.  no.  i 

0001  17’2000  3AN<  17 

0002  REF  8 last  A68  E6  EBANK=  DT 

R0003  HE  following  TsRUPT  entry  bgSTMS  THe  PROGRAM  WHICH  CONTROLS  tHe  0,R-AXIS  ACTION  OF  THe  LeM  USING  THe  RCS  UeTS. 

ROOOS  THE  nominal  TIME  bETwEEN  ThF  J'.R-AxiS  RuPIS  IS  100  MS  (UNlESS  ThE  TRIM  GIMBAl  cONTROl  SySTEm  IS  USED*  IN  WhICH 


R0007 

CASE 

)HIS  program  is 

IDLE)  . 

0008 

REF 

9 LAST  491 

E6 

EBANK= 

DT 

0009 

17*2000 

33U11 

1 NULLFILT 

2CADR 

FlLDUMMY 

C0009 

REF 

1 

17*2001 

40OO6 

0 

0010 

REF 

1 

17*2002 

3 2563 

0 QRAXIS 

CAF 

MS30QR  RESET  TIME  1 MMEr,  I ATELY  : DT  = 3O  MS 

0011 

REF 

6 LAST  488 

17*2003 

54  U30 

0 

IS 

T1ME5 

0012 

REF 

12  last  488 

17*2004 

22  Pl6 

0 

LXCH 

BANKRUPT  INTERRUPT  LeAD  TN  (CONTINUED) 

0013 

17.2005 

0 OUO6 

1 

EXTEND 

0014 

REF 

10  LAST  468 

1 7 * 2006 

22  O12 

1 

QXCH 

qrupt 

Roois 

SET 

UP  A DUMMY  KALMAN 

filieR 

tstuPt. 

(this  may 

BE  Reset 

TO  the  KALMAN  FILTER  INITIALIZATION  PASS*  IF  THE  TRIM 

R0017  GIMBAl  CONTROL  SYSTEM  ShOULO  3E  U^ED.) 

0018  17*2007  0 OUO6  1 EXTEND 

0019  REF  1 17*20lO  3 2U01  1 OCA  NULLFILT 

0020  REF  11  LAST  A88  17*20ll  53'UOl  0 OXCH  TSADR 

ROO2I  CALCJLAiE  LEM  BoDY  RATES  FOR  0 ANU  R AXES: 

R0O22  THIS  COMPUTATION  IS  VALID  FOR  30tN  ASCeNT  AND  DlSCeNt  SINCE  THE  OFFSET  ACCELERATION  TFRi-  IS  INCLUDeO  AL.mAYS* 
R002A  BUT  hAs  VAL-.E  ZERO  IN  uEsCENt*  ANU  ^INCt  ThE  WEIurTING  FAcTORs  ARE  IN  ERAsABlE  ANd  DIsTtNCT. 

R0026  first*  construct  Y AND  Z CDU  INCREMENTS: 


0027  REF 

0028  REF 

0029 

0030  REF 

0031  REF 

0032 

0033  REF 
003A  REF 

0035  REF 

0036  REF 

0037 

0038  REF 


16  LAST  A79 
9A  last  <+87 

2 last  A6S 

3 last  h91 

28  last  A69 
JO  LAST  A89 
U LAST  H7l 
.93  last  A91 

1 


17*2012  33  U33  1 
17*2013  SA  Uoi  1 
1 ? .201A  0 OUO6  i 
17*2015  21’A30  0 
11*2016  23'A30  1 
17*201 f O OUO6  1 
1?,2020  7 7TA7  0 
17*2021  22  U61  0 
17*2022  33  ‘JSA  0 
1 7*2023  5A  Uoi  1 
17*202A  0 0U06  1 
17*2025  Zl'^Bi  1 


CAE  CDUY  2'S  complement  MEASUREMENT  SCALED  AT  PI 

TS  L (SAVE  FOR  UrDATiNg  OF  OLDyFORQ) 

extend  form  increment  tN  CDUY  FOR  LAST  100  MS 

MSU  OLDYFORQ  (100  MS  OLD  CDUy  SAvED  FROM  lASt  PASS) 

LXCH  OLDYFORQ  UPDATE  OLDYFORQ  WITH  NEW  CDUY  VALUE 

EXTEND  RESCAlE  DELTA  CnUY  FROM  PI  RAdIANS  TO 

MP  BIT?  Pl/2(6)  radians  BY  MULTIPLYING  BY  64 

LXCH  I TEMPI  SAVE  I'S  COMPLEMENT  VALUE  TEMPORARILY 

CAE  CUUZ  2'S  complement  r/EASljREMENT  SCALED  AT  PI 

TS  L (save  for  updating  OF  OLDZFORQ) 

EXTEND  FORM  INCREMENT  IN  CDUZ  FOR  LAST  100  MS 

MSU  OLDZFORQ  (lOO  MS  OLD  CDU7  SAVED  FROM  LAST  PASS) 


0039 

ref 

2 

LASI  491 

17,2026 

0040 

1 7*2027 

0041 

REF 

29 

last  491 

17*2030 

0042 

REF 

31 

LAST  489 

1 7,2031 

23*431  0 lXCH  OLDZFORQ 

0 OUO6  1 EXTEND 

7 7(47  0 MP  BIT7 

22  U62  0 LXCr)  ITEMP2 


UPDATE  OLDZFORQ  WITh  NEW  CDUZ  VALUE 

rescale  Delta  cdUz  from  pi  radians  to 

PI/2(6)  RADIANS  BY  MULTIPLYING  BY  64 
SAVE  I'S  COMPI EMENT  VALUE  TEMPORARILY 


i,88954A  YJL  system  FOR  A^C : NE^  PRO'^RAM  SMePatIN  3Y  eYLeS 


L 3,r-axes  Reaction  conikol  syste^i  autopilot 


PooA3  Second*  trakskorm  cdj  increMemts  io  booy-ancle  IitCreMents: 


0044 

REF 

2 

LAST 

122 

1 7,2032 

0045 

17,2033 

0046 

REF 

71 

LASl 

491 

1 7,2034 

0047 

REF 

19 

LASl 

479 

1 7,2035 

0048 

REF 

4 

LASl 

123 

1 7,2036 

0049 

1 7 ,2037 

0050 

REF 

32 

LAST 

491 

1 7,2040 

0051 

REF 

20 

LAST 

492 

17,2041 

31  *406 

1 

CAF 

M3I 

0 OOO6 

1 

EXTEND 

7 OO6I 

1 

MP 

I T EMP 1 

54  063 

0 

TS 

I TEMP3 

31*403 

1 

CAE 

M32 

0 OUO6 

1 

C.X  T END 

7 0U62 

1 

MP 

ITEMP2 

26  063 

0 

ADS 

ITEMP3 

0052  RcF  2 LAST  122 

0053 

0054  REF  72  LAST  492 

0055  REF  33  LASl  492 

0056 

0057  REF  5 LAST  123 

0058  REF  34  LASl  492 

R0059  FINALLY*  DERIVE 


IT. 2042  Bl'^^OS  1 
17»2043  0 0U06  1 

17,204A  7 0061  1 

17.2045  56  P62  0 

17.2046  0 0006  1 

17.2047  7 1401  1 

17,2050  26  062  1 

0 AND  R BODY  ANSULaR  R, 


CAE  M21 

EXTEND 

MP  ITEMPl 

XCH  1TEMP2 

EXTEND 
YtP  M22 

ADS  ITEMP2 

ES: 


0060  17,2051 

0061  REF  3 LASl  465  17,205<T 

0062  REF  4 LAST  464  17,2053 

0063  17.2054 

0064  REF  6 lAsT  489  17.2055 


0 0006  1 EXTEND 

7 1635  1 MP  WFOROR 

57’417  1 XCH  OMEGAO 

0 0006  1 EXTEND 

7 1636  1 VIP  (1-0 


0065  REF  1 

0066  REF  5 

0067  REF  5 


1 ? 

LASl  489  1? 

LAST  492  1 1 


2056  6 1604  1 

2057  6 1656  0 

2060  27'417  0 


AD  JETRATEQ 
AD  AOSQTERM 
ADS  OMEGAQ 


0068  rEF 

0069 

0070  REF 

0071  REF 

0072 

0073  REF 

0074  REF 

0075  REF 

0076  REF 

0077  REF 

0078  REF 

0079  REF 

0080  REF 

0081  REe 

0082  REF 

0083 

0084 

0085 


21  last  492 

4 LAST  492 
7 LAST  464 

7 last  492 
1 

2 last  489 

8 LAST  492 

1 

1 

2 LASl  492 
29  LAST  487 
2 LASI  467 
19  last  471 


2061 

2062 

2063 

2064 

2065 

2066 


1 7,206  7 

1 7,2070 

17.2071 

17.2072 

17.2073 

17.2074 

17.2075 

17.2076 

17.2077 

17.2100 

17.2101 

17.2102 


30  063  1 
0 0006  1 
7 1635  1 
57'421  1 
0 0006  1 
7 1636  1 
6 1605  0 
6 1657  1 
27*421  0 

0 1647  0 
3 2076  1 
55*647  1 

1 5751  0 
02077  0 

3 7741  1 
0 0006  1 

02  031  1 
0 OOO6  1 


CAE  ITEMP3 

EXTEND 

MP  WFOROR 

XCH  OMLGAR 

EXTEND 
YP  (1-K) 

AD  JeTRATER 

AO  AoSRTERM 

ADS  OMEGAR 

TC  QJUMPADR 

SXIPORAX  CA  NORMOADR 

T5  QJUMPADR 

TCF  RESUME 

NORmqADR  SENADR  NuRmAlO 

NQRMALQ  CAF  BIT13 

EXTEND 
RAND  31 

EXTEND 


0086  REF 


17*2103  1 2117  0 32F  CHKBITIO 


oec  13*  1^66  (Main)  pa^e  4^2 


U5eR*S  ONN  PAGf  no.  2 E6 


MATRIx*VECTOR (WITH  x COMPONENT  zERO) 

M3I  * ITEMPl  = M31  X DELTA  CDUY 

M32  X ITEMP2  = M32  X DELTA  CoUZ 

DELTAR  = M31x(DFL  CoUY)  + M32x(oEL  CDUZ) 
R_B0DY_ANGLE  INyReMeNT  scaled  At  PI/2(6) 

MATRIXXVECTOR (WI TH  X COMPONENT  ZERO) 
clobbers  ITEmp2=DEL  CDUZ,  FOR  EFFICIENCY 
M2I  X ITEMPl  = 7;21  x DELTA  CDUY 

M22  X ITEMP2  = N'22  X DELTA  CuUZ 

DELTAQ  = M21x(DFL  CDUY)  + M22X(0EL  CDUZ) 
Q-BODY-ANGLE  increment  scaled  At  PI/2(6) 


WFORQR  IS  K/(NOFINAi  DT ) SCALED  AT  16 
FORM  WEIGHTED  VALUE  OF  MEASURED  DATA 
SAVE  AND  BEGIN  TO  WEIGHT  VALUE  OF  OLD  W 
(1-K)  IS  SCALED  AT  1 FOR  EFFICIENT  CALC 

(K  Changes  evfrv  2 seconds  in  ascent.) 

weighted  term  Due  to  jet  acceleration 
term  due  to  ASCfNT  offset  acceleration 
total  rate  ESTIMATE  SCALED  AT  Pl/4 

GET  DELTAr 

WFORqR  IS  K/(N0MINA1.  DT)  SCALED  AT  16 
FORM  weighted  VaLUE  OF  MEASURED  DATA 
SAVE  AND  BEGIN  tO  WfIGHT  VALUE  OF  OLD  W 
(1-K)  IS  SCALED  AT  1 FOR  EFFICIENT  CALC 

(K  Changes  everv  2 seconds  in  ascent.) 
weighted  term  Due  to  jet  acceleration 

TERM  DUE  TO  ASCrNT  OFFSET  ACCELERATION 

total  rate  estu.ate  scaled  At  Pi/4 


checking  attitude  Hold  bit 


BITS  inverted 
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L 3,R-AKE^  reaction  CqNTKuL  SYSiE'I  AUToPILqI 


0087 

REF 

34 

LAST 

489 

17 

2104 

3 7 (40 

0 

CAF 

BIT14 

0068 

17 

2105 

0 0UO6 

1 

EXTEND 

0089 

17 

21O6 

02  031 

1 

RAND 

31 

0090 

17 

2107 

0 0006 

1 

EXTEND 

AI TSTEER 

0091 

REF 

1 

17 

21  lO 

1 2620 

0 

3ZF 

0092 

17 

21  1 1 

0 OOO6 

1 

EXTEND 

0093 

REF 

1 

17 

2112 

3 2U6 

0 

OCA 

IDLEADRQ 

0094 

RfF 

1 2 

LAST 

491 

17 

2113 

5 3 ' 00 1 

0 

OXCH 

T 5 ADR 

0095 

rEf 

30 

last 

492 

17 

2114 

1 5(51 

0 

TCF 

RESUME 

0096 

REF 

10 

LAST 

491 

E6 

EBAN<= 

DT 

0097 

17 

2115 

32^36 

1 

IDLEADR(3 

2CADR 

DAPIDLER 

C0097 

R-F 

4 

LAST 

467 

1 7 

2116 

34'-’06 

0 

0098 

REF 

40 

LAST 

469 

17 

2117 

3 7(44 

1 

CHKBITIO 

CAF 

BlTlO 

0099 

REF 

35 

LAST 

479 

17 

212O 

7 0077 

0 

MASK 

DAPBOOLS 

0100 

1 7 

212I 

0 OUO6 

1 

EXTEND 

0101 

REF 

1 

17 

2122 

1 2162 

1 

3ZF 

CHEKSTIK 

0102 

REF 

7 

LAST 

471 

1 7 

2123 

3 1 ' 007 

1 

CAE 

DELAYCTR 

0103 

1 r 

2124 

0 0006 

1 

EXTEND 

0104 

REF 

1 

17 

2125 

1 2416 

1 

3ZF 

XTRANS 

0105 

REF 

1 

17 

2126 

3 2571 

0 

CA 

MINTADR 

0106 

REf 

1 

1? 

2127 

54  062 

1 

IS 

TjETADR 

0107 

REF 

43 

LAST 

489 

17 

2130 

3 7(55 

1 

CA 

BITl 

0108 

1 ^ 

213I 

0 OOO6 

1 

EXTEND 

0109 

17 

2132 

02  O31 

1 

RAND 

31 

0110 

17 

2133 

0 0006 

1 

EXTEND 

0111 

REF- 

1 

17 

2134 

1 3504 

1 

3ZF 

2JETS+0 

0112 

REF 

E6 

LAST 

a89 

1 r 

2135 

3 7(54 

0 

CA 

8112 

0113 

17 

2136 

D 0006 

1 

EXTEND 

0114 

1 7 

2137 

02  O31 

1 

RAND 

31 

0115 

1 F 

2140 

0 0006 

1 

EXTEND 

0116 

REF 

1 

1 7 

214I 

1 3331 

1 

3ZF 

2JETS-Q 

0117 

REF 

24 

LAST 

468 

1 T 

2142 

3 7(51 

0 

CA 

BITS 

0118 

17 

2143 

0 OOO6 

1 

EXTEND 

0119 

1 7 

2144 

02  O31 

1 

RAND 

31 

0120 

17 

2145 

0 0006 

1 

EXTEND 

0121 

REF- 

1 

17 

2146 

1 3470 

0 

3ZF 

2JETS+R 

0122 

REF 

36 

LAST 

463 

17 

2147 

3 7(50 

1 

CA 

B1T6 

0123 

17 

215O 

0 OOO6 

1 

Extend 

0124 

1 / 

215I 

02  O31 

1 

RAND 

31 

0125 

17 

2152 

0 0006 

1 

EXTEND 

0126 

REF 

1 

17 

2153 

1 3270 

0 

3ZF 

2JETS-R 

0127 

REF 

2 

LAST 

493 

1 F 

*2154 

1 2416 

1 

TCF 

XTRANS 

USER'S  O'YN  PaGt  No*  3 t6 

ATT  HOLD  BIT  NOt  PRESENT.  CHeC<  FOR  AUTO 

AUTOMATIC  steering,  CHECK  FOR  RATE  HOLD 
IF  MODE  SELECT  3W  OFF  DO  OAPIDLfR  NEXT 

BIT10=1  FOR  MIN  IMP  USE  OF  RHC 

IN  ATT-HOLD/RATF-COMMAND  if  BITiO=0 
SET  TO  2 BY  RUPt  10 


488954/^  YJL  S'*  s’!  Em  fOr  AGC!  mEW  P|^OG:^i\M  SMtPATl(g  BY  EYLEs 


L 3,R-AXEb  KEACiION  CoNiROL  S Ys  i e *1^  ^UJOP  I LO  1 


0128  rEf  1 17.219^  3 2^60  0 MinTJET  CAp 

0129  REF  2 LAST  464  17.2156  55*611  1 TS 

0130  REF  166  LAST  A89  17,2157  3 7^61  0 CA 

0131  REF  8 LAST  493  17,2160  55'L07  0 T5 

0132  ref  1 17,2161  1 2462  1 1 CF 

0133  REF  32  LASi  466  17,2162  3 7 ^7  0 CHEkSTIk  CAF 

0134  17,2163  0 06*06  1 EXTEND 

0135  17,2164  02  O31  1 RAND 


0136  1 ? ,2166  0 OOO6  1 

0137  REF  1 17,2166  1 2231  1 

0138  REF  44  LAST  493  17,2167  3 7^55  1 

0139  REF  36  LAST  493  17,2170  7 06*77  0 


EXTEND 

3ZF 

CA 

MASK 


0140  17,2171  0 0006  1 EXTEND 

0141  REf  2 last  493  17,2172  6 2620  1 3ZMF 

R0142  WE  4'ERE  in  rate  COMMAND  AND  RATES  MUST  BE  MADE  SMALLER 


R0143 


0144 

REF 

17 

LAST 

483 

17,2173 

3 l‘*16 

0 

CA 

0145 

17,2174 

0 0U06 

1 

EXTEND 

0146 

17,2176 

7 0000 

0 

SQUARE 

0147 

REF 

73 

LAST 

492 

17,2176 

52  062 

1 

OXCH 

0148 

REF 

6 

LAST 

492 

17,2177 

3 1417 

1 

CA 

0149 

17,2200 

U 0006 

1 

extend 

0150 

17,2201 

7 OOOO 

0 

SQUARE 

0151 

REF 

74 

LAS  r 

494 

17,2202 

20  062 

1 

OAS 

0152 

REF- 

9 

LAST 

492 

17,2203 

3 1421 

1 

CA 

0153 

17,2204 

0 0O06 

1 

EXTEND 

0154 

17,2206 

7 0000 

0 

SQUARE 

0155 

REF 

75 

LAST 

494 

17,2206 

20  062 

1 

DAS 

R0156  WE  ND.'i  l-iAv'E  SuUARED  MAGNItUDe  jF  RATE  VECTOR  IN  ITEMPi 

0157  REF  1 17,2207  4 2665  1 CS 

0158  R-F  76  LAST  494  17,22l0  6 OO6I  0 AD 

0159  _ 17,2211  0 0006  1 EXTEND 

0160  R:,F  1 1 7,2212  6 2220  0 3ZMF 

ROI6I  the  RATE  IS  not  SMAl.  ENOUGH  YET. 


0162 
0163 
n 1 ic/. 

REF 

REF 

D ric 

7 

1 

1 n 

LAST 

494 

1 7 
1 7 

V i 6h 

K _r 

i.  W 

LA  3 1 

494 

17 

0165 

REf 

1 

17 

0166 

REF 

1 

17 

,2213  3 1417  1 CA 

,2214  55*424  0 TS 

,2216  3 1421  1 CA 

,2216  55*425  1 TS 

,2217  1 2264  1 TCF 


0167  ref  45  LAST  494  17,2220  4 7755  0 RATESMAL  CS 


♦rOTjMIN 

TuR 

ZERO 

DELAYCTR 

TORQUEV 

Bills 

31 


RhCACTiV 

BlTl 

DAPBOOLS 


ATTsTEER 


OMEGAP 


ITEMPI 

OMEGAQ 


ITEMPI 

OMEGAR 


ITEMPI 


16/32400 

ITEMPI 


RATESMAL 


OMEGAQ 

QRATEDIF 

OMEGAR 

RRATEDlF 

OBEYQRRC 

BlTl 
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USeR*S  own  PAGp  NO.  4 E6 


OUT-OF-DETENT  b’T 
BITS  INVERTED 

BRANCH  IF  OUT  Of  DETENT 
OUR  RATE  COMMAND  BIT 


automatic  stefrtng,  check  for  Rate  hOld 


1 DEG/SEC  scaled  at  pi, pi/16 
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L D,R-A>^ES  KEaCUoN  CoNikoL  SYSIE'I  'AUTOPILOT 


USER'S  OWN  PAGf  no.  S 


E6 


0168 

ref 

37 

LAs  I 

494 

17 

*2221 

0169 

REF- 

38 

LAST 

495 

17 

*2222 

0170 

REF 

32 

LAS  1 

479 

17 

*2223 

01  71 

REF 

8 

Last 

479 

17 

*2229 

0172 

REF 

17 

LAST 

491 

17 

*2223 

0173 

REF 

5 

LAST 

479 

1 '/ 

*2226 

0174 

REF 

15 

LAST 

491 

17 

*2227 

0175 

REF 

3 

LAST 

471 

1 7 

*2230 

0176 

REF 

A6 

LASI 

494 

17 

*2231 

0177 

REp 

39 

LAST- 

495 

17 

*2232 

0178 

17 

*2233 

0179 

REF 

3 

LAST 

493 

17 

*2239 

ROIBO 

COMPUTE 

RATL 

ERRORS 

*2235 

0181 

Kc,r 

3 

LAST 

472 

17 

0182 

17 

*2236 

0183 

REF 

13 

LAST 

489 

17 

,2237 

0184 

RwF 

1 

1 7 

7 0077 
54  O77 

0 

0 

mask 

IS 

DAPBOOLS 

DAPBOOLS 

33  O32 

0 

CAE 

COUX 

5 4 7 6 6 

1 

TS 

CDUXD 

33  O33 

1 

CAE 

cduy 

5 4 767 

0 

T S 

CDUYD 

33  034 

0 

CAE 

CDUZ 

54  770 

0 

TS 

CDUZD 

3 7755 

1 

RaCACTIV  CAF 

BlTl 

7 OO77 

0 

mASk 

DAPBOOLS 

0 OOO6 

1 

tA  1 LNU 

1 2916 

1 

3ZF 

XI RANS 

33  042 

1 

^AE 

Q-RFICCTR 

0 0O06 

1 

EXTEND 

7 7 745 

3 2572 

1 

0 

MP 

CA 

BIT9 

-.88975 

rate  command  bit  bET  TO  ZErO 


LET  P AXIS  SET  the  KATE  COMMAND  BIT 


0185 

0186 

REF 

96 

LAST 

491 

0187 

REF 

8 

LAST 

494 

0188 

REF 

2 

LAST 

494 

17,22A1 
17 ,22A<i 
17.22A3 
17i22AA 


0 0U06  1 
7 0001  1 
6 1‘'17  i 
S5'A2A  0 


EXTEND 
MP  L 

AD  OMEGAQ 

IS  ORATEDIF 


0189 

0190 

0191 

0192 

0193 
019A 

0195 

0196 

R0197 

0198 

0199 

0200 
0201 
0202 
0203 
020A 


0205 

0206 


0207 

0208 

0209 

0210 


rEF  3 last  A72 

REF  14  LAS'i  495 
REF  2 LAST  495 

REF  97  LAST  495 
REF  11  LAST  494 
REF  2 LAS!  494 


ZErO«EnaBLE*AnD  STArT 
REF  167  LAST  494 

REF  4 LAST  472 

REF  4 LAST  495 

REF  4 LAST  495 

REF  1 


REF  1 

REF  2 LAST  493 

REF  3 LAST  495 

REp  1 
REF  1 
REF  1 


2243 

2246 

2247 

2250 

2251 

2252 

2253 
225A 


COUnTEr; 
2253 

2256 

2257 
2260 
2261 
2262 
2263 


2269 

2265 

2266 
2267 

2270 

2271 


33  O44 

1 

CAE 

R-RHCCTr 

0 0006 

1 

EXTEND 

7 7745 

1 

MP 

B1  T 9 

3 2572 

0 

CA 

-.88975 

0 OOO6 

1 

EXTEND 

7 OOO 1 

1 

MP 

L 

6 1421 

1 

AD 

omegar 

55*925 

1 

TS 

RRATEDIF 

99 

3 7 761 

0 

CAF 

ZERO 

5 4 O43 

1 

TS 

P-RFICCTR 

54  042 

0 

TS 

Q-RHCCTR 

54  044 

0 

TS 

R-RHCCTR 

3 2366 

0 

CAF 

B 1 T 8 * 9 

0 0006 

1 

EXTEND 

0 5 013 

0 

WOR 

13 

3 2611 

0 

OBLYCjRRC  CA 

RT  JFTADR 

54  062 

1 

IS 

TJETADR 

11*924 

0 

CCS 

ORATEDIF 

1 2^30 

1 

TCP 

POSqEROR 

1 2‘772 

0 

T CF 

NOQJFTS 

1 2^77 

0 

TCF 

NEGOEROR 

-Q  RATE  COMMAND  SCALED  AT  PI/4 


-R  RATE  command  SCALED  At  PI/4. 


48895^A  YJL  SYSTEM  FOR  AGO:  Ne«Y  PKQO^AM  SMePATIN  BY  eYLeS 


L 3»R-AXt:s  reaction  CoNIrCjL  SYslEvj,  AUToPlLoT 


0211 

REF 

3 

LAST 

495 

0212 

REF 

1 

0213 

REF 

4 

last 

495 

021A 

REF 

1 

0215 

REF 

5 

LAST 

496 

0216 

REF 

4 

LAST 

473 

0217 

0218 

REF 

2 

LAST 

495 

0219 

REF 

4 

LAST 

496 

0220 

REE 

1 

0221 

REf 

1 

0222 

REF 

1 

0223 

REF 

4 

LAS  1 

495 

0224 

REe 

1 

0225 

REF 

4 

LAST 

473 

0226 

0227 

REF 

2 

LAST 

493 

0228 

REF 

1 

0229 

REF 

5 

LAST 

496 

0230 

0231 

RaF 

2 

LAST 

496 

0232 

REF 

1 

0233 

RiF 

1 

0234 

REF- 

6 

LAST 

496 

0235 

0236 

REF 

3 

LAST 

496 

0237 

REF 

1 

0238 

0239 

REF 

5 

LAST 

496 

0240 

ref 

1 

0241 

REF 

7 

LAS  I 

496 

0242 

0243 

REF 

3 

LAST 

496 

0244 

REF 

6 

LAST 

496 

0245 

RaF 

1 

0246 

ref 

1 

0247 

ref 

1 

0248 

REF 

5 

LAST 

496 

0249 

REf 

2 

last 

496 

0250 

REF 

5 

LAST 

496 

0251 

0252 

REf 

2 

LAST 

493 

1 7,2272 

11*425 

1 

NOQJETS 

CCS 

17,2273 

1 2357 

0 

T CF 

1 7*2279 
17 ,227S 

1 2916 
1 2370 

1 

TCF 

0 

TCF 

17,2276 

1 2916 

1 

TCF 

17*2277 

6 1976 

0 

negoeror 

AD 

17,2300 

0 OOO6 

1 

Extend 

17,2301 

6 2^72 

1 

BZMF 

17,2302 

11*925 

1 

CCS 

17*2303 

1 2314 

1 

TCF 

17,2304 

1 2306 

1 

T CF 

17,230s 

1 2321 

1 

TCF 

17*2306 

4 1924 

0 

Q-NORJTS 

cs 

17*230  7 

55*940 

1 

TS 

I7*23l0 

6 1977 

1 

AD 

17*23ll 

0 0006 

1 

EXTEND 

17,231E 

6 3SO4 

0 

BZMF 

17,2313 

1 3SO2 

1 

TCF 

17*2319 

6 1976 

0 

R+Q-Ch<R 

AD 

17*23lS 

3 0006 

1 

EXTEND 

17*2318 

6 2306 

0 

BZMF 

17, 23  IT 

0 3S65 

1 

TC 

1 7 *2320 

1 3917 

1 

TCF 

17,2321 

6 1976 

0 

R-O-CHKR 

AD 

1 7,2322 

3 OOO6 

1 

Extend 

17,2323 

6 2306 

0 

BZMF 

17,2329 

0 3S6I 

0 

TC 

1 7, 232s 

3 0006 

1 

EXTEND 

17,2326 

51*925 

0 

SU 

17*2327 

1 3944 

1 

ICF 

17,2330 

6 1976 

0 

POSqEROR 

AD 

17,2331 

0 OOO6 

1 

1 

extend 

1 7 , 2 3 3E 

6 2l!72 

BZMF 

1 7,2333 

11*925 

1 

CCS 

17 ,2339 

1 2345 

0 

TCP 

17,233s 

1 2337 

0 

TCF 

17,2336 

1 2352 

0 

TCF 

1 7*2337 

3 1924 

1 

0+NORJTS 

CA 

17,2390 

55*940 

1 

T5 

17,2391 

6 1977 

1 

AD 

17*239-1 

1 7 ,2343 

3 0006 

6 3331 

1 

0 

EXTEND 

BZMF 

RRATFDIF 
R+  »CHKDB 

XlRANS 

R-»CHKDB 

XTRANS 

-ratedb 

NOQjETS 

RRATEDIF 

R+O-CHKR 

Q-NORjTS 

R-O-CHKR 

QRATFDIF 

ratfdif 

-2JETLIM 

2JETS+Q 

AJETS+Q 

-RATEDB 

O-NORjTS 

EUOTVGEN 

2-V.RATE 

-ratedb 

Q-NORjTS 

EDOTUGEN 

RRATEDIF 

2+U.RATE 

-ratedb 

NOQJETS 

RRATEDIF 

R+Q+CHKR 

Q+NORJTS 

R-Q+CHKR 

ORATEDIF 

RATEDIF 

-2JETLIM 


2JETS-Q 


Dec  1a,  1966  (MAIN) 
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CHECK  SIGN  OE  RaTE  ERROR  AND  GET  ABVAL 
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L 3,R-A\tS  KEmCHON  COMiKuL  SVSrt^  AUTOPILOT 


0253 

rff 

1 

17 

.234H 

1 3^27 

0 

TCF 

4jETs-0 

0254 

REF- 

8 

LASl 

496 

1 

2345 

6 1476 

0 

R+0+CH<R 

AD 

-RATFDB 

0255 

17 

2346 

0 0006 

1 

EXTEND 

0256 

REF 

2 

LAS! 

496 

1 

234  7 

6 2337 

1 

3ZMF 

Q+NORJTS 

0257 

REF- 

2 

LASl 

496 

17 

2350 

0 3561 

0 

TC 

EDOTUGEN 

0258 

REF 

1 

1 

2351 

1 3307 

1 

TCF 

2-U.RATE 

0259 

REF 

9 

LAS  I 

497 

17 

2352 

6 1476 

0 

R-Q+CH<R 

AD 

-katedb 

0260 

1 

2353 

0 0O06 

1 

EXTEND 

0261 

REF 

3 

LAST 

49  7 

1 

235A 

6 23  3 7 

1 

3ZMF 

(O  + NOR  JTS 

0262 

REF 

2 

LAST 

496 

1 7 

2355 

0 3565 

1 

TC 

edotvgen 

0263 

REF 

1 

1 7 

2356 

1 3350 

0 

TCF 

2+V.RATE 

02  64 

REF 

10 

LAST 

497 

17 

235  7 

6 1476 

0 

R+ ,CUKDB 

AD 

-ratedb 

0265 

1 7 

2360 

0 0006 

1 

EXTEND 

0266 

REF 

6 

LmST 

496 

1 7 

23b  ^ 

6 2416 

0 

BzMF 

X 1 KANS 

0267 

REF- 

7 

LAST 

496 

17 

2362 

3 1425 

0 

CA 

RRATEDIF 

0268 

REF 

3 

LAST 

496 

1 7 

2363 

55*440 

1 

TS 

RATEDIF 

0269 

KrF 

6 

LASl 

496 

17 

2364 

6 1477 

1 

AD 

-2 JFTLIM 

0270 

1 7 

2365 

0 0006 

1 

EXTEND 

0271 

REF 

2 

LASl 

493 

17 

2366 

6 3270 

1 

3ZMF 

2JETS-R 

0272 

REF 

1 

1 7 

236  7 

1 3^66 

1 

TCF 

4 JETS-R 

0273 

REF 

11 

LAST 

497 

1 

2370 

6 1476 

0 

R-»CHKDB 

AD 

-RATEDB 

0274 

n 

237 1 

0 OOO6 

1 

extend 

0275 

REF 

7 

LAST 

497 

17 

2372 

6 2416 

0 

3zMF 

XTRANS 

0276 

REF 

8 

LAST 

497 

17 

2373 

4 1425 

1 

CS 

RRATEDIF 

02  77 

R EF 

4 

LAST 

497 

17 

2374 

5 5 • 440 

1 

T S 

RATEDIF 

0278 

REF 

7 

LAST 

497 

17 

2375 

6 1477 

1 

AD 

-2JETLIM 

0279 

17 

2376 

0 0O06 

1 

extend 

02  80 

REF 

2 

LAST 

493 

17 

237  7 

6 3470 

1 

3ZMF 

2JETS+R 

0281 

REF 

1 

17 

2400 

1 3466 

1 

TCF 

4JETS+R 

0282 

REF 

5 

LASl 

497 

1 7 

2401 

11  *440 

1 

R TJETIME 

CCS 

raTfdif 

0283 

REF 

133 

LASl 

487 

1 7 

2402 

6 7'55 

1 

AD 

ONE 

02  84 

17 

2403 

1 2405 

0 

TCF 

+ 2 

0285 

REF 

134 

LAST 

497 

17 

2404 

6 7(55 

1 

AD 

ONE 

0286 

o r k 

17 

2405 

0 OOO6 

1 

EXTEND 

0287 

1 

17 

2406 

7 0 0 6 6 

0 

MP 

1/NJETAC 

0288 

17 

2407 

0 0O06 

1 

EXTEND 

0289 
n 5 on 

REF 

D rp 

30 

last 

1 ACT 

470 

17 

2410 

7 7(52 

1 

VIP 

B1T4 

K C r 

98 

LAb  1 

495 

1 7 

24 1 T 

30  OOl 

0 

CAE 

L 

0291 

17 

2412 

0 0006 

1 

EXTEND 

0292 

REF 
o z w 

1 

1 > 1 C '1 

17 

2413 

7 2561 

0 

VIP 

25/32. OR 

0293 

K 

3 

L.  A b I 

494 

1 7 

2414 

5 5 ' 6 1 1 

1 

T S 

TuR 

0294 

REF 

2 

LAST 

494 

1 7 

2415 

1 2462 

1 

TCF 

torquev 
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scaled  at  PI/A  rADIANS/SeCOND 
ABS(RATEDiF) 

SCALED  AT  2t8>/Pl  SpCOND (2 ) /RAD  I ANS 
SCALED  AT  2(3)  AECONDS 


TJET  NOW  PROPERl  Y SCALED  IN  A 
AT  2 (A) 16/2S  SEf  ONDS 


i 


^8895AA 


L 

P029b 

R0296 

R0297 

R0298 

R0300 

R0302 

R0304 

R0306 

R0308 


R0309 

R0310 

R0311 

Ro312 

R0313 

R031A 

R0315 

R0316 

R0317 

R0318 

0319 

0320 

0321 

0322 

0323 

032A 

0325 

0326 

0327 

0328 

0329 

0330 

0331 

0332 

0333 

0334 


yjL  SySlEM  pOR  f’tw  pRO&RAvi  5R*EpATlN  ay  EyLPS  DEC  lei,  1966  (^AIN)  pA^E  496 


d,r_a\e6  Reaction  conikul  syste''''  autopilot  useR'S  own  pagf  no.  a e6 

DAPSECTiOfsi:  XTrAnS  M^D.  nO.  1 DATE;  NOVEMBER  20»  1966 

aJthor:  John  s.  bliss  (aDaM6  associates) 

M3DIFichtio\  by:  Jonathan  d*  adoeLsion  (aoams  associates) 

X-AxIS  iRANSLATION  logic  (IN  [RE  AysENSE  OF  o,R-AxIS  ROTATION)  IS  INITIATED  IN  TH£  "xTRaNS”  SECTION. 

xtrans  hrst  Sets  addilte  ano  aoduJts  to  Zero  for  use  by  "jtlst"  and  "teJob"  when  thfy  are  called,  it  then 
CHeC<S  tor  plus  or  minus  X translation  ReOUeStS  FROM  tHe  ASTRONAUT'S  StICK.  IF  NONe  IS  ReQUeSteU  IN  THAT  WAY* 
THE  JLLAge  6lT  Op  DApBOOLS  IS  CHeCkeD,  (NOTE  THAT  THE  ORDER  Op  THE  TESTS  ALLOWS  THe  AStRONauT  TO  OVERRIDE  T He 
internal  ullage  ReOUeSt.)  If  NO'  IRANSLATION  IS  ReQUeSteD,  ALL  Q,R-AXIS  JeTS  ARe  tURNeD  OFF  AND  tHe  INTfRRUPT 
IS  TERMiNATED. 


Calling  seQ-'enCe:  none*  sobroutines  called:  +/-trans 

NORMAL  tXiT:  1.  IF  NO  TRANSLAIION:  RESUME. 

2. IF  Some  tranSlaiion:  +/-trans. 


ALARM/ABORT  MODE:  NONE. 


INPUT:  UlLAGER/DAPBOOLS.BII S7.8/CHANNEL  31. 


output:  CIANYtRANS) 
C(ANYtRANS) 
C (TRANSNOW) 
CCTRANOMLY) 


negmax  -or  +x 

POSMAX  -OR  -X 
C(TRANSAVt)  = 
PN2. 


TRANSLAl ION. 
TRANSLATION, 

♦0. 


debris: 

A . L • 

K:::r 

1 CB 

LaSI 

495 

17 .2418 

3 7^61 

0 XTRANS 

C AF 

ZERO 

PICK  UP  ZERO  AND  INITIALIZE 

REF 

7 

LAST 

48  ! 

17,2417 

55' A74 

0 

TS 

ADDTLT6 

REF 

6 

LASi 

487 

1 7,2420 

55'A73 

1 

TS 

ADDT6JTS 

REF 

4 

LAST 

497 

17,2421 

55*811 

1 

IS 

TuR 

A ZERO  OF  JET  TiME  FOR  THE  TORQUE  VExTOR 

REF 

30 

LAST 

49l 

17 .2422 

3 7 747 

1 

CAF 

BI  T7 

IS  PLUS  X TRANSlATlON  DESIRED 

17,2423 

0 0006 

1 

extend 

1 7 , 242 A 

02  O31 

1 

RAND 

3 1 

CHANNEL  31  BITS  INVERTED 

1 7, 242s 

0 0006 

1 

EXTEND 

REF 

1 

17,2428 

1 2A44 

0 

3ZF 

+XORULGE 

YES,  +X 

REF 

15 

LAST 

454 

17,2427 

3 7 7^6 

0 

CAF 

BITS 

NO,  IS  miinus  x translation  desired 

17,2430 

0 0006 

1 

EXTEND 

17, 243 I 

02  O3 X 

1 

RAND 

31 

CHANNEL  31  BITS  INVERTED 

1 7 ,243Z 

0 0O06 

1 

EXTEND 

REF 

1 

17,2433 

1 2A46 

1 

3ZF 

-XTRANS 

YES,  -X 

REF 

37 

LAST 

493 

17,2434 

3 7750 

1 

CAF 

B1T6 

NO,  IS  ULLAGE(+X  TRANSLATION)  DESIRED 

REf 

40 

LAST 

495 

17,243s 

7 OO77 

0 

mask 

DAPBOOLS 

48895^A  YJL  5Y31EM  I^OR  AGC;  NE^^  PRO^'RAM  SHtPATIN  3Y  fcYLES 


u 

0,R' 

-axe 

s React  ion 

control  SYS 

0335 

REF 

291 

LAb  1 

98  7 

17 ,2930 

0336 

REF 

2 

LAST 

998 

1 7,2937 

0337 

REF 

1 69 

LASl 

998 

1 7 ,2990 

0338 

17,2991 

0339 

17,2992 

03A0 

REP 

31 

LAS  I 

993 

1 7*2993 

03A1 

REP 

7 

LAS  1 

981 

17,2999 

03A2 

17,2993 

03A3 

REF 

27 

LAST 

98l 

17*2998 

03AA 

REp 

1 

17,2997 

0395 

REF 

1 70 

LAST 

999 

17 , 2 9 5 0 

0396 

REF 

1 

17,2951 

0397 

REP 

1 

17,2952 

0398 

17,2953 

0399 

REf 

1 

17,295A 

0350 

KrF 

1 

1 7 ,2953 

0351 

17,2^56 

0352 

REF 

2 

LAST 

978 

0353 

17,2957 

C0353 

REF 

1 

17,2960 

lE*^  ^UTOPlLOr 

n Uoo  0 CCS  A 

1 0 TCP  +XORULGE 

3 7^61  0 CAP  zero 

0 0^06  1 EXTEMu 

01  U05  0 aiRITE  5 

1 5T51  0 TCP  RESUME 

3 7T37  0 +XORUL&E  CAP  NEGMAx 

1 2Aa,7  0 TCP  +2 

3 7735  1 -XTRANS  CAP  PoSMAX 

5'+  U71  0 TS  AryTRANs 

3 7761  0 CAP  Zero 

5A  U72  0 TS  TRANSNOW 

5<t  U73  1 TS  TRANSAVE 

0 OUO6  1 EXTEND 

3 2A60  1 OCA  JIPOLADR 

5A  070  1 TS  TRANONLY 

52  006  0 OTCB 

E6  Et3ANK=  JlSONNOW 

02^16  1 JTPOLADR  2CA0R  +/-XTRAN 
AOOO6  0 
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YES,  ULLAGE 

SINCE  NEIIHER  ROTATION  NOR  TRANSLATION 
ARE  needed*  turn  OFe  ALL  UETs  FOR  ThE 
Q,R-AXE5. 


PLUS  translation  OR  ULLAGE  DeSIrED; 

LOAD  NEGMAX  in  a ANd  SKIP  NEXT  OPCODE  TO 

-X  TRANSLATION  DESIRED,  A = POS-iAX,  AND 
load  ANYTRANs  with  A(NEG/pOs  mAX) 

INITlALIZt  TRANaNOW  AND  TRANSAVF  WITH 
ZERO  POR  USE  IN  THE  UET  POLICY  SELECTION 
PROGRAM. 

SET  UP  2CADR  FOR  TRANSFER  TO  +/-XTRAN, 

STORE  POSITIVE,  NON-^ERO  S-ReGIsTER  IN 
TRANONLY.  AFTER  ♦/-XT  RAN,  GO  TO  UTLST. 


TRANSLATION  ONLY  ENTRY  TO  UET  POLICY 


‘♦8895^A  YJL  SYSieM  FOR  AGC : NeW  PROt>:iaM  SHlPAYIN  BY  eYLeS> 
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L 

P035A 

R0356 

0357 


0358 

0359 

0360 

0361 

0362 

0363 
036A 

0365 

0366 

0367 

0368 

0369 

0370 

0371 

0372 


0373 

037A 

0375 

R0376 

R0377 

0378 

0379 

0380 

0381 

0382 

0383 
038A 

0385 

0386 

0387 

0388 

0389 

0390 

0391 

0392 

0393 
039A 

0395 

0396 

0397 

0398 

0399 


3*R-A\£s  reaction  CoNIrOL  SYSI  Evl,  AUToPILoI  USER’S  OWN  PAGE  NO*  10  E6 

DO  neCebsary  parts  of  q,r_axe3  iqRoue  Vector  reconstruction  heRe  and  now,  for  other  parts  wait  until  the  Next 

P-AXIS  PCS  DAP  T5RUP1  . 

REF  5 LAST  A98  l7*2A6l  55'Pll  1 NORMRETN  TS  TuR 


ref  6 last  500 
REF  2 LAST  A9A 

REF  1 

REF  171  last  999 
REF  15  last  987 
REF  8 LAST  997 
REp  T LAS)  500 
REF  16  LAS)  500 
REF  1 

REF  1 

REF  3 LAST  999 
REF  2 LAST  962 
REF  32  LAST  999 


17.2962 

17.2963 

17.2969 

17.2965 

1 7.2966 
17,296  I 

17.2970 

17.2971 

17.2972 

17.2973 
17,2979 

17.2975 

17.2976 

17.2977 
17,2500 


9 1611  1 
6 2560  0 

0 OOO6  1 
6 2971  1 
3 7761  0 

55*975  1 

1 2916  1 
3 1611  0 
55'975  1 
6 2557  1 
0 0006  1 
6 2502  1 
3 1971  1 

0 6015  0 

1 5751  0 


TOROUEV 


ToRoTTmI 


TUR 

+1 6TJMIN 

TORGTTMI 

ZERO 

TUFJTCHG 

XTRANS 

TqR 

TUFJTCHG 

-1.5CSP 

DOQRSKIP 
JT  SONNOW 
WRITEQR 
RESUME 


CS 

AD 

EXTEND 

SZMF 

CA 

TS 

TCF 

:A 

IS 

AD 

EXTEND 

3ZMF 

CA 

TC 

TCF 


CALCULATED  0,R  JET  TIME  (AS  IN  tIME6) 
CORRECT  BRANCm. 

BRANCH  FOR  1 OR  = OR  GREATER  THA j MINIMP. 

SINCE  TOR  less  than  A MINIMUM  I 'PULSE, 
SEE  IF  TRANSLATION  IS  DESIRED  . 


TURN  UN  OR  JETS  USING  T6J0B  SUBROUTINE. 


REF  1 17.2501  32073  1 
REF  1 1 7,2502  3 2501  1 
REF  3 LAST  992  17,2503  55*697  1 


5<IPQRAD  GENADR  SMPQRAX 
DOQRSKIP  CA  SKIPORAD 

TS  QJUMPADR 


CHANGE  S.ET  ON  AND  OFF 
CHANNEL.  I He  CHANGE 
REF  9 last  500 


REF 

REF 

REF 

REF 


1 

33  LAST  999 

5 last  500 
99  LAST  997 


REF  1 
REF  8 LAST 
REF  28  LAST 


987 

999 


REF 

REF 

REF- 

REF 

RSF 

REF 

REF 


1 

1 

17  LAST  500 
1 

100  last  500 

39  LAST  bOO 
9 LAST  500 


BITS  To  account  for  THE  PR 
i ACCOON]  For  PURE  ROTATION 
3 1971  1 
0 0006  1 
02  005  0 
0 0006  1 
1 2535  1 

6 7737  0 
0 0006  1 
61*971  1 
59  001  1 
0 0006  1 
1 2592  1 


2509 

2505 

2506 

2507 

2510 

2511 

2512 

2513 

2519 

2515 

2516 

2517 

2520 

2521 

2522 

2523 

2529 

2525 

2526 

2527 

2530 


31*972  1 TRSLTMN2 
7 7735  0 

0 OOO6  1 

1 2526  0 
3 2570  1 

27*975  1 

1 2552  0 

9 OOOl  1 NOTRANS 

6 7737  0 
57*972  1 


FSENT  STATE  OF  THE 
ONLY-  not  translation, 
CA  JTSONNOW 

EXTEND 
RAND  5 

EXT  END 

3ZF  NOQRON 

AD  B1T15 

EXTEND 

SU  J I SONNOW 

TS  L 

EXTEND 

3ZF  JTSAREON 

CAE  JTSATCHG 


MASK 

EXTEND 

3ZF 

CA 

ADS 

TCF 

C5 

AD 

XCH 


POSMAX 

NOTRANS 

19-TQRMN 

TOFJTCHG 

TOJTLST 

L 

B1T15 

JTSATCHG 


= JETS  WHICH  ARf  to  GO  ON  NOW. 

MASK  THE  CHANNEI  WITH  THE  DESIRpD  STATE 
A IS  zero  if  no  jets  to  go  on  Are  on. 

MAKE  difference  CORRESPOND  TO  A OR  JET. 

RESULT  IS  COMPLfMENT  OF  JET  BITS  WHICH 
are  to  be  on  (-OR  6*5MS  MORE  THAN  CALC 

A=0,THUS  ALL  JETS  TO  GO  ON  ARE  MOW  ON. 

REMOVE  BITI5  from  JTSATCHG. 

IF  JTSATCHG  = 0 THEN  NO  TRANSLATION  NOW 

INSURE  T GREATER  THAN  19  MS. 

MAKE  JET  BITS  CORRESPOND  TO  OR  AXIS. 
JTSONNOW  - L = JETS  ON  At  TOFJTCHG. 


ref  7 last  998  17,2531  55*973  1 TS  ADDT6JTS  JTS  ON  AT  TOFJTfHG  -fONDLLAY. 


A8895AA 

YJL 

System  fOr  agc 

: Ntw  pROCRAvi  S^EPATIN  BY  EYLES 

/^/-YMTur.i  cYciriA  AiiTrrrjTirTT 

L 

OAOO 

rEF  2 LA51  500 

v-ui’*  1 rvwL.  J • J 

17.2532 

C -1  ■ 1 

3 2570 

1 

-w  1 

CA 

T C 

19-TorMn 

A P»  T 1 T 

OAO  1 

Klt- 

B 

LHS  1 

17.2533 

55,979 

0 

1 b 

ADUT  LT  6 

0A02 

REF 

2 

LAST 

500 

17.253A 

1 2552 

0 

TCF 

TOJTLST 

0903 

REF 

3 

LAST 

501 

17.2535 

3 2570 

1 

noqron 

CA 

19-TQRMN 

T/.C.  IT 

0909 

REF 

18 

LAST 

500 

17 .2536 

2 7 * '♦75 

1 

ADS 

TUr  JT CHCj 

0905 

REF 

1V2 

LAST 

500 

17.2537 

3 7 761 

0 

CA 

ZERO 

0906 

ref 

9 

LAST 

501 

1 7.259O 

55''*79 

0 

TS 

AdDTlT6 

0907 

REF 

3 

LAST 

501 

17.2591 

1 2552 

0 

T CF 

TOJTLST 

0908 

REF 

10 

LAST 

500 

17.2592 

31'''72 

1 

JTSAREON 

CAE 

JTSATCHG 

0909 

REf 

2 9 

last 

500 

1 7 .2593 

7 7735 

0 

mAsk 

pusmax 

0910 

17.2599 

0 0006 

1 

EXTEND 

0911 

17.2595 

1 2550 

1 

3ZF 

+ 3 

0912 

REF 

1 

17 .2596 

3 2567 

1 

CAF 

MCOMPTOR 

0913 

REF 

19 

LAST 

501 

17.2597 

27'‘*75 

1 

ADS 

TOFJTCHG 

0919 

REF 

1 73 

LAST 

5OI 

I7.255O 

3 7 761 

0 

CA 

ZERO 

0915 

RcF 

i u 

LAS  i 

501 

17 .2551 

5 3 , *.79 

0 

1 S 

^UDT LI  6 

0916 

REF 

6 

last- 

500 

1 7,2552 

3 IA7I 

1 

TOUT  LSI 

CA 

JTSONNOW 

0917 

REF 

3 

last 

500 

17.2553 

0 6015 

0 

TC 

WRITEUR 

0918 

1 7.255A 

0 OOO6 

1 

EXTEND 

0919 

REF 

1 

17,2555 

3 2510 

1 

OCA 

Jl L5TADR 

0920 

17,2556 

52  006 

0 

OTCB 

092 1 

17,2557 

7 7 ♦♦  1 7 

0 

-1 . 5CSP 

DEC 

-0 . 0 1965 

0922 

1 7,2560 

00019 

1 

+T6TJMiN 

OEC 

+.00073 

0923 

17,2561 

31OOO 

0 

25/32. OR 

OEC 

0.78125 

0929 

17 .2562 

37776 

0 

MS20QR 

OCT  AL 

37776 

0925 

17,2563 

37775 

0 

MS30UR 

OCTAL 

37775 

0926 

17,256A 

37773 

0 

MS50QR 

OCTAL 

37773 

0927 

17 ,2565 

ooOlo 

0 

16/32900 

OEC 

0.00099 

0928 

1 7,2565 

00600 

1 

BITfa,9 

OCTAL 

00600 

0929 

17,2567 

77  765 

0 

MCOMPTOR 

OCTAL 

77765 

0930 

17 .257O 

OOO13 

0 

1 9-TQRMN 

OEC 

1 1 

0931 

REF 

1 

1 7 .2571 

02155 

1 

Ml  NT  ADR 

SEN ADR 

MINTJET 

0932 

1 7,2572 

93A'15 

0 

-.88975 

OEc 

-.889  75 

0933 

17,2573 

20OOO 

0 

(1-K) .OR 

OEC 

0.50000 

0939 

1 7.2579 

O2OOO 

0 

( 1-KG) /8 

OEC 

0.06250 

0935 

17 ,2575 

77557 

0 

-9OMS 

OEC 

-.00879 

0936 

17,2575 

O0‘:20 

1 

+ 90MS 

OEC 

0.00879 

0937 

1 7,2577 

77537 

0 

NEGCSP2 

OEC 

-.00977 

0938 

17 , 2 6OO 

90252 

0 

all+xjt  s 

OCT  AL 

90252 

0939 

17,2601 

00201 

1 

2,10-OUT 

OCTAL 

00201 

0990 

17,2602 

9OO92 

0 

+ X.A 

OCTAL 

90092 

099 1 

17 .2603 

902  10 

0 

+ X . B 

OCT  AL 

90210 

0992 

17,2609 

OOIO9 

1 

1,9-OUT 

OCTAL 

00109 

0993 

17,2605 

90109 

0 

-X.A 

octal 

90109 

0999 

1 7 .2605 

9OO2  1 

0 

-X  ,B 

OCTAL 

90021 

0995 

REF 

7 

LAST 

501 

E6 

eban<= 

JTSONNOW 

0996 

17,2607 

33AI5 

1 

JTLST ADR 

2CADR 

JTLST 

C0996 

REF 

2 

LAST 

985 

17 ,26l0 

39OO6 

0 

0997 

REF 

1 

1 7,26ll 

02901 

0 

RTJETADR 

SENADR 

RT  JETIME 

Dtc  13*  1966  (M^IN)  page  501 
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-10  MS  COMPUTATION  TIME 


K = 1/2 


488954A 


L 

POAA8 

RoAA9 

R0451 

RoA52 

Rqasa 

RoA56 

R0457 

R0A58 

R0A59 

0460 

0461 

0462 

0463 

0464 

0465 

R0466 

R046>8 

R0469 

R0470 

R0471 

R0472 

R0473 

R0474 

R0475 

R0476 

R0477 

R0478 

R0479 

R0480 


R048l 

R0482 

R0483 

R0484 

R0485 

R0486 

R0487 

R0488 


rJL  SYblEM  t-OR  A6C:  NEW  PR0C>RAVt  sHePAiIN  BY  eYLE.S 


DEC  U,  1966  (MAIN)  PAGE  502 


3*R-AXEs  reaction  CoNTRoL  SYsIEv)  AUToPILqT  USER'S  OWN  PAGr-  NO*  E6 

3,R-AXES  ATTITUDE  STEERING  C A .C JLAt I ONS : 

(pXeCJteD  when  LGC  is  in  aUTO'IAiI^  SCSMoDj;  oR  IE  5CSMoD£  IS  ATTIt^^D^  HqLD  AND  jH^  ROtAttONAI  HAND  ContRoLLeR  IS 

Neither  out  of  detent  nor  is  ihe  rate  command  bu  set  in  dapbools) 

immediately  after  calculating  tHe  attituDe  errors*  tHe  Following  tests  are  made  to  DeteR^i^e  whetHeR  tHe  DeSCeNt 
engine  trim  GIMBAL  SHOULD  BE  JSeD  TO  CONTROL  THe  LeH  ATTItUDe  RAtHeR  THAN  THe  RCS  JetS: 

1)  IS  the  trim  GIMBA-  functionally  operative? 

2)  are  the  Q.K-AxES  TCS  jets  OFF? 

3)  are  BOTH  TRIM  GlM3A_  oriveS  OFF? 

4)  IS  THE  Lem  rate  less  IHAN  .5  oeg/sec  about  both  axes? 

REF  1 17.2612  3 2^17  0 QoTqGTS  CaF  InITFILT  ERRqRS  NoW  ConTroLLaBLE  BY  TRIM  GIMBaL 

REF  13  LAST  A93  17.261S  55'UOO  1 TS  T5ADR  SET  T5RUPI  TO  Gn  TO  FILTER  INITIALIZING 

REF  33  east  500  1V,261A  1 5(51  0 TCF  RtSUME  PROGRAM 

17,26lS  OT400  1 BGIM24  OCTAL  07400 

REF  2 LAST  488  17,2616  03603  1 DESCADR  3ENADR  TJETLAW 

REF  1 17,2617  02UOO  0 INITFILT  GENADR  FILtINIT  ADDRESS  OF  FILTfR  INITIALIZATION  RUPT 

"attSteeR"  is  the  nominal  e'^try  puint  For  Reaction  control  system  attitude  steering: 

B-GIN  ATTSTEER  BY  CHECKING  IF  RATE  HOLD  MoDe (CURRENTLY  USeD  ONLY  AT  SIVB 
-l-EM  SEFARATION-206  MISSION  3HASE  6)  IS  REQUES  T LdIb  I T 14  OF  DApBOOLS  ON) 

IF  BIT  14  IS  OFF,  BRANCH  TO  OERRCALC  DIRECTLY  AND  BeGIN  AUTOMATIC 
steering.  IF  BIT  14  IS  ON,  TEST  BIT  3 OF  DAPBOOLS  TO  SEE  IF  THE  DeSIReD 
RATE  HAS  been  SAVED  YET.  IB  IT  I^  ON,  THIS  IS  NOT  THe  FIRST  PASS  AND 
the  rate  has  Been  sayel^.  go  oire'-tly  to  oeRRCalc  for  automatic  steering 
1=  THE  LIT  IS  OFF,  THE  KATE  MJST  ^e  SAVeD.  TRANSFER  TO  SaVeR ATE ( BANKAS ) 

AND  RETURN  AFteR  FIRST  PASS  TO  RESUME  AND  DaPIDLeR. 

IN  order  to  use  rate  hold,  THe  MISSION  PROGRAMMER  MUSt  Sei  BIT  14  OF 
DAPBOOLS  ON  AND  SET  BIT  3 oF  DA^BUOLS  TO  ZERO.  UPON  RETURNING  FROM  THe 
FIRST  PASS  AT  LeAST  THROUGH  RATE  MoLD,  tHe  MISSION  PROGRAMMER  MUST  RESET 
BIT  3 TO  ITS  PREVIOUS  VALUE  I-  THIS  IS  NOT  1»  BECAUSE  SAVERATE  SETS  BIT3 
TO'  1 FOR  ALI.  PASSES  AFTER  THe  FIRS?  ik  qRDER  NOT  TO  SAVE  THe  RATE  AGAIN. 


IN  addiiIon  to  non-rate  Hold  moOe  and  non-first  pass  rate  hold  mode 

EXITS  TO  UERRcALC*  THE  fIRST  3ASS  EXITS  TO  RESjmE,  IE.  OUT  Op  INTERRUPT 
AND  back  10  DaPIDLER  TO  AwAIt  THE  NEXT  CALL  TO  DA?. 

RATE  hold  Produces  the  following  output  in  erasable  — 

CDJD  - SCALED  AT  +/-PI  , DeSIReD  gIMBAL  ANgLE 

DELCuU  - SCALED  AT  ♦/-PI»  INCREMENT  TO  CDUD  EVERY  lOO  MS. 

OMEGAPD,  QD,  RD  - SCALED  AT  '•/"PI/4,  BODY  AXIS  RATES 
ALL  these  ARE  USED  b?  AUTOMATIC  Sl£ERIN(,  MODE  EQUATIONS. 


^88954A 


L 

R0489 

R0A90 

R0A91 

R0A92 

R0A93 

R0A9A 


0^95 

0A96 

0497 

0498 

R0499 

R0500 

R0501 

R0502 

R0503 

R0504 

R0505 

R0506 

R0507 

0508 

0509 

0510 

0511 

0512 

0513 

0514 


0515 

0516 

0517 

0518 


0519 

0520 

0521 

0522 

0523 

0524 
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3.R-A\eS  reaction  control  SYSie'I  autopilot  USER'S  OWN  PAGf  NO.  13  £8 

RATE  HOLD  REOUIRES  OMEGAP,  0,  R E^ERY  .25  SEC,  AND  ALSO  REQUIRES  PILOT- 
TD-GIMBAL  AXIS  MATRIX  ELEMENTS,  M^IE,  22,  13,  23  TO  BE  LOCATED  IN  THAT 
ORDER. 

FINALLY,  rate  HOLD  LEAVES  DE3R1S  Hi  -- 

DLCDUIDX  - LOOP  INDEX  UStD  IV  COMPUTING  DeLCDUS,  =1,0 

itempi  - Stores  temporary  ^rdd^cis  and  sums,  left  with  delcduy  in  is. 


ref  41  LAST  H98 
REF  35  LAST  493 
REF  242  LAST  499 
REF  1 

CHEC<  DaPBOOLS* 


17,2620  4 

U,262l  7 

17,262^  ID 
17,2623  1 

BIT3*  to  SEt  IF 


0077  0 ATTSTEER 
7740  1 

OOO  0 
2«560  1 

desired  RATE  HAS 


:s  dapbools 

MAS<  bIT14 

CCS  A 

TCP  OERRCALC 

3EEN  saved  yet 


DOES  BITlA  OF  DaPBOOLS  ReQUeST  RATE  HOLD 
(SIvb-LEM  SEPARATION) 

NO,  GO  DIRECTLY  10  AUTOMATIC  STEERING 


TD  COMPUTE  the  DeLCDJS,  Y ANO  i,  s,:  y jp  a LOOP  AND  SOLVE  THE  EQUATION 
CIDELCuUY  + dLCDUIDX)  = (OMEGAUD.C IHR12  + DLCDJIDX) +OMEGARD.C (MR  1 3 + DLCOUI DX ) ) 

.(iooms)  scaled  at  Pi  in  25  complement (Like  cdus) 


during  this  computation,  ITEM^I  I5  used  to  store  the  partial  sums  and 

PRODUCTS,  DELCDUY  IS  RESCALeD  TO  1 AS  MRl2  AND  MR13  ARE  SCALED  AT  2. 
after  Cl.NVLRTING  TO  T ftOS  COMs.eMeNTi  W£  SeT  DELCDUX  ro  ZERO  TO  AVOID  ANY 
ROLL  DUkIiVG  rate  HOLD  MODE.  VDTE  THAT  DELCDUS  ARE  COMPUTED  IN  THE  NEGA- 
TIVE TO  Allow  25  comp.  mod.  subtract  later  on  (cdu- (-delcdU) ) 


REF  135  LAST  497  17,262^  3 7^55  1 CAF  ONE  SET  UP  LOOP  INDrX  TO  COMPUTE  DEI CDUS. 

REF  1 17,2625  55'b45  0 NEXDLCDU  TS  DLCOUIDx  DLCDUIDX  = C(A) 


REF  2 LASl  455  17,262P  4 0^75  U CS 

17,2627  0 ODO6  1 EXTEND 

REF  2 LAST  503  17,2b30  5 1645  1 INDEX 

REF  3 last  123  17,2631  7 1^00  0 MP 

REF  77  LAST  494  17,2632  54  Obi  1 TS' 


OMEGAUD  DLCDUIDX  = 1 DLCDUIDX  = 0 

ITEMPl=-OMEGAOD.MR22 

DLCDUIDX 

MRI2  MR22  SCALED  AT  1 MR12  SCALED  AT  2 

I TEMPI  ITEMP1  = -0MESAQD.MR12 


REF 

3 

LAST 

455 

1 7,2633 

4 

0 776 

0 

CS 

17,2634 

0 

OOO6 

1 

EXTEND 

REF 

3 

LAST 

503 

17,2635 

5 

1645 

1 

INDEX 

REF 

2 

LAST 

123 

1 7,263S 

7 

IHO2 

1 

MP 

OMEGARD  C (A) =1  tempi  -uMFGARn.MR23 

DLCDUIDX  C(A)=1TEMP1  -OME  .iARD  . MR  1 3 

MRI3  MR23  SCALED  AT  1 MRU  SCALED  AT  2 


REF 

78 

LAST 

503 

17,2637 

6 0061 

0 

AD 

REF 

REF 

1 

79 

LAST 

503 

1 7 ,2640 

17.2641 

17.2642 

0 OOO6 
7 3374 
54  06l 

1 

0 

1 

EXT 

MP 

TS 

I TEMPI 

END  DELT  = 100  MS.  aCALfD  AT  4 SEC. 

lOOMSCAL 

ITEMPI  ITEMPI  = CIA)  . DELT 


REF  4 LAST  503  17,2643  il*045  0 CCS  DLCDUIDX  CHECK  INDEX  FuR  RESCALING 

17,2644  1 2647  1 TCF  +3  DELCDUz  SCALED  aT  PI/4,  RESCaLE  UNNEEDED 
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L 


0525 

0526 

0527 

0528 

0529 

0530 

0531 

0532 

0533 
053A 
0535 


0536 

0537 

0538 

0539 
05A0 
05A1 
05A2 
05A3 
05AA 
05A5 
05A6 
05A7 

05A8 

05A9 

0550 

0551 

0552 

0553 
055A 

0555 

0556 

0557 

0558 

0559 

R0560 

0561 

0562 

0563 
056A 

R0565 

0566 


3,r-axe^  rea^^tion  Control  sYsie*^  autopilot 


REF 

REF 


REF 

REF 


REF 

REF 

REF 


80  LASI 

81  last 


503 

50A 


REF  82  last  50A 
REF  136  last  503 
REF  1 


REF 

REF- 


REF 

REF 


5 last  503 
3 LAST  A55 


REF  6 LAST  50a 
REF  1 

REF  5 LAST  A55 
REF  18  LAST  a95 


6 last  A95 
83  LAST  50A 


REF  3 LAST  A92 
REF  3 LAST  A5 
REF  16  last  a95 


A LAST  A95 
35  LAST  a92 


REF  6 LAST  A92 
REE  a last  50A 
REF  A last  A89 

REF  Ba  last  50A 


3 LASI  A92 
15  last  Ab2 
36  LASI  sOA 


REF  5 LAST  A92 
REF  16  LAST  50A 
REF  3 Last  A6A 


17.26A5 

17,26A6 


17 

17 

17 

17 

17 

17 

1 t 
17 
17 

17 
17 
17 
17 
17 
17 
1/ 
17 
1 7 
17 
17 
17 

17 

17 

17 

17 
17 
17 
17 
17 
1 ! 
17 
17 
17 


26A7 

2650 

2651 
265<^ 
2653 
2b5A 


2660 

2661 

2662 

2663 

266A 

2665 

2666 
2 66  1 

2670 

2671 

2672 

2673 

267A 

2675 

2676 

2677 

2700 

2701 
2 702 
2 703 
270A 
2705 
2 706 
2707 


30  Obi  0 
26  Obi  1 


10  061  1 
6 7755  1 
1 2653  1 
A 0000  0 
51'6A5  1 
5A  772  1 


2655  11«6A5  0 

2656  1 2625  0 
2b57  5A  771  1 


CAE 

ADS 

CCS 

AO 

TCF 

COM 

Stodlcdu  index 

TS 

CCS 

TCF 

TS 


30  033  1 QERRCALC  CAE 


0 0O06 
2 0 767 
5A  061 
0 0006 
7 1A05 
ST'^+IS 
30  03ij 
0 0006 
20  770 
5A  Ob2 
0 0O06 


EXTEND 

VlSU 

TS 

EXTEND 

VIP 

XCH 

CAE 

EXTEND 

MSU 

TS 

EXTEND 


iTEMPi 

ITEMPl 

ITEMPl 

ONE 

STODLCDU 

DLCDUIDX 

DELCDUY 

DLCDUlDx 

nexolcdu 

DcLCDUX 

cduy 

CuUYD 
I TEMPI 

M21 

ER 

COUZ 

CDUzD 
I TEMP2 


7 l‘*01  1 
27'A13  1 
55*A67  1 


MP  M22 

Ads  ek 

TS  QLRROR 


30  061  0 
0 0006  1 
7 1A06  0 
57'A11  1 
30  062  0 
0 0006  1 


RERRCALC 


7 1^03 
27*A11 
S5'A70 


CAE 

EXTEND 

VIP 

XCH 

CAE 

extend 

MP 

ADS 

TS 


ITEMPl 

M31 

E 

ITEMP2 

M32 

E 

RERROR 


TEST  (U:  IS  THE  TrjM  GiMBAL  -JmCIiOnALLY  OPERATi\/E? 

REF 
REF 


REF 


LAST  A93 
LAST  503 
last  503 

1 7 *2710 
I7*27ll 
17,2712 

3 775A  0 

7 OO77  0 

10  GOO  0 

CAF 

MASK 

CCS 

BIT2 

DAPBOOLS 

A 

17*2713 

1 2755  0 

T CF 

ST  I LLRCS 

I : ARC  THE 

0,R-AXCS  KC 

S JE'S  OFF? 

17’2  7lA 

0 0^06  1 

EXTEND 

17*2715 

00  U05  1 

READ 

5 

0567 
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USER'S  OWN  PaG(.  NO-  lA  E6 

delcduy  scaled  at  Pi/2*  rescale  by 
adding  to  ITSFLF 

convert  DELCDUS  to  twos  complement  (SAME 
as  CDUS).  add  nME  TO  restore  PRE-CCS  A 
STORE  direct  if  POSITIVE  ZERO 
complement  if  NfOATIVE*  CCS  increments 
IF  Negative  zpRn,  store  positive  zero 

STORE  FINAL  DfLcDUZ  OR  DeLCDUY 

test  index  DLCDUIDX*  EITHER  1 OR  o 
IF  1*  DU  delcduy 

DELCDUZ*Y  done*  0 TO  DELCdUX-NO  ROLL 

Q-ERROR  calculation 

CDU  ANGLE  - ANGIE  DESIRED  (Y-AXiS) 
save  for  RERRCAi  C 

(CDUY-CDUYD) aM2i  SCALED  AT  Pi  RADIANS 
SAVE  FIRST  TERM  (OF  TWO)  IN  UPP.AXIS  REG 
SECOND  TERM  CALyULAtION: 

CDU  ANGLE  -ANGLf  DESIRED  (z-AXIs) 

SAVE  FOR  RERRCAi  C 


(CDUZ-CDUZD) #M22  SCALED  AT  Pi  RADIANS 
SAVE  SUM  UF  TFRmS*  NO  OVERFLOW  EVER 

SAVE  qerror  for  eight-ball  Display 

R-ERROR  CALCULATION: 

CDu  angle  -ANglf  desired  (Y-AxI5) 
(CDUY-CDUYD)  <tM3l  SCALED  AT  Pi  RADIANS 
SAVE  FIRST  TERM  (OF  TWO)  IN  UPP.AXIS  REG 
SECOND  Term  calculation; 

CDU  angle  -ANglf  dEsIRED  (Z-Axis) 
(CDUz-CDUZD)  TTM37  SCALED  AT  Pi  RADIANS 
SAVE  SUM  OF  TERMS*  NO  OVERFLOW  EVER 
SAVE  R-ERROR  FOR  EIgHT-BALL  DISPLAY 


TEST  TO  SEE  IF  I EM  AND  DAP  MODES  ALLOW 
USE  OF  TRIM  GIMbAL  CONTROL  SYSTEM: 

BIT2  = 0 MEANS  THAT  TRIM  GIMBAL  CONTROL 
IS  POSSIBLE*  SO  TEST  OTHER  TG  CONDITIONS 


BUT*  IF  JETS  ARr  OFF  AND  TRIM  GiMBAL  MAY 
possibly  be  used;  being  in  the  jET  COAST 


YJL  SYSILM  I-OR  AGC;  new  PRO^JRAM  S^tPATlN  3Y  tYLt.S 


L 3.R-AM£3  reaction  CONTROL  SYSIEVI  AUTOPILOT 


0568 

Rzf 

2^4 

LASI 

50A 

17,27lP 

iO  000 

0 

CCS 

A 

C T T 1 1 TY  C 

0569 

REF 

2 

LAS  1 

50A 

17,271/ 

1 2 755 

0 

I CF 

oT 1 LLKCo 

R0570 

TEST (3) 

ARE 

BOTH  trim  gimbal 

drives 

OFF? 

0571 

17,2720 

0 OOO6 

1 

extend 

0572 

U ,2721 

03  012 

1 

READ 

12 

0573 

REF 

1 

1 T ,2722 

7 2615 

0 

MASK 

BG I M2 a 

057A 

REF 

2A5 

LASI 

505 

17,2723 

10  ooo 

0 

CCS 

A 

0575 

REF 

3 

LAS  1 

505 

1 7,2729 

1 2755 

0 

T CF 

Si  I llkcs 

R0576 

TEST 

(A) 

: IS 

I HE  Lem  rmte  lls 

5 IHAN 

,5 

DEG/SeC  about  both  axes? 

0577 

REF 

A7 

LAST 

A95 

17,2725 

3 7755 

1 

CA 

BlTl 

0578 

REF 

1 

17,2729 

59  066 

0 

LOOP! OP 

TS 

QRCNTR 

0579 

1 7,2727 

6 OOOO 

1 

DOUBLE 

0580 

REF 

2A6 

LASI 

505 

17,2730 

53  OQO 

1 

INDEX 

A 

0581 

REF 

9 

LASI 

A95 

17,2731 

1 1 '*,17 

0 

CCS 

OMEGAQ 

-RATLM+1 

0552 

Kcr 

1 

17,2739 

6 2753 

1 

AO 

0583 

17,2  733 

1 2735 

0 

tcf 

+ 2 

0589 

REF 

2 

LASI 

505 

17,2739 

6 2 753 

1 

AD 

-RATLM+1 

0585 

1 7 ,273s 

0 0006 

1 

EX  TEND 

0586 

1 7,2736 

6 2 790 

0 

3ZMF 

+ 2 

0587 

REF 

A 

LASI 

505 

17,2737 

1 2 7 55 

0 

TCF 

Si ILLRCS 

0588 

K -r 

2 

L.  A 0 T 

505 

17 ,2790 

5 3 '^00 

1 

1 NDEX 

QKCNTK 

0589 

REF 

1 

17,2791 

11 '967 

1 

CCS 

QUIFF 

0590 

REF 

1 

17,2792 

6 2 759 

0 

AD 

-XBND+1 

0591 

1 7,2793 

1 2795 

1 

TCF 

+ 2 

0592 

REF 

2 

LASI 

505 

17,2799 

6 2 759 

0 

AD 

-xBND+1 

0593 

17 ,279s 

0 OOO6 

1 

EXTEND 

059A 

17,2  796 

6 2 750 

1 

3ZMF 

+ 2 

0595 

REF 

5 

LASI 

505 

17,27a7 

1 2755 

0 

TCF 

STILLRCS 

0596 

rsf 

3 

las  i 

505 

17,2  7S0 

1 3 066 

0 

CCS 

qrcntir 

0597 

REF 

1 

17,2751 

1 2 726 

1 

TCF 

LOOPTOP 

0598 

REF 

1 

17,2752 

1 2612 

1 

ICF 

GOTOGTS 

0599 

1 7 ,2753 

776  12 

1 

-RATLM+1 

3CT 

77512 

0600 

17,2759 

7 7601 

0 

-XBND+1 

DCT 

77601 

RO6OI 

"StILLRcS"  is 

the  entry  Point 

TO  RCS 

attitude  Steering 

WHeNeVeR 

R0603 

T 1 1 ''1 

nuuL  u 

NOT  Bt£  JijLO; 

RO6OA 

BRAN 

CH  10  SPSHCS  WHEN  B1 I l5 

: 3 For 

SPS  BACKUP 

0605 

REF 

A3 

LASI 

50A 

17,275s 

13  077 

0 

STILLRC5 

CCS 

dapbools 

0606 

ref 

1 

17,27S6 

1 3S76 

1 

TCF 

SPSBAKUP 

0607 

17,2757 

1 2 760 

0 

NOOP 

0608 

REF 

1 

17,2760 

3 20  16 

1 

CAF 

DeSCADR 

0609 

REF 

3 

LASI 

A95 

1 7 ,2761 

59  062 

1 

TS 

TJETADR 

0610 

REF 

5 

LAS1 

a82 

17,2762 

0 5OAI 

1 

TC 

T6J0BCHK 
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USER'S  OWN  PAGr  NO.  IS  E6 

region  OF  thf  ppase  plane  IS  A jECESSARY 
BUT  INSUFFICIFNT  REASON  FOR  GTS  USE 


BITS  9-12  OF  CHaNNEl.  12  aKE  THE  SIGNALS 
WHICH  drive  THE  TRIM  GIMBAL  ENGINE; 

IF  none  of  THeSa  bits  ARe  ON,  then  BOTH 

WAITLIST  TASKS  tO  TURN  OFF  THE  DRIVES 
HAVE  been  DONf  aND  GTS  CONTROL  CAN  OCCUR 


IS  ERROR  RATE  S^ALL  ENOUGH  FOR  GTS. 
-.5  DEG/SEC  SCAl  ED  AT  PI/A  + I BIT 


IS  RATE  LESS,FQtiAL  .S  DEG/SEC. 

NO.  SO  USE  RCS. 

YES.  try  THp  error  MAGNITUDE. 

IS  ERROR  small  fNOUgH  FOR  GTS, 
-l.A  DEG  SCALED  AT  PI  +1  BIt 


IS  ERROR  LESS.EOUAL  l.A  DEG. 

NO.  USE  RCS  CONTROL. 

THIS  Axis  IS  fInE.  ARE  BOTH  DONE. 
NOW  TRY  THE  Q Axis. 

transfer  ro  trim  gimbal  control 

-.5  DEG/SEC  SCAl  ED  AT  PI/A  + 1 BIT 
-l.A  DEG  SCALED  AT  PI,  + 1 BIT. 
r IS  FOUND  that  ihl  tRtm  Gimbal  contRoi 


SET  jet  Select  iogic  return  address  to 
the  Q,R-AXIS  TJfTLAw  CALCULAtIOm 

CHECK  T6  clock  fUPT  BeFORF  SUBRtUTINE 


488954a  YJL  system  FOK  AGC:  mEw  PROt'RA'T  SHEPaTIN  3Y  EYLEj 
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L 3,R-AXe;S  HtACiION  CONTROL  SYs  1 1 ^UTOP I LOT  UStR'S  OWN  PAGf  NO.  16  £6 

P0611  O.R-AxES  URsEnCY  function  L003: 


RO6I2  SET  UP  LOOP  TO  DO  R-AXiS,  tHeM  0-4XIS: 


0613  REP  i37  Last  5o4  i7.27^>^  3 7T55  1 CAE  ONE  i:  ReFERS  TO  R-aXIS  VARIABLES. 

0614  REF  1 17.2764  54  ^61  1 TS  AxISCNTR  2:  REFERS  TO  Q-AXiS  vARIAbLES, 

R0615  PICK  JP  EDOT  and  ReSCALE  FROM  Pl/4  TO  PI/16  RAD  I aNS/SeCOND : 


0616 

REF 

2 

LAST 

5o6 

17.2765 

5o  061 

0 URoLOOP 

index 

AXISCNTR 

0617 

REF 

2 

LAS  1 

45 

17 .2766 

3 1 ' 424 

1 

CAE 

EUOTQ 

0618 

1 7.2767 

0 OOO6 

1 

EXTEND 

0619 

0620 

REF 

16 

LAST 

478 

17,2  77O 

17,2771 

7 7(53 
0 0U06 

0 

1 

v|p 

EXTEND 

FOUR 

error  rates  are  PRE-CALCULATeD  by  rate 
derivation  SCALfD  Ai  pI/A  RADI ANS/SECONU 
multiplying  by  FOUR  (6113)  LeAVfS  EDOT 
AS  C(L)  IF  EDOT  LESS  THAN  11.25  DEG/SEC. 


0621 

0622  rEF 


17.2772  1 2(74  0 3ZF  +2  IF  C(A)  NON-ZfRO.  TwEN  EDOT  GREATER  THAN 

17.2773  1 3L42  0 TCF  EoOTMAX  11.25  dEG/SEC  In.  MAnNITUdE.  bO  1 IMIT  IT. 


0623  REF  101  Last  500  17.2774 

0624  REF  66  LAST  478  17.2775 

0625  17.2776 

0626  17.2777 

0627  REF  3 LAST  295  17.3000 

0628  REF  14  LAST  482  17.3001 


10  Uoi  1 CCS  L 

6 7(54  0 AD  TWO 

1 3OOO  0 TCP  +2 

4 OOOO  0 COM 

6 7(63  1 AD  NtGl 

55'407  1 EDOTSTOR  TS  EDOT 


INSURE  NON-ZERO  EDOt : 

C(L)  PNZ  remains  unchanged. 

C(L)  NNZ  REMAINS  UNCHANGED. 

C(L)  +0  BECOMES  77776. 

C(L)  -O  BECOMES  77776. 

SAVE  NON-ZERO  EnOT  SCALED  AT  PI/16. 


0629 

0630 

0631  REF  6 

0632 

0633  REF  3 

0634  REF  2 

0635 

0636  REF  8 

0637  REF  1 


17 

17 

LAST  481  17 

1 7 

LAST  506  17 

LAST  51  17 

1 7 

LAST  488  17 

17 


3002  0 OOO6  1 

3003  7 OOOO  0 

3004  55.412  0 

3005  0 0006  1 

3006  5 0061  0 

3007  7 1 fll  0 

3010  0 OUO6  1 

3011  61 '415  0 

3012  55.442  0 


extend  calculate  (EDOT) (EDOT) : 

Square 

TS  EdOT(2)  scaled  AT  PI(2)/2(+8)  RAD ( 2 ) /SEL ( 2 ) . 

EXTEND  0.5  +8  2 

INDEX  AxISCNTR  SCALED  AT  2 /pi  SEC  /RAD. 

MP  1/ACCQ  ACCQ.R 

EXTEND  deadband  = 5.0  nR  1.0  OR  0.3  DEoREES 

SU  Db  SCALED  AT  PI  RADIANS. 

IS  FPQR  0.5(1/ACC)EDOT (7)-DB  SCALED  AT  PI  RADS. 


0638  REF  7 LAST  5O6 

0639 


17.3013  31.412  1 

17.3014  0 0006  1 


CAE  ED0T(2)  scaled  AT  PI(2)/2(8)  RAD (2 ) /SEC ( 2 ) . 

EXTEND 


0640 

REF 

4 

LAST 

i /Cl 

506 

0641 

RlF 

2 

Lmo  1 

5 1 

0642 

REF 

9 

LAST 

506 

0643 

REF 

1 

0644 

REF 

15 

LAST 

506 

0645 

REF 

17 

LAST 

504 

0646 

0647 

REF 

1 

0648 

REF 

2 

LAST 

506 

0649 

REF 

16 

LAS- 

506 

0650 

REF 

3 

LAST 

506 

17.3015 

5 0U6I 

7 1(13 

6 1‘.15 
55*460 

0 

INDEX 

AXISCNTR 

17 .3016 

17.3017 
17,3020 

1 

0 

0 

MP 

AD 

TS 

1 / AMINQ 

DB 

FPQRMIN 

17,3021 

ll.'.OT 

1 

CCS 

EuOT 

17,3022 

31  “til 

1 3O25 

1 

CAE 

E 

1 7 . 302  3 

1 

T CF 

+ 2 

17,3024 

1 3O47 

0 

TCF 

EUOTNEG 

17.3025 

27*442 

0 

ADS 

FPQR 

17.3026 

11*407 

1 FTEsT 

CCS 

EDOT 

17.3027 

11.442 

0 

CCS 

FPQR 

.5(1/ACCM1N)  2(8)/Pl  SEC(2)/RAD. 

DEADBAND  SCALED  AT  Pi  RADIANS. 
.5(l/ACCMiNlEDOT(2)+DB  SCALED  Ar  PI  RAD. 

EDOT  TEST  O/m  sinn  (n0n-2Er0): 

ATTITUDE  ERROR  1- OR  THIS  AxIS 
SCALED  AT  PI  RAi.IANS. 

E+0.5 ( 1/ACC) EDOt (2) -DB  SCALED  Al  PI  RAD. 

EDOT  CUArAnTEFD  nOT  +0  Or  -0. 

FPqR NOT  +0. 
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0651 

0652 

0653 

REF 

REF 

REF 

1 

4 

1 

LAST 

5O6 

17.3030 

17.3031 

1 / ,3032 

0654 

REf 

2 

las  r 

507 

17, 3033 

0655 

REF 

2 

last 

507 

17,303A 

0656 

REF 

17 

LAST 

506 

1 7 ,3035 

0657 

17,3036 

0658 

REF 

25 

LAST 

481 

17,303  / 

0659 

REF 

5 

LAST 

507 

1 7 ,304*3 

0660 

REF 

1 

17,3041 

0661 

REF 

2^7 

Last 

5o5 

1 / , 30A2 

0662 

REF 

30 

LAST 

501 

17,3043 

0663 

REF 

1 

17 ,304A 

0664 

REF 

3 1 

Last 

507 

1 7, 3045 

0665 

REF 

2 

Last 

507 

17,3045 

1 3O35 

0 

TCF 

QUICKURG 

ll*‘+42 

0 

CCS 

FPQR 

1 3O53 

0 

ICF 

FMINCALC 

1 3*353 

0 

TCF 

FmINcALC 

1 3035 

0 

ICF 

QUICKURG 

31*407 

0 

QJICKURG 

CAE 

EDOT 

0 0OO6 

1 

EXTEND 

7 7/A3 

1 

MP 

BlTll 

6 l‘*42 

1 

AD 

FPQR 

1 3*375 

1 

TCF 

UkGMULT 

ID  OOO 

0 

EDOTMAX 

CCS 

A 

3 7/35 

1 

CAF 

POSmAx 

1 3OOI 

1 

TCF 

EDOTSTOR 

4 7/35 

0 

CS 

POSMAX 

1 3001 

1 

TCF 

EDOTSTOR 

0666  REF  6 last 


507 


17 ,30A7 


A 1^42  0 EDOTNEG  CS  FPQR 


0667  REF  18  LAST  5O6 

0668  REF  1 LASi  507 

0669  REF  1 


17'3u50  6 1^11  1 

1 i'.305l  55*A42  0 

17.3052  1 3^26  1 


AD  E 

IS  FPQR 

TCF  FTEST 


0670  REF 

0671  REF 

0672 

0673  REF 

0674  REF 

0675  REF 

0676  rEF 

0677  REF 

0678  REF 

0679  REF 

0680  REF 

0681  REf 

0682  REF 

0683 

0584  REF 

0685  REF 

0686  REF 

0687  REF 

0688 

0689  REF 

0690  REF 

0691  REF 

0692  rEF 


8 LAST  607 

2 LAST  506 

3 LAST  507 
19  last  507 

4 LAST  507 

18  last  507 

5 LAST  507 
1 

6 LAST  507 
1 

2 last  507 
2 LAST  50r 


1 

1 

1 

7 last  5O7 

5 LAST  506 
3 LAST  506 
2 LAST  507 

6 LAST  507 


3053 

305A 

3055 

3055 

305/ 

3060 


17,3061 
1 1,3062 
17,3063 
1 T,306A 
17  <3065 

17.3066 

17.3067 
17,3070 


1/*3071 

17.3072 

17.3073 


11'A42  0 
4 1^60  0 

1 3O57  1 

311460  1 
6 lAll  1 
55'A60  0 

ll'A07  1 
ll'AbO  0 
1 3O7O  1 
11 '^60  0 
1 3074  0 
1 307A  0 
1 3O7O  1 

0 0O06  1 

3 3^56  0 
53*505  1 

1 3101  0 


FviINCALC 


ZEROURG 


17*307^  31'A60  1 NDRMURG 

17,3075  0 OOO6  1 URGMULT 

17,3075  5 0061  0 

17,307/  7 1/11  0 

17,3100  53*505  1 


17,3101  ID  061  1 MDrEURG 


CCS  FPQR 

CS  FPQRMIN 

TCF  +2 
CAE  FPQRMIN 

AD  E 

TS  FPQRMIN 

CCS  EdOT 

CCS  FPqRMIN 

TCF  ZEROURG 

CCS  FPQRMIN 

TCF  NORMURG 

TcF  NORmuRG 

TCF  ZEROURG 

EXTEND 

DCA  DPZeROY 

DXCH  urqencyq 

TCF  MOREURG 

CAE  FPQRMIN 

EXTEND 

INDEX  AXISCNTR 
MP  1/ACCQ 

DXCH  UrGENCYQ 

CCS  AxisCnTr 


USeR*S  OrtN  PAGk  no,  17  £6 

ED0T,G.+0,  FPOR.G.+O, 

EDOT ,L.-0. 

EDOT  . L. -0  ♦ FPQR,  (-,.+0 /EDOT  ,G  . +0  * FpQR  , L,-0  • 
edot,g,+o,fpqr,a ,-o  (fROm  first  CCS), 

EDOT,L,-0,FPQR.i ,-0, 

EDOT, L,-0, FPQR, F ,-0  (FROM  2ND  CrS) . 

Scale  fROm  pi/if  to  pi  raqIans/secONd 
TO  have  same  SCaLINc,  as  FPQR  AFTER  THE 
IMPLICIT  MULT,  r,F  FpQR  BY  1/SEC, 

THIS  urgency  = ( 1/ACC) (FPQR+eDOi ) , 

GUARANTEED  NOT  +0  OR  -o» 

set  EDOT  TO  signed  MAXIMUM, 

scaled  AT  PI/16  RADIANS/SeCOND, 

scaled  at  PI  radian^ 

ATTITUDE  ERROR  fOR  tHIS  AXIS 
e-o.5(1/acc)edOt(2)+db  scaled  ai  pi  RAd. 


necessary  RETfSt  on  FPQR: 

E-0,5(1/AcCMIN)Fd0T (2)-DB 

E + 0,5 (1/ACCMIN) foot  12) +00 
scaled  at  pi  RAMANS. 

EDOT  GUArA/mTfED  nOT  •*•0  OR  -0. 
FPqRMIN  GUARAnTfED  NOT  +0  (CALL  IT  F), 
ED0T,G,'*0,  f,g,,o, 

EDOT.L.-O. 

EDOT,L,~0,  F,G,+0  / eDOT,G«+0,  F,L,*’0, 
EDOT.G.+O,  F.E.-O  (from  FIRST  CfS). 
EDOT.L.-O,  F.l .-0. 

EDOT.L.-O,  F.F,_0  (FROM  2ND  CCS). 

THIS  urgency  is  ZERO. 

TEST  FOR  NEXT  AvIS 

THIS  urgency  is  FPQrM I N ( 1 / ACC ) . 


SAVE  D.P.  SCALED  AT  2(+9). 

test  for  End  of  loop 
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0693 

17*3102 

1 3IO9 

0 

tcf 

+2 

continue. 

C)69W 

REF 

1 

1 7 * 3 103 

1 3 1 67 

0 

T CF 

URGSCALQ 

finished. 

0695 

REF 

/ 

UASl 

50  7 

17,3109 

59  061 

1 

TS 

AXISCNTR 

Q-AXIS 

0696 

1 / *3105 

0 0U06 

1 

EXTEND 

0697 

ref 

3 

last 

507 

17*3106 

3 1505 

0 

DCA 

URGENCYQ 

SET  URGENcYR 

0698 

REF 

1 

17*3107 

53 ' 507 

0 

DXCH 

URGENCYR 

0699 

REF 

20 

LAST 

507 

17»31lO 

53*A12 

0 

DXCH 

E 

SET  ER*ED0T(2)R 

0700 

REf 

5 

lAsi 

509 

17  * 3 1 1 1 

53*919 

0 

DXCH 

ER 

0701 

REF 

1 

1 7 * 3 1 1 E 

55*911 

0 

IS 

EU 

SET  EQ 

0702 

REF 

19 

last 

507 

17*3113 

31*907 

0 

CAE 

EDOT 

0703 

R-F 

1 

17*3119 

55*910 

1 

T S 

EDOT  (R ) 

SET  EDOT ( R ) • 

070A 

REF 

1 

17*3115 

1 2 765 

0 

TCF 

URGLOOP 

CONTINUE, 

R0705 

SJFF  1 

CIENT  TEST  FOR 

urgency  R 

escaLing: 

than  SCALE  bound 

0706 

REF 

2 

LASI 

500 

l7*3ii6 

11  '•'00 

1 

U^GSCALR 

CCS 

URGeNCYR 

IF  ABVAL (URGenCvR ) 1 ESS 

0707 

REF 

1 

17*3117 

6 3l69 

1 

AD 

SCALEbND 

0708 

1 /,3120 

1 3I22 

1 

ICF 

+ 2 

THEN  BOTH  URGENCIES  CAN 

BE  RESCALED  FROM 

0709 

REF 

2 

LAST 

50fa 

17*3121 

6 3 1 69 

1 

AD 

SCALEBND 

0710 

17*3122 

0 0006 

1 

EXTEND 

2 (+9)  TO  2 (+9)  SECONDS, 

0711 

REF 

1 

17*3123 

6 3I25 

1 

3ZMF 

URGSCALE 

0712 

REF 

1 

17*3129 

1 3 1 75 

0 

TCF 

urglims 

R0713 

RESCALE 

BOTH 

URGENCIES  FRuM  21+9)  TO 

2(+9)  seconds: 

0719 

REF 

9 

LAST 

508 

17*3125 

31*509 

1 

URCjSCALE 

CAE 

UKGFNCyO 

0/15 

17*3126 

0 OOO6 

1 

EXTEND 

0716 

REF 

38 

LAST 

998 

1 7 * 3 1 2 7 

7 7750 

0 

Yp 

B 1 1 6 

0717 

REF 

5 

LAST 

508 

1 7*3130 

23*509 

1 

LXCH 

URGENCYQ 

0718 

REF- 

6 

LAST 

508 

1 7*313l 

31*505 

0 

CAE 

URGENCYQ  +1 

0719 

17*313*; 

0 0006 

1 

EXTEND 

0720 

REF 

39 

LAST 

508 

17*3133 

7 7750 

0 

VIP 

BIT6 

0721 

REF 

/ 

LAST 

508 

1 7*313A 

27*509 

0 

ADS 

URGENCYQ 

0722 

REF 

3 

LAST 

508 

17*3135 

31*506 

0 

CAE 

UrGEnCYR 

0723 

1 7*3136 

0 OOO6 

1 

EXTEND 

0729 

REF- 

90 

LAST 

508 

17*3137 

7 7 750 

0 

WP 

B1  T6 

0725 

REF 

9 

LAST 

508 

1 7*3190 

23*506 

0 

LXCH 

URGENCYR 

0726 

REF 

5 

Last 

506 

1 7 * 3 1 9 1 

31*507 

1 

CAE 

URGENCYR  +1 

0727 

17  * 3 1 9 2 

0 OOO6 

1 

EXTEND 

0728 

REF 

91 

LAST 

508 

17*3193 

7 7750 

0 

VIP 

BiT6 

0729 

REF 

6 

LAST 

508 

1 7*3199 

27*506 

1 

ADS 

URGENCYR 

0730 

rEF 

1 

1 7*3195 

3 3163 

0 

CAF 

UrGLM2 

SET  Urgency  liMtT  eor  21+9)  scalinO. 

0731 

REF 

1 

17*3196 

59  066 

0 

TS 

URGLIMIT 

0732 

REF 

1 

17*3197 

1 3I77 

1 

rcF 

UrGFUDGE 
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0733  RBH  3 LAST  a57  17.3150 

073A  17.3151 

0735  REF  8 LAST  508  17.3152 

0736  REF  9 LAST  509  17.315^ 

0737  REF  1 , 17*315A 


31*^7  1 URGRATOM  CAF  URGRATQ 

0 0006  1 EXTEND 

7 IPOA  0 MP  URGENCYO 

55'POA  0 IS  URGENCYO 

1 3206  1 TCF  URGFUUGl 


0738 

REF 

2 

LAST 

957 

1 7.3153 

0739 

17 .3156 

0790 

REF 

7 

LAS) 

508 

1 7*315( 

0791 

REF 

8 

LAST 

509 

17.3160 

0792 

REF 

1 

1 7, 3161 

31*  (20  0 UrGRATRM  CAE  URGRATR 

0 0OO6  1 EXTEND 

7 1P06  1 MP  URGENCYR 

55'P06  1 TS  URGENCYR 

1 3215  0 ICF  URGPLANE 


07A3 

07A4 

07A5 

07A6 

C07't6 

R07A7 


17.3162 

77637 

0 

URGLMl 

DEC 

17.3163 

71  ni 

0 

JRGLM2 

OEC 

17,3169 

77O02 

0 

SCALEBND 

OEC 

17,3163 

OOOOO 

1 

DPZEROY 

2DEC 

1 7.3166 

OOUOO 

1 

NECESSAi^Y  TcSt  FOR  URGENCY  ReECALING: 


-0,00586  -3  SECONDS  SCALED  AT  2{+9) 

-0.1875  -3  SECONDS  SCALED  AT  2 (♦A) 

-0.03105  -16  SECONDS  SCAl  ED  AT  2(+9) 

0 


E6 


0798 

REF 

10  last 

5o9 

l7,3i6( 

1 1 ' ^OA 

0 

UroSCALO 

CCS 

URGENCYO 

0799 

REF 

3 LAST 

508 

17,3170 

6 3l69 

1 

AD 

SCALEbND 

0750 

17,3171 

1 3I73 

0 

TCF 

+ 2 

0751 

REF 

9 LASI 

509 

17,3172 

6 3 1 69 

1 

AD 

SCALEBND 

0752 

17,3173 

0 0006 

1 

EXTEND 

0753 

REF 

1 

17.3179 

6 3 1 1 6 

1 

BZMF 

UrGSCALR 

RO'759 

OSE 

JRGtNCY 

correction  FACIO9 

RAT^O  1 

/J  H E N 

necessary: 

0755 

REF 

1 

17,3175 

3 3l62 

1 

urglims 

CAF 

URGLMl 

0756 

REF 

2 LAST 

508 

17,3176 

59  066 

0 

TS 

UR6LIMIT 

IF  AtsVAL(URGENCYQ)  LESS  THAN  SCaLE  BOUND 
then  IEST  URGENrYR  FOR  RESCALABi.E 
MAGNITUDE. 


SET  URGENCY  LIMtT  FuR  2(+9)  SCALING 


0757  ref  7 LAST  a58  i7,3i77  31  '‘’52  1 UrGFUDGe  CAe  AUSQ 

0758  17.3200  0 OOO6  I EXTEND 


0759  REF  2 LASI  509  17.3201 

0760  17.3202 

0761  REF  11  LAST  509  17,3203 

0762  17,320A 

0763  REF  1 17,3203 


1 3206  1 3ZF  URGFUDGl 

0 0006  1 EXTEND 

7 130A  0 MP  URGENCYO 

0 0006  1 EXTEND 

6 3^50  0 BZMF  URGRATQM 


0769 

REF- 

1 

17.3206 

076  5 

0766 

0767 

REF 

2 

LAST 

509 

17.3207 

17.3210 

17.3211 

0 768 

0769 

0770 

REF 

REF 

9 

1 

LASl 

509 

17.3212 

17.3213 
17,321A 

31*653  0 UrGFUDG]  CAE  AoSR 

0 OOO6  1 EXTEND 

1 3215  0 3ZF  URGPLANE 

0 0006  1 EXTEND 

7 1306  1 MP  URGENCYR 

0 OOO6  1 EXTEND 

6 3155  0 3ZMF  URGRATRM 


0773  REF  12  LAST  509  17. 3^)15  31'30a  1 URGPLANE  CAE  URGeNCYQ 

077A  17.3219  0 OOO6  1 EXTEND 


TEST  ON  ASOCJ  (URGENCYO)  GReATER  tHAN  ZeHU 

(IF  AOSO  ZERO,  no  NOT  USE  URGRAIO.) 

IF  PRODUCT  negative,  APPLY  URGRATO, 

TEST  ON  AOSR (URGENCYR)  GReATER  iHAN  ZERU 
(IF  AOSR  ZERO,  DO  NOT  USE  URGRAiO.) 

IF  PRODUCi  Negative,  apply  urgratr. 

Begin  urgency-Pi ane  computations: 
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0775 

REF 

1 

17,3217 

1 3357 

1 

3ZF 

0776 

1 7,3220 

0 OOO6 

1 

EXTEND 

0777 

REF 

1 

1 7,3221 

7 3375 

1 

MP 

0778 

REF 

10 

LAST 

509 

17,3222 

6 1506 

0 

AD 

0779 

1 7,3223 

0 0606 

1 

EXTEND 

0780 

REF 

1 

1 7,322A 

7 3372 

0 

MP 

0781 

REF 

9 

Last 

A83 

17,3225 

55*512 

1 

T S 

0782 

REF 

11 

LAST 

5l0 

1 7 *322^ 

A i506 

1 

CS 

0 783 

17,322? 

0 OOO6 

1 

EXTEND 

0 78A 

REF 

2 

LAST 

510 

17,3230 

7 3375 

1 

MP 

0785 

REF 

13 

LAST 

509 

17,3231 

6 150A 

1 

AD 

07  86 

17 ,3232 

0 OOO6 

1 

EXTEND 

0787 

REF 

2 

LAST 

510 

17*3233 

7 3372 

0 

MP 

T Q 

0788 

REF 

5 

Last 

A 83 

1 7 * 32  3 A 

0 

1 3 

0789 

REF- 

10 

LAST 

510 

1?  *323^ 

6 i5i2 

0 

A+8/A-B 

AD 

0790 

REF 

1 

17 ,3236 

55*510 

0 

TS 

0791 

REF- 

6 

LAST 

510 

17*323? 

A 1513 

0 

A-B/ONLV 

CS 

0792 

REF 

11 

LAST 

510 

17,32A0 

6 1512 

0 

AD 

0793 

Rc.F 

1 

17  » 3 1 A 1 

55*511 

1 

T S 

R079A 

AXIS 

ANL 

MODE 

: selection 

0795 

REF 

7 

LAST 

510 

17  *32A2 

31'513 

1 

CAE 

0796 

17*32A3 

0 OOO6 

1 

EXTEND 

0797 

REF 

1 

1 7 *32AA 

6 3376 

0 

3ZMF 

0798 

REF 

12 

LAST 

510 

17,32a5 

31*512 

0 

POSBURG 

CAE 

0799 

1 7 * 32A6 

0 OOO6 

1 

EXTEND 

0800 

RSf 

1 

17*32A7 

6 3316 

0 

3ZMF 

0801  REF  2 LAST  510  17,3250  31‘P11  0 P05AP0SB  EAE 

0d02  17*3251  0 0U06  1 EXTEND 

0803  REf  1 17,3252  6 327A  0 3ZMF 


080A  REF  1 17,3253  31'  QA  1 2/AJET-R  CAE 


0805  RiF  5 last  50  17*325^  55'fc'27  1 TS 

0806  17,3255  0 0O06  1 EXTEND 

0807  REF  6 LAST  508  17,3256  3 I^IA  1 DCA 

0808  R;F  21  LAST  508  17,325^  53*^12  0 DXCH 

0809  REF  2 LAST  508  17,3260  31'A10  0 CAE 

0810  REF  20  LAST  5O8  17»326l  55'A07  1 TS 

0811  REF  3 LASI  509  17,3262  30  066  1 cAE 

0812  REF  12  LASi  510  17,3263  6 1506  0 AD 

0813  i7,326A  0 OOO6  1 EXTEND 

081A  REF  3 LAST  ^97  17,3265  6 3270  1 3ZMF 


O8I5  REF  138  LASI  5O6  17,3266  A T'SS  0 AJETS-R  CS 


BURgZERO 


-TAN22.5 

URGENCYR 

COS22,5 

TERMA 


URGENCYR 

-TAN22.5 

URGENCYQ 


C0322.5 

TERMB 


TERMA 
A + B 
TERMB 
TERMA 
A-B 


TERMB 


NEGBURG 

TERMA 

NEGApOSB 

A-B 

MlNuSu 

1/AMINR 

.5ACCMNE 

EK 

E 

EDOT  (R) 
EDOT 

URGLIMIT 

URGENCYR 


2JETS-R 

ONE 


Dec  n,  1966  (MAIN)  PAqE  510 


USER'S  OWN  PAGp  NO.  20 
TEST  FOR  both  URGENCIES  ZERO 


UR.COS(22.5)-UQ.SIN (22,5) 


UR.SIN(22,5) +ua.C05(22.5) 


B URGENCY  TEST 


A URGENCY  TEST 


E6 


negative  0-Axis  selected 


488954a  YJL  SYSIEm  f- Of^  AGC:  NEW  PrOG:^Av1  SHERATin  BY  EYLEs 


L J,R-AXES  reaction  CoNtROL  5Ysr£»l  autoriloi 

0816  r£f  1 17.3267  1 3^07  1 1 CF  ROLTYRE 


0817  REF  1 

0818  REF  2 LAS!  *.97 

0819  ref  67  las;  506 

0820  REF  2 LAST  511 

0821  REF  1 

0822  rEF  6 LASI  510 

0823  REF  13  LASi  510 

0824  REF  14  LAST  511 

0825  REF  248  LAST  507 

0826  REF  4 LAST  510 

0827 

0828  REF  5 LAST  511 

0829 

0830  REF  1 

0831  REF  1 

0832  REF  24  LAST  396 

0833  REF  3 last  511 

0834  REF  1 

0835  REF  1 

0836  REf  2 last  511 

0837  REF  68  LAST  511 

0838  REF  9 LAST  511 

0839  REF  2 LAST  510 

0840 

0841  REF  1 

0842  REF  3 LAST  506 

0843  rEF  7 last  511 

08435  REF  6 LAST  511 

0844  REF  14  LAST  510 

0845 

0846  REF  3 LAST  a96 

08a7  ref  12  LAST  hH 

0849  REf  5 LAST  511 


0850  REF  1 

0851  REF  2 LAST  a97 

0852  REf  13  last  477 

0853  REF  6 last  511 

0854  REF  1 

0855  rEF  8 LAST  511 

0856  REF  15  LASI  511 


17 

17 

17 

17 

17 
17 
17 
1 7 
17 
17 
17 
17 
17 
1 7 

17 

17 

17 

17 
17 
1 7 
17 
1 7 

17 
1 7 
1 7 

17 
1 7 
1 7 
17 
17 
17 

1 7 
1 7 


3270 

3271 
327^; 

3273 

3274 

3275 

3276 

3277 

3300 

3301 

3302 

3303 

3304 

3305 

3306 

3307 

3310 

3311 

3312 

3313 

3314 

3315 

3316 
331  ? 

3320 

3321 

3322 

3323 

3324 

3325 

3326 

3327 
333O 


3331 

3332 

3333 

3334 

3335 

3336 

3337 


11*663 
1 3^66 
4 7754 


6 1506 


1 3304 
6 0066 
0 OUOb 
6 3311 


1 3306 

0 3523 
3 7 754 

1 3507 

31 '510 
0 0006 
6 3335 

31'  713 


3331 


4 7 760 


1 3327 
4 6276 


31  ' 716 
55*627 
4 1504 


1 

2JETS-R 

CCS 

NJ-R 

1 

1 

1 

1 CF 

CS 

TCF 

4 JET  5-R 
Two 

POLTYPE 

0 

MINUSU 

CAE 

1/AMINU 

1 

TS 

.5ACCMNE 

0 

CAE 

URGENCYR 

0 

AD 

URGENCYR 

0 

CCS 

A 

1 

AD 

URGE  I MI T 

1 

TCF 

+ 2 

1 

AD 

URGLIMIT 

1 

EAl END 

1 

3ZMF 

2JETS-U 

0 

2 JETSM-U 

TC 

UXFORM 

0 

2-U.RATF 

CAF 

TFiRFE 

1 

T CF 

PuLT YPE 

1 

2JETS-U 

CCS 

NJ-U 

0 

1 CF 

2JET5M-U 

0 

TC 

UXFORM 

0 

CAF 

TWO 

1 

1 CF 

POLTYPE 

1 

negaposb 

CAE 

A + B 

1 

tXrEND 

1 

3ZMF 

PLUSV 

0 

2/4JET-Q 

CAE 

1/AMINQ 

1 

TS 

.5ACCMNE 

1 

CAE 

URGLIMIT 

1 

AD 

URGENCYQ 

1 

EXTEND 

0 

3ZMF 

2JETS-0 

0 

4JETS-0 

CS 

FIVE 

1 

TCF 

roltyre 

0 

2JETS-Q 

CCS 

NJ-Q 

0 

T CF 

4JET  5-Q 

0 

CS 

SIX 

1 

TCF 

POLTYPE 

0 

PLUSV 

CAE 

1/AMINV 

1 

TS 

.5ACCMNE 

0 

CS 

UKGENCYu 

OEc  13.  1966  (MAIN)  PAQE  511 


USER'S  OwN  PAGf  no.  21  L6 

GO  Find  best  roi  ky 


GO  FIND  BEST  POl  ICY 


GO  Find  best  roi icy 


GO  FIND  BtST  ROI  ICY 


GO  find  besi  poi Icy 


GO  find  best  poi  icy 


<^88954A  YJL  SYSTEM  ^ Ok  AGC ; NEW  S^EPATIN  BY  EYLES 


PEC  U,  I966  (MAIN)  PAGE  5U 


L P«K-A)^Ei)  reaction  CoNlROL  sYSTE^  ^UTORILOI 


user's  own  paGt  no. 


E6 


0857  REF  15  LAST  511  U.33A0  6 1^06  0 AP  URGENCYH 

0858  RcF  2A9  LAST  511  17,33Al  10  UOO  0 CCS  A 


0859  REF  7 last  511  17,3342 

0860  17,3343 

0861  REF  8 LAST  512  17,3344 

0862  17, 334^ 

0863  REF  1 17,334L 


6 0U66  1 AP  URGLIMIT 

1 3345  1 ICF  +2 

6 OU66  1 AU  URGLIMIT 

0 0U06  1 EXTENP 

6 3352  0 3ZMF  2JETS+V 


0864  REF  1 

0865  REe  13  LAST  511 


0866  REF  7 LAST  511 


17,3347  0 3315  0 2JETSM+V  TC  VXFORM 

17,335P  3 7^60  1 2 + \/.RATE  cAp  PlvE 

17,3351  1 3307  1 rCF  POLTYPE 


0867  REF 

0868  RnK 

0869  REF 

0870  REF 

0871  REF 


1 

1 

2 LAST  512 
1 I LAST  506 
8 LAST  512 


17,3352  11*966  1 2JETS+V  CCS  NJ+V 


17,3353  1 3347  0 
17,335A  0 3315  0 
1 ? ,3355  3 7^53  1 
17,3359  1 3307  1 


rCF  2JETSM+V 

TC  VxFORM 

CAF  FOUR 

TCF  POLTYPE 


0872 

0873 

0874 

REF 

REF 

16 

9 

LAST 

last 

512 

500 

17,3357 
17*3360 
i 7 ♦ 3 36  i 

0375 

0876 

REF 

1 

17»3362 

17,3363 

0877 

REF 

8 

LAST 

510 

17,336A 

31*306 

0 

BJRGZERO  CAE 

URGENCYR 

0 0006 

1 

EXTENP 

1 2A16 

1 

3ZF 

XTRANS 

0 0006 

1 

EXTEND 

7 3373 
55*313 

1 

0 

VIP 

TS 

S1N22.5 

TERMS 

0878 

REF 

17 

LAST 

312 

17,339^ 

0879 

17  * 3 3 6 6 

0880 

REF 

3 

LAST 

510 

1 /i336? 

0881 

REF 

13 

LAST 

510 

I7O37U 

0882 

REF 

1 

1 7 1 337 1 

31'^06  0 CAE  URGENCYR 

0 0006  1 EXTENP 

7 3372  0 MP  COS22.5 

55'312  1 IS  TERMA 

1 3237  0 TCF  A-B/ONLY 


0883 

0884 

0885 

0886 


0887 

0888 

REF 

14 

LAST 

512 

0889 

REf 

1 

0890 

REF 

3 

LAST 

511 

0891 

0892 

REf 

1 

0893 

R:.F 

2 

LAS  I 

511 

0894 

REF 

9 

LAST 

511 

0895 

REf 

16 

last 

511 

0896 

REF 

18 

LAST 

512 

0897 

REF 

250 

LAST 

512 

0898 

REF 

9 

LAST 

512 

17.3372  35A4I  0 C3S22.5  PEC  0.92388 

17.3373  I4I76  1 SIN22.5  PEC  0.38268 

17,337A  D0932  0 lOOMSCAL  PEC  0.025 

17,3375  62375  1 -TAN22.5  PEC  -.41421 

17,3379  31*312  0 NEGBURG  CAE  TERMA 

17*3377  0 0O06  1 EXTENP 

17.3400  6 3A26  1 3ZMF  NEGANEGB 

17.3401  31*310  1 PPSANEGB  CAE  A+B 

17*3402  0 0O06  1 EXTENP 

17,3403  6 3A74  0 3ZMF  2/4JE1+Q 


17,3404 

31*716 

0 MINUSV 

CAE 

17*3405 

55*927 

1 

TS 

1 7.3406 

17.3407 

4 1304 
6 1306 

0 

0 

cs 

AD 

1/AMINV 

.5ACCMNE 

URGENcYQ 

URGENCYR 


17.3410  IP  UOO  0 CCS  A 

17.3411  6 0066  1 AP  URGLIMIT 


GO  FiNP  Best  poi icy 


GO  FIND  BEST  POl  ICY 

TEST  FOR  SECONP  URGENCY  ALSO  ZERO 

NO  ROTATION  NEEDED  NOw 

TIME  SAVING  A,B  CALCULATION 

UR.SIN(22.5) 


UR. COS (22.5) 

COSINE  OF  22.5  DEGREES 
SINE  OF  22.5  DECREES 

negative  of  TAN(-,ENT  of  22.5  DEGREES 

A URGENCY  TEST 


‘♦8b95^A  YJL  SYSIEM  FOR  AGC;  NEW  PR0‘39‘\N  SHePATIN  BY  EYLES 


L o.r-axes  reaction  control  sYsi en.  Autopilot 


0899  17*3Al^ 

0900  REF  10  LAST  512  U,3^l3 

0901  ITOAl't 

0902  REF  1 17,3915 

0903  REF  3 LAST  512  17,3c,16 

0909  REf  11  last  977  17,3917 

0905  REF  9 LAST  512  17,392° 

0906  REF  1 17, 3^21 

0907  ref  1 17*3922 

0908  REr  9 last  513  17,3923 

0909  REF  19  LAST  5ll  17,392A 

0910  REF  10  LAST  513  17,3925 

0911  REF  3 last  510  17,392° 

0912  17*392'' 

0913  REf  1 17,3930 

0919  REF  2 LAST  511  17,3^31 

0915  REF  10  LAST  512  17*3932 

0916  REF  17  last  512  17,3933 

0917  REF  19  LAST  512  17,393^ 

0918  REF  251  LAS t 512  17,3h35 

0919  REF  11  LAST  513  17,393“ 

0920  17,3937 

0921  REF  12  LAST  513  W,3990 

0922  17,3991 

0923  REF  1 17,3^:,^,2 

0929  REF  3 LAST  5II  17,34^5 

0925  REp  139  LAST  510  17,399^ 

0926  REF  11  LAST  513  17,3995 

0927  REF  1 17,399° 

0928  rEf  1 17,3997 

0929  REF  9 LAST  513  17,3950 

0930  REF  179  LAST  501  17,3951 

0931  REF  12  LAST  513  17,3952 

0932  REF  2 LAST  510  17,3953 

0933  rEF  11  LAST  513  17,395^ 

0939  17,3955 

0935  REF  r last  510  17,395° 

0936  REF  22  LAST  510  17,3957 

0937  REF  3 LAST  510  17*3960 

0938  REF  21  LAST  5IO  17*3961 

0939  REf  13  last  513  17,3962 

0990  REF  20  LAST  513  17*3963 

0991  17,3969 


1 3919 

1 

ICF 

+ 2 

6 OO66 

1 

URGE  I M 1 T 

0 OOO6 

1 

EXTEND 

6 3A2I 

0 

3ZMF 

2JETS-V 

0 3515 

0 

2JETSM-)/ 

TC 

VXFORM 

3 7T57 

0 

2-v.RATE 

CAf 

seven 

1 3°07 

1 

tcf 

PoLT YPE 

11 '“b? 

0 

2JETS-V 

CCS 

NJ-V 

1 3AI6 

0 

T CF 

2JLT5M-V 

0 3°15 

0 

TC 

vxform 

3 6276 

1 

CAF 

SIX 

1 3507 

1 

TCF 

POLT YPE 

31*511 

0 

NEGANEGB 

CAE 

A-B 

0 OOO6 

1 

CA  1 tlNU 

6 3‘'53 

0 

3ZMF 

2/9JETT-R 

31'  715 

0 

plusu 

CAE 

1 / AM  I NU 

55'°27 

1 

TS 

.5ACCMNE 

31*509 

1 

CAE 

URGENCYQ 

6 1 506 

0 

AD 

URGENCYR 

ID  000 

0 

CCS 

A 

6 0066 

1 

AD 

URGLIMIT 

1 3A9I 

1 

TCF 

+ 2 

6 0066 

1 

AD 

URGLIMIT 

0 OOO6 

1 

EXTEND 

6 39-96 

1 

3AMF 

2JETS+U 

0 3523 

0 

2JETSM+U 

TC 

UXFORM 

3 7755 

1 

2+U,RATE 

caf 

ONE 

1 3507 

1 

TCF 

POLTYPE 

ll'°69 

0 

2JETS+U 

CCS 

NJ  + U 

1 3993 

0 

TCF 

2jETsM+U 

D 3523 

0 

T C 

UxFORM 

3 7 761 

0 

CAF 

ZERO 

1 3507 

1 

TCF 

POLTYPE 

31*719 

1 

2/9JET+R 

CAE 

l/AMINR 

55*°27 

1 

Ts 

•saccmne 

0 OOO6 

1 

EX  1 END 

3 1919 

1 

DCA 

ER 

53*912 

0 

DXCH 

E 

31*910 

0 

CAE 

EuOT (R) 

55*907 

1 

IS 

EDOT 

30  066 

1 

CAE 

URGLImIT 

6 1 506 

0 

AD 

URGENCYR 

0 0O06 

1 

EXT  END 

DEC  13,  1966  (MAIN)  PAGE  513 


USER'S  OWN  PAGF  NO.  23  E6 


GO  FIND  BEST  POl  ICY 


GO  FIND  BEST  POl  ICY 


GO  Find  best  poi icy 


GO  FIND  BEST  POl  ICY 


488954A 


L 

09A2 

0943 

0944 


0945 

0946 

0947 

0948 

0949 

0950 

0951 

0952 

0953 

0954 


0955 

0956 

0957 

0958 

0959 

R0960 

0961 

0962 

0963 

0964 

0965 

0966 
C0966 


YJL  SYSieM  •'OR  aGC:  NeW  PRQGRA'I  SHePatIiM  BY  eYLe^ 


0*R-AXEb  reaction  CoNIRoL  S^S  f AUTqP  1 LOT 


REF  3 LAST  497 

REF  25  last  Sll 
REf  13  LAST  513 

REF  1 

REF  2 LAST  497 
REf  18  last  512 
REF  l4  LAST  514 

REF  4 LAST  511 
rEf  12  LAST  513 
REF  14  LAST  513 
REF  18  LAST  513 


17,3465 

6 3470 

1 

3ZMF 

2JETS+R 

17, 3465 

4 6301 

1 

4JETS+R 

CS 

THREE 

17,3467 

1 3507 

1 

TCF 

poLTypE 

17,3470 

11 '562 

0 

2JETS+R 

CCS 

NJ*R 

17,3471 

1 3466 

1 

ICF 

4JETS+R 

1 t ,347  2 

4 7 T53 

0 

^5 

four 

17,3473 

1 3507 

1 

TCF 

POLTYPE 

17,3474 

31 ' (13 

0 

2/4JET+0 

CAE 

1/AMINQ 

17,3475 

55*527 

1 

TS 

.5ACCMNE 

17,3475 

17,3477 

30  066 

6 1504 

1 

1 

CAE 

AD 

urglimit 

URGENCYO 

17^3500  0 0LI06  1 EXTEND 

REf  3 last  496  17,3501  6 3504  0 3ZMF  2jETs+Q 

REF  12  LAST  513  17,3502  4 7^57  1 4JE1S+Q  CS  SEVEN 

REF  15  last  514  17,3503  1 3507  1 TCF  POLTYPE 

REF  8 LAST  51  1 7,3509  ll»t>60  1 2JLT5  + Q CCS  NJ  + Q 

R^F  2 last  496  17,350S  1 3^02  1 TCF  4jETs+Q 

REF  1 W,3509  4 7^52  1 CS  EIGHT 


generalized  calling  seuuencc  -or,  all  g,r-axls  Rotations  (from  bank  17 


!EF 

1 

l7,350l 

54  U61 

1 

POLTYPE 

TS 

NETACNDX 

1 7 , 3 5 1 0 

0 OOO6 

1 

EXTEND 

!EF 

1 

17,3511 

3 3514 

1 

OCA 

POLADR 

17,3512 

52  006 

0 

OTCB 

lEF 

8 LAST  501 

E6 

ebank= 

JISONNOW 

;EF 

1 

17.3513 

17.3514 

02170 

40006 

0 

0 

POLADR 

2CADR 

POLTYPEP 

Dec  1a,  1966  (MAIN)  PaGe  514 
user's  own  PaGf  no,  24  E6 

GO  find  best  poi Icy 

GO  find  best  poi  icy 


GO  find  best  poi  icy 

save  index  INDIfATlNG  AXIS,  DIRECTION, 
AND  number  of  JfTS  REQUESTED  (THIS  SPEC- 
IFIES the  "OPTIMAL"  POLICY,  TRANSFER 
ACROSS  BANKS  TO  POLICY  SELECTION  ROUTINE 

2CADR  OF  JET  POI  ICY  SELECT  ROUINTE. 


A88954A  YJL  SrSlEM  POR  AGC;  MhW  PkO'jRAM  S^EPATIN  3Y  EYUES 


Dec  U,  1966  (MAIN)  PAGE  51b 


L ;j.R-AAE3  reaction  control  AUTOPILOT 

R0967  SJBROJTINeS'  UxFORM  AND  vxFOPM  CAL'-ULATE  NeeDED  vALUeS  FOR  T-JtT  LAW 

R0968  (THEY  Gn  OFF  TO  REDUCE  RATE’  IF  NECESSARY,  AND  THEN  DO  NOT  RETURN) 


0969 

REF 

1 

lY,35l& 

0970 

0971 

0972 

REF 

REF 

REF 

2 

2 

3 

LAST 

LAST 

las; 

997 

508 

515 

17,351^ 

17,351T 

17,3520 

0973 

0979 

0975 

REF 

REf 

REF 

3 

1 

1 

LAST 

5O6 

17.3521 

17.3522 

17.3523 

0976 

REF 

3 

LASl 

515 

17,3529 

0977 

REF 

9 

LAST 

515 

l7»352b 

0978 

0979 

0980 

REf 

REF 

2 

1 

last 

95 

17 .3526 

17.3527 

1 7,3530 

0981 

0982 

REF 

22 

LAST 

513 

17 .3531 

17. 3532 

0983 

REF 

20 

LAST 

980 

17,3533 

0989 

1 7 ,353^ 

31  * '05 

1 

VxFORM 

CAE 

I/2JETSV 

5 9 066 

0 

1 S 

1/NjFTAC 

9 1911 

0 

CS 

EQ 

55*^11 

0 

IS 

EQ 

9 1929 

0 

CS 

EDOTO 

1 3P26 

1 

ICF 

UVXpORM  +1 

31 • 701 

0 

UXFGRM 

CAE 

1/2JETSU 

5 9 ^b6 

0 

I 5 

1/Njetac 

31 '929 
6 1925 
0 0006 

1 

UvXFORM 

CAE 

EDOTQ 

0 

1 

Ad 

EXTEND 

EoOTR 

7 3P75 

1 

VIP 

.707 

55 • 907 

0 OOO6 

1 

1 

T S 

EXTEND 

EDOT 

7 7753 
0 0006 

0 

1 

v|p 

EXTEND 

BIT3 

0985 

0986 

0987 

0988 

0989 

0990 

0991 

0992 

0993 
0999 

0995 

0996 

0997 

0998 

0999 

1000 
1001 
1002 
1003 
1009 


REF  1 

REF  252  LAST  5l3 
REt  32  LASl  507 
REF  1 

REF  33  LAST  515 
REF  2 last  515 

REF  102  LAST  506 
REF  23  LAST  515 


REF  8 LASl  506 


REF  1 


17,3535 

1 3593 

1 

3ZF 

17,3536 

ID  OOO 

0 

CCS 

17,3537 

17,3590 

3 7735 

1 3599 

1 

caf 

0 

T CF 

17,3591 

9 7735 

0 

CS 

17,3592 

1 3599 

0 

TCF 

17,3593 

30  OOl 

0 

UVEDOT 

CAE 

17,3599 

55*907 

1 

UvEDOTl 

IS 

17, 359^ 

0 0O06 

1 

EXTEND 

17,3596 

7 OOOO 

0 

SQUARE 

17,3597 

55'912 

0 

TS 

1 7 » 3 5 5O 

77333 

1 

-i.6C5P 

DEC 

1 7,3551 

D0019 

1 

♦TJMINT6 

DEC 

17 ,3552 

7 7 767 

1 

-T  JM I N 1 6 

DEC 

17*3552 

-TJMINQR 

EQUALS 

17,3553 

30050 

1 

38.5MAT9 

DEC 

17 ,3559 

77  733 

0 

-MS35AT  9 

DEC 

17,3555 

39399 

0 

MAXRATE 

DEC 

17.3556 

17.3557 

31221 

31552 

1 

1 

MAXRATE2 

.6DEG/SC 

DEC 

DEC 

UVEDOT 

A 

PUSmAX 

UVEDOTl 

PuSMAX 

UVEDOTl 

L 

EUOT 


EUOT (2) 

-.01000 

+.00073 

-.00097 

-TJMIN16 

0.00292 

-.00219 

0.88889 

0.79012 

0.05333 


1005 


17,3560  31O00  0 25/320R  DEC  0.78125 


USER'S  OWN  PAG[-  NO.  25  E6 

GET  inverse  of  V-JET  ACCELERATION 

complement  for  transformation 

SET  INVERSE  OF  ll-JET  ACCELERATION 
transform  angular  RATE  TO  U/V-AxIS 

SAVE  FOR  REDUCEllV 


BRANCH  IF  RESCAl ING  SUCCESSFUL. 
LIMIT  EDOf  10  +/-  11.25  DEG/SEC. 


rate  ERROR  scaled  AT  PI/16. 


SAVE  RATE  SQUARED  SCALED  AT  PI(5)/2(8) 
l60  MS  SCALED  At  2(9)  SECONDS 


38.75  MS  SCALED  AT  9 

-35MS  SCALED  AT  9 

10  DEGREES/SECOnD  scaled  at  PI/16 

100  DEG(2)/SEC(;>)  SCALED  AT  PI(2)/2(8) 

6/10  DEGREES/SEf OND  SCALED  AT  Pl/16 


488954tA  YJL  SYSTtM  I- OR  A^iC : NEW  PRO^^A'1  SHePatIn  3Y  eYLeS 


DEC  u’  1^66  (Main)  pa^e  516 


L 

P1006 

R1008 

1009 

1010 
1011 
1012 
1013 
1019 

1015 

1016 

1017 

1018 

1019 

1020 
1021 


1022 


1023 

1029 

1025 

1026 
1027 

C1027 


a,R-AX£6  reaction  control  SYSie^  autopilot  USeR*S  own  page  no.  26 

tHeSe  two  SjBroutines  transform  e-potG)«edotR  into  tNe  u/v-axis  (Respectively)  for  tHe  rate  command  mode 
vAlue  is  stored  in  edotgen  Sealed  at  pi/9  radians/Second. 

17*3561  3AN<  17 

REF  2 last  515  17.3561  31  '(01  0 EDOTUGEN  CAE  1/2JEISU  FOR  U-AXIS  TRANSFORMATION 

REF  9 LAST  515  17.3562  59  ^66  0 IS  1/NjFTAC 

ref  5 last  515  17.3563  31*929  1 CAE  EdOTQ 

17.3569  1 3570  1 TCF  +9 

REF  2 LASf  515  17.3565  31* (05  1 EDOTVGEN  CAE  1/2JETSV  FOR  V-AXIS  TRANSFORMATION 

REF  5 last  516  17.3566  59  066  0 TS  1/NJETAC 

REF  6 LAST  516  17.3567  9 1929  0 CS  EDOTQ 

REF  3 LAST  515  17.3570  6 1925  0 AD  EuOTR 

1 7.3571  0 0O06  1 EXTEND 

REF  2 LAST  515  17.3572  7 3575  1 MP  .7O7 

REF  6 LAST  997  17.3573  55*990  1 TS  RATEDIF 

REF  189  LAST  962  17.3579  0 0O02  0 1C  Q 


REF  1 

REF  16  LASl  282 
REF  11  LAST  993 


17.3575  26501  1 .707  dEc  0.70711 


I7.357S  3 0006  1 SPSBAKUP  EXTEND 

17.3577  3 3PO2  0 OCA 

17.3600  52  006  0 OXCH 

E6  EBANK= 

17.3601  33536  1 5P5RCSAD  2CADR 


SPSRCSAD 

2 

DT 

SPSRCS 


REF 


17.3602  92006  1 


E6 

(ONLY) . 


^B8954A  YJL  SYSfEM  FOR  AGC : N^W  PROi^RA^  SHEPAllrM  3Y  eYLE-A 


OeC  13,  1966  (MAIN)  PAGE  517 


L 

P1028 

1030 

1031 

1032 

1033 
103A 

1035 

1036 

1037 

1038 

1039 
lOAO 
lOAl 
1042 


1043 

1044 

1045 

1046 

1047 

1048 

1049 

1050 

1051 

1052 

1053 

1054 

1055 

1056 

1057 

1058 

1059 

1060 
1061 
1062 

1063 

1064 

1065 

1066 
1067 


0«R-AXES  REflCiloN  CoNTKqL  SYSIEM  AUToPILqI  USER'S  qwN  PaGF  NO.  27  E6 

» )(*  T J E T L A W »»»*»****** '^  »"  t »'***  if  »«■»»*»»**** 'HH'- ***** '"f  ■»*##)****  YHF  **#  « JUf*  it  * 


REF 

24 

LAS  1 

515 

1 7*3603 
17*3604 

REF 

REF 

25 

23 

LAST 

LAST 

517 

513 

1 7 * 3t>05 
17*3606 
1 7*3607 

R3F 

24 

LAST 

517 

17  * 3 6 1 0 

4 140?  1 TJETLA>«  CS  EuOT 

0 0006  1 extend 

6 3P11  1 3ZMF  +4 

55'‘'07  1 IS  EDOT 

4 1411  0 CS  E 

55'A11  0 TS  E 


TEST  ON  EDOT  SIc.N: 


SIGNS  OF  E AND  FOOT  CHANGED  IF  EDOT  NEG. 
TO  consider  functions  in  the  upper  HALF 

OF  The  e-dot  ph^se  plane. 


REF 

9 

LAST 

515 

REF 

2 

lasi 

52 

REF 

25 

LAST 

517 

REF 

10 

LAST 

506 

REF 

2 

LAST 

46 

REF 

1 

REF 

26 

LAST 

517 

REF 

3 

LAS  1 

517 

REF 

15 

LAST 

512 

r5F 

1 

REF  36  LaST  5O3 
REF  1 


I7*36ll 

31 '412 

1 

CAE 

EDOT (2) 

17  *3612 

0 0006 

1 

EXTEND 

1 7*36l3 

7 0066 

0 

VIP 

1/NETAcc 

1 /*36lA 

6 1411 

1 

AD 

E 

17  * 3 6 1 5 

0 OOO6 

1 

extend 

17*3616 

61'''15 

0 

su 

DB 

17*361 7 

55*445 

1 

TS 

HDAP 

17*3620 

0 OOO6 

1 

EXTEND 

17*3621 

6 3662 

0 

3ZMF 

NEGHDAP 

17*3622 

31  '“*07 

0 

CAE 

EDOT 

17*3623 

0 OOO6 

1 

EXTEND 

1 ( * 3 6 2 4 

7 0 0 6 6 

0 

MP 

1/NETACC 

17*3625 

23  Ool 

1 

3D0UBL 

17*3626 

55'512 

1 

TS 

TERMA 

1 7*3627 

6 3550 

1 

Ad 

-1.6CSP 

17*3630 

0 0006 

1 

EXTEND 

1 7 *3631 

6 3634 

0 

3ZMF 

+ 3 

17*3632 

3 7(40 

0 MAXTJET 

CAF 

BIT14 

17  * 363 3 

1 2461 

1 

tcf 

noRmretn 

SCALED  AT  PI(2)/2(+h)  RAD ( 2 ) / SEC ( 2 ) 
1/netacc  has  been  Set  for  n-jets  with 
Implicit  fActor  oe  (I/2) . 

ATTITUDE  error  aCALfD  AT  PI  RADIANS, 
deadband  value  sCaLf'D  AT  PI  RADIANS, 
E+.5ED0T/NETACC>Db 

scaled  at  pi  radians. 


rate  error:  limited  to  +/-  11.25  deg/sel 

ScALED  at  Pl/LG  RADi ANS/SECOND. 

SCALED  AT  2(+8)/PI  SEC(2)/RAD:  (ACC)(-1) 
SCALED  AT  2 (+4)  SECONDS. 


edot/netacc-i.scsp  scaled  at  16  seconds* 


(1/2)  IS  LIKE  Pi.SMAX  AT  THIS  SCALING. 
(OVERpLOvJ  IS  prevented  IN  THIS  wAY*) 


R" F 3 LAST  517 
REF  5 Last  482 

REF  1 

REF  16  LAST  517 

ref  1 

REF  1 


17*3634  4 1445  1 
1 ?*3635  6 1926  1 
17*3639  0 0U06  1 
17*3637  6 3(11  0 

17*3640  31  'S12  0 
17*3641  6 3P54  0 
17*3642  0 OOO6  1 
17*3643  6 3646  0 


CS  HDAP  DBMINIMP-E-EDOT (2) /NETACC+DB 

AD  MINIMPDB  SCALED  AT  PI  RADIANS, 

extend  (DURING  APS  BURnS  DBMI N 1 MP=-DB ) 

3ZMF  MAINBRCH 

CAE  TERMA  EDOT/NETACC-35MA  SCALED  AT  l6  SECONDS. 

AD  -MS35AT4 

extend  compare  TIME-T0„GET-ZER0_RATE  WITH  35MS, 

3ZMF  INZ0NE4 


REF  1 
REf  1 


3644 

3645 


6 3S53  1 
1 3(52  0 


AD  38.5MAT4  TIME-lO-GET-ZFRn-RATE  + 1/2  MINiMP. 

TCF  TJETScAL 


REF  2 Last  49 

ref  1 


17*3646  31 '606  0 1NZ0NE4  CAE  NO.OJeTS  IF  NO  0-AXlS  JEtS  THEN  MUST  HAVE  R-AXIS 

17*3647  0 0006  1 EXTEND 

17*3650  1 3656  0 3ZF  ROTRAxIS 


48895^A 


L 

1068 

1069 

1070 

1071 

1072 

1073 

1074 


1075 

1076 

10  77 

1078 

1079 

1080 
1081 
1082 

1083 

1084 

1085 

1086 

1087 

1088 

1089 

1090 

1091 

1092 

1093 

1094 

1095 

1096 

1097 

1098 

1099 

1100 

1101 

1102 

1103 
1 104 

1105 

1106 
1107 


YJL  SYSTtM  f-OR  AGC ; NEW  PRO'J^A.'O  sHePATIN  3Y  EYLES 


o»r-a\e3  reaCiion  conikuL  sYsie'^  autopilot 


REF  3 last  503 
REF  10  LAST  505 

REF  1 

REF  1 

REF  4 last  503 
REf  12  LAST  495 

REF  1 

REF  2 last  517 
REF  10  last  517 


17,3651 

30  775 

1 

CAE 

OMEGAqD 

17 ,3652 

55*^17 

0 

T S 

OMEGAU 

17,3653 

31*907 

1 

CAE 

no.rjets 

17,3654 

0 0OO6 

1 

EXTEND 

1 7,3655 

1 3960 

0 

3ZF 

DOTJMIN 

1 7*3656 

30  776 

1 

ROTRAXIS 

cae 

omegard 

17,3657 

55*‘*21 

0 

TS 

OmEgAR 

17, 3660 

3 3951 

0 

DOT  JMl N 

CAF 

+1 JMINT6 

17,3661 

1 2461 

1 

TCF 

NORMRETN 

M cr  LIT  1 rt  D 

<'  A 

1 7 t 3662 

31  4J.2 

1 

NcoHUAr 

^AE 

EDOT  ( 2 ) 

REF 

REF 

REF 

REF 


REF 


1 7,3663 

X D 

26 

11 

1 

last 

LAST 

pit 

517 

517 

i f 1500^ 

17,3669 

17,3669 

5 

La  St 

481 

17, 3667 

17.3670 

17.3671 

1 0 

LAS  I 

912 

17 ,3672 

0 0006  1 
7 1927  1 
6 1411  1 
6 1415  0 
6 1925  1 
0 0006  1 
6 3973  0 
1 2AI6  1 


EXTEND 

^P  .5ACCMNE 

AD  E 

AD  DB 

AD  DBMINIMP 

EXTEND 
3ZMF  +2 
TCF  XIRANS 


REF  1 
REF  27  last 


REF  il  LAST 


517 


518 


17*3673 

17,367A 

17.3679 

17.3679 

17,367V 


4 3955  0 
6 1^-07  0 
0 0006  1 
6 3700  0 
1 2^16  1 


+2  C5  MaXRATE 

Ad  EdOT 

EXTEND 
3ZMF  +2 
TCF  XIRANS 


REF  28  LAST  518 
REF  4 LAST  517 
REF  17  last  517 


17*3700  4 1407  1 +2 

17.3701  0 0006  1 

17.3702  7 0066  0 

17.3703  2D  001  1 

17,3^04  55*912  1 


CS  EDOT 

extend 

'^P  1/NETACC 

DDOJBL 

TS  TtRMA 


r2F  4 
REF  27 


LAST  517 
LAST  518 


1 7,3709 
17,3709 


4 1445  1 
6 1411  1 


CS  HDAp 

AD  E 


REF  28  LAST  518  17,3707  6 I**!!  1 AD 
REF  6 LAST  517  i7,37lO  6 1926  1 AO 
R-F  5 LASI  518  17,37ll  55*^45  1 MaINBRCH  T5 


E 

MINIMPDB 

HDAP 


REF  5 last  518 
REF  14  LAST  518 


17.3712  30  066  1 

17.3713  27*927  1 


CAE  1/nFTACC 

ADS  .5ACCMNE 


REF  1 

REF  6 LAST  518 
REF  1 


17,371A  0 0O06  1 

17,3719  7 3956  0 

17.3719  6 1445  0 

17,3717  0 0OO6  1 

17.3720  6 3756  0 


EXTEND 

MP  MAXRATE2 

AD  HDAP 

EXTEND 

3ZMF  NOROOT 


DEC  I966  (MAIN)  PAGE  518 


USER'S  OWN  PaGf  no.  2*1  E6 

WITH  o-A/lS  jFTA,  zero  T He  RATE  ERROR, 


IF  NO  r-Axis  jEts,  then  Q-AXiS  JETS  wErE 
already  found. 


with  r-axis  jFT't,  Zero  the  rate  error. 


USE  MINIMUM  IMPliLSE  DT  FOR  TOR. 


RATE  error  squared  SCALED  AT  PI (2) 72(8). 


.5(1/ACCMIN)  AT  2(8i/PI  5EC(2)/RAD, 
ATTITUDE  error  aCALfD  AT  PI  RADIANS 

deadbands  (2)  Scaled  at  pi  radians 

(DURING  APS  BURk.S  DbMINIMP  = 0.) 


NO  ROTATION  JETs  NEFDED. 

10  DEGREES/SECOnD  SCALED  AT  PI/16. 
EdOT-MAXRATE  scaled  at  PI/16  RAd/SEC. 


RATE  ERROR  SCALf D At  PI/I6  RAD/SEC. 
(LIMITED  TO  +/<  11.25  otG/SEc.) 

SCALED  AT  2(+&)/PI  SEC(2)/RAD:  (ACC):-1) 
SCALED  AT  2(34)  SECONDS. 


-E+.51ED0T (2) /N) TACC  +DB 


TWICE  error  NEGATES  E OF  HDAP (ABOVE) 

-HDAP (ABOVE) +2E+DBMINIMP  AT  PI  RADIANS. 

.5  ( I/nETACC+I/AcCMIn)  scaled  at  2(8)/Pi. 
.5ACCMNE  NOW  HOl  DS  DENOM. 

DEN0M(MAXRATE(2i )+HDAP  AT  PI  RADIANS, 


48895^A  YJL  SYSIeM  (■  OR  AGC:  MeW  PROGRAM  S^ePATIN  BY  e^Le 


L 'j,r-axeg  re^^ction  control  BYsi evi,  Autopilot 


1108 

REF 

7 

last 

518 

17*3721 

31 '4A5 

0 

CAE 

HDAP 

1109 

17*3  ?22 

0 

0006 

1 

EXTEND 

1110 

ref 

15 

LAST 

518 

17*3723 

11'627 

1 

DV 

,5AcCMNE 

1111 

17  *372A 

u 

1 

EXTEND 

1112 

REF 

6 

LAST 

518 

17*372S 

7 

0066 

0 

V)P 

1/NFTACC 

1113 

17*3726 

0 

0006 

1 

EXTEND 

1 1 1 A 

REF 

7 

LAST 

519 

17  *3727 

7 

0066 

0 

VIP 

1/NETACC 

1115 

17*3730 

2: 

001 

1 

ODOUBL 

1116 

17*3731 

2: 

001 

1 

ODOUBL 

1117 

REF 

9 

LAST 

512 

17*3732 

55 

* 5 1 3 

0 

T S 

termb 

1118 

rff 

2 

last 

517 

17*3733 

3 

3550 

1 

CAP 

-1.6CSP 

1119 

R EF 

18 

LAST 

518 

17*373^ 

6 

1512 

0 

AD 

TERMA 

1120 

17*3735 

0 

0006 

1 

extend 

1121 

17*3736 

7 

0000 

0 

SQUARE 

1122 

REF 

10 

LAST 

519 

17  *3737 

6 

1513 

1 

AD 

termb 

1123 

17*37A0 

0 

0006 

1 

EXTEND 

112A 

REF 

1 

17*3741 

6 

3632 

0 

3ZMF 

MAXTJET 

1125 

REF 

2 

LAST 

515 

17*37A2 

3 

3552 

0 

CAF 

-T JMIN16 

1126 

RrF 

19 

LAST 

519 

17  *37A3 

6 

1512 

0 

AD 

TERMA 

1127 

17  *37A4 

0 

0006 

1 

extend 

1128 

REF 

1 

17  *37A5 

6 

3 764 

1 

3ZMF 

MAYNOJET 

1129 

REF 

6 

LAST 

5O5 

17*37A6 

0 

5OAI 

1 

PREROOT 

TC 

T6J0BCHK 

1130 

REF 

1 1 

LAST 

519 

17  *37A7 

4 

1513 

0 

cs 

TERMB 

1131 

REF 

2 

last 

A82 

17*3750 

0 

5435 

0 

TC 

SPROOT 

1132 

REF 

20 

LAST 

519 

17*3751 

6 

1512 

0 

TJSUM 

AD 

TERMA 

1133 

17*3752 

6 

oooo 

1 

TJETSCAL 

DOUBLE 

113A 

17*3753 

0 

OUO6 

1 

EXTEND 

1135 

REF 

1 

1 7 * 37 54 

7 

3560 

0 

V|P 

25/320R 

1136 

REF 

3 

LAST 

518 

1 7*3755 

1 

2461 

1 

TCF 

NORMRETN 

1137 

REF 

2 

LAST 

516 

17*3755 

3 

3555 

1 

Noroot 

CAF 

MAXRATE 

1138 

REF 

1 

17*375^ 

6 

3557 

0 

AD 

.6DEG/SC 

1139 

17*3760 

0 

OOO6 

1 

EXTEND 

1 1 AO 

REF 

8 

LAS  I 

519 

1 7 * 3 7 6 1 

7 

0066 

0 

WP 

1/NETACC 

llAl 

17*3762 

20 

001 

1 

ddoubl 

11A2 

REF 

1 

17*3763 

1 

3 751 

0 

TCF 

TJSUM 

11A3 

1 1 Z.  Zi. 

REF 

D - C 

3 

"5  1 

LAST 

1 ACT 

519 

17*3764 

3 

3552 

0 

MAYNOJET 

CAF 

-TJMIN16 

1 1 H 

Kc.r 

d.  L 

L.  A j 1 

519 

17  * 3 7 6 5 

6 

1512 

0 

AD 

TERMA 

11A5 

1 7 *3766 

0 

0006 

1 

EXTEND 

11A6 

D “ C 

17,3767 

7 

0000 

0 

SQUARE 

1 i 

K cr 

1 2 

LAST 

519 

17  *3770 

6 

1513 

1 

AD 

TERMB 

11A8 

17*3771 

0 

OOO6 

1 

EXTEND 

11A9 

REF 

1 

17*3772 

6 

3 746 

1 

3ZMF 

PREROOT 

1150 

REF 

12 

LAST 

518 

17*3773 

1 

2416 

1 

TCF 

XIRANS 

Dec  1:},  1966  (MAIN)  PAGE  blV 


USER'S  OwN  pACiF  NO.  29  E6 

+ (HDAP/DENOM)  (dNETACC)  (2)  AT  2(8)  SELS, 


-l•6(CsP)-ED0T/^,ETAc.C  SGALED  AT  16  sECS 

(-1.6(CSP)-ED0T/NETACC) (2)  AT  256  SECS 
(-1.6 (CSP) -EDOT/NETaCC) (2) *TERM3 

-EDOT/NETACC-TJmIN  scaled  at  16. 


SQRT(-TERMB)  SCALED  AT  ^(A)  SECONDS, 
TERMA  + SORT  (-TFRl.B) 

NOW  scaled  at  2 ( + 3)  SECONDS. 

SCALED  TO  l6/^5  2(+a)  SECONDS. 


MAXRATE+DEL  SCAi  ED  AT  Pi/16  RAD/SEC, 

(MAXRATE+DEL) /NrTACc 
SCALED  AT  2(+A)  SECONDS 


TERMA-TUMIN  SCAI  ED  AT  2(+A)  SECONDS, 

scaled  at  2 (+8)  seconds. 

(TERMA-TJMIN) (21 +TERMb  At  2(8)  SECONDS, 
NO  ROTATION  UFTS, 


48895'^A  YJL  SYSieM  FOR  AGC;  Nit''  PKoGrc^yI  SHePatIN  BY  h'YUtS 


Dec  U,  1966  (MAIN)  page  520 


L a.R-ANtS  Jet  BELeCT  ANO  FAll-J<t  CUNTROL  logic  user's  own  PaGe  no.  I 

Roool  PROGRAM;  POLTYPeP  MUl;,  NO.  1 DATE:  NOVEMBER  14,  1966 

Ro002  AJtHOR:  JONATHAN  0.  aDOeLSTON  ( AOAMS  ASSOCIATES) 

R0003  THIB  PRlGRAVi  IS  DeSIGNeU  TO  SrLtCI  A POLICY  OF  JeTS  (OF  WHICH  NONE  HAVe  FAILeO)  WHICH  CaN  Bp  UStO  TO  CRpATE  THe 

Rooos  rotation,  and/or  translation  ^HICH  is  required  by  the  LM  DAp.  FROM  THe  INDEX  "NETACNDx"  (wHiCH  MUST  bE  SET  wHEN 

RoOOT  rotation  is  ReOUeBTeD),  the  Optimal  policy  is  selected.  WHeN  failures  are  DeteCteD  within  a CHOSeN  POLrCY,  AN 

Rooo9  A'^teRnate  policy  is  Selected,  if  all  alternate  policies  aRe  exhausted  without  findino  aN  unfaileD  policy,  a jei 

Rooii  failure  abort  is  initiated.  n'Hen  the  Routine  is  jse  for  translation  JetS  only,  "tRanoni  Y"  i^ust  be  set  positive 

R00I3  (MONZERO)  and  the  entry  point  is  "+/-XTRAN". 


R0014  CALLING  SEQUENCES; 


R0015  1.  FOR  rotation  (WITH  POSSIBLE  +X  TRANSLATION): 


A0016 

A0017 

A0018 

A0019 

A0020 

A0021 

A0022 

A0023 


CAF  return  (GENADR  OF  RETURN) 

rS  TJETADR 

CAF  INDeXVAL  INDICATE  ROT.  AxIS.  DIRECTION, 

TS  NtTACNDX  AND  NUMBER  OF  JfTS. 

extend 

OCA  PoLADR  transfer  ACROSS  BANxS  TO  POLtYPeP. 

OTCB 


R0024  2.  FOR  translation  ONLY: 


A0025 

A0026 

A0027 

A0028 

A0029 

A0030 

A0031 

A0032 

A0033 


CAF  PoSMAX/NeGMAX  INDICATE  -X  TRANSLATION  BY  PuSMAX. 

TS  ANYTRANS  +X  TRANSLATION  BY  NEGMAX. 

CAF  Zero  zero  extraneous  flags  for  routine 

TS  TRANSNOW 

TS  TRANSAVE 

EXTEND 

OCA  JT POLADR  TRANSFER  ACROSS  BANKS  TO  +/-XTRAN 

TS  TRANONLY  (AND  SET  IRANONI  Y POSITIVE  NONZeRO.) 

OTCB 


R0034  SUBROUTINES  CALLED:  NONE. 


R0035  normal  return  i.  FOR  ROTATION,  TO  ADDRtSS  IN  BANK  i7  SPECIFIED  BY  C(TJtTADR). 

R0037  2.  FOR  TRANSLAiION*  RESUME. 

Ro038  AlARM/ABORT  MqDe:  whenever  THeRE  ‘S  no  usable  Jet  policy  found,  transfer  to  JETABORt. 
ROOAO  input:  NETACNDX*CH5MA5K,i/NETACS. 

R0041  OUTPUT:  JETS  ON  IN  CHANNEL  S,  JTSATCHG, 

Roo42  Debris:  a,l,alll  itemps,ail  rjRtregs. 

Roo43  initialization  at  Rotation  Reouesi  entry  point: 


A88954A 


L 


00^4 

0045 

0046 

0047 

0048 

0049 

0050 

ROO^I 

0053 

0054 

0055 

0056 

0057 

0058 

0059 

0060 
0061 
0062 

R0063 

0064 

0065 

0066 
0067 

ROO68 

0070 

0071 

Ro072 

R0074 

0076 

0077 

0078 

0079 

0080 
0081 
0082 


YJL  system  l-Ohi  AGC:  NEW  PROGRiim  SI^EPATIN  3Y  EYLES 
O.R-AXES  JEl  SELECT  Ai\0  FaICJRE  CUNTRoL  LoGIC 


REF  9 LAST  516 

REF  175  LAST  5I3 
REF  2 last  499 
REF  2 LAST  499 
REF  2 LAST  499 
REF  2 last  499 


20*2170 

E6 

20.2170  3 7'6l  0 

20.2171  54  0/0  1 

20.2172  54  071  0 

20.2173  54  O72  0 

20,2176  54  O73  1 


3AN<  20 
EBANK=  JTSONNOW 


POLTYPEP  :AF 
IS 
TS 
TS 
TS 


zero 

TRANONLy 

ANYTRANS 

TRANSNOW 

TRANSAVE 


DEC  l3,  1966  (MAIN)  PAGE  521 
USER'S  OWN  Page  no.  2 


SET  volatile  SWITCHES  TO  INDICATE 

1)  TRANSLATION  cNTRy  NO!  mADe  (ROTATION) 

2)  NO  translation  KNOWN  YET, 

3)  NO  TRANS.  DURING  ROT.  KNOWN  YET. 

4)  NO  TRANSLATiriN  POLICY  SELECTED  YET. 


TEST  FOR  SeNS(-  OF  ROlAflON  JeI^*  (MAKe  TRANSLATION  ReQUeSt  FROM  tHe  ASyRONAUl'S  Sj I CK  OVeRRIDe  INTERNAi  ULLAGe) 


REF  31  LAST  498 

REF  1 

REF  16  LaSI  498 

REF  1 


20.2175  3 7^47  1 

20.2176  0 0006  1 

20.2177  02  031  1 
20,2200  0 0006  1 
20,2201  1 2266  1 

20.2202  3 7746  0 

20.2203  0 OOO6  1 

20,2206  02  C3I  1 

20.2205  0 0006  1 

20.2206  1 2271  0 


CAF  BIT7 

EXTEND 
RAND  31 

EXTEND 

3ZF  +XTRANSL 

CAF  BITS 

EXTEND 
RAND  31 

EXTEND 

3ZF  -XSFNSE 


astronaut  .x  translation  request  test. 


ASTRONAUT  -X  TRANSLATION  REQUEST  TEST. 


CHECK  FOR  ULLAGE  OR  ASCENT  BjrN! 


REF 

1 

20,2207 

3 2^55 

1 ULL/+X 

CAF 

BITS668 

REF 

64  LrtSi 

505 

20,2210 

7 0077 

0 

mask 

DAPbOOLS 

REF 

253  LAS' 

515 

20,2211 

ID  OOO 

0 

CCS 

A 

REF 

1 

20,2212 

1 2260 

0 

1 CF 

+ X se  lect 

LM 

IS  eyTHeR 

IN 

powered  Descent  qR  in 

i COASTING 

flight 

Select  Jets 

REF 

2 last 

516 

20,2213 

5D  061 

0 

index 

NeTACNDX 

REF 

1 

20,2216 

3 2675 

0 

CAF 

NORMLPOL 

CHECK  FOR  ULLAGE  OR  ASCENT  BURN:  (EITHER 
bit  requires  +x  sense  for  rotation  JETS) 
BIT6:  ULLAGE  BIt  (+X  TRANSLATION  ASKED) 
bits:  ascent  burn  (NO  TRANSLATION  ASKED) 


PICK  UP  force-couplf  table  Index  and  the 
number  of  Policies  to  check  (packed). 


UNPACK  iHl  Relative  address  o-  the  Best  Rolicy  and  the  number  of  alternate  policies  to  tHeck  wiihin  the  loop. 

THIS  3I1S  ARE  PACKED  THUS! Y oXYYY,  WHERE  X BECOMES  C(LOOPCTR)  AND  YYY  BECOMES  C(POLRFLnC).  B1TS8,9  ARE  ZERO. 


REF  103  LAST  515 
REf  6 last  161 
REF  1 

REF  42  last  506 

REF  ID4  LASI  521 
REF  1 


20.2215 

20.2216 


54  001  1 
7 6130  1 


20,2217  54  063  0 


NJMBALTS  TS 

mask 

TS 


L 

L0w7 

POLRELOC 


20,2220 

20,2221 


3 7750  1 
0 0006  1 


20,2222  7 0001  1 

2u,2223  54  054  t 


CAF  B1T6 

EXTEND 
MP  L 

BeStPOLS  TS  LOOPCTR 


SAVE  FULL  WORD  TO  Gf T BITS  10-12*  LATER* 
mask  bits  GlVlNf,  INoEX  VAlUE  FOR  BEST 
POLICY  (W.R.T.  TOP  OF  PULTABLE). 

EXTRACT  BITS  10„I2  nF  ORIGINAL  WORD: 

THIS  VALUE  IS  USED  AS  A LOOP  COUNTER  TO 
TEST  all  the  feasible  JET  POLICIES  FOR 

the  given  Request,  (also  top  ol  loop.) 


48895^A 


L 

P0083 

008A 

0085 

0086 

0087 

0088 

0089 

0090 

0091 

0092 

0093 
009A 

0095 

0096 

0097 

0098 

R0099 

0100 

0101 

0102 

0103 

0104 

0105 

0106 

0107 

0108 
C0108 

0109 

0110 
0111 

0112 

R01125 


YJL  system  fOR  agc:  Pro‘^RA'1  smePatin  eYLes 


dec  In*  1966  <MAIN)  pace  522 


q,r-axes  jet  Select  and  eailj^e  control  logic  useR'S  own  pagf  no.  3 e6 

LOOP  IP  set  lip  "TRANSNOW"  ANO  reject  all  failed  POLICIES! 


rEF  2 LA5T  521  20,2229  50  ^63  1 INpEx 

REF  1 20,2225  3 2553  0 CAF 

REF  254  Last  521  c0,222t>  10  DOO  0 CCS 

REF  1 20,222V  54  065  0 CRKFAILS  IS 

20,2230  1 2^33  0 ICF 

REF  3 last  521  20,2231  54  072  0 TS 

REF  1 20,2232  1 2227  0 T CF 

REF  2 last  464  20*2233  > 1^02  0 MASK 

REF  255  last  522  20,2239  10  Ooo  0 CCS 

20,2235  1 223?  1 TCF 

REF  1 20,2236  1 2276  1 TCF 

20*223V  0 0O06  i EXTEND 

REF  3 last  522  20,2240  2b  063  0 OlM 

REF  2 last  521  20,2241  10  064  1 CCS 

REF  1 20,2242  1 2223  1 TCF 


POLrElOC  PICK  UP  NEXT  P0|  IcY  TO  CHECK  FO;,  FAIlUrE 

POLTABLE  (MUST  DO  A "CAFh  THeN  "CCS"  FOR  RANGE,) 

A IF  POLICY  TABLE  ENTRY  IS  NEGATUE,  THEN 

THISPOLY  A FLAG  IS  SET  Tn  DO  SOME  TRANSLATION 

+3  WITH  the  ROTATION  POLICY  SELeCTfD,  IF 

TRANSNOW  requested.  POI TaBLE  VALUeS  ARE  CCS-ABLE. 

CHKFAILS  TRANSNOW  (ONCp  ON)  STAYS  oN  FOR  THIS  CSP 

CH5MASK  compare  THISPoLV  WItH  BITS  OF  FaILED  JET 

A IF  C(A)  = +0,  THEN  THERE  ARE  NO  FAILURES 

+2  IN  THIS  POLICY  and  THE  LM  DAP  USES  IT, 

POLFOUND  IF  C(A)  IS  NOT  +0,  IT  IS  POSITI./E  AND 

first  the  relative  address  indexer  is 
polrfloc  decremented  by  one  for  the  Next  policy, 

LOOPCTR  then  a check  is  made  for  ANY  more  usable 

BESTPOLS  policies,  if  no  more,  C(LOOPCTR)  = +0. 


xxxxx  jtT  failure  abort  SEQUexCE*  xxxx* 


REF 

176 

LAST 

521 

20,2243 

20,2249 

20,2245 

3 7^61 

0 OOO6 

01  005 

0 

1 

0 

ABORTJET  CAF 

EXTEND 

WRITE 

ZERO 

5 

20,2246 

0 OOO6 

1 

EXTEND 

20,2247 

01  006 

0 

WRITE 

6 

REF 

3 

LAST 

301 

20,2250 

3 56  ?6 

0 

CAF 

PRI037 

REF 

17 

LAST 

356 

20,2251 

0 5523 

0 

TC 

NOVAC 

REF 

10 

LAST 

521 

E6 

EBANK= 

jtsonnow 

20,2252 

J2'-'  (0 

1 

2CADR 

Jet  ABORT 

REF 

1 

20,2253 

16006 

0 

REF 

2 

LAST 

463 

20,2259 

4 7 ^43 

1 

cs 

GODAPGO 

REF 

45 

LAS  1 

521 

20 ,2255 

7 0077 

0 

MASK 

DAPBOOLS 

REF 

REF 

46 

34 

LAST 

LAST 

522 

502 

20,2256 

20,225i^ 

54  077 

1 5^51 

0 

0 

TS 

TCF 

DAPBOOLS 

resume 

end  jet  failure  abort  sequence. 


turn  off  all  jElS. 


ABORT  priority. 

call  JETABORT  Tt. rough  executive. 


SET  GODAPuO  to  turn  LM  UAP  OFF  ,^H£N  THIS 
BIT  IS  checked  in  The  next  P-AXIS  RUPT. 


^889b^A  Y JL  AqC  : NLw  pROO^Avt  S^^EpATlN  By  EyLL.S 


L 

P0II3 

OllA 

0115 

0116 
0117 

R0II8 

0119 

0120 

ROI2I 

0122 

0123 

0129 

R0125 

0126 

0127 

0128 

0129 

0130 
R0131 

0132 

0133 
0139 

0135 

0136 

0137 

0138 

0139 

0190 

0191 

0192 

0193 
R0199 

0195 

0196 

0197 


3»R-AX[:6  JET  SlLeCT  ANU  FAILJ^E  CONTROL  LoGlC 

enter  here  after  ULLAGe/ASCENT  OeIECtION; 

REF  97  last  522  20,2260  9 0077  0 +XSELECT  CS 

r£E  3 last  A55  20,2261  7 7 ^50  0 

REF  256  LAS!  522  20,226^^  10  OOO  0 CCS 

REF  1 20,2263  1 2^66  0 TCF 


ENTER  HlRE  fOR  +X 

REF  8 last  999 
REF  3 last  521 

enter  here  for  +X 

REF  3 Last  521 
REF  1 

REF  1 


TRANSLAtIOvi: 

20,2269  3 7^37 

20,226R  59  O7I 

sense  JET8; 

20,2266  53  061 

20,226V  3 2615 

20*2270  1 2915 


0 4.XTRANSL  CAF 


0 T5 

0 +XSENSE  INDEX 

1 CAF 

1 TCF 


enter  here  for  -X  TRANSLATION: 


REF  39  LAST  515  20,2271 

REF  9 last  523  20,2279 

REF  9 LAST  523  20*2273 

REF  1 20,2279 

REF  2 LAST  523  20,2275 

enter  here  after  a rotation 


3 7^35  1 -XSENSE  CAF 

59  071  0 T5 

53  061  0 index 

3 2535  0 CAF 

1 2915  1 ICF 

3LICT  HAS  been  FOUND: 


REF  2 last  522  20*22^6  33  065  i POLFOUND  CAE 


20,2277  0 0006  1 EXTEND 

REF  31  LASI  997  20,2300  7 7/52  1 'IP 

REF  257  last  523  20,2301  50  Ooo  1 INDEX 

REF  1 20,2302  3 2956  1 CAF 

REF  3 last  517  20,2303  55'606  1 T5 

rEF  105  LAST  521  20,2309  33  001  0 CAE 

20,2305  0 0006  1 EXTEND 

REF  32  LAST  523  20,2306  7 7T52  1 ^P 

REF  258  last  523  20,2307  50  OOO  1 INDEX 

REF  2 LAST  523  20,23lO  3 2956  1 CAF 

REF  2 LASI  518  20*23ll  55*607  0 IS 


PICK  0U|  ROTATION  JETS  FRoM  TAB_E  ENtRY: 


REF 

3 

LAST 

523 

20,2312 

30  065 

1 

CAE 

REF 

9 

LAST 

388 

20,2313 

7 ‘*553 

1 

MASK 

REF 

35 

last 

500 

20,2319 

6 7 T37 

0 

AD 

dec  13*  I966  (MAIN)  pAGE  523 


USER'S  OWN  PAGf  no.  9 E6 

DAPBOOLS 

ULLaGER 

A 

+XSENSE 

CHECK  FOR  ullage  BiT 6/DAPBOOLS  =1. 

IF  The  ullage  biT  is  o,  then  the  lm  is 

IN  AN  ascent  burn  AND  NO  *.x  TRANSLATION 
HAS  been  REOUFStED  (SEE  ULL/+X) . 

NeGMAx 

ANYTRANS 

INDICATE  +X  TRAkSLAtION  FOR  CCS  LATER. 
(ANYTRANS  IS  A vOLAtILE  SWITCH.) 

NETACNDx 
♦ SENS  1 AB 

PICK  UP  +X  sensf  tabLe  index  and  the 
number  of  ALTFRivATE  policies  to  check. 

NUMBALTS 

GO  to  begin  FAIiURE  CHECKING  (ROTATION), 

POSMAX 

ANYTRANS 

INDICATE  -X  translation  FOR  CCS  LATER. 
(ANYTRANS  IS  A VOLATILE  SWITCH.) 

NETACNDX 

-SENSTAb 

PICK  UP  -X  SeNSf  table  INDEX  AND  THE 

number  of  alternate  policies  to  check. 

NUMBALTS 

GO  TO  BEGIN  FAllURE  CHECKING  (RiTATlON). 

THISPOLY 

BIT9 

A 

TURKTABL 

NU. DUETS 

GET  POSITIVE-VAI  UeD  POLICY  TABLE  ENTRY 
which  is  INSUREn  AGAINST  FAILURE. 

UNPACK  bits  12-19  Of  TABLE  ENTRy  GET  THE 
NUMBER  OF  Q-AXiS  JETS  FROM  TORO  IE  TABLE. 
SAVE  FOR  rORQUE  VECTOR  RECONSTRUCTION 

AND  FOR  determining  1/NETACC. 

L 

BIT9 

A 

TORKTABL 

Unpack  bjts  9-11  of  table  entry  which 

ARE  NOW  BITS  12-19  OF  THE  L-REGiSTER. 
(B1T15  OF  L IS  n DUf  TO  SIGN  AGREEMENT.) 
GET  NUMBER  OF  R.AXis  JEfS  FROM  rOROUE 
table.  save  FOp  TORQUE  VECTOR  RECON- 

NO.RJETS 

STRUCTION  AND  FnR  GfTTING  1/NETACC. 

THISPOLY 

Lows 

BIT15 

UNPACK  BITS  l_8  OF  TABLE  ENTRY  (DONE 

MOST  EASILY  BY  tHE  MASKING  OPERATION). 
SET  SIGN  TO  INDICATE  O.R-AXES  JfTS. 

YJL  SYSIEM  FUk  AGC:  Ntw  PkO^'RAVl  S^^ePATIN  3Y  eYLES  DEC  U,  lg66  (MAIN) 

L 3»r-axEs  jo  sE-LECT  and  FaJEJRE  CUnTrqL  LoGiC  USEr'S  own  Page  no*  ^ 

01A8  PEE  11  last  522  20,23lP  SS'A?!  0 T5  JT SONNOW  SET  POLICY  UP  FOR  IMMEDIATE  USE 


page  52A 

E6 


488954A 


L 

P01A9 

R0lA95 

0150 

0151 

0153 

015A 

0155 

R0l56 

0157 

0158 

R0159 

0160 

0161 

ROI62 

0163 

0164 

R0165 

0166 

0167 

0168 

0169 

R0170 

0171 

0172 

0173 

0174 

0175 

0176 

R0I77 

0178 

0179 

ROI8O 

0l8i 


YJL  SrSIEM  ^OR  AGC:  NLW  PR0<^^Avi  5HEFATI1M  SY  EYLES  DEC  13,  I966  (MAIN)  PAGE  525 

Q*R-A4Eb  JEl  SELECT  AND  FaILJTE  CuNTRoL  L^GIC  USER'S  qWN  PaGF  NO.  P E6 

entry  point  for  +X  TRANS.  oR  -X  tRANS.  KEDUeST  AlDNe: 

(ALSO  Continuation  of  tRansEaiidN"wIth-rotation  logic.) 

REF  69  last  511  20,2316  3 7/54  0 +/-XTRAN  CAF  TWO  SET  UP  LOOP  TO  TEST  ALL  THREE  POSSIBLE 

REF  3 last  522  20,2317  54  ^64  1 TS  LOOPCTR  TRANSLATION  POLICIES,  IF  a JETS  ASKED, 

REF  5 LAST  523  20»2320  10  O71  0 CCS  ANYTRANS  TEST  FOR  TRANSLATION  REQUESTS;  -0  UNUSED 

REF  1 20,2321  1 2J25  0 TCF  -xPOLICY  POSMAx : -X  TRANSLATION. 

REF  1 20,2322  1 2412  0 TCF  LaTERJET  +ZERO:  NO  TRANSLATION. 

enter  heRl  ior  +x  translation  policies; 

REF  70  last  525  20,2323  3 7/54  0 +XPOLICY  CAF  TWO  NEGMAX;  +X  TRANSLATION, 

20,2324  1 2^26  0 TCF  +2  SET  POLRELOC  FOR  +X  TRANS.  INDEXING, 

enter  here  tor  -X  translation  policies; 

REF  14  LAST  512  20,2326  3 7/60  1 -xPOLICY  CAF  FlyE  SET  POLRELOC  FOR  -X  TRANS,  INDExINg. 

REF  4 last  522  20,2326  54  063  0 TS  POLRELOC  (INITIAL  VALUF  ALWAyS  FOR  4-JET  POLICY.) 

TEST  FOR  translation  10  BE  CoviaiiNtD  WITH  ROTATION  JETS. 

REF  4 last  522  20,2327  10  072  0 CCS  TRANSNOW  TEST  IF  TRANSLATION  WITH  ROTATION  IS 

REF  1 20,2330  1 2P75  0 TCF  TRANCONT  REQUESTED,  IF  SO,  OvER-RIDE  4-JfT  TEST. 

DETERMIi.E  if  LM  dap  is  in  2 OR  4 JET  TRANSLATION  MODE: 


REF  48 

LAST 

523 

20*2331 

4 007  7 

0 

C5 

DAPBOOLS 

TEST  FOR  2/4- 

JET  translation 

MODE  IN 

REF  1 

REF  259 

20,233Z 

7 7/52 

1 

MAS< 

ACC40R2X 

8IT4/DAPB00LS 

(ASTRdNAUT  DSky 

iNpUT) 

LAST 

523 

20,2333 

1 0 ooo 

0 

CCS 

A 

0:  2 JET  MODE 

( tiK  I P OUT  ) , 

REF  2 

LAST 

525 

20*2334 

1 2375 

0 

TCF 

TRANCONT 

1:  4 jet  mode 

(rONTINUE) . 

TEST  TRANSLATION  POLICIES  FOR  J£T  FAILURES: 


REF  5 last 

REf  1 

REF  4 Last 

REF  3 LAST 

REF  260  LASl 

REF  1 


525  20t2336 

20,2336 
523  20,2337 

522  20,2340 

525  20,2341 

20,234Z 


50  063  1 TRANNEXT  INDEX  POLRELOC 

3 2P45  1 cAf  TRANPOLY 

54  065  0 TS  THISPOLY 

7 1602  0 MASK  CH5MASK 

10  Ooo  0 CCS  A 

1 2373  0 TCF  TRANCNTD 


special  teSts  are  Needed  foR  iranplation  during  rotation: 

REF  5 LAST  525  20i2343  lo  072  0 CCS  TRANSNOW 

REF  1 20,2344  1 2363  1 TCF  TRANSTOR 

TEST  FOR  ONLY  TRANSLATION  REOJESt' 

REF  3 LAST  521  20*2345  iq  o7o  t CCS  TRANONLY 


pick  up  policy  for  +/-X  translation 
from  iable  (indfxed  within  Requested 
range  of  POLICIrS);  TEST  FOR  FAILURES 
IF  NO  failures,  C(A)  = *0.  IF  i-’OLICY 
CANNOI  BE  USED,  C(A)  IS  POSITIVE, 

IF  failed,  CHfCx  for  STORE  GOOD  TRANS, 


TEST  FOR  translation  DURING  ROTATION 
IF  SO,  GO  TEST  this  pOLlCy  FuR  jSE  NO^. 


TEST  FOR  pure  TRANSiATIUN  REQUEST 


^8895'tA  YJL  ST5>Em  fOk  AGC:  Nt-w  PROGRAM  bHLPATlN  BY  EYLt-S 


DEc  U»  1966  (MAIN)  page  &26 


L 3,R-AaeS  Jet  ^eLeCT  and  FaIEJ-^e  GUNtHuL  LJGIC  USER'S  OWN  PAGr  NO.  7 E6 

0182  REF  1 20,23A6  1 2^57  0 T CF  TrA^jOrOT  IF  SO,  GivE  TrAmSLAIiOm,  |mO  rOTATiOm 

Ro183  Special  test  for  good  a-Jet  i ranslat ion: 

0184  ref  7i  last  525  20*23^7  4 7'54  i CS  TWO  TEST  IF  POLICY  iS  USING  FOUR  JErS  (WHICH 

0185  REF  4 last  525  20,2350  b 0064  0 AD  LoOpCTR  IS  EQUIVALENT  T(.  LOnpCTR  =2).  IF  4-jET 

0186  20,2351  0 0U06  1 EXTEND  THIS  POLICY  MUST  BE  USED  AS  jTSaTCHG, 

0187  REF  1 20,2352  1 2355  1 3ZF  TRANaJET  OTHERWISE,  MUST  CHErK  TRANSAVE  FIRST. 

R0l88  when  NOI  A-JET  TRANSLAT 1 ONi  CHEEK  FOR  SAVeD  POLICY: 

0189  REl  3 last  521  20,2353  13  O73  1 CCS  TRANSAVE  TEST  FOR  SAVED  r-OLICY;  IF  SAVED,  USE  IT. 

0190  REF  1 20,2354  1 2411  0 TCF  TRANUSED  IF  NOT  SAVED  YET,  USE  THIS  POLICY. 

R0191  USE  THIS  POl  ICY  (EITHER  4 JEl  5 DR  BEST  2 JET): 

0192  REF  5 LASi  525  20*235^  33  065  1 TRAN4JET  CAE  THISPOLY  USE  THIS  UNFAILpD  PnLlCY  AS  tHe  TRANS- 

0193  REF  2 LASi  525  20,235^  1 2412  0 TCF  LATFRjET  LATION  pOLICy  AFTER  ROTATION. 

Roi94  for  translation  without  Rotation,  turn  jets  on  immediately  and  Resume: 

0195  REF  6 LASI  526  20^2357  33  065  1 TRANOROT  CAe  THISPOLY  TURN  ON  UNFAILen  0*R-AXES  JETS  AS  A PURE 

0196  20,2360  0 OOO6  1 EXTEND  TRANSLATION  pOLiCY  ^ITHUUT  ANY  TJETLAw 

0197  20,2361  01  O05  0 /vRlTE  5 CALCULATIONS  (Al.D  NO  TIME6  SETTING). 

0198  REF  35  LAST  522  20,2362  I 5^51  0 TCF  RESUME  END  T5RUPT  SINCf  JEtS  ON  FOR  FUl  L C5P. 

R0199  test  iHlS  translation  FOR  USe  DURING  ROTATION; 


0200 

REF  7 

LAST 

526 

20,2363 

33  065 

1 

TRANSTOR  CAE 

THISPOLY 

0201 

0202 

REF  4 

REF  12 

LAST 

last 

526 

20,2364 

54  073 

1 

TS 

TRANSAVE 

524 

20,2365 

7 1471 

0 

MASK 

JT  SONNOW 

0203 

REF  261 

LAST 

525 

20,2366 

ID  UOO 

0 

CCS 

A 

0204 

REF  3 

LASI 

525 

20,2  36  T 

1 2375 

0 

TCF 

TRANCONT 

SAVE  THIS  POLICY  FOR  LATER  USE  AS  THE 
JTSATCHG  POLICY  UNLESS  IT  IS  SUPERCEDED, 
TEST  FOR  USE  WItH  ROTATION  POLICY  MUST 
HAVE  NO  JETS  IN  COMMON  WITH  JTSqNNOW, 
C(A)  POSITIVE  MfANS  POLICIES  CONFLICT. 


R0205  coincident  TRANSLATION  FOUND,  03  ^-IND  PURe  TRANSLATION  POLICY  (FqR  USe  AFteR  RoTAtIoN): 

0207  REF  8 Last  526  20,2370  33  065  1 CAE  THISPOLY  USE  BOTH  ROTATInN  AND  TRANSLATIiN  JETS 

0208  REF  13  LAST  52b  20,237^  27*^71  0 ADS  JT SONNOW  AS  JTSONNOW  (BIT  15  IS  ALREADY  SET). 


0209  REF  1 20,2372  1 2404  1 TCF  TRANSLAT  GO  TO  START  FTNMNG  JTSATCHG  POl  ICY, 

R02IO  STOP  SEARCH  IF  GOOD  TRANSLATION  POLICY  ALREADY  ReCORDeD: 

0211  REF  5 LAST  526  20,2373  13  073  1 TRANCNTD  CCS  TRANSAVE  TEST  FOR  PREVIOUSLY  SAVED  TRANSLATION 

0212  REF  2 Last  526  20,2379  1 2411  0 TCF  TRANUSED  POLICY,  IF  IT  ExISTS,  USE  IT. 

R0213  continue  FAiLURE  CHECXING  luo^: 

0219  20,2375  0 OOO6  1 TRANCONT  EXTEND 


CONTINUE  THE  TR aNSLAT I ON-FAI L LOOP 


YJL  SYSlt^M  pOK  AGc:  Ntw  pkOGRAv)  sHtpATiN  BY  EYL^B 


3,r-axes  jet  Select  and  failj^e  control  logic 


0215 

ref 

6 

LAST 

525 

20,2376 

26  063 

0 

Dim 

0216 

REF 

5 

LAST 

526 

20,2377 

ID  069 

1 

CCS 

0217 

REF 

1 

20,2900 

1 2907 

1 

TCF 

R02I8  M3  Ti-ANSLATlON  CAM  Be  FoUM3  FqM  ROTATION  POLICY*  ALL 

0220 
0221 


0222 

R0223 


0228 

0229 


0231 

0232 

0233 

R023A 

0235 

0236 

0237 

0238 

0239 
02A0 

R02A1 

0292 

0293 
0299 

0295 

0296 

0297 

0298 

0299 
0250 


REF 

6 

LAST 

525 

20,2901 

ID  O72 

0 

CCS 

REF 

2 

LAST 

526 

20,2902 

1 2909 

1 

ICF 

rSf 

2 

LAs' 

9 78 

2 0 ,2903 

1 2Z93 

1 

Tcf 

BEGIN  StAkChi  TOR  JTSAlChG  POciCY: 


022A 

REF 

177 

LASl 

522 

20,290A 

3 Tbi 

0 

TRANSLAT  CAF 

0225 

REF 

7 

LASl 

527 

20,2905 

59  072 

0 

TS 

0226 

REF 

2 

LAST 

999 

20,2906 

1 2316 

0 

TCF 

R0227  "TOP  OF  LOOP"  (FOR  ALL  BUT  Lirsi  PASS) 


REF 

REF 


6 last  527 
1 


20,2907  59  069  1 

20,2910  1 2335  1 


R0230  reconstkuct  Flagged  jet  policy: 


REF  190  LAST  5l3 
REF  36  LAST  523 
REF  11  LAST  501 


TRNRESET  T5 

tcf 


tramused  ad 


20*2^11  6 7 Y55  1 
20,29U  6 7Y37  0 LATLRJLT  AD 

TS 


20,2913  55*A72  0 

TRANSFORM  IIlIAL  POINTER  TO  2-JEl  POLICY 


REF  l9l  LAST  527 
REF  5 LAST  523 
REF  262  LaSI  52b 


20,29lA  3 7^55  1 

20, EATS’  7 0O6I  1 
20,291^’  10  000  0 

20,2917  1 2922  0 

20.2920  0 0006  1 

20.2921  29  061  0 


CAF 

MASK 

CCS 

TCF 

extend 

AUG 


REF  6 LAST  527 

transform  Pointer  to  correspond  to  Jets  actually  chosen 

REF  9 last  523 
REF 


1 

REF  263  LAST  527 
REF  1 

REF  269  LASl  527 
REF  7 last  527 
REF  1 


20.2922 

20.2923 
20,2a29 


ll«90b  1 
1 2925  1 
1 2936  0 


CCS 

TCF 

TCF 


20,292s 

20,2920 

20,2927 

20,2930 


10  Ooo  0 

1 2930  0 
1 2933  0 
10  000  0 


20,2/T3l  29  061  0 

20,2932  1 2995  1 


CCS 

TCF 

TCF 

CCS 

INCR 

TCF 


POLrELOC 

LOOPCTR 

TRNRESET 

Is  NOT  LoSt 

TRANSNOW 

TRANSLAT 

AbOrTjET 


zero 

TRANSNOw 

+/-XTRAN 


LOOPCTR 

TRANNEXT 


One 
BIT15 
J I SATCHG 


ONE 

NETACNDX 

A 

+ 3 

NETACNDX 


NU.QJETS 

+ 2 

ALLRJETS 

A 

+ 2 

SMALAXIS 

A 

NETACNDX 

NETACGET 
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USER'S  OWN  PAGr  NO.  b E6 

decrement  the  TkAnSlatiO^  POLICY  index 

AND  then  test  LoOPCtR  FOR  CONTINUATION 
OF  JET  failure  TESTING. 

, otherwise.  Start  jtt  failure  abqRt: 

if  failures  STOl  translation  during 
rotation*  continue  by  finding  JtSATCHG. 

Turn  dff  jets  a^.q  AbOrt. 


Set  volatile  flag  to  indicate  Search  is 
FOR  jTSATCHg,  After  TRANSNOw  done. 

GO  TO  RE-INITIAI IZE  LOOP  FROM  SCRATCH. 


reset  LOOP  counter  TO  CONTINUE  LOOPING 
GO  TO  CONtINUATtON  OF  LOOP  (AT  tHE  TOP). 


reset  policy  that  Was  positive  and  ccsed 
SET  bit  15  TO  Indicate  u,r-Axes  policy. 

USE  FOR  JTSATCHg  TRANSLATION  PO.^ICY. 


FROM  THE  index  vALUf  INDICATING  NUMBER 
OF  JETS,  DIRECTION,  AND  AXIS,  COMPUTE 
THE  INDEX  VALUE  FOR  2 JETS  AbOU r THAT 
AXIS  (IN  THAT  DiRECtION).  CONTRIVANCE 
MAKES  THIS  EQUIVALENT  TO  IF  BiTl  IS  ON, 
(INDEP.  OF  SIGN)  AUGMENT  NETACNDX. 


TRANSFORM  INDFX  TO  APPROPRIATE  >/ALUE  FOR 
THE  number  of  J(  TS  SELECTED. 

IF  NO.QJETS  ZFRr,  NO.RJETS  IS  NONZERO. 

IF  NO.OJETS  +/-1 , NO.RJETS  IS  +/-1  (BY 

definitioim)  so  Subtract  one  fRom  index. 

GO  TRANSFORM  FOR  1 U,V-AXIS  JET. 

IF  Still  nonzfro  on  third  ccs,  jo.qjets 
MUST  HAVE  BEEN  +/-9,  SO  ADD  ONE  TO  THE 
INDEX,  otherwise,  NO  CHANGE  (2  JETS). 


^88954A  YJL  SYSTEM  FOR  AGC:  NeW  S^ePatIN  BY  eYLeS 


L 3*R-A>.ES  jet  select  aNJ  FaIEJ-(E  CunTrqL  LoGIC 

0251  20,2a33  0 0^06  1 SMALAXIS  EXTEND 

0252  REF  a LAST  527  20,2a3^  25  ^>61  1 DIM  NETACNDX 

0253  REF  2 LAST  527  20  »2a3P  1 2‘^A5  1 TCF  NETACGET 


0255 

0255 

REF 

REF 

3 

72 

LAST 

LAST 

523 

526 

20  *253^ 
20,2437 

0256 

0257 

0258 

REF 

73 

LASI 

528 

20 ,244(5 
20,2441 
20,2452 

0259 

0260 

REF 

9 

LAST 

528 

20 ,2453 
20 ,2455 

ll't’07  0 ALLRJETS  CCS  NO.RJETS 
7 7^5A  1 viAS<  T|ft|0 

1 2^A2  0 TCF  +2 

7 7^59  1 viASX  Two 

0 0U06  1 EXTEND 

1 29A5  1 3ZF  +^ 

2A  D61  0 INCR  NETACNDX 


R0261  PICK  jp  and  save  IZNETACC  FOr  TJEILAW: 


0262  REF  10  last  528  20,2AAP 

0263  REF  1 20,2aAR 

026A  REF  9 last  519  20,2aAI 

R0265  RETURN  TO  APPROPRIATE  TJETLAw 

02(>(>  REF  1 20*2550 

0267  REF  106  LAST  523  20,2a51 

0268  REF  A LAST  505  20,2452 

0269  20,2a53 

0270  REF  11  LAST  518 

0271  REF  2 LASi  490  20,2455 

0272  <;0.2h55 


50  U6l  0 NETACgET  index  NeTACNDx 
31 ' TOO  1 CAE  1/NeTACS 
54  066  0 T5  1/NeTACC 


3 2‘*55 

0 

CAF 

BBANKSET 

5 4 LIU  1 
33  062 
52  U06 

1 

0 

0 

T S 

CAE 

OTCB 

L 

TJETADR 

36O06 

E6 

1 

B3ANKSET 

ebank= 

3BC0N 

OMEGAU 

oraxis 

30240 

1 

BITS668 

OCTAL 

00240 
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decrement  index  for  1 JET  around  either 

THE  U_  OR  V-  AXIS, 

(GO  PICK  UP  inverse  of  NeT  ACCELERATION) 

when  no.qjets  Zero,  test  no.rjets  which 
IS  only  +/-2  or  +/-4.  note  LAST  THREE 
BITS  OF  THESE  AeTER  CCS  001  OR  Oil. 

ONLY  BIT2  distinguishes  BETWEEN  THE  TWO, 
IF  BIT2  = 0,  then  Two  JETS,  NO  CHANGE. 

IF  BIT2  = 1,  then  FOUR  JETS,  SO  THE 
INDEX  MUST  be  INCREMENTED. 


USE  THE  index  vALUE  FOR  THE  ExArT  JETS 
used,  pick  up  the  appropriate  1/NETACC 
AND  SAVE  FOR  USf  BY  THE  TJETLAW. 


ALWAYS  return  TO  THe  FIXeD  BANK  OF  THE 
Q,R-AxES  REACTION  CONTROL  SySTEM  LM  DAp. 
USE  VARIABLE  GENADR  WITH  WHICH  lO 
CROSS  BANKS  TO  RETURN. 


BBCON  OF  U,R_AXfS  RCS  LM  DAP. 

ULLAGE  And  ascent  burn  dapbools  bits. 
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L Q»R-Aae6  JEl  GELeCT  ANU  FaILJ^e  CONTROL  LOGIC 

P0273  TABLE  Of  QfR-jET  NUMBERS  AND  OIRe'-TIONS; 


027A 

0275 

0276 

0277 

0278 

0279 


20,2a56  OOOOO  1 TDRKTABL  DEC 


20,2957  OOOOl  0 DEC 

20.2960  77776  1 DEC 

20.2961  00002  0 DEC 

20.2962  77775  1 DEC 

20.2963  OOOOA  0 DEC 


0280 


20,246^  77773  1 


DEC 


0 

+ 1 

-1 
♦ 2 
-2 
+ 4 


-4 


USER'S  OWN  PA&f  no.  10 


E6 


FROM  THE  3 PACKED  BITS  IN  A WORD  FROM 
POLTABLE,  ThF  PnLTYPEP  PROGRAM  SELECTS 
THE  APPROPRIATE  NO.oJETS  OR  NO.RJLTS 
AS  follows; 

000:  NO  JETS 

001;  +1  JET  on;  +2  jets  lOl:  +9  JETS 
010;  -1  JET  loO;  -2  JETS  110:  -4  JETS 


Ro28i  Relative  addReSSes  and  number  of  alternate  policies  are  listed  in  the  following  tables,  each  e^tRY  has  tHe  form 

R0283  oXYYV  WHeRE  X INDICATES  THE  NUMBER  OF  ALTERNATE  POLICIES  AND 

R0289  YYY  IS  HE  RELATIVE  ADDRESS  IN  POLTABLe  OF  THE  "OPTIMAL"  POLICY. 


R0286  FDrCE-CpUPLF  POLICIES: 


0287 

20,2965 

03003 

1 

OCTAL 

O3OO3 

+ 2 

Q-AXIS 

JETS 

0288 

20,2966 

09009 

1 

OCTAL 

O9OO9 

+ 9 

Q-AXIS 

JETS 

0289 

20 ,2967 

D3010 

0 

OCTAL 

03010 

-2 

Q-AXiS 

JETS 

0290 

20 ,297^ 

O9OI 1 

0 

OCT  AL 

0901 1 

-9 

Q-AXiS 

JETS 

0291 

20,2971 

0301s 

0 

OCTAL 

03015 

+ 2 

R-AXIS 

JETS 

0292 

20,2972 

O9OI6 

1 

OCTAL 

09016 

+ 9 

R-AXIS 

JETS 

0293 

20 ,2973 

O3O22 

1 

OCTAL 

O3O22 

-2 

R-AX I S 

JETS 

0299 

20,2^74 

O9O23 

1 

OCTAL 

O9O23 

-9 

R-AXIS 

JETS 

0295 

20,2975 

02O26 

1 

NORMLPOL  OCTAL 

02026 

+ 2 

U-AXIS 

JETS 

0296 

20,2976 

02O26 

1 

OCTAL 

02026 

+ 2 

U-AXiS 

JETS 

0297 

20,2977 

O2O3I 

1 

OCTAL 

O2O3I 

-2 

U-AXiS 

JETS 

0298 

20,2500 

O2O3I 

1 

OCTAL 

O2O3I 

-2 

U-AXiS 

JETS 

0299 

20,2501 

O2O39 

1 

OCT  AL 

O2O39 

+ 2 

V-AXIS 

JETS 

0300 

20,2b02 

02039 

1 

OCTAL 

02039 

♦2 

V-AXIS 

JETS 

030 1 

20 ,2503 

02037 

1 

OCT  Al 

O2O37 

-2 

V-AXi S 

JETS 

0302 

20,2509 

02037 

1 

OCTAL 

02037 

-2 

V-AXIS 

JETS 

48895‘VA 


L 


P0303 

0304 

0305 

0306 

0307 

0308 

0309 

0310 

0311 

0312 

0313 

0314 

0315 

0316 

0317 

0318 

0319 

R0320 

0321 

0322 

0323 

0324 

0325 

0326 

0327 

0328 

0329 

0330 

0331 

0332 

0333 

0334 

0335 

0336 
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3*R-AWeS  Jei  GeLeGT  and  EAlLJ-i£  CUNtRoL  LjGlC  USER'S  OWN  PAGp  NO.  11  E6 

+x  sensl  policies; 


20,250s 

O3O43 

0 

OCTAL 

20,2506 

O4O44 

0 

OCTAL 

20,250  f 

O3O5O 

1 

OC  1 AL 

20,2510 

O4U5I 

1 

OCTAL 

20,2511 

O3O55 

1 

OCTAL 

20 , 2 5 1 2 

O4O56 

0 

OCT  AL 

20,2513 

O3O62 

0 

OCTAL 

20,2516 

04063 

0 

OCTAL 

20,2515 

01024 

0 

+SENSTAB  OCTAL 

20,2516 

O2O25 

1 

OCTAL 

20,251Y 

01027 

0 

OCTAL 

20,2520 

O2O3O 

0 

OCTAL 

03043  +2  Q-AXIS  JETS 
O4O44  +4  Q-AXiS  JETS 
03050  -2  0-AXlS  JETS 
04051  -4  0-AXlS  JETS 
0j055  +2  R-AXIS  JETS 
04056  +4  R-AXiS  JETS 
03062  -2  R-AXiS  JETS 
04063  -4  R-AXiS  JETS 
01024  +1  U-AXIS  JETS 
02025  +2  U_AXIS  JETS 
01027  -1  U-AXiS  JETS 
O2O3O  -2  U-AXiS  JETS 


20.2521  011^32  1 OCTAL  O1O32  +1  V-AXIS  JETS 
20,252i^  02^33  0 OcTAl  02033  +2  V-AxIS  JETs 
20,2523  01036  0 OCTAL  OIO36  -1  V-AXIS  JETS 
20,252A  02037  1 OCTAL  02037  -2  V-AXiS  JETS 


-X  SENSE  POL ICIES: 


20.2525 

20.2526 

20.2527 

20,2530 

03067 

34070 

O3O74 

0 

1 

1 

1 

OCTAL 

OCTAL 

OCTAL 

03067 

O4O7O 

O3O74 

+ 2 
+ 4 

-2 

0-AxI5 

U-AXiS 

Q-AXiS 

U-AXlS 

JETS 

JETS 

JETS 

04075 

OCT  AL 

04075 

-4 

JETS 

20,2531 

33IOI 

1 

OCTAL 

03101 

+ 2 

R-AXIS 

JETS 

20,2532 

34102 

0 

OCTAL 

O4IO2 

+ 4 

R-AXIS 

R-AXiS 

JETS 

20,2533 

33IO6 

0 

OCT  AL 

03106 

-2 

JETS 

20,2536 

34IO7 

0 

OCTAL 

04107 

-4 

R-AXIS 

JETS 

20,2535 

31111 

1 

-senstab  octal 

01111 

+ 1 

U-AXIS 

U-AXIS 

JETS 

20,2536 

32  1 12 

1 

OCTAL 

02112 

+ 2 

JETS 

20,2531 

31114 

1 

OCTAL 

01114 

-1 

U-AXIS 

JETS 

20,2540 

32115 

31117 

0 

OCTAL 

02115 

-2 

U-AXIS 

JETS 

20,2541 

1 

OCT  AL 

01117 

+ 1 

V-AXI S 

JETS 

20,2542 

32120 

0 

OCTAL 

02120 

+ 2 

V-AXiS 

JETS 

20,2543 

20,2546 

31122 

32123 

1 

0 

OCTAL 

OCTAL 

01122 

O2I23 

-1 

-2 

V-AXIS 
V AXIS 

JETS 

JETS 
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L 

3*r-akes  Jet  seLe<^t  and  eailJ'^e 

: control 

Logic 

USER' 

'S  OWN 

PAGp 

NO.  12 

E6 

P0337 

X-AXIS  translation  POLICIfS: 

0338 

20«2SA5 

00042 

1 

TRANPOLY 

OCTAL 

+00042 

2 

10 

^ +x 

translation 

jets 

0 

0339 

2 0 1 2 5 A6 

00210 

1 

Octal 

+002 10 

6 

14 

* 

1 

03A0 

20,2547 

002S2 

1 

OCTAL 

+00252 

2 

6 

10  14 

* 

2 

03A1 

20 , 2 5 5D 

00104 

1 

OCT  AL 

+ 00  10a 

3 

13 

^ -X 

translat ion 

jet  s 

3 

03A2 

20,2551 

00021 

1 

OCTAL 

+00021 

1 

9 

4 

03A3 

20,2552 

OOI25 

1 

OCTAL 

+00125 

1 

5 

9 13 

* 

5 
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L 3tR-AXES  JE'i  SELECT  AND  RaILJTE  CUNTRqL  LoGIC  USER'S  OWN  PaGf  NO*  E6 

P03A4  ROTATION  JET  POLICIES: 


R03A5  force  couple  POLIClEb: 


0346 

20,2553 

I4O25 

0 

POLTABLE  OCTAL 

+14025 

5 

9 

+0-AX1S 

FORCE  COUPLES 

0 

0347 

20,255A 

14203 

0 

OCTAL 

+14203 

2 

14 

1 

0348 

20,255i> 

14221 

0 

OCTAL 

+14221 

9 

14 

2 

0349 

20,255^ 

I4OO7 

0 

OCT  AL 

+ 14007 

2 

5 

3 

0350 

20,255  ? 

24227 

0 

OCTAL 

+24227 

2 

5 

9 

14 

4 

0351 

20,2560 

2OO5I 

1 

OCT  AL 

+20051 

6 

10 

* 

-O-AX I S 

FORCE-COUpLES 

5 

0352 

20,2561 

20102 

0 

octal 

+20102 

1 

13 

6 

0353 

20,2562 

20141 

1 

OCTAL 

+20141 

10 

13 

7 

0354 

20,2563 

20'-'12 

0 

OCT  AL 

+20012 

1 

6 

* 

i V 

0355 

20 , 2 56 A 

30152 

1 

OCTAL 

+30152 

1 

6 

10 

13 

11 

03  56 

20,2563 

01341 

0 

OCT  AL 

+01 64 1 

10 

14 

* 

+ R — AX  I S 

FORCE-COUPLES 

12 

0357 

20 ,2563 

OIAO6 

1 

OCTAL 

+01406 

1 

5 

it 

13 

0358 

20,256^ 

01445 

0 

OCTAL 

+01445 

5 

10 

it 

14 

0359 

20,2570 

01302 

1 

OCT  AL 

+01602 

1 

14 

it 

15 

0360 

20,2571 

02346 

1 

OCTAL 

+02646 

1 

5 

10 

14 

it 

FORCE-COUpLES 

16 

0361 

20,2572 

O2I2I 

1 

OCT  AL 

+02121 

9 

13 

it 

■■L  — A X I S 

1 7 

0362 

20,2573 

O2OI3 

1 

OCTAL 

+02013 

2 

6 

it 

20 

0363 

20,257A 

02103 

1 

OCTAL 

+02103 

2 

13 

it 

21 

0364 

20 ,2573 

32O3  1 

1 

OCTAL 

+02031 

6 

9 

it 

22 

0365 

20,2573 

33I33 

0 

OCTAL 

+03133 

2 

6 

9 

13 

it 

23 

R0366 

force  COUPLE  AND  +X  SENSE  POU 

[CIe3: 

0367 

20*237? 

73372 

0 

OCTAL 

-0‘+4o3 

5 

it 

+ IJ-AXIS 

FORCE-COUpLES 

24 

0368 

20,2600 

73176 

0 

OCTAL 

-04601 

14 

it 

AND 

+X  SENSE 

25 

0369 

20,2601 

62172 

1 

OCTAL 

-15605 

5 

14 

it 

26 

0370 

20,2602 

663/6 

0 

OCTAL 

-11101 

13 

it 

-li-AXiS 

FORCE-COUPLES 

2/ 

0371 

20,2603 

66  766 

0 

OCTAL 

-11011 

6 

it 

AND 

+X  SENSE 

30 

•3  1 

0372 

20,2604 

55366 

1 

OCT  AL 

-22111 

6 

13 

it 

3 1 

0373 

20,2603 

6/375 

1 

OCT  AL 

-10402 

1 

it 

+ \,-AXlS 

FORCE-COUpLES 

32 

0374 

20,2603 

6/336 

0 

OCTAL 

-10441 

10 

it 

AND 

+X  SENSE 

33 

0375 

20,2607 

56335 

1 

OCTAL 

-21442 

1 

10 

it 

-V-AXIS 

FORCE-COUPLES 

34 

0376 

20 , 26 1 0 

72  756 

0 

OCTAL 

-05021 

9 

it 

35 

0377 

20,2611 

72  774 

0 

OCTAL 

-05003 

2 

it 

And 

+X  SENSE 

33 

0378 

20,2612 

61754 

0 

OCTAL 

-13023 

2 

9 

it 

37 
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L 3tR-AXES  JET  bELECT  aNO  EaI^O-JE  CuNTRcjL  L^Glt 

P0379  +X  SENSE  POl  IClES: 


0380 

0381 

0382 

0383 

0384 


20*261^  14025  0 

20.2614  1a421  0 

20.2615  1AO07  0 

20,2615  14-^03  0 

20,2617  2^,427  0 


0385 

0386 

0387 

0388 

0389 


20.2b20  20102  0 

20.2621  20141  1 

20.2622  20012  0 

20.2623  20051  i 

20.2624  30152  1 


0390 

0391 

0392 

0393 

0394 


20.2625  01‘+06  1 

20.2626  014A5  o 

20.2627  01602  1 

20,263^  016A1  0 

20,2631  026A6  1 


0395 

0396 

0397 

0398 

0399 


20.2632  02l21  1 

20.2633  02103  1 

20.2634  02031  1 

20.2635  02013  1 

20,2o36  O3I33  0 


OCTAL 

OCTAL 

octal 

OCTAL 

octal 


OCTAL 

Octal 

OCTAL 

octal 

OCTAL 

octal 

OCTAL 

OCTAL 

OCTAL 

OCTAL 

OCTAL 
OCTAL 
OCT  AL 
OCTAL 
OCTAL 
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USER'S  oWN  Page  no*  l^  E6 

+14o25 

+14221 

+14007 

+14203 

+24227 

59  * +C-AXIS  +X  sense  jETS  4o 

9 14  4 41 

2 5 * 42 

2 I4  * 43 

2 5 9 14  X 44 

+20102 

+20141 

+20012 

+2OO5I 

+30152 

1 13  * -Q-AXIS  +X  SENSE  JETS  45 

10  13  * 46 

1 6 * 47 

6 10  » 50 

1 6 10  13  51 

+01406 

+01445 

+01602 

+01641 

+02646 

1 5 X +R-AXIS  +X  SENSE  JETS  52 

5 10  X 53 

1 14  X 54 

10  14  * 55 

1 5 10  14  * 56 

+02121 

+02103 

+02031 

+02013 

+03133 

9 13  X -R-AXIS  +X  SENSE  jETS  57 

2 13  X 60 

6 9 X 6 1 

2 6 4 62 

2 6 9 13  4 63 

488954A 

YJL  SYSIeM  lOK  AGC: 

New  Pro'^ta'^ 

ANO  FAILJTE 

1 s^ePat in 

control 

3Y  eYLeS 
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1966  (Main) 

Page 

534 

L 

P0400 

3,r-a\£S  Jet  select 

-X  SENSt  policies: 

L JO  1 L 

• 3 UrtiN 

KMOF  INU*  iP 

E6 

0401 

20,263 1 

14203 

0 

OCTAL 

+14203 

2 

14 

ik 

+Q-AXIS  -X  SENSE 

jETS 

64 

0402 

20,264° 

14221 

0 

OCTAL 

+14221 

9 

14 

* 

65 

0*103 

20,2641 

I4O07 

0 

octal 

+14007 

2 

5 

* 

66 

0404 

20,2642 

I4O25 

0 

OCTAL 

+14025 

5 

9 

* 

67 

0405 

20,2643 

24227 

0 

OCTAL 

+24227 

2 

5 9 14 

* 

70 

0406 

20,2644 

20051 

1 

OCTAL 

+20051 

6 

10 

-O-AXtS  -X  SENSE 

JETS 

71 

0407 

20,2645 

20141 

1 

octal 

+20141 

10 

13 

72 

0408 

20,2646 

20O12 

0 

OC  1 AL 

+2OOI2 

1 

6 

ik 

73 

0409 

20 , 264  1 

20102 

0 

OCTAL 

+20102 

1 

13 

* 

74 

0410 

20,265° 

3OI52 

1 

OCTAL 

+30152 

1 

6 10  13 

Ik 

75 

0411 

0412 

0413 

0414 

0415 


20»265l 

20.2652 

20.2653 

20.2654 

20.2655 


01041  0 
01445  0 
0x602  1 
01406  1 
02646  1 


OCTAL 

+01641 

10 

14 

^ +R-AXIS  -X  SENSE  JETS 

76 

OC  I Al 

+01 445 

5 

10 

* 

7 1 

OCTAL 

+01602 

1 

14 

Ik 

100 

OCTAL 

+01406 

1 

5 

* 

101 

OCTAL 

+02646 

1 

5 10 

U * 

102 

0416  20,2656  02'013  1 OCTAL 

0417  20,2657  32i03  1 OCTAL 

0418  20,266^  O2O3I  1 OCTAL 

0419  20,2661  02l21  1 OCTAL 

0420  20,2662  O3I33  0 OCTAL 


+02013 

2 

6 

* -k-AXiS  -X  SENSE  JETS 

103 

+02103 

2 

1 3 

ik 

104 

+02031 

6 

9 

* 

105 

+02121 

+03133 

9 

2 

13 

6 

ik 

9 13  * 

106 

107 

0421  20,2663  73176  0 OCTAL  -04601  14  +li-AXIS  -X  SENSE  JETS  H0 

0422  ^0,266^  73372  0 OCTAL  -04405  5 * 111 

0423  20,2665  52l72  1 OCTAL  -15605  5 14  it  112 


0424 

0425 

0426 


20  ♦ 266^ 

66(66 

0 

OCTAL 

-11011 

6 

ik  -U-AXI5  -X  SENSE  JETS 

113 

20,2667 

6067  6 

0 

OCIAL 

-11101 

13 

ik 

114 

20,267° 

55666 

1 

OCTAL 

-22111 

6 13 

ik 

115 

0427 

0428 

0429 


20,2671 

57336 

0 

OCTAL 

-10441 

10 

ik  +V-AXI5  -X  SENSE  jETS 

116 

20.2672 

20.2673 

57375 

56335 

1 

1 

OCTAL 

OCTAL 

-IO4O2 

-21442 

1 

1 10 

ik 

* 

117 

120 

0430 

0431 

0432 


20,267^  72174  0 OCTAL  -05003  2 * -\/-AXlS  -X  SENSE  JETS  121 

20.2675  72  156  0 OCTAL  -05021  9 it  122 

20.2676  61154  0 OCTAL  -16023  29*  123 
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L RC5  failure  Monitor 

R0758  failure  MONITOR  FOR  LM  RCS  JeIS  (A  TIMES  A SECOND). 
Ro759  *»«  FAIuSw  CAPABILITY  FoR  CHeCOUI  ONLY  *** 


0759A  REF  L^  LAST  516  E6  EBANK=  DT 

07595  12»3i;03  3AN<  12 

0760  REF  36  LAST  526  12,3203  1 5^51  0 RCSMONIT  I CF  RESUME 


USER'S  OWN  PAOf  no.  1 


TO  STOP  ENDI  ESS  LOOPS. 


076i 

REF 

1 

l2 ,32oA 

1 5?5i  0 

1CF 

ENDRCSFL 

DO  NOTHING  IF  POSITIVE 

0762 

0763 
076A 

REF 

1 

12*3205 

12.3206 

12.3207 

3 1501  1 

0 0006  1 
06  032  0 

CA 

EXTEND 

RXOR 

LASTFA I L 

32 

LAST  Failure  channei  value 

0765 

0766 

0767 

REF 

REF 

10 

1 

LAST 

523 

12 ,32  lO 

12.3211 

12.3212 

/ *,  5 5 3 1 

0 0006  1 

1 5?51  0 

MAS< 

EXTEND 

3ZF 

LUW8 

NOSTCHG 

NO  STATUS  CHANGf,  FINISHED 

0768 

0769 

REf 

1 

12*3213 

12*321A 

0 0006  1 

3 3ZI/  0 

EXTEND 

Oca 

mntrcs 

0770 
07701 

0771 
C0771 

0772 

REF 

13 

1 

LAST 

535 

12*3215 

12,3216 

52  006  0 
E6 

02677  0 

mntrcs 

OTca 

ebank= 

2CADR 

DI 

rcsmnir 

REF 

12,321? 

AO^Oo  0 
i2»3220 

endtas 

equals 

0773 

07731  REF  lA  LAST  535 

077A  REF  178  LAST  527  20,2677 

1711  REF  A LAST  525  20,2/00 

1712  REF  A LAST  A77  20,2/01 

1713  20,2/02 

171A  20,2/03 

1715  REF  2 LAST  535  20,270A 

1716  20,2/05 

171/  20,2/06 

1718  REF  32  LAST  521  20,2/0? 

1719  REF  179  LAST  535  20,2/lO 

1720  REF  1 20,2711 

1721  REF  107  LASI  528  20,2/12 

1722  REF  1 20,2713 

1723  REF  A8  LAST  505  20,27lA 

172A  REf  2 last  535  20,2/15 

172A5  20,2/16 


20*2677 

3ANk 

20 

E6 

eban<= 

DT 

3 / ?61 

0 

RCSMNTR 

:a 

zero 

55*502 

0 

TS 

CH5MASK 

5 5*  503 

1 

T S 

CH6MASK 

0 0006 

1 

extend 

00  O32 

0 

read 

32 

55*501 

0 

TS 

LASTFAIL 

A OOOO 

0 

COM 

0 0006 

1 

EXTEND 

7 /?A7 

0 

VIP 

BIT/ 

3 7 ?61 

0 

CA 

ZERO 

5A  061 
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TS 

FAILCTR 

3 OOO 1 

0 

CA 

L 

1 2?16 

1 

TCF 

NXTRCSPR  +1 

6 / ?55 

1 

**•  1 

AD 

BI  Tl 

2A  061 

0 

NXTRCSPR 

INcR 

FAIlcTR 

6 OOOO 

1 

+ 1 

DOUBLE 

there  IS  A difference, clear  MA5<S 

READ  PRESENT  FAILURES 
SAVE  FOR  next  PASS 
FAILURES  NOW  ONES 
SHIFT  TO  TEST  LOW  8 BITS 

INIl lALIZE  counter 


^8895^A  YJL  SYSlbM  ('OR  AGC.  MlW  PROGRAM  S(^tPATlN  BY  EYLfcS 


L RCS  Failure  nonitor 


1725  R£F  1 20,2717  5A  062  1 IS 

1726  REF  2 LAST  535  20,2720  1 2 a5  1 TCF 


1727  ref  3 LAST  535  2oi272l  5j  061  o INDEX 

1728  REF  1 20,2?22  0 2^26  0 TC 


1729  REF  2 LAST  536  20,2723  13  062  1 CCS 

1730  REF  3 last  536  20,272^  1 ZdA  0 TCF 


1731  REF  2 LAST 

1732  REf  1 

1733  REF  1 

173A  REF  1 

1735  REF  1 

1736  REF  1 

1737  REF  1 

1738  REF  1 

1739  REF  1 


535  20.2725  1 

20.2726  1 

20.2727  1 

20.2730  1 

20.2731  1 

20.2732  1 

20.2733  1 

20,2739  1 

20,2735  1 


5'51  0 TCF 
2'36  0 RcSFJUMP  TCF 
2FA3  1 TCF 
2^50  0 TCF 
2^55  0 TCF 
2 '62  1 TCF 
2 '67  1 TCF 
2'79  0 TCF 
3OOI  1 TCF 


1790  REF  93  LAST  521 

1791  REF  5 LAST  535 

1792  REF  33  LAST  523 

1793  REF  5 last  535 

1799  REF  185  LAST  516 


20,2736  3 7 '50  1 FvilO/11  CA 


20,273'  27'502  0 ADS 

20.2790  3 7'52  0 CA 

20.2791  27'503  1 ADS 

20.2792  0 0002  0 TC 


1795  REF  25  LAST  993  20.2793  3 7'51  0 Fvl9/12  CA 


1796 

REF  6 

LAST 

536 

20,2749 

27*502 

0 

1797 

REF  26 

LAST 

536 

20,2795 

3 7'51 

0 

1 798 

REF  6 

LAST 

536 

20,2796 

27*503 

1 

1799 

REF  186 

LAST 

536 

20,2797 

0 0002 

0 

ADS 

CA 

ADS 

TC 


1750  REF  33  LAST 

1751  REF  7 LAST 

1752  REF  21  LAST 

1753  REF  7 LAST 

1759  REF  1B7  LAST 


535  20.2750 

536  20,2751 

515  20.2752 

536  20.2/53 

536  20.2759 


3 7'97  1 F\i13/15 

27*502  0 
3 7753  1 
27*503  1 

0 0002  0 


CA 

ADS 

CA 

ads 

TC 


1755 

REF 

I7 

LAST 

521 

1756 

R Ef 

8 

last 

536 

1757 

REF 

1 8 

LAST 

536 

1758 

REF 

8 

LAST 

536 

1759 

REF 

188 

LAST 

536 

20.2755  3 7796  0 FV119/16  CA 


20.2756  27*502  0 ADS 

20.2757  3 7 '96  0 CA 

20.2760  27*503  1 ADS 

20.2761  3 0002  0 TC 


1760  REF  39  LAST  536 

1761  REF  9 LAST  536 

1762  REF  99  LAST  535 

1763  REf  9 last  536 

1769  REF  189  LAST  536 


20,2762 

20,2763 

3 7'52 
27*502 

0 FV16/7 

0 

CA 

ADS 

20,2769 

3 7 '55 

1 

CA 

20,2765 

27*503 

1 

ADS 

20,2766 

0 0002 

0 

TC 

1765  REF  50  LAST  536  20.276  ' 3 7 755  1 Fvil/3  CA 
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NXTRCSPR 

faii ctr 

RCSFjUMP  GO  through  JUMP  TABI E 

Failtemp 

NXTRCSPR  -1  FINISH  EARLY,  Or  MORE  TO  DO 

ENDRCSFL 

FMlO/11 

FM9/12 

FMI3/I5 

FM19/16 

FM6/7 

FMI/3 

FM5/8 

FM2/9 

B1T6 

CH5MASK 

BiT9 

Ch6MAsK 

0 

BITS 

CH5MASK 

BITS 

CH6MASK 

Q 

B1T7 

CH5MASK 

BIT3 

CH6MASK 

Q 

BITS 

CH5MA5K 

BITS 

CH6MASK 

Q 

BIT9 

CH5MA5K 

BITl 

CH6MASK 

Q 


E6 


BlTl 
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1766 

1767 

1768 

1769 

1770 

1771 

1772 

1773 
1779 


1775 

1776 

1777 

1778 

1779 

1780 

1781 


RCS  FAILUKE  MONITOR 


REF  10  LAST  536  20,277^  27'^02  0 ADS 

REF  28  LAST  509  20,277!  3 7^59  0 CA 

REF  10  LASI  536  20,2/72  27*503  1 ADS 

REF  190  LASI  536  20,2773  0 0002  0 TC 

REF  22  LAST  536  20,277^  3 7^53  1 Fvi5/8  CA 

REF  11  LASi  537  20,2775  27*502  0 ADS 

REF  99  LAST  536  20,277^  3 7Y50  1 CA 

REF  11  LAST  537  20,2777  27*503  1 ADS 

REF  191  LAST  537  20,3000  0 0002  0 TC 

REF  29  last  537  20,300l  3 7^59  0 Fm2/9  CA 

REF  12  LAST  537  20,3002  27*502  0 ADS 

REF  39  LAST  536  20,3003  3 7^97  1 CA 

RCF  12  lAs''  b37  20,3009  27*503  1 ADS 

REF  192  LAST  537  20,300b  0 0002  0 TC 


REF  37  LAST  535  5751  ENDRCSFL  EQUALS 

REF  38  last  537  5751  NDSTcHG  EQUAlS 


CH5MASK 

BIT2 

CH6mASk 

Q 

8IT3 

CH5MASK 

BIT6 

CH6MASK 

Q 

B1T2 

CH5MASK 

BIT7 

ChOMAsK 

0 

RESUME 

RESUME 
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E6 
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L ASCt'^T  INbRliA  update^ 


00001 

REF 

00002 

15  LAST  535 

0001 

REF 

1 

26»2AA1  3At\i< 

E6  EBAN<= 

26,24Al  0 2^04  1 IXXTASK.  TC 


0002  REF 


1 


26>2AA‘i  0 2‘t77  1 


1C 


0003 

26  f 244^ 

0 0UO6 

1 

0004 

REF 

3 

LAST 

465 

26  »24A^ 

2 7 ' 652 

1 

0005 

REF- 

1 

26  ♦244^ 

3 2674 

1 

0006 

REF 

76 

LASi 

465 

2 6 1 24^^ 

0 5101 

1 

0007 

REF 

1 6 

LAST 

538 

t6 

0008 

26  *244  7 

32641 

1 

C0008 

REF 

3 

LAST 

465 

26»2450 

54UO6 

0 

0009 

REF 

56 

LAST 

433 

26»245l 

1 5T45 

0 

EXTEND 

DIM 

CAF 

TC 

EBANK= 

2CADR 

TCF 


0010  REF 


26»2A52  0 2R20  1 lYYTASK  TC 


0011  REF  2 LAST  b38  2b,2A53  D 2‘*77  1 


rc 


0012 

0013 

0014 

REF 

REF 

4 

1 

LA  Si- 

466 

26 

2o 

26 

0015 

REf 

77 

las  1 

538 

26 

0016 

0017 

REF 

17 

LAST 

538 

26 

C0017 

REF 

3 

LAST 

465 

26 

0018 

REF 

57 

LAST 

536 

26 

,2454 

*2455 

*2458 

0 OOO6  1 

27'653  0 

3 2675  0 

EXTEND 

DIM 

CAF 

* 245 

*2460 

* 2461 

* 2 4 6 2 

3 5^01  1 

E6 

32652  0 

T C 

EBANKr 

2CADR 

54006  0 

1 5T45  0 

TCF 

0019  REF 


1 


26*2463  0 2341  0 IZZTA5<  K 


0020  REF  3 LAST  638  26*246^  0 2^77  1 TC 


0021 

0022 

REF 

4 

LAST 

466 

26 

26 

0023 

0024 

0025 

REF 

ref 

REF 

1 

78 

18 

LASi 

LAST 

538 

538 

26 

26 

0026 

26 

C0026 

REF 

3 

LASI 

465 

26 

0027 

REf 

58 

LAST 

538 

26 

*2465  0 0006  1 EXTEND 

*2466  27’A5A  1 DIM 

*246^  3 2'*76  0 CAF 

,2470  0 5^01  1 TC 

E6  EBAN<= 

*2471  32663  1 2CADR 

*2472  56O06  0 

*2473  1 5^65  0 TCF 


0028  26*2476  D0310  0 IXXTIME  DEC 

0029  26*2475  32626  1 lYYTIME  DEC 

0030  26*2476  00264  1 IZZTIME  DEC 

0031  REF  19  LAST  536  26*247''  3 7^46  0 ASCENGON  CAF 


0032  REe  49  LAST  525  26*2500  7 OO77  0 viASK 

0033  REF  265  LAST  527  26,250l  13  000  0 CCS 

0034  REF  193  LAST  537  26*2502  0 0O02  0 TC 

0035  REF  59  LAST  538  26*2503  1 5^45  0 TCF 


26 

DT 

JACCESTP 

ASCENGON 


IXX 

IXXTIME 

WAITLIST 

DT 

IXXTASK 

TASKOVER 

JACCESTO 

ASCENGON 


lYY 

lYYTIME 
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DT 

lYYTASK 

TASKOVER 

JACCESTR 

ASCENgON 
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IZZTIME 
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DT 

IZZTASK 


TASkOvER 
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IdO 

BITS 

DAPBOOLS 

A 

Q 

TASKOVER 
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L ascent  inertia  updater 


0036 

REF 
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LAST 
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26 ,2504 

31  *'*52 

0 

JACCESTP  CAE 

IXX 

0037 

26 ,2506 

2 2 007 

0 

ZL 

0038 

26,2506 

0 0006 

1 

EXTEND 

0039 

REF 

2 

LAST 

465 

26,250  f 

11*455 

0 

DV 

4JETTURK 

0040 

26  * 25  lO 

6 QOOO 

1 

DOUBLE 

0041 

REf 

9 

last 

483 

26,2511 

55*441 

0 

TS 

1/2JT5P 

0042 

0043 

0044 

REF 

1 

26.2512 

26.2513 

26.2514 

0045 

REF 

5 

LAST' 

539 

26,2516 

0046 

REF 

6 

LAST 

468 

26,2516 

0047 

REF 

1 94 

LAST 

538 

26 , 2 5 1 T 

3 2606 
22  007 
0 0006 

0 

0 

1 

CAF 

ZL 

EXTEND 

JETTORK 

11 *452 

1 

DV 

I XX 

55*612 

1 

TS 

IJACC 

0 0002 

0 

TC 

Q 

0048  REF  5 LAST  538  2b, 2520 

0049  26»252l 

0050  26,2522 

0051  REF  2 LAST  465  26,2523 

0052  26,2529 


31*453  1 JACCESTQ  CAE  lYY 

22  007  0 ZL 

0 0006  1 EXTEND 

11*456  0 3V  JETT0RK4 

0 0O06  1 extend 


0053  REF  37 

0054  REf  1 

0055  REF  1 


LAST  517  26 

26 
26 


252^  7 7(’40  1 

2526  55*671  1 

2527  55*673  0 


MP  BIT14 

TS  1/NET+4Q 

TS  1/NET-4Q 


0056 

0057 

0058 

REf 

REF 

17 

1 

LAST 

52 

26.2530 

26.2531 

26.2532 

0059 

0060 

REF 

1 

2o*2533 

26,2534 

0061 

0062 

0063 

REF 

REF 

6 

1 

LAST 

539 

26,2536 

26.2536 

26.2537 

0064 

0065 

ref 

REF 

195 

5 

LAST 

LAST 

539 

538 

26,2540 

2 6 , 2 54 1 

0066 

0067 

0068 

A n Q 

REF 

3 

LAST 

539 

26 .2542 

26.2543 

26.2544 

UUo^ 

0070 

0071 

REf 

REF 

38 

1 

1 

last 

539 

26  *2546 

26,2540 

26,2547 

26,2550 

OO72 

REF 

6 0000 

1 

DOUBLE 

55*670 

0 

TS 

l/NET+20 

55*672 

1 

TS 

1/NET-2Q 

3 2607 

1 

CAF 

JETTORK 1 

22  007 

0 

ZL 

0 OOO6 

1 

EXTEND 

11*453 

0 

DV 

lYY 

55*613 

0 

TS 

IJACCQ 

0 0002 

0 

TC 

0 

31*454 

0 

JACCESTR  CAE 

izz 

22  007 

0 

ZL 

0 0006 

1 

EXTEND 

11*456 

0 

DV 

JETT0RK4 

0 OOO6 

1 

extend 

7 7T40 

1 

MP 

BiT14 

55*675 

0 

TS 

1/NET+4R 

55 ' 677 

1 

TS 

1 /NET  — 4R 

0073 

0074  REF  2 LAST  52 

0075  REF  1 


26.2551  6 0000  1 

26.2552  55*674  1 

26*255S  55*676  0 


double 

TS  1/NET+2R 

TS  1/NET-2R 


0076  REF  2 LAST  539 

0077 


26,2554 

26,2556 


3 2607  1 
22  007  0 


CAF  JCTTORkI 
ZL 


DEC  13,  I966  (MAIN)  PAGE  539 
USER*S  OWN  Page  no.  2 E6 


INCLUDE  INVISIBI  E FACTOR  OF  (I/2). 


INCLUDE  INVISTBIE  FACTOR  OF  (I/2) 
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0078 

ascent 

iNhRl lA  UPUATbK 

26 « 

0079 

K ;i- 

6 

LMD  I 

0^^ 

^ 0 . 

0080 

REF 

1 

26  . 

0081 

REF 

1 

26. 

0082 

REF 

1 

28, 

0083 

26  . 

008A 

REF 

1 

26, 

0085 

REF 

3 

LAST 

516 

26, 

2550 

0 OOO6 

1 

EXTEND 

255  / 

1 1 ' A5A 

1 

DV 

256° 

55*blA 

1 

TS 

2561 

31  'B/O 

1 

CDMMONOR  CAE 

2562 

6 1«>7A 

0 

AD 

2563 

0 OOO6 

1 

EXTEND 

256A 

7 2905 

1 

v|p 

2565 

55'  /01 

1 

TS 

0086  rEF  2 LAST  6A0 

0087 

0088  REF  2 LAST  SAO 

0089 

0090  REF  A LA51  5A0 

0091  R£F  2 LAST  52 

0092  REf  1 

0093  REF  2 LAST  52 

009A  REF  1 


2 6 » 2 5 66 
26.256/ 

26.257° 

26.2571 

26.2572 
26*2573 
26.257A 

26.2575 

26.2576 


31*670 
0 0006 
7 167A 
0 0006 
11*  /01 
55'  /01 
55 • /03 
55*  /05 
55*  /07 


cae 

EXTEND 

VIP 

EXTEND 

DV 

TS 

TS 

rs 

TS 


0095 

0096 

0097 

0098 

0099 


REF  2 LASr  51 
REF  1 
REF  i 
REF  1 


26.257/  6 OOOO  1 

26.2600  55*  ^00  0 

26.2601  55*  /02  1 

26.2602  55*  /OA  1 

26.2603  55'  /06  0 


DOUBLE 

TS 

TS 

TS 

TS 


0100  rEF  1R6  LAst  539  26,260^  0 0002  0 


TC 


0101  26.2605  26301  1 .7O7BK26  DEC 

0102  26,2606  D0050  1 JETTORK  DEC 

0103  26,2607  DOU5A  0 JETTORKl  DEC 

OlOA  26,261°  132A1  1 0.35356  DEC 


IZZ 

IJACCR 

1/2JTSQ 

1/2JTSR 

.707BK26 

1/2JETSU 

l/2jTsQ 

1/2JTSR 

1/2JET5U 

1/NET+2U 

1/NET-2U 

1/NET+2V 

1/NET-2V 


1/NET+lU 

1/NET-lU 

1/NET+lV 

1/NET-lV 

0 

0.70711 

0.002A3 

0.00267 

0.35356 
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TEMP 


TEMP 


500  FI  LBS.  -SCAl  ED  AT  PI**2(  + 16) 
550  FT  LBS.  SCAl  ED  AT  PU2(  + 16) 


^8895AA 


L 

Roool 

R0003 

OOOA 

0005 

0006 
0007 


0008 

0009 

0010 

0011 

0012 

0013 

0014 

0015 

0016 

0017 

R0018 

R0020 

0022 

0023 

0024 


0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

Ro037 

0038 
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<4LMAN  filter  FOR  LM  DAP  USER'S  UwN  PaGf  NO.  1 

the  following  TSRUPT  entry  the  program  which  initializes  the  kALMAN  filter  and  Sets  up  a P-AxIS  rupt  to 

OCCUR  20  MS  FROM  ITS  BEGINNING. 


REF 

19 

LAST 

538 

E6 

EBANK= 

Or 

21 *2000 

BANK 

2 1 

REF 

1 

21,2000 

3 2373 

1 

FILTINIT 

CAF 

MS20F 

reset  TIMER  immediately;  DT  = 20  MS 

REF 

7 

LAST 

491 

21,2001 

54  030 

0 

TS 

TIMES 

REF 

13 

LAST 

491 

21*2002 

22  016 

0 

LXCH 

BANKRUPT 

interrupt  Lead  in  (conjinued) 

2 1 ,2003 

0 OOO6 

1 

extend 

REF 

1 1 

LAST 

491 

21,2004 

22  012 

1 

dxch 

QRUPT 

2 1 *2005 

0 OOO6 

1 

EXTEND 

set  up  for  P-AXIS  RUPT 

REf 

1 

21 ,2006 

3 2O72 

0 

OCA 

PAX/FlLT 

REF 

14 

LAST 

502 

21,200  7 

53*001 

0 

OXCH 

T5ADR 

REF 

1 

21*201° 

3 2O13 

1 

CAF 

FIRSTADR 

SET  UP  TO  AVOID  DT  tALCULATION  DURING 

REf 

1 

21,2011 

55*543 

0 

TS 

STEFRADR 

KALMAN  filter  INITIALIZATION  pAss 

REF 

1 

21,2012 

1 2O33 

1 

TCF 

FILSTART 

REF 

1 

21,2013 

02316 

1 

F I RST  ADR 

GENADR 

F I LF I RST 

the  FOLLOwr.G  T5RUPT  ENTRY  BeOINS  THe  KALMAN  FILTER  PROGRAM.  THIS  SECTION  ALSO  SETS  UP  A T5RUPT  TO  OCCUR  20  MS 
FROM  ITS  beginning  AND  SETS  IT  TO  GO  TO  THE  LOCATION  AT  THE  TOP  OF  THE  POST  FILTER  RUPT  LISj, 


REF  1 21, 201-+  02^52  1 MOSTPASS  GENADR  D1 CALC  WORD  IN  FILTPASl  FOR  THESE  PASSES 

REF  2 LASf  541  21,20lS  3 2^73  1 FILTER  CAF  MS20F  RESET  TIMER  IMMfDIAtELY:  DT  = 20  MS 

REF  8 last  541  21,2016  54  ^30  0 TS  TIMES 


REF 

14 

LAST 

541 

21,2017 

22  O16 

0 

REF 

12 

LAST 

541 

21,202° 

21,2021 

0 0006 
22  012 

1 

1 

LXCH  BANKRUPT  INTERRUPT  LEAD  iN  (CONTINUED) 

EXTEND 

2XCH  QRUPT 


REF 


21 *202^  0 2550  0 


TC  DiSPDRIV  DRIVE  ICDU  BITS  IF  NECESSARY. 


21,2023  0 0D06  1 EXTEND 

REF  1 21,2024  3 1574  0 OCA 

RzF  15  LAS(  541  21,2025  53'DOl  0 OXCH 

REF  2 last  541  21*2026  53*574  1 OXCH 

REF  3 last  541  21  ,2027  53't>02  0 OXCH 

REF  4 LAST  541  21,203°  53*600  1 OXCH 

REF  5 last  541  21,2031  53*576  0 OXCH 

REF  6 last  541  21  *203<I  53*574  1 OXCH 


begin  the  KALMAN  FILTER  bY  ReAOInC  CDU  aNGLeS  AND  TIME. 
REF  7 last  519  21,2033  0 5041  1 FiLSTART  TC 


set  RUPT  ADDRFS*;  TO  TOP  OF 
PFRPTLST  POST  FILTER  RUPT  LIST 

T5AOR 

PFRPTLST  ROTATE  2CaDR*S  iN  PoSt  FILTER  RJPl  LIST 

PFRPTlST  +6 

PFRPTLST  +4 

PFRPTLST  +2 

PFRPTLST 


T6JOBCHK  CHECK  T6  CLOCK  FOR  P-AXIS  ACTIVITY 


488954A  YJL  SYSTEM  FOR  AGC : NEW  PROGRAM  SMePATIN  BY  eYLES 


L <almani  filter  For  lm  dap 


0039 

0040 

0041 

0042 

REF 

REF 

19 

1 

21,2034 

LAST  5O4 

21 ,203s 

21,2030 

21*203/ 

0043 

21 ,2040 

0044 

REF 

108 

LAST  535 

21,2041 

0045 

21,2042 

0046 

21, 204S 

0047 

21,2044 

0048 

21,2045 

0049 

21 ,2040 

0050 

21,204/ 

0051 

REF 

109 

last  542 

21,205° 

0052 

REF 

2 

last  541 

21,2051 

0 OUO6 
3 0°34 

1 

EXTEND 

r*  M 1 V 

0 

JL  A 

LlJUY 

53*340 

0 

OXCH 

SIORCDUY 

0 OUO6 

1 

EXTEND 

JO  U04 

0 

read 

4 

54  °01 

1 

TS 

L 

0 0U06 

1 

EXTEND 

06  °04 

0 

RXOR 

4 

0 OUO6 

1 

extend 

1 2°51 

0 

3ZF 

+ 4 

0 0U06 

1 

EXTEND 

00  °04 

0 

READ 

4 

54  UOl 

0 1343 

1 

1 

IS 

TC 

L 

steeradr 

0053 

REF 

REf 

REF 

110 

1 

2 

LASI 

542 

21*2052 
2 1,2053 
21,2054 

21,2053 

0054 

0055 

0056 

LAST 

542 

0057 

0058 

0059 

REF 

REF 

3 

4 

LASl 

LAST 

122 

542 

21 ,205s 

21,205  ! 
21  ,206° 

A OUOl  1 DTCALC  CS  L 

6 IPA2  0 Ad  DAPTImE 

23»5A2  0 LXCH  DAPTIME 

0 0L06  1 EXTEND 

6 2^61  1 3ZMF  +3 

6 706  1 AD  NEGl/2 

6 706  1 AD  NEGI/2 


R0060  SCALING  OF  DELTA  T FOR  IaALKAm  FILTER  IS  1/8  SECOND. 


0061 

21,2061 

0 OUO6 

1 

extend 

0062 

REF 

35 

LAST 

537 

21,2062 

7 7?47 

0 

MP 

0063 

REF- 

1 

21,2063 

4 2370 

0 

CS 

0064 

2 1 ,2064 

0 OUO6 

1 

EX 1 END 

0065 

REF 

111 

LAS! 

542 

21,2063 

7 OUOl 

1 

MP 

0066 

REF 

20 

LAST 

541 

21,2060 

55*341 

1 

TS 

BIT7 

.6A 


L 

DT 


Roo67  set  dp  ultkR  weighting  Vector,  for  this  filter  pass. 


0068  REF  1 

0069  rEf  1 

0070  REF  21  LAST  SA2 

0071 


21  ,206/  11  0a6  0 CCS  WPOINTER 

21,207D  1 2D7A  1 TCF  MOVEWGTs 

E6  EBANK=  Dl 

21,2071  02PA6  1 PAX/FILT  eCADR  PAXIS 


C0071  REF  2 LAST  467  21,2072  34006  0 

0072  REf  1 21,2073  i 205  0 TCf  FLTzAxIS 

0073  REF  26  LAS]  514  21,207^  4 6301  1 MOVeWGTS  CS  THREE 

0074  REF  2 last  542  21,207^  27*346  0 ADS  WPOINTER 


0075 

0076  REF  3 

0077  REF  1 

0078  REF  2 

0079  REF  4 

0080  REf  2 


21 

1 

LAST 

LAST 

last 

49 

C i 

21 
21 
■5  1 

542 

542 

c 1 
21 

,2076  0 0O06  1 
,207?  5 1346  1 
,2100  3 2A05  1 
,2l0i  53*350  1 
,2102  51*346  1 
,2103  3 2^06  1 


EXTEimD 

index  WPOINTER 
DCA  WVECTOR 

DXCH  WO 
INDEX  WPOINTER 
CAF  WvEcTOR  +2 
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USER'S  OWN  PaGF  NO. 


E6 


STORE  CDUY  AND  CDUZ  AT  Pl  AND  IN  2,S  COM 

BEGIN  READING  TME  Cl OCK  TO  GET  TIME 
INcREME.nIT. 


CHECK  TO  SEE  IF  CH  WAS  IN  TRANSITION 

when  it  WAS  First  read. 

BRANCH  IF  TIME  WAS  tHE  BAME  IN  ? READS. 


THIS  TIME  read  aLWAyS  GIVES  GOOD  NO. 
SKIP  DTCALC  DURING  INITIAL  PASS 


A CONTAINS  ThF  tImE  DIFFERENCE  (dT) 
SINCE  THE  LAST  F II  TER. 


THIS  IS  ADDING  _1.0  TO  -DT  AND  ACCOUNTS 
FOR  AN  OVERFLOW  INTD  CHANNEL  5 


TIME  NOW  SCALED  AT  5.12  SECONDS 
FIRST  RESCALE  Tr  5.12/64 

THEN  RESCALE  TO  5 . 1 2/ ( 64* . 64 ) OR 
5.12/40.96  which  IS  THE  SAME  AS 
DT  SCALED  AT  1/8 


TEST  FOR  WEIGHTING  VECTOR  STEADy-STATE 
pointer  not  YFT  zero  (MULTIPLE  OF  ThrEE) 

(ROOM  FOR  2CADR  IN  CCS  HOLES) 


steady-state  already,  no  upoatiog  Again 

set  up  pointer  I-OR  this  pass 
(NEVER  gets  BfLOW  ZfRO  HeRE) 

WPOinTER  is  InDiX  = 87  FIRST  TJME  HERE 
AND  IS  DECREASED  BY  3 EVERY  FILTER  PASS 

until  the  steady-state  is  reached. 

MOVE  IN  NEW  W0,W1 


48895^A 


L 

0081 

0082 

0083 

008A 

0085 

0086 

0087 

0088 

0089 

0090 

0091 

0092 

0093 

0094 

0095 

0096 

0097 

0098 

0099 

Roloo 

R0IO2 
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<alman  t ilteR  for  lm  dap 


REF 

1 

21,2104 

55*551 

0 

TS 

REF 

74 

LAST 

528 

21,2105 

3 7/54 

0 

FLTZAXIS 

CAF 

REF 

4 

LAST 

505 

21,2105 

54  0(j6 

0 

1 S 

REF 

1 

21*210? 

1 2113 

1 

TCF 

REF 

180 

LAST 

535 

21,2110 

3 7/6I 

0 

GOYFILTR 

CAF 

REF 

5 

LAST 

543 

21,2111 

54  066 

0 

TS 

USER'S  OWN  PAGr  NO.  3 

W2  MOVE  IN  NEW  W2 

TWO  SET  UP  INDEXER  FOR  D.P,  PICKUP  AND  TO 

QRCNTR  INDICATE  2-AXlS  FILTER  PASS 

FlTYAXIS 

ZERO  SET  INDEXER  FOR  Y-AXIS 

QRCNTR 


REF  6 LAST  S4l  21*2112  0 5041  1 TC  Tb-JOBCHK  CHECK  T6  CLOCK  rOR  P-AXIS  ACTIVITY 


REF  6 LAST  543  21,2113  50 

REF  1 21,2UA  53 

REF  1 21,2115  52 

REF  7 LAST  543  21,2115  50 

REF  1 21,2lW  53 

REF  1 21*2120  52 

REf  8 last  543  21,2I2l  50 


066 

1 

FlTYAxIS  index 

QRCNTR 

• 553 

1 

OXCH 

CDUYFIL 

073 

1 

OXCH 

COU 

066 

1 

INDEX 

QRCNTR 

•557 

0 

OXCH 

DCDUYFIL 

062 

066 

1 

1 

OXCH 

index 

CdUDOT 

QRCNTR 

THETA  IS  D.P.  SCALED  AT  2 PI  RADIANS 


THETA  IS  D.P.  SCALED  AT  PI/4  RAD/SEC 

..  2 


REF 

1 

21,2122 

53'563 

1 

OXCH 

REF 

1 

21  ,2123 

52  064 

1 

OXCH 

REF 

9 LASl  543 

21 ,21 2A 

50  066 

1 

INDEX 

REF 

1 

21,2125 

31'566 

0 

CAE 

REF 

1 

21*2125 

57*567 

1 

XCH 

DzCDUYFL  THETA  IS  D.P.  SCALED  AT  PI/8  RAD/SEC 

CDUzDOT 

QRCNTR  ...  7 3 

Y3DOT  THETA  IS  S.P.  SCALED  AT  PI/2  RAO/SEC 

CDU3DOT 


note  ihat  the  filtered  variA3_e5  are  read  Destructively  for  speed  and  efficiency  and  that  Y3D0T  is  not  updated, 
so  IT  must  Be  Read  non-destRJctivlly  but  need  not  Be  restored  afteR  each  kalman  filter  pass. 


488954A  YJL  StS[EM  FOR  AGC:  N^W  SritPATiN  3Y  e^I-eS 


L <ALMANi  PiLTtR  FOR  LM  OAP 


POlOA  nTEoRA  lION  EXTRAPOLAI  ION  eQJAHoNS: 


0105  REF 

0106 

0107  R£F 

0108 

0109  REF 

0110  REF 

0111 

0112  REF 

0113 

OllA  REF 

0115  REF 

0116  REF 

0117 

0118  REF 

0119  REF 

0120 

0121  REF 

0122  REF 

0123 

012A  REF 

0125 

0126  REF 

0127  REF 


2 LAST  5A3 

22  LASl  5A2 

A1  LAST  A93 
2 last  5A3 

23  LAST  5AA 

15  LASl  A95 
2 LAST  5A3 

2 LAST  5A3 

2A  LASl  5AA 
6 LAST  73 

36  LAST  5A2 

3 LAST  5AA 

25  Last  5AA 

26  LAST  507 
3 LAST  5AA 


21 

21 

21 

21 

21 

21 

21 

21 

21 

21 

21 

21 

21 

21 

21 

21 

21 

21 

21 

21 

21 

21 


212'? 

213° 

2131 

2132 

2133 

2134 

2135 

2136 
213  ^ 
21aO 
21a1 

2142 
21a3 
2iA4 
21A5 
21a6 
21  AT 

2150 

2151 

2152 

2153 

2154 

2155 


3o  063  1 
0 OOO6  1 
7 15A1  1 
0 OOO6  1 
7 7^4A  0 
6 0061  0 
0 OOO6  1 
7 15a1  1 
0 0U06  1 
7 7f‘*5  1 

20  O73  1 

31'=67  1 
0 0006  1 
7 15A1  1 
54  065  0 
0 OOO6  1 
7 7T47  0 

6 0063  1 
0 0006  1 

7 15a1  1 
0 0006  1 
7 77A3  1 
20  062  1 


klmnfltr 


CAE 

EXTEND 

VIP 

EXTEND 

VIP 

AD 

EXTEND 

VIP 

EXTEND 

VIP 

OAS 


CAE 

Extend 

V|P 

TS 

EXTEND 

VIP 

AD 

EXTEND 

VIP 

EXTEND 

vtP 

OAS 


0128 

REF 

7 

LASi  544 

0129 

0130 

REF- 

20 

LmST  538 

0131 

REF 

4 

LAST  544 

21*2156  30  065  1 CAE 

21,2157  0 0O06  1 EXTEND 

21.2160  7 77A6  1 MP 

21.2161  20  06A  1 OAS 


CDU2DOT 

Dl 

BlTlO 

CDUDOT 

DT 

BiT9 

CDU 

CDU3DUT 

DT 

ITEMP5 

BIT7 

C0U2DOT 

Dl 

BlTll 

CDUDOT 

I TEMP5 

Bn8 

CDU2DOT 
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A scaled  at  Pi/8  (Use  s.p.) 

ADT  SCALED  AT  Pt/64  OR  ,5ADT  AT  Pl/128 

rescale  BY  RIGHT  SHiFT  5 
W + .5ADT  SCALEh  AT  PI/A 

(W  + ,5ADT)DT  scaled  AT  PI/32 

RESCALE  BY  RIGHT  SHIFT  6 (KEEP  o.P.) 

CDU  = CDU  + (W  * .5ADT)DT  SCaLEi)  AT  2PI 

ADOT  scaled  AT  Pl/2(T) 

,5AD0TDT  scaled  at  Pl/2(11) 

(SAVE  FOR  ALPHA  INTfGRAIION) 

RESCALE  BY  RIGHT  SHIFT  8 
A + .5AD0TDT  SCfiLED  AT  PI/8 

(A  + .5AD0TDT)DT  scaled  AT  PI/64 

RESCALE  BY  RIGHT  SHIFT  4 (KEEP  D.P.) 

W = W + (A  + .5AD0TDT)DT  SCALED  AT  PI/4 

ADOTDT  SCALED  A'l  PI/2(lU)  (FROM  ABOVE) 

RESCALE  BY  RIGHT  SHIFT  ! (KEEP  T.P.) 

A = A + ADOTDT  scaled  AT  PI/8 
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L 

P0132 

0133 

013A 

0135 

0136 

0137 

0138 

0139 

OlAO 

OlAl 

0142 

0143 

0144 

0145 

0146 

0147 

0148 

0149 

0150 

0151 

0152 

0153 

0154 

0155 

0156 

0157 

0158 

0159 

0160 
0161 
0162 

0163 

0164 

0165 

0166 

0167 

0168 

0169 

0170 

0171 

0172 

0173 

0174 

0175 


<ALMA'M  FlLTtR  FOR  LM  OaP 

WEiuHiii\G  Vector  aojjstment  ejjations: 


REF 

REF 

REF 

R^F 


3 LASi  544 
1 
1 

8 last  544 


2112182  0 0006  1 
21,2163  3 OU73  0 


2164 

2165 

2166 
216  ^ 


0 2303  0 
il'RtO  1 
0 0O06  1 

20  065  0 


REF 

REF 

REF 


1 

4 LAST  545 
2 LAST  545 


2170 

2171 

2172 

2173 


55*544  1 

4 0073  1 
6 OUOO  1 
57*545  1 


REF  3 LA5T  545 

REF  9 LAST  545 

REF  3 LAST  542 
REF  5 Last  545 
REF  10  LAS  r 545 

REF  4 LAST  545 
REF  6 LAST  545 
REF  112  LAST  542 

REF  7 Last  545 


21 

21 

21 

21 

21 

21 

21 

21 

21 

21 

21 

21 

21 

21 


217A 

2175 

2170 

2n( 

2200 

2201 

2202 

2203 

2204 

2205 

2206 
220  7 

2210 

221 1 


0 0006  1 
3 1545  1 
20  001  1 
22  O55  1 
0 0006  1 
7 15a7  1 
20  O73  1 
30  ObS  1 
0 0006  1 
7 1547  1 
25  073  1 
54  001  1 
1 2212  0 
25  O72  0 


REF  4 LAST  545 


21,2212  31  *5a4  0 

2112213  0 0006  1 


REF 

16 

Last  544 

REF 

1 1 

LAST  645 

REF 

5 

LAST  545 

RiF 

17 

last  545 

REF 

12 

LAST  545 

REF 

13 

LAST  545 

rhf 

REF 

REF 

DTP 

2 

4 

14 

last 

LAST 

LAST 

49 

544 

545 

3 

L A S 1 

545 

REF 

5 

LAST 

545 

REF 

113 

LAST 

545 

REF 

6 

LAST 

545 

21 

21 

21 

21 

21 

21 

21 

21 

21 

21 

21 

21 

21 

21 

21 

21 

21 


2214 

2215 

2216 
221  ^ 
2220 
2221 
2222 

2223 

2224 

2225 

2226 
222  f 

2230 

2231 

2232 

2233 

2234 


7 7745  1 
22  Ob5  1 
31*545  1 
0 OOO6  1 
7 7745  1 

6 0065  1 
22  065  1 

0 OUO6  1 

7 1550  1 
20  062  1 
30  065  1 
0 0006  1 
7 1550  1 
25  062  1 
54  OOl  1 

1 2235  0 

25  061  1 


USER*S  OWN  page  NO.  5 E6 


extend  convert  cdu  integrated  value  from  double 

DCA  CUU  PRECISION  SCAI  En  AT  2Pl  IN  ONES  COMpLE- 

IC  ONETOTWO  MENT  10  SINGLE  PRECISION  SCALED  A1  PI 

cae  siorcduz  in  TWOS  complement,  then  difference  with 

EXTEND  stored  CDU  REGISTER  READING  TO  oET  A 

vlSU  ITEMP5  single  PREcIsIOn  ONes  cDmPLEMENI  REsULT 

TS  DPDIFF  scaled  at  pi  radians  (UPPER  HALE) 

CS  CdU  +1  CREATE  LoW  ORDER  WORD  OF  D.P.  DIFFERENCE 

double  ones  complement  SCAi  ED  at  pi  RAoIANS  AND 

XCH  DPDIFF  +1  USE  S.P.  RESULT  ABOVE  AS  HIGH  ORDER  WORD 

EXTEND  RESCALE  DPDIFF  tO  Pi 

DCA  DPDIFF 

DDOUBL 

uXCH  I1EMP5  SAVE  LOW  ORDER  WORD  FOR  D.P,  MUlTIPLY 

EXTEND 

MP  WO  CDU  = CDU  ♦ DPDlFF  (D.P.)  * WO  (S.P.) 

DAS  CDU 

CAE  IIEMP5  WO  IS  SCALED  AT  2 

EXTEND  DPDIFF  IS  RESCAl  ED  TO  PI 

MP  WO  W0*DPDIFF  IS  SCALED  AT  2PI  (AS  CDU) 

ADS  CDU  +1 

TS  L 

rCF  +2 


ADS 

CDU 

CAE 

DPDIFF 

RESCALE 

DPDIFF  TO  Pl/128 

EXTEND 

MP 

BIT9 

DPDIFF 

(D.P.)  * 256 

LXCH 

1 1 EMP5 

CAE 

DPDIFF  +1 

EXTEND 

MP 

BIT9 

AD 

ITEMP5 

LXCH 

ITEMP5 

EXTEND 

MP  W1 

DAS  CdUDOT 

CAE  ITEMP5 

EXTEND 

MP  Wi 

ADS  CDUDOT  +1 

TS  L 

TCF  +2 

ADS  CDUDOT 


CdU  = CDU  + dPDIFF  (DiP*)  * Wl  (S.P.) 

Wl  IS  SCALED  AT  32 

DPDIFF  IS  RESCAl ED  TO  Pl/128 

W1*DPDIFF  is  SCaLeD  at  Pl/4  (AS  CDUDOT) 
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L 

0176 

0177 

0178 

0179 

0180 
0181 
0182 
0183 
018A 

0185 

0186 

0187 

0188 

0189 

0190 

0191 

0192 

0193 
019A 

R0195 

0196 

0197 

0198 

0199 

0200 
0201 
0202 
0203 
020a 

0205 

0206 

0207 

0208 
0209 


0210 

0211 

0212 

0213 

02U 

R0215 

0216 

0217 


<ALMAN  r ILTLR  ROR  LM  OaP 


R£K  6 last  545  21,2235  31*644  0 CAE 

21,2236  0 0006  1 EXTEND 

REF  21  LASf  544  21,223^  7 7^46  1 MP 

REF  15  last  545  21,2240  22  065  1 LXCH 

REF  7 LAST  546  21,2241  31*645  1 CAE 

21  *224i;  0 0006  1 EXTEND 

REf  22  LASI  546  21,2243  7 7^46  1 vip 

REF  16  last  546  21,2244  6 0065  1 AD 

REF  17  last  546  21,2246  22  065  1 LXCH 


USER'S  OWN  PaG(.  no.  6 E6 

DPDIFF  RESCALE  DPDIFF  TO  Pl/64 

BIT8  DPDIFF  (D.P.)  » 128 

ITEMP5 

DPDIFF  +1 

BITS 

ITEMP5 

ITEMP5 


21*2246  0 0O06  1 EXTEND 

REp  2 last  543  21,224?  7 1651  0 MP  W2 

REF  5 LAST  544  21,2250  20  064  1 DAS  CDU2D0T 

REF  18  last  546  21,2251  30  065  1 CAE  ITEMP5 

21,2252  0 OOO6  1 EXTEND 

REF  3 LASI  546  21,2253  7 1651  0 '^P  W2 

REF  6 LAST  546  21,225^  26  064  1 ADS  CDU2DOT  +1 

REF  114  LASI  545  21,2255  54  OQl  1 TS  L 

21,225b  1 2260  0 TCF  +2 

REF  7 LASI  546  21,225?  25  063  0 ADS  CDU2D0T 

restore  variables  and  teSt  ("OR'  co'^'RLetion  or  additional  axis. 


REF  8 LAST  545  21  *2260  52  O73  1 FRTAXIS  OXCH 


ref  10  lAsI  543  21*2261  50  066  1 INoEX 

REF  2 LAST  543  21*2262  53*653  1 OXCH 

REF  7 LAST  545  21,2263  52  062  1 OXCH 

REF  11  LAST  546  21,2264  50  066  1 INDEX 

REF  2 LAST  543  21,2265  53*657  0 OXCH 

REF  8 LASi  546  21*2266  52  OeA  1 OXCH 

REf  12  LASi  546  21*226?  50  066  1 INDEX 

REF  2 LASI  543  21,2270  53*663  1 OXCH 


CDU 

ORCNTR 

COUYFIL 

CDUDOT 

qkcntr 

DCDUYFIL 

CDU2DUT 

ORCNTR 

D2CDUYFL 


REF  2 last  542 
REf  2 last  645 
REF  3 LASi  546 


21*2271  57*R37  1 
21*2272  57*640  1 
21*2273  57*637  1 


XCH  STORCDUY 
XCH  STORCDUZ 
XCH  SiQRCDUY 


• • • • 

CDU  = CDU  + dPD’FF  (D*P*)  * W2  (S.P.) 

W2  IS  SCALED  AT  8 

W2**DPDIFF  is  scaled  AT  Pl/8  (AS  CDU2DOT) 


Theta  Is  D.P.  Scaled  at  2 pi  raoians 

THETA  IS  D.P.  SrALED  AT  Pi/4  RAD/SEC 


THETA  IS  D.P.  S(  AlED  AT  pI/8  RAiT/SEC 
INTERCHANGE  CDU  READINGS 


REF  6 LASI  73  21*227^  10  066  0 CCS  ITEMP6  ITEMP6  IS  AXIS  tNDEXER 

REf  1 21*2275  1 2ll0  1 ICF  GOYFIlTR  IF  2*  Y-AXis  sT I LL  TO  GO 

REF  16  LASi  541  21*2276  4 lOOO  1 CS  T5ADR  IF  THE  TRIM  GIMpAL  rONTROL  RUPT  IS  NEXT, 

REF  I 21*227?  6 2^00  1 AD  GT S2CADR  DO  THE  Q,R-AXIS  STATE  TRANSFORMATIONS 

21*2300  0 0006  1 EXTEND  AND  THE  20  MS  STATE  EXTRAPOLATION 

REF  1 21*2301  1 2672  1 3ZF  GlMBAL 

R-F  39  LAST  537  21,2302  1 5(51  0 TCF  RESUME  OTHERWISE,  RESU^,E 

SJBROjTINE  i-OU  filter  WHICFI  TA<ES  1 complement  number  into  a 2 COMP, 

21*2303  20  001  1 ONETOTWO  ODOUBL  SEE  RTB  OP  CODES  IN  BANK  15  FOR  NOTES  ON 

REf  266  last  538  21*2304  ID  Ooo  0 CCS  A ThIs  COMPUTATION. 
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0218 

REF 

192 

LAST 

527 

21,2305 

6 7F55 

1 

0219 

21,2306 

1 2310 

0 

0220 

19 

21,2307 

9 OOOO 

0 

0221 

REF 

LASl 

596 

2 1 , 23  lO 

5 9 065 

0 

0222 

21,2311 

1 2315 

0 

0223 

REF 

267 

LAST 

596 

21,231'; 

50  OOO 

1 

0229 

REF 

3 

LASl 

395 

21,2313 

3 7 F36 

1 

0225 

REF 

20 

LAST 

597 

21,2319 

26  065 

0 

0226 

REF 

197 

LAST 

590 

21,2315 

0 0002 

0 

AD 

TCP 

COM 

15 

ICF 

INDEX 

CAP 

ADS 

K 


R0227  THIS  PRlGKA'  initializes  iHE  <ALMAN  FILTER  PROGRAM. 


0228  REF  3 

0229  REF  I 

0230  REF  5 

0231  REF  1 

0232  REf  3 

0233 

023A  REF  1 


last  5A2  21 

21 

LAST  592  21 

21 

last  592  21 

21 
21 


23IS  23*S92  0 
2311  3 2372  0 

2320  55’S96  0 

2321  3 2*319  0 

232Z  55»S93  0 

2323  0 OUO6  1 

2329  3 2376  1 


FILHRST  LxCH 
CAF 
TS 
CAF 
TS 

EXTEND 

DCA 


0235 

REF 

7 

02  36 

0237 

REf 

2 

0238 

REF 

8 

02  39 

0290 

REF 

3 

0291 

REF 

9 

0292 

0293 

REf 

2 

0299 

REF 

10 

0295 

0296 

REF 

1 

0297 

REF 

3 

0298 

REF 

9 

0299 

0250 

REF 

39 

0251 

REF- 

3 

0252 

REF 

3 

0259 

REF- 

90 

0255 

REF 

1 

0256 

REF 

181 

LAST 

591 

21 

2 1 

last 

591 

21 

LAST 

597 

21 

2 1 

LAST 

597 

21 

LAST 

597 

21 

21 

LAS  ■ 

596 

21 

LAST 

597 

21 

21 

21 

Last 

968 

21 

LAST 

596 

21 

21 

LAST 

5 39 

c 1 

LAST 

596 

21 

Last 

596 

21 

2 1 

LASl 

597 

21 

21 

1 A Q 7 

U ^ 1 

593 

c i 

2325  53'S79  1 

2329  0 0*306  1 

2327  3 2U72  0 

2330  53'S76  0 

2331  0 OOO6  1 

233Z  3 2072  0 

2333  53*902  0 

2339  0 0006  1 

2335  3 2901  0 

2339  53*900  1 

2337  0 0O06  1 

2390  3 2903  1 

2391  53*572  1 

2391;  31*537  1 

2393  0 0006  1 

2399  7 7/AO  1 

2395  53*553  1 

2396  31'5a0  1 

2397  0 OUO6  1 

2350  7 7190  1 

2351  53*555  1 

2352  3 7l6l  0 


3XCH 

EXTEND 

3CA 

3XCH 

EXTEND 

DCA 

3XCH 

EXTEND 

3CA 

3XCH 

EXTEND 

3CA 

DXCH 

CAE 

extend 

MP 

3XCH 

CAE 

Extend 

MP 

dxch 

CA 


0257  REF  3 last  596  21 

0258  REF  9 Last  597  21 

0259  REF  1 21 

0260  REF  2 LASl  597  21 

0261  REF  3 last  596  21 

0262  REf  9 last  597  21 

0263  REF  1 21 

0269  REF  2 LAST  597  21 


2353  55*556  1 IS 

2359  55*557  0 TS 

2355  55*560  1 TS 

2356  55*561  0 TS 

2357  55*562  0 TS 

2360  55*563  1 TS 

2361  55*569  0 TS 

2362  55*565  1 TS 


ONE 

+ 2 

11EMP5 

♦ 9 

A 

limits 

ITEMP5 

Q 


DAPTIME 

P0INT590 

WPOINTER 

MOSTPASS 

STEFRADR 

DGTSFADR 

PFRPTLST 

pax/fIlt 

PFRPTLST 

PAX/FILT 

PFRPTLST 

G1 S2CADR 
PFRPTLST 

PUSTPFIL 
PF ILTADR 

SlORCDUY 

B1T19 

CDUYFIL 

STORCDUZ 

BI  T 19 

CDUZFIL 

ZERO 

DCDUYFIL 
DCDUYFIL 
DCDUZF IL 
DLDUZFIL 
D2CDUYFL 
D2CDUYFL 
D2CDU2FL 
D2CDUZFL 
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OSeR*S  Oi^N  PAGf  no.  7 


E6 


RETURN 

INITIALIZE  TIME. 

INITIALIZE  THF  WEIGHTING  VECTOR  POINTER 

SET  UP  FOR  NEXT  PASSES 

SET  UP  POST  filter  RUPT  LIST 


+ 2 


♦ 6 


+ 4 

CHANGE  POST  P FILTER  TO  FILTER 


INITIALIZE  THF  STATE  VECTOR  TO  CDU  VALUE 


INITIALIZE  THF  DERIVATIVES  OF  THE  STATE 

+ 1 
+ 1 
+ 1 
+ 1 


488954A 

YJL 

SISTEM  FOR  AGC: 

NL^»  PRoORA^  SHePATIN  3Y 

EYLLS 

DEC  13,  I966  (MAIN) 

PAGE  5Ab 

L 

^lLTt-K  rUK  un 

UAK 

user*s  own  pagf  no.  8 

E6 

0265 

REF 

2 LAST  343 

k.1  *236^ 

55'P66  1 

TS 

Y3DOT 

0266 

REF 

1 

21  i236^ 

35*670  0 

T s 

Z3DOT 

0267 

REF 

3 LAST  48 

21*236^ 

55*622  1 

TS 

NEGUO 

0268 

REf 

1 

2 1 < 236^3 

55*624  1 

T S 

negur 

0269 

REF 

40  LAST  346 

2 1 *2367 

I 5751  0 

TCF 

RESUME 

0270 

0271 

0272 

0273 

Ui  IH 

0275 

0276 

REF 

26 

LAST 

344 

C027t 

0277 

0278 

REF 

REF 

REF 

1 

3 

27 

LASi 

LAST 

542 

348 

0279 
C0279 

0280 

REF 

REF 

1 

28 

LAST 

348 

0281 

C0281 

REF 

1 

ill  12370 

21  i237i 
21,2372 
21  ,2373 
21,237"* 

21  ,23755 

21.2376 

21.2377 

21,2^00 

21,2^01 

21,2^02 

21,2403 


24366  1 .64  DEC  0.64000 

I4OOO  1 BIT12-13  OCTAL  I4OOO 

00132  1 P0IM=90  OEC  90 

37776  0 MS20F  OCTAL  37776 
37775  0 MS30F  OCTAL  37775 
E6  EBANK=  DT 

02^36  0 DGTSFAUR  2CADR  DOTS 
42006  1 

02346  1 PAXI5ADR  3ENA0R  PAXIS 
E6  EBANK=  DT 

O2P6I  1 GT52CADR  2CADR  GTS 
42O06  1 

E6  EBANK=  Dl 

O2O15  1 POSTPFIL  2CADR  FILTER 
42O06  1 


pointer  initialized  ONE  GROUP  PAST  END 


L 

P02fi2 

R028A 

R0286 

R0287 

R0288 

R0289 

R0290 

02^1 

0292 

0293 

029't 

0295 

0296 

0297 

0298 

0299 

0300 

0301 

0302 

0303 

0304 

0305 

0306 

0307 

0308 

0309 

0310 

0311 

0312 

0313 

0314 

0315 

0316 

0317 

0318 

0319 

0320 

0321 

0322 

0323 

0324 

0325 

0326 

0327 

0328 

0329 

0330 

0331 


YJL  5>Sie''>  'or  aGC:  Rro'^RA'’'  St^LPATlN  BY  e^LeS 
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KALMAN  filter  FOR  LH  LAP  USER'S  OWN  PAGf  NO. 

the  kali. an  I ILTeR  WeICHTINF  vectors  are  LISTeL  in  the  following  table  along  with  the  TlTE  From 
initialization  for  which  they  are  to  be  useu.  (tHe  Vectors  are  stored  in  ordered  triplfS  (wo, 
drscendjng  cRLeR  in  time  with  the  Steady  state  values  at  tHf  top.) 


THe  components  are  scaled  as  -OLLUwS: 
wo  : SCALED  AT  2 

Wl  : scaled  at  32 

K2  ; SCALED  AT  8 

21»2A0A  05(5i  1 WVECTOR  DEC 


21.2405  00672  1 DEC 

21.2406  D5S62  0 DEC 

21,240?  044fcO  1 DEC 

21,241°  00?31  1 DEC 

21.2411  05S30  1 DEC 

21.2412  04S22  0 DEC 

21.2413  00?45  1 DEC 

21,24lA  05932  0 OEC 

21,2415  04572  0 OEC 

21.2419  11902  0 DEC 

21,2417  05?64  1 DEC 

21.2420  04950  0 DEC 

21.2421  OlOOS  0 DEC 

21.2422  06153  0 DEC 

21.2423  04?35  1 DEC 

21,242A  OIO32  1 DEC 

21.2425  06^05  0 DEC 

21.2426  05O27  1 DEC 

21.2427  01O63  0 DEC 

21.2430  06107  1 DEC 

21.2431  O5I3O  0 DEC 

21.2432  OII2O  0 DEC 

21*2433  07270  0 DEC 

21,243A  O5A37  1 DEC 

21.2435  01163  1 DEC 

21.2436  07142  1 DEC 

21.2437  05354  0 DEC 

21.2440  01232  0 DEC 

21.2441  10513  1 DEC 

21.2442  O5A75  1 DEC 

21.2443  01306  0 DEC 

21,244A  11375  0 DEC 

21.2445  05622  1 DEC 

21.2446  01367  1 DEC 

21.2447  12A02  1 DEC 

21.2450  05152  1 DEC 

21.2451  01^56  1 DEC 

21.2452  13541  0 DEC 

21.2453  06101  1 DEC 

21,245A  01551  1 DEC 


0.18608 

0.02696 

0.17105 

0.14358 

0,02890 

0.17727 

0.14565 

0.02959 

0.18129 

0.14809 

0.30479 

0.18678 

0.15090 

0.03154 

0.19403 

0.15409 

0,03283 

0.20340 

0,15767 

0.03437 

0.21525 

0.16163 

0,03616 

0.23000 

0.16595 

0.03824 

0,24814 

0.17063 

0,04062 

O.27OI8 

0.17560 

0.04332 

0,29668 

0.18080 

0.04634 

0.32824 

0.18614 

0.04968 

0.36531 

0.19147 

0.05328 


WO  from  relative  time 
Wl  from  relative  I ImE 
W2  from  RELATlVr  1 IME 
WO  AT  RELATIVE  TIME  = 
Wl  AT  RELATIVE  iIME  = 
W2  at  RELATIVE  TIME  = 
WO  AT  RELATIVE  rIME  = 
Wl  AT  RELATIVE  TIME  = 

W2  at  relative  time  = 

WO  AT  RELATIVE  TIME  = 
Wl  AT  RELATIVE  TIME  = 
W2  at  RELATIVE  TIME  = 

WO  At  relative  time  = 
Wl  at  relative  time  = 
W2  at  relative  time  = 
wo  AT  RELATIVE  iIME  s 
Wl  AT  RELATIVE  TIME  ; 
W2  at  RELATIVE  TIME  = 
WO  AT  RELATIVE  TIME  = 
Wl  AT  RELATIVE  tIME  = 
W2  at  RELATIVE  TIME  = 
wo  at  RELATIVE  t IME  = 
Wl  AT  RELATIVE  TIME  = 


W2  at  RELAT 
WO  AT  RELAT 
Wl  AT  RELAT 
W2  at  RELAT 
WO  AT  RELAT 
Wl  AT  RELAT 
W2  at  RELAT 
WO  at  RELAT 
Wl  AT  RELAT 
W2  at  RELAT 
WO  AT  RELAT 
Wl  AT  RELAT 
W2  at  RELAT 
WO  at  RELAT 
Wl  AT  RELAT 
W2  at  RELAT 
WO  at  RELAT 
Wl  AT  RELAT 


IVF 

time 

= 

1 VF 

T ImE 

IVF 

T IME 

IVF 

7 IME 

= 

IVF 

TIME 

I VE 

time 

= 

IVF 

TIME 

= 

IVF 

T IME 

= 

IVF 

time 

= 

IVE 

time 

= 

IVF 

TIME 

= 

IVF 

1 IME 

= 

IVF 

TIME 

IVF 

time 

IVF 

time 

= 

IVF 

T IME 

= 

IVF 

time 

IVF 

T IME 

= 

V E6 

ihe  last  eilteR 

Wl,W2)  IN 


1.5  SECS  OR  more 
1.5  SECS  OR  more 

1.5  SECS  OR  more 
1.45  seconds 
1.45  SECONDS 
1.45  SECONDS 
1.40  seconds 
1.40  SECONDS 
1.40  SEC0,DS 
1.35  SECONDS 
1.35  SECONDS 
1.35  seconds 
1.30  SECO  IDS 

1.30  Seconds 
1.30  seconds 
1.25  SECONDS 
1.25  seconds 
1.25  SECONDS 
1.20  SECONDS 
1.20  SECONDS 

1.20  seconds 

1.15  seconds 

1.15  SECONDS 

1.15  SECO mDS 
1.10  SEcOmDS 

1.10  seconds 

1.10  SECOmDS 

1.05  seconds 

1.05  SECONDS 

1.05  SECOjDS 

1.00  SECONDS 

1.00  Seconds 
1.00  seconds 
0.95  seconds 
0.95  seconds 
0.95  seconds 
0.90  seconds 
0.90  Seconds 
0,90  SECONDS 
0.85  SECONDS 

0.85  seconds 
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L 

0332 

0333 
0339 

0335 

0336 

0337 

0338 

0339 

0340 

0341 

0342 

0343 

0344 

0345 

0346 

0347 

0348 

0349 

0350 

0351 

0352 

0353 

0354 

0355 

0356 

0357 

0358 

0359 

0360 

0361 

0362 

0363 

0364 

0365 

0366 

0367 

0368 

0369 

0370 

0371 

0372 

0373 

0374 

0375 

0376 

0377 

0378 

0379 

0380 


<ALriA\  I-ILTIR  for  LM  DAP 


21.2455  15^40  1 3EC 

21.2456  06^25  1 5EC 

21.2457  01647  0 OEC 

21.2460  16503  0 OEC 

21.2461  06:>41  1 OEC 

21 ,246^  01 ^46  0 OEC 

21,2463  20‘:44  1 OEC 

21  ,246't  06^40  1 OEC 

21.2465  02041  0 OEC 

21.2466  22O55  1 OEC 

21.2467  06514  1 OEC 

21.2470  O2I23  0 OEC 

21.2471  23610  1 OEC 

21.2472  06542  1 OEC 

21*2473  02166  1 OEC 

21,247A  25O72  0 oEc 

21.2475  06546  0 OEC 

21.2476  02205  1 OEC 

21.2477  25540  1 OEC 

21.2500  06543  0 OEC 

21.2501  O2I77  1 OEC 

21.2502  25627  1 OEC 

2 1 .2503  06564  0 OEC 

21.2504  O2I6O  1 OEC 

21.2505  24O77  1 OEC 

21.2506  06671  1 OEC 

21.2507  02154  0 OEC 

21,251“  21670  1 OEC 

21.2511  O7I25  0 OEC 

21.2512  02225  0 OEC 

21.2513  16256  1 OEC 

21,2516  07544  0 OEC 

21.2515  02630  1 OEC 

21.2516  12624  1 OEC 

21.2517  10601  0 OEC 

21.2520  33054  0 OEC 

21.2521  37317  0 OEC 

21*2522  11507  0 OEC 

21,2523  34O7O  1 oEc 

21,2526  34604  0 OEC 

21.2525  I3I66  0 OEC 

21.2526  36020  0 OEC 

21,252?  02213  0 OEC 

21.2530  15230  1 OEC 

21.2531  11 ?56  0 OEC 

21.2532  30613  0 OEC 

21.2533  17670  0 OEC 

21,2536  23514  0 OEC 

21,2535  30001  0 OEC 


DEC  in,  lq66  (MAIN)  PAGE 


USER' 

'S  OWN  PAGE  NO. 

10 

0.40821 

W2 

AT 

RELATIVE 

T I ME 

- 

0.85 

0,19659 

WO 

AT 

RELATIVE 

TIME 

0.80 

0,05707 

Wl 

AT 

RELATIVE 

TIME 

= 

0.80 

0.45721 

W2 

at 

RELATIVE 

time 

s 

0.80 

0.20122 

WO 

AT 

RELATIVE 

time 

= 

0.75 

0.06089 

Wl 

AT 

RELATIVE 

TIME 

0.75 

0,50999 

W2 

AT 

RELATIVE- 

TIME 

= 

0.75 

0.20505 

Wo 

AT 

RELATIVE 

TIME 

0.70 

0.06451 

Wl 

AT 

RELATIVE 

time 

= 

0.70 

0.56522 

W2 

AT 

RELATIVE 

time 

z 

0.70 

0.20775 

WO 

at 

relative 

time 

= 

0.65 

0.06759 

Wl 

at 

RELATIVE 

time 

0.65 

0.61768 

W2 

AT 

RELATIVE 

TIME 

= 

0.65 

0.20912 

WO 

AT 

RELATIVE 

TIME 

= 

0.60 

0.06972 

Wl 

AT 

A X 

RELATIVE 

D C 1 A T T 1 . n 

time 

T ime 

0.60 

0.60 

0,65979 

W2 

A 1 

KC-LA  I 1 \jr 

— 

0.20936 

WO 

AT 

RELATIVE 

time 

s 

0.55 

0.07062 

Wl 

AT 

RELATIVE 

time 

= 

0.55 

0.68165 

W2 

AT 

RELATIVE 

T IME 

= 

0.55 

0.20919 

WO 

AT 

RELATIVE 

time 

= 

0.50 

0.07028 

Wl 

AT 

RELATIVE 

time 

0.50 

0.67330 

W2 

AT 

RELATIVE 

time 

= 

0.50 

0.21020 

WO 

AT 

RELATIVE 

T IME 

0.45 

0.06931 

Wl 

at 

RELATIVE 

time 

z 

0.45 

0,62883 

W2 

AT 

RELATIVE 

time 

= 

0.45 

0,21441 

WO 

at 

RELATIVE 

time 

5 

0.40 

0.06908 

Wl 

AT 

AT 

RELATIVE 

RELATIVE 

TIME 

= 

0,40 

0, 55030 

W2 

time 

0.40 

0.22391 

WO 

AT 

RELATIVE 

TIME 

0.35 

0.07162 

Wl 

AT 

RELATIVE 

time 

TIME 

- 

0.35 

0,44810 

W2 

AT 

RELAT I VE 

5 

0.35 

0.24049 

WO 

AT 

RELATIVE 

time 

z 

0.30 

0.07956 

W 1 

AT 

RELATIVE 

time 

time 

= 

0.30 

0.30 

0.33713 

W2 

AT 

RELAT I VF 

z 

0.26566 

WO 

AT 

RELATIVE 

time 

z 

0.25 

0.09646 

Wl 

AT 

RELATIVE 

time 

z 

0,25 

0.23140 

W2 

AT 

RELATIVE 

time 

= 

0,25 

0.30123 

WO 

AT 

A T 

RELATIVE 

TIME 

time 

0.20 

0.20 

0. 12841 

W 1 

A 1 

KtLA 1 I VF 

• 

0.14087 

W2 

AT 

RELATIVE 

time 

5 

0.20 

0.34996 

WO 

AT 

RELATIVE 

T IME 

z 

0.15 

0.18850 

Wl 

AT 

RELATIVE 

time 

z 

0.15 

O.O7IOI 

W2 

AT 

RELATIVE 

time 

z 

0.15 

0.41554 

WO 

AT 

RELATIVE 

rid  atti/c 

time 

time 

- 

0,10 

0.10 

0,31141 

Wl 

AT 

KtLA 1 I Vr 

" 

0.02408 

W2 

AT 

RELATIVE 

time 

0.10 

0.49561 

WO 

AT 

RELATIVE 

time 

= 

0.05 

0.61404 

Wl 

AT 

RELATIVE 

time 

= 

0,05 

0.00006 

W2 

AT 

RELATIVE 

time 

= 

0.05 

SECO\DS 
SECO  >iDS 

seconds 

seconds 

SECOmDS 

seconds 

SECONDS 

seconds 

SECO  jDS 
SECO  .DS 
Seconds 
SECO  iDS 

seconds 

SECONDS 

seconds 
SEcOnqS 
SECO  jDS 
SECONDS 
SECONDS 
seconds 
SECONDS 

seconds 
seconds 
seconds 
seconds 
SECO  .DS 

seconds 

seconds 

seconds 

seconds 

seconds 

seconds 

seconds 

SECO  ,DS 

seconds 

seconds 

seconds 

seconds 

SEc3  jDS 

seconds 

seconds 

seconds 

seconds 

seconds 

seconds 

seconds 

seconds 

SECONDS 

seconds 
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L 

KAlmAN 

E ilteR  for 

LM  CAp 

P0381 

1 Eid  AL 

RUPT : 

0302 

REF 

1 

LAST 

21  *2536 

3 2^74 

0 DGTS 

CAF 

0383 

REF 

9 

541 

21 ,2537 

5 4 0 30 

0 

T S 

0384 

21,2540 

0 0006 

1 

EXTEND 

0385 

REF 

2 

LAST 

547 

21  12541 

3 2403 

1 

OCA 

0386 

REF 

17 

LAST 

546 

21  ,254'^ 

53*001 

0 

OXCH 

0387 

REF 

15 

LAST 

541 

21*2543 

22  O16 

0 

lXCH 

0388 

21,2544 

0 0006 

1 

extend 

0389 

REF 

1 3 

LAST 

541 

21 ,2545 

22  0 1 2 

1 

OXCH 

0390 

REF 

2 

LAST 

541 

21,2546 

0 2550 

0 

TC 

0391 

REF 

41 

LAST 

548 

21,2547 

1 5T51 

0 

TCF 

0392  REF  29  LAST  S48  E6  EBANK= 


0393 

20*3006 

3AN< 

R0394 

DJMMY 

filter 

RUPT 

AFTER  Q,R- 

Axes  kupt: 

0395 

20 , 300° 

37(76  0 

MS20120 

OCTAL 

0396 

REF 

8 

LAST 

500 

E6 

EBANK= 

0397 

20,300  / 

02346  1 

PAXBNK20 

2CADR 

C0397 

REF 

4 

LAST 

548 

20,3010 

34OO6  0 

0398 

REF 

1 

20,3011 

3 3OO6  1 

fildummy 

CAF 

0399 

REF 

10 

LAST 

551 

20,301‘^ 

54  O30  0 

rs 

0400 

REF 

16 

LAST 

551 

20,3013 

22  016  0 

LXCH 

04003 

20,3014 

0 0006  1 

EXTEND 

04005 

REF 

14 

LAST 

551 

20*3015 

22  012  1 

OXCH 

0401  2u,301fa  0 0U06  1 EXTEND 

0402  REF  1 20,3017  3 3^10  0 OCA 

0403  REF  18  LASI  551  20,3020  53*001  0 OXCH 


0404 

R-F 

9 

LAST 

551 

20,3021 

4 1511 

1 

cs 

0405 

REF 

1 

20,302‘2 

5 3III 

0 

AD 

0406 

20,3023 

0 0006 

1 

EXTEND 

O4O7 

REF 

1 

20,3024 

6 3U4O 

0 

3ZMF 

0408 

REF 

10 

LAST 

551 

20,3025 

3 1511 

0 

CA 

0409 

20 , 3025 

0 OOO6 

1 

EXTEND 

0410 

REF 

2 ! 

LAST 

536 

20,3027 

7 7(51 

1 

V|P 

0411 

REF 

115 

LAST 

546 

2o,303D 

30  DOl 

0 

CAE 

0412 

20,3031 

0 0006 

1 

EXTEND 

0413 

REF 

1 

20,3032 

7 3IO7 

0 

MP 

0414 

REF 

D ~ c: 

1 1 

LAST 

551 

20,3033 

55*511 

1 

TS 

0415 

Kir 

1 

20  * 303*+ 

0 3050 

1 

1 C 

0416 

RSf 

182 

last 

547 

20,3035 

3 7(61 

0 

CAf 

MS3oF 

T1ME5 


PUSTPFIL 

T5ADR 

Bankrupt 

qrupt 

DISPDRIV 

RESUME 

DT 

20 


37776 

TOR 

PAXIS 

MS20120 

TIMES 

BANKRUPT 

QRUPT 


PAXBNK20 

T5ADR 

Tor 

CSPINKF 

FULLC5P 

TOR 

BITS 

L 

16/25KF 

TOR 

JETTSUB 

ZERO 


OeC  13,  lq66  (MAIN)  PAGE  551 


USER'S  Oif/N  PAGE  NO.  11  E6 

RESET  timer  IMMeDIAtELY:  DT  s 3n  MS 

Set  up  filter  Ri.pt 

interrupt  Lead  in  (continued) 

DRIVE  ICOU  bits  ip  NECESSARY. 


RESET  TIMER  IMMEDIATELY)  DT  s 20  MS 


interrupt  Lead  in  (continued) 

SAVE  THE  last  Q ON  ALL  TsRUPT  LeAD  IN'S 


set  up  PAxIS  RUpT 


‘V8895‘+A  yjL  sysltM  ^GC!  pR0G9A.\i  5HEPATIN  3y  Eyi_Es 


[)tc  l8*  I966  (mAIN)  pAgE  55i^ 


L KALMA'il  filter  FqR  LM  DaP 


0917  rEF  12  LAsl  551 

0918  REF  92  LAST  551 


20,3036  55*9>11  1 1$ 

20,303F  1 5T5I  0 TCF 


TuR 

RESUME 


USER'S  OWN  PAGp  NO,  12 


E6 


0919 

LAST 

20,3090 

0920 

REF 

3 ! 

5O9 

20 , 309 1 

0921 

REF 

1 

20,3092 

09211 

REF 

13 

LAS  I 

552 

20,3093 

0922 

REF 

2 

LAST 

551 

20 , 3099 

0923 

REF 

38 

LAST 

552 

20,3095 

0929 

REF 

19 

LAST 

552 

20,3099 

0925 

REF 

93 

LAST 

552 

2u ,309  7 

9 OOOO  0 FJLLC5P  COM 

59  062  1 TS  ITEMP2 

3 3UO  1 CA  CbPATl 

SS'Pll  1 TS  TuR 

0 3O5O  1 TC  JETTSUB 

30  062  0 CAE  ITEMP2 

55'fell  1 IS  TUR 

1 5T51  0 TCF  RESUME 


0926 

0927  REF 

0928  REF 

0929 

0930  REF 

0931  REF 

0932  REF 

0933  REf 
0939 

0935  REF 

0936  REF 

0937 

0938  REF 

0939  REF 


5 LAST  527 

116  LAST  551 

2 LAST  539 

2 LAST  992 

3 LAST  958 
15  LAST  552 

9 LAST  528 

117  LAST  552 

2 LAST  590 
2 LAST  992 


20 

20 

20 

2u 

20 

20 

20 

20 

20 

20 

20 

20 

20 

20 


3050 

3051 

3052 

3053 
305A 
3055 

3058 

3057 

3060 

3061 

3062 

3063 
306H 
3065 


0 OOO6  1 
7 1906  1 
30  001  0 
0 OOO6  1 
7 1913  0 
55' 909  0 
27'921  1 
31 '911  0 
0 0006  1 
7 1907  0 
30  001  0 
0 0006  1 
7 1919  1 
55'905  1 


JETTSUB 


EXTEND 

MP  NO.QJETS 

CAE  L 

EXTEND 

'IP  IJACCU 

TS  JETRATEQ 

ADS  SUMRATEQ 

CAE  TqR 

EXTEND 

MP  NO.RJETS 

CAE  L 

EXTEND 

'IP  IJACCR 

TS  JETRATER 


0990 

ref 

2 

LAST 

958 

099 1 

REF 

5 

Las  t 

992 

0992 

0993 

REF 

16 

LAST 

552 

0999 

REF 

3 

Last 

968 

0995 

0996 

REF 

35 

LAST 

536 

0997 

REF 

85 

LAST 

509 

0998 

REF 

3 

LAST 

552 

09‘t9 

0950 

ref 

86 

last- 

552 

0951 

REF- 

9 

last 

552 

0952 

REF 

3 

LAST 

552 

O953 

0959 

REf 

87 

last 

552 

0955 

REF 

9 

LAST 

552 

0956 

REF 

1 98 

LAST 

597 

0957 

0958 

0959 

20.3069  2?'922  1 ADS 

20,306^  311935  0 CAE 

20.3070  0 0006  1 EXTEND 

20.3071  7 1911  1 MP 

20.3072  6 1937  1 AD 

20.3073  0 0006  1 EXTEND 

20,307A  7 7F52  1 MP 

20,3075  22  061  0 LXCH 

20,3079  31'909  1 CAE 

20,3077  0 0006  1 EXTEND 

20.3100  7 0061  1 MP 

20.3101  55'909  0 TS 

20.3102  31'905  0 CAE 

20.3103  0 OOOt  1 EXTEND 

20.3109  7 0061  1 viP 

20.3105  6516O5  1 TS 

20.3106  0 0002  0 TC 

20.3107  29366  1 16/25KF  DEC 

20.3110  03l96  1 CSPATl  DEC 

20.3111  00290  1 CSPINKF  DEC 


sumrater 

WFORqR 

TUR 

(1-K) /8 

BIT9 

ITEMPl 

JETRATEQ 

I T EmPI 

JETRATEQ 

JETRATER 

1 I EmpI 

JETRATER 

Q 

0,69000 

0,10000 

0,00977 


48895AA 


L 

POA6O 

R04b2 

ROAfiA 

R0A86 

R0A67 

A0A68 

A0469 

RO^’^0 

R0A71 

R0A72 

R0A73 


0A7A 

0A75 

0A76 

0477 

0478 

0479 

0480 

0481 

0482 

0483 

0484 


YJL  SYSieM  luR  AGC:  new  program  S^^lPATIN  by  hYLtS  DeC  lo,,  1966  (MAIN)  PAGE  553 

<ALMaN  ULTtk  For  LM  DaP  USER'S  OWN  PaGF  NO.  13  E6 

SJDKOJTINL:  DiSPDkIV  MUD.  NO.  0 DATE:  NOVEMBER  14*  1966 

AJTHOR:  JONATHAN  D.  ADDeLSTON  (ADAMS  ASSOCIATES) 

THIS  SUBROUTINE  SETS  THE  ICDj  DRIYe  BITS  eVeRY  OTHER  TIME  IT  IS  CALLED,  IT  ALWAYS  CHANGES  ThE  VALUE  OF 
"DISPLACT"  to  indicate  the  PaSSINU  of  100  MS,  SINCE  THIS  FLAG  IS  TESTED  BY  "eIGHtBAL"  In  THe  P-AXIS  TSRjPT. 

THE'  ICDL  IS  driven  ONLY  30  '''S  AFTER  "eIGHtBAL"  ENABLED  IT. 

CALLING  SEqjENCeS  (FROM  "oUM^ltFlL"  AND  "FILTER"): 

L IC  DlSPDRIV  (MUST  BE  FROM  SaMe  BANK) 

L +1  (RETURN) 

SUBROUTINES  CALLED:  NONE.  NURMAL  EX I T : BY  TC  0 TO  L +1  . 

AlARM/ABORT  MODES;  NONE.  INPUT;  PRESENT  VALUE  IN  DISPLACT  * 

output:  OPPOSITE  VALUE  OF  "DISPLAGt"  AND  ICDU  BItS  (WHEN  NECESSARY), 

debris:  a*o. 


REF  30  Last  551 
REF  2 LAST  464 


REF  1 


REF  143  LAST  547 
REF  3 LAST  553 

rEi  199  last  552 


E6 

21  '2550 

eban<= 

3AN< 

DlSPDRIV  CCS 

dt 

21 

f\TCr\i  A^T" 

21  * 255D 

1 l ■ LH 

i 

D 1 bPLALT 

21*2551 

1 2P56 

1 

TCF 

+ 5 

21,2552 

3 2P6O 

0 

CAF 

OCT7OOOO 

21,2553 

0 0006 

1 

EXTEND 

21 ,255H 

05  014 

1 

XOR 

14 

21,255s 

3 7(55 

1 

CAF 

ONE 

21 ,2556 

55'P14 

1 

TS 

DISPLACT 

21,2557 

0 0002 

0 

ic 

0 

TEST  PHASE  OF  fIGHtBAL  , 
(NO  driving  on  this  PASS.) 

SET  ICDU  DRlvF  BITS. 


RESET  FLAG. 


return 


Reset  flag. 


21,256D  70D00  0 OCT7OOOO  OCTAL  70000  ICDU  DRIVE  BITS  OF  rHANNEL  I4. 


488954A  yJL  SySlEM  hOR  AqC;  NLi«  PR0GR'\'^  SHePATIN  bY  EYLt 


Dec  U,  1966  (MAIN)  PAgE  55^ 


L 

00001 

00002 

Roool 

Roods 

Roooa 

Rooo6 

Roooe 

Rooio 

Rooii 

R0013 

0015 

0016 

0017 

0018 

0019 

0020 
0021 
0022 

0023 

002A 

0025 

0026 

0027 

0028 
0029 


0030 

0031 

0032 

0033 
003A 
0035 

R0036 

0037 

0038 

0039 
OOAO 
OOAl 
00A2 

R00A3 

Rooaa 


trim  oimbal  Control  system 


USER'S  OWN  PaG(.  NO.  1 


21»2561  3AnK  21 

REF  31  LAST  553  E6  EBANK=  DT 

control  Reaches  this  poini  unoeR  lItHeR  of  tHe  following  two  conditions  once  the  descfNt  engine  and  tHe  digital 
autopilot  are  both  on: 

A)  the  trim  gimbal  Control  law  was  on  during  tHe  previous  q,r_axis  times  interrupt  (or  tHe  daPidleR 
initialization  was  Set  for  tRIM  GIMBaL  control  and  this  is  tHe  first  PASS),  or 

B)  the  o,r-axis  rcs  jet  lontrol  law  Attitude  steering  mode  Reduced  the  attitude  eMror  to  Less  than 
IOeGReE  on  each  axis  on  Its  last  IIME5  interrupt. 

the  following  tsrupt  entry  Begins  the  trim  gimbal  control  law.  since  it  is  assumed  that  tHe  lem  will  remain 
jNdLR  TkIm  sImBAl  control,  a cAlMAN  filter  RuPT  is  set  up  to  begin  30  MS  from  the  trim  gImBal  rupt, 

REF  2 last  551  21,2561  3 237A  0 GTS  CAF  MS3OF  RESET  TIMER  IMMfDIAtELY!  DT  5 30  MS 

REF  11  LAST  551  21,2562  5A  D30  0 IS  TIMES 

REF  17  last  551  21,2563  22  D16  0 LXCH  BANKRUPT  INTERRUPT  LEAD  iN  (CONTINUED) 

21,256H  0 ODO6  1 EXTEND 

REF  15  LAST  551  21,256S  22  D12  1 3XCH  QRUPT 


21,2566  0 ODO6  1 
REF  3 last  551  21,2562  3 2‘'03  1 
REF  19  LAST  551  21,2570  53*001  0 


EXTEND 

OCA  POSTPFIL 
OXCH  T5ADR 


REF  1 21*2571  1 2663  1 TCF 

21,2572  0 0OO6  1 GIMbAL  EXTEND 
REF  A LAST  5A7  21,2573  3 1553  0 OCA 

REF  2 LAST  5A5  21,257^  0 2303  0 TC 

21,2575  0 0006  1 EXTEND 

REF  7 last  50A  21,2576  20  (67  0 M5U 

REF  2 LAST  505  21,2572  55*^67  1 TS 


GTSTEST  SKIP  OVER  XT ORMS  UNTIL  REORGANIZATION 

GET  D.P.  FILTFRfD  CdUY  VALUE  (ONES  COMP) 
CDUYFIL  scaled  at  2PI  RaDIANS 

ONETOTWO  FORM  S.P.  VALUE  IN  TWOS  COMPLEMENT  AT  PI 

CuUYD  form  Y-AXIS  ERROR  IN  ONES  COMPLEMENT 

QDIFF  (SAVE  IN  U-AXIS  ERROR  LOC : EFFICIENCY) 


REF 

2 

last 

59  7 

21*2600 

21,2601 

0 0006 
3 1655 

1 

O 

extend 

oca 

REF 

3 

Las  I 

559 

21, 2602 

0 2303 

0 

TC 

21,2603 

0 0006 

1 

extend 

REF 

5 

LAST 

5O9 

21,2609 

20  (70 

0 

MSU 

REF 

1 

21,2606 

55*A70 

1 

TS 

GET  D.P.  FILTFRFD  CnUZ  VALUE  (0;>jE5  COMP) 
CdUzFIL  SCALED  AT  2PI  RaDIANS 

ONETOTWO  FORM  S.P,  VALUE  IN  TWOS  COMPLEMENT  AT  PI 

CDUZD  FORM  Z-AXIS  ERRoR  IN  ONES  COMPLEMENT 

RDIFF  (SAVE  IN  R-AXIS  ERROR  LOC:  EFFICIENCY) 


TrA|\)SFOkM  Y*Z  CDU  ErrOr6  to  THE  U’R-AXES. 


REF  3 LAST  559 
REF  1 

REF  9 LAST  559 
REF  1 

REf  2 last  559 


21.2606  0 OOO6  1 

21.2607  3 1^70  0 

21,261°  0 3A2O  1 

2i,2oll  53*970  1 

21*2612  0 3930  0 

21,2613  57*^70  0 


extend  get  both  y and  7 cDu  errors  at  pi  rad 

OCA  QDIFF 

TC  OTRANSF  FORM  U-ERROR  IN  A (aCALED  AT  PI  RAD) 

DXCH  QDIFF  STORE  Q-ERROR,  oET  BOTH  Y,Z  CDU  ERRORS 

1C  RTRANSF  form  R-ERROR  IN  A (SCALED  AT  PI  RAD) 

XCh  RulFF  store  R-ERROR 


transform  The  filtered  y,7  Rates  io  the  q,r-axes. 

(these  may  be  Needed  for  the  rate  derivation  for  the  jets  if  they  must  be  used.) 
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L T^IM  oI'.BAL  control  GYStEM 


USER'S  OrtN  PAGE  NO.  Z 


E6 


0096 

REF 

3 

LAST 

597 

21 

,26lA 

0097 

REF 

118 

LAST 

552 

21 

*2615 

0098 

ref 

5 

LASl 

597 

21 

,2616 
'Tv  1 7 

0099 

REF 

2 

LAS  1 

559 

2 1 

t 2 6 1 ' 

0050 

REF 

12 

LAST 

528 

21 

,2620 

31'S60  0 CAE  DCDUZFIL 

59  DOl  1 TS  L 

31*556  0 CAE  DcOUYFlL 

0 3AZO  1 TC  QTRANSF 

55'A17  0 TS  OMEGAU 


GET  FILTERED  Y,z  RATES 

scaled  at  PI/^  t. ADIaNS/SECOND 
FOR  Q-AXIS  RATE 

STORED  SCALED  At  PI/9  RAD  I ANS/ Se COND 


0051 

R^F 

9 

LASl 

555 

21  ,2621 

0052 

REF 

119 

Last 

555 

21,262^ 

0053 

REF 

6 

Last 

555 

21,2623 

0059 

REF 

2 

LaS  I 

559 

21,2  629 

0055 

REF 

13 

LAST 

5 1 6 

21  ,2b25 

31*560  0 CAE  DCDUZFIL 

59  001  1 TS  L 

31*556  0 CAE  DCDUYFIL 

0 3A3O  0 TC  RtRANSF 

55"*21  0 TS  OMEGAR 


GET  Filtered  y»7  rates 
SCALED  at  PI/9  t AD  I ANS/SECOND 

FOR  R-AXIS  RATE 

STORED  scaled  At  PI/9  RAD I ANS/ St COND 


R0056  TrA(vjSFOrM  ThE  FiLTErED  Y»7  ^CCElEKAT  lO(vjS  TO  THE  Q*R-AxES» 

R0057  (THlsl  may  PE  needed  to  calcj.ate  trim  gimbal  off-times  if  Attitude  eRRor  has  gonl  beyond  trim  gimbal  cqntRol.) 


0059 

REF 

3 

LaSi 

597 

21,2626 

0060 

REF 

120 

LAST 

555 

21,2627 

0061 

REf 

5 

LAST 

597 

21,2630 

0062 

REF 

3 

LAST 

555 

21, 263 1 

31*569  1 CAE  DzCDUZFL 

59  001  1 TS  L 

31*562  1 cAE  D2CDUYFL 

0 3A2O  1 TC  OTRANSF 


get  filtered  y,7  aCleleRai ions 
SCALED  AT  PI/8  R AD  I ANS/SECOND ( 2 ) 

FORM  0-AXIS  ACCf deration 


0063  REF  3 last  967  21«2e32  55'A20  1 


TS  ALPHAQ  STORE  AT  PI/8  Ra D I ANS/ SECOND ( 2 ) 


0069  REF  9 LAST  555  21,2633 

0065  REF  121  LAST  555  21,263^ 

0066  REF  6 LAST  555  21,2635 

0067  REF  3 LAST  555  21,2636 

0068  REF  2 LAST  969  21,2637 

Roo69  extrapolate  theta  and  OMegA  0 


31*569  1 CAE  D2CDUzFL 

59  OOl  1 TS  L 

31 *562  1 CAE  D2CDUYFL 

0 3930  0 TC  RTRANSF 

55*‘*22  0 Ts  AlPhAR 

er  I He  20  MS  Delay  3etween  the  kalman 


GET  FILTERED  Y,7  ACCELERATIONS 
scaled  at  PI/8  qADlANS/SEC0ND(2) 

FORM  R-AXIS  acceleration 
store  at  Pl/8  R9DlANS/StC0ND(2) 

filter  and  the  trim  GlMbAL  CONTROL. 


0071 

REf 

13 

LAST 

555 

21,2690 

31*A17 

1 

0072 

21,2691 

0 0006 

1 

0073 

REF 

1 

21, 269^ 

7 2661 

0 

00  79 

REF 

5 

LASl 

559 

2 1 , 2693 

27*A67 

1 

CAE  OMEGAO 

extend 

MP  DTW 

ADS  QDIFF 


OO75 

REF- 

19 

LAST 

555 

2 1 ,2699 

31*921 

1 

0076 

21,2695 

0 OOO6 

1 

0077 

REF 

2 

LASl 

555 

21,2696 

7 2661 

0 

0078 

REF 

3 

LASl 

559 

21,2697 

27*A70 

1 

CAE  OMEGAR 

EXTEND 
MP  DTW 

ADS  RDIFF 


0079  REF  9 LAST  555  21,2650  31*^20  0 CAE  ALPHAQ 

0080  21,2651  0 0006  1 EXTEND 

0081  REp  1 21,2652  7 2662  0 MP  DTA 

0082  REF  19  LAST  555  2 1 ,2653  27  '‘*17  0 ADS  OMEGAU 


0083  rEF  3 last  555  21,265^  31*^22  1 CAE  AlPHAr 

0089  21,2655  0 OOO6  1 EXTEND 

0085  REF  2 LASl  555  21,2656  7 2662  0 MP  DTA 

0086  REF  15  LAS)  555  21  ,2657  27*'*21  0 ADS  OMEGAR 

0087  REF  99  LASl  552  21,2660  1 5(51  0 TCF  RESUME 
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L 


0088 

0089 

><0090 

R0092 

0093 

009A 

0095 

0096 

0097 

0098 

0099 

0100 
0101 
0102 
0103 
OlOA 

0105 

0106 

0107 

0108 

0109 

0110 
0111 
0112 

0113 

OllA 

0115 

0116 

0117 

0118 

0119 

0120 
0121 

R0126 

R0128 

0129 

0130 


0131 

0132 

0133 

0135 

0136 

0137 

0138 


T^IM  GIMBaL  CoNlROL  SVGiei'^ 


user's  own  PaGf  no.  3 


E6 


21.2661  00122  0 DTw  OEC  .005 

21.2662  00051  0 DTA  OEC  .0025 


T£Sl  lO  See  II  TRIM  GIMBAL  CdMjRoO  LAW  HAS  KePt  BOTH  ATTllLIDp  eRRORS  BeLOW  tHe  I Ue^RfL  BOUNDARY  WITH  tHe  ReGION 
OF  RCS  control  LAW  DOMINANCE  OR  1=’  STILI  REDUCING  THe  eRRoR. 


REF  3 LASl  a56 
REF  50  LAST  538 
REF  266  LA5I  5A7 
REF  1 

REF  51  LASl  536 
REF  13  LASl  596 
REF  19  LASl  556 
REF  6 LAST  555 
REF  1 

REF  2 LASl  556 


REF  2 LAST  556 
REF  15  LASl  556 

REF  269  LASl  556 
REF  15  LASl  555 
REF  1 


2 1 .2663 

2 1 .2669 
21  . 2665 
2 1 .2666 
21  .266  f 

21.2670 

21.2671 
21 ,2672: 
2 1.2673 
21.2679 

21.2675 

2 1.2676 
21.267Y 

21.2700 

21.2701 

21.2702 

2 1 .2703 
21,2/09 
2 1*2/05 
21,2/06 


3 ? F59  0 
7 0077  0 
10  000  0 
1 2^20  1 
3 7F55  1 
59  066  0 
50  066  1 
11'967  1 
6 Z<ib  0 
1 2676  0 

6 2 a6  0 
0 0006  1 
6 2 FOl  0 
1 2F20  1 
3 OO66  1 
6 OOOO  1 
50  OOO  1 
11*917  0 
6 2^17  1 
1 2 ao  1 


gtstest 


LOOPTEST 


CAF 

MAS< 

CCS 

TCF 

CAF 

TS 

INDEX 

CCS 

AD 

ICF 

AD 

EXTEND 

3ZMF 

TCF 

CA 

double 

INDEX 

CCS 

AD 

TCP 


TRYGIMBL 

DAPBOOLS 

A 

RCSCNTRL 
BlTl 
QRCNTR 
CIRCNTR 
ODIFF 
-TGBND+1 
+ 2 

-IGBND+1 


+ 2 

RCSCNTRL 

QRCNTR 

A 

OMEGAQ 

-RATBD+1 

+ 2 


Verify  that  gts  is  still  operative. 
GTS  not  OPERATIwE 

scaled  at  pi. 

-2  deg  scaled  At  pi.  + 1 BIT. 


IS  ERROR  mag  less, equal  2 DEG. 
NO.  GO  TO  JFTS. 

YES.  try  ratf  magnitude. 


SCALED  AT  PI/A. 

-.65  DEG/SEC  SCALED  AT  PI/9  + 1 BIT 


REF 

2 

LASl 

556 

21,2/07 

REF 

3 

LASl 

556 

21  ,271° 
21,2/11 
21,2/12 

REF 

REF 

REF 

1 6 

1 

1 

LAST 

556 

21,2/13 

21,2/19 

21,2715 

Ci 

ATTiT^jOb  lR'OR  is  Beyond  tri 
times  IL  TURN  off  THE  GIMRAL 


6 2/17 

1 

AD 

0 OOO6 
6 2/13 

1 2/20 

1 

0 

1 

EXTEND 

3ZMF 

TCF 

10  066 

0 

CCS 

1 2670 

0 

TCF 

1 2/65 

0 

TCF 

776I2 

1 

-TGBND+1  OCT 

7/923 

1 

-RATBD+1  OCT 

GIMPaL  control  law  range. 

ORlVtS. 


-RATBD+1 


+2  IS  RATE  MAG  LESS, EQUAL  .65  DEG/SEC. 

RCSCNTRL  NO.  GO  TO  JElS. 

QRCNTR  YES.  THIS  AXIS  IS  FINE.  ARE  BOiH  DONE. 

LOOPTEST  TRY  THE  Q AXIS  NOW. 

GISRAXIS  USE  trim  GIMBAL  CONTROL. 

77512  -2  deg  scaled  At  PI , + 1 BIT. 

7/923  -.65  DEG/SEC  SCaLED  AT  Pl/9  + 1 BIT 

SET  UP  FOR  RCS  CONTROL  LAW  (O.R-AXlS)  AND  CALCULATE 


REF  1 21,2/2°  3 2193  0 RCSCNTRL  CAF  PoSTQRFL  CHANGE  LOCATION  OF  NEXT  T5RUPT  FROM 

REF  20  LASl  559  21,2721  55'000  1 TS  T5ADR  FILTER  TO  FILDU/.MY 


21,2/22  0 0006  1 extend  SET  UP  POsT  P-Ayis  T5RUPT  TO  GO  TO 

REF  1 21,2723  3 2/95  0 OCA  qRjPFILT  DUMMYFIL  INSTFAn  OF  FILTER.  USE  2CADR 

REF  9 LAST  597  21,2/29  53*672  1 OXCH  PFILTADR  BECAUSE  DUMMYFIl  NOw  IN  BANK  16. 


21*2725  0 0OO6  1 
REF  20  lAsT  592  21,2726  3 0O39  0 
REF  9 LAST  991  21,2/2/  53*931  1 


EXTEND  prepare  FOR  SFUiiENCfD  RESUMPTION  OF 

OCA  CdUY  Q.R-AXIS  RCS  COnTROi  RAIL  DERIVATION 

OXCH  OLDYFORO  BY  PROVIDING  oLn  CDU  READINGS 


21*273°  0 0006  1 


EXTEND 


MOVE  FILTERED  AND  TRANSFORMED  ArTlTUDE 


^8895AA  yJL  SYSIEM  AgC!  I\|Ew  PrOGrAv)  sHErATin  BY  EYLEs 
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L 

trim 

GIMBAL 

CuNT 

0139 

ref 

7 

LAST 

556 

0140 

REF 

4 

LAST 

504 

0141 

REF 

5 

LAST 

504 

0142 

rEf 

1 44 

last 

553 

0143 

REF 

79 

LAST 

538 

01431 

REF 

32 

LASl 

554 

0144 

C0144 

REF 

1 

0145 

0146 

REF 

1 

0147 

0149 

REF 

2 

LAST 

491 

01495 

REF 

6 

LAST 

492 

0150 

C0150 

REF 

2 

LASl 

467 

01501 

REF 

33 

LAST 

557 

0151 

C0151 

REF 

6 

LAST 

505 

21 

21 

21 

21 

21 

21 

21 

21 

21 

21 

21 

21 

21 

21 

21 


2731 

2732 

2733 

2 ^3A 
2 733 

2736 

2737 
2 7''tO 
27A1 
27A2 

2743 

2 744 
2 745 

2746 

2747 


0152 

0153 

REF 

REF 

REF 

REF 

183 

1 

80 

34 

last 

551 

0154 
01541 

0155 

LAST 

LASl 

557 

557 

C0155 

REF 

1 

0156 

REF 

75 

LASl 

543 

0157 

REF 

2 

LAST 

557 

0158 

REF 

81 

LAST 

557 

21 ,2  75O 

21.2751 

21.2752 

21.2753 

21.2754 

21.2755 

21.2756 

21.2757 


01581  REF  35  LAST  557 

0159  21,2760 

C0159  REF  1 21,2761 

0160  REF  1 21,2762 


0161  REF  60  LAST  538  21,2763 


3 l‘+70  0 OCA  ODIFF 

57'‘*70  0 xCH  RERROR 

23'‘+67  0 LXCH  QeRROR 


3 7^55  1 CAf  OmE 

0 5'01  1 TC  wlAITLlST 

E6  EBANK=  DT 

02(50  1 2CADR  CHEKDRIV 


42^06  1 

0 OOO6  1 EXTEND 

3 2^47  1 OCA  TGENTRY 

52  >706  0 OTCB 


33OII  1 PDSTQRFL  SENADR  FlLDUMMY 
E6  EBANK=  AUSOTERM 

03(^31  0 ORJPFILT  2CADR  DUMMYFIL 
SA'-'OE  0 

E6  EBA(MK=  DT 

02 '55  1 ToENTRY  2CADR  STILLRCS 
364106  1 


3 7'61 

0 

CHEKDRIV  CAF 

ZERO 

0 3441 

0 

TC 

TGOFFCAL 

0 5 '0 1 

1 

T C 

WAITLIST 

E6 

ebank= 

DT 

03367 

0 

2CADR 

□FFGIMQ 

42^06 

1 

3 7 '54 

0 

CAF 

TWO 

0 3441 

0 

rc 

TGOFFCAL 

0 5 '0 1 

1 

TC 

WAITLIST 

E6 

EBANK= 

DT 

72 

1 

2CADR 

OFFGIMR 

42^06 

1 

0 3377 

1 

TC 

WRCHN12 

1 5'45 

0 

TCF 

TASKOVER 

USER'S  OWN  PAGf  no.  4 E6 

Errors  inIO  erAsAbLf  for  u,r-axis  rCs 

CONTROL:  NOTE  ThAT  THE  AxES  SEEM  TO  BE 
interchanged  BUt  are  not  CONFUSfD 


DO  TGOFF  calculation  in  WAITLIS)  task 


GO  TO  Q,R-AXES  rONTROL  IMMEDIATELY 


NECESSARY  Because  dummyfil  in  Bank  i6. 


calculate  Q-AXIs  GIMBAL  drive  shutdown  I 


CALCULATE  R-AXIf  GIMBAL  DRIVE  SHUTDOWN  T 


SET  UP  NEW  DRTVfS  AS  OF  NOW 
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L 


P0162 

R0163 

R016A 


R0166 

0167 

0168 

0169 

0170 


0171 

0172 


0173 

017A 

0175 

0176 

0177 

0178 

0179 

0180 

0181 

0182 

0183 

018A 

0185 

0186 

0187 

0188 

0189 

0190 

0191 

0192 

0193 

019a 

0195 

0196 

0197 

0198 

0199 

01991 

01992 


trim  oIimBaL  CuNTROL  SVSteM  USER'S  OrtN  PaGf  NO.  5 E6 

THE  DRIVE  setting  AlSOkiThM 

DEL  = S&N(0ME&A.K  + SON  ( ALPH  A ) Al-RHA  ( 2 ) /2 ) ONLY  +1/-1 


NcGUSjM  = error. K(2)  + Del ( ( 0 HE oA . K . DEL  + ALPHA ( 2 ) /2 ) ( 3/2 ) + (OMeGA.K.DEL  + ALPHA  (2 ) /3 ) ALPHA 


DRIVE  = -SG' (NEgUSUM) 


REF 

REF 

REF 


lb  LAST  557 
17  last  556 
1 


21 *276A 

76  = 0A 

1 

-.09266  dec 

-.09266 

2 1 *2763 

3 7'SA 

0 

GTSRAXIS  CAF 

TWO 

21*2766 

59  066 

0 

TS 

QRCNTR 

21  * 2 76? 

1 2 nz 

0 

T CF 

G 1 SQAX I S 

REF  16a  LASi  557  21*2770 

REf  18  last  558  21,2771 


3 1^61  0 GoQTRIMG  CAF 
bA  V)66  0 TS 


Zero 

qrcntr 


21*2772 

REF 

REF 

REF 

1 9 

5 

1 

Last 

LAST 

558 

9 66 

21  * 2 7 7 3 
21 *277^ 

21 *2  773 

REF 

20 

LAST 

558 

21*2776 

21*2777 

REF 

REF 

1 6 

I 

LAST 

556 

2 1 * 3000 
21 *3001 

0 OOO6  1 GTSQAXIS  EXTEND 

b 0066  1 INDEX  qrcntr 

3 1526  1 DCA  KU 

b2  062  1 DXCH  XCENTRAL 

0 OOO6  1 EXTEND 

b OO66  1 index  qrcntr 

3 l-tZO  0 DCA  OMEGAQ 

52  06A  I DXCH  WCENTRAL 


SET  indexer  for  R-AXIS  CALCULATIONS 


SET  indexer  FOR  U-AxIS  CALCULATIONS 


PICK  UP  K AND  K(2)  TOR  THIS  AXIS 


PICK  UP  omega  and  Alpha  for  thIs  axis 


REF  21  LAST  558 


3002 

3003 


30  066 
0 0006 


;ae 
extend 


QRCNTR 


21  *3009 

1 3OO7 

1 

3ZF 

+ 3 

REF 

9 

LAST 

55b 

21 *3003 

31 '970 

0 

CAE 

RdIFF 

21*3006 

1 3OIO 

1 

TCP 

+ 2 

REf 

8 

LAST 

557 

21*3007 

31*967 

0 

CAE 

qoiff 

21*3010 

0 OOO6 

1 

EXTEND 

RESCALE 

REF 

37 

LAST 

599 

21 ,3011 

7 7^97 

0 

V|P 

B1T7 

2 (6) 

REF 

1 

21 ,3012 

22  O71 

1 

LXCFI 

ETHFTA 

jG  by 


REF  2 LAST  b58 
REf  1 


21*3013  30  061  0 

21 *301A  6 2 T6A  0 


CAE  KCENTRAL  test  ON  MAGNITUDE  OF  ACCDOT 

Ad  -.0A266 


REF 


30  13 
3013 


0 0O06  1 
6 3O32  0 


EXTEND 

3ZMF  ACCDOrSM  BRANCH  IF  ACCDOT  IS  SMALL 


REF 

3 r r* 

91 

1 

19 

1 

LAST 

597 

21  *301’^ 
21*3020 
21*3021 
21*3022 

3 ? ^90 
59  O72 

3 7 i’92 
59  O73 

0 

ACCDOT  LG 

CAF 

T C 

BITU 

KC.F 

REF 

REF 

LAST 

970 

0 

1 

1 

WSFTEST 

1 b 

CAF 

TS 

Spl 

BIT12 

SF2 

REF 

REF 

2 

1 

LAST 

558 

21,3023 
21 *302A 

13  063 

6 3O55 

1 3O27 
6 3O55 

0 

1 

CCS 

AD 

WCENTRAL 

-.09938 

REF 

2 

last 

558 

21 *3023 
21,3026 

0 

1 

T CF 

AD 

+ 2 

-.09938 

ACCDOT  IS  COMPAIRITIOELY  LARGE 
SET  UP  Scale  FArTORS 


TEST  ON  MAGNITUrE  Of  OMEGA 
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L 


0200 

0201 


0202 

0203 

020A 

0205 

0206 

0207 

0208 

0209 

0210 
0211 
0212 

0213 

0214 


0215 

0216 
02161 
02162 

0217 

0218 
0219 


0220 

0221 

0222 

0223 

0224 

0225 

0226 

0227 

0228 

0229 

0230 

0231 

0232 

0233 

0234 

0235 

0236 

0237 

0238 


t^im  31.  BAL  Control  system 


REF 


REF 


REP  3 last  558 


REF 

REF 

REF 


REF 

REF 

REF 

REF 

REF 

REF 

REF- 

REF 

REF 

REF 


23  last  551 

4 LAST  559 

5 LAST  559 


1 

42  LAST  544 
2 last  558 
36  LAST  552 
1 

1 

1 

2 LAST  559 
1 

2 LAST  559 


REF 

3 

LAST 

558 

REF 

29 

LAST 

559 

REF 

4 

LAS  1 

5 59 

REF 

2 

LAST 

559 

REF 

37 

LAST 

559 

REF 

3 

LAST 

559 

REF 

1 

REF 

3 

last 

559 

D ? C 

K Cr 

LAST 

492 

REF 

4 

LAST 

559 

REF 

2 

LAST 

558 

REF- 

45 

LAST 

537 

REF 

3 

LAST 

559 

21 

21 

21 

21 

21 

21 

21 

21 

21 

21 

21 

21 

21 

21 

21 

21 

21 

21 

21 

21 

21 

21 

21 

21 

21 

21 

21 

21 

21 
21 
21 
2 1 


2 1 

2 1 
2 1 
2 1 
21 
21 
21 
21 


3027 

3030 


0 0006  1 
6 3O46  0 


303i  1 307O  1 


3032 

3033 
303A 
3035 
303P 
303  f 

3040 

3041 

3042 

3043 
304A 
3045 


304  ! 

3050 

3051 

3052 

3053 
305A 

3055 

3055 

3057 

3060 

3C6l 

3062 

3063 
306A 
3065 
306^ 

306? 

3070 

3071 

3072 

3073 
307A 

3075 

3076 

3077 


33  Ofei  0 
0 OOO6  1 
7 7?51  1 
22  061  0 
33  061  0 
3 OOO6  1 
7 QOOO  0 
54  062  1 
3 7?44  1 
54  O72  0 


3O56 


0006 

3O57 


3 7?52 

1 3O22 


3045  13  064  1 


1 3O7O 


76‘+50 


0 0006 
7 7?51 
22  063 


33  064  0 

0 OOO6  1 
7 7752  1 
22  064  0 

1 3FOO  1 
33  O72  1 


0 OOO6  1 
7 V 741  0 
54  O72  0 
33  O73  0 


3 0006  1 
7 7750  0 
54  O73  1 


EXTEND 

3ZMF  ASFTEST 

TCF  WLARGE 

ACCDOTSM  CAE  XCENTRAL 

EXTEND 
MP  BIT5 

LXCH  KCENTRAL 

CAE  KCENTKAL 

EXTEND 
SQUARE 

TS  K2CNTRAL 

CAF 


TS 

CAF 

TCF 


BITIO 

SFl 

BIT4 

WSFTFST 


1 

ASFTEST 

CCS 

ACENTRAL 

1 

AD 

-.08882 

1 

TCF 

+ 2 

1 

AD 

-.08882 

1 

EXTEND 

0 

3ZMF 

WARFSCAL 

1 

TCF 

WLARGE 

1 

-.04438 

DEC 

-.04438 

0 

-.08882 

DEC 

-.08882 

1 

WARESCAL 

cae 

WCENTRAL 

EXTEND 

MP 

LXCH 


B1T5 

WCENTRAL 


CAE  ACENTRAL 

Extend 

MP  B1T4 

LXCH  ACENTRAL 


WLARGE 


TCF 

CAE 


ALGORTHM 

SFl 


EXTEND 

MP  BIT13 
TS  SFl 

CAE  SF2 

EXTEND 
MP  B1T6 

TS  SF2 
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US[£R*S  own  PAGp  NO.  6 £5 

IF  SMALL,  GO  TO  ALPhA  TEST 

rescale  if  ACCDnT  IS  SMALL 
RESCALE  K BY  MUiTIPLYING  BY  2(4) 

SET  UP  VARIABLE  SCAl E FACTORS 

GO  TEST  ON  MAGNITUDE  OF  OMEGA 
TEST  ON  magnitude  OF  ALPHA 


IF  SMALL,  GO  TO  W,A  RESCALING 
IF  LARGE,  DO  SAFE  As  IF  W LARGE 


RESCALE  OMEGA  BY  MULTIPLYING  BY  2(4) 


rescale  ALPHA  Bv  MULTIPLYING  BY  2(3) 


rescale  variarLf  scale  Factors 

SFl  = SF1*2(-2) 


SF2  = SF2»2(-9) 


48895^A  YJL  SYS^E^i  FOK  AGC;  PROG9(\vi  sHePAtIN  SY  eYLeS 


L 


trim  GikBaL  CoNiROL  bYbTEM 


0239  RcF 
02A0 


LASl  b56 


21»3100  3D  0/1  1 AUGORTHM  CAe 
21.3101  0 0006  1 EXTEND 


02A1  REP  2 UAS]  559  21 

02A2  rEf  1 tl 

0293  21 

0299  REF  9 LA51  559  21 

0295  REF  2 LAST  560  21 

0296  21 

0297  REF  5 LAST  560  21 

0298  REF  3 last  560  21 


3102  7 0062  1 '^P 

3103  22  O70  0 lXCH 

3109  0 OOO6  1 EXTEND 

3105  7 OO73  1 

3106  52  O71  0 DXCH 

310Y  0 0U06  1 EXTEND 

3110  7 0O73  1 MP 

3111  2b  O71  0 ADS 


0299 

REF 

5 

LASl 

559 

0250 

0251 

REF 

6 

LAS  1 

559 

0252 

REP 

1 

0253 

0259 

REF 

5 

LAST 

559 

0255 

REF 

2 

LAST 

560 

0256 

0257 

REF 

6 

LAST 

560 

0258 

REF 

3 

LAST 

560 

0259 

REF 

9 

LAST 

559 

0260 

0261 

21.3112  30  063  1 CAE 

21.3113  0 0006  1 extend 

21.311A  7 0061  1 MP 

21.311i>  22  061  0 LXCH 

21.3110  0 0006  1 extend 

21 .31  1 Y 7 OO72  0 VIP 

21.3120  52  062  1 OXCH 

21.3121  0 0OO6  1 EXTEND 

21.3122  7 0072  0 MP 

21.3123  2b  062  1 ADS 

21.312A  30  069  0 CAE 

21.312^  0 OOO6  1 EXTEND 

21.3120  7 0000  0 SQUARE 


0262  REF  1 21 

0263  REF  5 LASl  560  21 

0269  21 

0265  ^1 

0266  21 

0267  REF  2 LASl  560  21 

0268  21 

0269  21 

0270  REF  3 LAS:  560  21 

0271  REF  1 21 

0272  21 

0273  REF  9 LASl  560  21 

0279  REF  2 Last  560  21 

0275  rEF  3 LAST  560  21 

0276  REF  1 21 

0277  21 

0278  REF  1 21 

0279  REF  A LAST  560  21 

0280  rEF  n LAsl  558  21 

0281  21 

0282  REF  165  LASl  558  21 

0283  REF  9 LASl  506  21 


312T 

52  D73 

1 

DXCH 

3130 

3D  069 

0 

CAE 

313I 

0 OOO6 

1 

EXTEND 

313Z 

6 3 T 3 6 

0 

3ZMF 

3133 

0 0006 

1 

EXTEND 

313A 

3 OO73 

0 

DCA 

3133 

1 sHo 

0 

T CF 

313G 

0 0006 

1 

EXTEND 

313T 

9 OO73 

1 

DCS 

319V) 

53*521 

1 

dxch 

319I 

0 0006 

1 

EXTEND 

319Z 

3193 

3 0062 
21*521 

0 

DCA 

1 

DAS 

319A 

11*520 

0 

CCS 

3195 

1 3 1 5 1 

0 

TCF 

3196 

1 3I5O 

1 

TCF 

3197 

1 3I53 

1 

TCF 

315O 

11'521 

1 

CCS 

31  5i 

3 P '59 

0 

PDSFNCTI 

caf 

3 1 5Z 

1 3I59 

0 

TCF 

3153 

315A 

3 7 '61 
b ! '63 

0 

1 

negfncti 

CAF 

AD 

ETHfTA 


K2CNTRAL 

K2ThFTA 

SF2 

K2THETA 


SF2 

IC2THEIA  +1 

wcentral 

kcentral 

OMEGA. K 
5F1 

OMEGA. K 
SFl 

OMEGA. K +1 
ACENTRAL 


A2CNTRAL 

ACENTRAL 

+ 9 

A2CNTRAL 
+ 3 

A2CNTRAL 

FUNCTION 

OMEGA. K 
FUNCTION 

function 

POSFNCTl 
+ 2 

negfncti 

function 

TwO 

+ 2 

zero 

NtGl 
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USER'S  OWN  PAGf  no.  7 
Get  rescaled  error  theta 

FORM  K(2)»THETA  IN  D.P. 

FORM  K(2)»THETAttSF2  IN  D.P. 


get  omega 

FORM  KaOMEGA  IN  D.P. 

FORM  OMEGA*K#SFi  IN  D.P. 


FORM  ALPHA (2)  IP  D.P. 


GET  SGN (ALPHA) 


SAVE  AS  SGN(AI  P) A)ALPHA(2) 

FORM  PUNCH 
DEL  = SGn(FUnCTi) 


E6 


1 


USE  LOW  order  word  SINCE  HIGH  IS  ZERO 
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dec  U,  ly66  (MAIN)  PAGE  86l 


L 


028A 

0285 

0286 

0287 

0288 

0289 

0290 


0291 

0292 

0293 

0294 

0295 

0296 

0297 

0298 

0299 

0300 

0301 

0302 

0303 

0304 

0305 

0306 

0307 

0308 

0309 

0310 

0311 

0312 

0313 

0314 

0315 

0316 

0317 

0318 

0319 

0320 

0321 

0322 

R0323 

0325 

0326 


trim  oIi-iBal  Control  sygtem  user's  own  pagf  no.  u 

REF  1 21,3155  54  065  0 TS  DEL 


REF 

REF 

2 

1 

LAST 

561 

21.3156 

21.3157 

10  065 

1 3164 

0 

0 

CCS 

TCF 

Del 

FUNCT2 

21 .3160 

21.3161 

25253 
0 0O06 

1 . 66667 

1 

OEC 

EXTEND 

.6666  7 

REF 

5 

LAST 

560 

21,3162 

4 0062 

1 

OCS 

OMEGA.K 

REF 

6 

LAST 

561 

21,3163 

52  062 

1 

OXCH 

OMEGA.K 

MAKE  OMEGAJtK  KEfiLLY  DLL*OMEGAwK 
(NOTHING  NEFD  Bf  DONE) 


CHANGE  SIGN  OF  oMeGa^K 


LASl 

21 

REf 

7 

561 

2 1 

REF 

5 

LASl 

560 

21 

21 

REF 

4 

LAST 

560 

2 1 

REF 

6 

LAST 

561 

21 

316^  0 0006  1 FJNCT2 

3165  3 0062  0 

3165  53'521  1 

3161’  0 0006  1 

3170  3 0073  0 

3171  21*521  1 


EXTEND 

OCA  OmEgA.K 

OXCH  FUNCTION 

EXTEND 

OCA  A2CNTRAL 

oas  function 


DEL»OMEGA»K 


DELltOMEGA*K  + S(-,N  (ALPHA ) ALPHA  ( 2 ) 


REF  5 LAST  561  2I 

21 

REF  1 21 

REF  6 LAST  561  21 

REF  122  LAST  555  21 

21 

REF  2 LASl  561  21 

REF  7 LASl  561  21 

REF  123  LAST  561  21 

21 

REF  8 LAST  561  21 


3172  30  072  1 F JNCT  3 

3173  0 0O06  1 

317A  7 3I6O  1 

3175  52  O73  1 

3176  5 6 00 1 0 

3177  0 0006  1 

3200  7 3I6O  1 

3201  2b  O73  1 

3202  54  OOl  1 

3203  1 3'!;05  1 

320A  6 0072  1 


CAE  A2CNTRAL 

Ex  TEND 

MP  .66667 

OXCH  A2CNTRAL 

XCH  L 

EXTEND 

MP  .66667 

ADS  A2CNTRAL  +1 

TS  L 

TCF  +2 

AD  A2CNTRAL 


CALCULATE  (2/3) aGN ( ALPHA ) ALPHA ( 2 ) 


REF  6 LAST  561  21,3205  52  062  1 

REF  9 last  561  21,3206  20  O73  1 


OXCH  OMEGA.K  DEL40MEGA)tK  + 

OAS  A2CNTRAL  (2/3)SGN(ALPHA)aLPHA(2)=G 


REF  10  LAST  561  21 


3207 


3O  072  1 CAE  A2CNTRAL  G^ALPHA  IN  D.P. 


REF  6 LASl  560 
REF  II  LASl  561 
REF  124  LAST  56l 

REF  7 LAST  561 
REF  12  LAST  561 
REF  125  LAST  561 

REF  13  LAST  56l 

REF  I4  last  561 
REF  4 last  560 


21.3210  0 0006  1 

21.3211  7 0064  1 

21.3212  52  O73  1 

21.3213  56  OOl  0 

21,321A  0 0006  1 

21.3215  7 0064  1 

21.3216  26  O73  1 

21 ,321  ( 54  OOl  1 

21.3220  1 3*^22  1 

21.3221  26  O72  0 

21.3222  52  O73  1 

21  ,3223  20  071  0 


extend 

MP  ACENTRAL 

OXCH  A2CNTRAL 

XCH  L 

EXTEND 

MP  ACENTRAL 

ADS  A2CNTRAL  +1 

TS  L 

TCF  +2 

ADS  A2CNTRAL 

OXCH  A2tNTRAL  FIRST  AND  THIRD  TERMS 

OAS  K2THFTA  SUMMED  IN  D.P. 


tHl  F'oLLowr.G  seGtion  Calculates  *707''DeLxfunction(3/2)  and  adds  it  to  tHe  otfieR  iwc  ter^s  of  negusum, 

ref  7 last  561  21,3224  11»520  O CCS  FUNCTION  TEST  FOR  HIgH  ORDeR  w^RD  NON-zERO 

REF  1 21,3225  1 3272  1 T CF  FMAGTEST  YES,  SeE  IF  RpSrALING  IS  NECeSSaRY 


E6 


^8895^A  YJL  SYSTLM  FOR  AGO;  NtW  PROGRAM  S'^EPATIN  BY  EYLP 
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L trim  ginbal  Com  I roe  sYbrEM 


0327 

0328 

0329  REE  9 last  b43 


21*3229  1 3430  1 
21,3221'  26501  1 
21,3230  0 5DAI  1 


,707GTS 


KF 

DEC 

TC 


+ 2 

.70711 

TbJOBCHK 


0330 

0331 

0332 

REF 

REp 

8 

3 

LAST 
LAs  I 

561 

519 

21  »323l 

21.3232 

21.3233 

0333 

0334 

R EF 

9 

LAST 

562 

21 .3234 

21 .3235 

0335 

REF 

23 

LAST 

546 

21,3236 

0336 

REF 

126 

LAST 

561 

21 ,323  ? 

0337 

REF 

186 

LAST 

560 

21,3240 

0338 

REF 

10 

LASI 

562 

21,3241 

0339 

REF 

1 

21,3242 

31*521 

0 

CAE 

FUNCTION  +1 

0 5435 

0 

Ic 

SPROOT 

0 0006 

1 

EXTEND 

7 1521 

1 

MP 

FUNCT ION  +1 

0 OUO6 

1 

EXTEND 

7 7(46 

1 

MP 

BITS 

5 b OQ  1 

0 

XCH 

L 

3 7(61 

0 

CAF 

ZERO 

53*521 

1 

DXCH 

FUNCTION 

1 3457 

0 

TCF 

DELTPST 

0340  REF  11  LAST  662 

0341 

0342  REF  38  LAST  558 

0343  REF  12  LASt  562 

0344  REF  187  LAST  562 

0345  REp  13  LASI  562 

0346 

0347  REF  39  LASI  562 

0348  REF  14  LAST  562 


21.3243 

21.3244 

21 .3245 

21 .3246 

21  ,324  ^ 

21.3250 

21.3251 
21 ,325^ 
21,3253 


31'520  1 SqRESCAL 
0 0006  1 
7 7/47  0 
23*520  1 
3 7(61  0 
57*521  0 
0 OOO6  1 
7 7(47  0 
21*521  1 


CAE  FUNCTION 

EXTEND 

MP  BIT7 

LXCH  FUNCTION 

CAF  ZERO 

xcH  function  +1 

EXTEND 

MP  BIT7 

DAS  function 


0349 

ref 

188 

LAST 

562 

21,3254 

0350 

REF 

1 

21,3255 

0351 

REF 

1 

21,3256 

0352 

REF 

35 

last 

523 

21  ,325  ( 

0353 

REF 

2 

LAST 

562 

21,3260 

0354 

RrF 

3 

LAST 

561 

21 ,3261 

0355 

REf 

1 

21,3262 

0356 

21,3263 

0357 

REF 

2 

LaSI 

562 

21 ,3264 

0358 

REF 

1 

21 ,3265 

3 7(61  0 CAP  zero 

55*517  1 TS  MULTPLAG 

1 3477  1 TCP  DOSPROOT 

CS  P05MAX 

TS  MULTPLAG 

CCS  DEL 

CAp  ,707GTS 

TCP  +2 

CS  .7O7GTS 

TCP  SPDPMULT 


4 7(35  0 OeLTEST 
55*517  1 
ID  Ofc5  0 

3 3427  O 
1 3465  1 

4 3427  1 
1 3301  1 


0359  REF 


36  LAST 


562 


21,3266  3 7(35  1 Reshift 


CAF  PUSMAX 


0360 
n 2 1 1 

REF 

3 

LAST 

562 

21 ,326T 

21,3270 

21,3271- 

55*517 

1 

0362 

K cr 

REp 

46 

2 

LaS  1 
last 

559 

562 

3 7(50 

1 3501 

1 

1 

TS  MULTFLAG 

CAF  BIT6 

TCP  SPDPMULT 


0363  REF  1 21,3274 

0364  21,3273 

0365  REF  1 21,3274 

0366  REP  37  last  562  21,3275 

0367  REP  4 last  562  21,3276 


) 5522 

1 

FviAGTEST  ad 

63/64+1 

>4  OQO 

0 

DVSK 

. 3443 

0 

TCF 

sqrescal 

1 7(35 

1 

CAF 

PuSMAX 

i5‘517 

1 

TS 

multflag 

0368  REF  15  last  562  21,327?  31*520  1 DDSPROOT  CAE  FUNCTION 


user*s  o»yn  pagf  no.  ^ E6 

NO,  USE  LOW  OR(DfR  WORD  ONLY 
(CCS  HOLE  USED  POR  DATA) 


USE  LUW  ORDER  WnRD  ONLY 
square  ROOT  SUBbOuTiNE  CALL 
3/2 

FUNCTION 

(NEEDS  TO  BE  SHIFTED  RIGHT  21  Pi  ACES) 


3/2 

SAVE  FUNCTION  IN  FUNCTION  LOCATION 


HIGH  ORDER  WORD  OF  FUNCTION  NEEDS  TO  BE 
rescaled  FOR  accuracy,  SO  MULTIPLY  D.P. 
VALUE  BY  2(6) 


SET  flag  to  go  to  RP SCALE,  A^D  gO  TO  DO 
Square  root  and  functioN(3/2) 

CALCULATION 

Set  flag  to  go  to  negusum 

GET  DEL*. 707 


GO  TO  MULTIPLY  ROUTINE 
SET  FLAG  rO  GO  TO  DpLteST 


GO  TO  MUlI IFLY  routine 

IF  magnitude  of  HIGH  ORDER  WORD  IS  LESS 
THAN  1/64  RESCAl E WHOLE  D.P.  WORD 


USE  HIGH  ORDER  WORD  ONLY 


48895AA  VJL  S1S|hM  f OK  A^C:  Nt.W  S'^ePAIIN  BY  E^l-tS 
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L niM  GInBAL  control  SIiSTEM 

0369  REF  A last  562  21  ,3300  0 5‘*35  0 TC 


0370  REF  16 

03  ?1 

0372  REF'  17 

0373  REF  18 

037a 

0375  REe  127 

0376  REF  19 

0377  REF  Ua 

0378 

0379  REF  20 

0380  REF  5 

0381  REF  2 

0382  REp  1 

0383 

038A  REF  21 

0385  REF  5 

0386  REf  6 

0387  REe  1 

0388 

0389  REF  1 

0390  REF  7 

0391  rEE  78 

0392 

0393  REF  189 

039A  REF  5 

0395  REF  7 

0396  REF  A 

0397 

0398 

0399  REF  8 

OAOO  REF  5 

OAOl  REF  9 

0A02  REF  2 

0A03  l^EF  22 

OAOA  REF  1 


562 

21 

LAST  563  21 

LAST  563  £.  1 

21 

las:  562  21 

LAST  563  21 

LAST  563  21 

21 

LAST  563  21 

last  562  21 

Last  562  21 

21 

21 

las  I 563  21 

last  561  21 

LAST  563  21 

21 
21 
21 

last  563  21 

LhST  560  21 

2 1 

LASI  562  21 

LAST  560  21 

LASi  5A6  21 

LAST  5A8  21 

21 

21 

LAST  563  21 

last  A66  21 

LAST  563  21 

LAST  a89  21 

last  558  21 

21 


3301  57'=20  1 

3302  0 0006  1 

3303  7 1520  0 

330A  53'R21  1 

3305  0 0006  I 

3306  7 OOOl  1 

3307  27»R21  1 

3310  5 A 001  1 

3311  1 3813  1 

3312  27*720  0 

3313  11*517  1 

33l^  1 3257  0 

3315  1 3266  1 

3316  0 OOO6  1 
33IF  3 1521  0 

3320  20  O71  0 

3321  10  O70  1 

3322  1 3326  1 

3323  1 3325  1 

332A  1 3330  0 

3325  10  O71  0 

3320  3 7(5A  0 

3327  1 3331  1 

3330  3 7761  0 

3331  6 7(63  1 

3332  50  066  1 

3333  55*522  1 

333A  A OOOO  0 

3335  0 0006  1 

3336  5 0066  1 

3337  7 1531  0 

33a0  50  066  1 

33a1  23*532  1 

33A2  10  0^6  0 

33A3  1 2(70  1 


SPDPMULT  XCH 

extend 

MP 

OXCH 

EXTEND 

VIP 

ADS 

TS 

TCF 

ADS 

CCS 

TCF 

TCF 

negusum  extend 
OCA 

OAS 

CCS 

TCF 

TCF 

TCF 

CCS 

NEGDRIVE  CAF 
TCF 

POSDRIVE  CAF 
AD 

index 

TS 


COM 

EXTEND 

INDEX 

v)p 

INDEX 

LXCH 


CCS 

TCF 


ROAO5  TRANSFOLM  JtRKS  BACK  TU  GIMBa.  AXtS. 


0A06  REF  3 last  563  21,33AA  31*532  1 CAE 

0A07  21,33a5  U 0OO6  1 EXTEND 

0A08  REF  A LAST  5O3  2i,33A5  7 lAOO  0 MP 

0A09  REF  3 last  5A8  21,33A7  55*566  1 TS 


SPROOT 

function 

FUNCTION 

FUNCTION 

L 

FUNCTION  +1 
L 

+ 2 

FUNCTION 

multflag 

deltest 

RESHlpT 


FUNCTION 

K2THETA 

K2THETA 

negdrive 

+ 2 

POSDRIVE 
K2THETA  +1 

Two 

+ 2 

ZERO 

NLGl 

ITEMP6 

NEGUO 


ITEMP6 
ACCDOTO 
I 1 EMP6 
QACCDOT 

Ok  cn  tr 

GOQTRIMG 


qACCDOT 

Mr  12 

Y3DOT 


USER*S  OWN  PAGF  NO.  10  E6 

square  root  subroutine  call 

THIS  IS  AN  OPEN  subroutine  WHICH  USES 

multflag  as  a rrTuRn  switch. 

IT  multiplies  Function  (o.p.)  by  C(A) 

AND  LEAVEB  THE  RbSUl T IN  FUNCTION  (D.P.) 
IT  IS  USED  FOR- 

1)  F{1/2)*F 

2)  (.707X0EL)^F 

3)  2(-9)»F 


posmax  Means  go  to  oeLtest 
zero  Means  go  to  reshift 
negmAx  means  go  to  NEGU^UM 

form  final  sum  I or  negusum 


test  for  zero  high  order  part 


SIGN  test  on  low  order  PART 


set  neguq,r  to  leg  drive 


SEND  back  jerk  tERM 


LOOP  counter 


SCALED  AT  PI/2(7) 
SCALED  at  2 


488954A  rjL  SYSTE'*'  fOH  AGC  ; NEW  PRO^^‘\''l  SHePATKj  3Y  eYLe 


L T^i'^  oi.iBal  Control  sTsfEM 


0410  REF  1 21,335^ 

0411  21.3351 

0412  REF  3 LAST  503  21*3352 

0413  REF  4 Last  563  2l,3353 

0414  REF  5 Last  564  21,3354 

0415  REF  4 LAST  563  21*3355 

0416  21,3356 

0417  REF  2 LAST  45  2i,335Y 

0418  REF  2 LAST  548  21,3360 

0419  REF  2 LAST  564  21  ,336^- 

0420  21,3362 

0421  REf  2 last  45  21,3363 

0422  REF  3 LAST  564  21  ,336** 

0423  REF  2 last  557  21,3363 

0424  REF  95  LAST  555  21,3366 


31*534 

1 

CAE 

RACCDOT 

0 OOO6 

1 

extend 

7 1402 

27*666 

1 

VIP 

Mr  13 

1 

ADS 

Y3DDT 

27*666 

31*^32 

1 

ADS 

Y3DOT 

1 

CAE 

QACCDOT 

0 0006 

1 

EXTEND 

7 1401 

1 

VIP 

MR22 

55*370  0 TS  Z3DOT 

31*334  1 CAE  RACCDOT 

0 0O06  1 EXTEND 

7 1403  0 V|P  MR23 

27*370  0 ADS  Z3DOT 

0 3377  1 rC  WRCHN12 

1 5751  0 TCF  resume 


R0425  WAITLISi  TASKS  TO  SET  TRIM  GHSaL  TURN  OFF  BITS. 


0426 

REF 

190 

LAS  I 

563 

21, 336  7 

0427 

0428 

0429 

REF 

REf 

5 

191 

LAS  1 

last 

563 

564 

21, 337O 
21*33  7I 
21,3372 

0430 

REF 

2 

LAS  T 

548 

21,3373 

0431 

REF 

3 

LAST 

564 

21,3374 

0432 

REF 

61 

LAST 

55  7 

21,3376 

3 7761  0 OFFGIMQ  CAF  ZERO 

55*322  1 TS  NEGUQ 

1 3374  0 TCF  +3 

3 7761  0 OffGIMR  CAf  ZERO 

55*324  1 TS  NEGUR 

0 3377  1 TC  WRCHN12 

1 5795  0 TCF  TASKOVER 


R0433  THE  wRChN12  SUBROUTINE  SETS  3lI5  9,10,11*12  OF  CHANNEL  12  ON  THE 
R0435  THE  NEGATIVES  OF  THE  TRIM  GIYSAu  DESIRED  DRIVES. 


0436  21,3376  07‘*00  1 BGIM 

0437  REF  10  LAST  563  0066  CHNL12 


OCTAL  07400 
EQUALS  I TEMPS 


0438 

REF 

1 

0439 

0440 

0441 

REF 

1 

0442 

REF 

6 

LAST 

569 

0443 

REF 

18 

LAST 

545 

0444 

0445 

REF 

93 

LAST 

5 59 

0446 

REF 

2 

LAST 

564 

0447 

REF 

3 

LAST 

564 

0 0 

*£>  00 

REF 

27 

LAST 

544 

0450 

0451 

REF 

REF 

20 

3 

LAST 

LAST 

558 

564 

21,3377 

21.3400 

21.3401 

21.3402 

21 *3903 
21,3904 
21 , 3 7, 0 5 
21,3406 
21,390  7 

21.3910 

21.3911 

21.3912 

21.3913 

21.3914 


9 3376  1 

0 0O06  1 
02  012  0 
54  066  0 

11*522  1 
3 7745  0 

1 3407  0 
3 7744  1 
26  066  0 

11*624  1 
3 7743  0 
1 3419  1 

3 7792  1 
2b  066  0 


WRCHN12 


CS 

BuIM 

EXTEND 

RAND 

12 

TS 

CriNLlZ 

CCS 

NEGUQ 

CAF 

BIT9 

T CF 

+ 2 

CAF 

BITIO 

ADS 

CHNH2 

CCS 

negur 

CAF 

B1  Til 

TCF 

+ 2 

CAF 

BIT12 

ADS 

CriNLl2 

Dec  lA,  1966  (MAIN)  PAGE  564 


USER*S  0*JN  PaGf  no.  11  E6 

scaled  at  pi /2 (7) 

SCALED  AT  2 
SCALED  AT  PI /2  (7) 

SCALED  AT  PI/2(7) 

SCALED  AT  1 
SCALED  AT  Pl/2  (7) 

scaled  at  1 

SCALED  at  PI/2  (7) 

SEND  GIMBAL  DRIVES  TO  SERVOS 
WAIT  UNTIL  NEXT  TRIM  GIMBAL  RUP [ 

SET  Q-AXIS  FLAG  TO  ZERO 
SET  R-AXIS  flag  TO  ZERO 
FLAGS  TO  CHANNEl  BITS 

BASIS  OF  the  contents  (,F  NeGUQ.NEGUR  WhICH  ARE 


SAVE  THE  REST  Of-  CHaNNEL  12  DURING  TESTS 
(TEMPORARY  STORAGE) 


(STORED  RESULT  NOT  USED  AT  PRESfNT) 


^8895^A 


L 


0952 

0953 

0959 

R0955 

R0957 


0959 

0960 

0961 

0962 

0963 
0969 

0965 

0966 

0967 

0968 

0969 

0970 

0971 

0972 

0973 
0979 

0975 

0976 


rJL  SYSlEM  fOK  AGC:  NEW  PROGRAM  SHePATM  3Y  EYLES  Df  C U,  I966  (MAIN)  PAGE  56t) 

TRIM  oIi-ibal  Control  syofem  user's  qnn  page  no.  e8 

21.3915  0 0OO6  1 EXTEND 

21.3916  01  012  0 aRITE  12 

REF  200  LAS!  553  21,3917  0 0002  0 TC  Q SIMPLE  RETURN  Al  WAYS 

3,R-rRANSF  [RANSFoRMS  A Y,Z  5iM3aL  COORDINATE  YaRIABLe  PAIR  (IN  A'L)  TO  PILOT  COORDINATES  (O/R),  RetURNeD  IN  A« 
(IhE  mAIKIX  M from  GIMBAl  to  3i;_0l  AXES  Is  ASSUMED  TO  BE  ljONF  BY  T9RUPT  ANp  ScAlEo  AT  +1.) 


REF  11  LAST  569 


0066  QRERAS  EQUALS  1TEMP6 


ref  1 21 '3920  22  066  1 QTRANSF  LXCH  QRERAS 

21, 3921  0 0006  1 EXTEND 

REF  9 LASr  509  21,3922  7 IAO5  0 MP  M2I 

REF  2 LAST  565  21,3923  56  066  1 XCh  (3RERA5 

21,392A  0 0006  1 EXTEND 

REF  7 last  509  21,3925  7 1901  1 MP  M22 

REF  3 LAST  565  2i,392o  o 0066  1 AD  QRERAS 

REF  201  LAST  565  21,3927  0 0002  0 TC  Q 


SAVE  2-AXlS  VARIABLE 
(Y-AXlS) »M21 

SAVE,  GET  Z-AXIF  VARIABLE 
(Z-AXIS)  itM22 

SUM  = (Y-AXIS)*M21  + (Z-AXIS)#M22 
RETURN  WITH  SUM  IN  A 


REF  9 last  565 

REF  9 LAST  509 

REF  5 LAST  565 

REF  6 LAST  509 

REF  6 Last  565 

REF  202  LAST  565 


21.3930  22  066  1 RTRANSF  LXCH  QRERAS  SAVE  Z-AXiS  VARtABLf 

21.3931  0 0006  1 EXTEND 

21.3932  7 1A06  0 MP  M31  (Y-AXIS)»M31 

21.3933  56  066  1 XCH  QRERAS  SAVE,  GET  Z-AXiS  VARIABLE 

21,3939  0 0OO6  1 EXTEND 

21.3935  r 1A03  0 MP  M32  (Z-AXlS) ''M32 

21.3936  6 OO66  1 AD  QRERAS  SUM  = ( Y-AX I S ) ,tM3 1 + (Z-AXIS)«M32 

21.3937  0 0002  0 TC  Q RETURN  WITH  SUM  IN  A 


21,3990  25‘^53  1 (2/3)  DEC  0,66667 


488954A  YJL  SYSTEM  EOH  AGC;  NEW  P«oGR!\M  S^^EPATIU  BY  EYLES 


dec  n,  1966  (MAIN)  PAGE  S66 


L 

POA78 

R0A79 

R0980 

ROA805 

RoA81 

Roa83 

RoA85 

R0987 

R0989 

R099A 

RoA96 

R0A98 

Rqsoo 

R0501 

R0502 

ROSOA 

ROSO6 

ROBO8 

R0510 

R0511 

R0513 

R0515 

R0517 

R0519 

R0520 

Ro522 

R052A 

R0525 

R0526 

R0528 

R0530 

Ro531 

R0532 

R0S3A 

R05355 

R0S36 

R0537 


trim  oiMiiAL  Control  system  user's  own  pag,.  no.  13  E6 

SJBROJTINE:  TGOPFCAL  moo,  no.  1 DATE;  AUGUST  22,  1966 


program  Design  by:  RiCtiARu  o. 


oOSB  (MIT/IL) 


pROoR-^M  IMp'-Ei'lENTATION  by:  DD 
modified  30  NoV  66,  TO  USp  AC 

this  subroutine  calculate^  rn 
CALLING  Sequence),  this  tiMe 
IF  tHe  iime-to-go  is  Mure  t^'^a 
He  TiM^-ro-Go  IS  Less  than  t 
3Y-PAsSlD. 

THeSE  TlME-rO-GO  CALCULATIONS 

CAUSE  No  angular  ACCELERATION 
INlrlATuD  0 iLY  when  THE  TRIM 
THE  JSE  OF  REACTION  CONfROL  S 

CALLING  sequences; 


2P • iOOO 
26,1001 
26,1002 
26,10u3 
26, lOOA 


TATHAN  D.  ADOELSTON  (ADAMS  ASSOCIATES) 

COOTU  and  ACCDOTR.  CRAIG  iHORK 

--  tR^M  GIMBAL  shutdown  TIMe  FOR  eItHeR  THe  Q OR  tHe  R AXIS  (DEPENDING  ON  T-IE 

'is  pcaleD  For  immediate  use  by  a waitlist  call  as  shown  In  tHp  Calling  sedUeNCes, 

T TWO  MINUTES,  IT  IS  LIMITED  TO  TWO  MINUteS  DUp  TO  THE  WAItLISt  SPECIFICATION,  IF 

£N  Milliseconds,  thl  shutdown  is  Performed  immediately  and  the  waitlist  cat l is 


are  Designed  to  drive  the  trim  gimbal  to  a position  wheRe  the  descent  engine  will 

, T^IS  subroutine  is  called  ONLY  FROM  tHe  WAItLIST  I ASK  CweKDrIV  WHICH  IS 
jImbal  control  law  has  Lust  control  of  the  lem  vehicle  attitude  and  must  Return  to 
YsiE''’  Jets. 


3 76P7  1 CAF  zero  Q-AXIS  INDEXER 

0 iiss  $ TC  TgOFFCAL  call  TgOFFCAL  (*THt  replace  $S  th*») 

0 A5U  0 IC  WAITLIST  CALL  WAITLIST  WITH  CALCULATED  TIME 

03>$S$  $ 2CADR  OFFGIMO  2CADR  oF  U-AXIS  SHUTDOWN  PROGRA'l 

5A0U6  1 


26.1005  3 76S7  1 

26.1006  0 $ 

26.1007  0 A5ll  0 

26.1010  Oi$S5  $ 

26.1011  6A0U6  1 


CAF  TWO  R-AXIS  INDEXER 

TC  TGOFFCAL  CALL  TGOFFCAL  In**  REPLACE  $S  ***) 
TC  WAITLIST  CALL  WAITLIST  WITH  CALCULATED  TIME 
2CADR  OFFGIMR  2CADR  OF  R-AXIS  SHUi DOWN  PROGRAM 


SUBROUT;Nt.S  CmLLED:  NONE,  BUp  wRCHNL12  IS  CALLED  AFpER  BOPH  pGOFFCALL  CALLS. 


NORMAu  :.XIT5:  TO  WAITHSP  CAL.  OR  BeYoND  2^ADR  IN  CALLING  SEQUENCE  AS  SPECIFIED  ABOVE. 

A-ARM  OF.  ABuRT  EXIT  MODES;  N^^JE 

INPUT:  1.  THE  AXIS  indexer:  0 FOR  Q»  2 FOR  R (SEE  CALLING  SEQUENCLS) 

2.  T^,E  signed  time  dLRIvAtIvE  OF  AcCELEPATION  (OACCDOT  OR  RAcCdOT)  Scaled  at  PI/;^(7)  RAd/SEC(3). 

3.  TriE  acceleration  AP3R0X IMAT ION  FROM  THE  DESCENT  KALMAN  FILTER  TRANSFORMED  TO  pILOt  AXES  (ALPHAQ  OR 

A^PHAR)  SCALED  AT  PI/8  RAD/SEC(2). 

'•».  Channel  12  LONTAif)s  he  gimbal  drives  and  other  bits. 

OUTpUT  s.  THE  negative  uImBAL  ORHe  FLAg  (NEgUQ  AND  NEGUR)  wHERE  A +1  BIT  REQUESTS  pOSlrlVE  gImBAL  DRIVE 

(ANGULAR  acceleration  DECREASING) , A -i  Bip  ReQUeSPS  NeGATIVe  GIMBaL  ORIVe  (ANG.  aCC.  INCREASING). 
A zero  INDICATES  NO  DRHE. 

6.  time  required  to  Zeno  acceleration,  scal.ed  for  waitlist. 


erasable  storage  configuration.  (NEEDED  BY  THE  INDEXING  METHODS): 


't8895‘^A  yJL  SYs  lEf-i  f AGC ; Ntlv  PrOO^^A.Vi  sHEpAliN  BY  EYLEs 


L 

A0538 

A0539 

AOSAO 

AOSaI 

A05A2 

A05A3 

A05A^ 

A0545 

A06A6 

A05A7 

A0548 

Ro5A9 


0850 

0551 

0552 

0553 
0559 

0555 

05551 

05552 

05553 
05559 

05555 

05556 

05557 

05558 

0556 

0557 

0558 

0559 

0560 

0561 

0562 

0563 
0569 

0565 

0566 

0567 

0568 

0569 

05691 

05692 

05693 
05699 
05695 


trim  oii.bAL  Control  svbiuM 


neguq  erase  +2 

(5P^^ORD)  EQUALS  NeCUq  +1 

NeGUR  equals  NeGUO  +2 

ACCUOTU  erase  +2 

(sPwoRD)  equals  ACCDQTQ  +1 
ACCDOTR  EQUALS  ACCDQTQ  +2 

alphaq  erase  +2 

(5P^.0RD)  equals  alphaq  +1 
alphaR  equals  alphaq  +2 


debris:  L»  Q*  ITEMPh  iTEMP2»  ITE^Pfe 


REF 

REF 


1 

2 last  567 


2 1 » 399 1 
21,3992 


59  U61  1 
50  Ubl  0 


TGOFFCAL  TS  QRNDXER 

INDEX  QRNDXER 


REF  6 last  563 

REF  1 
REF  1 

REF  3 last  567 
REF  5 Last  555 

REf  1 

REF  129  LASI  563 
REF  9 LAST  567 
REF  270  Last  556 
REF  7 Last  557 
REF  5 Last  567 
REf  6 last  567 

REF  2 last  567 

REF  1 

REF  12  LAST  565 
REF  52  Last  556 

REF  271  Last  567 
REF  13  LAST  567 


21*3993 

21, 3999 
21, 399^ 
21, 3996 
21  ,3997 
21  ,3950 
21 *395^ 
21 ,3a52 

21,3953 

21.3959 

21,3953 

21,3956 

21*3957 

21. 3960 
21 ,3961- 

21.3962 

21 .3963 

21 .3969 
t 1 ,3963 
21 ,3966 
2 1 , 3 a6  F 

21 .3970 

21 .3971 


?1'331  1 
0 0006  1 

6 3325  0 
59  062  1 
50  061  0 
31'920  0 
0 0006  1 

7 3335  0 
56  OOl  0 
10  061  1 
50  OOO  1 
23*656  0 
50  061  0 
31*920  0 

0 OOO6  1 

1 3325  1 

0 OOO6  1 
6 3970  1 

59  066  0 
3 7^35  1 

1 3973  0 

9 OOOO  0 
59  066  0 


NEGALPH 


CAE  ACCDQTQ 

extend 

3ZMF  TGOFFNOW 

TS  N/ACCDOT 

index  QRNDXER 

CAE  ALPHAQ 

extend 


MP 

.1-.05K) 

XCH 

L 

CCS 

QRNDXER 

I ndex 

A 

lxch 

AOSQTERM 

INDEX 

QRNDXER 

CAE 

AlPHAq 

extend 

3ZF 

TGOFFNOW 

EXT  END 

3ZMF 

negalph 

TS 

ITEMP6 

CAF 

BI  T 1 

TCF 

+ 9 

CS 

A 

REF 

D ^ t-' 

53 

LAST 

1 A C - 

567 

21,3972 

Kl,  r 

REF 

6 

7 

LAo  1 

Last 

56  7 
369 

21  ,3973 
21,3979 
21*3973 

REF 

REF 

REF 

7 

7 

8 

LAST 

last 

LAST 

567 

567 

567 

2 1 , 3A76 

21,3977 

2 1 ,350U 

21 ,3501 

9 7F55  0 CS  BlTl 

50  061  0 index  QRNDXeR 

55*322  1 15  NeGUQ 

9 0000  0 COM 

0 OOO6  1 EXTEND 

5 0061  0 INDEX  QRNDXER 

7 1331  0 MP  ACCDOIQ 

50  061  0 index  QRNDXER 


DEc  13,  1966  (MAjN)  page  567 


USeR*S  0»^N  PAGf  NO.  19  E6 

negative  OF  0-AxiS  GIMBAL  DRiVE 

ANY  s.p.  eRasabi  e Number,  now  thrstcmd 

negative  OF  R_AxIS  C.IMBAL  DRIVE 

Q-JERK  term  SCAi  ED  at  Pi/2(7)  RAD/SlC(3) 
ANY  S*P*  ErAsABi E NUMBER  NOW  QaCCDOT 
R-JERK  TERM  SCAl  ED  AT  PI/2(7)  RAD/SEC(3) 

accdoiq*accdotr  are  magnitudes, 

O-AXIS  acceleration  scaled  At  Pl/8  R/S2 
ANY  S.P,  eRASABI  E NiiMBeR,  NOW  0 'eGAR 
R-AXIS  acceleration  SCALeD  At  Pr/8  R/S2 
note:  now  0MeGA6,0MfGAQ  precede  alphaq 


0 OR  R axis  INDfXeR 

get  jerk  term  Magnitude  scaled  at 

PI/2(7)  IN  RADI ANS/SEC(3) . 
unless  Theta  triplE-dot  magnitude  is  non 
-ZERO,  SET  drive  TO  ZERO  NOW. 

SAVE  NON-ZERO  DENOMINATOR. 

INITIALIZE  the  aOSTERM  WHICH  WIlL  Be  UP- 
DATED IN  THE  DUMMYFiL  CALCULATION  FOR 
USE  IN  THE  QRAXIS  RATE  DERIVATION.  SET 
AOSTEKm  to  Al  PHA^cSp**  ( 1“, 5*K  ) * juHERE  C^P 
IS  ,1  SEC,  K IS  ,5  THEN  AOSTERM  IS  SE I 
TO  .0  75*^ALPhA,  aCALfD  AI  PI/9,WhILE 
ALPHA  IS  SCAl fD  AT  PI/8(  THE  CONSTANT  IS 
scaled  at  2. 

get  acceleration  scaled  at  PI/8 
RAD/SEC(2) . 

IF  acceleration  is  already  Zero,  exit, 
otherwise,  TROCfED  with  non-zero  ALPHA, 
set  NEGUQ  TO  THf  SIgN  OF  ALPHA,  THEN  USE 
the  magnitude  of  alpha  10  COMPUTE  TIME 


STORE  THe  drive  DIRfCTIuN  FLAG 
time  = MAoNITUDf  of  (ALPHA/ACCDdT) , 
leaves  the  sign  of  0(R)ACCD0T  i^  a. 
store  AccdOT  to  REFi  ECT  the  change  in 

GIMBAL  DRIVE  DIRECTION  (POSSIBLE),  THIS 
CAN  BE  ESSENtIAi  FOR  DUMMYFIL,  IN  CASE 

o(R)ACCDor  IS  Not  initialized  Before 


YJL  SVSIeM  f^OF.  A&c:  NtW  PRO^=?<\''i  S*^lPATIN  by  EYLhS 


L trim  oI^BAL  Control  system 


05696  REE  5 last  56A  Elt3502  E3*R32  1 LXCH 

0570  REF  lA  LAST  567  21,3503  30  066  1 CAE 

0572  21,350A  0 0006  1 EXTEND 

0573  REF  28  LAST  56A  2i,350i>  7 7FA3  1 MP 

057A  21,3506  0 0006  1 EXTEND 

0575  REF  2 Last  567  21,3507  10  ^62  1 OV 

0576  REF  1 21,3510  6 3^33  1 AD 

0577  REF  272  LAST  567  21,35ll  10  000  0 CCS 

0578  REF  1 21,3512  A 3^32  1 CS 

0579  REF  203  LAST  565  21,3513  0 0002  0 TC 


0580  REF  1A5  Last  557  2I1 

0581  21, 

0582  REF  1 21, 

0583  21, 

058A  REF  2 Last  568  21, 

0565  21, 

0586  21, 

0587  REF  3 last  567  21, 

0588  REF  20A  LAST  568  21, 


351^  6 7755  1 AD 

3515  0 0006  1 EXTEND 

3510  7 353A  1 'IP 

3517  20  OOl  1 ODOJBL 

3520  t 3532  0 AD 

3521  A OOOO  0 COM 

3522  0 0006  1 EXTEND 

3523  6 3525  0 3ZMF 

352A  0 0002  0 TC 


0589 

REF 

192 

LAST 

569 

0590 

ref 

9 

last 

567 

0591 

REF 

8 

LAST 

567 

0592 

REF 

205 

LAST 

568 

0593 

059A  REF 

0595  REF 

0596 

0597 

0598 

0599 


68  last  552 
39  last  552 


21 

*3525 

3 7 761 

0 

TGOFFNOW  CAF 

21 

,3526 

50  U61 

0 

INDEX 

21 

,352  7 

55*522 

1 

TS 

2 1 

,3530 

5 0 D02 

0 

INDEX 

21 

*3531 

0 0003 

1 

1C 

0061 

ORNDXER 

equals 

0062 

NZACCDOT 

equals 

21 

,3532 

50937  1 

-2MINWL 

DEC 

21 

,3533 

50777  0 

-2M1N256 

DEC 

21 

,3539 

31000  0 

128/169 

OCTAL 

21 

,3535 

Oll96  0 

. 1-.05K) 

OCTAL 

QACCDOT 

ITEMP6 


BlTll 

N2ACCD0T 

-2MIN256 

A 

-2MINWL 

Q 

ONE 

128/16A 

-2MINWL 


TGOFFNOW 

0 

Zero 

OKNDXER 

NEGUQ 

Q 

3 


ITEMPI 

ITEMP2 

-12000 

-.A6875 

31000 

011A6 


Dec  !:(,  1966  (Main)  pa^e  568 


user's  Oi^N  PaGF  no*  15  t6 

executing  DUMMYl-IL. 


multiply  by  1/U 

TO  CHANGE  SCALING  TC  2P1  RAD/SEC(2) 
ACCDOI  SCALED  At  PI/2(7)  IN  DENOMINATOR 
YIELDS  TIME  SCAI  ED  AT  256  SECONnS 

compare  with  maximum  2 minute  Delay  of 

WAITLIST  ACTION  (TIMES  AT  256  SECONDS) 
MORE  THAN  TWO  MtNUTES,  USE  2 MI  iUTES 
RETURN  WL  CALL  I.ITH  2 MIN  AT  1BIT  = 10MS 

(CORRECT  FOR  CCa  BIt ) 

CALCULATE  DT  = ABS(T-2mIN) 

AND  RESCALE  DT  tO  WAITLIST  SCALING 

-T  = DT  + 2MIN  (IN  wAITLIST  SCALING) 
MAKE  T POSITIVE  FOR  WAITLIST 
make  final  CHFCk  TO  INSURE  T .G.  10  MS 
DO  shutdown  NOW  (COULD  USE  BZF) 
return  to  WAITLIST  rALL  WITH  WL  TIME 

MAKE  SURE  PLUS  ZERO  FOR  DRIVt  Fl  AG 

Turn  Off  drivf  flag  now 


SKIP  WAITLIST  Call  and  2CADR 


INDEXER  FOR  0 OR  R AXIS 

temporary  StORAl^E  FnR  NON-ZERO  ACCDOT 

- 2 MINUTES  Sf Al  ED  FOR  WAITLIST 

- 2 MINUTES  SCAI  ED  aT  256 
128/163.89  CONVfRTING  256  TO  WAiTLIST/2 
.0375=. 075  SCALFD  AT  2 
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L ADSTA5K  AND  AOSJOB  USER'S  OWN  PAGE  NO.  1 

ROOOl  PROGRAM  NAMt : AOSTAS<  MUD.  NO.  1 DATE:  NOVEMBER  20,  1966 

R0002  author:  JON/ than  D.  ADDeLSTON  (ADAMS  ASSOCIATES) 

R0OO3  THIS  "WmIILIST  IASk"  IS  ExE^^UIEO  tvERY  2 SECONDS  OURInG  ASCeNT  (APS)  bURNS.  IT  ESTIMATES  THE  ACCELERATION  DUE 

Roods  to  the  ingi'e  off-sei.  to  us;  jhese  estimates,  it  also  calculate^  terms  to  add  into  thf  lm  dap  rate  derivation 

R0007  AND  WeIgHtIFO  FACTORS  FOR  T^^E  ESTIMATE  OF  AOS  AND  FOR  THE  PAte  DeRIVAtION.  FINALLY,  It  ALSO  SeIS  UP  "AoSJOB" 

R0009  through  the  executive  to  calculate  functions  of  the-  AOS. 


ROOlO  CALLING  SEQlENCE: 


AOOll 

A0012 

A0013 

AOOIA 

A0015 


L -1  CAF  2SECSDAP 

L TC  WAITLIST 

ebank=  also 

L +1,  +2  2CADR  AOSTASK 
L +3  (RETURN) 


ROOI6  NORMAL  LXIT  MODe:  "TASKOVeR" 


R0017 

R0018 

R0019 

R0020 

R0021 

R0022 


INPUT  APSGC IMG/DAPBOOLS 
AOSQ,AOSR 
COEFC  TR 

lLDWF  ORQ,OLDWFORR 
&UMRATEO,SUMRATER 
CMEGAQ,0MEGAR 


alarm/abort  mode:  none* 


R0023  OJTPJl  / OSQ,AOSR,AOSJiAOSV 
R002A  AOsQTERM«AOsRIERM 

R0025  SUMRATEQ,SUMRATER 

R0026  KCUEfCTR 

R0027  DEBRIS:  A , L , I T EMP 1 * I TEMP2 . 

R0028  the  following  LM  DAP  ERASAbLeS  ARE  zEROeD  IN  THE  STARtDAP  SeCtION  OF  THE  DAPIDLER  PROgRaM  AnD  tHe  COASTASC 

Roo3o  Section  of  tHe  aostasx,  the  oroe'^  must  Be  preserved  for  tHf  indexing  methods  which  are  empi oyed  in  those 

R0032  sections  ANt  ELSEWHERE. 

A0033  AoSQ  erase  +3  ascent  offset  a/CeLeRation  estimates: 

A003A  AOSR  equals  AuSQ  +1  ESTIMATED  EVERY  2 SeCONDS  BY  AOSTASK. 

A0035  AOSU  equals  AoSO  +2  U,V-AXe5  ACCS  FnRMED  BY  VECTOR  ADDITION. 

A0036  AOSV  equals  AuSQ  +3  SCALeD  AT  PI/2  RAD  I ANS/SeCOND ( 2 ) . 

AOO37  AOSQTERM  ERASE  +l  (.1-.05K)A0S 

A0038  AOSRTERm  EQUALS  AOSqTERM  +1  SCALED  At  Pl/9  c AO I ANS/SeCOND . 


AOO39 

aooao 

AOOAl 

AoOA2 

AoOA3 


NJ  + (j  erase  +7  2 JET  OVeR-RIDe  FLAGS: 

NJ-Q  equals  NJ  + Q +1  whenever  I He  offset  acceleration  ABOUT 

NJ+R  equals  NJ+Q  +2  AN  AXIS  IS  SO  H l GH  tHAT  2 JETS  COULD  NOT 

NJ-R  equals  NJ+Q  +3  control  attitude  SUeCeSSFULLY,  tHeN  nj 

NJ+U  equals  NJ+Q  +A  For  that  AXIS  (IN  the  direction  opposing 


-^eegs^A  rJL  system  i'Or  agc:  new  prqG^avi  sMepatin  by  eYLes 
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L ADSTASK  and  AcSJOG 


USER'S  OWN  Page  no.  ^ 


AoOAA 

AoOA5 

AoOA6 


NJ-U 
NJ  + V 
NJ-V 


EQUALS  Nj+Q  .5 
equals  NJ+Q  +6 
EQUALS  NJ+Q  +7 


AOS)  IS  Set  to  othekwise,  the  value 

IS  ZeRQ.  Thp.SE  FLAfiS  PReVeNT  TaO  JeT5 

FROM  Being  requfSied  to  fight  the  aos. 


48895AA 


L 

P00A7 

R0049 

0050 

0051 

0052 

0053 
005A 
0055 

Roo56 

0057 

0058 

0059 

0060 
0061 

0062 

0063 

ROO^A 

0066 

0067 

0068 

0069 

0070 
0071 

R0072 

0073 

0074 

0075 

0076 

0077 

0078 

0079 

0080 
0081 

0082 

0083 

0084 

0085 

0086 
0087 


yJL  SYSTEM  FOR  AGC;  NEW  PROGRAM  SHEPATIiT  BY  EYLES 
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A3STAi><  and  AoSJOB  USER'S  OvvN  PAGf-  NO.  3 

ADSTASK  is  executed  only  during  powered  ASCeNT.  if  no  longer  in  POWeReD  ASCeNT.  stop  TPE  cycling  of  AOSTASK  AND 
SET  JR  VARIABLES  FOR  COAStINS  ASCLNI. 

20*3112  3AN<  20 

REF  8 LAST  509  E6  EBANK=  AOSQ 

REF  4 LAST  458  20.3112  3 7^46  0 ADSTAS<  CAF  APSGOING 

REF  51  LAST  556  20,3113  7 OU77  0 viAS<  DArrOOLS 

20,311A  0 0006  1 EXTEND 

REF  1 20,311B  1 3275  0 3ZF  COASTASC 

<eef  track  L'F  Length  of  buri^  =or  determination  of  weighting  factor  k: 

REF  5 LASI  458  20,3116  31*644  0 CAE  KCOeFCTR  TEST  KCOeFCTR  FnR  INITIAL  PASS. 

20,311  J 0 0006  1 EXTEND 

REF  1 20,3120  i 3255  1 3ZF  ZeROCOEF  GO  TO  DISCONTINUITY  SECTION  FOR  COtFFA, 

REF  1 20*3121  6 3313  0 AD  DEC-399  TEST  KCOEFCTR  FnR  CnNSTANT  RANGE  WHICH 

20.3122  0 OOO6  1 extend  OCCURS  WHEN  DURATION  OF  BURN  IS  EQUAL  TO 

20.3123  6 3A25  1 3ZMF  +2  OR  GREATER  THAN  400  SECONDS.  (SINCE 

REF  1 20,3124  1 326I  0 TCF  KONENOW  KCOEFCTR  IS  EVEN,  399  IS  THE  BREAK  PT.) 

FORM  rtElCHTiNG  FACTOR  FOR  ASCENI  OFFSET  ACCELERATION  FILTER:  COeFFA  = 0.00l25(T)  ♦ 0.25 

REF  1 20,312S  3 3302  0 CAF  0.00125  COEFFA  = 0.00125(1)  *•  0.25 

20,3126  0 0006  1 EXTEND 

REF  6 LAS1  571  20,312 T 7 1644  1 MP  KCOEFCTR  KCOEFCTR  = T SCALED  AT  2 (+14) 

REF  21  LAST  559  20,3130  3 7^41  1 CAF  B1T13  (BIT13  = 1/4  = n.25  SCALED  AT  1.) 

REF  130  LASI  567  20,3131  6 OOOl  0 AD  L 

REF  1 20,3132  54  062  1 COEFFAST  TS  COEFFA  (VOLATILE  STORAGE.) 

FORM  weighting  FACTOR  FOR  RAte  DERIVATION:  K = O.OOl4(T)  *•  0.A4 


TEST  powered  ASCENT  FLAG; 

0:  NOI  pOwERED  ASCENT  (ASCENT  COAST) 

1:  POWERED  ASCENT 

(END  CYCLE  OF  TASKS  DURING  ASCENT  COAST> 


REF  1 

REF  7 LAST  571 
REF  1 

REF  131  LAST  571 
REF  1 

REF  38  last  562 
REF  a last  492 


20,3133  3 3303  1 

20,313A  3 OOO6  1 

20.3135  7 1644  1 

20.3136  3 3310  0 

20.3137  6 0001  0 

20.3140  54  061  1 

20.3141  4 0000  0 

20.3142  6 7<'35  1 

20.3143  55*636  1 


CAF  0.0014 

EXTEND 

MP  KCOEFCTR 
CAF  0.44 

AD  L 

IS  K 

COM 

AD  POSMAX 

TS  (1-K) 


REF  21  LAST  564 

REF  4 LAST  552 

rEF  2 last  571 

REF  1 


20,314“+  0 OOO6  1 

20.3145  7 7/42  0 

20.3146  55*637  0 

20,314^  30  061  0 

20.3150  0 0006  1 

20.3151  7 3311  0 


Extend 

VIP  BITI2 

TS  (l-K)/8 

cae  k 

EXTEND 

MP  0.625 


K = 0.0014(T)  + 0.44 
KCOEFCTR  = T SCALED  AT  2 (+14) 

(VOLATILE  storage.) 

(1  BII  ERROR  DOfS  DOES  NOT  COMPOUND.) 
(1-K)  SCALED  AT  1. 


(1-K)/8  is  (1-Kt  SCALED  AT  8. 

WFOrp  = WFOrqr  - K/dT  5 K/.l  = IOk 
SCALED  at  16/SE<-0ND. 

(CHANGES  SCALF  fACTnR  FROM  1 TO  16/SEC.) 


48895^A  YJL  system  FOR  aGC  : NJE‘'J  PRO'^RAM  SHePATIN  BY  eYLeS 


L 

0088 

0089 

0090 

0091 

0092 

0093 

0095 

0096 

R0097 

0098 

0099 

0100 
0101 


0102 

0103 

0106 

0105 

0106 

0107 

0108 

0109 

0110 

ROlll 

ROl  12 
R0113 

0115 

0116 

0117 

0118 

0119 

0120 
0121 
0122 

0123 

0126 

0125 

0126 

0127 

0128 

0129 

0130 


A3SIASK  AND  AOSJOB 


REF 

7 

LAST  669 

20,3152 

REF 

6 

last  552 

20,3153 

R^F 

3 

LAST  571 

20,3156 

20,3156 

REF 

1 

20,3156 

REF 

1 

20,3157 

20,3160 

REF 

I 

20,3161 

Begin 

estimate  of 

offset  ACCe 

REF 

2 

LASI  571 

20 ,3162 

20,3163 

REF 

9 

LAST  571 

20,3166 

REF 

10 

last  572 

20,3166 

55«t>36  0 rS  WFORP 

55'935  1 TS  k^FORQR 

6 0D61  1 CS  < 

0 0006  1 EXTEND 

7 3A05  0 MP  0,05 

6 3B06  1 AD  0.1 

6 0000  1 DOUbLE 

56  061  1 rs  .1-.05K 

erai ion  for  q»r-axes: 

33  062  0 CDEFFAl  CAE  COEFFA 

0 0006  1 EXTEND 

7 1652  0 MP  AOSQ 

55'o52  0 TS  AOSQ 


R::F  3 LAST  572 

REF  2 last  509 
REF  3 last  57^ 

REF  6 LAST  572 

REF  22  LAST  571 
REF  23  LAST  572 

REF  1 


20,3160  33  '^62  0 

20,3167  0 0006  1 

20,3170  7 1653  1 

20,3171-  55'053  1 

20,317*1  6 0062  1 

20,3173  0 0006  1 

20.3176  7 7T6I  0 

20,3173  6 7T6I  1 

20.3176  56  062  1 


CAE  COEFFA 

EXTEND 
MP  AOSR 

TS  AOSR 

CS  COEFFA 

EXTEND 

MP  B1T13 

AD  BIT13 

TS  ,5~.5COF 


FINISH  offset  acceleration  ESIIHATES; 


AOS  = COEFIA  (AOS  ) + .5(1-C3ELFA  ) (OMeGA  -OMeSA  -SUMRATE  ) 
T r T-2  T T T-2  T 


REF  it  LAST  558 
REF  3 LAST  658 

RCF  6 last  552 
REF  18  LAST  572 

REF  2 LAST  572 
REF  11  LAST  572 


20,3177  6 1617  0 

20.3200  5T'623  1 

20.3201  0 0006  1 

20.3202  61*021  0 

20.3203  6 1617  1 

20,3206  0 0006  1 
20,3202  7 0062  1 

20,3206  27*652  0 


CS  OMEGAQ 

XCH  OLDWFORQ 

EXTEND 

5U  SUMRATEQ 

AD  OMEGAQ 

EXTEND 

MP  .5-.5COF 

ADS  AOSQ 


rEF  16  last  555 
REF  2 LAST  658 

REF  3 LAST  552 
REF  17  LAST  572 

REF  3 LAST  572 

REF  6 last  572 


20,3207  6 1621  0 
20,3210  5 7*626  0 
20,3211-  0 OOO6  1 

20.3212  61*622  0 

20.3213  6 1621  1 
20,3216  0 OOO6  1 
20,3216  7 0062  1 

20,3216  27*653  1 


CS  OmEGAr 

xCH  OlDwFORR 

EXTEND 

SU  SUMRATER 

AD  OMEGAR 

EXTEND 

MP  .5-.5COF 


ADS 


AOSR 
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USER'S  ONN  PAGF  NO,  6 E6 

WFORP  IS  IDENTIrAL  kvFORQR  EXCEPT  FOR  THE 
initialization  tN  StARtDAP  of  DaPIDLeR. 

FORM  (.1-.05K)  prOM  K scaled  AT  1 FOr 
THE  TORqUe  VeCTc.R  RECONSTRUCTION  AND 
ALSO  FORM  (.l-.r,5K)  SCALED  AT  1/2  FOR 
THE  offset  ACCEIERAtION  TERM  IN  THE  RATE 
EBANK6  FOR  USF  IN  T5RUPT  WHILE  IHE 
LATTER  IS  volatile  AND  USED  IN  iHlS  TASK 


FORM  COEFFA (AOSn) : 

FIRST  TERM  OF  NfW  AOSQ  ESTIMATE: 

SCALED  at  PI/2  L AD  I ANS/SeCOND ( 2 1 . 

FORM  COEFFA (AOSR) : 

first  TERM  OF  NpW  AoSR  ESTIMATE: 

SCALED  At  PI/2  rADI ANS/SECOMD ( 2 ) . 

FORM  ,5(1-C0EFFA)  SCALED  AT  2 FROM  THE 
COEFFA  scaled  At  1.  COEFFA  IS  nOW  THE 
SAME  AS  2(C0EFF6)  SCALED  AT  2,  SO  MUST 
MULTIPLY  BY  1/6  TO  GET  .5  (COEFFA).  THEN, 

ADD  1/6  AS  1/2  aCALfD  AT  2 F'UR  RESULT. 


SAVE  PRESENT  -OnEGAQ  FOR  NEXT  PASS  AND 
PICK  UP  -(LAST  oMeGaO)  FROM  OLDaFORQ. 

form:  W - OLDW  - SUMRATE  = SUM  (Q-AXIS)* 
SCALED  AT  Pl/6  RADI ANS/SECOND. 

AOSQ  = COEFFA  (AoSQ)  .,.5  (l-COEFFA)  (SUMQ) 

scaled  at  PI/2  RADIANS/SEC0ND(2) . 

SAVE  PrEsEnT  -OmEGAr  FOR  nEXT  PASS  A^D 
PICK  UP  -(LAST  oMEGAR)  FROM  OLD-.FORR. 

FORM:  W - OLDW  _ SUMRATE  = SUM  (R-AXIS). 
SCALED  AT  PI/9  RADI ANS/SeCOND. 

AOSR  = C0EFFA(AgSR)+.5(1-C0EFFA) (SUMR) 

scaled  at  PI/2  RADI ANS/SeCOND (2 ) . 


48895'’+A  yJL  SYStcM  F-QR  AC3C:  MeW  PRO'^RA'I  SHePajIN  Br  eYLlS 


L ADSFABK  AIMO  AuBJOC) 

R0131  CALCJlATE  T-tE  OFFSET  ACCeI  A I i JN^  FOR  THe  U,V-AXE5: 


0132 

REF 

12 

LAST 

572 

20,321^ 

31*952 

1 

CAE 

AUSQ 

0133 

R£F 

5 

LAST 

572 

20 ,322(1 

6 1953 

0 

AD 

AOSR 

013A 

20,3221 

0 OOO6 

1 

EXTEND 

0135 

REF 

1 

20 ,322Z 

7 3312 

0 

MP 

0.70711 

0136 

REF 

1 

20,3223 

5 5 * 9 5 A 

0 

TS 

AOSU 

013/ 

REF 

13 

LAST 

573 

20.322^ 

A i952 

0 

CS 

AOSO 

0138 

REF 

6 

LAST 

573 

20,3225 

6 1953 

0 

AD 

AOSR 

0139 

20,3229 

0 OOO6 

1 

EXTEND 

OlAO 

REF 

2 

LAST 

5 73 

20,3227 

7 3312 

0 

MP 

0.70711 

OUl 

REF 

1 

20,3230 

55*955 

1 

TS 

AOSV 

R01A2  form  terms  for  rate  OERIVATiOM: 


01A3 

OlAA 

REF 

2 

LAST 

01A5 

REF 

lA 

Last 

01A6 

REF 

8 

LAST 

572 

20,3231 

33  061 

0 

20,323Z 

0 OOO6 

1 

573 

567 

20,3233 

20,323A 

? 1952 
55*956 

0 

1 

01A7  rEF  3 last  S73  20,3235>  33  061  0 
01A8  20t3236  3 OOOb  1 
01A9  REF  7 LAST  573  20,323/  7 1953  1 
0150  REF  3 LASI  A92  20,32A0  55'9S7  0 


CAE  ,1-.05K 

extend 

MP  AOSO 

TS  AOSQTERM 

CAE  .1-.05K 

EXTEND 
MP  AOSR 

TS  AOSRTERM 


R0151  SET  JP  AOs  JOB  FOR  THE  rEWEST  OFFSET  ACCELER AT  I D.j  ESTIMATES: 


0152 

REF 

2 

LAST 

A52 

20,32A1 

3 AA60 

1 

CAF 

PKla2' 

0153 

REF 

18 

LAST 

522 

20,32A2 

0 5523 

0 

TC 

NUVAC 

015A 

REF 

15 

LAST 

573 

E6 

EBANK= 

AOSO 

0155 

20 , 32 A3 

3392  ! 

1 

2CADR 

AOSJOF 

C0155 

ref 

1 

20,32AA 

AOOO6 

0 

R0156  SET  ERmsAuLES  FOR  NEx T 2 SECOTO  I^nERVAL: 


0157 

0158 

0159 

0160 
0161 


REF 

REF 


79  LAST  563 
8 LAST  571 


20,32A5 

20,32A6 


3 775A  0 
27*9AA  1 


rEF  1'73  last  568 
REF  5 LAST  572 
REF  A LAST  572 


20,32A/  3 7^61  0 

20.3250  55*921  1 

20.3251  55*922  1 


caf 

ADS 

caf 

TS 

TS 


Ro162  set  JP  F-EXT  waitlist  AOStASK  -or  2 seconds  from  NOW: 


0163  REF  2 last  A58  20,3252  3 3PI6  0 
016A  REF  5 last  128  20,3253  0 5^22  0 
0165  REF  2 last  A58  20,325^  1 3II2  1 


CAF 

TC 

TCF 


two 

KCOFFCTR 

zero 

SUMRATEq 

SUMRAIER 


2SECSDAP 

VARDELAy 

AOSTASK 


Dec  13,  1966  (MAIN)  PAGl  573 
USER*S  OWN  PAGF  NO.  5 E6 

FIRST.  CAlCULATF  AOSU: 

scaled  at  Pl/2  rADIaNS/SEC0N0(2) , 
then,  CALCULATE  AOSV: 

SCALED  AT  Pl/2  rAD I ANS/SECOND ( 2 ) . 

FORM  U-AXIS  RATF  DERIVATION  TERM; 

AOSQTERM  = ( . 1 -.O5K ) AOSU 
SCALED  AT  Pl/A  RADI ANS/SECOND. 

FORM  R-AxiS  rATF  DErivATiOn  TERM: 

AOSRTERM  = ( . 1 - . 05K ) AOSR 
SCALED  at  Pl/A  rADI ANS/SECOND. 

X**  VERIFY  priority.  ***** 

SET  UP  AOS JOB. 


increment  burn  nURAilON  TIMER  By  2 SECS. 
initialize  sums  Of  jLIrATES. 


(StoragE-saving  /(AItlisi  call.) 

RETURNS  here  IN  TWO  SECONDS, 
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L A0ST*\BK  aND  aoGJoB  USER'S  OWN  PAGf-  NO.  t>  E6 


R0166 

S3[;CI  AL 

discontinuity 

SECTION 

For  coeffa 

ON  first  Pass: 

0167 

REF- 

80 

last 

573 

20.3355 

3 7754  0 

ZeROCOeF 

CAF 

TWO 

initialize  burn  duration  timer  TO  TWO 

0168 

REF 

9 

last 

573 

20,3256 

55*644  1 

TS 

kcoefctr 

SECONDS  FOR  THE  DERIVATION  OF  . 

0169 

REF  194 

LAST 

573 

20,3257 

3 7761  0 

CAF 

zero 

FOR  the  first  Pass,  set  coeffa  to  zero 

0170 

REF 

1 

20,3260 

1 3132  0 

TCF 

coeffast 

since  AOS  estimates  are  now  useless. 

R0171 

special 

K AND 

COeEFA 

Settings 

For  burns 

Lasting 

400  Seconds  or  more: 

0172 

0173 

0174 

0175 

0176 

0177 

017a 

0180 

0181 

0182 

0183 

0184 
R0185 

0186 

0187 

0188 

0189 
C0189 

0190 


R£F 

REF 


REF 

REF- 


REF 

REF- 


REF 


LAST  571 


REF  2 LAST  57l 
REF  8 LAST  572 
REF  7 LAST  572 


2 LAST  672 

4 LAST  573 

A LAST  463 

5 LAST  572 

1 


20.3261 

20.3262 

20.3263 

20.3264 

20,326B 

20,326a 

20.3267 

20.3270 

20.3271 

20.3272 

20.3273 


20,327A 

shut-oown  procedure  after  aSc 


3 3311 
55*934 
55*635 


6 OOOO  1 
54  061  1 

3 5226  1 
54  062  1 


1 

KONENOw  extend 

0 

OCA 

DPZFROX 

0 

OXCH 

(1-K) 

1 

CAF 

0.625 

0 

TS 

wFORp 

1 

TS 

WFORQR 

1 

CAF 

0.05 

oouble 

1 S 

caf 

T5 


1 3162  0 TCF 

Ell  loast  detection: 


.1-.05K 

B1T13-1A 

COEFFA 

CUEFFAI 


REF  3 LAST  573 
REF  19  LAST  573 
REF  16  LAST  573 


REF- 

REF 


2 LAST  573 
62  Last  564 


20 .3275 

20.3276 

20.3277 

20.3300 

20.3301 


3 4260  1 

0 5^23  0 

E6 

03327  1 
40006  0 

1 5(45  0 


cdastasc  caf 

TC 


PRIO2A 

NOVAC 


EBANK=  AOSQ 
2CADR  AUSJOB 


TCF 


TASKOVER 


K=l.  SO  i-K  AT  fITHfR  SCALINc  IS  ZERO. 
(1-K)  SCALED  AT  1. 

(1-K)/8  scaled  at  8. 

WFORP  = WFORQR  = K/DT  = K/.l  = ) OK  = 10 
SCALED  AT  16/.SErOND. 


(.I-.05K)  = O.O5 

(DOUBLING  SAVES  CONSTANT  STORAGE.) 
SCALED  AT  1/2.  (VOLATILE  STORAGE.) 

COEFFA  = 0.75 

SCALED  AT  1.  (VOLATILE  STORAGE.) 

GO  begin  OFFSET  ACCfLERATION  ESTIMATE. 


verify  priority.  *** 

SET  Up  FINAL  AOSJOB  FOR  THIS  ApS  bURN. 


END  AOSTASK  CYCl  ING  FOR  THIS  APS  BURN. 


YJL  SYSTEM  FOR  AGC;  NEW  PRO<;)RAM  SMePATIN  BY  EYLES 


U ADSTASk  and  AOSjOB 


R0193  CONSTANTS  F'OR  AOSTASC 


019A 

0195 

0196 

0197 

0198 

0199 

0200 
0201 
0202 
0203 
020A 

C020A 

0205 

0206 
0207 


20*3302 

20.3303 

20,330A 

20.3305 

20.3306 
20,330Y 
20,331*^ 
20,33U 

20.3312 

20.3313 
20,331A 
20,3313 
20,3316 
20,33lV 
20,3320 


DOOiiA  1 0.00125  DEC 

00027  1 O.OOIA  OEC 
OOill  0 O.OOAAA  3EC 


01^63  1 0.06  3EC 
03lA6  1 0.1  DEC 
12000  1 0,3125  OEC 
I6O5I  1 0.A4  OEC 
24000  1 0.625  OEC 


26501  1 0,70711  DEC 

77I6O  0 DEC-399  dec 

OOOOO  1 DPZEROX  2DEC 
00000  1 

00310  0 2SECSDAP  DEC 
20OOO  0 (l-K)S  DEC 
02O0O  0 DEC 


DEC  li<,  I966  (MAIN)  PAGE  575 


USER'S  OwN  PAGE  NO.  7 E6 


0.00125 

0.0014 

0.00444 

0.05 

0.1 

0.3125 

0.44 

0.625 

0.70711 

-399 

0 

200 

0.5 

0.0625 


^8895AA  YJL  system  FuK  AGC;  ImLW  PRqCiRAM  SMePATIN  BY  EYLfc.S 


Dec  lA.  1966  (MAIN)  page  576 


L 


ADSTASN  AND  AOSJoB 


USER'S  OWN  PaG[:  no.  B 


E6 


P0300  PROGRAM  NAMf  : WCHANGER 


MOD.  NO.  0 DATE;  DECEMBER  9,  1966 


0301  REF  63  LAST  57A 


20,3321  1 5TAb  0 


TCF  TASKOVER 


Ro302  THIB  program  IS  A WAITLISt  TA5<  wNICH  IS  INITIATE^  FRoM  tHe  StARtDAP  SeCtION  oF  DAPIDLeh,  T'f  IS  eXECUTfD 

Ro3oa  between  the  first  q,r-axes  Tsrjst  and  the  Second  p-axis  tsRupt  (i.e.  18o  ms  after  starthap).  the  purpose  of 

R0306  WCHANGeF  is  TO  ReSeT  T He  variable  < (IN  ALL  ITS  FORMS)  FOR  THe  RATE  DERIVATION  FROM  i jn  0.5.  (IT  ALSO  SeTS  tHE 

R0308  nominal  LM  CAP  DT  TO  100  MS.) 

R0309  calling  sequence  (FROM  STARTOAP): 

A0310  L -1  CAF  180MS 

A0311  L TC  WAITLIST 

A0312  EBANKs  WFOROR 

A0313  L +1  2CADR  WCHANGER 

A031A  L +2  (3BC0N) 

A0315  L +3  (RETURN) 

Ro3i6  subroutines  called:  achmnge*  normal  exit:  TASiAOVeR. 

RG317  INPUT:  none.  ALaRM/ABORT  EXITS:  NONE. 

R0318  output:  WFORP.WFORQR’ ( 1-K)  « ( I'O /B. 

0319  REF  8 LAST  A6A  20,3322  0 5^07  0 WCHANGER  TC  IBNkCALL  (WAITLIST  TASk  iS  IN  T3HUPT.) 

0320  REF  1 20,3323  a0106  1 FCADR  WCHANGE  SUBROUTINE  DOES  SETTING  TO  SAVE  SPACE. 

0321  REF  6A  LAST  576  20,332A  1 57A5  O TCF  TASKOVER  END  THIS  TASK. 


^8895i,A  YJL  SYStl'-'  ^OR  aGC  : PROGRAM  SHt^PATlM  BY  ^YLlS 


1^*  I'^bb  (Main)  page  57V 


L 

POAOO 

Roaoi 

R0A02 

R0A03 


0A031 

0A032 

OAO4 

0A05 

0A06 

0407 

0408 

0409 

0410 

0411 

0412 

04125 

0413 

0414 

0415 

0416 

0417 

0418 

0419 

0420 

0421 

0422 

0423 

0424 

0425 
A0426 

0427 

0428 

0429 

0430 

0431 
04315 

0432 

0433 

0434 

0435 
04351 


AOSlAbK  and  moSJOB  USER'S  OWN  PAGf  NO.  9 E6 

1\)ERP0LN  COYPUTLS  IXX»  IYY»  12Z»  AfvjD*  IN  DESCENT*  L»PVT-CG. 

After  t^e  inertias  are  computed*  'hBy  are  used  to  compute  nfw  values  of 

IJACC,  IJACCU*  IJACCR,  IJACCj,  IJACCV  AND  1/2JTSP, 

InJERPDLY  exits  by  ....  TCP  LNDDFjUD 


REE  6 LAST  539 
REE  30  LAST  537 


REF  273  LAST  568 
REF  27  LAST  542 
REF  15  LAST  513 
REF  1 

rEF  81  LAST  574 
REF  1 


REF  2 LAST  577 

REF  1 

REF  3 LAST  577 

REF  1 

REF  4 LAST  577 

REF  1 

REF  2 LAST  577 

REF  5 Last  577 

REF  1 

ref  2 last  577 

REF  7 LAST  577 


REF  3 last  577 
REF  1 
REF  1 
REF  1 


REF  1 

REF  8 LAST  577 
REF  7 LAS  I 539 


REF  1 


26*2611 


3ANk  26 


E6 

26.2611  3 7(54  0 

26.2612  0 0006  1 

26,2613  02  U30  0 

26,26lA  10  000  0 

26,26i;>  4 6301  1 

2o,26l6  6 6276  1 

26,261 > 55'P20  0 


EBANK=  IXX 

INLRPOLY  CA  B1T2 

extend 

RAND  30 

CCS  A 

CS  THRFE 

AD  SIX 

TS  INERCTRX 


26.2620  3 7(54  0 CAp  TwO 

26.2621  55*917  1 STCTR  TS  INERCTR 


2622 

2623 


0 0U06  1 
27*920  0 


EXTEND 

DIM  INERCTRX 


26.2624  3 1^32  1 STCTRI 

26.2625  0 0006  1 

26.2629  5 1920  1 

26,262(  7 2(20  1 

26.2630  51*920  1 

2b, 2631  6 2 (27  1 

2b,263<^  0 0O06  1 

26,2633  7 1332  0 


CA  mass 

EXTEND 

INDEX  INERCTRX 
MP  INERCONC 

index  INERCTRX 
AD  INERCUNB 

EXTEND 
MP  MASS 


26,2634 
26  * 2635 
26,2639 
26 ,2637 


26,2640 
26,2  64 1 
2b  ,2642 
26,2643 


26,2644 
26,2  64  5 
26 ,2646 
2o  ,264  ( 
26  *2650 


26 

26 


2b5l 

2651; 


51*620  1 
6 2(36  1 

51*617  0 

55*A52  1 


11*617  1 
1 29Z1  1 
1 2644  1 
1 2(11  0 

0 0O06  1 
3 2(45  0 
0 0006  1 
11*452  1 
55*912  1 

0 OOOb  1 
3 2(47  1 


INDEX  InLRCTRX 
AD  INERCONA 

index  INERCTR 
TS  IXX 


CCS  INERCTR 

TCF  STCTR 

TCF  COMMEUS 

TCF  LRESC 

CDMMEQS  EXTEND 

DCA  TORKJET 

EXTEND 
DV  IXX 

IS  IJACC 


EXTEND 

DCA  TuRKJETl 


CHOOSES  ASCENT  OR  DESCENT  COeF 


J=2*l*0  FOR  I7Z,IYY,IxX 

JX:5,4,3  UR  2,1,0  FoR  Z,Y,X  COEF 
I N kgs  ( + 15) 


I (J)=(C(JX)MASS+B(JX) )MASS+A(JX)  (+18) 
I (-1 ) =L*PVT-CG  (+6) 

COUNTER  2*l*0*-l 


500  FI-LBS.  (+16)  Pi 
SCALED  BY  PI/4 


550  Fl-LBS.  (+l6)  Pi 


48895-^A  YJL  SYSilM  t- Ok  AGC ; NEW  S^ePATIN  BY  EYLeS 


L 

ADS 

1 ask 

and 

aosjob 

0A36 

26,2653 

0A37 

REF 

7 

LAS! 

539 

26,265A 

0A38 

RE) 

3 

LAST 

552 

26 ' 2656 

0A39 

26,2656 

OAAO 

REF 

2 

LAST 

577 

26 ,2657 

OAAl 

26,2660 

0 AA2 

REF 

7 

LAST 

5 AO 

26,2661 

0AA3 

REF- 

3 

LAST 

552 

26*266^ 

0AA5 

REF 

A 

Last 

578 

26,2663 

0AA6 

2 6 , 266 A 

0AA7 

REF 

1 

26,2  666 

0AA8 

R;:.F 

1 

26 ,2666 

0AA9 

RbF 

1 

26 ,2667 

0A50 

REF 

1 

26,2670 

0A51 

REF 

10 

LAST 

539 

26,2671 

0A52 

REF 

9 

LAST 

577 

26 '267^ 

0A53 

26,2673 

0A5A 

REF 

1 1 

LASi 

578 

26,267^ 

0A55 

26,2676 

0A56 

REF 

12 

Last 

578 

26,2676 

0A57 

ref 

31 

LAST 

577 

26,267'^ 

0A58 

26,2700 

0A59 

26,2701 

0A60 

REF 

27A 

LAST 

577 

26,2702 

0A61 

REF 

1 

26,2703 

0A62 

REF 

59 

last 

A52 

26,270A 

0 OOO6 

1 

EXTEND 

11'  A53 
55*613 

0 

0 

DV 

TS 

I Y Y 

1 JACCQ 

0 0OO6 

1 

Extend 

3 2FA7 

1 

DCA 

TORKJETl 

0 0006 

1 

EXTEND 

11  * As A 

1 

DV 

I ZZ 

55'61A 

1 

TS 

IJACCR 

6 1613 

1 

AD 

1 jACCq 

0 OOO6 

1 

EXTEND 

■1  2610 
55'615 

0 

MP 

0.35356 

0 

T S 

1 J A ecu 

55'616 

0 

TS 

IJACCV 

3 2('50 

1 

CAP 

AJTORK 

55 ' AAI 

0 

TS 

1/2JTSP 

3 1 * A52 

0 

CAE 

1 XX 

0 0006 

1 

extend 

11  'A41 

0 

DV 

1/2JTSP 

6 oooo 

1 

DOUBLE 

55*aa1 

0 

TS 

1/2JTSP 

— A- 

a f ' an 

u 

C«F 

B1  1 2 

0 0006 

1 

EXTEND 

02  030 
10  000 

0 

RAND 

30 

0 

CCS 

A 

1 2(05 

0 

TCF 

DES 

1 5605 

0 

TCF 

ENDOFJOB 

0A63 

REF 

1 A6 

LAST 

568 

26 '2706 

0A6A 

ref 

A 

LAST 

577 

26,2706 

0A65 

REF 

6 

LAST 

577 

26,2707 

0A66 

REF 

1 

26,2710 

0A67  REF  2 last  A66  26,27ll 


0A68 

26,2712 

0A69 

0A70 

0A71 

REF- 

3 

LAST 

578 

26,2713 

26,271A 

26,2716 

0A72 

REF 

60 

LAST 

578 

26*2716 

A Itbb  0 DES  CS  one 

5S'bl7  1 is  INERcTR 

S5'P20  0 TS  INERCTRX 

1 2P2A  1 TCP  STCTRl 

3 1^51  0 LRESC  CA  L,PVT-CG 

fc  0000  1 DOUBLE 

b oooo  1 double 

6 0000  1 DOUBLE 

SS'ASl  1 TS  L,PVT-CG 

1 560s  0 TCF  ENDOFJOB 


0A73 

0A7A 

0A75 

0A76 

0A77 


26,27n  30^26  1 dec 

26.2720  00353  1 I MERCONC  DEC 

26.2721  52653  0 DEC 

26.2722  52136  i DEC 

26.2723  01602  1 DEC 


0.7552A 

0.01A32 

-0.66136 

-0.68173 

0.05092 


dec  U,  lg66  (MAIN)  PAGE  57b 


USER'S  OWN  PAGF  NO-  10 

SCALED  BY  PI/4 

550  FT-LBS.  (+l6)  Pi 

SCALED  BY  Pl/i, 

.70711  SCALED  By  (+1) 

scaled  by  PI/A 


SCALED  BY  1/PI  (+8) 


COMPUTE  L,PVT-Cf,  IF  IN  DESCENT 


SCALED  BY  (+6) 


SCALED  BY  (+3) 


L 

XD 

YD 

ZD 

XA 


E6 


48895AA  YJL  SYSTEM  f OR  AGC. : NEW  RROO^AM  S^EPATIN  BY  EYLeS 


dec  1^,  1966  (MAIM)  PAGE  579 


L ADSTASk  and  AOSJOB 


USER'S  OwN  pAoF  NO.  11 


E6 


0A78 

26,2724 

53O6O 

1 

DEC 

-0,65325 

YA 

0479 

26, 272s 

54t>67 

1 

DEC 

-0,59815 

ZA 

0480 

26,2726 

52465 

1 

OEC 

-0,67640 

L 

0481 

26,272? 

05^46 

0 

I NERCONB 

DEC 

0 , 17030 

XD 

0482 

26,2730 

25O66 

0 

OEC 

0,65955 

YD 

0483 

26,2731 

24l31 

1 

OEC 

0.630A1 

ZD 

0484 

26,2732 

05313 

0 

OEC 

0,18033 

XA 

0485 

26,2733 

06433 

0 

OEC 

0.20478 

YA 

0486 

26,2734 

13326 

1 

OEC 

0.36855 

ZA 

0487 

26,2733 

06-S24 

1 

OEC 

0,20044 

L 

0488 

26,2736 

OOI57 

1 

INERCONA 

OEC 

0.00676 

XD 

0489 

26,273V 

7 6031 

1 

OEC 

-0.06090 

YD 

0490 

26,2740 

7 6456 

1 

OEC 

-0 , 04403 

ZD 

0491 

26,274! 

77370 

0 

OEC 

-0,00435 

XA 

0492 

26,2742 

77743 

1 

OEC 

-0,00170 

YA 

0493 

26,2743 

7 7442 

0 

OEC 

-0,02132 

ZA 

049^, 

26*2744 

000^,7 

1 

TORKJET 

2DEC 

0.002428512 

C0494 

26,2743 

31 173 

0 

0495 

26,2746 

00053 

1 

TORKJETl 

2DEC 

0.002671365 

C0495 

26,2747 

304A1 

0 

0496 

26,2750 

23  712 

1 

4JT0RK 

OEC 

.62170 

48895^A  yJL  f OR  Agc:  rROGRAy  SHtpATiN  3y  EylES 


OEc  13*  1966  (mAIN)  pAGE  580 


L AD&lASK  AND  AObJOB  USER'S  OvJN  PAGp  NO.  £6 

P0500  Program  n^nb:  aosjOb  iviut;,  ^o,  o date;  decembek  2,  1966 


R0501  PROGRAM  DlSIGn  BY!  RICHARD  D.  GOSP  (MIT/IL) 


Ro5o2  I MPLE.MENTAT  ion  BY! 


JONATHAN 


0. 


ADDeLStON  (ADAMS  ASSOCIATES) 


R0503 

R0505 

R0507 

R050b 

Rosio 

R0bl2 


THE 


PROGRAM 

1. 

2. 

3. 

A. 


IS  AN  EXECUTIVE 

the  inverses  of 
combinations  of 

THE  inverses  of 
the  initial  IimVE 
THE  NJ  FLAGS  TO 


J3B  which  calculates  THe  FOLLOWING  QUANTITIES  FOR  tH£  LM  OAP  T5RUPt  PROGRAMS; 

THE  Ntf  accelerations  ABOUT  ALL  AXES  (Q,R,U,V),  IN  ALL  DIRECTIONS  (+/-),  AND  ALL 
JETS  (2/A  FOR  Q,R  AND  1/2  FOR  U,V), 

THE  MINIMUM  accelerations  FOR  THE  URGENCY  AND  TJeILAW  COMPUTATION,  DURING  AdS  BURNS, 

RSe  net  accelerations  USeD  For  tHe  urgency  computation,  during  aPS  burns. 

Require  mandatory  jet  acceleration  during  aps  burns. 


ROSIA  CALLING  SEGoENCE! 


subroutines  called:  invacc. 


A0515 

A0516 

A0517 

A05ie 

A0519 

A0520 


L -1  CAF  PRI02A 

L TC  NoVAC 

£BANIC=  AOSQ 

L +1  2CADR  AoSJOB 

L +2  (3BCON) 

L +3  (RETURN) 


Ro521  normal  exit:  encufjob*  alarm/abort  exits:  none* 

R0522  INPUT : A0S0,A0SR,A0SU,A0SV,1JACCQ*1JACCR*1JACCU,1 JACCV*APSGOING/DAPBOOLS. 
R052A  debris:  none* 


48895^A 


L 

0525 

0526 

0527 

0528 

R0529 

0&30 

0531 

R0532 

0533 

053A 

0535 

R0536 

R0537 

R0538 

R0539 

R05A0 

R05A1 

05A2 
05A3 
05  AA 
05A  5 
05A6 

0547 

0548 

0549 

0550 

R0552 

R0553 

R0554 

R0555 

R0556 

0557 

0560 

0561 

R0562 

R0563 

R0564 

R05fa5 

R0566 

R0567 


yjL  SYSihM  lOR  AGC;  IMhW  PROGRAM  SHtFAlIN  SY  EYLfcS 


dec  1^,  1966  (MAIM)  PAGE  581 


A0S1A5K  AND  AOSJOB 


USER'S  OWN  PAGf  no.  13 


E6 


RcF  17  LAST  574 


20*3325 

E6 


3AN<  20 
EBANK=  AOSQ 


20.3325  73  ^31  0 -.02R/S2  DEC  -.12732  -.02  RAD  I ANS/SEr OND ( 2 ) SCALED  AT  PI/2 

20.3326  11642  1 AccfIFTy  DEc  0.30619  .5(50)  SEc(2)/RaD  SfALED  AT  2(+8)/Pl. 


SET  UP  LOOP  FOR  FOUR  AXES  (iN  HE  ORDER:  Y.U.R.O): 

ref  i9  LAST  5i4  20.332^  3 i AOSJOB  CAF  FOUR  "JOBAXeS"  IS  USfD  TO  PICK  UP  ONe  OF  FOUR 

REF  1 2O.333O  54  I44  1 iNvLOOp  TS  JObAxES  ADJACENT  REGISTERS,  ALSO  TO  COUmT  LOOp. 

SET  UP  "tabplace"  to  store  i/meiauc  table: 


20,333!  0 0006  1 

extend 

tabplace  = 4(JOrAxEs) 

REF 

20  LAST 

581  20,3332  7 7153  0 

VIP 

FOUR 

SINCE  there  are  FOUR  ENTRIES  PER 

REF 

1 

20,3333  22  l46  1 

LXCH 

TABPLACE 

2 

(IJACC  ) + AOS  - 0,02 

2 

RADIANS/SeCOND 

greater 

than 

ZERO 

G , R 0 , R 

OR 

2 

IJACC  + AOS  - 0.02 

U.V  J . V 

RADIANS/SeCOND 

greater 

than 

ZERO 

REF  2 Last  sei 

RtF  5 last  578 

REF  1 

REF  3 LAST  581 

REF  IB  last  581 

REF  1 

REF  1 


20,3334  50  ^44  0 

20,333s  31*613  1 

20.3336  54  150  1 

20.3337  50  U4  0 

20.3340  6 1652  1 

20.3341  54  151  0 

20.3342  6 3325  0 

20.3343  0 OOO6  1 


index  JOBAXeS  the  indexed  PiCk-UP  OF  Jet  accelerations 

CAE  IJACCO  UsEs  ThE  FOllOWtNG  hAPPY  COINCIDENCE; 

TS  TEMPACC  IJACCU  AND  IJACCV  ARE  SCALED  AT  PI/2  AS 

INDEX  JOBAXES  ARE  AOSU  AND  AOSV.  UACCO  AND  1 JACCR 

AD  AoSO  ARE  SCALED  AT  Pl/4  AND  THEREFORE  ARE 

TS  TEMPNET  EQUIVALENT  TO  2(1JACCQ)  AND  2(1JACCR) 

AD  -,02R/S2  scaled  AT  PI/2  AS  ARE  AOSQ  AND  AOSR. 

EXTEND  -.02R/S2  IS  -0.02  R aD I ANS/SECOND ( 2 ) .P 1 /2 


REF 


20.3344  6 3634  0 3ZMF  FlFTYl  (BRANCH  FOR  CONSTANT  VALUE  OF  INVERSE.) 


OR 


l/NET+2 

0 . R 

1/NET+l 

U.V 


l/(  2(1J^CC  ) + AOS  ) 

0 , R 0 , R 

l/(  IJACC  + AOS  ) 

U.V  U.V 


REF 

REF 

REF 


1 

2 Last  581 
18  LAST  539 


20.3345  0 3644  1 TC  INVACC 

20.3346  50  146  1 FIFTYIR  INDEX  TABPLACE 

20.3347  55*670  0 TS  1/NET+2Q 


scaled  AT  2(+8)/PI  SEC0NDS(2)/RADIAN. 


OR 


2(ljACC  ) - AOS  _ 0.02  RADIANS/SeCOND  GREATER  THAN  ZERO 
Q,k  0,R 

2 

UACC  - AOS  - 0.02  RADIANS/SeCOND  GREATER  THAN  ZERO 
U.V  J , V 


4b895'^A  YJL  SVSILM  hOR  AGC:  Nfc^.  PROtiRAVi  S^^tPATlN  BY  tYLtS 


DEC  1:^,  1966  (MAIN)  PAGE  582 


L A:)S1A5K  and  AOSJOb 


0568 

0569 

0570 

0571 

0572 

0573 
057A 
0575 


REF  4 last  581 
REE  19  last  581 
REF  1 

REF  2 last  581 
REF  2 LAST  581 
REf'  2 last  581 

REF  1 


26.3350  50  ^44  0 

20.3351  4 1652  0 

20.3352  54  l47  1 

20,3356  6 0150  0 

20»3354  54  151  0 

20.3355  6 3525  0 

20.3356  0 0006  1 

20.3357  6 3636  1 


INDEX  JOBAXES 

CS  AOSQ 

]S  TEMPAOS 

AD  TEMPACC 

TS  TeMPNET 

AD  -.02R/S2 

EXTEND 

3ZMF  FIFTY2 


R0576 

l/NET-2 

R0577 

0 * R 

R0578 

OR 

R0579 

R0580 

1/NET-l 

U,V 

l/(  2(1J«CC  ) - AOS  ) 

0,R  Q,R 

1/ ( IJACL  - ADS  ) 
U,V  U,V 


USER'S  OWN  PaGF  no.  1A  E6 

THIS  SECTION  USpB  THE  INDEXING  TRICKS  OF 
THE  FIRST  part  (AbOvE),  BUT  USES  THE 
temporary  Locations  as  follows: 

"TEMPAOS"  saves  -AOS  FOR  THIS  AXIS. 
"TEMPACC"  HAS  THE  JfT  ACCELERATION. 

"TEmpneT"  savfs  (jEtacc-aoS)  for  DENOm. 
-.02R/52  IS  -0.02  RADIANS/SEC0ND(2) ,Pl/2 
(BRANCH  FOR  CONSTANT  VALUE  OF  INVERSE.) 


0581 

0584 

0585 


REF 

D r*  C 

2 

LAST 

1 /i  C T 

501 

20,3360 

0 3544 

1 

1 

1 

TC 

Ctctvod  iMrxfT^/ 

INVACC 

Kcr 

REF 

3 

2 

L M o 1 

Last 

581 

539 

20.3361 

20.3362 

5 D 1 46 
55*672 

r i t"  1 Y i NUtX 

TS 

1 AdPLALc 
1/NET-2Q 

SCALED  AT  2(+8)/Pl  SECONDS ( 2 ) /RAD  I AN . 

R0586 

R0587 

R0588 

R0589 

R0590 


OR 


I/NET-4 

Q , R 

l/NEr-2 

U,V 


1/  ( 4(1ACC  - ADS  ) 
Q,R  Q.R 

1/  ( 2 ( 1 JACC  ) - AOS  ) 
U,V  U,V 


0591 

REF 

3 

LAST 

582 

20,3363 

3D  150 

0 

CAE 

TEMPACC 

0592 

20,3364 

6 OOOO 

1 

DOUBLE 

0593 

REF 

4 

LAST 

582 

20,336S 

54  150 

1 

TS 

TEMPACC 

0594 

REF 

2 

LAST 

582 

2U , 3366 

6 0 1 4 7 

0 

AD 

TeMPAOS 

0595 

REF 

3 

LAST 

582 

20,3367 

54  151 

0 

T5 

TEMPNET 

0596 

REF 

3 

LAST 

582 

20 . 3370 

0 3644 

1 

TC 

INVACC 

0599 

REF 

4 

LAST 

582 

20,3371 

5'J  146 

1 

INDEX 

TABPLACE 

0600 

REF 

2 

LAST 

539 

20,3372 

55*673 

0 

TS 

1/NET-4Q 

FIRST,  from  2(1.IACCQ,R)  FORM  4(lJACCQ,R) 
OR  from  IJACCU.V  FORM  2(lJACCU,V)  AND 
SAVE  FOR  NEXT  INVERSE  CALCULATION. 

THEN,  COMPUTE  EITHER  4 ( 1 JACCo , R ) -AOSQ ,R 
OR  2 ( 1JACCU,V) -A0SU,V  SCALED  AT  PI/2. 


SCALED  AT  2 ( + 8) /PI  SECONDS (2 ) /RAD  I AN 


488954A 

YJL 

SYS  1 

EM  FOR  AGC: 

NEW  PROURAvi  sHePATIN  BY  EYLLS 

L 

AJSTABk. 

and 

AoSjOB 

P060I 

i / IN  t 1 + H 

= 1/  K h \ L 

+ a OS  ) 

R0602 

Q, 

R 

U 

,R  0,R 

R0603 

OR 

R0604 

i/NL\ 

= 1/  ( 2 

i 1 jacc 

) + AOS  ) 

R0605 

U, 

V 

u 

,V  U,V 

0606 

REF 

3 

last 

582 

20,3373 

4 OI47 

1 

cs 

tempaos 

0607 

rsf 

5 

LAST 

582 

20,337A 

6 OI5O 

0 

ad 

TEMPACC 

0608 

ref 

4 

LAST 

582 

20,3373 

54  1 5 1 

0 

TS 

TEMPNET 

0609 

REF 

4 

LAST 

582 

20 ,337P 

0 3044 

1 

TC 

INVACC 

0610 

REF 

5 

last 

582 

20,3377 

53  146 

1 

INDEX 

TaBPLACE 

0611 

REF 

2 

LAST 

539 

20 ,3400 

55'P71 

1 

TS 

1 / Net +40 

R0612 

TEST 

for 

end 

OF  LOOP 

: 

0613 

REF 

5 

LAST 

582 

20 , 34O 1 

13  144 

1 

CCS 

JOBAXES 

0614 

REF 

1 

20,3402 

1 3330 

0 

TCF 

INVLOOP 

R0615 

TEST 

for 

ASCENT  PROPULSION  SY 

STEM  burn; 

0616  R£F  6 LASl  671  20,3A03  3 7^46  0 

0617  REF  52  LAST  571  2u,340A  7 0U77  0 

0618  REF  275  LAST  578  2U,3405  13  OqO  0 

0619  REF  1 20,3400  1 3^14  1 


R0620 

FILL 

IN 

desc 

ENT  burn  ok  CoA^T 

VALUES 

QUIC<LY: 

0621 

REF 

IR 

LAST 

58l 

20 '340  ^ 

3i  '^>70 

1 

CAE 

I/NET+2Q 

0622 

REF 

4 

LAST 

507 

2o,34lU 

55'  ai 

0 

[S 

I/ACCO 

0623 

REF 

3 

LAST 

539 

20 , 34 1 1 

3 I ' 974 

0 

CAE 

I /NET+2R 

0624 

REF 

1 

20,3412 

55'  ^2 

0 

TS 

1/ACCR 

1 5905 

0625 

ref 

6 I 

LAST 

578 

20  »34 w 

0 

1 CF 

Ef\j00F  JOB 

CAF  APSGOING 

VIASK  DAPBOOLS 

CCS  A 

TCF  ASCJOB 


DFC  13,  lgD6  (MAIU)  PAGE  58S 


USER'S  OwN  pAuF  NO.  15  t6 


first,  compute  fITHfR  4(1JACCQ,R) +A05Q,R 
Or  2 (1JACCU,V) +a05U,V  AiND  SAVE  fOr  THE 
DIVISION  (SCALEn  AT  PI/2  RADIANS/SECOND) 


SCALED  At  2(  + b)/PI  R AD  I ANS ( 2 ) / SpCOND. 


IF  "JOBAXES"  PN7,  Continue, 
IF  "JOBAXES"  7EfO,  STOP. 


IF  LM  IS  IN  COAST  OR  IN  A DESCENT  BURN, 

then  the  aosjob  IS  trivial  from  here 

AND  this  test  RfDUCfS  tHe  COMPUiATION 

time  in  those  cases. 


for  Q-AXIS  urgency. 
FOR  R-AXIS  urgency. 


EnU  this  iTErATjOm  of  aosjob. 


^88954A  Y jL  SySTEi'M  AqC  : ■'JEW  pRO(j-(Avi  S^^EpATIN  by  EyLES 


Dec  iBt  1966  (main)  page  ssa 


L 

P0626 

0627 

0628 

0629 

0630 

0631 

0632 

R0633 

R0639 

0635 

0636 

0637 

0638 

0639 

0640 

0641 

0642 

0643 

R0644 

R0645 

0646 

0647 

0648 

R0649 

R0651 

0652 

0653 

0654 

0655 

0656 

0657 

R0658 

0660 

0661 
0662 

R0663 

R0664 

0665 

0666 


AjSfAbK  AND  AoEJOfa  USER'S  QwN  PAUr  MO.  16  E6 

IM  ASCEiJ  BjKN»  SO  set  UP  Q'R-A)^ES  LOOP: 

REF  147  last  578  20,3414  3 7^55  1 ASCJOB  CAF  ONE 

REF  6 LAST  583  20,34lij  54  ^44  1 QRJOB  TS  JUBAXES 

20,34lfo  6 0000  1 DOUBLE 

REF  1 20*34l7  54  US  0 TS  NJPLACE 

20,3420  6 OOOO  1 DOubLE 

REF  6 LAST  583  20,3421  54  l46  0 TS  TABPLACE 

TEST  ABVALfAOS  ) - 0.02  RAD  I A MS'' SECOND  ( 2 ) GREATER  THAN  ZERO: 

UtR 

REF  7 last  584  20,342^1  5D  l44  0 

REF  20  LAST  582  20,3423  11*652  0 

REF  148  last  584  20,3424  7755  i 

20,3423  1 3^27  1 

REF  149  LAST  584  20,3426  6 7755  1 

REF  5 last  583  20,3427  54  l51  0 

REF  3 LAST  582  20,343^  6 3325  0 

20,3431  0 0006  1 

REF  1 20,3432  6 3640  0 

CALCULATE  1/AMlN  = 1/AHVAl(ADS  ): 

Q.R  U,R 

REF  5 last  583  20,3433  0 3644  1 TC  INVACC  (USE  SUBROUTINE  FOR  INVERSE.) 

REF  a LAST  584  20043''  53  144  0 FIFTY3R  INDEX  JOBAXES 

REf  5 LAST  514  20,3435  55*713  1 TS  1/AmINQ  SAVE  FOR  uSt  BY  URGENCY  CALCULATIONS. 

TEST  2(1JACC  ) - ABvALIAO^  ) - 0.02  R AD  I ANS/ SECOND ( 2 ) GREATER  THAN  ZERO: 

Q.R  3iR 

REF  6 LASI  584  20*3436  4 0I5I  0 CS  TeMPNET 

REf  4 last  584  20,3a37  6 3325  0 AD  -.02R/S2 

REF  9 LAST  584  20,3440  53  l44  0 INDEX  JUBAXES 

REF  6 LAST  58l  20,3441  6 1613  1 AD  IJACCQ 

20*344'2  0 0006  1 EXTEND 

REf  1 20,3443  6 3R03  1 3ZMF  Override 

SET  FLAo  not  TO  REQUeSt  MaNDaiDRY  FOUR  JET  OPERATION  FOR  +Q,+R  ROTATION  DURING  THIS  APS  BURN  (FUR  NOw ) : 

ref  i95  last  574  20*3'*44  3 7(61  0 CAF  ZERO  NJ  = 0 ALLOWS  T'.E  URGENCY  FUNCTIONS  TO 

REF  2 LAST  584  20,3445  5D  l45  1 INDEX  NjpLACE  ACTUALLY  SELECT  2 JET  ROTATION  AS  THE 

REF  9 LAST  514  20,3446  55*660  1 TS  NJ+Q  OPTIMAL  POLICY. 

TEST  SIGN (ALS  ) : 

0,R 

REF  10  LAST  584  20*3447  53  l44  0 INDEX  JOBAXES  THE  SIGN  OF  A050*R  DETERMINES  TiE  RATIO 

REF  21  LAST  584  20,3450  31*652  1 CAE  AOSq  TO  BE  COMPUTED  AS  THE  CORREClIOT  FACTOR 


"TEMPNET"  IS  ABvAL (AOSQ*R) . 

-0.02  RAD1ANS/SfcOND(2) . 

"IJACCQ, R"  SCALfD  At  PI/4  RAD/5eC(2)  ARE 
2(1JACCQ*R)  SCAI  ED  AT  Pl/2  RaD/SEC(2). 


INDEX  JOBAXES  FORM  ABVAL (AOS  ) AND  SAVE  FOR  INVACC. 

CCS  AOSQ  Q.R 

AD  ONE 

TCF  +2 

AD  ONE 

IS  TEMPNET 

AD  -.02R/S2  -0.02  RAD  1 ANS/Sf COND  ( 2 ) AT  Pi/2. 

EXTEND 

3ZMF  FiFTY3  (BRANCH  FoR  CONSTANT  VALUE  OF  INVERSE.) 


SET  UP  the  table  INDICES: 

AOS  table  uses  "JOBAXES"  (ADJACENT). 

NJ  table  USES  "NJPLACE"  (ONE  APART). 
net  table  USES  I'TABpLACE"  (THREE  ApART). 


‘V8895AA  YJL  SYSTEM  FOR  AGC ; .NE*  PRO^^RAM  S^^EPAIlN  3Y  EYLeS 


Dec  n,  1966  (MAIN)  page  sas 


L AOSlASK  AKO  AqSjOB 


USER'S  OWN  page  no.  U 


E6 


0667 

20,3A5l 

0 0006  1 

extend 

0668 

REF 

1 

20,3A52 

6 3A67  1 

3ZMF  URGRAT2 

R0669  FIRST  CASE  FOR  URGENCY  RATIO: 


0670 

REF 

/ 

LAST 

58A 

2J,3a53 

50  lA6 

1 URGRATl 

index 

TABPLACE 

0671 

REF 

3 

LAST 

582 

20,3A5A 

31*672 
50  lAA 

0 

CAE 

1/NET-2Q 

0672 

REF 

1 1 

LAST 

58A 

20 , 3 A 5 3 

0 

1 ndex 

J 0 0 A X E 3 

0673 

REF 

5 

LAST 

583 

20 ,3A56 

55*  711 

0 

TS 

1/ACCq 

IN  the  urgency  function  calculaiion  and 

ALSO  specifies  tHE  CORRECT  NJ  VaLUES. 


CHOOSE  THE  -2  JP T Nf T ACCELERATION 

inverse  for  use  in  urgency  Computation. 


067A  REF  3 LAST  585  2U,3A5/  50  Hb  1 INDEX  TABPLACE 

0675  REF  20  LAST  583  20,3A60  31'e>70  1 CAE  1/NET  + 2Q  1/NET  + 20.R 

0676  20*3A6l  0 0U06  1 EXTEND  RATIO  

0677  REf  9 last  585  20,3A62  5 0U6  1 INpEx  TABPLACE  1/NET-2o.R 

0678  REF  A LAST  585  20,3A63  Ut6?2  i OV  1/NET-2Q 

0679  REF  12  LASI  585  20,3A6A  50  IaA  0 INDEX  JUBAXES 

0680  REF  A LAST  509  20,3A65  55' a7  0 TS  URGRATQ 


0681  rEF  1 20,3A66  1 3^26  1 TCF  SwITnJS  GO  TO  sET  NJS. 

R0682  SECOND  CASE  FOR  URGENCY  RATIo: 


0683  REF  10  LAST  585  20*3A67 

068A  REF  21  LAST  585  20,3A70 

0685  REF  13  LAST  585  20.3A71 

0686  REF  6 LAST  585  20,3A72 

0687  rEF  U LASI  585  20.3A73 

0688  REF  5 LAST  585  20.3A7A 

0689  20.3A75 

0690  REF  12  LAST  585  20,3A76 


53  1A6 

1 

URGRAT2  index 

TABPLACE 

31*870 

1 

CAE 

1/NET+2Q 

5 0 1 AA 

0 

I NDEX 

JOBAXES 

55*711 

0 

TS 

1/ACCU 

50  lA6 

1 

INDEX 

TABPLACE 

31 '072 

0 

CAE 

I/NFT-20 

0 OOO6 

5 0lA6 

1 

1 

EXTEND 

INDEX 

TABPLACE 

0691  REF  22  LAST  585  20»3a7'  11'P70  0 OV  1/NET+2Q 

0692  REF  lA  last  585  20,3500  50  lAA  0 INuEX  JUBAXES 

0693  REF  5 LASI  585  20,3501  55' 117  0 TS  URGRATQ 


CHOOSE  the  *2  JfT  NeT  ACCELERATION 
INVERSE  FOR  USE  IN  URCENCy  COMPUTATION. 


RATIO 


1/NET-2r,R 


1/NET+20,R 


069a  REF  1 20,3502  1 355I  1 TCF  NXTNJZER  GO  TO  SET  NJS. 

R0695  Set  Flag  to  indicate  mandatory  JSE  of  four  jets  to  fight  THe  offset  ACCELERATION; 

0697  20,3503  O OOOA  0 OVERRIDE  INHINT  PREVENT  POSSIBLY  ePHEMeRAL  MANDATORY  NJ 

A0698  Setting  from  affecting  jet  Selection. 


0699 

0700 

REF 

REf 

D Z C 

150  LAST 

3 last 

58A 

58A 

20 ,350A 
20,3505 

3 7755 
50  lA5 

1 

1 

070 1 

10  LAST 

58A 

20 ,3506 

55*860 

1 

R0702 

TEST 

SIGNIACS 

) : 

R 0 70  3 

0 , R 

O7OA 

REF 

15  last 

585 

20,350  7 

50  lAA 

0 

CAF  ONE  NJ  = 1 forces  THE  URGENCY  FUNCTIONS  TO 

index  njplace  Actually  selfct  a jft  rotation  as  the 

TS  NJ*Q  optimal  policy  (TO  FIGHT  HIS  AOS). 


index  JoBAXeS  the  sign  of  AOSn,R  determines  T iE  ratio 


48895^/^ 


L 

0705 

0706 

0707 

R0708 

0709 

0710 

0711 

0712 

0713 

0714 

0715 

0716 

0717 

0718 

0719 

R0720 

0721 

0722 

0723 

0724 

0725 


0726 

0727 

R0728 

0729 

A0730 

0731 

0732 

0733 

0734 

0735 

0736 

0737 

0738 

0739 

0740 

0741 


R0742 


YJL  SYSIeM  for  aQC:  new  Pro'^RA'1  S^ePATIN  37  eYLeS 


Dec  13»  1966  (MAIN)  PA^E  386 


ADSlASK  AND  AoSJOB 


USeR*S  own  PAOf  NO.  18 


t6 


REF  22 
REF  1 


LAST  584 


2O135IO 

20.3511 

20.3512 


31'652  1 
0 OUO6  1 

6 3335  1 


cae  aoso  to  be  computed  as  the  correction  factor 

extend  in  The  urgency  function  calculation  and 

3ZMF  URGRAT4  ALSO  SPECIFIES  tHl  CORRECT  NJ  VALUES, 


THIRD  CASE  FOR  URGENCY  RATIO; 

R£F  i3  LAST  585  20*35i3  5j  146  1 URGRAT3  INDEX  TABPLACe  CHOOSE  THb  -4  JfT  NfT  ACCELERATION 

REF  3 last  582  20,35lA  31*573  1 CAE  1/NET-4Q  INyERSE  FOR  USE  IN  URgENCy  COMPUTATION, 

REF  16  LAST  585  20,3513  53  l44  0 INDEX  JOBAXES 

REF  7 LAST  585  20,3515  55*ai  0 IS  1/ACCQ 

rEf  14  lAsI  586  20,3517  53  146  1 INDEX  TABPLAcE 

REF  23  LAST  585  20,3520  31*570  1 CAE  1/NET+2Q  l/NET+2n»K 

20,3521  3 OOO6  1 EXTEND  RATIO  

REF  15  LAST  586  20,3522  5 0l46  1 INDEX  TABPLACE  l/NET-4f:)«R 

REf  4 LAST  586  20,3523  11*573  0 Dv  1/NET-4Q 

REF  17  LAST  586  20,3524  53  144  0 INDEX  JOBAXES 

REF  6 LAST  585  20,3525  55*717  0 TS  URGRATQ 


reset  VALUET  of  nJS  FOr  G),R-Axi5: 

REF  196  LAST  584  20,3525  3 7'6l  0 SWITNJS  CAF 


REF  4 LAST  585  20,3527  53  l45  1 INDEX 

REF  11  LAST  585  20,353°  57*560  0 XCH 

REF  5 LAST  586  20,3531  53  I45  1 INDEX 

REf  2 LAST  511  20,3532  55*561  0 TS 

20,3533  0 0003  1 RELINT 

REF  1 20,3534  1 3556  0 TCF 


fourth  case  For  urgency  ratId: 

20,3535  0 0003  1 URGRAT4  RELiNT 


REF  16  LAST  586  20,3535  53  146  1 INDEX 

REF  3 LAST  583  20,3537  31*571  0 CAE 

REF  18  LAST  586  20,3540  53  l44  0 INDEX 

REF  8 LASI  586  20,3541  55*ai  0 TS 

rEf  17  last  586  20,3542  53  146  1 INDEX 

REF  6 LAST  585  20,3543  31*572  0 CAE 

20,354“+  0 OOO6  1 EXTEND 

REF  la  LAST  586  20,3545  5 0l46  1 INDEX 

REF  4 LAST  586  20,3546  11*571  1 dv 

REF  19  LAST  585  20,354?  5°  l44  0 INDEX 

REf  7 last  586  20,3550  55*717  0 TS 


SET  NJ  FOR  NEGATIVE  ROTATIOiNS: 


zero  set  NJ  = NJ  (FROM  ABOwE) 

NJPLACE  -Q,-R  ♦Q,+R 

NJ+Q  AND 

NJPLACE  NJ  = 0. 

Nj-0  ♦Q,+R 

SINCE  NJS  NOW  VALID,  ALLOW  INTERRUPTS. 

UVJOB  GO  PROCESS  U-  At.D  V-AXIS. 


since  all  NJS  Al  ready  SLT  ARe  Now  KNOWN 
TO  Be  VALID,  ALI OW  (NTEKRUPTS. 

TABPLACE  CHOOSE  THE  +4  JcT  NfT  ACCfLEKATION 

1/NFT+4Q  INVERSE  FOR  USE  IN  URGENCY  COMPUTATION, 

UOBAXES 

1/ACCU 

TABPLAcE 

I/NET-20  l/NET-2fj,R 

RATIO  = 

TABPLACE  1/NLT+40,R 

1/NFT+4Q 

JOBAXES 

URGRATQ 


488954A  YJL  SYSieM  f-OR  AGC:  NeW  PRO^^A^i  SHePatIN  BY  eYLeS 


L ADSTASk  AKd  AOSJOB 

07A3  RBF  197  LAST  586  20,3551  3 7^61  0 NXTNJZLR  CAF 


07AA  REF  6 LAST  586  20,355^  50  U5  1 INDEX 

07A5  REF  3 LAST  586  20,3553  55'66l  0 TS 

R07A6  test  for  CnD  OF  0*R-AXtS  LOOa; 

07A7  REF  20  LAST  586  20,355^  10  lAA  1 CCS 

0748  REF  1 20,3555  1 3415  0 TCF 


Dec  1:4,  1966  (MAIN)  PA&E  581 


ZERO 

NJPLACE 

NJ-Q 


JOBAXES 

QRJOR 


USER'S  OwN  PAGE  NO.  19  E6 

SET  NJ  = 0 TO  LET  THE  URGENCY 

-0,-R  functions  Select  2 jet 
_Q,-R  rotation 


JOBAXES  = 1 MFAnS  go  DO  Q-AXiS, 
JOBAXES  = 0 MFAnS  GO  DO  U,V-AXES. 


488954A 


L 

P07A9 

0750 

0751 

0752 

0753 

R0759 

R0755 

R0756 

0757 

0758 

0759 

0760 

0761 

0762 

07621 

07622 

07623 

0762^ 
07625 
0 7626 

Ro7627 

R07628 

076285 

0763 

0769 

0765 

0766 

0767 

R07  68 
R0769 

0770 

0771 

R0772 

R0773 

0779 

A0775 

0776 

0777 


YJL  SVSiUM  fOk  AGC?  'NiE-W  PrO<j:^As1  sE^EPAIIim  3Y  EYLEs  DtC  13*  1966  (mAiN)  pAGE  588 


AOSfASK  AimD  AoSJOB  USER'S  OrtN  PAGf  NO.  20  E6 

A-TER  J*R-Ax£s  complete.  |jO  J.V'AAEs  LOOP: 

REF  151  LAST  585  20,3556  3 7^55  1 UVJOB  CAP  ONE  SET  UP  THE  TABLE  INDICES: 

REF  21  LAST  587  20,3557  59  199  1 UJOB  TS  JOBAXES 

20,3560  b OOOO  1 OOUBLE  AOS  TABLE  USES  "JOBAXES"  (ADJACENT). 

REF  7 LAST  587  20*3561  59  l95  0 TS  NjPLACE  NJ  TABLE  USES  "NjPl ACe"  (ONl  AdART ) . 

TEST  ON  ABVAL(A0S  ) - o.02  R A 0 1 ^NS/SeCOmD ( 2 ) GREATER  THAN  zERO: 

U*V 


U*V  J.Y 


REF  22  LAST  588  20,3562  50  199  0 INDEX 

rEF  2 last  573  20,3563  11*659  0 CCS 

REF  152  LAST  588  20,3569  6 7755  1 AD 

20,356^>  1 3^67  1 TCF 

REF  153  LAST  588  20,3566  6 7755  1 • AD 

REF  7 LAST  589  20,3567  59  151  0 IS 

REF  5 LAST  589  20,3570  6 3^25  0 AD 

20,3571  0 0006  1 EXTEND 

REF  1 20,3572  6 3692  1 3ZMF 

REF  6 last  589  20*3673  0 3*^99  i 1C 

REF  23  LAST  588  20,3579  50  l99  0 FIFTY9R  INDFx 

REF  3 last  513  20,3576  55*715  1 TS 


TEST  ON  UACC  “ ABVAL(A03  ) " 0*02  R AD  I ANS/SECOND ( 
U*V  J*\/ 


JOBAXES  CALCULATE  AbVALlAOS  ) SCALED  AT  PI/2. 

AOSU  U*V 

ONE 

+ 2 

ONE 

tempnet  svae  abval (aosu.v)  for  Use  by  i wacc. 

-.02R/S2  -0,02  RADIANS/SfC0ND(2)  SCALED  AT  PI/2 

FIFTY9  (BRANCH  FOR  CONSTANT  VALUE  OK  INVERSE.) 

INVACC 

JUBAxES 

1/AMINU  SCALED  AT  2(+a)/PI  SECONDS ( 2 ) /R AD  I AN. 

) GREATER  THAN  ZERO: 


REF  8 LAST  588  20,3576  9 Ol51  0 CS 

REF  6 LAST  588  20,3577  6 3825  0 AD 

REF  29  LAST  588  20,3600  50  l99  0 INDEX 

REF  2 LAST  578  20,3601  6 1615  1 AD 

20,3602  0 0006  1 EXTEND 

REF  1 20,3603  6 3606  1 3ZMF 

SET  NJ  = 0. 

+ L , + V 

REF  198  LAST  587  20,3609  3 7761  0 CAP 

20,3606  1 3t>10  1 TCF 


SET  NJ  5 1. 

+ L , + V 


TEMPNET  -ABVAL(A05U,V)  SCALED  AT  PI/2  RAD/5LC(2) 
-.02R/S2  -0.02  RADIANS/SfCOND (2)  SCALED  aT  PI/2, 
JOBAXES 

IJACCU  1 JET  U,V-AXIS  ACCELERATION  AT  Pl/2. 
RIDEOVER 


Zero  allow  urgency  functions  to  actually 

+3  SELECT  2 JET  OPTIONAL  ROTATION, 


20,3606  0 0009  0 RIDEOVER  INHINT  PREVENT  POSSIBLf  ePHEMeRAL  MANDATORY  NJ 

SETTING  FROM  AFFECTING  JET  SELECTION, 

REF  159  LAST  588  20,3607  3 7755  1 CAK  ONE  NJ  = 1 FORCES  TmE  UroENCY  FUNCTIONS  TO 

REF  a last  588  20,36lO  50  l95  1 INpEX  NjPlAcE  ACTUALLY  SELECT  2 JET  MANDATORY  ROTATION 


“^aagS^A  YJL  system  for  AGC;  i'JEW  P«0G^A'«1  SHePATIN  by  eyles 


U ABSrAiK  AND  AOSJOB 


0778 

REF 

2 

LAST 

513 

20 , 36 1 1 

R0779 

R0780 

TESI 

SIGIHAO 

s ) : 
u,v 

0781 

REF 

25 

LAST 

588 

20,3612 

0782 

REF 

3 

LAST 

588 

20 ,3613 

0783 

20,3619 

078A 

REF 

1 

20,3616 

0785 

REF 

199 

LAST 

588 

20,3616 

0786 

REF 

9 

LAST 

588 

20,361  7 

LAST 

0 C87 

R sF 

3 

5 89 

cO  9 362'-' 

0788 

REF 

10 

LAST 

589 

20,3621 

0789 

REf 

2 

last 

511 

20,3622 

0790 

20,3623 

0791 

Ri.F 

1 

20,3629 

0792 

20,3626 

0793 

REF 

200 

LAST 

589 

20,3626 

079A 

REF- 

1 1 

LAST 

589 

20,3627 

0795 

REF 

3 

LAST 

589 

20,3630 

t>i>  • f’bA  0 IS  Nj  + U 


50  199 

0 

INDEX 

JOBAXbS 

31 '659 

1 

CAE 

AuSU 

0 OOO6 

1 

EXTEND 

6 3625 

0 

BZMF 

ZERNJNXT 

3 7(61 

0 

CAF 

ZERO 

50  195 

1 

INDEX 

NJPLACE 

57*669 

1 

xch 

NJ  + U 

50  I95 

1 

INDEX 

NJPLACE 

551 665 

1 

TS 

Nj-u 

0 0003 

1 

RELINT 

1 3631  1 TCF  VJOBTEST 


0 0003 

1 

ZERNjNxT  RELINT 

3 7761 

0 

CAF 

ZERO 

50  195 

1 

INDEX 

NJPLACE 

55*665 

1 

T S 

NJ-U 

R0796  test  FOk  E|M0  OF  UV-AaEs  LOOF  : 


0 ?97 

0798 

0799 


REF  iib  LAST  Sa9 
REF  1 

REF  62  LAST  583 


20,3631 

2U,363i^ 

20,3633 


10  199 

1 

VJOBTEST  CCS 

JOBAXES 

1 3657 

1 5605 

1 

0 

TCF 

TCF 

UJOB 

ENDOFJOB 

R0800  The  fjllOwI'g  branches  supply  constant  values: 


0801  ref  1 

0802  REF  1 


0803  REF  2 LAST 

080A  REF  1 

0805  REF  3 last 

0806  REF  1 

08061  REF  A LAST 

08062  REF  1 


20,3639 

20,3636 

589  20,3636 

20 , 363  ^ 

589  20,3690 

20,3691 

589  20,36A2 

20,3693 


3 3^26  0 FIFTYI 
1 3AA6  1 

3 3A26  0 FIF1Y2 
1 3A6I  1 

3 3^26  0 FiFtY3 
1 393A  0 

3 3^26  0 FIFTYA 
1 367A  0 


CAP  ACCFIFTY 

ICF  FIFTYIR 

CAP  ACCFIFTY 

TCF  FiFTY2R 

CAF  ACCFIFTY 

TCF  FiFTY3R 

CAF  ACCFIFTY 

TCF  FIFTYaR 


dec  13,  1966  (MAIN)  PAGE  589 

USER'S  OWN  PAGF  no.  21  E6 

AS  OPTIMAL  POLICY  (TO  FIGHT  FiIGh  AOS), 


IF  greater  THAN  ZeRO,  SWITCH  NJS. 

IF  Less  than  zero,  set  nj  = o* 

-u,-v 


set  nj  = n I (From  above) 

-u,-v  +u,*v 

AND 

NJ  =0. 

+ U*+V 

ALLOW  interrupts  AS  SOON  AS  NJS  STABLE, 
GO  TO  TEST  FOR  FND  OF  LOOP. 

ALLOW  interrupts  SINCE  SETTINGS  VALID. 

SET  NJ  = 0. 

-U,-V 


JOBAXES  s 1 MEANS  Go  DO  U-AXIS 
JOBAXLS  = 0 MEANS  QUIT 


48895^A  YJL  SISILH  ^ OR  AGO : NEl%  PROGRAM  SHtPATiN  BY  EYLtS 


Dec  1^,  1966  (MAIN)  PAGE  590 


L AOSlAbK  AND  AOSJOb  USER'S  OWN  PAGf  NO.  E6 

P0807  SJBRDjTINe  NAME:  iNVACC  MUD,  NO.  0 DATE:  DECEMBER  3,  1966 

Ro8o8  aJthdr:  Jonathan  d.  addeI-bton  (adams  associate^) 

R0809  THlb  subroutine  Ib  CALLED  BV  AOSjUB  TO  CALCULATE: 

R0810  0.5  WHERE  TEM»NET  IS  SCALED  AT  Pl/2  RADI ANS/SECOND  ( 2 ) 

R0811  CiA)  = 

R0812  AND  ThE  FRACTION  IS  SCALED  AT  2(  + 8)/PI  SEC ( 2 ) /R AD . S ( 2 ) /RADI AN . 

RoeiA  this  SIF.PLe  computation  Was  S JBRoUt INIZeD  due  to  its  frequent  use. 

Ro815  calling  slojence:  TC  INVaCC 

R0816  subroutines  CaLLeD;  NONe.  NURMAL  exU  MODe;  ONe  INSTRUCTION  AFteR  CALL, 

Ro818  Alarm  or  aBoRt  exit  modes:  no'^e. 

R0Bl9  input:  TEMPNET  SCALED  AT  PIZ2  R AUi ANS/SECoNDS ( 2 ) . 

R0820  OUTPUT:  C(A)  SCALED  AT  2(  + 8)/=i  SECONDS ( 2 ) /RAD  I AN. 

R0821  debris:  L.O. 

0822  REF  AO  last  562  20*36AA  3 7(A7  1 INVACC  CAF  BIT7  BIT7  IS  USED  AS  THE  NUMERATOR  0.5  SINCE 

0823  20,36A5  22  U07  0 ZL 

082A  20,36A6  C OOO6  1 EXTEND  "TEMPNET"  IS  SCALED  AT  Pl/2  AND  THE 

0825  REF  9 LAST  588  20,36A7  10  151  0 OV  TEMPNET 

0826  REF  206  LAST  568  20,3650  0 0002  0 TC  Q 


INVERSE  IS  scaled  AT  2(+b)/Pl 


488954a  YJL  system  f'OR  aGC:  NEl^<  b^EPAUfJ  8Y  ElYLfS 


L sps  BAC^-up  Rcs  Control 


0001 

21»3536 

3An< 

0002 

REF 

36 

LAST 

557 

E6 

SPSRCS 

EBANK= 

0004 

REF 

4 

LAST 

516 

21  * 3 536 

9 U f T5 

u 

cs 

0005 

ref 

19 

last 

572 

21,3537 

6 1917 

1 

Ad 

0006 

REF 

7 

LASl 

5l6 

21,3540 

55*924 

0 

IS 

0007 

REF 

1 

21*3541 

3 3T27 

0 

CAF 

0008 

21, 3542 

0 0O06 

1 

extend 

0009 

REF 

8 

LAST 

513 

2 1 * 3 543 

7 1913 

1 

MP 

0010 

REF 

8 

LAST 

591 

21 ,354A 

6 1924 

1 

ad 

0012 

21, 3545 

0 0006 

1 

EXTEND 

0013 

REF 

1 

21 ,3546 

6 36O5 

1 

3ZMF 

0014 

REF 

1 

2 1 * 354^ 

3 3^41 

0 

CAF 

0015 

REF 

22 

LASl 

492 

21,3550 

5<,  063 

0 

GGOMPUTE 

IS 

0016 

REF 

9 

LASl 

591 

21,3551 

31 '924 

1 

CAE 

0017 

2 1 * 3552 

0 OOO6 

1 

EXTEND 

0018 

21,3553 

7 0000 

0 

SQUARE 

0019 

21,3559 

0 OOO6 

1 

EXT  END 

0020 

REF 

1 

21 ,3555 

7 3732 

0 

VIP 

0021 

REF 

40 

LAST 

568 

21,3556 

59  062 

1 

TS 

0022 

REF 

9 

LASl 

591 

21 *3357 

6 i9i3 

0 

AD 

0023 

REF 

2 

LAST 

591 

21,3560 

6 3141 

0 

AD 

0025 

21 ,3561 

0 0006 

1 

EXTEND 

0026 

ref 

1 

21, 356*1 

6 3613 

0 

3ZMF 

0027 

REF 

10 

LAST 

591 

21*3563 

31*424 

1 

CAE 

0026 

21 *3569 

0 0006 

1 

EXTEND 

0029 

REF 

1 

21 *3565 

6 3376 

0 

3ZMF 

n o n 

ore 

f O 1 

UU  jU 

K £ r 

H 1 

LAST 

591 

2 1 1 3i366 

6 0062 

0 

AD 

0031 

2 1 * 356  I 

0 0006 

1 

EXTEND 

0032 

REF 

2 

LASl 

591 

21*3570 

7 3 127 

1 

MP 

0033 

REF 

1 0 

LAS  1 

591 

21 ,357! 

6 1913 

0 

AD 

0034 

21*3572 

0 0006 

1 

EXTEND 

0035 

REF 

ore 

1 

21,3573 

7 3F33 

1 

MP 

0036 

K£r 

1 9 

LA  S T 

514 

21, 3579 

55 ' 304 

0 

T S 

0037 

R^F 

1 

21,3573 

1 3615 

1 

TCF 

0038 

21,3576 

0 OOO6 

1 

ULOW 

extend 

00382 

REF 

3 

LAST 

591 

21,3577 

7 3T27 

1 

MP 

nn  ^ Q ^ 

DTP 

1 1 

1 ACT 

V VJ  5 0 “ 

K t r 

I 1 

LAST 

5 91 

•lit  360^ 

6 I^'IB 

0 

AD 

0039 

21*3601 

0 0006 

1 

EXTEND 

0040 

REF 

2 

LAST 

591 

21,3602 

7 3/33 

1 

MP 

21 

DT 

OMEGAQD 

OmEgAO 

EDOTQ 

SLOPEMQ 

EK 

EUOTQ 

PLUSD 

NEGD 


I TEMP3 
EDOTQ 


1/2AQ 

ITEMP2 


ER 

NEGD 


OZERO 

EDOTQ 


ULOW 

ITEMP2 

SLOPEMQ 

EK 

1/AQ 

URGENCYQ 

RCAlC 


SLOPEMQ 

EK 


1/AQ 


Dec  IT’  i966  (Main)  pa^e  ^*^1 


USER'S  OWN  PA&i:  NO.  1 


EDOr  = OMEGAO  _ OMEGAQD 


F = SLOPE  M » E + EDO! 

DQ  negative  for  POStTIVE  F 

STORE  DIRECTION  TO  tHRUSt  IN  ITEMP3 


ITEMP2  = (1/2A)  EUOT)h»2 

Db  is  SPECIFIED  BY  NEgD  IN  SpS  „ODE 

G WAS  POSITIVE*  NOW  TEST  eDOT 

EDOT  WAS  POSITIVE*  CALCULATE  HIGH  U CASE 


EDOT  WAS  negative*  CALCULATE  LO",  U CASE 


488954A  YJL  SrSIh’-'l  FOrt  AGC;  NEW  Phi0^9‘\vi  5H£PATlN  3Y  eYLeS 


L 

OOAl 

S = S 

REF 

3 aC 

20 

^“UP 

LAST 

RCS 

591 

control 

21,3603 

55*304 

0 

TS 

00A2 

REF 

2 

LAST 

591 

21  »360A 

1 3615 

1 

tcf 

OOA3 

REF 

12 

LAST 

591 

21, 3605 

4 1A13 

1 

PLUSD 

cs 

00A4 

REF 

13 

LAST 

592 

21,3606 

57'A13 

0 

XCH 

0045 

REF 

11 

LAST 

591 

21  ,360  t 

4 1424 

0 

CS 

0046 

REF 

12 

LAST 

592 

2 1 ,36l0 

57*424 

1 

XCFI 

0047 

REF 

3 

LAST 

591 

21,3oll 

4 3 '41 

1 

CS 

0048 

REf 

1 

21,3612 

1 3350 

0 

TCF 

0049 

REF 

201 

LAST 

589 

21,3613 

3 7 '61 

0 

UZERO 

CAF 

0050 

REF 

21 

LAST 

592 

21  ,36lA 

55 ' 304 

0 

TS 

0051 

rSf 

5 

LAST 

518 

21,3613 

4 0'76 

0 

rcalc 

CS 

0052 

REF 

18 

LAST 

572 

21,3616 

6 1421 

1 

AD 

0053 

REF 

4 

LAST 

516 

21 ,361  ^ 

55 ' 425 

1 

1 S 

0054 

R^F 

1 

21,3620 

3 J'30 

0 

caf 

0055 

2 1 ,362  1 

0 0OO6 

1 

EXTEND 

0056 

REF 

29 

LAST 

518 

21,3622 

7 1411 

0 

VIP 

0057 

REF 

5 

LAST 

592 

21,3623 

6 1425 

0 

AD 

0059 

2 1 , 362A 

0 OOO6 

1 

EXT  END 

0060 

REF 

1 

21,3623 

6 3664 

0 

3ZMF 

0061 

REF 

4 

LAST 

592 

21  .3626 

3 3 '41 

0 

CAF 

0062 

REF 

14 

LAST 

180 

21  ,362  F 

5 4 064 

1 

gcomputr 

TS 

592 

0063 

R'lF 

6 

las  r 

21 ,3630 

3 1 ' 425 

0 

•■.AE 

0064 

21.3631 

0 0OO6 

1 

extend 

0065 

21.3632 

7 0000 

0 

SQUARE 

0066 

21, 3633 

0 OOO6 

1 

EXTEND 

0067 

ref 

1 

21 ,363A 

7 3'31 

0 

VIP 

0068 

REF 

92 

LAST 

591 

2 1 ,3635 

54  062 

1 

TS 

0069 

REF 

aO 

Last 

592 

21,3636 

6 1411 

1 

AD 

0070 

REF 

5 

LAST 

592 

21, 3637 

6 3 '41 

0 

AD 

0072 

21,3640 

0 OOO6 

1 

EXTEND 

0073 

REF 

1 

21,3641 

6 3672 

1 

3ZMF 

0074 

REF 

7 

LAST 

592 

21.3642 

31*425 

0 

CAE 

0075 

21 ,36^3 

0 OOO6 

1 

EXTEND 

0076 

HA  7 7 

REF 

1 

21  ,364A 

6 3655 

1 

3ZMF 

UU  1 

K cr 

43 

LAST 

592 

2 1 .3643 

6 0062 

0 

AD 

0078 

21, 3646 

0 CO06 

1 

EXTEND 

0079 

REF 

2 

Last 

592 

21,3647 

7 3'30 

1 

MP 

0080 

REF 

31 

last 

592 

21,3650 

6 1411 

1 

AD 

UKGFNCYQ 

RCALC 

ER 

ER 

EQOTQ 

EDOTO 

NEGD 

gcOmpute 

ZERO 

URGENCYO 

OMEGArD 

OMEGAR 

EDOTR 

slOpemr 

E 

EUOTR 

plusdr 

NEGD 

1 I'EMPA 
EUOTR 


1/2AR 

ITEMPZ 

E 

NEGD 


UZEROR 

EUOTR 


ulowr 

1TEMP2 

SlOPEMR 

E 


DEC  U,  I966  (MAIN)  PAGE  59Z 


user's  own  page  no.  2 


G = Oi  NO  URGFNrY 

repeat  calculations  for  R-AXiS 


E6 


EDQT  WAS  POSIlIuE.  CALCULATE  Hli,H  U CASE 


YJL  bYSlEM  l-OK  AGC;  Nf.W  sHePATIN  3Y  EYLES 


L s^s  back-up  rcs  control 


0081 


0082 

REF 

1 

0083 

REP 

21 

last 

008A 

REP 

1 

0085 

00852 

REF 

3 

LAST 

0085A 

REF 

32 

LaS'P 

0086 

0087 

REP 

2 

LAST 

0088 

REP 

22 

LAST 

0089 

REP 

2 

LAST 

0090 

REP 

33 

Las  j 

0091 

REF 

34 

last 

0092 

REP 

8 

LAS. 

0093 

REF 

9 

LAST 

009A 

REF 

6 

LAST 

0095 

REP 

1 

0096 

REP 

202 

LAST 

0097 

0098 

REP 

22 

LAST 

0099 

REP 

2 76 

LAS. 

0100 

REF 

1 

0101 

REF 

1 

0102 

REP 

1 

0103 

REP 

23 

LAST 

0104 

0105 

REF 

1 

0106 

REF 

2 

LAS'. 

0107 

REP 

c 3 

LAST 

0108 

0109 

REP 

1 

0110 

REF 

1 

0111 

REP 

1 

0112 

REP 

1 

D Tr- 

U i 1 J 

LAST 

0114 

REF 

15 

LAST 

0115 

0116 

REF 

1 

0117 

REF 

1 

0118 

REF' 

3 

LAST 

0119 

REF 

1 

j92 


>92 


>93 


592 


21.3651  0 0006  1 Extend 

21.3652  7 0 vip 

21  ,3653  55>^’06  1 TS 

21,365A  1 3P73  1 TCP 

21,3655  0 0O06  1 ULOWR  EXTEND 

21,3655  7 300  1 '^P 

21,3657  6 lAll  1 AD 

21.3660  0 0006  1 EXTEND 

21.3661  7 3 0A  0 'IP 

21.3662  55*506  1 IS 

21.3663  1 3573  1 TCP 

<.1,366A  ^ lAil  0 PLUSDR  CS 

21.3665  5/'A11  1 XCH 

21.3666  1^26  1 CS 

21.3667  57'A25  0 XCH 

2 1,3670  A 301  1 CS 

21.3671  1 3627  0 TCP 

21.3672  3 7 01  0 UZEROR  CAP 

21.3673  0 0006  1 ChNLTEST  EXTEND 

21,367A  61’50A  1 SU 

21.3675  10  000  0 CCS 

21.3676  1 SOA  1 TCP 

2 1,3677  1 3 01  0 TCP 

21.3700  1 305  1 ICP 

21.3701  31'50A  1 URTLST  CAE 

21.3702  0 0006  1 EXTEND 

21.3703  1 3 03  0 3ZP 

2 1,370A  1 sOA  1 TCP 

21,3705-'  30  063  1 DDTEST  CAE 

21.3706  0 OOO6  1 EXTEND 

21.3707  6 3712  0 3ZMF 

21,3710  3 3736  0 CAP 

21,301  1 3 72A  1 TCP 

21,3712  3 3735  0 NEGO  cap 

21,3/13  1 372A  1 TCP 

21,37lA  30  064  0 DRTEST  CAE 

21,3/15  0 0006  1 extend 

21.3716  6 3721  0 3ZMF 

21.3717  3 3737  1 CAP 

21,3720  1 3/2A  1 TCP 

21,372!  3 37AO  1 NEGR  cap 


1/AR 

URGPNCYR 

ChNLTEST 


SLOPEMR 

E 

1/AR 

URGPNCYR 

ChNLTEST 

E 

E 

EDOTR 

EDOTR 

NEGD 

GCOMPUTR 

ZERO 

URGENCYQ 

A 

DRTEST 

URTEST 

DuTEST 

URGENCYQ 


NOJET 

DRTEST 

ITEMP3 

NEGQ 

PUSQ 

JETCMD 

NEGOT 

JETcMD 

1 1 EMPa 

NEGR 

PUSR 

JETCMD 


NEGRT 


DEC  13,  I966  (MAIN)  PAGE  593 


USER'S  Oi^N  page  no.  3 E6 


eodt  was  negative,  calculate  low  u case 


TEST  = URGENCYR  - UrGeNCYQ 


A8895AA  YJL  fOK  aGC  : Nb'W  PkO^RAM  SHePaiIN  5Y  eYLlS  DeC  1^*  1966  (MAIN)  PA^iE  59A 

L sPs  Back-up  kc5  control  ustR'S  own  pag^  no.  a e6 


0120 

REP  4 

LAST 

593 

21,3722 

1 

3 T24 

1 

TCP 

JETCMD 

0121 

REP  203 

LAST 

593 

21,3725 

3 
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BLOC<  2 LOC  attitude  MANEUVER  R DU  I 1 NE-kALCMANU 


MOD  1 Da'E  11/7/66  BY  DON  KEENE 

PROGRAM  DESuRlPT ION 

KAlCMA'.U  IS  A ROUTINE  WHICH  U[;NeRATE5  COMMANDS  FoR  THE  LM  DAP  TO  CHANGE  THE  ATTITUDE  OF  THE  SPACECRAFT 

DURING  tree  Fall,  it  ig  designed  ro  maneuver  the  spacecraft  from  its  initial  orieNtatIdn  to  some  Desired 
ORIeNIAtION  SReLIFIeD  by  the  t)R3GRaM  which  calls  KALCMANU,  avoiding  GIMBAL  Lock  In  tHf  pRoCeSS,  in  tHe 
MDD  1 ViRSIoN,  this  DeSIReD  A r I 1 T'^De  CAN  Be  SPeCIFIeD  IN  ONe  OF  TWO  WAYS 

A)  BY  A SET  OF  THREE  COMMANDED  CDU  ANGLES 

B)  BY  A Vector  in  stable  membeR  coordinates  along  which  the  thrust  vector  (given  im  spacecraft 

COORDINATLS  IS  TO  BE  ALIGNED. 

IF  the  First  Method  is  used,  the  three  desired  cdu  angles  must  Be  stored  as  2:s  co^■PLEMENT  single 
precision  atgles  in  the  three  cdnSecutive  Locations,  cphi,  ctheta,  cpsi,  where 

LPi- 1 = Commanded  outer  gimbal  angle 
ltfeta  = commanded  inner  gimbal  angle 
CPSI  = Commanded  middle  oimbal  angle 

THE  ENTFY  point  IN  KALCMANU  FDR  T^IS  METHOD  IS  KALCMAN3  (SEE  SECTION  A) 

iHi  SECOND  Method  may  Be  use*^  for  pointing  iHe  thrust  axis  of  tHe  spacecraft,  in  this  case  the  axis  to 

BE  POINiEo  'iUST  APPEAR  AS  A h'^LF  ^NlT  pOUBLE  PREcISIOI^I  VECTOR  IN  SUCCESSIVE  pOcATIONS  Of  ERASABLE  MEMORY 
BEGINNIIG  with  tHe  LOCAiloN  CALpeP  SCAXlS.  tHE  COMPONENTS  OF  THIS  VECTOR  ARE  GIVeN  IN  SPACECRAFT  COORDINATES. 
THe  DIRlCiI.N  in  which  iHlS  AKlS  IS  TO  BE  PoINTeD  MUSt  APPeAR  AS  A HALF  UNIi  DqUBLe  PRECISION  VECtOR  IN 

SUCCESSIVE  LOCATIONS  OF  ERASABLE  MeMORY  BEGINNING  WItH  THe  ADDReSS  CALLeD  POINtVSM.  tHf  COMPONENTS  oF 

this  vector  are  given  in  STAB-E  member  coordinates. 


KAi  CMA'.U  determines  IhE  direction  of  The  single  equivalent  rotation  (COF  ALTErNATEI  y termed  U)  and  the 
magnitude  of  tHe  Rotation  (AM)  to  bring  tHe  S/c  from  its  initial  oRIeNtatIon  to  it^  finlL  orientation, 
this  direction  Remains  fixe^  boih  in  ineRtIal  coordinates  and  in  commanded  S/c  axeS  throughout  the 

maneuver.  ONLE  COF  AND  AA.  HavE  BEEN  DETERMINED,  KALCMANU  tHeN  eXAMINeS  tHe  MANEUVER  TO  See  IF  1t  WILL  BRING 

the  S/C  through  gimbal  LOCK.  IF  Sp , coF  AND  AM  aRe  ReADUUSteD  SO  THAT  THe  S/C  WILL  UUSi  SKiM  tHe  GIMBAl 

LOCK  ZOf^E  A\D  ALIGN  tHe  X-AXIB.  IN  GeNeRaL  A FINAL  YAW  ABoUt  X WILL  Be  NeCeSSARY  TO  CoMPLeTE  THe  MaNeJVeR. 

NeeDLeSS  lO  Say.  NeItHeR  the  INItIAL  nor  tHe  final  orientation  can  Be  in  gimbal  LOCK. 

FOR  proper  attI'iUDe  cqNtro-  ihe  digital  autopilot  must  Be  given  an  Attitude  reFrRenCe  which  ly  can  track. 

KALCMANU  DOrS  JHIS  BY  G|-NeRAtin3  A ReF'eRENCe  OF  DeSIReD  GiMBAL  ANCLeS  (CDUXD,  CDUYD,  CDliZD)  WHICH  ARe  UPDATE^ 
EVeRY  one  SrCoND  during  tHe  MANpUVgR.  yO  ACHIeVe  A SMOOTHER  SeOUeNCe  OF  COMMANDS  BetWet N SUCL'eSSIVe  UPiATES. 

tHe  program  also  Generates  a bei  of  incremental  cdu  angles  (DeLdcdu)  to  Be  added  to  cdu  DeSired  by  the  digital 
autopilot,  kalgmanu  also  calcj_aies  tHe  Component  maneuver  rates  (oMegapd,  oMeGaod,  oMyGARD),  which  can 
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BE  deiekminLu  Simply  by  multiplying  cof  by  some  scalar  carate)  correspond in<b  to  the  destred  rotatiOnal  rate. 


AUlOMAiIC  maneuvers  ARE  I 1 Me^  WItH  THe  HeLP  OF  WAlTLlSy  SO  tHAt  AFteR  A SPeCIFIfD  INTERVAL  jHe  Y AND  Z 

d-sired  Ratios  are  ^ei  to  /e'^d  and  tHe  DeSireD  cdu  angles  (cduyd,  cduzdi  are  Set  e^ual  to  tHf  final  DeSIreD  cdu 
angles  iCtHita,  cpsi).  if  any  ya*^  Remains  due  to  gimbal  lock  avoidance,  the  final  yaw  maneuver  is 
calljlaied  and  tHe  Desired  yan  raie  set  to  some  fixed  value  (rollrate  = + or  - 2 degrefS  PeR  StC). 

IN  this  Case  only  an  INCRfMENTA-  '-dux  angle  (DeLFROLD  is  supplied  to  the  dap,  at  the  fND  oF  tHe  VaW 
maneuver  uR  in  tHe  eVeNt  THAt  T HeRe  was  No  final  yaw,  CDUXD  is  Set  equal  to  CPHI  and  the  X_AXIS  DeSIReO 
rate  Set  to  ZeRO.  thus,  upon  completion  of  tHe  maneuver  the  S/C  will  finish  up  in  a limit  cycle  about  tHe 
desired  final  gimbal  angles. 


PROGRAM  LOGiC  FLOW 

<AI  CMANU  IS  called  AS  A HT 3H  PRIORITY  JoB  WITH  ENTRY  POINTS  AT  KALCMAN3  AND  VeCPuImT.  IT  FIRST  PIrKS 
■jp  the  curreNt  cdu  angles  tQ  se  u^ed  as  the  basis  For  all  Computations  involving  the  inttiai  s/C  oRIeNtation, 
IT  THeN  DETfcRi-NNES  THe  DIRECTION  UoSINe  MATRKeS  ReLAtING  BOtH  THe  INITIAL  AND  FINAL  S/f  ORIENTATION  TO  STABLE 

» X * 

member  axes  (MIS,  MFS).  TT  A.SO  COMPUTES  THE  MATRIX  RELATING  FINAL  S/C  AXES  TO  INITIAL  S/C  AXES  (MFl),  THE 
angle  of  rotation  (am)  is  tHen  exiracted  from  this  matrix,  and  teSts  are  made  to  Determine  if 

A)  AM  Less  than  ,25  degrees  (Minang) 

B)  AM  greater  than  17O  0EoRt£5  (MAXANG) 


IF  AM  .Ess  than  .Z5  DECREES*  NO  COMPLICATED  AUTOMATIC  MANEUVERING  IS  NECESSARY.  THEREFORE  WE  CAN  SIMPLY 
SET  EDO  DeSIRcD  EoOAL  TO  THE  -INAC  CDU  DESIRED  AnGLeS  AND  TERMINATE  THe  UOB. 

IF  AM  IS  greater  THAN  .25  OeOREES  BUt  LeSS  tHAN  i70  DEGREES,  THE  AXES  OF  tHe  SINGLe  EQUIVALENT  ROTATION 
- a 

(COF)  IS  extracted  from  THE  5<£/^  SyMMETRIC  COMPONENTS  OF  MFI.  * » 

IF  AM  greater  than  17O  OEoReLS  AN  ALTERNATE  METHOD  EMPLOYING  THE  SYMMETRIC  PART  OF  MFI  (MFISYM)  IS  USED 

TO  DETERMINI  COF. 


TH|.  program  THeN  CHeCKS  | 
SO,  A NcW  maneuver  IS  CALCULAI 

Method  assures  that  the  aodIti 
P AXIS  yaw  a ill  Be  necessary. 


0 SEE  if  THe  maneuver  AS  COMPUTED  WILL  BRING  THe  S/C  THROUGH  OlMBAL  LOCK 
EO  which  will  UUSi  SKIM  THE  GIMBAL  LOCK  ZONE  AND  ALIGN  tHf  S/C  X-AXIS. 
ONAC  maneuvering  to  avoid  GIMBAL  LOCK  WILL  Be  KePT  TO  A MINIMUM.  SINCe 

A oWiycH  IS  reSet  (State  switch  31)  to  allow  For  the  computation  of  this 


T 

A 


IF 

HiS 

FINAL 

FINAL 


YAW. 


AS  Stated  previously  kalcmanQ  Generates  a sequence  of  desireD  gimbal  angles  which  are  updated  every 

Second,  this  is  accomplished  by  a small  rotation  of  tHe  desired  S/c  frame  about  thf  vector  cof.  the  nfw 
desired  Reference  mairix  is  item. 
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("/HERE  del  is  the  MATRIx  CORRESPONDING  TO  THIS  SMALL  ROTATION,  THE  NEW  CDU  ANGLES  CAN  TmEN  bE  EXTRACTED 
FROM  MIS. 

at  the  Beginning  of  the  maneover  the  autopilot  DeSired  rates  (omegapd,  omeGaqd,  oMpGaro)  and  tHe 
MANlOveR  tilings  are  ESTABLI SHeO.  on  the  first  pass  and  on  all  subsequent  updates  THf  CDU  DeSIKeD 
angles  are  loaded  with  THf  A?3ROPKIAte  values  and  THe  incremental  CDU  angles  are  COMPUTfD.  the  agc  clocks 

(TIMeI  and  iIME2)  are  than  CHrCCEO  TO  SEE  IF  THE  MANEUVER  WILL  TERMINATE  BeFoRe  THE  NfXt  UPDATE#  IF 
NOT#  KAlCMANU  calls  FOR  ANOTHER  UPDATE  (RUN  AS  A JOB  WITH  PRIORITY  tBD)  IN  ONe  SeCOND.  ANY  DeLAYS  In  T-iIS 

CALLING  Sequence  are  automati oalli  compensated  in  calling  for  the  next  update. 

IF  it  is  found  that  the  maneover  is  to  terminate  beFuRe  the  NeXT  update  a Routine  ts  called  (AS  a .^ait- 
list  lASK)  TO  Stop  the  MANeOVeR  AI  the  appropriate  time  as  explained  above. 


CALLING  SEQ>.'ENCE 

THe  entry  point  in  KALCMANJI  For  pointing  the  thrust  axis  of  the  spacecraft  is  VeCPoINT 

CAF  PRIO  XX 

IMhINT 

TC  FINDvAC 

2CaDR  VECPOINT 

REI  INT 

the  calling  program  must  ALSU  specify  tF'E  DeSIReD  maneuvering  rates,  PReSeNtLY  in  tHe  form  of  a single 
precision  NJMbLk  (RATEINDeX),  WHICH  IS  LOADED  WlTH  ONE  OF  FOUR  VALUES  0,  2,  A,  OR  6,  CORRESPONDING  TO  AnGULAR 
rates  01  .5,  2,  5,  10  DeGREES/SEC.  THERE  IS  ALSO  A STATE  SWITCH  (33)  WHICH  MAY  Be  SET  tO  IGNORE  ANY  FINAL  YAW 

INCURREI.  BY  AVOIDING  GIMBaL  LDC<i. 

«11H  THIS  information  KA-CMANU  WILL  THEN  GeNERATF  A SEqUeNCe  OF  THREE  CDU  DESIReD  ANGLfS  (CDUXD,  CDUYD, 
CDUZD)  , AND  THREE  INLReMENTAE  ANGLES  (DELDCDU,  OtLDCDUl  , DELDCDU2)  AS  WELL  AS  THE  COMPONENT  MANEUVER  RATES 
(IN  5/C  AXE'S)  TO  Be  USeD  BY  He  LEM  DAP  IN  PERFORMING  THe  AUTOMATIC  MANEUVER. 

theRe  are  two  ways  in  Which  kalcmanu  may  be  initiated  corresponding  to  the  two  Methods  of  specifying  the 
dfsired  aititudl  of  vhe  spaCecrafi.  if  Method  i is  used,  the  commanded  gimbal  anoLls  must  re  pkecomputeD  and 
Stored  in  locations  cphi,  cthua,  cpsi.  tHe  useris  program  must  tHen  clear  state  switch  no  33  10  allow  the 
attujd)  ma'  luveR  Routine  tu  ^eRFurm  any  final  p-axis  yaw  incurred  by  avoiding  gimbal  LoCk,  the  maneuver  is 

then  initiated  by  ESTABLISHING'  [HE  FOLLOWING  eXeCJtIVe  JOB 


LAf- 

PRiO  XX 

I Nl-  I NT 

TC 

FINDVAC 

2CADR 

HELINT 

KALCMAN3 
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R0167  THE  J5EK:5  PROGRAM  MAy  ElTHE:;  COnIinUE  Or  WA^T  FOR  THE  TERMimATiO(m  OF  THE  MA^lUVER.  iF  THE  USER  WISHES  TO 
R0169  wait.  Hh  MAY  PUT  HIS  JOU  TO  5_EEP  WITH  THe  FOLLOWING  INSTRUCTIONS 

R0171  L TC  BAniACALL 

R0172  L+i  CAOR  AIt^TALL 

R0173  L + 2 (BAD  REtjR'J) 

R017A  L+3  (GOOD  REtJR'O 

Roi75  UPON  Completion  of  the  maneuVer.  the  program  will  be  awakeHei^  at  l+3  if  the  maneuvfR  was  completed 

R0177  S jCCEBSFuLL',  , OR  AT  L*^  IF  THE  HAHeuVER  WAS  ABORTED,  THIS  AbORT  WOuLD  OCCijR  IF  tHe  INItIAL  OR  FINAL  ATtITUDE 
R0179  WAS  IN  GIMBAL  LOCK. 

R01795 

R0180  IF  The  second  method  IS  JsED’  The  DEsIrED  ThrUsT  direction.  V . MUST  BE  COMPUTED  And  stored  in  the  Six 

R01815  F 

Roi82  erasable  locations  Beginning  /^ith  the  address  pointvsm.  tHe  thrust  axis  must  be  loaded  into  the  six  erasable 
P018A  locatioi.s  Beginning  with  sc  akid.  tHe  calleR  mu^t  tHen  clear  (or  set)  state  switch  no  33  and  specify  the 

R0186  Desired  maneuvering  rate  as  3EFJRt,  tHe  maneuver  is  tHen  initiated  by  the  executive  cai  l. 

R0188 


R0I89  SUBROUTINES 

R0190  KALCMANU  US£S  A NUMBpR  O'  INIeRPRETIVe  SUBRqUtINeS  WHICH  MAY  Be  OF  GeNeRAL  INTERfSi.  SINCe  THeSe  ROUTINES 

R0192  were  PRCGRAyMeD  EXCLUSIVELY  FOR  KAlCMANU,  tHeY  ARE  Nof.  AS  YET.  GENERALLY  AVAILABLE  FOR  USE  BY  OtHeR  PROGRAMS, 

R019A 

R0195  MXF 3 

R01955  

Roi96  this  Subroutine  multiplies  t'^o  3x3  matrices  and  leaves  the  result  in  the  first  le  iocations  of  the  push 

R0198  DOWN  LIST.  I.b.. 


R0199  (M 

R01992  ( 0 

Rai99A  + ( 

R0200  M = (M 

R02005  ( 3 


M M ) 

I ^) 

) n » 

M M ) = Ml  X M2 

A 5) 


R02OO6  ( ) 

R0201  (M  M M ) 

R02015  (6  7 b) 


R02018  » 

R0202  INDEX  register  Xl  MUST  BE  i-OADED  WITH  THE  COMPLEMENT  OF  THE  STARTING  ADDRESS  FOR  Mi 

R02035  * 

R02OA  loaded  aITH  the  COMPLEMENI  OF  HE  starting  address  FOR  M2.  the  routine  uses  the  first 

R0206  DOWN  list.  the  first  ELeMeNt  of  IHe  MATRIX  APPEARS  IN  PDu.  PUSH  UP  FOR  M . 

R02075  8 

R0208 

R0209  IRaNSPCS 

R02095  


. and  X2  must  Be 

20  I OCAI IONS  OF  THE  PUSH 
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R0210 

R0212 

THIS  r:u7ine  transposes  a 3x5  matrix  and  Leases  tHe  result  in  the  push  down  list,  i.e.. 

R0212A 

R0213 

# » T 

M = Ml 

R02IA 

index  Register  xi  must  contain  the  complement  of  the  starting  address  for  Mi,  push  up  for  tHe  first  and  sub- 

R02155 

R0216 

SEQUENT  COMPONENTS  OP  M.  SUBROUTINE  ALSO  JSES  THE  PIRST  20  LOCATIONS  OF  THE  FU.sH  DOWN  LiST. 

R0218 

R0219 

R02195 

LDL  TO  DCM 

R022O 

R0222 

R0224 

THIS  S..BROUtINe  CONVfRIS  HREE  CDU  angles  in  T(MPAC)  TO  A direction  cosine  matrix  (SCALED  BY  2>  RELATING 

the  corfesp;  nding  S/l  orientaudns  to  the  stable  Member  frame.  tHe  formulas  for  this  conversion  are 

R0225 

R02255 

M = COSY  COSZ 

c 

R0226 

R02265 

M = -Cosy  sinz  cosx  + siny  sinx 

1 

R0227 

R02275 

M = COSY  SIN7  SiNX  + SINY  COSX 

Z 

R0228 

R02285 

M = SINZ 

3 

R0229 

R02295 

M r COSZ  COSX 

A 

R0230 

R02305 

M F -COSZ  SINX 

c, 

R0231 

R02315 

M = -SINY  COSZ 

t 

R0232 

R02325 

M F SINY  SINZ  CjSX  + COSY  SINX 

7 

R0233 

R02335 

(M  F -SINY  SInZ  SINX  + COSY  COSX 

6 

R023A 

R0235 

R0236 

WHERE  X = OUTER  OlMBAL  ANGLE 

Y = INNER  OiviBAL  ANGLE 

; = middle  51M3AL  ANGLE 

R0237 

THE  interpretation  OF  THIS  MATRIX  IS  AS  FOLLOWS 

R0238 

R02A0 

IF  A , A , A Represent  he  lomponlnts  of  a vector  in  s/c  axes  tHen  the  components  of  tHe  same  veCior  in 

X Y Z 
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MA" LUvtK  KQu I INt 

user ' S 

OWN  PaGf  N0»  P 

R02A1 

STABLE  (EMBER  AXES  (b  , B , 3 ) ARe 

R02A2 

A Y F 

R02A3 

R02AA 

R02AA5 

(B  ) 

( X) 

( ) 

(A  ) 

( X) 

( ) 

R02A5 

R02A6 

R02A7 

( ) 
iB  ) 

( Y) 

* ( ) 

= M (A  ) 

( T) 

R02A75 

R02A8 

R02A9 

( ) 

(B  ) 

1 2) 

( ) 

(A  ) 

( A) 

Ro250 

R02515 

R02S2 

R0255 

R0256 

R0258 

the  subroutine  will  StoRe  hi^  matrix  in  Sequential 

PROGRAM.  t:  do  THIS  THe  CALLINS  RROGRAM  MUST  FIRST  LOAD 

INTERNtLLY,  THE  ROUTINE  jSES  T He  FIRST  16  LOCATIONS 
REGISTER  X2, 

locations  of 

X2  with  the 

OF  the  push 

erasable  Memory  as  specified  by  the  calling 

Complement  of  the  starting  address  for  m, 

DOWN  list,  also  STrP  ReGISIeR  Si  a ,D  index 

R0259  :;CK  TO  CDU 

R0260  

R0261  if 

R0262  IHIS  ROUTINE  EXTRACTS  T ^E  CPU  ANGLES  FROM  A OIReCTION  COSINE  MATRIX  (M  SCALeO  BY  2'  REIATING  5/C  AxIS  10 

R026^  « 

R0265  SIALLE  fEMBfR  AXES,  Xi  MUST  IGMT^IN  1 HE  COMPLeMe'^T  OF  THe  STARTING  ADDRESS  FOR  M.  THE  SUBROUTINE  LeAVfS  THE 
R0267  CDRKLSPLNUir G GIMBAL  ANGLlS  IY  v'(MpAC)  AS  DOUBLE  PRECISION  i:S  COMPLEMENT  ANGLeS  SCALkD  BY  2^1.  IHE  FORMULAS 
R0269  FDR  THIS  CO' VERSION  ARE 

R0270  I = ARCSIN  (M  1 

R0271  3 

R0272  Y = ARCSIN  (-M  /Z'Jbl) 

R0273  6 

R0274  IF  M IS  negative^  Y iS  RfPLaSEO  t^Y  PI  SG\l  Y - Y 
R0275  0 

R0276  X = ARCSIN  (-M  XCOSZ) 

R0277  5 

R0278  I'M  IS  negative  X IS  REPLACED  BY  PI  SGN  X - X 
R0278S  H 

R0279  this  RrUiINE  DOlS  NOT  ^ei  THE  PUSH  DOWN  POINTER,  BUT  USES  THE  NeXT  8 LOCATIONS  OF  tHe  PUSH  DOWN  LIST  AND 

Ro28i  Returns  the  pointer  to  its  original  setting,  this  procedure  allows  tHe  calleR  to  store  the  matrix  at  the  top  of 
R0283  THE  PjSh  UO/ N LIST* 


A8895AA 
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L 

AITITODl  MA'.EOVeR  ROOTINe  USER’S  OrtN  PAGE  NO.  7 

R028A 

R0285 

DEI  COMP 

R0286 

Ro287 

iHi.S  RC.UllNE  computes  :)IK[^CTI0N  COblNL  MATRIX  (DeL)  RELATING  ON 

R0289 

R0290 

R0292 

IS  koiateo  i'.ith  respect  to  He  first  by  an  angle*  a,  about  a unit  Vector,  u,  tHe  formui  a for  this  matRfx  is 

R0293 

R0294 

R0295 

# * --T  X 

DEL  = I COSA  + JJi  (1-COSA)  + V SINA 

X 

R0296  WHLRE  (10  0) 

R0297  I = (0  1 3) 


R0298 

(0  0 1) 

R0299 

R0300 

R0301 

R0301S 

2 

(U  J U J u ) 

(X  X Y X Z) 

( ) 

R0302 

R0303 

R030A 

R030A5 

'-It  Z ) 

.U  = (U  U J J u ) 

( Y X Y Y Z) 

( ) 

R0305 

R0306 

R0307 

( 2 ) 

(U  U J 0 J ) 

( Z X Z Y Z ) 

R0308 

(0  -U  J ) 

R0309 
R0310 
R031 1 
R0312 
R03125 

( Z Y ) 

^ ( ) 

t = (U  0 -U  ) 

X ( Z X) 

( ) 

R0313 

R031A 

(-U  J 0 ) 

( Y X ) 

R0315 

R0316 

R0317 

u = unit  rotation  VECTOR  RESOLvfO  INTO  S/C  AXES 

A = Rotation  angCe 

R0318 

R0319 

the  interpretation  Oe  De_  is  as  eOLLO»\|S 

R0320 

R0322 

IF  a , A , A RePReSfNT  IH-  CqMPONeNt  OF  A VeCtOR  IN  THe  ROtATE^^  FRAMe,  tHeN  THe  CcMPONeNtS  OF  tHe  SAMe 

X Y Z 

R0323  vector  in  ORIGINAL  5/C  Ax^s  (U  , B , 3 ) ARe 
R032A  X Y Z 


A8895AA 

YJL  System  ior  agc:  new  pro'^rav 

SHePATIN  by  eYLeS 

Dec  i3,  1966 

(MAIN)  page 

L 

R0325 

R0326 

attitude  NiAleuvEr  Routine 

(B  ) 

( X) 

(A  ) 

{ X) 

user's  own  Page  no. 

b 

R0327  I ) * ( ) 

R0328  (B  ) = DEL  (A  ) 

R0329  I Y)  ( Y) 

R03295  ( ) ( ) 

R0330  (B  ) (A  ) 

R0331  I Z)  ( Z) 

R0332  IHl  routine  WILL  STORE  T Wi 5 ^AtRIX  (SCALeD  UNItY)  IN  SeOUeNjIAL  LOCATIONS  OF  eRASARLe  MeMqRY  BeCIN'iING  WIjH 

R0333S 

R033A  the  L0C*.TI0'  CALLED  OlL,  IN  3S3e^  TO  USE  THe  ROUJINe,  THe  CALLING  PROGRAM  MUST  FIRST  SiORe  U (A  HALF  UnIT 

Ro337  double  erlcision  VectcR)  in  the  Set  of  erasable  locations  Beginning  with  the  address  cai  leD  cof.  tHe  atgle,  a, 

R0339  most  THtN  BE  LOADED  INTO  D(MPaC). 


R03A0  INIBknaLLYi  THE  PrOGraM  aLSO  USES  THE  FIRST  10  LOCaTiOnS  OF  THE  PUSH  DOwm  LisT. 

R0342 


R03A3  REAIOCD^K 

R03AA  

R03A5  THIS  BtSIC  LANGUAGE  SUBRjUjiNe  LOADS  T(MPAC)  WITH  THE  THREE  CDU  ANGLES. 

R03A7 


R03A8  SIGI  MPAI 

R03A9  

R03S0  THIS  II  A BASIC  LANGUAGE  SUBROUTINE  WHICH  LIMITS  THE  MAGNITUDE  OF  DIMPAC)  TO  + OR  _ DPoSMAX  ON  OVERFLOW. 

R0352 


R0353 

PROGRAM 

Storage  allocation 

R0354 

1) 

FIXED  memory 

10S9  WORDS 

RO355 

2 ) 

ERASABLE  MEMORY 

98 

R0356 

R0357 

3) 
A ) 

STATE  switches 
flags 

3 

1 

R0358  JOE  priorities 


TBD 

TBD 


R0359  1)  KALCMANU 

R0360  c)  ONE  SECOND  UPOATE 


R036I  SUFrMARv  OF  STATE  SWITCHES  AN^*  fLAGwORDS  USED  BY  <ALcMANU. 


'!t8895^A 


L 

R0362 

R0363 


R036A 
R0365 
R036  7 
R0369 
R0370 
R0371 
R03  72 

R0373 

R0375 

R0377 

R0378 

R0379 


R0382 


R0383 

R038A 

R0385 

R0386 

R0387 

R0388 

R0389 

R0390 

R0391 

R0392 

R03925 

R0393 

R0394 

R0395 

R0396 

R0397 

R0398 


YJL  SrSIEM  hOR  Ag^^;  mew  PROGRA'1  S^^EPAIIN  gY  EYLES 
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ATTITJDL  MAMEUVER  ROJTINE  USER'S  OWN  page  no.  9 

STATE  FLAGWRD  2 SETTING  MEANING 

SWITCH  T.O,  BIT  NO, 

# 

31  U 0 MAiNEUVEr  went  THROUGH  GimBAl  LOCK 

1 MAiJcUVeR  did  NOT  GO  THROUGH  GIMBAL  LOCK 

* 

32  13  0 CONTINUE  UPDATE  PROCESS 

1 START  UPDATE  PROCESS 

33  12  0 Perform  final  p-axis  yaw  if  required 

1 IGNORE  ANY  FINAL  P-AXIS  YAW 

3H  11  0 SIGNAL  END  UF  KALCMANU 

1 kalcmanu  in  PROCESS  USER  MUST  Set  Sia,itCh  Before  initiating 


* internal  to  KAI.CManU 


suggestions  For  program  integration 

THE  following  VARIABLES  SHOULD  BE  ASSIGNED  TO  UNSWITCH  ERASABLE 

CPHI 

CTHETA 

CPSI 

PUINTVSM  *5 

SCAXIS  *5 

DELDCDU 

DELDCDOi 

DELDCDO2 

RATEINDX 

THl  following  subroutines  may  Be  put  in  a different  bank 

MXM3 

IRANSPOS 

SIGNMPAC 

readcdu< 

CDUTODCm 


9 


488954A  VJL  SYS’ieM  I- OR  : ,MeW  Pro^RA'^  SI^ePatIN  BY  e^LeB 


blc  u*  1966  (Main*  paGe  60a 


L AirirJDt  mameuveR  rojiine 


1017A  3A*2000  3AN<  34 

10175  REF  1 E3  EBANK=  MIS 


10176 

1018  R£f 

1019 

1020  REF 

1021  REF 

1022 

1023  REF 

1024  REF 

1025 

1026  REF 

1027  REF 

1028 

1029 

1030  REF 
10305 

1031  REF 

1032  REF 

1033  REF 

1034 

1035 

1036 

1037  REF 

1038 


55  lASI  445 

1 

1 


2 LAST  604 
1 


1 

3 last  604 


1 

1 
1 

2 LAST  60*t 


1 


34 

34 

34 

34 

34 

34 

34 

34 

34 

34 

34 

34 

34 

34 

34 

34 

34 

34 

34 

34 

34 

34 

34 


2000 

2001 

2002 

2003 

2004 

2005 

2006 

200  I 
2010 
201 1 
2012 

2013 

2014 

2015 

2016 

201  ' 
2020 
2021 
2022 

2023 

2024 

2025 

2026 


1 2001  0 
0 6103  0 
77634  0 
I0A57  0 
01533  0 
45 1 64  0 

01535  0 
70464  0 
61375  1 
01656  0 

01536  0 
41^56  0 
53^35  0 
01664  1 
57^00  1 
70O42  0 
25624  0 
01664  1 
72641  0 
nl2b  1 
77624  1 
70603  0 
75160  1 


VECPOINT 


CDMPMATX 


MOOP 

TC 

RTB 

store 

AXC,2 


YLOAO 


JNIT 

YXV 

30V 

stove 

OOT 

ARtCOS 

CALL 

AXC,l 


I RT  pRET 

readcduk 

BCDU 

CALL 

MIS 

CDUTODCM 

VXM 

PuINTVSM 

MIS 

PUSH 

UNIT 

SCAXIS 

VCOMP 

PICXAXIS 

COF 

SCAXIS 

SLl 


lOhLCOMP 
AxC  9 2 


1039  REF 

1040  REF 

1041 

1042  REF 

1043 

1044 

1045  REF 

1046 

1047  REF 

1048  REF 

1049  REF 
A1050 

1051 

1052  REF 

1053 

1054  REF 

1055  REF 

1056  REF 

1057  REF 

1058 

1059  REF 

1060  REF 


4 LASl  604 
1 

1 


1 

2 LASi  329 
1 
1 


3 LASI  604 
1 

2 LAST  604 
2 last  604 
2 LAST  604 


5 lAsI  604 
1 


34 

34 

34 

3*+ 

34 

34 

34 

34 

34 

34 

34 


2027 

2030 

2031 

2032 

2033 
2036 

2035 

2036 
203  f 

2040 

2041 


01535  0 
01557  1 
77024  1 

73642  1 
45I6O  1 
OOOOO  1 
70  727  1 
77634  0 
33573  0 
35032  0 
70070  1 


MIS 

KEL 

CALL 

MXM3 
AXC,1  CALL 
0 

DCMTOCDU 

RTB 

VISTO2S 
STCALL  CPHI 

KALCMAN3  +1 


34,2042 

50375 

0 

34 ,2045 

0 1 664 

1 

34,2044 

72^40 

1 

34,2045 

70051 

1 

34 ,2046 

31533 

0 

34,204  7 

35632 

0 

34,2050 

7OO70 

1 

34,2051 

67375 

0 

34,2052 

31544 

0 

34,2053 

30614 

0 

PICKAXIS  VLOAD  DuT 

SCAXIS 

3MN  TLOAD 


ROT  180 
BCDU 
STCALL  CPHI 

KALCMAN3  +1 


RDT180 


VLOAO  VXV 

Ml  5 +6 
HALFA 


1061  34*2056 

1062  REF  LASI  604  34,2055 


47-^56  0 
01664  1 


UNIT  VXV 

SCAXIS 


USER'S  OWN  PACf  no.  lO 


read  I he  present  CDU  ANCLES 

COMPUTE  THE  TRANSFORMATION  FROM  INITIAL 
S/C  AXES  TO  STAaLE  MEMBER  AXES  (MIS) 


Resolve  the  pointinc,  direction  vs  into 

INITIAL  S/C  AXES 

TAKE  THE  CROSS  PRODUCT  VF  X VI 
WHERE  VI  = SCAXIS 


NOW  compute  the  TRANSFORMATION  FROM 
FINAL  S/C  AXES  tO  INITIAL  S/C  AXES  = MFI 
compute  the  TRANSFORMATION  FROM  FINAL 

S/C  AXES  TO  stable  MEMBER  AXES 


MFS  IN  PD  LIST 

EXTRACT  THE  CDU  ANGLES  FROM  THIS  MATRIX 


AND  USE  THEM  AS  THE  COMMANDED  CoU  ANGLES 

PROCEED  AS  IF  WE  HAD  BEEN  GIVEN  COMMAND 
CDU  ANGLES 

IF  VF  X Vi  = 0.  PUSH  UP  FOR  VF 
FIND  VF  . VI 
IF  ANTIPARALLEL 


IF  VF  = VI 


180  DEG  rotation  IS  REQUIRED 
Y sTABlF  member  Axis  IN  INITIAL  s/C  AXES 


FIND  Y (SM)  X X ( I ) 

FIND  UNIT  (VI  X UNI1<Y(SM)  X X(I))) 
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L Airiutit  Maneuver  rojtine  user's  own  page  no.  u es 


1063 

34,2056 

■,0056 

0 

1064 

REF 

1 

34,205  ^ 

700(3  4 

1 

1065 

REF 

2 

LAST 

604 

34,2060 

15624 

0 

XROT 

1066 

REF 

2 

last 

6O4 

34,206l 

30414 

0 

1067 

34 ,2062 

776  50 

1 

1068 

REF 

1 

34,2063 

70024 

0 

1069 

10691 

REF 

3 

LAST 

605 

34.2064 

34.2065 

52175 

30414 

0 

0 

PICKX 

UNIT  BOV  PICK  A VECTOR  PERPENDICULAR  TO  ,,  I IN  THE 

PICKX  plane  CONTAININf,  Y(SM)  AND  X(I)  SO  THAT 

STODL  COF  maneuver  DOES  NfiT  GO  THRU  GIMBAL  LOCK 

HALFA 

GOTO 

compmatx 

VLOAD  GOTO  PICK  THE  X AXIS  IN  THIS  CASE 

HALFA 


10692  REF  1 3A,2066  70U60  0 XROT 


R10693  FIRST  EinTRY  POINT"  KALCMAN3 

^1070  the  three  Desired  cdj  angi  e^  hjot  be  stored  as  stnqLe  precision  tWos  complement  angles  tn  the  three  successive 

R1072  locations,  CPHI  , CTHt  l'A,  CPSl. 


1073  REF 
107A 

1076  REF 

1077  REF 

1078 

1079  REF 

1080 

1081  REF 

1082  REF 

1083 

108A  REF 

1085  REF 

1086 

1087  REF 

1088 

1089  REF 


56  last  604 

2 last  604 

3 LAST  604 

4 last  605 

1 

1 

b LAST  604 

5 LAST  605 

2 last  604 
1 


3't,2067  0 6l03  0 KALCMAN3  TC 


34,2070  77(334  0 RTB 

3^,2071  70457  0 

3‘t,207<^  01S33  0 STORE 

34.2073  51R35  0 SLOAD 

34.2074  01335  0 

34,2073  51025  1 OSU 

34,2070  30444  0 

34,207^  71O07  0 

34,2100  72364  0 AXC,2 

34,2T0l  01335  0 

34,210^  01333  0 

34.2103  77024  1 CALL 

34.2104  70464  0 

3h,2105  51335  0 SLOAD 

34,2106  01634  1 


INTPRET 

READCDUK 

BCDU 

ABS 

BCDU  +2 
BPL 

LuCKANGL 

TOOBAD 

TLOAD 

MIS 

BCDU 

cdutodcm 

ABS 

CPSI 


PICK  UP  the  current  cdu  angles  and 
COMPUTE  the  Matrix  from  initial  S/C 

AXES  TO  FINAL  S/C  AXES 
store  INITIAL  5/C  ANGLES 

CHECK  MAGNITUDE  OF  MIDDLE  GIMBAl  ANGLE 

IF  greater  than  60  DEG,  ABORT  MANEUVER 


compute  the  transformation  from  initial 
S/C  AXES  TO  stable  MEMBER  AXES 
CHECK  the  magnitude  OF  THE  DeSIreD 
MIDDLE  GIMBAL  ANGLE 


1090 

1091  REF 

1092  REF 

1141 

1142  REF 

1143  REF 

1144 

11445  REF 
1250 

12581  REF 

1259  REF 

1260 
1261 

1262  REF 

1263 

1264  REF 

1265 

1266  REF 

1267 


2 last  605 

2 LAST  605 

5 last  28 

3 last  604 

3 LAST  605 

7 Last  605 
1 

10  LAST  28 

11  LAST  605 

12  LASi  605 


34 
3a 
34 
3 a 
34 
3a 
34 
3 a 
3a 
34 
34 
34 
34 
34 
34 
3a 
34 
34 
34 


210^ 

2110 

2111 

2112 

2113 

211A 

2115 

2116 
21  W 
2120 

2121 

2122 

2123 

2124 

2125 

2126 
212  ^ 

2130 

2131 


51025  1 
304a4  0 
71007  0 
72564  0 
01657  1 
01632  1 
77624  1 
7046a  0 
45I6O  1 

01535  0 

73472  1 

77('75  1 
77626  0 
52l61  O 
77626  O 
52167  0 
77626  0 
76l75  0 
75I6O  1 


SeCAD 


OSU  BPL 

LOCKANGL 

TOOBAD 

AXC,2  TLOAD 
MFS 
CPHI 

CALL 

CDUTODCM 
AXC,l  call 
MIS 

TRANSPOS 

VLOAD 

STADR 

STOVL  TMIS  +12D 
STADR 

STOVL  TMIS  +6 
STADR 

STORE  TMIS 
AXC,1  AXC,2 


IF  greater  than  60  DEG,  ABORT  MANEUVER 
PREPARE  TO  CAI  CuLATE  ARRAY  MFS 


MIS  AND  MFS  ARRAYS  CAECUEATED  $2 


TMIS  = transpose (MIS)  SCALED  BY  2 
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L AmUDL  maneuver  ROUfiNE 


1268 

REF 

13 

LAST 

605 

3A.2132 

1269 

REF 

6 

LAST 

605 

3A  . 2 1 33 

12695 

3't.213A 

1270 

REF 

2 

LAST 

60a 

3-+.213S 

1271 

3A .2136 

1273 

REF 

1 

3A.2137 

127A 

3A.21A0 

12  75 

REF 

2 

LAST 

606 

3A . 2 1 A 1 

1276 

3-. . 2 1 a2 

1277 

REF 

3 

LAST 

606 

3A.21A3 

1278 

3a^  .2  1 A‘* 

1279 

3-..2iAP 

1280 

1281 

REF 

1 

3A.21A6 

3A.21AV 

01601 

1 

TMIS 

01  P57 

1 

MFS 

7762A 

1 

CALL 

73‘tA2 

1 

MXM3 

A56  75 

1 

VLOAD 

ST  ADR 

52203 

1 

STOVL 

MFI  +12D 

77626 

0 

STADR 

52211 

1 

STOVL 

MFI  +6 

77626 

0 

STADR 

76217 

1 

STORE 

MFI 

A5OOI 

1 

SETPD 

CALL 

00023 

0 

laD 

73POI 

A5P75 

1 

1 

VLOAD 

TRNSPSPD 

STADR 

1282 

1283 

120A 

1285 

1286 
R1287 
R1288 
R1289 

1290 

1291 

1292 

1293 
129A 

1295 

1296 

1297 

1298 

1299 

1300 


REF 

1 

3A.2150 

52l61  0 

STOVL 

TMFI  +12D 

REF 

2 

LAST 

606 

3 A . 2 1 5 1 

3 A.  2 152 

77626  0 

52l67  0 

ST  ADR 
STOVL 

TMFI  +6 

REF 

3 

LAST 

606 

3A.2153 

3A.215A 

77926  0 

76l75  0 

STADR 

STORE 

TMFI 

CALCJLAIE  COESKEW  AND  MF-IsYM 


REF 

A 

LAST 

LAST 

606 

3^.2151’ 

3 A . 2 1 5 6 

A53A5 

0160A 

1 

1 

1 

1 

OLOAD 

DSU 

TMFI  +2 

Hzr 

A 

606 

3A  . 2 1 57 
3A.2160 

01962 

A5325 

PDDL 

MFI  +2 

DSU 

REF 

5 

LAST 

606 

3 A . 2 1 6 1 

3196A 

1 

MFl  +A 

REF 

5 

Last 

606 

3A . 2 1 62 
3A.2163 

01606 

A5325 

0 

1 

PDDL 

TMFI  +A 
DSU 

REF 

6 

LAST 

606 

3A.216^ 

0161A 

0 

TMFI  +10D 

REF 

6 

LAST 

606 

3 A . 2 1 6 E 
3a. 2166 

01972 

77666 

0 

1 

VDEF 

MFI  +10D 

REF 

3 

LAST 

28 

3A.216Y 

01635 

0 

store 

COFSKEW 

R130101 

R130102  CALCJLA'IE  AM  AND  PROCEED  ACCo^DINEi  ro  ITS  MAGNITUDE 
R130103 

13010a  3A.2170  A33A5  1 DLOAD  DAD 


130105  REF 
130106  REF 
130107 
130108  REF 
130109  REF 

13011  REF 
130111 
130112  REF 
130113 
13011a  REF 
130115  REF 

13012 

13013  REF 


7 LAS!  606  3A»217l  01S60  0 

8 LAST  606  3a,217L  01600  0 

3a. 2173  A3L25  0 

1 3A,217A  30'*26  1 

9 LAST  606  3'-t,2l75  01S70  1 

2 LAST  28  3A.217P  016A5  1 

3a,217Y  77(26  1 

1 3a. 2200  016A3  1 

3h.2201  51025  1 

1 3a. 220-1  OO'tlO  1 

1 3A.2203  70^:iA  1 

3A.220A  77751  1 

A last  605  3A.220S  OI632  1 


MFI 

MFl  +160 
D5U  DAD 

QUARTA 
MFl  +6D 
STURF  CAM 
ARCCOS 
STORE  AM 
DSU  BPL 

MINANG 

CHECKMAX 

TLOAD 

CPHI 


USER'S  OWN  PAGE  NO.  1.1  E3 


MFI  3 TMIS  MFS  (SCALED  BY  A) 
transpose  MFI  In,  PD  LIST 


TMFI  = TRANSPOSf  (MFl)  SCALED  RY  A 


CALCULATE  COF  SCALED  BY  2/SlN(AM) 


EQUALS  MFISKEW 


CAM  ; (MF10+MFIa+MFI8-1)/2  HALF  SCALE 
AMsARCCOS (CAM)  (AM  SCALED  BY  2) 

maneuver  LESS  TfAN  .25  DEGREES 

GO  directly  into  attitude  hold 


488954A  YJL  SYSIEM  f- OR  AGC ; NEW  PROGRAM  SHePATIN  BY  EYLES 


L attitjol  maneuver  ROJTINe 


1301A  REF  9 LA51  A95 

13015 

13016  REF  1 

13017  REF  8 LAST  A83 

13018  REF  1 

13019  REF  1 

1302 

13021  REF  2 LAST  606 

13022  REF  1 

13023 

1302A  REF  1 

13025  REF  <+  LAST  606 

13026 

13027  REF  3 LAST  605 

13028 

13029  REF  1 

1303 

13035  REF  10  LAST  606 

1304  REF  7 LAST  606 


34 

it 

34 

34 

34 

34 

34 

34 

34 

34 

34 

34 

34 

34 

34 

34 

34 

34 

34 


2206 

220  7 

2210 

2211 

2212 
2213 
221“^ 

2215 

2216 

221  f 
2220 
2221 
2222 
2223 
222"t 

2225 

2226 

222  ! 
2230 


00767  1 store 

77751  1 TLOAD 

SO'+IS  1 

00775  1 STORE 

34772  1 5TCALL 

70  77  7 1 

45545  1 CRECKMAX  OLOAD 
01643  1 

30412  0 

77244  0 3PL 

70226  0 
01635  0 

77656  1 JNIT 

01624  0 STORE 

77650  1 SOTO 

71024  1 

53575  0 ALTCALC  YLOAD 
OlPbO  0 
01602  1 


13045 

1305 

1306 

1307 

1308 

1309 

1310 

1311 

1312 

1313 
R1314 
R1315 
R1316 
R 1 3 17 

1318 

1319 

1320 

1321 

1322 

1323 

1324 

1325 

1326 


REF  1 

REF  11  LAST  607 

REF  8 LAST  607 
REF  2 LAST  60 7 
REF  12  LAST  607 

REF  9 last  607 
REF  3 LAST  607 


CALLJLAIE  COF 

REF  3 LAST  606 

REF  4 Last  6O5 

REF  4 LAST  6O7 

REF  1 

REF  4 LAST  6O7 


34»223l  77762  1 YSRl 

34*2232  25602  1 STOVL 

34*2233  01566  0 

34*223A  74455  0 YAD 

34*2235  01610  1 

34*2236  25610  1 STOVL 

34*223?  0157h  0 

34*2240  74455  0 VAO 

34*2241.  01616  1 

34,2242  01616  1 STORE 


34*2245  70545  1 
34*2244  01645  1 
34*2245  45525  1 
34*2246  30414  0 
34*224?  01645  1 
34*2250  65'?04  1 
34*2251  70445  0 
34*225^  01622  0 

34*2253  56'?25  1 


OLOAIO 

PDDL 

30VB 

OSU 


1327 

1 a 0 0 

34  *2254 

00001 

0 

loco 

34  *2255 

00003 

1 

1329 

34*2256 

65566 

1 

1330 

REF 

5 last  607 

34*225? 

01612 

0 

1331 

34  * 2260 

56225 

1 

1332 

34*2261 

oouol 

0 

1333 

1334 

34*2262 

34*2265 

00003 

65566 

1 

1 

Sort 

osu 


Sort 


C 


DEC  1^,  I966  (MAIN)  PAGE  607 

« 

USER'S  OWN  page  NO.  13  £3  ^ 

CioUXD 

ABOUT  COMMANOFO  ANGLES 

NIL 

OMEGAPD 

DeLDCDU 

ENDMANU 

DSU 

AM 

MAXANG 

ZERO  OESIRED  rates 

prepare  to  end  FiAneuver  on  Good  return 

VLOAD 

ALTCALC 

COFSKEW 

UNIT 

COFSKEW 

COF 

LOCSKIRT 

COF  IS  THE  maneuver  AXIS 

SEE  IF  Maneuver  goes  thru  gimbal  lock 

VAD 

MFI 

TMFI 

IF  am  greater  TuAN  170  DEGREES 

MF ISYM 

MFI  +6 

VSRl 

TMFI  +6 

MFISYM  +6 

MFI  4-120 

VSRl 

TMFI  4120 
MFISYM  4120 

MFISYM=(MFl4TMFl )/2  SCALED  BY  4 

SRI 

CAM 

DSU 

HALFA 

CAM 

PDO  CAM  $4 

POOL 

SIGNMPAC 
MFISYM  4160 
DOV 

P02  1 - CAM  $2 

0 

2 

PODL 

MFISYM  480 

DOV 

0 

coFz  = Sort (MFI ayms-cam) /1-caM) 

$ ROOT  2 

2 

POOL 

COFY  = SqRT(MFIsYM4-CAM)/(1-LAM)  SROOTZ 

YJL  SrSlEM  for  AGC;  new  PRO^^RAM  SHePaTIN  by  eYLeS 


L 

1335 

1336 

1337 

1338 

1339 
13AO 
13401 

R13412 

R1342 

R1342S 

1343 

1344 

1345 

1346 

1347 

1348 

1349 

1350 

1351 

1352 

1353 

1354 

1355 

1356 

1357 

1358 

1359 

1360 

1361 

1362 

1363 

1364 

1365 

1366 

1367 

1368 

1369 

1370 

1371 

1372 

1373 

1374 

1375 

1376 

1377 

1378 

1379 

1380 

1381 


ATTlTJOt  maneuver  RoJllNE 

REF  6 last  607  3a, 2264  01902  1 

34,2269  56‘=:25  1 

34*2266  OOOOl  0 

34,226^  00003  1 

34,227^  55966  1 

34,2271  77656  1 

REF  4 last  607  34,2272  01624  0 

determine  largest  cof  and  Adjust  accordingly 


34 

ref  5 LAST  608  34 

REF  6 LAST  608  34 

34 

REF  1 34 

REF  7 LAST  608  34 

34 

REF  a Last  608  34 

REF  1 34 

34 

REF  1 34 

34 

REF  9 LAST  608  34 

REF  10  LAST  608  34 

34 

REF  2 LAST  608  34 

34 

REF  5 last  607  34 

REF  1 34 

34 

REF  11  LAST  608  34 

REF  12  LASI  608  34 

34 

REF  7 LAST  608  34 

REF  1 34 

34 

REF  13  LAST  608  34 

REF  14  LAST  608  34 

34 

REF  8 LAST  608  34 

REF  2 LAST  6O7  34 

34 

REF  15  LAST  608  34 

REF  lt>  LAST  608  34 

34 

REF  3 LAST  608  34 

34 

REF  b LAST  608  34 

REF  1 34 


2273  45945  1 COFMAXGO 

2274  01624  0 

2279  01626  1 

2276  71240  1 

227'  70306  0 

2300  01624  0 

2301  50025  0 

2302  01630  0 

2303  70363  0 

2304  77650  1 

2309  /0337  1 

2306  45345  1 COMPI2 

2307  01626  1 

2310  01630  0 

2311  77640  0 

2312  70363  0 

2313  51I45  0 MtTH0D2 

231A  01637  1 

2319  70321  0 

2316  57975  1 

231  ' 01624  0 

2320  01624  0 

2321  51'^45  0 U2POS 

2322  01604  1 

2323  70327  0 

2324  57945  1 

2329  01624  0 

2326  01624  0 

232'  51145  0 0<U21 

233^1  01614  0 

2331  711'24  1 

2332  57945  1 

2333  01630  0 

2334  01630  0 

2335  7/650  1 

2336  71024  1 

233'  51145  0 METHODl 

2340  01635  0 

2341  70345  1 


OSU 

Sort 

UNIT 

STORE 

OLOAD 

3MN 

OSU 

GOTO 

OLOAD 

3MN 

OLOAD 

vLOAD 

STORE 

OLOAD 

OLOAD 

STORE 

OLOAD 

OLOAD 

STORE 

SOTO 

OLOAD 


Dec  1a,  I966  (MAIN)  PAGE  608 


MFISYM 

DDV 

USER'S  OWN  PaGi  no.  14  E3 

0 

2 

VUEF 

COF 

COFx  = SqRT (MFl SYM-CAM) /( 1-CAM)  $ROOT  2 

DSU 

COF 

COF  +2 

DLOAD 

C0MP12 

COF 

BfTN 

COFY  G COFX 

COF  +4 

METHODS 

COFZ  G COFX  OR  fOFY 

METHODl 

DSU 

COF  +2 

COF  +4 

COFX  G COFY  OR  fOFZ 

Methods 

COFZ  G COFY  OR  cOFX 

BPL 

cufskew  +2 

U2P0S 

VCOMP 

COF 

COF 

BPL 

COFY  MAX 

UY 

MFISYM  +2 
0KU21 

UX  UY 

DCOMP 

COF 

COF 

SIGN  OF  UX  OPPOSITE  TO  Uy 

BPL 

MFISYM  +100 
LOCSKIRT 

UY  UZ 

DCOMP 

COF  +4 

COF  +4 

SIGN  OF  UZ  OPPOSITE  TO  UY 

LOCSKIRT 

BPL 

COFX  MAX 

COFSKEW 

UlPOS 

UX 

^8895'tA  YJL  SYSTEM  l-OR  AGC;  NEW  PRO^iRAM  5MEPATIN  BY  EYLES 


L ATTlTJUt  maneuver  ROUTINE 


1382 

1383 
138A 

1385 

1386 

1387 

1388 

1389 


REF  1 1 LAST  608 
REF  18  LAST  609 

REF  9 LASl  608 
REF  1 

REF  19  LAST  609 


S'*  ,23AO 
3A 1 2 3A7 

3^*2350 

3A,235l 


57R75  1 

01b2A  0 
0162^,  0 
51TA5  0 
0160a  1 
70U53  0 

57PA5  1 
01^26  1 


UlPOS 


1390  REF 

1391 

1392  REF 

1393  REF 
139A 

1395  REF 

1396  REF 

1397 

1398  REF 

1399 

lAOO  REF 

1401  REF 

1402 

1403  REF 

1404  REF 

1405 

1A06  REF 

1407  REF 

1408 

1409  REF 

1410  REF 

1412 

1413  REF 


20  LASl  609 

10  LASl  609 

4 LAST  608 

21  LAST  6O9 

22  LAST  609 

5 LAST  609 

7 LAST  608 
1 

23  Last  6O9 

24  LAST  609 

11  LAST  609 
1 

25  LASl  6O9 

26  LAST  609 

12  LAST  609 


34 

34 

34 

34 

34 

34 

34 

34 

34 

34 

34 

34 

34 

34 

34 

34 

34 

34 

34 

34 

34 

34 

34 


2352 

2353 
235^* 
2355 
2350 
235T 

2360 
23  61 

2362 

2363 
236^ 
2363 
2360 

2367 

2370 

2371 

2372 

2373 
237A 
2373 
2370 
2377 

2400 


01026  1 

5IT45  0 0<U12 

01006  0 
71024  1 

57345  1 
01030  0 
01030  0 
V705O  1 
71024  1 

51145  0 METH0D3 
01041  0 
70371  0 

57375  1 

01024  0 
01024  0 

51145  0 U3POS 
01 006  0 
70377  0 

57345  1 

01024  0 
01024  0 

5U45  0 0<U31 

01614  0 


1414  REF  6 

1415 

1416  REF  27 

1417  REF  28 

1418 

1419  REF  7 


LAST  609  34 

34 

LAST  6O9  34 

LASl  609  34 

34 

LASl  609  34 


2401  71024  1 

2402  57345  1 

2403  01026  1 

2404  01026  1 

2403  77O5O  1 

2400  71024  1 


VLOAO 

store 

OLOAO 

OLOAD 

STORF 

OLOAd 

OLOAD 

STORE 

SOTO 

OLOAD 

VLOAD 

STORE 

OLOAD 

OLOAD 

store 

OLOAO 

OLOAD 

store 

SOTO 


USER'S  OWN  page  no.  15 

VCOMP 

COF 

COF 

BPL 

MFISYM  +2 
0KU12 

DtOMP 

UX  UY 

COF  +2 

SIGN  OF  UY  OPPOSITE  TO  UX 

COF  +2 

BPL 

MFISYM  *4 
LOCSKIRT 

Ux  Uz 

DCOMP 

COF  +4 

COF  +4 

SIGN  OF  UZ  OPPOSITE  TO  UY 

LOCSKIRT 

BPL 

COFSKEW  +4 
U3P0S 

VCOMP 

COF 

COF 

BPL 

COFZ  MAX 

UZ 

MFISYM  +4 
0KU31 

DCOMP 

UX  UZ 

COF 

COF 

BPL 

SIGN  OF  UX  OPPOSITE  TO  UZ 

MFISYM  +10D 

UY  UZ 

LOCSKIRT 

dcOmp 

COF  +2 

COF  +2 

SIGN  OF  UY  OPPOSITE  TO  Uz 

LOCSKIRT 


48895^A  y-'L  S'jb’ILM  f OR  pROCj^A'I  5*^tpAlIN  gy  Eyl-bb 


L 


RIA70 

1471 

1472 

1473 

1474 

1487 

1488 

1489 

1490 

1491 

1492 

1493 

1494 
1498 

1496 

1497 

1498 

1499 

1500 

1501 

1502 

1503 

1504 

1505 

1506 

1507 

1508 
R1509 
R1510 

1511 

1512 

1518 

1519 

1520 

1521 

1522 

1528 

1529 

1530 

1531 

1532 

1533 

1534 

1535 

1536 

1537 

1538 

1539 


AlTlTJOb  MA'.bUVbR  ROOlINt 
matrix  OPERATiOmS 


REF  8 LASl  605 


REF  2 LAST  606 


35*3442 

35f3443 
35»344^ 
35.3445 
35.3445 
35.344  ( 

35.3450 

35.3451 

35.3452 

35.3453 
35.345A 
35.3455 
35.3455 
35.3457 

35 . 3460 

35.3461 

35.3462 

35.3463 
35.346^ 

35 . 3465 

35.3465 
35.3467 
35.347O 
3 5.3471- 


35*3442 

E3 

77501  0 MXM3 
00001  0 
64T43  0 

n'bz  1 
77 '■70  1 
55523  0 

77^76  1 
64717  1 
OOOOl  0 

77^50  0 
64^23  0 
iTtb  0 

77774  0 

63566  1 
OOOOl  0 
64723  0 
77756  0 
77764  1 
55523  0 
77772  0 

41517  1 
OOOOl  0 

77550  1 

73501  1 

Return  with  m 


3ANK  35 
ebank=  mis 

setpd 

0 

oload#  pool* 
12D,2 

5.2 

?DDL«  VuEF 

0,2 

MXVx  PDDL4 

0,1 

14D,2 
PDDLx  PDDL* 

80.2 

2.2 

yDEF  Mxv» 

0,1 

PDDL-x  POOL* 
160,2 
100,2 

POOL#  VOEF 
4.2 

MXVx  PUSH 

0,1 

GOTO 

TRNSPSPD 
XM2  IN  PD  LIST 


35.3472 

35.3473 
35.347^ 
35,3475 
35,3475 
35.3477 


76501  1 TRANSPOS  SETPO 
OOOOl  0 
OOOOl  0 

62713  0 PDVL4 

0OOO7  0 
00015  0 


VL0AD4 

0 

0,1 

POVLft 

5.1 

120.1 


35.3500 

35.3501 

35.3502 

35.3503 

35.3504 

35.3505 

35.3505 
35 .3507 

35.3510 

35.3511 

35.3512 

35.3513 
35,351A 


77506  1 PUSH 

65345  0 TRNSPSPD  OLOAD 

00003  1 

00007  0 

I4OO3  1 STOOL 

77526  0 STADR 

63770  1 STOOL 

00O05  1 

77725  1 POOL 

OOO15  0 

I4OO5  1 STOOL 

77526  0 STADR 

63762  1 STOOL 


POOL 

2 

6 

2 

6 

4 

120 

4 

120 
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USER'S  OnN  PACf  NO.  16 


E3 


MXM3  MULlIPLlbS  2 3X3  matrices 
AND  LEAVES  RESyi  T IN  pD  LIST 
ADDRESS  OF  1ST  MATRIX  IN  XRl 
address  of  2NU  matrix  in  XR2 

DEFINE  VECTOR  M?{COl  1) 

M1XM2 (COL  1 ) IN  PD 


DEFINE  vector  M?(C0L  2) 
M1xM2(C0L  2)  IN  PD 

DEFINE  VECTOR  M?(COL  3) 
M1XM2(C0L  31  IN  PD 


reverse  Rows  ano  coi s in  pd  and 


TRANSPOS  transposes  A 3X3  MATRIX 
AND  LEAVES  RFSllLT  IN  PD  LIST 
MATRIX  ADDRESS  IN  XRl 


MATRIX  IN  PD 

ENTER  WITH  MATRIX  IN  PD  LIST 


A8895^A  yJL  SYSFLM  FOR  Act;  Nhi^  PROGRAM  SHtPATIN  bY  EYLFS 


L ATTiTJDp  MAVlUV'bR  ROOTINE 


15AO 

35.3815 

OOU13 

0 

15A1 

35,35lP 

77T25 

1 

POOL 

15A2 

35.351T 

0OO17 

1 

1 SA3 

35 .3520 

I4OI3 

0 

STOOL 

15A4 

35.3521 

77626 

0 

5TA0R 

1SA5 

35.3522 

n'to 

0 

STORE 

USER'S  OWN  page  NO.  i7 


E3 


Return  with  transposed  matrix  ig  pd  list 


48895^A  YJL  system  f- Or  mGC  : NEW  PrOOraM  S^EPaTin  3Y  EYLE5 


dec  U*  1966  (MAIN)  PAGE  612 


L 

1SA7 

15A8 

1551 
C1551 

1552 
C1552 

1553 
C1553 

155A 

C155A 

1555 
C1555 

1556 
C1556 

15565 

C15565 

1557 
C1557 
R1569 

R1570 

R1571 

1572 
C1572 

1573 
C1573 

1579 

C1579 

1575 
C1575 

1576 
C1576 

1577 
C1577 

1578 
C1578 
RI6OO 

1602 

1603 

1609 

1605 

1606 

1607 

1608 

1609 

1610 

1611 


AniTJOt  HANEUVIR  ROJTlNb 


USlR'S  Own  PAGf  no.  18 


39’2907  sank  39 

REF  9 LAST  610  E3  EBANK=  MIS 

39*2907  00013  0 MINANG  2DEC  0.00069375 


39.2910 

39.2911 

39.2912 

13563 

I7O7O 

39393 

0 

0 

1 

maxang 

2DEC 

0.972222222 

39 ,2913 

20OOO 

0 

H ALFA 

2DEC 

0.5 

39,291A 

OOOOO 

1 

39,2915 

OOOOO 

1 

NIL 

2DEC 

0.0 

39 ,29 1 P 

ooooo 

1 

39,2917 

OOOOO 

1 

2DEC 

0.0 

39.2920 

39.2921 

OOOOO 

ooooo 

1 

1 

2 DEC 

0.0 

39.2922  OOOOO  1 

39.2923  20OOO  0 2DEC  0.5 

39,292*+  OOOOO  1 

39.2925  lOOoO  0 UJAkTA  2DEC  .25 

39.2926  OOOOO  1 

GIMBAL  LOCK  CONSTANTS 

D = MSA  CoRPESPONUING  TO  GIMBaL  LOCK  = 60  DEGREES 

NGL  = buffer  angle  (10  aVuID  DIVISIONS  BY  ZERO)  = 2 DEGREES 


39,2927 

15^66 

0 

St 

2DEC 

•933015 

= SIN(D) 

$2 

39 ,2930 

20993 

0 

39,2931 

33555 

1 

K3S1 

2DEC 

.86603 

5 SIN(D) 

$1 

39,2932 

0 1 106 

1 

39,2933 

57177 

1 

K9 

2DEC 

-.25 

= -COS(D) 

$2 

39,293A 

77  177 

0 

= COS(D)COS(D) 

39,2935 

39000 

0 

K 9SQ 

2DEC 

.125 

$2 

39,2936 

ooooo 

1 

39,293  1 

00216 

1 

SNGLCD 

2DEC 

.008725 

= SIN(NGL)C0S(D) 

$2 

39 ,2990 

36323 

0 

39 , 299 1 

17173 

1 

cngl 

2DEC 

.999695 

CUS(NGL) 

$2 

39 ,2992 

OOO57 

0 

39 , 2993 

12525 

0 

LDCKANGL 

2DEC 

.3333333333 

$60DEGG 

39 ,2999 

12525 

0 

ROUTINE  FOR  LIMITING  THE  SIZe  OF  MpAC  ON  OVERFLOW  TO  DP  PoSMAX  OR  DP  NeGMAX 


39,2995  0 0006  1 signmpac  extend 

R'F  2 LAsI  213  39,2996  3 7(35  1 JCA  DPOsMAX 

REF  296  LAST  997  39,2997  S2  ^95  0 OXCH  MPAC 

REF  277  LAST  593  39,2950  10  000  0 CCS  A 

REF  209  LAST  599  39,2951  3 7161  0 CAF  ZERO 

REF  9 LAST  393  39,2952  1 6535  0 TCF  SL0AD2  +2 

39,2953  1 2959  1 TCF  *1 

39,2959  0 OOO6  1 EXTEND 

REF  3 LAST  612  39,2955  9 7135  0 DCS  DPOSMAX 


REF  5 LAST  612  39,2956  1 6533  0 


TCF  SL0AD2 


E3 


48895^A  VJL  SYSIlM  (•  OR  AOC  : PROGRAM  S^■'bPATlN  3Y  tYLps 


L A i moot  MA.-.tUVtP  ROJTiNL 


R1612 

nTERPRLTlVL 

SULROUliNE  TO  READ 

T^b 

CDU 

ANGLES 

1613 

REF  17  LAST 

504 

34,2457 

3 

OO34 

0 

READCDUK 

CA 

CDUZ 

1614 

REF  247  LAST 

612 

34,2460 

t 

4 146 

0 

TS 

MPAC  +2 

1615 

34 ,2461 

0 

OOO6 

1 

EXT  END 

1616 

REF  33  last 

495 

34,2462 

3 

OO33 

1 

OCA 

CuUX 

1617 

REF  1 

34,2463 

i 

6P45 

1 

TCF 

T LOAD  +6 

1620 

1621 

1622  REF 

1623 

1624 

1625 

1626 

1627 

1628 

1629  REF 

1630 

1631 

1632 

1633 

1634 

1635  REF 

1636 

1637 

1638 

1639 

1640 

1641 


17  last  442 


14  LAST  372 


1 


34 

34 

34 

34 

34 

34 

34 

34 

34 

34 

34 

34 

34 

34 

34 

34 

34 

34 

34 

34 

34 

34 


246A 

246^ 

2466 

2467 

2470 

2471 

2472 

2473 

247^ 

2475 

2a76 

2477 

250O 

2b0i 

2502 

2503 
25OA 
2506 
2506 
2 507 

2510 

25U 


66370  0 
OOOO3  1 
30O51  0 
OOOOl  0 
OOOlO  0 
776OI  0 
OOOOl  0 

47A33  0 

00013  0 
33624  1 
00013  0 
65356  1 
00013  0 
41646  0 
71300  1 

70473  0 
00O07  0 
72405  0 
00013  0 
10001  1 
41345  0 
00O05  1 


COUTODCM  AXT»1  SSP 
OCT  3 

SI 

OCT  1 

store  7 
SETPD 

0 

LOOPSIN  SLOAD<^  RTB 


10D,1 

V-UULU>J  1 s 

STORE 

lOD 

SIN 

PDDL 

lOD 

COS 

PUSH 

T IX,1 

DLOAD 

LOOPSIN 

6 

OMP 

SLl 

lOD 

STORE 

0,2 

OLOAD 

DmP 

4 


1642  34 

1643 

1644  34 

1645  34 

1646  34 

1647  34 

1649  34 

1650  34 

1651  34 

1652  3** 

1653  34 

1654  34 

1655  3^* 

1656  3‘» 

1657  34 

1658  34 

1659  34 

1660  34 


2512  OOOOl  0 

2513  41325  0 PDDL 

2514  00U07  0 

2516  OOOll  1 

2516  72405  0 OMP 

2517  00003  1 

2520  72421  0 3DSJ 

2521  00015  0 

2522  IOOO3  0 STORE 

2523  41345  0 OLOAD 

2524  DOOO3  1 

2526  OOOO5  1 

2526  41325  0 PDDL 

2527  JOO07  0 

2530  OOOll  1 

2531  72405  0 OMP 

2532  OOOOl  0 

2533  72415  1 OAD 


0 

DMP 

6 

8L) 

SLl 

2 

SLl 

I2D 

2,2 

DMP 

2 

4 

DMP 

6 

8D 

SLl 

0 

SLl 


USER'S  OrtN  PAGf  no.  19 


LOAD  T(MPAC)  WItH  CDU  ANGLES 


AND  CHANGE  MODE  TO  TRIPLE  PRECISION 


SET  XRl,  SI,  AND  PD  FOR  LOOP 


LOAD  PD  WITH  0 SlN(PHl) 

2 COS(PHI) 

4 sIN(THETA) 
6 fOS(THETA) 
8 SIN  (PSD 
10  rOSCPSI) 


CO:COS(THETA)COS(PSI ) 


(PD6  SIN(rHLTA)cIN(PHI) ) 


Cl=-C0S(THE1 A) SIN (PsI )COS (PHI ) 


(PD7  COS(PHI)SIf\,(THFTA)  ) SCALED  4 


^8895^A  YJL  SY3lt:M  f-OR  aGC.  NtW  PRO^RA'-l  S^ePATIN  3Y  eYLeS 


Dec  1,,  1966  (MAIN)  PAGe  61A 


» 


u ArTivJUt  Maneuver  routine 


1661 

3a  .253A 

00O17 

1 

IaD 

1 66  A 

3 A f 2 5 3 5 

lOOOS 

0 

ST  ORE 

A , 2 

166A5 

3A  ,2536 

77  ^A5 

1 

OLOAD 

1665 

3a, 253  f 

JOOll 

1 

8D 

1666 

3a ,25A0 

1000  7 

1 

STORE 

6,2 

1 6665 

3a,25A1 

77  'A5 

1 

OLOAD 

1667 

3A,25A2 

00O13 

0 

lOD 

1668 

3A  ,26A3 

72^05 

0 

OMP 

SLl 

1669 

3a,25AA 

00003 

1 

2 

1670 

3a,25A:3 

looii 

0 

STORE 

8D,2 

16  a 

3A  ,25A6 

A 1 3 A5 

0 

OLOAD 

dmp 

1672 

3 A , 2 5 A ( 

00013 

0 

lOD 

1673 

3a,2550 

OOOOl 

0 

0 

1 67  A 

3A , 255 1 

72^76 

1 

OCOMP 

SLl 

1675 

3a,2552 

10013 

1 

STORE 

10D,2 

1676 

3a  ,2553 

A1  3A5 

0 

OLOAD 

DMP 

1677 

3a,255A 

00005 

1 

A 

1678 

3A,2553 

00013 

0 

lOD 

1679 

3A  ,255^ 

72^76 

1 

OCOMP 

SLl 

1680 

3a,255/ 

10015 

1 

STORE 

IaD, 2 

16805 

3a,2560 

77  ^A5 

1 

OLOAD 

16  81 

3a  , 256 1 

72^05 

0 

OMP 

SL 1 

1682 

3a,2562 

OOOll 

1 

8D 

1683 

3 A , 2 b 63 

A1325 

0 

PDDL 

DMP 

1 68  A 

3 A , 2 5 6 A 

00007 

0 

6 

1685 

3A  ,256& 

OOOOl 

0 

0 

1686 

3A,256& 

72A15 

1 

oad 

SLl 

1688 

3A , 256  ! 

77026 

0 

STADR 

1689 

3A,2570 

57^60 

1 

STORE 

1aD,2 

16895 

3A,257l 

77  (A5 

1 

OLOAD 

1690 

3A,2572 

72^05 

0 

OMP 

SLl 

1691 

3A,2573 

OOOll 

1 

8D 

1692 

3A,257A 

A1325 

0 

PDDL 

DMP 

1693 

3a ,2573 

00007 

0 

6 

169A 

3a ,2570 

0OOO3 

1 

2 

1695 

3a,257  ? 

72^25 

1 

OSU 

SLl 

1696 

3A , 2600 

77^26 

0 

STADR 

1697 

1698 

3a  ,2601 
3A,2602 

67(56 

77016 

1 

0 

STORE 

RVCJ 

16D,2 

RiToo  calculation  oe  the  matrix  dll....*. 


USER'S  OWN  PaGf  NO.  20  E3 

C2  = C0S(THETA)SIn,  (PSI  ) SIN  (PHI  ) 

C3=S1N(PSI) 


CA  = C0S(PS1  )CO.S(pHI) 


C5=-C0S(PsI)SIN(PHI) 


C6=-SIN (THETA )CnS (PSI ) 

(PUSH  UP  7) 

(PD?  COS(PhnSlN(THETA)SIN(PSn  ) SCALEA 
(PUSH  UP  7) 

C7=C0S (PHI ) SIN(tHETA) SIN (PSI ) 
+C0S(THETA)SIN(PHI) 

(PUSH  UP  6) 

(PD6  SlN(THErA)SIN(PHI)SIN(PSI ) ) SCALEA 
(PUSH  UP  6) 

C8=-SIN (theta )StN (PHI ) SIN (PSI ) 

+ COS(THETA)CCJS(PHI  ) 


R1701  » n --T  it 

R1Y02  del  r ( IDMATRIX) COL ( A) +UU  ( 1-COS ( A ) ) +UX  5IN(A)  SCALED  1 

R1703 

RHOA  whlre  u Is  A UNIT  vecidk  (DP  scaled  2)  ALONG  The  Axis  OF  rotation. 

R1706  a is  the  angle  OF  ROIAIIUN  (DP  SCALED  2) 

RI707 
R1708 


UPON  entry  the  starting  address  of  U is  COF,  and  a IS  IN  MPAC 


A88954A  YJL  SYSTEM  FOR  AGC.  NEW  PROGRAM  SMePATIN  BY  LYLLS 


dec  1^,  1966  (MAIN)  PAGE  6lS 


L Ari'llJDt  HA'-eUVeR  RQDtINe 


1709  3A, 

1710  39. 

1711  39, 

1712  39. 

1713  39, 

1719  REF  5 LAST  607  39, 

17191  REF  2 LAST  607  39, 

17192  39, 


2603 

91901 

1 DeLCOMP 

SETPD 

2609 

OOOOl 

0 

2605 

65356 

1 

SIN 

2606 

9 1 596 

0 

cos 

260  7 

91021 

1 

3DSU 

2610 

30919 

0 

261 1 

70995 

0 

2612 

77  725 

1 

PDDL 

Rins  COMPJlE  the  DIAGONAL  COMPONENTS  O'"  DEL 


1/16  REF  29  LA51  609  39 

1717  39 

1718  39 

1719  39 

1720  39 

1721  39 

1722  REF  3 LASl  615  39 

1723  REF  2 LASl  609  39 

1 /29  REF  30  LASl  6l5  39 

1/25  39 

1726  39 

1/27  39 

1728  39 

1729  39 

1730  REF  9 LAST  615  39 

1731  REF  3 LASl  615  39 

1732  REf  31  LASl  615  39 

1733  39 

17331  39 

17332  39 

17333  39 

17339  39 

17335  REF  5 LASl  615  39 

17336  REF  9 LASl  615  39 


2613  01629  0 

26lA  91316  0 DSO 

26lS  00OO5  1 

2610  93312  0 SL2 

26lY  00003  1 

2620  91152  1 SLl 

2621  70995  0 

2622  15360  0 STODL 

2623  01P26  1 

2629  91316  0 DSo 

2625  00O05  1 

2620  93312  0 SL2 

2627  00003  1 

2630  91152  1 SLl 

2631  70995  0 

2632  15370  1 STODL 

2633  01P30  0 

2639  91316  0 OSQ 

2635  00005  1 

2636  93312  0 SL2 

2637  00O03  1 

2690  91152  1 SLl 

2691  70995  0 

2(j92  01600  0 STORE 


R1739  compute  THE  OFF  DIAGONAL  TERmp  OF  DEL 

1735  39,2693  91395  0 OLOAD 

1736  REF  32  LAST  615  39,2699  01629  0 

1737  REF  33  LASl  615  39,2693  01626  1 

1738  39,2695  72905  0 OMP 


1739  39,269^ 

1790  39,2650 

1791  REF  39  LASl  615  39,2651 

1792  39 ,2652 

1793  39,2653 

1799  39,2659 

1795  39,2655 

1796  REF  6 LAST  615  3‘,,2655 


00005  1 
91325  0 
01630  0 
OOOOl  0 
93206  1 
00007  0 
91112  0 
70995  0 


PDDL 


PUSH 

5L2 


PUSH 

0 

PDDL 

PUSH 

BOVB 

HALFA 

SIGNMPAC 


COF 

DMP 

9 

DAD 

2 

BOVB 

SIGNMPAC 

KEL 

COF  +2 

DmP 

9 

DAD 

2 

BOVB 

SIGNMPAC 
KEL  +8D 
CUF  +9 
DMP 
9 

DAD 

2 

BOVB 

SIGNMPAC 
KEL  +16D 


DMP 

CUE 

CUF  +2 
SLl 

9 

DMP 

COF  +9 
0 

dad 

6 

BOVB 

SIGNMPAC 


USi-R'S  OWN  PAGp  NO.  21 

mpac  contains  the  angle  a 

PDO  = SIN(A) 

PU2  = COS(A) 


PD9  = I-CUS(A) 


UX  UX ( l-COS (A) ) 

UX  UX(1-C0S(A) ) +COS(A) 

UY  UY(1-C0S(A) ) 

UY  UY(1-CUS(A) ) +COS(A) 

UZ  UZ(l-COS(Al ) 

UZ  UZ(1-C0S(A) ) +COS(A) 


D6  UX  UY  (1-COa  A) 


D8  UZ  SIN  A 


E3 


$2 


Si 


$2 


SI 


S2 


SI 


S 9 


S 9 


^8(195^A  YJL  SYSILM  FOR  AGC:  NEW  SHtPATiN  3Y  eYLfs 


dec  1-^,  1966  (MAIN)  PAGE  616 


1.  aTFiIJOi:  MA'itUVtR  RoUTligE 


ubtR's  OWN  page  no.  2<; 


17A7  REF  5 LAST  615  3A,265/  15566  0 

17a8  3A.266D  62‘*21  1 


STOOL  ICEL  +6 
3DSU  SL2 


E3 


1769 

1750 

1 751 
1752 

REF 

REF 

REF 

7 

6 

35 

LASl 

LAST 

LAST 

615 

6 1 6 
615 

1753 

1756 

1755 

REF- 

36 

LAST 

6 1 6 

1 756 

1757 

1758 

REF 

37 

LAST 

6l6 

i TDV 

1760 

1761 

i 

1763 

1766 

REF 

REF- 

8 

7 

LASI 

LAST 

6 1 6 
616 

1765 

1766 

1767 

REF 

9 

LAST 

6 1 6 

1768 

1769 

1770 

1771 

REF 

REF 

REF 

8 

38 

39 

LAST 

LAST 

LAST 

616 

616 

616 

3A 

3A 

3A 

3A 

3A 

3A 

3A 

3A 

3^ 

36 

36 

36 

36 

36 

36 

36 

36 

36 

36 

36 

36 

36 

36 


2661 
266^ 
2663 
266^ 
2665 
2 666 
266  I 

2670 

2671 

2672 

2673 

2676 
2675 
2670 

2677 

2700 

2701 

2702 

2703 

2706 
2705 
2 706 

2707 


77606  0 
70665  0 
15562  1 
01626  0 
61205  0 
01630  0 
00005  1 
65352  0 
01626  1 
61605  0 
OOUOl  0 
62615  0 
00007  0 
77606  0 
70665  0 
15566  1 
62621  1 
77606  0 
70665  0 
15576  0 
01626  1 
61205  0 
01630  0 


30VB 

SIGNMPAC 
STOOL  KEL  +2 
COF 

OMP  DMP 

COF  +6 
6 

SLl  POOL  06  Ux  Uz  (1-C06  A ) $ 6 

COF  +2 

OMP  PUSH  D8  UY  SIN(A) 

0 

OAD  SL2 

6 

30  V B 

SIGNMPAC 

STODL  KEL  +6  UX  UZ  (l-COS(A)l+UY  SIN(A) 

3DSU  SL2 
30VB 

SIGNMPAC 

STODL  KEL  +12D  UX  UZ  (1-C0S(A))-UY  SINIA) 

COF  +2 
OMP  DMP 

COF  +6 


1772 

L 1 ( 3 

1776 

1775 

REF 

60 

LASl 

616 

1 f fb 

1777 

1778 

i 1 

1780 

1781 

REF 

REF- 

10 

9 

LAST 

LAST 

616 
6 1 6 

1782 

1783 
1786 

REF 

11 

LAST 

616 

178  5 
1786 

REF 

1 0 

LASl 

616 

36 

36 

36 

36 

36 

36 

36 

36 

36 

36 

36 

36 

36 

36 

36 


2710 

2711 

2712 

2713 
271^ 

2715 

2716 
271^ 

2720 

2721 

2722 

2723 
2 726 

2725 

2726 


00005  1 
65352  0 
01626  0 
61605  0 
OOOOl  0 
62615  0 
00O07  0 
77*06  0 
70665  0 
15576  1 
62621  1 
77*06  0 
70665  0 
01572  0 
77*16  0 


6 

SLl  PUDL  D6  UY  Uz  (1-C06(A))  $ 6 

CuF 

OMP  PUSH  D8  UX  SIN(A) 

0 

OAD  SL2 

6 

30V8 

SIGNMPAC 

STODL  KFL  +16D  UY  UZ(1-C0S(A))  +UX  SIN(A) 

3DSU  SL2 

30VB 

SIGNMPAC 

STORE  KEL  +100  UY  UZ  (l-COS(A))  -Ux  SIN(A) 

RVQ 


R1787  DlRFlcriuN  CCsINE  MATRIX  TO  C3J1  ANUlE  ROUTINE 

R1788  Xl  contains  THE  COMPLEMENT  OF  He  STARTING  ADDReSS  FOR  MATRIX  (SCALED  Z) 
R1789  leaves  CDU  ANGLES  SCALED  zP^  iN  V'lMPAC) 

R1790  COStMGA)  WHL  BE  LEFT  IN  SI  (SCALED  1) 


Rl79i 


THE  DIRECTION  COSINE  MATRTX  RELATING  S/C  AXES  TO  STABLE  MeMBeR  AXES  CAN  BE  WRITTEN  AS*6« 


488954A  YJL  SYslEM  f- Or  AGC:  mtw  PrOOrAM  sHLPATkm  3Y  LYLL 


L 


Rn93 

R179A 

R1793 

R1796 

R1797 

R1798 

R1799 

R1800 

R1801 

R1802 

R1803 

R1804 

R1805 

R1806 

R1807 

R1808 

R1809 

R1810 

RlBll 

R1812 

R1813 

lOlA 

1815 

1816 

1817 

1818 

1819 

1820 
1821 

1822 

1823 

182A 

1825 

1826 

1827 

1828 

1829 

1830 

1831 

1832 

1833 
183A 

1835 

1836 

1837 

1838 

1839 
18A0 


ATTITJDl  MA\LUYER  ROJliUt 

C =C05(TflETA)C05(P5l  ) 

0 

C =-C05(THETA)SlN(P51)C0i’(PHI)+SI  ( THLI  A ) S I N ( PH  1 ) 

1 

C sC0S(THETA)i)IN{PbI)biN(PHI)  + 5 N ( THET  A ) CUS  ( PH  1) 
2 

C =SIN(PbI) 

3 

C =COS(PSI)COS(PHI) 

L r-COSCPSI ) SlNCPHl ) 

5 

C =-5IN(THETA)C0.S(PS1) 

6 

C sSiN  (THeTA)  blN  (P^5l  ) COS  IPHI  ) +COS  T HET A ) 51 N ( PH  1 ) 

7 

C =-SIN(THETA)bI(M(P5l)blH(PHI)+C0  ( jHETA  > COS  ( PH  I ) 

8 

WHFRE  PHI  = OGA 

IHETA  = IGA 
PSl  = MGA 


REF  12  LAS!  616 
REF  18  LAST  613 


575^3  1 DcMTOCU'J  OLOAD*  ARCSIN 

D0O07  0 6,1 

71^06  0 PUSH  COS 

91152  1 SLl  BUVB 

0 SIGNMPAC 

00051  0 STORE  Si 

57543  1 OLOAD*  DCOMP 

00015  0 12D,1 


34 

REF  19  LAS!  617  3‘t 

34 
3*, 

REF  1 34 

34 
34 

REF  1 34 

REF  6 LAS!  615  34 

34 

REF  1 34 

34 

REF  7 LAST  617  34 

34 
34 
34 
34 

REF  20  LAST  617  34 

34 


273/  67971  1 

2740  OOO51  0 

2741  51I23  0 

274^  OOOOl  0 

2743  70/55  1 

2799  57P95  1 

2795  43‘;99  1 

279P  70/52  0 

2797  30914  0 

2750  77P50  1 

2751  70/54  0 

275'/  77025  0 SJHALFA 

2753  30914  0 

2759  770O6  1 CALCPHI 

2755  57P93  1 0<THETA 

2750  OOOlO  0 

275/  57971  1 

2^60  OOO51  0 

2761  51123  0 


ODV 

ARCSIN 

PDDm 

Si 

BPL 

0,1 

OLOAD 

3PL 

oktheta 

DCOMP 

DAD 

GOTO 

SUHALFA 

HaLFA 

OSU 

CALCPHI 

HaLFA 

RUSH 

OLOAD* 

DCOMP 

10D,1 

ODV 

PDDL* 

ARCSIN 

Si 

BPL 

dec  1^,  1966  (MAim)  page  61/ 


USER'S  OWN  PAGf  no.  23 


E3 


PD  +0  PSl 


PD  *2  THETA 

MUST  CHECK  THE  SIGN  OF  COS(THETA) 

TO  Determine  thf  proper  quadrant 


PUSH  DOWN  PHI 


A8895'^A  YJL  bYbTEH  FOk  AQC;  UhW  PR0^9i\,M  SHePATIN  BY  eYLes 


Dec  1^,  1966  (MAIN)  PAGe  61b 


L AlTirJUt  MANEUVeH  kOJTiNL  USER'S  OWN  PaGf  NO.  Z't  t3 


18A1 

3 't  * 2 7 6 2 

OOOll 

1 

BU.l 

18A2 

R :;.F 

1 

34.2763 

70775 

0 

OKPHI 

18A3 

34,276A 

57545 

1 

OLOAD 

DCOMP 

PUSH 

UP 

PHI 

18AA 

34.2765 

43444 

1 

3PL 

DAD 

18A5 

R£F 

1 

3‘t  .2  76b 

70  772 

1 

SUHALFAP 

leA6 

REF 

3 

LAST 

617 

3^.2767 

3041A 

0 

HALFA 

1847 

34.277° 

77b50 

1 

SOTO 

1848 

REF 

1 

3^*  .277^- 

70  776 

0 

VECOFANG 

1849 

3't.2772 

52*^25 

1 

SJHALFAP 

OSU 

GOTO 

1850 

REF 

9 

LAS! 

6l8 

3't.2773 

3041A 

0 

HALFA 

1851 

REF 

2 

LAST 

6 1 8 

3*+  .2 

70  776 

0 

VECOFANG 

1852 

34.2775 

77  745 

1 

0<PH1 

OLOAO 

PUSH 

UP 

PHI 

1853 

34.277b 

43466 

1 

VECOFANG 

YDEF 

RVO 

A8895'^A  YJL  system  FOR  AGC:  NtW  PROGRAM  sHePATIN  BY  eYLeS 


l^EC  1:^,  1966  (MAIN)  page  619 


L ATTITJijE  maneuver  ROjTiNE 

Pl85A  ROUriNES  FOR  TERMINATING  tHE  AOTO^ATIC  MANeUVeR  AMD  RETURNING  TO  USeR 


1855 

1856 

RiF 

82 

LAST 

b rf 

1857 

1858 

REF 

82 

LASl 

bbl 

18581 

REF 

10 

LAST 

612 

1859 

C1859 

REF 

1 

1860 

1861 

REF 

63 

LAST 

669 

1862 


1863 

186A 

ref 

83 

LAST 

619 

1865 

REF 

83 

LASl 

619 

18651 

REF 

1 1 

LAST 

619 

1866 

C1866 

REF 

1 

3a, 2777  77(76  1 ENDMANJ 

3a, 3000  3 7(SA  0 

3a,3O01  0 OOOA  0 

3a, 3002  0 5(01  1 

E3 

3A,3003  03(15  1 

3A,300A  70063  0 

3a,300B  0 0O03  1 

3a, 3000  0 5005  1 

3A»3007  77(76  1 TOOBAD 

3a, 3010  3 7(5A  0 

3a, 3011  0 OOOa  0 

3a, 3012  0 5(01  1 

E3 

3A,3013  03OI7  1 

3a,301A  70063  0 


EXIT 

CAF  Two 

inhint 

TC  WAITLIST 

EBANK=  MIS 
2CADR  GOODMANU 


RELINT 

TC  ENDOFJOB 


exit 

C AF  T w 0 

INHINT 

TC  WAITLIST 

eban<=  mis 

2CADR  NOGO 


1867  3a,301I>  0 0003  1 RELINT 

1868  REF  6A  LAST  6l9  3a, 3010  0 5905  1 TC  ENDOFJOB 


1869 

REF- 
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LAST 

88 

1870 

1871 

REF 

28 

LAST 

5 77 

1872 

REF- 

32 

last 

388 

1873 

REF 

3 

LASl 

18A 

3A’3017  0 60A5  0 NoGO 

3A,3020  02OOO  0 
3A,302l  3 6301  0 

3a, 3022  0 5‘(A3  1 

3A,3023  26(26  0 


1C  FLAG2DWN 

OCT  2000 

CAF  THREE 

TC  PoSTJUMP 

CADR  BaDeND 


uSERtS  O^N  pA(jF  NO.  25  E3 


PREPARE  FOR  A GnOD  (NORMAL)  RETjRN  VIA 
GOODEND 

INITIAL  OR  FINAI  GiMBAL  ANGLES  IN 

gimbal  lock 


PREPARE  FOR  A BaD  RETURN  VIA  BADEND 


reset  bit  11  OF  FLA&WRD2  TO  SIGNAL  END 
OF  KAlcMANU 

RETURN  UNDER  WAITLIST  VIA  BADEND 
AND  WAKE  UP  USER 
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R0730 
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0732 

0733  REP 
073A 

073B  REP 

0736  ref 

0737 

0738  REF 

0739  REP 
07A0 

07A1  REF 
07A2 

07A3  REF 
07AA 

07AB  REF 
07A55 

07A7  REF 
07A8 

07A9  REF 
07B0  REF 
0751  REF 
0759 

0761  REF 
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1 

1 
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A3  Last  620 

AA  LAST  620 

A5  LASl  620 

A6  LASl  620 

A LAST  27 

10  LASl  618 
A LASl  27 
A7  LASl  620 

A8  LAST  620 


S't 

3a 
3a 
3a 
3A 
3A 
3a 
3a 
3 A 
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3a 
3A 
3A 
3A 
3A 
3a 
3A 
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3027 
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3031 
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303A 
3U35 
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3037 

30AG 

30A1 

30A2 

30a3 
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30A3 

30A6 
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01626  1 
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01630  0 
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0762 

0763  REF 
076A  REF 

0765  REF 

0766  REF 

0767 

0769  REF 

0770  REF 
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0780 

0781  REF 

0782 

0783 
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0786 

0789  REF 
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0791 
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0793 

07935  REF 
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079AA 
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0 

3A 
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30A16 

1 

ih 
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1 
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,3055 

015AA 

01635 

0 

3A 

,3056 

0 

3*, 

,3057 
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0 

3a 

,3060 

01602 

1 

3a 

,3061 

15602 

1 

3a 

,3062 

01606 

0 

3^+ 

,3063 

65316 

0 

3A 

, 3n6A 

0160A 

1 

3 A 

,3065 

A3316 

1 

3A 

,3066 

77(66 

0 

3a 

,3067 

016A7 

0 

3*, 

,3070 

50025 

0 

3 a 

,3071 

30AA0 

1 

3 a 

,3072 

7 1‘*55 

0 

3A 

,3073 

511A5 

0 

3A 

,307A 

,3075 

01606 

7110a 

0 

1 

3a 

3a 

,3076 

57P75 

1 

3a 

,307  ’ 

01635 

0 

3a 

,3100 

15635 

0 

3a 

,3101 

016a7 

0 

3 a 

, 3 i02 

7767  6 

0 

3 A 

,3103 

016A7 

0 

2 LaSI  607 
A LAST  27 
12  LASl  619 
1 

5 LAST  620 
1 
1 

1 


1 

1 

2 LAST  620 

2 LASl  620 
1 

2 LAST  620 

3 LAST  620 


3L0AD 

3SU 

OLOAD 

SLl 

OMP 

PDDL 

SLl 

STORF 

vCOMP 

STOOL 

OCOMP 

PDDL 

STOVL 

STORE 

V|XV 

STOOL 

D5Q 

DSQ 

SORT 

STORE 

DSU 

DLOAD 

YLOAD 

STOOL 

OCOMP 

STORE 
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USfcRiS  OWN  PAGf  NO.  1 


ABS 

COF 

BPL 

CNGL 

NOGIMLOC 

OMP 

COF 

COF  + A 

POOL 

COF 


IF  (ABSICOF  )-CnGL)  POS*  GO  TO  mOGIMLOC 
0 


SLl 

COF  +2 

OSU 

COF 

VOEF  2 

K1  VI  = (COF  , COF  COF  , COP  COF  ) $2 

VAD  0 0 1 0 2 

HALFA 

K2  V2  = ( (1-Vl  ) , -VI  , -VI  ) S2 

COF  +2  012 

POOL 
CoF  tA 


VOEF 

NIL 

<3 

MIS  +6 
IG 

VSLl 

K1 

P2I 

G21 

POOL 

021 

DaD 

RAD 

BMN 

SNGI  CO 

NOGIMLOC 

BPL 

G21 

OkG21 

VCOMP 

IG 

IG 


V3  = (0*  COP  , -COF  ) 

2 1 

IG  = MIS  $2 

3 

(P21,  021,  G2U  = (VI,  V2,  V3)  IG  $2 


2 

RAD  = SQRl (O2I  021  ♦ 
IF  (RAD-SNGLCD)  NEG, 


2 

G21  G21) 

GO  TO  NOGMLOC 


IF  G21  IS  NEG  ... 

IG  =-IG,  RAO  =-RA0 


RAD 

RAO 
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1 
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3105 

3106 

3107 
31  lO 
3111 
31  U 
3113 


A33A5  1 0<G21 

01t>02  1 
01t>A7  0 
51^00  1 
allA  0 
50^25  0 
30‘t30  0 
71655  0 


3L0AD 


30V 

3SU 


0802 

0803  REF  2 LASI  620 

080A 

0805  REF  5 LAST  621 

0806  REF  5 LAST  607 

0807 

0808  REF  6 LAST  621 

0838  REF  13  LASI  607 

0839 

0860  REF  16  LASI  621 

0861  REF  15  LAST  621 

0862 

0863  REF  1 

0866  REF  2 LAST  621 

0868 

0869  REF  2 LAST  620 

0850  REF  1 

0851 

0852  REF  11  LAST  620 

0853  RzF  3 LAST  621 

0856 

0855  REF  1 

0856  REF  6 LAST  621 
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36 

36 

36 

36 

36 

36 

36 

36 

36 

36 

36 

36 

36 

36 

36 

36 

36 

36 

36 

36 
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3116 
311i> 
3110 

3117 
3120 
3 l21 

3122 

3123 
312A 

3125 

3126 
312T 

3130 

3131 

3132 

3133 
313A 

3133 
3136 
313  V 

3160 

3161 

3162 


70365  1 
01606  1 
66271  0 
01667  0 
01665  1 
71  <^66  0 
0 

01376  0 
65325  0 
01366  0 
01360  0 
76A66  1 
15616  1 
01616  1 
50O15  0 
30662  0 
71152  1 
67375  0 
30A16  0 
01616  1 
77656  1 
25360  0 
01616  1 


cbmcalc 


OLOAD 

ODV 

3PL 

RDDL 

VDLF 

STOOL 

OAD 

vLOAD 


JNIT 

STOVL 


0857 

0858  REF 

0859 

0860  REF 

0861 

0862  REF 

0863  REF 

0867 

0868  REF 

0869  REF 

0870 

0871  REF 

0872  REF 

0873 

0876  REF 

0875 

0876  REF 

0877  REF 

0878 


12  LASI  621 
1 

3 LAST  620 
1 

13  LAST  621 

5 LAST  621 

1 

2 LAST  621 

16  Last  621 

6 last  621 

3 LAST  621 


36 

36 

36 

36 

36 

36 

36 

36 

36 

36 

36 

36 

36 

36 

36 

36 

36 

36 

36 


3163 

316A 

3163 

3166 

3167 

3150 

3151 

3152 

3153 

315A- 

3153 

3156 

3157 

3160 

3161 

3162 

3163 
316A 
3163 


53^55  0 VAD 

30^16  0 

77650  1 SOTO 

71^66  0 

52^75  0 SETEl  VLOAO 
30620  1 
71i57  1 

‘•7^75  0 ALTL  vLOAD 

30^16  0 
01616  1 

60056  0 JNIT 

71167  0 

01360  0 SrOREEl  STORE 
V7635  1 vXV 

30616  0 

67315  0 PDVL 

01616  1 \ 
01360  0 

53655  0 VAD 
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USER'S  OWN  PaGf  NO.  2 

DAD 

P2l 

IF  G21  IS  PO5.... 

RAD 

ABS 

IF  (ABS(P21+rAD)-SD)  NEG,  GO  NOGIMLOC 

CBMCALC 

BMN 

SD 

NOGIMLOC 

CBM  = D21/RAn 

SRI 

021 

BDSU 

RAD 

CAM 

DLOAD 

NOGIMLOC 

MFI  +12D 

POOL 

MFI  +6 

MFI 

VSLl 

OGF 

OGF 

OGF  = (MFI  , MFt  . MFI  ) $2 

0 3 6 

BMN 

CNGL 

AlTE 

VXV 

HALFA 

OgF 

IF  ((OGF  ) ♦ rN(,L)  NEG,  GO  TO  AlTE 

0 

El 

OGF 

UNIT 

HALFA 

El  = UNIT(0GI  X OGF) 

ST0RE2 

GOTO 

NIL  +2 

E2  = UNIT (OGl  X OGF) 

STOREEl 

VXV 

HALFA 

OGF 

BOV 

setfi 

El 

El  = (0,0,1) 

HALFA 

VXV 

OGF 

El 

UNIT 

E2  = UNITIEI  X nGI  + OGF  X El) 
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0881 

0882 

0883 

088A 

0885 

0886 

0887 

0888 

0889 

0890 

0891 

0892 

0893 
089A 

0895 

0896 

0897 

0898 

0899 

0900 

0901 

0902 

0903 
090A 

0905 

0906 

0907 

0908 

0909 

0910 
09105 

0911 

0912 

0913 

09U 

0915 

0916 

0917 

0918 

0919 

0920 

0921 

0922 

0923 
092A 

0925 

0926 
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3A 

REF  1 3A 

3A 
3A 

REF  A LASi  620  3A 

3A 
3A 
3A 

REF  A LAST  621  3A 

REF  5 LAST  622  3A 

3A 
3 A 
3A 

REF  1 3A 

3a 

3a 

3A 

REF  2 LASI  622  3A 

REF  1 3A 

3A 
3A 
3 A 

REF  3 LASI  622  3A 

3A 
3 A 


3A 

3a 

3A 

3A 

REF  A LAST  622  3A 

REF  2 LAST  622  3A 

3A 
3 A 
3A 
3A 
3A 
3A 

3A 
3A 
3 A 
3a 
3a 
3A 
3A 
3 A 
3A 
3A 
3A 
3A 
3A 


3166  -ntzt  0 ST0RE2 

3167  76i!ll  1 

3170  50^01  1 

3171  OOOOl  0 

317L  01935  0 

3173  A1R52  0 

317**  V2R16  0 

3175  50315  0 

3176  01560  0 

3177  01935  0 

3200  A1552  0 

3201  72516  0 

3202  A5325  1 

3203  30*t36  0 

320A  OOO07  0 

3205  63‘*06  0 

3206  A1325  0 

3207  01566  0 

3210  50A32  1 

3211  62**05  1 

3212  OOOOl  0 

3213  63525  0 

321A  01566  0 

3215  ltA352  0 

3219  A3225  0 

3217  OOU03  1 

3220  00007  0 

3221  63A06  0 

3222  A132b  0 

3223  01566  0 

322A  30A32  1 

3225  A1A21  0 

3229  OOOOl  0 

3227  77905  1 

3230  OOOO5  1 

3231  U552  0 

3232  55316  0 

3233  OOOll  1 

323A  A1A05  0 

3235  00015  0 

3239  A5221  1 

3237  00025  0 

32A0  OOU13  0 

32Al  A1366  1 

32a2  OOO23  0 

32A3  70525  1 

32A**  00017  1 

32A5  72525  0 

32A6  OOO25  0 

32A7  77915  0 


STADR 

STORE 

SETPD 


SLl 

OSQ 

RDVL 


SLl 

OSQ 

RDDL 


PUSH 

5DDL 


OMP 

POOL 

SLl 

osu 


PUSH 

POOL 


3DSU 

OMP 

SLl 

DSQ 


OMP 

3DSU 


SORT 

POOL 

POOL 

OAD 
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user's  OvvN  PaGF  no.  3 

E2  E2  = UNITCOGI  + OGF)  $2 

DOT 

0 

IG  - - 

PUSH  PDO  K.2  $2 

SLl 

DOT  PD2  (K2  K2)  $2 

El 

IG 

PUSH  PDA  K1  $2 

SLl 

DSU  PD6  (K1  Kl)  $2 

KaSO  = COS(D)COS(D)  S2 

6 

DSQ  PU8  Di  $2 

DMP  PDIO  (Dl  Ql)  $A 

E2  (K5) 

K3SI  SIN(D)  SI 

SL2 

0 K2 

DSQ  PD12  2 K2  K3  k5  S2 

E2 

BDSU  K5K5  S2  PUSH  iiP  2 <2  K3  <5  S2 

DAD 
2 
9 

DSQ  PD12  D2  S2 

DMP  PDIA  (D2  D2)  $A 

E2 

K3S1 

PUSH 

0 PD16  B1  S2 

A B1  Kl  SA 

PUSH  PD18  B1  Kl  $2 

PDDL  PD22  B1  B1  Kl  Kl  $** 

80 

PUSH  PD22  Dl  U2  SA 

12D 

DSU 

20D 

lOD  RSQ  $A 

DMP 

18D 

SRI  PD2A  RADICAL  S8 

IaD 

SLl  PD26  (D2  D2)  $« 

20D  A(B1  bl  Kl  Kl)  Sb 

PUSH  UP  Fur  (D2  D2)  SB 
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0971 
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0973 
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0982 
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0991 
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34 

34 

34 

34 

34 

34 

34 

34 

34 
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34 

34 
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34 

34 
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3250 

3251 

3252 

3253 
325A 
3253 
3256 

325  I 

3260 

3261 

3262 

3263 
326A 
3265 
326C. 

326  V 

3270 

3271 

3272 


V0325  1 
00027  1 
41421  0 
0OO25  0 
56215  1 

00031  0 
OOO33  1 
60404  1 
70445  0 
01610  1 
V7T66  0 

15614  0 

00031  0 
56221  0 
60'*04  1 
70445  0 
01612  0 
77766  0 
I56I6  1 


POOL  SrI 
22D 

3D5U  PUSH 
200 

OAD  DDV 
240 
260 

30VB  SR2 

SIGNMPAC 
STORE  C2SQP 
SORT 

STOOL  C2PP 
240 

30SU  ODV 
30VB  SR2 

SlSNMPAC 
store  C25QM 
SORT 

STOOL  C2MP 


REF  2 last  606 

REF  2 LAST  623 

REF  1 

REF  3 LAST  623 

REF  2 LAST  623 

REF  1 


REF  21  LAST  617 


REF  2 LAST  623 

REF  5 LASI  622 

REF  3 LAST  623 

REF  4 LAST  623 


34,3273 

30426 

1 

aUARTA 

34,3274 

75425 

0 

osu 

SORT 

34,3275 

01610 

1 

C2SQP 

34,3276 

15620 

1 

STOOL 

ClPP 

34,327  7 

30426 

1 

OUARTA 

34,3300 

75425 

0 

OSU 

SORT 

34,3301 

01612 

0 

C2SQM 

34 ,3302 

01622 

0 

store 

ClMP 

34,3303 

66370 

0 

AXT,1 

SSP 

34,3304 

00O04 

0 

4 

34,3305 

JOO5 1 

0 

SI 

34,3306 

00002 

0 

2 

34,330  7 

71201 

1 NORM 

SETPD 

DLOAD 

34,3310 

OOO23 

0 

180 

34,3311 

00021 

1 

160 

34,3312 

65203 

0 

OMP» 

POOL 

34,3313 

01620 

1 

C2PP  +4,1 

34,3314 

01566 

0 

E2 

34,3315 

40  7 16 

0 

OSU 

DM  Pit 

34,3316 

01614 

0 
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34,331 7 
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1 

SL2 

BOSU 

34,3320 

30426 

1 

UUARTA 
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1 

SORT 

DMP 

REF  1 
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3322 
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34.3324 


34.3325 
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3043A  1 
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00005  1 
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57415  0 
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<4 

POOL  0MP» 

4 
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AB5  POOL 
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OAD  DCOMP 

200 
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B1 

PD18  = -Q 
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Kl 
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-0 

-R 


S4 
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$4 

$2 

$4 

$2 
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$2 
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$4 
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1081  REF  5 LAbT  622  36 

1082  REF  50  LAST  626  36 

1083  36 

1086  REF  6 LAST  623  36 

R1085  pick  THL  MEa  U WHICH  lb 

1086  36 

1087  36 

1088  REF  t>  LAST  626  36 

1089  36 

1090  REF  3 LAST  623  36 

1091  36 

1092  36> 


3332  65^25  1 PDDL 

3333  00023  0 

3336  00025  0 

333P  61670  1 OCOMP 

3330  65666  0 ABb 

3337  OOO27  1 

3360  05666  1 ABS 

3361  00031  0 

3362  65666  0 ABS 

3363  OOO27  1 

3366  65266  0 ABS 

336P  71666  0 3PL 

3360  71371  1 

336‘i'  OOO3I  0 


3350  71666  0 SIGNANSW  3PL 

3351  71363  1 

3352  00005  1 

3353  V0060  1 3MN 

3356  71360  1 

335P  01020  1 

3350  77076  0 0PPSGNC2  OCOMP 

3357  O502O  0 STORE 

3360  52^-00  1 0<C2  T1X,1 

3361  71307  0 

3362  71376  1 

3363  5ll65  0 SAMEASKl  OLOAD 

3366  OOOO5  1 

336P  71360  1 

3360  52163  0 OLOAD* 

3367  01O20  1 

3370  71350  1 

3371  52165  0 C<SGNAN2  OLOAD 

3372  OOO33  1 

3373  71350  1 

3376  77601  1 OJTCYCLE  SETPD 


3375  OOOOl  0 

3370  01026  0 

3377  5366I  0 OOT 

3600  01560  0 

3601  01026  0 

3602  61661  0 OOT 

3603  01P66  0 

CLOSEST  TO  THE  OLD  U 

3606  61370  0 AXT,1 

3600  OOOOO  1 

3606  01616  0 

3607  61325  0 PDDL 

3610  01620  1 

3611  OOOOl  0 

3612  51615  0 DAD 
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USER’S  OWN  PAGp  NO.  5 

DSU 

18D 

PD26  ANSWl  = 0 + R SA 

-Q 

20D 

PUSH 

+ R 

PD26  ANSW2  = 0 _ R S6 

DbU 

22D 

PDDL 

260 

DSU 

ACl 

PD28  ABS(ABS(ANaW2)  -ACi) 

ANSWl 

22D 

DSU 

DLOAD 

CKSGNAN2 

ALI 

ABb(AbS(ANbWl)-ACl) 

26D 

DLOAD 

SAMEASKl 

ANSWl 

6 

DLOAD)* 

0KC2 

C2PP  +6.1 

K1 

C2PP  +6.1 
GOTO 

NORM 

outcycle 

BPL 

6 

OKC2 

GOTO 

C2PP  +6.1 
0PPSGNC2 

GOTO 

K1 

2faD 

SIGNANSW 

VLOAD 

0 

COF 

ANSW2 

PUVL 

El 

COF 

PDO  U1  = COF. FI 

PUSH 

E2 

PD2  U2  = COF .E2 

DMP 

0 

C2PP 

DMP 

ClPP 

PD6  U2  C2 (0) 

0 

U1  Cl (0) 

ABS 


^88954a  YJL  5YS1EM  FOk  A^iC:  N^Vv  S^^tPATlN  BY  EYLEs 


L GIMbAL  lock  avoidance 


1093 

34»34l3 

41S25 

0 

1094 

34  » 341 4 

OOOO3 

1 

1095 

REF 

2 LAST 

623 

3‘t,34l5 

D1516 

1 

1096 

34 . 34 1 6 

41S25 

0 

1097 

34.341  / 

DOOOl 

0 

1098 

REF 

2 LASl 

623 

34,3420 

D1522 

0 

1099 

1100 

34 .3421 

34.3422 

51415 

77525 

0 

0 

PDDL 


PDDL 


DAD 

D5U 


1101  3A 

1102  REE  1 3A 

1103  3A 

1104  34 

1105  REF  4 LAST  624  34 

1106  REE  6 LAST  624  34 

1107  34 

1108  REF  7 LAS!  624  34 

1109  REF  7 LASl  624  34 

1110  34 

1111  34 

1112  REF  51  LAST  624  34 

Riii3  new  manhUvlr  ancle  is 

1114  34 

1115  REF  52  LAST  625  34 

1116  34 

1117  REF  15  LAST  621  34 

1118  34 

1119  REF  8 LAST  625  34 

1120  34 

1121  REF  5 LAST  623  34 

1122  34 

1123  34 


3423  74O4O  0 3MN 

342A  71426  1 

342S  D0002  0 

3a26  74D43  0 J7ERO  DLOAD« 

3427  01P20  1 

3430  01560  0 

3431  74^23  0 PDDLi^ 

3432  01P14  0 

3433  01566  0 

3434  77bS5  1 VAD 

3435  77556  1 JNIT 

3436  01524  0 STORE 

343 F 53545  0 DLOAD 

344D  01524  0 

3A4l  44352  0 SLl 

3A42  30414  0 

3443  53525  0 PDDL 

3444  01566  0 

3445  56221  0 3DSU 

3446  30426  1 

3A47  75542  0 SRI 

345D  72536  1 ARCSIN 


1124  REF  3 last  607  34 

1145  34 

1146  34 

1147  REF  1 34 

1148  34 

1149  34 

1150  34 

1151  REF  1 34 

1152  REF  1 34 

1153  34 

1154  ref  2 last  604  34 

A1155 

1156  34 

1157  REF  2 LASl  625  34 

1158  REF  53  LAST  625  34 

1159  REf  1 34 

1160  REF  4 LAST  625  34 

1161  34 

1162  REF  1 34 


3451  01543  1 STORE 

3452  7751**  1 CLRGO 

3453  01221  1 

3454  71457  1 

3455  77514  1 NOGIMLOC  SET 


3455  OlObl  1 

3457  70/40  0 WCALC  LXC,l 

3460  01552  1 

3461  31503  0 

3462  A5DO2  1 SR4 

3463  70503  0 

3464  74343  0 DLOAD* 

3465  31503  0 

3466  01524  0 

3467  15535  0 STODL 

347D  01543  1 

3471  55505  1 DMP 

3472  31513  1 


DMP 

2 

C2MP 

DMP 

0 

ClMP 

AbS 


AXC.l 

JZERO 

2 

vxsc 

ClPP,l 

El 

VXSC 

C2PP,1 

E2 


COF 

DSQ 

COF 

BDSU 

HALFA 

DSQ 

E2 

DDV 

OUARTA 

SURT 

SLl 

AM 

31D 

WCALC 

31D 

DLOAD* 

RATEInDX 

ARATE,1 

CALL 

DeLCOMP 

VXSC 

ARATE.l 

COF 

BRATE 

AM 

DDV* 

AnGLTIME 


DEC  13*  1966  (MAIN)  PaGE  625 

USER'S  OWN  PAGf.-  NO.  6 
PD4  ABStUl  Cl  (0)  + U2  C2  (0) ) 

PD6  U2  C2 (1) 

PUSH  UP  U2  C2(ll 
ABS(U1  Cl  (!)■  + ii2  C2  (1)  ) 

PUSH  UP  4 


NEW  COF  - 

COF  = Cl  El  + C?  E2 


2 

(1  - COF  ) 

0 


S2 


2 

(1  - K5  ) 


$4 


STATE  SWITCH  NO.  31 

O(OFF)  = MANEUVfR  went  THRU  GlMdAL  LOCK 
l(ON)  = MANEUVER  DID  NOT  GO  T HR  I GIMLOCK 


choose  the  desired  maneuver  RATf 

from  A LIST  OF  FOUR 

COMPUTE  THE  INCREMENTAL  ROTAlION  MATRIX 

Del  corresponding  to  a i sec  rotation 

ABOUT  COF 


component  MANeUv/ER  rates  45  DEG/SeC 


488954A  VJL  SYbi^M  ^ OR  AGO.  iN^W  PROGRA.M  S^^tf^ATlM  BY  eYLlS 


1163 

oIMbAL 

REF  3 

LOCK  avoidance 

LAST  625  34,3473 

31503 

0 

ARATE,1 

1164 

34 , 3474 

7766 1 

0 

SR 

1165 

34,3475 

20606 

0 

5 

1166 

REF  1 

34,3476 

31645 

1 

STORE 

TM 

1167 

3*,  , 347  7 

7 7614 

1 

SEToO 

1168 

34,3500 

31022 

0 

32D 

1169 

REF  i 

34,3501 

71515 

0 

NeWDELHI  +1 

RH70  iHe.  eOuR  GELEclAfiLt  rREE  FALL  mAMLUVER  RATES  SELECTED  BY 

R1171  LOAUlNG  KATEIMUX  WiTH:  ReSReCI  1 v'ELY 


1172 
C1172 

1173 
C1173 

1174 
C1174 

1175 
C1175 

1177 

A1178 


34,3502  3055^, 

32S60 

3‘t,3504  32S60 

34.3505  13501 

34.3506  37O70 

34.3507  345i,A 

34.3510  161-61 

34.3511  30707 

34.3512  00003 

34.3513  34000 


0 A:^ATE  2dEc 
0 

0 2DEC 

1 

1 2DEC 

0 

0 2DEC 

1 


1 ANGLTIML  2DEC 
0 


.0222222222 

.0888888888 

.2222222222 

.4444444444 

.0001907349 
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USER'S  OWN  PaGp  no.  7 


MANEUVER  EXECUTION  TIME  SCALED  AS  T2 
STATE  SWITCH  NO.  32 
O(OFF)  = CONTINUE  MANEUVER 
i(ON)  = start  Maneuver 


=.5  dEg/SEC  $ 22.5dEg/sEc 

= 2 DEG/SEC  1 22.5DEG/SEC 

= 5 DEG/SEC  s 22.5DEG/SEC 

=10  DEG/SEC  $ 22.5DEG/5EC 

= lOOB-19  FUDGE  FACTOR  TO  CONVERT 

maneuver  anglf  to  Maneuver  time 
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L 

ROOOl 

R0003 

00035 

OOOA 

0005 

0006 

0007 

0008 

0009 

0010 
0011 
0012 
0013 
OOU 

0015 

0016 

0017 

0018 

0019 

0020 
0021 
0022 
0023 
002A 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 
003A 

0035 

0036 

0037 

0038 

0039 

OOAO 

OOAl 

00A2 

00A3 

OOAA 

00A5 

00A6 

00A7 


<ALC'-mfJO  steering  UStR'S  OwN  PaGr  NO.  1 

GEnERATiOjvj  of  steering  cOHMAvjOb  F^K  DIGITAL  AUTOPiLOT  FREE  FALL  MANEUVERS 


NEW  CDMI-ANDS  WILL  Be  GeNERATeO  EVEKY  ONE  SECOND  DJRING  THe  MANEUVER 


REF 


E3  £BANK=  TTEMP 


REF  57  LAST  605 

REF  13  LAST  620 
REF  11  last  616 

REF  3 LAST  606 

REF  lA  last  627 

REF  15  LAST  627 

REF  16  LAST  627 


3A 

3A 

3A 

3 A 
3A 
3A 
3 A 
3A 
3A 
3A 
3A 


35l'» 

3515 

35lt> 

3517 

3520 

3521 

3522 

3523 
352A 
3525 
3520 
3527 
3530 


0 6103  0 
?5l60  1 
01535  0 
01557  1 
7702A  1 
73'*A2  1 
A5575  1 
52E25  0 
77026  0 
52'i33  1 
77026  0 

76';a1  1 

A5l60  1 


NEWDELHl 


TC 

AXC.l 


GALL 

VLOAD 

5T0VL 

STADR 

STOVL 

STADR 

STORE 

AXC.l 


INTPRET 

AxC,2 

MIS 

XEL 

MXM3 
STADR 
MIS  +12D 

MIS  +6D 

MIS 

CALL 


REF  17  LAST  627 

REF  2 LAST  60A 

REF  3 LAST  60A 

REF  1 


REF  1 

REF  BA  LAST  619 
REF  1 

REF  2 LAST  627 
REF  6 LAST  605 

REF  3 LASI  627 
REF  2 LAST  627 

REf  1 

REF  278  LAST  612 
REF  155  LAST  588 


REF  A LAST  627 
REF  2 last  607 


3A 
3a 
3 A 
3A 
3A 
3A 
3h 
3h 
3h 
Sh 
3A 
3 A 
3A 
34 
3a 
34 
3A 
3A 
34 
34 
3 A 
3 A 
3A 


3531 

3532 

3533 
353A 

3535 

3536 

3537 
35AO 
35A1 
35A2 
35A3 
35AA 

3545 

3546 
354  7 

3550 

3551 

3552 

3553 

3554 

3555 

3556 

3557 


01535  0 
70727  1 

77034  0 
33573  0 
01O02  1 
77414  0 
01202  0 
71020  0 
3 7754  0 
55'053  1 
51'053  0 

3 1532  1 
0 0006  1 

5 1653  0 
21»001  0 
0 0006  1 
7 3017  0 
10  000  0 

6 7755  1 

1 3556  0 

4 OOOO  0 

51*053  0 

54  771  1 


INCkDCDU 


MIS 

RTB 

1 UI-6U 

V1ST02S 

store 

NCDU 

30NCLR 

EXIT 

32D 

MaNUSTAT 

GAF 

TWO 

IS 

SPNDX 

INDEX 

SPNDX 

GA 

BCDU 

EXTEND 

INDEX 

SPNDX 

MSU 

NCDU 

EXTEND 

VI  p 

dt/tau 

GCS 

A 

AD 

ONE 

TCF 

♦ 2 

GOM 

INDEX 

TS 

SPNDX 

DeLDCDU 

REF 

REF 

REf 

REF 

REF 

REF 

REF 

REF 


5 last  627 
3 LAST  627 

6 last  627 

7 LAST  627 

7 LAST  627 
10  LASI  607 

8 last  627 
1 


34 
3 a 
34 
34 
34 
34 
34 
34 


3560 

3561 

3562 

3563 

3564 

3565 

3566 

356  7 


51 *053  0 index  SPNDX 

3 1001  1 CA  NCUU 

51*053  0 index  SPNoX 

57*532  I XCH  BCDU 

51*053  0 index  SPNDX 

54  766  1 T5  CDUXD 

11*053  1 CCS  SPNdX 

1 3542  0 TCF  INCRDCDU 


COMPUTE  THE  NFW  MATRIX  FROM  S/C  TO 
STABLE  member  AXES 


calculate  new  DfSIReD  CDU  ANGLES 


PICK  UP  THE  NFW  CDU  ANGLES  FROM  MATRIX 

NEW  CDU  angles 

TO  START  MANEUVER 

♦0  otherwise 

INITIAL  CdU  ANGI  ES 
OR  PREVIOUS  DFSiRED  cUu  ANGLES 

CONVERT  TO  2S  CnMPLpMENT 


angle  increments  to  Be  added  to 

CDUXD,  CDUYD,  CnU2D  EVERY  TENTH  SECOND 
BY  LEM  DAP 


LOOP  FOR  iHKfcF  aXeS 


488954A 

YJL  SYSIEM  FUR  AGC;  NEW  PROGRAM  SHePATIN  BY 

eyles 

Dec  It,  I966 

(MAIN)  page  62ti 

L 

R0048 

KaLCManU  steerino 

compare  present  time  with  tIMe  to  terminate 

MANEUy/ER 

USER*S  OWN  PaGr  N0»  2 

E3 

00^9 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 

0058 

0059 

0060 
0061 
0062 

0063 

0064 

0065 

0066 

0067 
00675 

0068 
C0068 

00682 

00684 


REF 

REF 

REF 

REF 

REF 

REF 


1^  LAS!  342 
2 LAST  627 

2 LAST  626 

3 LAST  628 

4 LAST  628 
1 


34 

34 

34 

34 

34 

34 

3^ 

34 


REF- 

REF 

1 

5 

LAST 

628 

34 

34 

34 

REF 

2 

LAST 

628 

34 

REf 

1 

34 

34 

REF 

REF- 

REF 

REF 

REF 


2 LAST  628 

84  LASI  619 
6 LAST  628 


65  LAST  619 


34 

34 

34 

34 

3*+ 

34 

3't 

34 


3570 

357^ 

357-^ 

3573 

357A 

3573 

3570 

357"? 

3600 

3601 

3602 

3603 

3604 

3605 
3600 
3607 

3610 

3611 

3612 

3613 

3614 

3615 
3610 


0 0006  1 


4 0025  1 
5316O6  1 

0 OOO6  1 

3 1645  1 
21*606  1 
11*605  1 

1 3647  0 

1 3602  1 

1 3645  1 
11*606  1 
1 3647  0 
1 3OO6  0 

4 0000  0 
6 3644  1 
0 0O06  1 
6 3645  0 

0 0004  0 
0 S'Ol  1 
E3 

03673  0 
70063  0 

0 0O0-3  1 

1 5605  0 


TVIANUCHK  EXTEND 

DCS  TIMF2 

OXCH  TTEMP 

EXTEND 
OCA  TM 

OAS  TTEMP 

CCS  TTEMP 

TCF  CONTMANU 

rCF  +2 

TCF  OVERMANU 

CCS  TTEMP  +1 

TCF  CONTMANU 

TCF  MANuOf-'F 

COM 

MANUOFF  AD  ONESEK  +1 

EXTEND 

3ZMF  OVERMANU 

manustal  inhint 

1C  WAITLIST 

EBANK=  TTEMP 

2CADR  MANUSTOP 

RELINT 

TCF  ENDOFJOB 


TM+TO-l-T 

(TM+rO)-T  Q 164  SEC 

(TM*-TO)-T  L -164  StC 

(TM+TO)-T  G 1 SfC 
(TM+T0)-T  E 1 SFC 
(TM+T0)-T  L 1 SfC 
(TM+T0)-T  E 1 SeC 

THIS  IS  A SAFETY  PLAY 

prepare  to  stop  the  maneuver 


0009 


34 


36  IT 


03l46  1 


Dl/TAU  DEC  .1 


0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 

0078 

0079 

0080 
0081 
0082 

0083 

0084 

0085 
OO852 

00854 

0086 


REF  15  last  628 

REF  3 LAST  628 

REF  2 LAST  628 

RiF  4 LAST  628 

REF  2 LAST  625 

REf  9 last  607 

REF  3 Last  o2u 

REF  5 LASi  591 

REF  4 last  628 

REF  6 LAST  592 

REF  13  LAST  444 

REF  3 LAST  628 

REF  1 

REF  1 

REF  2 LAST  o27 


34.3620 

34.3621 

34.3622 

34.3623 

34.3624 

34.3625 


34,3626 

34*3627 

34.3630 

34.3631 

34.3632 


34.3633 

34.3634 

34.3635 


34,3636 
34,363/ 
34  *364*1 

34.3641 

34 . 3642 


77/76  1 
0 0006  1 

3 0025  0 

21*645  0 
0 0006  1 

4 3644  0 
21*645  0 
3 1634  1 
54  /74  1 
3 1636  0 
54  /75  0 
3 1640  1 
54  /76  0 
3 0025  0 
6 3644  1 
57*604  1 

0 6O27  1 
02U00  0 

1 3541  0 


MANUSTAT  EXIT 

EXTEND 

DCA  T1MF2 

DAS  TM 

EXTEND 

DCS  ONESEK 

DAS  TM 

CA  BRATE 

IS  OmEgAPD 

CA  BRATE  +2 

TS  OMEGAUD 

CA  BRATE  +4 

TS  OmEGARD 

CA  TlMEl 

AD  ONESEK  +1 

XCH  NEXTIME 

TC  FLAG2UP 

Del  2000 

TCF  INCRDCDU  -1 


INITIALIZATION  ROUTINE 
FOR  AUTOMATIC  MANEUVERS 

TM+TO  MANFUVrR  COMPLETION  TIME 

(TM+rO) -1 

X-AXIS  MANEUVER  RATf 
Y-AXIS  maneuver  rate 
Z-AXIS  maneuver  RATf 


SET  BIT  11  OF  FI  AGWRD2 
TO  signal  kalcmaNu  in  process 


34*3643  DOOOO  1 OmESLK  DEC  0 


0087 


A8B954A  YJL  SySieM  FOR  aSC  : NlW  PRO^RA'1  SI^ePAtIN  BY  eYL^S 
L <ALt.MANU  bTELKlNG 


0088  3a»36AA  OOHa  0 OEC  100 

0089  REF  136  last  627  3'*,36A5  3 7^35  1 Oy/ERMANU  CAP  ONE 

0090  REP  1 36,36AB  1 3t>ll  0 TCP  MANU5TAL 

0091  REF  IH  last  628  3‘i,3b^f  A 0^25  1 CONTMANU  CS  TlMpi 

0092  REF  2 LAST  628  3A,3650  6 l^OA  1 AD  NEXTIME 

0093  REF  279  LAST  627  3A,365l  ID  DOO  0 CCS  A 


009A  REF  137  LAST  629  3A,3652 

0095  REP  1 3A,3653 

0096  REF  9 LAST  523  3A,365A 

0097  36,365B 

0098  36,3656 

0099  REF  85  LAST  628  36,365V 

00991  REF  7 LAST  628 

00992  36,3660 

C00992  REF  1 36,3661 

00993  36,3662 

0100  REF  6 LASi  628  36,3663 

0101  REF  3 LAST  629  36,366^ 

0102  REF  66  last  628  36,366^ 


6 7'53 

1 

AD 

ONE 

1 3656 

0 

T CF 

MaNUCALL 

6 7<31 

0 

AD 

NEGMAX 

6 OUOO 
0 OOO6 

0 

COM 

0 

MANUCALL  INPIINT 

0 5^01 

1 

TC 

WAITLIST 

E3 

ebank= 

TTEMP 

J3“o6 

70063 

1 

0 

2CADR 

UPDTCALL 

0 0003 

1 

RELINT 

3 3P66 

1 

CAF 

ONESEK  +1 

27'606 

0 

ADS 

NEXTIME 

1 5605 

0 

TCP 

ENDOFJOB 

0103 

REF 

2 

LAST 

86 

36,3666 

3 5673 

0 

UdDTCALL  CAF 

PRI036 

0106 

REF 

13 

LAST 

652 

36 , 366  V 

0 5636 

0 

TC 

FlNDVAC 

01065 

REF 

8 

last 

629 

E3 

EBANK= 

TTEMP 

0105 

36,3670 

J3  = 16 

1 

2CADR 

NEWDELHl 

C0105 

REF 

2 

LAST 

626 

36,3671 

70063 

0 

0106 

REF 

65 

LAST 

576 

36,3672 

0 5P65 

1 

TC 

T ASKOVER 

DeC  xA,  xR66  (MAIN)  page  62^ 
USER'S  OWN  PAGf  no,  3 E3 

SAFETY  PLAY 

RESET  FOR  NEXT  nCDU  UPDATE 

CALL  for  NEXT  UtDATE  VIA  WAITLIST 

increment  time  for  next  update 

SATELLITE  PROGRAM  TO  CALL  FOR  UPDATE 
OF  steering  commands 
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L 

P0107 

0108 

0109 

0110 
0111 
0112 
0113 
OllA 

0115 

0116 

0117 

0118 

0119 

0120 
0121 
0122 
0123 
012A 

0125 

01251 

01252 

01253 
0125A 

0126 

0127 

0128 

0129 

0130 

0131 

0132 

0133 
013A 

0135 

0136 

0137 

0133 

0139 

OKO 

0191 

0192 

0193 
0199 

0195 

0196 

0197 

0198 

0199 
0150 


<alcmanu  steering 


routine  fur  terminating  AUTUNAllC  MANEUVERS 


REF  205  last  612  39,3673 

REF  1 39,367A 

REF  t LASI  628  39,367^ 

REF  1 39,367t> 

REF  6 last  628  39,367T 

REF  2 last  605  39,3700 

REF  6 last  559  39,370l 

REF  1 39 , 3 f02 

REF  a last  559  3h,3703 

REF  30  last  926  39,3709 

REF  92  LAST  558  39,3705 

39,3705 

REF  1 39»370^ 

REF  5 last  606  39,371^ 

REF  11  LAST  627  39,37lT 

REF  206  LAST  630  39,371^ 

REF  10  LAST  628  39,3713 

REF  3 LAST  627  39,3714 

REF  3 LAST  619  39,3715 

39,3715 

REF  29  last  619  39,371  ! 

REF  33  LAS)  6l9  39,3720 

REF  5 LAST  189  39,3721 

REF  31  LAST  630  39*3722 

REf  22  lAs)  571  39,3723 

39,3724 

REF  1 39,3725 

REF  1 39,3725 

REF  6 LAST  630  39,372^ 

39,3730 

REF  12  last  630  39,3731 

39,3732 

REF  1 39,3733 

REF  132  LAST  571  39,3734 

REF  1 39,3735 

REF  11  LAS)  630  39,3735 

REF  1 39,3737 

REF  158  LAST  629  39,3790 

REF  9 LAST  630  39,3791 

REF  1 3i,,3792 

39,3793 

REF  133  Last  630  39,3744 

REF  2 LAST  630  39,3745 

REF  12  LAST  630  39,3746 

REF  2 LAST  630  39,3747 

REF  5 LAST  630  39,3750 

REF  139  LAST  630  39,3751 


3 7''61  0 
59  773  0 
59  776  0 
59  772  1 
59  775  0 
3 1533  0 
59  770  0 
3 153^  1 
59  767  0 
3 0076  0 
7 7790  1 
0 0006  1 

1 3 722  1 
3 1531  1 
59  766  1 
3 7761  0 
59  779  1 
59  771  1 
0 6045  0 
02000  0 
3 6301  0 

0 5293  1 

26731  0 

3 OO76  0 
7 7792  0 
0 0006  1 

1 3727  1 
1 3712  1 
3 1531  1 

0 0O06  1 
20  766  1 
0 0006  1 
6 3793  1 

59  OQl  1 

3 3762  1 
59  779  1 
9 3763  1 

6 7755  1 

59  771  1 

1 3751  0 

9 OOOO  0 
59  Ool  1 
9 3762  0 
59  774  1 
3 3763  0 
59  771  1 
3 0001  0 


MANUSTOP  CAF 
TS 
IS 
VS 
TS 
CA 
TS 
CA 
TS 
CA 

MASK 

EXTEND 

3ZF 

ENdROLL  CA 
TS 
CAF 
TS 
TS 

GOODMANU  TC 
OCT 
CAF 
TC 

CADR 

KALCROLL  CA 

mask 

EXTEND 

3ZF 

TCF 

OOROLL  CA 

EXTEND 

MSU 

EXTEND 

3ZMF 

FrOLLPOS  TS 

CA 

TS 

CS 

AD 

TS 

TCF 

frollnlg  com 
TS 
CS 
TS 
CA 
TS 

ROLLSTAL  CA 


zero 

DELDCDU2 

OmEGARD 

DtLDCDUl 

OMEGAUD 

CPSI 

CUUZD 

CTHETA 

CuUYD 

state  +2 

BIT19 


KALCROLL 

CPHI 

COUXO 

ZERO 

OMEGAPD 

DELDCDU 

FLAG2DWN 

2000 

THREE 

POSTJUMP 

GOODEND 

STATE  +2 
B1T12 

DOROLL 
ENDROLL  +2 
CPHI 

CuUXD 

FROLLNEG 

L 

ROLLRATE 

OMEGAPD 

OELFROLL 

ONE 

DELDCDU 
ROLLSI AL 

L 

ROLLRATE 

OMEGAPD 

DELFROLL 

DELDCDU 

L 


USER'S  OWN  PaGi-  no*  4 E3 

zero  maneuver  Rates 

SET  DESIRED  GIMRAL  ANGLES  TO 

desired  final  gimbal  angles 

CHECK  TO  SEE  IF  A FINAL  YAW  NECeSSARY 


NO  final  yaw 


i.E,  maneuver  dtd  Not  go  thru 

GIMBAL  LOCK  ORIf.lNALLY 

RESET  BIT  11  OF  FLAGWRD2  TO  SIGNAL  END 

OF  KALCMANU 

return  UNDER  wAlTLlST  VIA  GOODEmD 
AND  WAKE  UP  USER 

STATE  SWITCH  NO.  33 
O(Off)  = perform  a fIINAl  YAW 

IF  NECpSSARY 

KON)  = IGNORE  ANY  FINAL  YAW 


perform  a FINAL  ROLl  TO 

complete  automatic  maneuver 


ABS (CPHI-CDUXD) 
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L <AlC'1AMl  BTEERINg 


0151 

3A»3  E52 

0 0006 

1 

EXTEND 

0152 

REF 

1 

36,3753 

7 3 E66 

0 

VIP 

INVRATE 

0153 

LmSI 

36,375'* 

0 0006 

1 

EXTEND 

015A 

REF 

2 

630 

36 ,3753 

6 mo 

1 

3ZMK 

ENDROLL 

0155 

REF 

86 

LAS! 

629 

36,3^56 

0 5(01 

1 

TC 

WAITLIST 

01555 

REF 

9 

LAST 

629 

E3 

£BANK= 

TTEMP 

0156 

36 ,3757 

J3  ' iU 

1 

2CADR 

ENDROLL 

C0156 

REF 

3 

LAST 

631 

36,3760 

70063 

0 

0157 

REF 

66 

LASI 

629 

36,3761 

0 5 (65 

1 

TC 

TASXOVER 

0158 

36,3762 

01320 

1 

ROLLRATE 

OEC 

720 

0159 

36,3763 

00O22 

1 

OELFROll 

OEC 

18 

0160 

3 6 , 3 7 6 A 

21616 

0 

I N VRATc 

OEC 

.555555 
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uSer»s  owN  page  mo.  6 


E3 


= 1.98  OE^jRtES/c,EC 
must  DE  a ^^/HOLE  NuMrER 


^88954A 


L 

Roooool 

R000003 


R000005 

R000006 

R000008 

R000009 

Rooooii 

R000012 

Rooooia 

R000016 

R000018 


R000019 

R000021 

R000022 

R000024 


R000026 

R0OOO27 


R000029 

R00003 

R000031 

R000032 

ROOOO33 

R000039 

R000035 

R000036 

R000037 
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MISSION  phase  2 GUIDANCE  pEEE^EnCC  RELEASE  + BqoST  MjiMITqk  USER'S  qwN  PaU(-  NO*  i 

PROCRAM  NAMl  - MISSION  PHASE  2 GUIDANCE  ReEeRENCE  ReLeASe  + BOOST  MONITOR. 

modification  number  - 1 date  - NOVEMBER  22.  1966  MODIFICATION  BY  - COVtLLI 

FJNCTioi-.AL  description  - 

THE  I UNCI  ION  OF  MISSION  PHASE  2 IS  TO  CONTROL  THe  SEQUENCE  OF  EVENTS  IN  THE  206  FI  IGmT  FROM  GUIDANCE 

reference  Release  through  liftoff  to  the  sivb  booster  shutdown, 

AT  guidance  reFeRence  reLeas-,  THe  grr  flag  is  Set,  preRead  is  calleD  to  Begin  compiitation  of  position  and 
VELCCITY,  AI.D  calls  are  made  -or  UFI  t/m  calibration  and  liftoff 

WHEN  prelaunch  DeTECiS  tHAI  THE  GRR  FLAG  IS  SET,  IT  TERMINATES  GYROCoMPASSl NG  AND  CAl  LS  MP2JOB,  MP2J0B 
DISPLAYS  7 JN  THE  MAJOR  MODE  ANO  Bo£S  TO  MATRXJOB  TO  COMPUTE  REFSMMAT. 

AT  liftoff,  the  LGC  CLoC<  IS  ZEROED,  CALLS  ARe  MADe  FOR  THE  COLD  FIRe  PURGe  AND  POST  LeT  JETTISON  PROGRAMS. 

The  majc  r mode  is  changed  tu  u. 

AT  post  LET  JETTISON,  THE  OV  MONITOR  K ENABLED  TO  DeTeCT  BOOSTER  SHUTDOWN,  THe  ABORt  COMMAND  MONITOR  AND  THE 

TUMBLE  T.ONItOR  ARE  ENABLED,  AMO  T^E  MAJOR  MODE  IS  CHANGED  TO  12. 

the  various  lmp  commands  required  for  mp2  are  scheduled  by  waitlist  calls. 

AT  Detection  of  sivB  shutdown,  an  executive  call  is  made  to  mission  phase  6. 


calling  SLOjENCE  i 

MISSION  PHASE  2 IS  BEGUN  J^ON  ReCeIPT  OF  THe  GUIDANCE  REFERENCE  ReLeASE  SIGNAL  (VERB  65  fNTeR)  VIA  UPLINK, 


Subroutines  called  ; 


PREREAD 
lUS  TASK 
NEwMODEX 
FIKDVAC 
NOv  AC 
SPl,  AC 
WAI TLIST 
LONGCALL 


ILMP 

2LMP 

PHASCHNG 

NtWPHASE 

DflTMCAL 

IBNKCALL 


R000038  NORMAL  tXIT  MODES  I 


48895'''tA 


L 

R000039 


ROOOO^ 

ROOOOAI 

R000042 

Rqoooaa 


R0000A6 

ROOOOA? 

ROOOOA8 

ROOOOA9 

Roooos 

Roooosi 

Reeee^a 

ROOOObA 

R0000b6 

Rooooe)8 

R00006 

R000062 

R000064 


R000066 

R000067 


0001 

0002 


0003 

OOOA 

0005 
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MISSION  PHASE  2 GUIDANCE  'IGt  ReLeASe  + BOOST  MONITOR  USER'S  OrtN  PAGf  NO.  2 

EXIT  TO  MISSION  PHASE  6 At  SIvO  SHUTUO^N. 


A30RT  EXIT  MODES  : 

TO  MISSION  phase  3 IF  .SUtio^3lTAL  ABORT  COMMAND  ReCeIVeD  VIA  UPLINK. 

TO  MISSION  phase  9 IF  CONtINSeFICY  oRBIt  INSeRtION  COMMAND  ReCeIVeD  VIA  UPLINK. 

TO  charalrm  if  either  of  the  above  abort  commands  received  while  ABORT  Command  monitor  not  enabled. 


OJTPJT  : 


TGRR  TIME  0'  SUlDANCE  REFERENCE  RELEASE 

iprelteR  time  0-  GYRuCOMPaSSING  termination 

TLIFtOFF  time  0-  -IFtoFF  and  lgc  clock  zeroing 

GRR  FLAG  B1T2  F.AGWRDi  SeT  TO  INDICATE  GRR  SIGNAL  ReCeIVeD 

servicer  IS  GOING  At  end  of  mission  phase  2 
erasable  INIf IALJZATION  : 

DT-DEIIM  Delta  uME  from  GRR  to  DFI  T/M  calibration,  single  precision  SCAI  ED  at  2U14)  cs. 

DT-LIFT  DEI  TA  Time  from  gRR  to  liftoff,  double  precision  scaled  at  2(+28)  cs. 

DT-LeTjT  delta  iImE  from  liftoff  to  post  let  jettison,  double  precision  scaled  at  2(+28)  cS* 

ravegon  position  ai  grr  in  sm  co-ordinates.  Vector  scaled  at  2(+2a)  m. 

VAvEGON  velocity  ai  grr  in  sm  CO-oRDINATES,  vector  scaled  at  21+7)  M/CS. 

ALL  OH  THE  ERASABLE  1 N I I 1 AL I ZAT I ON  MUST  BE  DONE  DURING  THE  PRE-LAUNCH  eRASABLf  LOAD  **iiii*mk****ninin**: 


debris  : 

CLNTKAlS  and  EXECJliVL  WURC.  AREA. 


REF  2 last  452 


27*2000  3ANK  27 

E3  EBANK=  TgRR 


Ref  30  Last  630  27,2000 

ref  2 last  433  27,2001 

27,2002 


3 6^01  0 grrplaCe  cap  three 

0 4K34  0 TC  newphase 

00002  0 OCT  00002 


come  Here  on  verb  6s  - urr 


4889b^fA 


0006 

0007 

0008 

0009 

0010 
0011 

0012 

0013 

OOlA 

0015 

0016 

0017 

0018 
C0018 

0019 

0020 
0021 
0022 
0023 

C0023 

002305 

00231 

002315 

00233 

002325 

00233 

002335 

00239 

002395 

00235 
002355 

00236 
C00236 

0029 

0025 

0026 
00261 
00262 
00263 
00269 

00265 

00266 
002665 
00267 
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MISSION  PHASE  2 GUlDANCt  Rtf-E^EMCL  RELEASE  + BOOST  MONITOR 


•Rif 


REF 

REF 

REF 

REF 

REF- 

REF 

REF 

REF 

REF 

REF 

REF 

REF- 

REF 

REF 

REF 


REF 

REF 


REF- 


REF 


REF 

REF 

REF- 

REF 


,27 

1 

'27 

13 

l'Asi 

301 

21 

27 

16 

LASI 

626 

27 

3 

LAST 

633 

27 

8 

LAST 

951 

27 

32 

LASI 

378 

27 

9 

LAST 

639 

27 

2 

87 

LASI 

28 

27 

LAS  I 

631 

27 

9 

LAST 

639 

2 7 

1 

2 ! 

2 7 

1 

27 

2 

LAST 

57 

27 

5 

LAST 

639 

2 7 

1 

27 

1 

27 

2 

LAST 

88 

2 7 

2 7 

1 

27 

2 

LAST 

88 

27 

2 7 

2 

LAST 

639 

2 7 

2 

LAST 

88 

2 7 

1 39 

LAST 

630 

27 

68 

LAST 

639 

27 

1 

27 

1 

2 7 

207 

LAST 

630 

27 

3 

LAST 

6 3 3 

2 7 

2 7 

1 

27 

207 

Last 

590 

27 

27 

6 

LAST 

639 

27 

2 7 

28 

LAST 

955 

2 7 

2 

LAST 

320 

0 .0009  0 
3 2^29  0 
UO^  0 


2003 

2009 

2003 


2006  0 0006  1 
2007  3 0025  0 

2010  53*  F97  0 

2011  9 OO75  1 

2012  7 7F59  1 

2013  26  O75  1 


2019 
2013 

2016 

201V 

2020 

2021 

2022 

2023 

2029 
2023 
2026 

202  7 

2030 

2031 

2032 

2033 
2039 

2033 

2036 

203  7 

2090 

2091 

2092 

2093 
2099 
2093 

2096 

2097 
205O 
205L 


27,2052 


3 1760  1 
0 5701  1 
E3 

32209  0 
56003  1 
0 0006  1 
3 17570 

0 5757  1 

E3 

32290  0 
56O03  1 
3 2360  0 
55*322  1 

0 0006  1 
3 2956  1 

33*073  0 

0 OOO6  1 
3 2956  1 
33*075  0 

3 7735  1 
0 5701  1 
E5 

32011  0 
50065  1 
3 7761  0 
3 9*^39  0 
30002  0 
3 7793  0 
59  002  1 
0 0006  1 
3 1 747  1 
0 0O06  1 
22  003  1 
E9 

53 ' 729  0 


INHInT 

CA  MP2BBSET 

T S BbANK 

EXTEND 

OCA  T1MF2 

3XCH  TbRR 

CS  FlAGWRDI 

MASK  BIT2 

ADS  FLAGWRDI 

CA  Dr-DFITM 

TC  WAITLIST 

EBAN<=  TgRR 

2CADR  PREDFITM 


EXTEND 

OCA 

IC 

ebank= 

IMP2BBS-1  2CADR 

CA 
TS 


D1 -L  IFT 
LONGCALL 
TGRR 
LIFTOFF 

AVEGADRS 

DVSELECT 


Extend 

OCA  SvExADRS 
OXCH  AVGFXIT 


extend 

OCA 


jVEXAdRS 
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SET'^BBCON  FOR  ML2 


SAVE  TIME  Of  GUiOANrE  REFERENCE  RfLEASE 

SET  GKR  flag  BtT2  FLAGWRDI 

SET  UP  DFI  T/M  tALIrRATION  ROUTINE 

SET  UP  CALL  TO  1 IFTOFF  PROGRAM 


OXCH 

DVMNEXIT 

CA 

ONE 

TC 

WAITLIST 

EBANK= 

DVTOTAL 

2CADR 

B I B I B I AS 

START  SERvICFR  wITH 

CAF 

ZERO 

T C 

newphase 

OCT 

00002 

CAF 

EbANK9 

T S 

Q 

E9  IN  Q 

EXTEND 

OCA 

TGRR 

IN  A,L 

EXTEND 

OXCH 

EBANK 

SWITCH  EBANK,  SiVE  1 

EBANK= 

OXCH 

TEVFNT 

TEVFNT 

SET  TGRR  IN  TFVF NT 
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002675 

REF 

7 

LAST 

63A 

00268 

00269 

REF 

29 

LAST 

63A 

0027 

REF 

67 

LASl 

629 

0028 

REF 

1 

0029 

RiF 

13 

LAST 

444 

0030 

0031 

REF 

85 

LAST 

627 

00315 

REF 

4 

LAST 

432 

0032 

0033 

REF 

2 

LAST 

452 

0034 

REF 

1 

0073 

rsf 

12 

last 

451 

0074 

R0075  GD  TO  MATKXJOD  TO 


E3 

27,2053  0 0O06  1 

27,205A  22  U03  1 

27,2055  I 5«>05  0 

27’202A 


27,2056 

0 4I47 

1 

27,2057 

01O22 

0 

27 ,2060 

3 7^54 

0 

27  ,2061 

54  T65 

1 

2 7,206,: 

0 OUO6 

1 

27,2063 

3 ll55 

1 

27,2064 

53'  '53 

0 

27,2065 

0 4105 

1 

27,2066 

00O07 

0 

compute  refsmmai 

ebank=  tgrr 

EXTEND 

DXCH  EBANK 
TCF  ENDOFJOB 
MP2BBSE1  EQUALS  MP2RBS-1 


MP2J0B  TC  PHASCHNG 

OCT  01022 

CAF  TWO 

IS  PHASENUM 

EXTEND 

OCA  TEMTPREL 

OXCH  TPRELTER 

SH0W7  TC  NEwMOdEX 

OCT  00007 


dec  lA,  1966  (MAIN)  PAGE  635 


USER'S  OWN  Page  no*  9 


RESTORE  EBANK 


1 BBCON  FOR  MP2 


PICK  UP  HERE  ON  RESTART 

SET  2 IN  MISSION  PHaSE  REGISTER 


SAVE  time  of  prflaunch  termination 
display  7 IN  Ma.iOR  mOoE 


EA 
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L MISSION  PHASE  2 GUIDANGe  REf'E^t^Ct  ReI EASe  + BOOjT  MONITOR  USER'S  OnN  PaGp  NO.  5 E3 

P0081  program  OESCRIPTIOn-  MATRxJOB  date-  18  iyOV  19a6 

R0083  MOD  NO-  1 LOG  SECTION-  MP  2 GRR  ♦ BOOST  MONITOR 

R008S  MOD  0T-  L1C<LY*  KERNAN  ASSEMBLY-  SUNBURST  REVISION  8 

R0087  FJNLTlOnAL  DESCRIPTION 

R0088  THIS  PROGRAM  CONStRJCIS  I He  MATRIX  NHlCH  ReLATES  THp  STABLE  MeMBeR  INeRTIAL  ERaMe  tO  THe  RePeRfNCe 

R0090  FRAME  (2  NO-TH,  X ALONG  THE  i/ERNAL  EQUINOX.) 

R009i  TWO  intermediate  COORDINATE  SYSTEMS  ARt  JSeD:  A LOCAL?  eARTH  FIXeD*  VERTICAL.  aOUTH.  eAST  SYSTeM  AND  AN 

R0093  earth  reference  X.  Y*  L SySIEM*  ^N  THIS  lAFTER  sySTEM*  THE  Z AxiS  IS  THE  EARTH'S  ROTATION  AXIS.  THE  X AXIS  IS 

R0095  normal  iO  Z IN  THE  PLANE  OF  Z AND  1 He  LOCAL  VeRIICAL,  POSITIVE  IN  THE  DIRECTION  OF  V.  v IS  Z CROSS  X. 

R0097  the  FIRST  COMPUTATION  IS  OF  AZGR.  THE  ANoLe  BETWEEN  THE  ReFeReNCE  INeRTIAL  AND  EARTH  REFERENCE  X-Z 

R0099  PcANES  (THE  Z AXES  ARE  COINCIDENT'.  AZGR  IS  COMPUTED  DV  CONVERTING  THE  TIME  fROiM  THe  BEGINNING  Op  THE  FPHEMERU’ 

Roioi  YEAR  IO  Release  (Tephlm  + tPrelteR)  to  revolutions  (Days).  the  whole  revs  are  oiscarded  and  the  initiai  angle 

R0103  (AZO)  BtTWEF_N  THE  GRlLiNWICH  M?RIDIAN  AND  tHe  ReFfRENCe  X-Z  PLANeS  IS  ADOpD.  ADDIimG  the  LONgItUUe  YIeLOa  AZGR, 
Roios  IHL  FOLLOWING  COMPUjAdONS  ARE  THEN  PERFORMED. 

R0106  LOCAL  vertical(ER)  = COS ( I A F I r J oe' . 0.  sin(Latituoe)  in  earth  Reference 

R0107  local  VtRlICAL(lR)  = CoS ( I Al ) COS ( AZGR ) , CoS ( LAT ) S 1 N ( AZGR ) , SIN(LAT)  IN  INERTIAL  REFeREiCe 

R0109  LOCAL  EASl(lR)  = NXV  = -CuS ( _A I ) S I N ( AZGR ) . COS ( LAT ) COS ( AZgR ) . 0 IN  INeRTIAL  REFERENCE 
ROlll  LOCAL  SlUTH(IR)  = E(1R)  X V(1R) 

R0112  THp  relationship  oF  He  SfABLE  MeMBeR  AXES  TO  THe  V,  S,  E AXES  IS  GIVEN  BY  Z.SMaZ,  tHe  ANGLe  FR  iM  NORTH 

ROIIA  TO  ZSM.  AND  TILT.  THE  ANGLE  ABOUT  ZSM  FROM  VERTICAL  TO  XSM. 

Rons  ZSM(IR)  s EAST(IR>C05(ZSMaZ  - 90)  + S0UTH(IR)SIN(Z5MAZ  - 90) 

R0116  YSM(IR)  = (zSM(IR)  X v ( IR ) ) Co B ( T I LT ) - v ( I R ) S I N ( T I LT ) 

R0117  XSMdR)  = YSM(IR)  X ZSMIIR) 

R01l8  THESE  THREE  HaLF-UNIT  VeLtORS.  XSM(IR).  YSM(IR).  AND  ZSM(IR)  ARE  tHe  SIM  AXES  EXPRESSED  IN  INERfIAL 

R0120  reference  coordinates  AND  tHey  foRm  refsmmat.  THe  reference  TO  stable  member  matrix. 

Ro122  the  INPdT  (PReLAUNCH  ERASABLE  lOAO)  REQUIREMENTS  ARe: 

R0123  1)  TEPHf-M  THe  TRIPLf  PRECISION  TIME  IN  CeNtISeCoNUS  FROM  MIDNIGHT  JULY  i,  OF  THF  yPHEMERIS  YeAR  TO 

R0125  midnight  OF  ThE  LAUNCH  DAY  (sOERtAL  CONVERTED  TO  MEAN  sOLAR.) 

R0126  it  is  assumed  THAT  DURING  THE  LAUNCH  COUNTDOWN  THe  LGC  CLOCK  (TIME2.  TIMEi)  WILL  Bp  ALIGNED  TO  REFLECT  A 

R0128  zero  value  AT  MIDNIGHT  OF  tHe  LAUFYCH  DAY.  IF  NOT.  THe  UIFFeReNCe  MUST  Be  ADDED  TO  TFPHfM. 


R0130 


2)  tilt 


the  rotation  of  XBM  ABOUT  ZSM  (RIGHT  HAND  RULE)  FROM  VERTICAL  IN  REVOI Ui lONS 
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K0132  3)  ZSMA^  the  AnijlE  FR^-I  NORTH  TO  ZSM  IN  REVOLUTIONS. 


R0133  THE  OUTPUTS  OF  THIS  PROGRAM  AHE! 

R013A  1)  ReFSI'.MaT  THe  HALF-UNiT  HatRIX  WHICH  TRANSFORMS  FROM  ReFeReNCe  INeRtI^L  TO  SM  INERTIAL. 

R0136  2)  AeGR  the  ANGLE  BETWEEN  PAD  37  3 VERTICAL  AND  THE  REFERENCE  X-z  PLANE  IN  RFVOiUTIONS. 

R0138  CALLING  SeOJENCE  : CONrlNUAlION  oF  MP2JOB 
R0139  normal  LXIT  MODE-  TC  ENDOFJ03 

Roiao  a.arm  or  abort  exits-  none 

ROIAl  debris-  SPfClAES.  CENTRALS  ANO  EXECUTIVE  w’ORK  AREA. 


01A2 

REF 

01  A3 

OlAA 

REF 

0145 

0146 

0147 

REF 

01475 

REF 

0148 

0149 

0150 

0151 

REF 

0152 

0153 

REF 

0154 

REF 

0155 

0156 

0157 

0158 

0159 

REF 

0160 

REF 

0161 

0162 

016  3 

0164 

REF 

0165 

REF 

0166 

REF 

0167 

0168 

0169 

REF 

0170 

0171 

RiF 

0172 

REF 

0173 

0174 

REF 

bd  LAST  627 
2 last  635 


1 

1 


3 LAST  A36 
1 

7 LAST  A22 


2 LAST  637 
8 LAST  637 


1 

1 

I 


2 LAST  637 

1 
1 

2 LAST  637 


27,2067 

2 T,2O70 

2 T,207l 

21.2072 

27.2073 

0 6l03 

54345 

01753 

20617 

0 

1 

1 

0 

MATRXJOB  TC 

OLOAD 

47  I7  1 

0 

T AD 

27,207^ 

01  772 

1 

2 T, 2071’ 

336O6 

0OO25 

1 

27,2076 

0 

ST  ORE 

27,2077 

60335 

1 

SLOAD 

27,2100 

00025 

0 

27,2101 

30Ua7 

1 

2T,2102 

47OO5 

1 

OMP 

27,2103 

16367 

1 

2T,2104 

33665 

1 

2T,2105 

55457 

1 

SR* 

27,2106 

20656 

0 

27,210  T 

00026 

0 

27,2110 

47OO5 

1 

OMP 

27,2111 

16367 

1 

27,2112 

33665 

1 

27,2113 

43461 

0 

SLR 

27,2114 

21406 

0 

27,21  IS 

43415 

0 

OAD 

27,2116 

16371 

0 

27,2117 

16373 

1 

27,2120 

01  764 

0 

STORF 

27,2121 

77  7 56 

0 

SIN 

27,2122 

71625 

0 

?DDL 

27,2123 

01  764 

0 

27,2124 

73625 

1 

PDDL 

27,2126 

16375 

1 

2 7,2126 

15301 

1 

STOOL 

2 7,212  T 

27,2130 

16375 

72646 

1 

0 

COS 

INT  PRET 
SR 

TPRFLTER 

IAD 

RTB 

TEPHEM 

TPMODE 

20D 

NORM 

2UD 

XI 

RTB 

WEARTH 

SGNAGREE 

PUDI 

0 -190,1 

2lD 

RTB 

WEARTH 

SgNAGREE 

DAD 

5 

DAD 

AZO 

P37RL0NG 

AZGR 


CUS 

AzGR 

SIN 

PJ7BLAT 
REFSMMAT  +A 
P378LAT 
SLl 


MAKE  ALIGN  STOP  TIME  TP. 


TP  CS  FROM  JUl  Y 1 TO  LAUNCH  DAY. 
SET  STORE  MODE  TO  TRIPLE. 

TP  CS  FROM  JUl  Y 1 TO  RELEASE. 


-9  OR  -10. 

REVS  PER  2(Z8)C<;. 


GETS  RID  OF  WHOl  E RF VS. 


DP  FRACTION  OF  A REv. 

MERIDIAN  ANGLE  A I JULY  1. 

PAD  ANGLE  TO  MERIDIAN. 

VERT.  AZ.  AT  REl  EASf  wRI  X-Z  INfRTIAL. 


LOCAL  VERTICAL  7 IN  EARTH  REF.  SIN(L). 
ALSO  LOCAL  VERT  Z IN  REF.  INERTIAL. 

SAVES  2 SL'S  1 AtER. 
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0175 

27,2131 

00025 

0 

STORE 

200 

LOCAL  VER.  X IN  EARTH  REF.  COS(L). 

0176 

27,2132 

45405 

1 

OMP 

ST  ADR 

0177 

REF 

2 

LAS! 

637 

27,2133 

76P02 

1 

STORE 

REFSMMAT 

LOCAL  VERT  X IN  INERTIAL  = CoS(l )C0S(AZ) 

0178 

REF 

2 48 

LAST 

613 

27,2134 

I4I5O 

0 

STOOL 

MPAC  +3 

ALSO  Y OF  EAST  tN  INERTIAL. 

0179 

REF 

1 

27,2135 

1 7O57 

0 

0P2R0 

0180 

REF 

249 

LAST 

638 

27,2136 

I4I52 

1 

STOOL 

MPAC  +5 

Z OF  EAST  IN  INfRTlAL  = 0. 

0181 

2 7,2137 

77005 

1 

OMP 

0182 

27,2140 

00025 

0 

200 

0183 

REF 

3 

LAST 

638 

2 7, 2141 

01277 

1 

STORE 

REFSMMAT 

+ 2 

LOCAL  VERT  Y TN  INERT  I AL  = COS (L) SIN (AZ) . 

018A 

27,2142 

47O76 

0 

OCOMP 

RTB 

ALSO  _X  OF  EAST  IN  INERTIAL. 

0185 

REF 

2 

LAST 

345 

27 ,2145 

33563 

1 

MECMOUE 

SET  STORE  MOOF  TO  VfCTOR. 

0186 

27,2144 

47206 

0 

PUSH 

VXV 

EAST  INTO  PD. 

0187 

REF 

4 

LAST 

638 

2 7,2145 

01275 

0 

REFSMMAT 

0188 

27,2146 

77656 

1 

UNIT 

0189 

REF 

5 

LAST 

638 

2 7,2147 

15311 

0 

STOOL 

REFSMMAT 

+ 120 

UNIT  SOUTH  IN  INERTIAL  INTO  REF  ♦12TEMP 

0190 

REF 

1 

27,2150 

01  no 

0 

ZSMAZ 

ZSM  WRT  NORTH. 

0191 

27,2151 

41425 

1 

05U 

PUSH 

AZ  - 90  = ANG  Into  PO. 

0192 

REF 

1 

27,2152 

16377 

0 

900EG 

0193 

27,2153 

74356 

1 

SIN 

VXSC 

+ I2D 

0 1 9A 

REF 

6 

LAST 

6 38 

27,215A 

01311 

0 

REFSMMAT 

( STH ) S I N ( ANG ) IniTO  R +120  (TEMP). 

0195 

REF 

7 

LAST 

638 

27,2155 

15311 

0 

STOOL 

REFSMMAT 

+ 120 

ANG  FROM  PO. 

0196 

27,2156 

74346 

0 

COS 

VXSC 

EAST  FROM  PD. 

0197 

27,2157 

53455 

0 

MAD 

UNIT 

0198 

REF 

8 

LAST 

638 

27,2160 

01311 

0 

REFSMMAT 

+ 120 

0199 

REF 

9 

LAST 

638 

27,2161 

01311 

0 

STORF 

REFSMMAT 

+ 120 

ZREFSM  = (E)COS(ANG)  + (STH) SIN (ANG) . 

0200 

27,2162 

53435 

0 

VXV 

UNIT 

0201 

REF 

10 

LAST 

638 

27,2163 

01275 

0 

REFSmmAT 

YREFSm(UNTILTFD) = Z CROSS  VERT  = Yl. 

0202 

27,2164 

71525 

0 

POOL 

cos 

INTO  PD . 

0203 

REF 

1 

2 7,2165 

01  766 

1 

TILT 

TILT  IS  POS  ABOUT  ZSM  FROM  UNTII  TEO  YSM. 

020A 

27,2166 

7 7 761 

1 

MXSC 

0205 

27,2167 

73525 

1 

POOL 

SIN 

(Yl)COS(T)  INTO  PO, 

0206 

REF 

2 

LAST 

638 

27,217° 

01  766 

1 

TILT 

0207 

27,2171 

51361 

1 

vXSC 

BVSU 

0208 

REF 

1 1 

LAST 

638 

27,2172 

0127s 

0 

REFSMMAT 

0209 

27,2173 

77656 

1 

UNIT 

0210 

REF 

12 

LAST 

638 

27,2174 

01303 

0 

STORF 

REFSMMAT 

+ 6 

YREFSM  = (Yl)COs(T)  - ( VERT ) S I N ( T ) . 

0211 

27,2175 

53435 

0 

\7XV 

UNIT 

0212 

REF 

13 

LAST 

638 

27,2176 

01311 

0 

REF  SmmAT 

+ 120 

0213 

REF 

14 

LAST 

638 

27,2177 

01275 

0 

STORE 

REFSMMAT 

XREFSM  = Y CROSS  Z. 

0214 

LAST 

27,2200 

77  776 

1 

EXT  r 

0215 

REF 

14 

635 

27,2201 

0 4I47 

1 

T C 

PHASCHNG 

0216 

27,2202 

OOO72 

1 

OCT 

00072 

RESTART  PREofITm 

0217 

REF 

68 

LAST 

635 

27,2203 

0 5605 

1 

TC 

ENOOFJOB 

0218 

REF 

15 

LAST 

638 

27,2204 

0 4I47 

1 PREDFITM  TC 

PHASCHNG 

0219 

27,2205 

4OO42 

0 

Oct 

40042 

protect  wAITt  1ST  CAi.L  TO  pROtill 
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0220 

REF 

9 

LAST 

576 

27,2206 

0 5307 

0 

DfITMTS< 

TC 

IbNicCALL 

0221 

REF 

2 

LAST 

303 

27 ,220V 

56211 

0 

CADR 

DF I TMCAL 

0222 

REF 

67 

LAST 

631 

2 T,22l0 

1 5TA5 

0 

TCF 

TASKOVER 

0223 

REF 

1 

27,2211 

0 5D73 

0 

dfitmcal 

TC 

ILMP 

022A 

27,2212 

0035A 

0 

DEC 

236 

0225 

REF 

1 

27,2213 

3 2363 

0 

CA 

I2SFC 

0226 

REF 

89 

LAST 

63A 

27,221A 

0 5 TOl 

1 

TC 

WAITLIST 

02265 

REF- 

8 

LAST 

635 

E3 

EBANK= 

TuRR 

0227 

27,221^ 

J2^2U 

0 

2CADR 

DFITMCLl 

C0227 

REF 

1 

27,2216 

56003 

1 

0228 

REF 

1 

27,22lV 

1 5322 

0 

TCF 

ISWRETRN 

0229 

REF 

1 

27,2220 

0 5O65 

1 

DFITMCLl 

TC 

2LMP 

0230 

27,2221 

00355 

1 

DEC 

237 

0231 

27,2222 

003  06 

1 

OEC 

198 

0232 

REF 

16 

LAST 

638 

27,2223 

0 AlA7 

1 

TC 

PHASCHNG 

0233 

27,222A 

A0113 

0 

OCT 

AOl  13 

023A 

REF 

1 

27,2225 

3 2362 

1 

CA 

200CS 

0235 

REF 

90 

LAST 

639 

27,2226 

0 5 TOl 

1 

TC 

WAIT! 1ST 

02355 

REF- 

9 

LAST 

639 

E3 

EBANK= 

TGRR 

0236 

27,2227 

02232 

0 

2CADR 

DF  ITMCL2 

C0236 

REF 

I 

27,223° 

56O03 

1 

0237 

REF 

68 

LAST 

639 

27 ,2231 

1 5 "T  A 5 

0 

TCF 

T ASKOVER 

0238 

REF 

2 

LAST 

639 

27,2232 

0 5073 

0 

DFITMCL2 

TC 

iLMP 

0239 

2 1 ,2233 

00307 

0 

OEC 

199 

02A0 

REF 

208 

LAST 

63A 

27,223A 

3 7T6I 

0 

CA 

ZERO 

02A1 

REF 

A 

LAST 

63A 

2 T, 2235 

0 A23A 

0 

1C 

NFWPHASE 

02A2 

27 ,2236 

OOO03 

1 

OCT 

00003 

02A3 

REF 

69 

LAST 

639 

27,223  ! 

1 5 TA5 

0 

TCF 

TASKOVER 

02A7 

02A8 

02A9 

0250 

0251 

0252 

0253 

025A 


22A0  0 0U06  1 LIFTOFF  EXTEND 


REF 

1 7 

LAST 

63  A 

27,22Al 

3 0025 

0 

OCA 

T 1MF2 

REF 

I 

27 , 22 a2 

53' T5 1 

1 

OX  CH 

TLI FTOFF 

REF 

1 7 

LAST 

639 

27»22A3 

0 AlA7 

1 

TC 

PHASCHNG 

2 7,22AA 

01013 

1 

OCT 

01013 

REF- 

209 

LASI 

639 

2 7 ,22A5 

3 7 T61 

0 

CA 

ZERO 

REF 

135 

LAST 

630 

27,22A6 

5A  OOl 

1 

TS 

L 

REF 

18 

LAST 

639 

2 7,22A  7 

52  025 

1 

OXCH 

T IMF2 

TC 

R cF 

I 0 

LAS  1 

639 

2 7 *2250 

0 a^A7 

1 

PHASCHNG 

27,2251 

A0062 

1 

OCT 

A0062 

REF 

1 

27,2252 

3 2365 

0 

CA 

105SFC 

Dec  la,  1966  (MAIN)  PAGE  639 
USER'S  oi^N  PaGf  no.  a E3 

MUST  BE  CALLED  rY  IBNKCALL  (OR  iSWCALL) 
IN  interrupt  nR  INHIBITED 

CALL  DFITMCLl  IN  12  SECONDS 

DFI  T/M  CALIBRATE  OFF 

MASTER  C+W  Al ARn  RESET  - COMMANj 

PROTECT  DFITMCL? 

CALL  DFITMCL2  In  2 SECONDS 

MASTER  C + W Al  ARn,  RESET  r COMMAND  RESET 

GROUP  3 Inactive 

SAVE  TIME  OF  I UTOFF 
PICK  UP  here  UN  RESTART 

ZERO  T IME2.  TIMEl 

PROTECT  RcSpuRGF  AND  SHUwll 
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USER'S 

OWN  PAGc  no.  9 E3 

0255 

REF 

91 

LAST 

639 

27,2253 

0 5 701 

1 

TC 

WAITLIST 

CALL  RCSPURGF  IN  IO5  SECONDS 

0256 

REF 

10 

LAST 

639 

ebank= 

T GRR 

0257 

27,2259 

32306 

0 

2CADR 

RCSPUHGE 

C0257 

R^F 

1 

27 ,225S> 

56003 

1 

0258 

27,2256 

0 0U06 

1 

EXTEND 

0259 

REF 

1 

27,2257 

3 1762 

0 

3CA 

DT-I  FTJT 

0260 

REF 

3 

LAST 

639 

2 7 , 2 26D 

0 5757 

1 

T C 

LONGCALL 

0261 

REF 

1 1 

LASi 

690 

E3 

EBANK= 

TGRR 

0262 

27,2261 

32316 

1 

2CADR 

POSTLET 

C0262 

ref 

1 

27 ,226^^ 

56003 

1 

0263 

REF 

5 

LAST 

933 

27,2263 

3 7790 

0 

CA 

PRI020 

0269 

REF 

20 

LAST 

579 

2 7,2269 

0 5623 

0 

1C 

NOVAC 

0265 

REF 

12 

LAST 

690 

t3 

EBANl<  = 

TijRR 

0266 

27,2266 

32301 

1 

2CADR 

SHOW  11 

C0266 

REF 

1 

27,2266 

56O03 

1 

02661 

REF 

2 

LASl 

b39 

2 7 ,226  7 

3 7793 

0 

caf 

EBANK9 

02662 

REF 

208 

LAST 

639 

27,2270 

59  002 

1 

TS 

Q 

0 

LU 

02663 

27,2271 

0 OOO6 

1 

EXTEND 

02669 

REF 

2 

LmST 

639 

27 ,2272 

3 1751 

0 

OCA 

tliftoff 

IN  A , L 

02665 

27,2273 

0 OOO6 

1 

EXTEND 

02666 

REF 

30 

LASl 

b35 

2 7,227^ 

22  003 

1 

OXCH 

EBANK 

SWITCH 

EBANK,  SfiVE  OLU  IN  Q 

026665 

REF 

9 

LAST 

639 

E9 

EBAN<= 

TEVFNT 

02667 

REF 

5 

last 

690 

27,2276 

53' 729 

0 

OXCH 

TFVFNT 

SET  TLIFTOFF  IN  TEVFNT 

026675 

REF 

13 

LAST 

690 

E3 

EBANK= 

TGRR 

02668 

27,2276 

0 U'-'UO 

1 

EXTEND 

02669 

REF 

31 

LAST 

690 

2 7,227  7' 

aE  U03 

1 

OXCH 

EBANK 

RESTORE 

EBANK 

0267 

REF 

7O 

LAST 

639 

27*2300 

1 5795 

0 

T CF 

TASKOVER 

0268 

REF 

13 

LAST 

635 

27,2301 

0 9105 

1 

SHOWll 

TC 

NEWMODEx 

0269 

27 , 23O2 

30011 

1 

OCT 

00011 

DISPLAY 

11  IN  Major  mode 

0270 

REF 

19 

LAST 

639 

27*2303 

0 9197 

1 

TC 

PHASCHNG 

02  7 1 

27,2309 

3ul32 

1 

OCT 

00132 

PROTEf T 

RCSPURGF 

0272 

REF 

69 

LAST 

638 

27,2306 

1 5605 

0 

TCF 

endofjob 

0273 

REF 

1 

27*2306 

3 2900 

1 

RC5PURGE 

CA 

+x jftson 

0279 

27,2307 

0 OOO6 

1 

EXTFND 

0275 

27,2310 

01  005 

0 

WRITE 

5 

TURN  ON 

+ X TRAN<;LATION 

0276 

ref 

1 

27*2311 

3 2369 

1 

CA 

75SFC 

0277 

ref 

92 

LAST 

690 

27,2312 

0 5 701 

1 

TC 

waitlist 

call  +X 

TRANsiAtION  OFF  IN  75  SECONDS 

02775 

REF 

19 

LAST 

690 

E3 

ebank= 

T GRR 

0278 

27,2313 

32337 

1 

2CADR 

PURGFOFF 

C0278 

REF 

1 

27,231A 

56003 

1 

0279 

REF 

71 

LAS  I 

690 

27,2316 

1 5795 

0 

1 CF 

TASKOVER 

0280 

REF 

1 

27*2310 

3 2361 

1 

PDSTLET 

CA 

BoOStADR 

Mon  I tor 

Dt.LV  rOP  dOOSTER  SnUiuO'ViV 

0281 

ref 

3 

last 

639 

27,2317 

55*322 

1 

TS 

Dv/SFLFCT 

YJL  srsitM  for  agc;  -new  pro^iram  smepatIini  by  eyles 
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E3 


0282 

REF 

7 

LAST 

306 

56A 

0283 

R pF 

19 

LAST 

028A 

REF 

8 

LAST 

6A1 

0285 

REF- 

5A 

LAST 

567 

0286 

REF 

93 

LAST 

690 

0287 

REF 

1 

0288 

C0288 

REF 

1 

0289 

REF 

6 

LAS  I 

69  0 

0290 

REF 

21 

last 

690 

0291 

RET 

15 

LAST 

690 

0292 

C0292 

REF 

1 

0293 

REF 

72 

LAST 

690 

029A 

REF 

U 

LAST 

690 

0295 

0296 

REF 

70 

LAST 

690 

0297 

REF 

210 

LAST 

639 

0298 

0299 

0300 

REF 

3 

LAST 

639 

0301 

0302 

REF 

20 

LAS  I 

690 

0303 

030A  REF  2 LAST  639 


0305 

REF 

99 

LAST 

691 

03055 

REF 

16 

LAST 

691 

0306 

C0306 

REF- 

1 

0307 

REF 

73 

LAST 

691 

O3O8 

ref 

9 

LAST 

691 

0309 

0310 

REF- 

21 

LAST 

691 

0311 

0312 

REF 

79 

LAST 

691 

A0313 

031A  REF  1 
0315  REF  1 


27.232° 

9 0076 

1 

cs 

FLAGWRD2 

27,2321 

7 7 T 9 5 

1 

MASK 

B 1 T9 

27,2322 

26  076 

1 

ADS 

FLA&WRD2 

27,2323 

3 7755 

1 

CA 

Bill 

27,2329 

0 5 701 

1 

TC 

WAITLIST 

E6 

ebank= 

OMEGA 

27,2325 

32902 

0 

2CADR 

TUMTASK 

2 7,232t> 

60066 

1 

27,2327 

3 7 790 

0 

CA 

PKI020 

27,233° 

0 5523 

0 

TC 

NOVAC 

E3 

ebank= 

TGRR 

27 ,2331 

-12-^86 

1 

2CADR 

SH0W12 

27,233^ 

56003 

1 

27,2333 

1 5 795 

0 

TCF 

TASKOVER 

27,2339 

0 9105 

1 

SH0W12 

TC 

NEWMODEX 

27,2335 

30012 

1 

OCT 

00012 

27,2336 

1 5605 

0 

TCF 

ENDOEJOB 

27,2337 

3 7 761 

0 

PJRGEOFF 

CA 

ZERO 

2 7,2390 

0 OOO6 

1 

EXTEND 

27,2391 

01  005 

0 

WRITE 

5 

ILMP 

27 ,2392 

0 5O73 

0 

T C 

27,2393 

30272 

0 

DEC 

186 

27,2399 

0 9I97 

1 

TC 

phaschng 

27,2395 

90I72 

1 

OCT 

90172 

27,2396 

3 2362 

1 

CA 

200CS 

27,2397 

0 5 701 

1 

1C 

WAITLIST 

E3 

ebank= 

TGRR 

27,2350 

32353 

0 

2CADR 

WATEROFF 

27,2351 

56003 

1 

27,2352 

1 5795 

0 

TCF 

TASKOVER 

27,2353 

0 5073 

0 

WATEROFF  TC 

ILMP 

27,2359 

30273 

1 

DEC 

187 

27,2355 

0 9^97 

1 

TC 

PHASCHNG 

27,2356 

30002 

0 

OCT 

00002 

27,2357 

1 5795 

0 

TCF 

TASKOVER 

27,236° 

32233  1 

AVEGADRS 

3ENA0R  AVERAGEG 

27,2361 

32219  1 

BOOST  ADR 

3ENA0R  BOOSTMON 

ENABLE  ABORT  fOKMANo  MONITOR 
BIT  9 FLAGWORD  2 


ENABLE  tumble  MnNlToR 


DISPLAY  12  IN  major  MOdL 

turn  OFF  RCS  jEtS 

ECS  PRIMARY  WATfR  VALVE  OPEN 

PROTECT  NATEROFe 

CALL  WATEROFF  U,  2 SECONDS 


ECS  primary  wATfR  VALvE  - OpEN  RESET 

GROUP  2 INACTIVE 

END  OF  MISSION  cHASf  2 

delta  T S and  other  constants  F'lR  MP2 
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L MISSION  phase  2 GUIDANCE  HEf'E^EYCt  RELEASE  + BooSi  MonIjOR 


0316  REF  1 

0317 

27 ,2362 

0320 

27,2363 

0321 

27 ,236A 

0322 

2 7,2363 

032A 

27,2366 

C032A 

2 7,2367 

0325 

2 7, 2 37D 

C0325 

27,2371 

0326 

27,2372 

C0326 

27,2373 

0327 

27,237A 

C0327 

2 7,2373 

0328 

27 ,2376 

C0328 

27,2377 

0329 

A0333 

27,2aOO 

27«2A55 

Svexadrs 

EOUALS 

SVEXI TAD 

JU-"  i u 

u 

2nocs 

DEC 

200 

02260 

1 

125EC 

DEC 

1200 

1631A 

0 

75SEC 

DEC 

7500 

2 AAO  A 

1 

1 05SEC 

DEC 

10500 

37II6 

0 

WEARTH 

2DFC 

31.1539787  B-I 

32F>23 

1 

oouoo 

1 

AZO 

2DEC 

0 

OOUOO 

1 

30655 

1 

P37BL0N& 

2DFC 

.77620852 

1 A6A0 

0 

02‘*22 

1 

P37BLAT 

2DEC 

.079252160 

16  752 

0 

1 ODOO 

0 

90DEG 

2DEC 

.25 

OOUOO 

1 

00252 

1 

+XJETSON 

OCT 

00252 

A033A 

A0335 

A0336 


0337 

0338 

REF 

211 

LAST 

0339 

REF 

2 

LAST 

0340 

03A1 

REF 

66 

LAST 

03A2 

REF 

136 

LAST 

03A3 

REF 

20 

LASI 

03  AA 

REF 

9 

LAST 

03A5 

03A6 

REF 

1 

03A7 

REF 

A 

LAST 

03A6 

REF 

32 

LAST 

03A9 

REF 

1 

0350 

RLE 

2 

L A b 1 

03505 

REF 

A 

last 

0351 

03515 

REF 

1 

0352 

REF 

A 

LASI 

03525 

REF 

34 

LAST 

0353 

REF 

1 

27,2^,01 
6A1  27,2a02 

228  27,2a03 

27 ,2aOA 
635  27.2h05 

639  27»2a06 

6A1  27,2a07 

6A1  27,2a10 

27.2^1  1 
2 7,2a  12 
AA6  27,2a13 

6A0  2 7 ,2a1A 

27 ,2a1S 
63a  ?7,2a1B 

6A0  27,2a17 

27,2a20 
27,2a21 
80  27,2a22 

630  27,2a23 

27,2a2A 


0 OOOA  0 SJBABORT 
3 7?61  0 

1 2A06  0 

0 OOOA  0 CoNORBIT 
3 775a  0 

5A  001  1 
3 77A5  0 
7 0076  1 
0 0006  1 

1 2^50  0 
3 5^70  0 
5A  003  0 
23*760  I 
3 2360  0 

55*322  1 
0 0006  1 
3 2A60  1 
52  376  1 
0 5‘^A3  1 
16015  1 


INHINT 


CAF 

Zero 

T CF 

CONORBIT  +2 

INHINT 

V.  Ar 

T WU 

TS 

L 

CAF 

BIT9 

MASK 

FLAGWRD2 

EXTEND 

3ZF 

BaDCHAR 

CAF 

EBANK3 

1 5 

EBANK 

LXCH 

ABORTNDX 

w A F 

avegadrs 

IS 

DvSFLECT 

EXTEND 

DCA 

AbORTRET 

OXCH 

flushreg 

TC 

POST  JUMP 

CADR 

ENEMA 

03535 

035A 

035A5  REF 


27,2a2S  0 OOOA  0 ABORTRTn  INHInT 

27,2A26  0 0O06  1 EXTEND 

27,2a2'7  3 2A62  0 OCA  ENDJ0BC2 


USER'S  o«N  PaGF  No.  11  E3 


REVOLUTIONS  PER  2(26)  CENT  I SECONDS. 
TEMP 

80  DEG  33  MIN  5:<.76A06  SEC  WEST 
28  deg  31  MIN  5n.79qA5  SEC  NORTa 


BITS  FOR  +X  translation  JFTS 


abort  command  MnNiTOR  - DETECTS 
suborbiial  aroRt  and  Contingency 
orbit  insertion 

SUBORBITAL  abort  - 7ER0  ABORtNDx  TO 
SET  UP  mission  dHASf-^  3 


CONTINGENCY  ORBiT  INSERTION  - AAORTNDX 
SET  TO  2 10  Set  up  MISSION  PHASf  A 
SAVE  IN  L 

CHECK  whether  ApORT  COMMAND  MONITOR  IS 
ENABLED 

IF  NOl , Go  TO  BaDCHAR 
SET  EBANK 

STORE  ABORTNDX 


TURN  OFF  bOOSTMoN 

SET  UP  TO  RETURiv,  TO  ABORTRTN 


WIPE  EVERYTHING  OUT 


CLEAR  FLUSHRFG 


48895‘*A  YJL  SVSlEr'i  f- OR  AGO:  Nt.w  PRO^RA'^  SI^lPAIItJ  3Y  E^Le-S 
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L 

0355 

03555 

0356 

03561 

03562 
C03562 

03563 
0356A 

03565 

03566 

03567 

03568 

03569 


035695 

0357 
C0357 

0358 

0359 
C0359 

0360 

0361 

0362 


0363 

036A 

C036A 

0365 

0366 
C0366 


0367 

0368 
C0368 

0369 

0370 
C0370 


MISblJN  PHASt  2 GUIOhNGE  k£f  E^£\»CR  RELEASE  ♦ BooSj  MOnITOH 


REF 

5 

LASI 

6A2 

27,2a30 

52  376 

1 

DXCH 

Fl  USHREG 

REF 

55 

LAST 

6A1 

2 T.2A31 

3 7(55 

1 

CAF 

BiTl 

REF 

95 

LAST 

6A1 

27,2932 

0 5F01 

1 

TC 

kJAITlIsT 

REF 

2 

LAST 

6A1 

E6 

EBANK= 

OMEGA 

27,2933 

32‘*02 

0 

2CADR 

TUMTASK 

REF 

2 

LASI 

6A1 

27,2939 

6OO66 

1 

REF 

A 

LAST 

308 

27 ,293  5 

3 5567 

0 

CAF 

PRI02  / 

REF 

1 

27,2936 

59  063 

0 

IS 

NEWPRIO 

27 ,2937 

0 OOO6 

1 

EXTEND 

REF 

2 

LAST 

6A2 

27,299D 

5 1 /60 

1 

index 

abortndx 

REF 

1 

27,2991 

3 2995 

0 

DCA 

MP3-9ADR 

0 5599 

R;F 

1 

27 ,2992 

1 

T C 

SPVAC 

REF 

71 

LAST 

6A1 

27,2993 

1 5505 

0 

TCF 

ENDOFJOB 

rff 

6 

LAST 

287 

E9 

EBANk=  TdEc 

27,299A 

02O00  0 

MP3_9ADR 

2CADR  MP03JOB 

REF 

1 

2 F ,2995 

52O09  1 

REF- 

7 

LAST 

693 

E9 

EBANK=  TDEC 

27,2996 

02O00  0 

2CADR  MP9J0B 

REF 

1 

27,2997 

66069  0 

27,2950 

0 0003  1 

BADCHAR 

RELINT 

LAST 

692 

ReF 

35 

27 ,295  1 

0 5993  1 

TC  POSTJUMP 

REF 

19 

LASI 

228 

27,2952 

11313  0 

CADR  CHARALRM 

Ref 

8 

Last 

693 

E9 

EBANK=  TDEC 

27,2953 

02309  1 

MIDAVEAD 

2CADR  MIDTOAVE 

REF 

1 

2 7 ,295A 

16O09  1 

REF 

9 

LAS  I 

693 

E9 

EBANK=  TDEC 

27,2955 

02312  0 

SvEXITAD 

2CADR  SERVEXIT 

REF 

2 

LAST 

89 

27,2955 

60069  0 

REF 

3 

last 

693 

E3 

£BaN<= 

ABORTNDX 

27,2457 

02A25  0 

ABORTRLT 

2CADR 

ABORTRTN 

REF 

1 

27,2460 

56O03  1 

REF 

9 

LAST 

693 

E3 

£BANK= 

ABORTNDX 

27 , 246 i 

05005  1 

ENDJOBC2 

2CADR 

EnDQFJOB 

REF 

72 

LASI 

693 

2 7, 2462 

0aO03  0 

USER'S  OrtN  Page  no.  12  E3 

RE-EsTABl1SH  TUe.BLE  monitor 

SET  UP  MP3  OR  MD4  VIA  SPVAC 

GET  RIGHT  2GADR 
SET  UP  JOB 

DO  NOT  CHANGE  TuE  ORDER  OF  THESp  2 CARDS 
THEY  ARE  IN  AN  INDEXED  lABLE 
ILLEGAL  character  BACK  TO  PUBALL 

leFt-uveRS  from  Deleted  mission  phase  is 


4,88954A  YJL  system  FOR  AGC:  Nt"  PROGRAM  S^tPATlN  BY  eYLFS 


dec  1966  (MAIN)  PA^E  6AA 


0001 

3 

- SUbO*t6l  TAL  ABJRT 

25*2000 

bank 

25 

USER'S  OmN  PAGf  NO 

0002 

RHF 

10  LAS7  6A3 

EA 

£BANK= 

TDEC 

R0003  P^OCjRAm  description-  viISSION  jhASE  3 - SjbORbITAl  Abort  date-  2b  OcT  66 

Rooos  MOD  NO-  0 LOO  SeCI ION-  MP  3 - SUBURBITAL  ABORT 

Rood?  mod  by-  gilbert  assembly-  sunburst  revision  i? 

R0009  FJNCTIOl.AL  DESCRIPTION 

RoOlO  IN  THL  first  10  SeConDS  UF  THIS  PHASEt  THE  GROUND  IS  CAUSING  ThE  NOSlCONe  TO  Br  JETTISONED  AND  THE  SLA 

ROO12  panels  to  Bt  deployed.  10  SECONDS  AFteR  ReCeIPT  oF  THf  ABuRt  COMMAND,  MP3  CHeCKS  TUFBLU.G  AND  PROCEEDS  ONLY 
Rooia  when  ihl  inoicated  tumbling  rates  are  llSs  than  3 Degrees  pfr  second.  MP3  then  starts  +x  translation  and 

R0OI6  COMMAND!  SIvB/LeM  SEPARATION.  13  SeCONDS  AFteR  SEPARATION  THE  DESCENT  ENGINE  IS  TURNED  ON  FnR  5 SeCONDS,  THeN 

R00I8  ISNITED  again  after  a 5 SeCUnO  coast  and  Left  on  through  iHe  abort  stage  command  which  tS  SeNt/RlCeIVeD  31 

R0020  Seconds  latiR.  the  aps  enoiNe  is  iurned  off  s seconds  after  abort  stage,  then  ignited  A(-,ain  after  a 30  second 

R0022  coast  FoR  a final  60  Second  burn,  IMU  compensation  continues  throughout  this  mission  PHaSe. 

R002A  CALLING  SEQv.ENCE 

R0025  SUBuRBItAL  abort  is  5iARt-D  AI  the  discretion  of  tHe  ground  IN  tHe  eVeNT  of  an  abort  during  the  eARLIeR  part 

R0027  Or  boost.  KlY  CODE  23  IS  SeNi  VIA  UPLINK. 


R0028 

R0029 

R0031 

SUBROUTINES  CALLED 

NEaMlDEX,  WAITLIST,  FIXDELAY,  ILMP,  2LMP,  ILMP+DT,  2LMP+DT,  FLAGlDWN,  ENGINEON,  ENGUOFF,  ENGINOFi,  PHERLAD, 
READACCS,  SLRVICER,  AVERAi.EU. 

R0032 

NORMAL  EXIT  MODES 

R0033 

TASrOVER. 

ROOSA 

A^ARM  0^  ABORT  EXIT 

MODES 

R0035 

MAJOR  MODE  71. 

R0036  INPUT 

R0037  DvSiLECl  SET  FOR  READACCs  AND  SERVICER 


R0038  0JTPJ1 

R0039  ' 'L/^ST  RITES*  • 


RoOAO  erasable  initialization  RfC/UireD 

ROOAl  <EY  CODE  23  SENT  VIA  UPLl\i<. 

R00A2  DEBRIS 

R00A3  CENTRALS  - A,L«Q 

ROOAA  OTHIR  - ERASABLES  IN  SUBROUTINES  USED 


i,8895AA  YJL  SYSTEM  yOR  AGC  : NEW  PrO'J^AM  SHePATIN  BY  eYLE 


L 

OOA5 

00A6 

00A7 

00A8 

00A9 

0050 

0051 

C0051 

0052 

0053 
0059 

0055 

0056 
C0056 

0057 

0058 

0059 

0060 

0061 

0062 

0063 

0069 

0065 

0066 

0067 

0068 
C0068 

0069 

0070 

0071 

0072 

0073 
0079 

0075 

0076 

0077 

0078 

0079 

0080 
0081 

0082 

0083 


M3  3 - SUBOABITAL 
REF  15  LAST  691 

REF  22  last  691 

REF  11  Last  699 

ref  1 

REF  160  last  639 
REF  96  last  693 
REF  12  last  695 

REF  2 LAST  695 
REF  73  last  693 

REF  23  last  695 

REF  212  Last  692 

REF  29  LAST  695 

REF  13  LAST  695 
REF  1 

REF  13  last  397 

REF  1 

REF  1 

REF  2 Last  695 

REF  2 LAST  695 


ABORT 

25,2000 

0 9105 

1 

2 5 , 200 1 

30071 

1 

25,2002 

0 9197 

1 

25,2003 

97OI2 

1 

25,200^ 

30O01 

0 

E9 

32015 

25 ,2005 

1 

25,2009 

52O09 

1 

25,2007 

0 0009 

0 

25,2010 

3 7155 

1 

25,2011 

0 5(01 

1 

tH 

25,2012 

32015 

1 

25,2013 

52OO9 

1 

25,2019 

1 5603 

0 

25,2013 

0 9197 

1 

25,2016 

35O12 

1 

25,2017 

77  777 

0 

25,2020 

3 7 761 

0 

25,2021 

0 OUO6 

1 

25,2022 

01  005 

0 

25,2023 

0 9I97 

1 

25,202'^ 

97OI2 

1 

25,2023 

30I99 

0 

E9 

23,2026 

32O32 

1 

25,2027 

52OO9 

1 

25,2030 

0 5 717 

0 

25,2031 

30199 

0 

25,2032 

0 5IO6 

0 

25,2033 

00279 

0 

25 ,203't 

00276 

1 

25,2033 

OOI99 

0 

23,2036 

0 3119 

0 

25,2u3' 

30009 

0 

25,2090 

30199 

0 

25,2091 

0 5IO6 

0 

25,2092 

00275 

1 

25,2093 

30277 

0 

25,2099 

30199 

0 

23,2093 

0 5119 

0 

23,2096 

30006 

1 

MR03J0B 


SBORbl 


S30RB2 


OEC  13«  1966  (MAIN)  PaBE  69S 


TC 

NEwMODEX 

OCT 

71 

TC 

PHASCHNG 

OCT 

97O12 

3EC 

1 

EBANK= 

TOEC 

2CADR 

SbORBl 

INHINT 

CAF 

ONE 

1C 

WAITI 1ST 

eban<= 

TUEC 

2CADR 

SBORBI 

TCF 

ENDOFJOb 

TC 

PHASCHNG 

3CT 

O5O  1 2 

OCT 

7 7777 

CAF 

ZERO 

EXTEND 

wRI  TE 

5 

TC 

PHASCHNG 

OCT 

97012 

OEC 

100 

ebank= 

TUEC 

2CADR 

SB0RB2 

TC 

FIXDELAY 

OEC 

100 

TC 

2LMP+UT 

OEC 

188 

OEC 

190 

OEC 

100 

TC 

ILMP+DT 

OEC 

9 

OEC 

100 

TC 

2LMP+DT 

OEC 

lb9 

OEC 

191 

OEC 

100 

TC 

ILMP+OT 

OEC 

6 

USeR*S  OWM  PAGf  no.  2 E9 

DISPLAY  MAJOR  Mr DE  71 


10  MS.  - CONTINi.E  UNDER  wAITLlSi  CONTROL 


AND  RELINI 


INSURE  RCS  JETS  OFF 


WAIT  1 SECOND 


RCS  MAIN  S/O  VAlVES,  SYS.  A - OPEN 
RCS  MAIN  S/0  VAI  VES,  SY6,  B - OPEN  nn 
WAIT  1 SECOND 


ED  BATTERY  ACTiv/ATION  - ON  » 
WAIT  1 SECOND 


RESET  ** 

RESET  »» 

WAIT  1 SECOND 


RCS  PRESSURIZE  - 


FIRE  ** 


^aagS^A  YJL  SVbiEM  FOK  AGC:  new  PkOG:?i\vi  SFIePATIU  3Y  EYLfc 


L MA  3 - sUbQriBiTAL  aBqFIT 


0089 

0085 

REF 

3 

LAST 

0086 

0087 

0088 

REF 

9 

LAST 

0089 

0090 

0091 

REF 

10 

LAS) 

0092 

REF 

29 

Last 

0093 

REF 

280 

LAST 

0099 

REF 

1 

0095 

REF 

19 

LAST 

0096 

0097 

REF 

1 

0098 

REF 

25 

LAST 

0099 

0100 

0101 

REF 

3 

LAST 

0102 

0103 

REF 

9 

last 

0109 

0105 

REF 

1 

0106 

0107 

0108 

REF 

10 

LAST 

0109 

REF 

1 

0110 

RcF 

5 

LAST 

0111 

0112 

0113 

REF 

53 

LAST 

0119 

REF 

3 

LAST 

0115 

REF 

59 

LAST 

0116 

REF 

11 

LAST 

0117 

RiF 

1 

0118 

0119 

REF 

15 

LAST 

25,20A7 

6A5  25.205O 

23.2031 
23 .205-^; 

6A6  25,2033 

23,205A 

23,2053 

63A  23,2036 

372  23,2057 

629  25,2060 
25,2061 

6A3  23,2062 

25,2063 

25,2069 

695  25,2063 

23.2066 

23.2067 

All  23,2070 

25,2071 

630  25,2072 

25,2073 

25,2079 

25,2073 

25,2076 
639  25,2077 

25,2100 

696  25,2101 

25.2102 

25.2103 

3a3  25,2109 

522  25,2103 

696  25,2106 

696  23,2107 

23,2110 

696  25,2111 

25,2112 


30199  0 

0 3119  0 

00005  1 
30199  0 

0 5119  0 

30007  0 
30t>20  0 

9 0075  1 TJMBCHK 
7 7791  0 
13  000  0 

1 2065  1 

0 5717  0 
30062  0 

1 2056  1 

0 9I97  1 TJMBl 
35OI2  1 
77777  0 

0 6036  1 
20000  0 

0 6O95  0 
30900  0 

3 2 766  1 

0 OOO6  1 

01  005  0 
0 3307  0 

39029  0 

0 5119  0 
30072  1 

00062  0 

9 0077  0 
7 7793  1 
25  O77  0 

0 5307  0 
39012  0 

0 5717  0 
30062  0 


3EC 

TC 

3EC 

3EC 

rc 

3EC 

3EC 

CS 

MASK 

CCS 

ICF 

TC 

3EC 

TCP 

TC 

3CT 

OCT 

TC 

OCT 

TC 

OCT 

CAP 

EXTEND 

WRITE 

IC 

CADR 

1C 

DEC 

DEC 

CS 

MASK 

ADS 

TC 

CADR 

TC 

DEC 
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USER'S  qhN  PaBf  No*  3 E9 

100 

WAIT  1 SECONO 

ILMP+DT 

5 

100 

ED  BATTERY  ACTIv/ATlON  - SAFE  * 

WAIT  1 SECOND 

ILMP+DT 

7 

900 

RESET 

WAIT  9 SECONDS 

FLAGWRDl 

B1TI3 

A 

IS  VEHICLE  RATE  LESS  THAN  3 UEG/SEC 

TUMRl 

YES 

FIXDELAY 

50 

TUMRCHK 

PHASCHNG 

03012 
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1 2A25 

1 

EXTEND 

1 

3ZF 

ABT  STGl 

0 5 717 
00062 

0 

TC 

FIXDELAY 

0 

dec 

50 

1 2A15 

1 

TCF 

ABTSTGDM 

0313 

0314 

0315 

0316 
03165 

0317 
C0317 

03175 

03176 

03177 


REF 

REF 

REF 

REF 

REF 


3 LAST  649 


29  LAST  651 
1 
1 

7 LAST  650 


25*2425  0 4127  1 ABTSTGl  TC 

25*2426  0OUO4  0 DCT 

25*2427  47OI2  1 DCT 

25*2430  77777  0 DCT 

E4  EBANK 

25*2431  D2302  1 2CA0R 

25*2432  52O04  1 

25*2433  0 0006  1 EXTEND 

25*243A  3 2A64  0 DCA  SB0RBB2C 

25*2435  52  ilb  1 DXCH  FLUSHREG 


2PHSCHNG 

00004 

47012 
imi 
= TDEC 
SBORBB 


0318 

0319 
03195 

REF 

REF 

REF 

4 

22 

30 

LAST 

LAST 

LAST 

522 

641 

652 

25*2436 

25*2437 

0320 

C0320 

REF 

2 

LAST 

642 

25  *2440 
25*2441 

0321 

REF 

77 

LAST 

652 

25*2442 

3 5676  0 CAF  PRI037 

0 5523  0 TC  NOVAC 

E4  EBANK=  TDEC 

D2015  1 2CADR  ENEMA 

16O04  1 

1 5745  0 TCF  TASKOVER 


DEC  I3*  I966  (MAIN)  PAGE  652 


USER'S  OWN  page  NO.  9 
WAIT  1 SECOND 

ENGINE  SELECT  - ASC  ARM  OFF  * 
WAIT  29  SECONDS 

knock  down  averageg  flag 

DEADBAND  SELECT  - MaX 


abort  sTage  discrete  monitor 


YES 

WAIT  .5  SECONDS 


E4 


generate  restart  immediately 
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L M?  3 - suborbital  ABORT 


032102  REF  39  LAST  571  25.2AA3 

032104  REF  1 25.244'» 

032106  25*2443 

032108  ref  1 25*2446 

03211  REF  17  LAST  516  25*2447 

032112  REF  39  LAST  652  25*2450 

032114  25*2451 

032116  REF  74  LAST  645  25.2452 


3 705  1 TRST90PC  CAF  PoSMAX 

55*^35  1 TS  PCNTF 

0 0006  1 EXTEND 

3 2‘*66  1 OCA  ThRsTlOC 

52  006  0 OXCH  Z 

0 4147  1 TC  PHASCHNG 

00O03  1 OcT  00003 

1 5605  0 TCF  ENDOFJOB 


03212  25*2453 

032121  REF  56  LAST  643  25.2454 

032122  REF  98  LAST  647  25.2455 

032123  REF  31  LAST  652 

032124  25.2456 

C032124  REF  2 LAST  652  25.245? 

032125  REF  75  LAST  653  25.2460 


0 0004  0 
3 7?55  1 

0 5?01  1 

E4 

D2302  1 
52O04  1 

1 5605  0 


SbORBBJB  inhint 

CAF  BlTl 
TC  WAITLIST 

ebank=  tdec 

2CADR  SBORBB 
TCF  ENDOFJOB 


03213 

REF 

28 

LAST 

300 

25.2461 

03214 

C03214 

REF 

76 

LAST 

653 

25.2462 

03215 

REF 

32 

last 

653 

03216 

25 .2463 

C03216 

REF 

1 

25.2464 

0322 

REF 

8 

LAST 

649 

0323 

25.2465 

C0323 

REF 

1 

25.2466 

E3 

EBANk=  LSTl 

05005  1 
D4O03  0 

ENDJ0B2C 

2CADR 

ENDOFJOB 

E4 

EBANKs  TDEC 

D2''53  1 
52004  1 

SB0RBB2C 

6BURBBJB 

E5 

EBANK=  ETHROT 

03367  0 
60065  1 

THRSTLOC 

2CADR 

PCNTFMAX 

Dec  13.  1966  (MAIN)  PAGE  653 
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increase  throtti  e 90  Percent 
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L 

0001 

0002 

R0003 

R0004 

R0005 

R0006 

R0007 

Roooe 

RoOlO 

Ro012 

ROOIA 

R0015 

R0016 

R0017 

R0018 

R0019 

R0020 

R0021 

R0022 

R0023 

R0024 

R0025 

R0026 

R0027 

0028 

0029 

0030 

0031 

0032 

0033 
003A 

0035 

0036 

0037 

0038 

0039 
OOAO 
OOAl 

COOAl 

OOA2 


mra-cdntingency  orbit  INSeRIIDN 


USER'S  OWN  PAGf  no.  1 


33*2000  3An<  33 

REF  33  LAST  653 
PROGRAM  NAME- 

MISSION  PHASE  A 
MOD  NO-  20 

MOO  by-  schulenberg 
functional  description- 

contingency  orbit  Insertion  is  called  by  ground  in  event  of  premature  sivb  shutdown  and  attempts  to 
EFFeCt  an  orbital  insertion  using  the  dps  engine  and  tHe  guidance  equations  used  for  tHf  APS  burns,  the 
PROGRAM  Leaves  mission  phase  riMEt^s  inhibited  and  Leaves  further  contRolto  the  ground  via  uplink. 

CALLING  SEQUENCE-  SUBROUTINES  CALLeD- 

START  MPa  when  abort  FLAGlUP  FLAGlDWN 

command  monitor  detects  mpa  fixoelay  waitlist 

COMMAND  VIA  LGC  UPLINK,  VPATCHER  KALCMANU 

ASCENT  ULAUETON 

NORMAL  EXIT  MODES-  LMP  ULAUETOF 

TASKOVER  (awaits  EXECUTIVE  ENGINeON 

further  commands  from  GROUND)  MIDTOAVe  ENGINOFF 

ALARM  EXIT  MODES-  BANKCALL  ENGINOFl 

NONE  IBNKCALL  LASTBIAS 

erasable  INITIALIZATION  REQUIREO- 
NONE 

OUTPUT-  SAME  AS  FOR  KALCMANU 
DEBRIS-  SAME  AS  FOR  KALCMANU 

33,2000  0 0U06  1 MPAUOB  EXTEND 

REF  1 33,2001  3 25A5  1 OCA  WACTTHTD  TO  ENABLE  A RESTART 

REF  8 LAST  652  33,2002  52  ^76  1 OXCH  FLUSHREG 

REF  16  LAST  6A5  33,200?  0 Al05  1 TC  NEWMODEX  START  CONTINGENCY  ORBIT  INSERTION 

33,200A  OOU72  1 OcT  72 

REF  21  LAST  581  33,2005  3 7^53  1 CAF  FOUR  SIGNAL  START  OF  MISSION  PHASE  A 

REF  5 LAST  635  33,2006  5A  (65  1 TS  PHASENUM 

REF  5 LAST  652  33,2007  0 6U36  1 TC  FLAGlDWN  TERMINATE  AVEG  aND  DO  AUTO  AVETOMID 

33.2010  OOOOl  0 OCT  1 

33.2011  0 OOOA  0 inhint 

REF  57  LAST  653  33,2012  3 7(55  1 CAF  BlTl 

REF  99  last  653  33,201?  0 5(01  1 TC  WAITLIST  SHORT  WAITLIST  TO  INITIALIZE  LMP  COMMAND 

REF  3A  LAST  65A  ' EA  EBANK=  TDEC 

33,201A  02U17  0 2CADR  ABORTPRR 

REF  1 33,201S  6606A  0 

REF  77  LAST  653  33,2016  1 5605  0 TCF  ENDOFUOB 


EA  EBANKs  TDEC 

date- 

2 DECEMBER  1966 
LUG  SECTION- 

mpa-contingency  orbit  insertion 


END  MPaUOB 


^88954A  YJL  SYSTEM  FOR  aGC;  NEW  PRO^^AM  S^ePATIN  BY  eYLeS 


Dec  13»  1966  (MAIN)  page  65S 


L 

R00A3 

00A4 

0045 

0046 

0047 

0048 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 

0058 

0059 

0060 
0061 
0062 

0063 

0064 

0065 

0066 

0067 

0068 

R0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 

0078 

0079 


M34-C0NTINGENCY  ORBiT  INSERTION 


USER'S  OWN  page  NO. 


E4 


RCS  ABORT  PRESSURIZATION  ROUTINE 


REF  214  EAST  647 

REF  30  LAST  652 
REF  6 LAST  648 


33.2017 

3 7'6l 

0 

33.2020 

0 0006 

1 

33.2021 

01  005 

0 

33.2022 

0 5(17 

0 

33.2023 

OOI44 

0 

33.2024 

0 5IO6 

0 

33.2025 

00274 

0 

33.2026 

00276 

1 

33.2027 

00144 

0 

REF  16  LAST  652 

REF  7 LAST  655 


33.2030 

0 5114 

0 

33.2031 

00O04 

0 

33.2032 

00144 

0 

33.2033 

0 5IO6 

0 

33.203A 

00275 

1 

33.2035 

00277 

0 

33.2036 

OOI44 

0 

REF  17 

REF  18 

REF  19 


LAST  655 

LAST  655 

LAST  655 


'33.2037 

33.2040 

33.2041 

33.204Z 

33.2043 

33.204^ 

33.2045 

33.2046 

33.2047 


0 5114  0 

00006  1 
00l44  0 

0 5114  0 
00005  1 
00144  0 

0 5114  0 

00007  0 
0OP20  0 


END  RCS  ABORT  PRESSURIZATION  ROUTINE 


REF 

REF 

11 

25 

LAST 

LAST 

646 

646 

REF 

1 

REF 

31 

LAST 

655 

REF 

1 

REF 

6 

LAST 

654 

REF 

5 

LAST 

646 

33.205O 

3 

0075 

0 

33.2051 

7 

7(41 

0 

33.2052 

0 

0006 

1 

33.2053 

1 

2057 

0 

33.205A 

0 

5(17 

0 

33.2055 

00062 

0 

33.2056 

1 

2050 

1 

33.2057 

0 

6036 

1 

33.2060 

20000 

0 

33.2061 

0 

6045 

0 

ABORTPRR  CAF 

EXTEND 

zero 

insure  RCS  JETS  OFF 

WRITE 

5 

TC 

FIXDELAY 

OEC 

100 

delay  one  second 

TC 

2LMP*DT 

OEC 

188 

RCS  MAIN  S/0  valves,  SYS  A-OPEN«« 

OEC 

190 

RCS  MAIN  S/0  VAIVES,  SYS  B-OPEN»» 

OEC 

100 

DELAY  ONE  SECOND 

TC 

1LMP*DT 

OEC 

4 

ED  BATTERY  ACTivATION-ON 

OEC  ' 

100 

DELAY  ONE  SECOND 

TC 

2LMP*DT  "i 

: F 

OEC 

189 

RCS  MAIN  S/O  VALVES,  SYS  A-OPEN  RESET 

OEC 

191 

RCS  MAIN  S/0  VAI  VES,  SYS  B-OPEN  RESET 

OEC 

100 

delay  ONE  SECOND 

TC  v 

lLMP*bT  ■ 

. «.•  ^ t. 

■ , ; . , . . ■ ^ , 

OEC 

6 

RCS  PRESSURE-FIRE"'' 

ofec 

100 

delay  one  SECOND:^ 

TC  , 

1LMP*DT 

OEC 

5 

■'-ED  BATTERY  ACTlvATION-SApE 

OEC 

100 

DELAY  ONE  SECOND 

TC 

ILMP+DT 

OEC 

7 

RCS  PRESSURE  - FIRE  RESET 

OEC 

400 

DELAY  FOUR  SECOmDS 

TJMBLCHK 

CA 

FLA6WRD1 

MAsX 

BIT13 

EXTEND 

3ZF 

NOTUMBL 

TC 

FIXDELAY 

DEC 

50 

delay  .5  sECS  and  ChECK  AGAIN 

TCF 

TUMBLCHK 

NOTUMBL 

TC 

FLAGIDWN 

IF  NO  TUMBLING-TERMtNATE  MONITOR 

DCT 

20000 

terminate  Tumble  monitor 

TC 

FLAG2DWN 

TERMINATE  ABORT  COMMAND  MONITOR 
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L M3A-C0NTINGENCY  ORBIT  INSERTION 


0080 

33.2062 

OOAOO 

0 

0081 

33.2063 

0 0006 

1 

0082 

REF 

19 

LAST 

639 

33.206A 

3 0025 

0 

65A 

33.2065 

53*567 

0083 

RtF 

35 

LAST 

0 

008A 

ref 

1 

33.2066 

3 2‘f67 

0 

0085 

REF 

137 

LAST 

6A2 

33.2067 

5A  OOl 

1 

0086 

REF 

215 

LAST 

655 

33.2070 

3 7^61 

0 

0087 

REF 

36 

LAST 

656 

33.2071 

21*567 

0 

USER'S  OWN  page  no.  3 


OCT 

OOAOO 

EXTEND 

XA 

TIME2 

GET  CURRENT  TIMp 

DXCH 

TDEC 

CAF 

021CEK 

UPDATE  state  TO  TlGA-30 

TS 

L 

CAF 

ZERO 

DAS 

TDEC 

R0088  BEGIN  ABORT  LEM/SAB  SEPARATION.  PROCEDURE 


0089 

0090 

0091 

REF 

REF 

REF 

1 

37 

3 

LAST 

LAST 

650 

38 

33 

33 

2072 

2073 

0092 

33 

207A 

0093 

ref 

3 

LAST 

LAST 

6A7 

33 

2075 

2075 

009A 

REF 

5 

650 

33 

OO9AI 

REF 

216 

LAST 

656 

33 

2077 

009A2 

ref 

3 

LAST 

6A7 

33 

2100 

009A3 

REF 

A 

LAST 

656 

33 

2101 

3 2530  0 MPASEP 

CAF 

MASSADR 

5A  D03  0 

TS 

EBANK 

E5 

EBANKs 

MASSES 

0 0006  1 

EXTEND 

3 15A1  0 

3CA 

LEMMASSl 

53*333  1 

DXCH 

MASS 

3 7(61  0 

CAF 

ZERO 

55*551  0 

T S 

delarea 

55*552  0 

TS 

DELAREA  ♦! 

DECLARE  EBANKs  6 

INITIALIZE  MASS  MONITOR 
INITIALIZE  DELAREA  FOR  MASS  MONITOR 


0095  REF  I 

0096  REF  38 

0097  REF  37 

0098  REF  1 

0099 

0100 


33 

LAST  656  33 

LAST  656 

33 

33 

33 


2102  3 2P27  0 

2103  5A  D03  0 

EA 

210A  3 2A71  1 

2105  0 0006  1 

2106  01  005  0 


CAF  TDECADR  DECLARE  EBANKs  4 

TS  EBANK 

EBANK=  TDEC 

CAF  XTRANSON  ♦X  TRANSLATION-  ON  (PRE-DAP) 

EXTEND 

WRITE  5 


0101  REF  20  LAST  652  33.2107  0 5307  0 TC  IBNKCALL  ♦X  TRANSLAT lON-nN  (4JET) 

0102  REF  3 LAST  651  33,21lO  3A024  0 CADR  ULLAGE 


0103 

REF 

20 

LAST 

655 

33.2111 

0 511A 

0 

TC 

1LMP*DT 

0 1 0 A 

33.2112 

OOO72 

1 

DEC 

58 

lem/sivb  separate 

0105 

33,2113 

00062 

0 

DEC 

50 

DELAY  500  MS. 

0106 

REF 

55 

LAST 

6A6 

33.211^ 

A 0077 

0 

cs 

dapbools 

0107 

REF 

A 

LAST 

6A6 

33,2115 

7 7 (A3 

1 

MASK 

GODAPGO 

TURN  ON  THE  DAP 

0108 

REF 

56 

LAST 

656 

33.2116 

26  077 

0 

ADS 

DAPBOOLS 

0109 

REF 

21 

LAST 

656 

33,2117 

0 5307 

0 

TC 

IBNKCALL 

0110 

REF 

3 

LAST 

652 

33.2120 

3A012 

0 

CADR 

SETMAXDB 

0111 

REF 

32 

LAST 

655 

33.2121 

0 5(17 

0 

TC 

FIXDELAY 

WAIT  FOR  300  MS. 

0112 

33,2122 

00062 

0 

DEC 

50 

delay  500  MS. 

ARM  ON 


EA 
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0113 

REF 

22 

LAST 

656 

33.2123 

0114 

REF 

2 

LAST 

455 

33.212A 

0115 

0116 
0117 

REF 

21 

LAST 

656 

33.2125 

33.2126 

33.2127 

0118 

REF 

23 

LAST 

657 

33.2130 

0119 

REF 

3 

LAST 

648 

33.2131 

0120 

0121 

REF 

33 

LAST 

656 

33.2132 

33.2133 

0122 

0123 

0124 

REF 

22 

LAST 

657 

33.213A 

33.2135 

33.2136 

0125  REF  5 LAST 

0126 

R0127  END  LEM/SAB 

0128  REF  1 

0129  REF  100  LAST 

0130  REF  38  LAST 

0131 

C0131  REF  1 

0132  REF  5 LAST 

0133  REF  15  LAST 

0134  REF  39  LAST 

0135 

C0135  REF  1 

0136  REF  78  LAST 

0137 

0138  REF  1 

0139  REF  18  LAST 


641  33.2137 

33.2140 

SEPARATION  ROUTINE 

33.2141 
654  33.2142 

656 

33.2143 
33.214A 
643  33.2145 

649  33.2146 

657 

33.2147 

33.2150 

652  33.2151 

33.2152 

33.2153 

653  33.2154 


0140  REF  1 

0141  REF  1 

0142  REF  59  LAST  637 

0143 

0144  REF  1 

0145 

0146  REF  1 

0147  REF  2 LAST  309 

0148  REF  4 LAST  321 

0149 

0150  REF  4 LAST  321 

0151  REF  1 


33.2155 

33.2156 

33.2157 

33.2160 

33.2161 

33.2162 

33.2163 
33.216A 

33.2165 

33.2166 

33.2167 

33.217O 


0 5307  0 TC 

34034  1 CADR 

0 5114  0 TC 

D0132  1 DEC 

00012  1 DEC 

0 5307  0 TC 

34OOO  0 CADR 

0 5/17  0 TC 

00132  1 DEC 

0 5114  0 TIG4-49  TC 

00073  0 DEC 

00144  0 DEC 

0 5073  0 TIG4-48  TC 

00133  0 DEC 


3 2‘*66  1 CAF 

0 5^01  1 TC 

E4  EBANKs 

02<:65  1 2CADR 

66064  0 

3 5667  0 CAF 

0 5534  0 TC 

E4  EBANKs 

02152  0 2CADR 

56064  0 

1 5^45  0 TCF 

0 0006  1 LONGJOB  EXTEND 
3 2537  1 DCA 

52  006  0 DXCH 

3 2546  1 PRECOI  CAF 

55'A50  0 TS 

0 6103  0 TC 

77624  1 CALL 

60347  1 

77^45  1 DLOAD 

26525  1 

26375  1 STOVL 

01017  0 

53A35  0 YXV 

OlOll  0 

26O07  1 STOVL 
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USER'S  OWN  Page  no.  4 e4 

IbNkCALL 

HOLDRATE 

HOLD  VEHICLE  ATTITUDE  RATE 

1LMP*DT 

90 

10 

IBNKCALL 

SETMINDB 

LEM/SIVB  separate-  COMMAND 

DELAY  100  MS. 

FIXDELAY 

90 

delay  900  MS, 

ILMP+DT 

59 

100 

LEM/S4B  SEPARATF-ARM-OFF 

DELAY  ONE  SECONn 

ILMP 

91 

LEM/S4B  separate-command  RESET 

007CEK 

WAITLIST 

TDEC 

TIG4-41 

PRI027 

FINDVAC 

TDEC 

LONGJOB 

start  new  job  FnR  CALCULATIONS 

TASKOVER 

END  TIG4.48  TASK 

orbintad 

Z 

KALC4AD 

AsCRET 

INTPRET 

DO  ORBITAL  iNTEr.RATION 

VPATCHER 

RESCALE  AND  LOAD  IGN  STATES  IN  RN  AND  VN 

RCRIT 

RCRIT  = INJECTI0N  ALT  I TUDL»2 (-25 ) 

RCO 

VN 

VN  FROM  VPATCHER=VlGNTI0N*2(-7)  M/CS 

UNIT 

RN 

OAXIS 

RN  FROM  VPATCHER  = RlGNTI0N<t2  (N-29)  M 

UNIT  HORIZONTAL  VECTOR  NORMAL  TO  ORBIT 
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0152 

0153 
015A 

0155 

0156 

0157 

0158 

0159 

0160 
0161 
0162 
01621 
01622 
01623 
0162A 

0163 

0164 

0165 

0166 

0167 

0168 

0169 

0170 

0171 

0172 

0173 

0174 

0175 

0176 

0177 

0178 

0179 

0180 
0181 
0182 

0183 

0184 

0185 

0186 

0187 

0188 

0189 

0190 

0191 

0192 

0193 

0194 

0195 

0196 

0197 


m?4-cdntingency  oRbit  insertion 


REF  1 

REF  1 

REF  2 LAST  657 

REF  1 

REF  1 

REF  1 

REF  1 

REF  1 

REF  1 

REF  1 

REF  1 

REF  1 

REF  1 

REF  1 

REF  1 

REF  1 

REF  2 LAST  658 

REF  5 LAST  657 

REF  1 

REF  2 LAST  658 

REF  6 LAST  658 

REF  1 

REF  1 

REF  1 

REF  1 


REF 

1 

REF 

2 

LAST 

658 

REF 

2 

LAST 

658 

REF 

2 

LAST 

658 

REF 

1 

REF 

3 

LAST 

657 

REF 

1 

REF 

1 

REF 

1 

REF 

2 

LAST 

658 

REF 

2 

LAST 

658 

33 

33 

33 

33 

33 

33 

33 

33 

33 

33 

33 

33 

33 

33 

33 

33 

33 

33 

33 

33 

33 

33 

33 

33 

33 

33 

33 

33 

33 

33 

33 

33 

33 

33 

33 

33 

33 

33 

33 

33 

33 

33 

33 

33 

33 

33 

33 

33 

33 

33 


t217l 

,2172 

,2173 

,217^ 

,2175 

,2175 

,2177 

,2200 

,2201 

,2202 

,2203 

,2204 

,2205 

,2206 

,2207 

,2210 

,2211 

,2212 

,2213 

,221^ 

,2215 

,2216 

,2217 

,2220 

,2221 

,2222 

,2223 

,222A 

,2225 

,2225 

,2227 

,2230 

,2231 

,2232 

,2233 

,223^ 

,2235 

,2235 

,2237 

,2240 

,2241 

,2242 

,2243 

,224A 

,2245 

,2245 

,2247 

,2250 

,2251 

,2252 


01033  0 
02001  1 
76‘*35  1 
02007  1 
26015  1 
26‘*75  0 
26023  1 
26503  0 
26031  1 
26517  0 

I6O4I  0 

26511  0 
16037  1 
26513  1 
02350  0 

43014  0 

01674  0 
01575  1 
50375  0 
02015  1 
01017  0 
77F52  1 
26105  1 
O2OOI  1 
72‘*41  0 
01017  0 
I6I47  1 
26517  0 

O2III  1 

02067  1 
52014  0 
01473  0 
64367  1 

43345  1 

02041  0 
02147  1 
41342  1 
02350  0 

70415  0 
OIO47  0 
51025  1 
02375  1 
66247  0 
52014  0 
01676  1 
64120  0 
52014  0 
01476  0 
64120  0 
77^5  1 


T<NOWN 


FREE-R 


PREKALC4 


STORE 

YXV 

STOVL 

STOVL 

STOVL 

STOOL 

STOOL 

STORE 

clear 

VLOAO 

SLl 

STOVL 

OOT 

STOOL 

STORE 

STORE 

SET 

OLOAO 

SRI 

OAO 

OSU 

CLEAR 

SET 

VLOAO 
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USER'S  OWN  PAGE  NO.  5 E4 

UNITR 

PAXISl 

UNITR  FROM  AVEG=UNIT(RIGNTI0N)),2(-1)  M 

VSLl 

QAXIS 

SAX  IS 

ABLOCK 

AT 

BBLOCK 

ATMEAS 

CBLOCK 

ROOTO 

KRIEST 

UNIT  HORIZONTAL  VECTOR  PARALLEL  TO  ORBI 

KRl 

TGOEST 

TGO 

CLEAR 

OIRECT 

PASS 

OOT 

SAXIS 

LOAD  ATTITUDE  LIMITING  PARAMETER 

VN 

ZOOT 

PAXISl 

ZD0T»2('8) 

*2(-7) 

SLl 

VN 

ROOT 

DPO 

RDOT^Z (-8) 

»2 (-7) 

GEFF 

YOOT 

GOTO 

GEFFeO 

YD0T=0 

560 

GAIN  +1 

SET  FOR  RETURN 

GO  TO  USE  ascent  TGO  SECTION 

OAO 

ROOTO 

ROOT 

DMP 

TGO 

SRI 

rmag 

BPL 

RCO 

(RD0T+RD0TD)#2(-7) 

.SROOTAVE^Z (-7) 

RG0»2 (-24) , since  TGO  IS  »2(-17) 

RFREE  IS  RCO  FOR  NO  R-C0NTR0L,»2 (-24) 

*2 (-25) 

FREE-R 

GOTO 

IF  RFREE  SMTHAN  RCO,  CONSTRAIN  RCO 

HC 

ASCENT 

GOTO 

HC 

ASCENT 

IF  RFREE  GRTHAN  RCO,  FREE  RCO 
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L mpa-contingency  orbit  INSERTIDN 


0198  REF  1 33»2253 

0199  REF  2 last  60A  33*225^ 

0200  REF  1 33.2255 

0201  REF  5 LAST  604  33.2256 

0202  33.225^ 

0203  33.2260 


02^57 

1 

UT 

25656 

0 

STOVL 

POINTVSM 

26515 

1 

bodyvect 

01664 

66K14 

1 

STORE 

SCAXIS 

0 

SET 

SSP 

01^63 

0 

33D 

0204  REF  2 LAST  625  33.2261  01653  0 

0205  33.2262  0OO06  1 


RATEINDX 

6 


0206 

33.2263 

nnt 

1 

EXIT 

0207 

REF 

78 

LAST 

654 

33*226A 

1 5P05 

0 

TCF 

ENDOFJOB 

0208 

REF 

1 

33.2265 

3 2526 

1 TIG4-41 

CAF 

AvgENADR 

0209 

REF 

5 

LAST 

642 

33.2266 

55*322 

1 

TS 

dvselect 

0210 

33.2267 

0 0U06 

1 

extend 

0211 

REF 

1 

33.227° 

3 2535 

0 

DCA 

EXITADR 

0212 

REF 

3 

last 

634 

33.2271 

53*°73 

0 

DXCH 

AVGEXIT 

0213 

33.2272 

0 0006 

1 

Extend 

3 2533 

OCA 

iLir^y  Vkii  Ar\ 

0214 

RtF 

1 

33.2273 

0 

MP4TM1 AD 

0215 

REF 

3 

LAST 

634 

33.227A 

53*075 

0 

OXCH 

dvmnexit 

0216 

REF 

2^ 

LAST 

657 

33.2275 

0 5114 

0 

TC 

ILMP+DT 

0217 

33.2276 

00004 

0 

DEC 

4 

0218 

33.227? 

00P20 

0 

OEC 

400 

0219 

REF 

24 

LAST 

657 

33.2300 

0 5307 

0 

TIG4-37 

TC 

IBNKCALL 

0220 

REF 

3 

LAST 

651 

33.2301 

34O3O 

0 

CADR 

NOULLAGE 

0221 

REF 

25 

LAST 

659 

33.2302 

0 5307 

0 

TC 

IBNKCALL 

0222 

REF 

3 

LAST 

648 

33.2303 

34O57 

1 

CADR 

stoprate 

0223 

REF 

3A 

LAST 

657 

33.230A 

0 5a7 

0 

TC 

FIXDELAY 

0224 

33.2305 

00144 

0 

OEC 

100 

0225 

REF 

6 

LAST 

657 

33.2306 

0 5073 

0 

TIG4-36 

TC 

ILMP 

0226 

33.2307 

OOOlO 

0 

OEC 

e 

0227 

REF 

1 

33.2310 

3 2463 

1 

CAF 

002CEK 

0228 

REF 

101 

LAST 

657 

33.2311 

0 5?01 

1 

TC 

WAITLIST 

0229 

REF 

40 

LAST 

657 

t4 

EBANK  5 

TDEC 

0230 

33.2312 

02321 

0 

2CADR 

T I G4-34 

C0230 

ref 

1 

33.2313 

66064 

0 

0231 

REF 

8 

LAST 

649 

33.231^ 

3 5226 

1 

CAF 

PRI030 

0232 

REF 

16 

LAST 

657 

33.2315 

0 5534 

0 

TC 

FINDVAC 

0233 

REF 

18 

LAST 

627 

E3 

EBANKs 

MIS 

0234 

2CA0R 

VECPOINT 

33.231® 

02^01 

I 

C0234 

REF 

1 

33.231? 

70^63 

0 

USER'S  OWN  page  no.  6 E4 

get  UT  from  ASCfNT  nUTPUT  REGISTER 
KALCMANU  INPUT  REGUTER 
LOAD  BODY  AXES  VECTOR  IN  SM  COORDS 
KALCMANU  INPUT  VECTOR 

10  DEG/SEC. 

END  LONGJOB 
GENADR  of  AvERAgEg 

SET  AVEG  to  EXIT  TO  END  OF  JOB  UNTIL 
IT  IS  RESET  TO  aTMAG 

SET  MONITOR  ExiT 

ED  battery  AcTIvATION-ON 
DELAY  4 SECONDS 

♦X  TRANSLATION-  OFF 

HOLD  VEHICLE  ATTITUDE 
DELAY  ONE  SECOND 
LANDING  GEAR  DEPLOY-FIRE 


CALL  KALCMANU 


48895AA  rJL  SYSTEM  TOR  AGC;  NEW  PROGRAM  S^EPATIN  BY  EYLES 


0235 

0236 

0237 

0238 

0239 
02A0 

C02A0 

02A1 

02A2 

02A3 

0244 

0245 

0246 

0247 

0248 

0249 

0250 

0251 

0252 

0253 

0254 

0255 

0256 


0257 

0258 

0259 

0260 

0261 

0262 

0263 

0264 
C0264 

0265 

0266 

0267 

0268 

0269 

0270 

0271 


M34-CDNTIN6ENCY  ORBIT  INSERTION 


REP 

79 

LAST 

657 

REP 

1 

REP 

1 

REP 

102 

LAST 

659 

REP 

2 

last 

634 

REP 

2 

LAST 

58 

REP 

24 

LAST 

659 

REP 

2 

LAST 

647 

REP 

B 

LAST 

655 

REP 

9 

LAST 

660 

REP 

IP 

LAST 

660 

REP 

26 

LAST 

659 

REP 

4 

LAST 

656 

REP 

35 

LAST 

659 

REP 

1 

REP 

23 

LAST 

652 

REP 

41 

LAST 

659 

REP 

1 

REP 

80 

LAST 

660 

REP 

121 

LAST 

451 

REP 

1 

REP 

1 

1 ACT 

Ktr 

4 

LAo  I 

651 

REP 

1 

REP 

39 

LAST 

656 

33.2320  1 5^45  0 TCP 


33.2321  4 2*^70  1 TIG4-34  CS 


33.2322  0 2550  0 TC 

33.2323  0 5<'01  1 TC 

E5  EBANK 

33.232^  02O00  0 2CADR 

33.2325  60065  1 

33.2326  0 5U4  0 TC 

33.2327  OOOll  1 OEC 

33.2330  00022  1 OEC 


2331 

2332 

2333 
233^ 
2335 


0 6074  1 TI64-30  TC 


0 5106  0 TC 

00226  1 OEC 

00126  1 OEC 

02566  0 OEC 


2336 

2337 

2340 

2341 


0 5106  0 TIG4-16 

00344  1 
00304  0 
00144  0 


TC 

OEC 

OEC 

OEC 


2342 

2343 

2344 

2345 

2346 

2347 

2350 

2351 

2352 

2353 

235^ 

2355 

2356 


0 5106  0 
00364  0 
00324  1 
01356  0 

0 5307  0 
34024  0 

0 5a7  0 
01356  0 

3 5570  0 

0 5523  0 

E4 

02357  1 
66064  0 

1 5/45  0 


TIG4-15  TC 
OEC 
OEC 
OEC 

TIG4-7.5  TC 

CADR 

TC 

OEC 

CAP 

TC 

ebank 

2CADR 

TCP 


2357 

2360 

2361 


0 5224  0 IGNTEST  TC 
26/54  0 CADR 

0 4/32  0 TC 


33 


2362 


0 6O54  0 MP4IGN  TC 


33.2363  3 2531  1 

33.236A  54  O03  0 


CAP 

TS 
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TASkOvER 

END  TIG4-36  TASk 

O3OCEK 

TASKSETR 

WAITLIST 

DVTOTAL 

PREREAO 

SET  preread  CALI  (AUTO  LASTBIAS) 

1LMP*DT 

9 

402 

LANDING  GEAR  DEPLOY-  FIRE  RESET 
delay  4 SECONDS 

ENGINOFI 

REMOVE  extraneous  ENGINE  DISCRETES 

2LMP*DT 

150 

86 

1398 

ENGINE  select-  nESC  ARM 

MANUAL  throttle-  ON  10  PERCENT 

DELAY  14  SECONDS 

2LMP*DT 

228 

196 

100 

DPS  PQGS  ARM  NO  1 - ENABLE 

DPS  PQGS  ARM  NO  2-  ENABLE 

2LMP.DT 

244 

212 

750 

DPS  PQGS  NO  1-  ON 

DPS  PQGS  NO  2-  ON 

DELAY  7.5  SECONDS 

IBNKCALL 

ULLAGE 

♦X  TRANSLATION-  ON 

FIXDELAY 

750 

delay  7.5  SECONDS 

PRI031 

NOVAC 

TDEC 

IGNTEST 

TASKOVER 

SET  UP  JOB  FOR  aTTSTAL 

bankcall 

ATTSTALL 

CURTAINS 

WE  WAIT  UNTIL  KaLCMaNU  IS  HAPPY 

ENGINEON 

ignite  dps  engine 

THRSTADR 

EBANK 


DECLARE  EBANKs  6 


A8895^A 


L 

0272 

0273 
027A 

0275 

0276 

0277 

0278 

0279 
C0279 

0280 

0281 

0282 


0283 

028A 

0285 

0286 

0287 

0288 

0289 

0290 

0291 

0292 

0293 
029A 

0295 

0296 

0297 

0298 

0299 

0300 

030001 

030002 

0301 

0302 

0303 
030A 

0305 
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m?a-contingency  orbit  insertion 

REF  2 LAST  466  E6  EBANK=  THRSTCMD 


REF  1 33»236t>  3 2‘»72  1 CAF  IOPeRTHR 

REf  3 LAST  661  33,2366  55«>23  0 TS  THRSTcmD 


REF  1 

REF  103  last  660 
REF  42  last  660 

REF  1 

REF  79  LAST  659 


33»236T  0 0^04  0 

33.2370  3 2^64  0 

33.2371  0 5T01  1 

E4 

33.2372  02^75  1 

33.2373  66064  0 

33,237A  1 5605  0 


INHINT 

CAF  003CEK 
TC  WAITLIST 
EBANK=  TDEC 
2CADR  MP4IGN+3 

TCF  ENDOFJOB 


REF  27  last  660  33*2376 

ref  a last  659  33,2376 

REF  25  LAST  660  33,2377 

33.2400 

33.2401 


0 5307 

0 

MP4IGN+3  TC 

IBNKCALL 

34«30 

0 

CAdR 

NOULLAGE 

0 5114 

0 

TC 

ILMP+DT 

00005 

1 

DEC 

5 

04374 

0 

DEC 

2300 

REF  40  last  653 
REF  2 LAST  653 

REf  1 


33.2402  3 7^35  1 MAXTHRSt  CAF  PoSMAX 

33.2403  55*335  1 TS  PCNTF 

33*240A  0 0006  1 EXTEND 

33.2405  3 2541  0 DcA  PcNTfmAD 

33.2406  52  O06  0 DTCB 


REF  1 

REF  4 LAST  661 


33,2407  3 2A73  0 

33,2410  55*523  0 


CAF  92PERTHR 

TS  THRSTCMD 


ref  2 Last  656 
REF  40  LAST  660 
REF  43  LAST  661 

REF  36  LAST  660 


REF  1 

REF  4 LAST  659 
REF  1 

REF  2 LAST  657 


33.2411 

33.2412 

3 2527 
54  003 

0 

0 

t4 

33*2413 

0 5fl7 

0 

33,2414 

00144 

0 

33,2415 

0 0006 

1 

33,2416 

3 2543 

1 

33,2417 

53*073 

0 

33,2420 

3 2547 

0 

33,2421 

55*450 

0 

CAF  TDECaOR 

TS  EBANk 

EBANK=  TDEC 

TC  FIXDELAY 

DEC  100 

DANCE  extend 

DCA  ATMAG4 

DXCH  AVGEXIT 

CAF  CDUJOBAD 

TS  ASCRET 


REF  81  LAST  660  33,2422  1 5^A5  0 TCF  TASKOVER 

33,2423  0 0006  1 MP4TERM1  EXTEND 

REF  2 LAST  659  33,242A  3 2535  0 DCA  EXITADR 

REF  5 LAST  661  33,2425  53*073  0 DXCH  AVGEXIT 

rEF  122  last  660  33,2426  0 5224  0 TC  BANKCALL 
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REPORT  expected  THRdST  TO  DAP 


♦X  TRANSLATION-  OFF 

ED  BATTERY  ACTIVATION-  SAFE 
delay  23  SECONDS 

CALL  FOR  92,5  PfRCENT  THRUSt 


REPORT  EXPECTED  THRUST  TO  DAP 
declare  EBANK=  4 


delay  one  second 

TUNE  IN  ASCENT  GUIDANCE 


E4 


RESET  AVERAGE  G EXIT 
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L 

0306 

0307 

0308 

0309 

0310 

0311 
C0311 

0312 


0313 

031A 

0315 

0316 

0317 

0318 

0319 

0320 

0321 

0322 

0323 

0324 

0325 

0326 

0327 

0328 

0329 

0330 

0331 

0332 

0333 

R0334 

R0335 

R0336 


0337 

0338 

0339 


MP4-CDNTINGENCY  ORBIT  INSERTION  USER'S  OWN  PAGf  NO.  9 E4 

REF  4 LAST  659  33.2427  34^57  1 CADR  STOPRATE  HOLD  VEHICLE  ATTITUDE 


REF  1 

REF  104  LAST  661 
REF  44  LAST  661 

REF  1 

REF  80  LAST  661 


33.2430 

33.2431 

33.2432 


33.2433 

33.2434 

33.2435 


0 0004  0 
3 2‘'65  1 

0 5T01  1 

E4 

02‘'36  1 
66064  0 

1 5605  0 


INHINT 

CAF  005CEK 
TC  WAITLIST 
EBANK=  TDEC 
2CADR  TC0.5 

TCF  ENDOFJOB 


REF  11  LAST  660 


33.2436 

33.2437 


33.2440 

33*2441 


0 5106  0 
00227  0 
00127  0 
00144  0 


TC0*5 


TC  2LMP4'DT 

OEC  151 

DEC  87 

DEC  100 


ENGINE  SElECT-dFSC  ARM-OFF 
MANUAL  THROTTLE. RESFT  (30  PERCENT) 

delay  one  second 


REF  28  last  661  33.2442  0 5^07  0 

REF  4 LAST  656  33.2443  34012  0 


TC  IBNKCALL  SET  MAXIMUM  DEADBAND 

CADR  SETMAXDB 


REF  37  LAST  66l  33.244^  0 5^17  0 TC 

33.2445  01904  1 OEC 

REF  12  LAST  662  33.2446  0 5IO6  0 TCO+15  TC 

33.244T  00365  1 DEC 

33.2450  00325  0 DEC 

33.2451  00144  0 DEC 

REF  13  LAST  662  33.2452  0 5IO6  0 TC 

33.2453  00345  0 DEC 

33.245^  00305  1 DEC 

33.2455  02570  1 DEC 

REF  7 last  655  33.2456  0 6036  1 TC 

33.2457  00001  0 DCT 

REF  22  LAST  654  33.2460  4 7T53  0 CS 

REF  6 LAST  654  33.2461  54  T65  I TS 


FIXDELAY 

900  delay  nine  seconds 

2LMP+DT 

245  DPS  PUGS  NO  1.  nFF 

213  DPS  PUGS  NO  2-  OFF 

100 

2LMP+DT 

229  DPS  PUGS  ARM  NO  1-  DISABLE 

197  DPS  PUGS  ARM  NO  2-  DISABLE 

1400  DELAY  14  SECONDS 

FLAGlDWN  terminate  AVEG  aND  DO  AUTO  AVETOMID 

1 

FOUR  ALLOW  AVEG  TO  PnOH  IF  IT  WANTS  tO, 

PHASENUM 


REF  82  LAST  66l  33.2462  1 5 T45  0 TCF  TASKOVER 

Time  increments  for  wajtlisTs  in.  mp4  - xxxxxcek  = dec  xxxxxoo  cs 


33.2463 

00310  0 

002CEK 

DEC 

200 

33.246A 

00‘'54  1 

003CEK 

DEC 

300 

33.2465  00f64  1 005CEK  DEC  500 

33.2466  01274  1 007CEK  DEC  700 


0340 


9 
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DEc  13»  1966  P^GE  663 

X 


03A1 

03A2 

03A3 

03AA 

03A5 

R03A6 

R03A7 

R03A8 


MP<f-CONTlNGENCY  ORBIT  INSeRTUM  USER'S  OWN  PAGe  NO,  10  EA 


33.2A67 

Oa06A 

1 

021cEK 

OEC 

2100 

C 

33.2A70 

05570 

0 

O3OCEK 

OEC 

3000 

r 

33.2A71 

00252 

1 

xtranson 

OCT 

00252 

channel  5 CODE  FOR  a-JET  TRANSLATION 

33.2A72 

O2O32 

1 

lOPERTHR 

DEC 

1050 

X 

33,2A73 

22  (5t> 

0 

92PERTHR 

OEC 

9710 

constants  For  PReEOI  calculations  and  for  INITIAI IZATION  of  ascent  EQ. 


03A9 

C03A9 

0350 
C0350 

0351 
C0351 

0352 
C0352 

0353 
C0353 

035A 

C035A 

035A1 

C035A1 

035A2 

C035A2 

0355 
C0355 

0356 
C0356 

0357 
C0357 

0358 
C0358 

0359 
C0359 
R0360 
R0361 
R0362 


33.247A  OA520  1 

33*2a75  Ol‘:67  0 

33,2A7<>  2l<^3l  1 

33.2A7T  12<i:23  1 

33.2500  31330  0 

33.2501  10000  0 

33.2502  00000  1 

33.2503  OOOOO  1 

33.250A  OOOOO  1 

33.2505  OOOOO  1 

33.2506  3631A  1 

33.2507  31‘'63  1 

33.2510  11^27  0 

33.2511  01217  1 

33.2512  1A152  1 

33.2513  OOOOO  1 

33.251'*  20000  0 

33.2515  OOOOO  1 

33.2515  OOOOO  1 

33.2517  OOOOO  1 

33.2520  OOOOO  1 

33.2521  OOOOO  1 

33.2522  23'*62  0 

33.2523  33O73  0 

33.252A  U356  1 

33.2525  15012  0 


ABLOCK 

2DEC 

2DEC 

2DEC 

BBLOCK 

2DEC 

2DEC 

KREST 

2DEC 

KRIEST 

2DEC 

TGOEST 

2DEC 

BODYVECT 

2DEC 

CBLOCK 

2DEC 

2DEC 

2DEC 

RCRIT 

20EC» 

2,8A20  E-A  B9  MAXACC92 

3,3788  E-2  BA  1/EXVEL 

1.0A13  E5  B-17  TBUPA 

0 ACCSTEP 

0 ACCSTEP  *2 

0,95 
0,31 

50000  B-17 

,5 

0 RDOTD 

0 YDOTD 

7,83972A5  El  B-7 
6,53558A6  E6  B-2Aa 


GENAOSS.  ECADRS.  AND  2CADRS  JSEO  IN  MPA 


0363 

REF 

2 

LAST 

6A1 

33.2526 

02<i33 

1 

AVGENADR 

oENAOR 

AVERAGEG 

0 CC 

LAST 

662 

33,2527 

TDECADR 

ECADR 

036^ 

Kcr 

02*66 

1 

TUEC 

0365 

REF 

A 

LAST 

656 

33.2530 

02>40 

1 

MASSADR 

ECADR 

MASSES 

FOR  EBANK=  a 
FOR  EBANK=  5 
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L MAa-CDNtINGENCY  orbit  insertion  USER'S  OWN  PAGp  NO.  11  EA 

0366  rEF  5 LAST  661  33.2531  33123  1 ThrsTAOr  ECAOr  THRSTCMD  FOR  EBAnKs  6 


0367 

0368 

REF 

46 

LAST 

663 

33,2532 

•a  "a  0 c ■a  ^ 

C0368 

REF 

1 

0369 

REF 

47 

LAST 

664 

0370 

33,2534 

C0370 

REF 

3 

LAST 

643 

33 ,2535 

0371 

REF 

128 

LAST 

40 

0372 

33,2536 

C0372 

REF 

2 

LAST 

643 

33,253T 

0373 

REF 

9 

LAST 

653 

0374 

33,2540 

C0374 

REF 

2 

LAST 

653 

33,2541 

0375 

REF 

48 

LAST 

664 

0376 

33,2542 

C0376 

REF 

1 

0377 

REF 

49 

LAST 

664 

0378 

33,2544 

C0378 

REF 

81 

LAST 

662 

33,2545 

0379 

REF 

1 

33 ,2545 

E4 

02423  0 

MP4TM1AD 

EBANK= 

2CADR 

TDEC 

MP4TERM1 

66064  0 
E4 

02312  0 

EXITADR 

EBANK= 

2CA0R 

TDEC 

SERVEXIT 

60064  0 
E4 

02304  1 

orbintad 

EBANKS 

2CADR 

AMEMORY 

MIDTOAVE 

16O04  1 
E5 

03367  0 

pcntfmad 

EBANKS 

2CA0R 

ETHROT 

PCNTFMAX 

60065  1 
E4 

02fl3  0 

ATMAG4 

EBANKS 

2CADR 

TDEC 

ATMAG 

64064  1 
E4 

05P05  1 

WACTTHTD 

EBANKS 

2CADR 

TDEC 

ENDOFJOB 

O4O04  1 
66252  1 

KALC4AD 

FCADR 

PREKALC4 

037901  REF  1 


33,2547  60643  0 CDUJOBAD  FCADR  FINDCDUD 


INE  • NOT  YET  Ai/AILABLE  TO  OTHER  FIXED  BANKS 
»»»*)»*»»*)*»)*#»»»**««»)***«•(***»»#»*»<**###»#*»»**»*»*»»#»#«#«»***»  # 


R0380 

R0381 

R0382 

TASKSETR  SUBI 

0383 

0384 

0385 

REF 

2 

LAST 

0386 

REF 

138 

LAST 

0387 

REf 

217 

last 

0388 

REF 

250 

LAST 

0389 

REF 

29 

LAST 

0390 

REF 

218 

LAST 

0391 

REF 

251 

LAST 

0392 

REF 

11 

LAST 

0393 

0394 

REF 

20 

LAST 

0395 

REF 

252 

LAST 

03951 

REF 

41 

LAST 

03952 

03953 

03954 

0396 

0397 

0398 

0399 

0400 


REF 

REF 

REf 


24 


1 

3 LAST  661 
42  last  664 


REF  50  LAST  664 
REF  253  LAST  664 
REF  6 LAST  343 
REF  12  LAST  664 


33.2550 

33.2551 

33.2552 

33.2553 

33.2554 

33.2555 

33.2556 

33.2557 

33.2560 

33.2561 

33.2562 

33.2563 

33.2564 

33.2565 

33.2566 
33,256T 

33.2570 

33.2571 

33.2572 

33.2573 

33.2574 

33.2575 


0 0004 
0 0006 
23'154 

54  OOl 
3 7T6I 
52  145 
52  071 

3 7T6I 

55  146  1 
54  072  0 
0 OOO6 

4 0025 

20  145 

3 0003 

55*155 

3 2527 
54  003 
0 OOO6 
3 1567  1 

20  I45  0 

0 7320  1 
3 0072  1 


TASKSETR  INHINT 
EXTEND 
OXCH 
TS 
CAf 
OXCH 
OXCH 
CAF 
XCH 
TS 

extend 

DCS 

DAS 

CA 

TS 

CAF 

TS 

EXTEND 

OCA 

OAS 

TC 

CA 


TEMX 

L 

ZERO 

MPAC 

RUPTREGl 
ZERO 
MPAC  *2 
RUPTREG3 

TIME2 

MPAC 

EBANK 

TEMY 

TDECADR 

EbANK 

TDEC 

MPAC 

TPAGREE 

RUPTREG3 
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OAOl 

0A02 

0A03 

0404 

0405 

0406 

0407 

0408 

0409 

0410 

04101 

04102 

0411 

0412 
R0413 


MP4-C0NTINGENCY  OKBlJ  INSERTION 


USER'S  OWN  PAGE  NO,  U 


REF  254  LAST  664 
REF  30  LAST  664 
REF  255  LAST  665 


REF  5 LAST  296 
REF  139  LAST  664 

REF  2 LAST  664 
REF  43  LAST  664 

REF  3 LAST  664 


33,257P  54  l46  0 TS 

33,2577  52  071  0 OXCH 

33.2600  52  U5  0 5XCH 

33.2601  0 0006  1 EXTEND 

33.2602  1 2605  1 3ZF 

33.2603  0 6000  1 TC 

33.2604  00404  1 OCT 

33.2605  56  001  0 XCH 

33.2606  0 0006  1 EXTEND 

33.2607  6 2603  0 3ZMF 

33,2610  23*155  1 LXCH 

33'26ll  22  003  1 LXCH 

33.2612  0 0003  1 RElINT 

33.2613  0 1154  0 TC 


MPAC  *2 

RUPTREGl 

MPAC 


♦ 3 

ABORT 

00404 

L 


-4 

TEMY 

EBANK 

TEMX 


E4 
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L 

ROOOOOl 

R000002 

R000003 

ROOOOOA 

R000005 

ROOOOO6 

ROOOOO7 

ROOOOO8 

ROOOOO9 

ROOOOl 

ROOOOll 

Roooolz 

R000013 

ROOOOIA 

ROOOOI5 

R000016 

R000017 

ROOOOI8 

R000019 

ROOOO2 

ROOOO21 

R000022 

ROOOO23 

R000026 

ROOOO27 

R000028 

R000029 

R00003 

R000031 

R000032 

R000033 

Roooosa 

0001 

0002 

0003 

OOOA 

OOOAl 

000A2 

0005 


MISSION  PHASE  6 COAST  SIVB  ATTACHtO 

PROGRAM  DESCRIPTION 
COAST  SIVB  ATTACHED 

MOD  NO  I DATE  - A NOV  b6 


MOD  BV  - OVERbAUqH 
FJNCTIONAL  DESCRIPTION 

when  the  DV  MONITOR  DETECTS  SIVB  SHUTDOWN  THE 
thrust  mission  control  PROoRAM  INITIATES  MP6, 
DURING  this  PHASE  THE  ABORT  COl^MAND  MOmITOR  AND 

the  tumble  monitor  are  termiInated  and  the  C-BAND 
XPONDER  IS  SET  TO  0N«.  WH£N  T^^RUST  DUE  TO 
venting  becomes  negligible  reauing  of 
the  pipas  is  terminated, 

normal  exit  Modes  - 
TC  TASXOVER 

ERASABLE  INITIALIZATION  REQUIRED 
MP6T07 


OUTPUT 

update  MODREG 

terminate  abort  command  Monitor 
terminate  tumble  monitor 

MISSION  scheduling  REGISTERS  SET  TO  CALL  MP7 
DEBRIS 

centrals, A, Q,Z 

SUBROUTINES  CALLED 
EXECUTIVE(ENDOFUOB) 

WAITLIST 

LONGCALL 

NErtMODEX 

ILMP 

FLAGlDWN 

FLAG2DWN 

SCHEDULE  entry  ROUTINE (MPeNTRY) 


REF  1 


27»2A63 

E3 


3AN< 

EBANk 


REF  17  LAST  65A 


27,2463  0 4105  1 MP6U0B  TC 

27,246<t  OOU13  0 OCT 


REF  16 
REF  7 


last  577 
LAST  662 


27.2465 

27.2466 


3 6Z76  1 
54  f65  1 


CAF 

TS 


REF  40  last  653 


27,2467  0 4U7  I 


TC 
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USER'S  OWN  PAGr  NO.  1 


27 

MP6T07 

NLWMODEX  UPDATE  MODREG 

13 

SIX 

PHASENUM 


PHASCHNG 
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L 

0006 

0007 
00079 

0008 
C0008 

0009 

0010 

oon 

00119 

0012 
C0012 

0013 
OOIA 

0015 

0016 

0017 

0018 
00189 

0019 

C0019 

0020 
0021 
00219 
0022 

A0023 

002A 

0025 

A0026 

0027 

0028 

0029 

0030 

0036 

0037 

0038 
00389 

0039 
AOOAO 

OOAl 

00A2 

00A3 

00A39 

OOAA 

COOAA 


MISSION  phase  6 COAST  SIVB  AnACHtD 


USER'S  OWN  PAGF  no.  2 


REF  2 LAST  666 

REF  1 
REF  1 

REF  105  last  662 
REF  3 LAST  667 

REF  2 LAST  667 

REF  82  LAST  66A 

REF  A1  LAST  666 


REF  A LAST  667 


REF  1 

REF  I 

REF  106  LAST  667 

REF  5 LAST  667 

REF  2 LAST  667 

REF  6 LAST  655 


REF  8 LAST  662 
REF  83  LAST  662 

REF  A2  LAST  667 
REF  1 

REF  6 LAST  667 
REF  I 


27*2A70 

47*^12  1 

27  *2A7 1 

13560  0 
E3 

27,2472 

02504  1 

27,2473 

56003  1 

27,247A 

3 2503  0 

27,2475 

0 0004  0 

27,2475 

0 5701  1 
E3 

27,2477 

02504  1 

27,2500 

56003  1 

27,2501 

0 0003  1 

27,2502 

1 5605  0 

27,2503 

13560  0 

27,250A 

0 4147  1 

27,2505 

47OI2  1 

27,2506 

27340  0 
E3 

27 ,2507 

02523  1 

27,2510 

56003  1 

27,2511 

3 2522  0 

27,2512 

0 5701  1 
E3 

27 ,2513 

02523  1 

27,251^ 

56O03  1 

27,2515 

0 6045  0 

27,2516 

00^*00  0 

27,2517 

0 6036 

1 

27,2520 

20000 

0 

27,2521 

1 5745 

0 

27,2522 

27340 

0 

27,2523 

0 4147 

1 

27,2524 

27042 

1 

27,2525 

75‘:41 

1 

E3 

27.2526 

27.2527 

02540 

56O03 

1 

1 

DCT  A7O12 
DEC  6000 
EBANK=  MP6T07 
2CADR  MP6A 

CAF  DEC6000 
INHINT 

TC  WAITLIST 
EBANK=  MP6T07 
2CADR  MP6A 

RELINT 

TCF  ENDOFJOB 
DEC6000  DEC  6000 

MP6A  TC  PHASCHNG 
DCT  A7012 
DEC  12000 
EBANK=  MP6T07 
2CADR  MP6B 


CAF  DEC12OOO 
TC  WAITLIST 
EBANK=  MP6T07 
2CADR  MP6B 

TERMINATE  ABORT  COMMAND  MONITOR 

TC  FLAG2DWN 
DCT  OOAOO 

Terminate  tumble  monitor 

TC  FLAGIDWN 
OCT  20000 
TCF  TA5K0VER 
DEC12000  dec  12000 

MP6B  TC  PHASCHNG 
OCT  270A2 
-5ENA0R  536SEC 
EBANKs  MP6T07 
2CADR  CBXPNDR 
CALL  C-BAND  TRANSPONDER-ON# 


INITIALIZE  1 MIn  delay 


INITIALIZE  2 MIN  WAIT 


BIT  9 


BITU 


D CC 

0 

27,2530 

0 0006 

1 

Ktr 

REF 

REF 

c 

4 

7 

LAST 

LAST 

LAST 

bbl 

640 

667 

27 .2531 

27.2532 

3 2537 

0 5757 

1 

02540 

56003 

1 

1 

E3 

REF 

2 

LAST 

667 

27 .2533 

27.2534 

1 

1 

EXTEND 

DCA  536SEC  SET  LONGCALLs  T.8M  56S 

TC  LONgCALL  FOR  C-BAND  TRANsPONOER-ON* 

EBANK5  MP6T07 
2CA0R  CBXPNDR 


E3 
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USER'S  OwN  page  no.  3 


0045 

REF 

84 

LAST 

667 

00A6 

A0051 

0052 

0053 

REF 

7 

LAST 

659 

0054 

0055 

REF 

4 

LAST 

652 

uyso 

0057 

27.2535 

27.2536 

27.2537 

1 5^45 
0OO03 

10540 

0 

1 

1 

TCF  TASkOvER 

536SEC  2DEC  53600 

C-BAND  TRANSPONDER-ON# 

27.2540 

0 5073 

0 

CBXPNDR  TC 

ILMP 

27.254i 

00X52 

1 

DEC 

106 

27.2542 

0 4X27 

1 

TC 

2PHSCHNG 

27.2543 

27.2544 

OOU02 

D5013 

0 

DCT 

00002 

0 

DCT 

O5OI3 

27.2545 

mil 

0 

DCT 

77777 

A0058 


Call  schedule  entry  routine 


0059  REF  I 

0060 
0061 

0062  REF  8 LAST  667 


27.2546 

27.2547 

27.2550 

27.2551 


0 5i41  0 
OOUOl  0 
00007  0 
OIT74  1 


TC  MPENTRY 

DEC  1 

DEC  7 

ADRES  MP6T07 


J=l 
MP  = 7 

DT  = 28  MIN 


A00621  terminate  READING  OF  PIPAS. 

A00622  THRUST  DyE  TO  VENTING  AFTER  SIVB 

A00623  shutdown  HAS  BECOME  NEGLIGIBLE. 

00624  REF  9 last  667  27.2552  0 6O36  1 TC  FLAGIDWN  TERMINATE  DV  MONITOR 

00625  27.2553  OOOOl  0 DCT  1 

0063  REF  85  LAST  668  27.2554  I 5 ^45  0 TCF  TASKOVER 

R0064  END  OF  MISSION  PHASE  6 


PAGE  66b 
E3 
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L MP  7 - SIVB/LEM  SEPARATION 


USER'S  OWN  PAGF  NO.  I 


0001  E5»2A67  bank  25 

0002  REF  51  LAST  66A  EA  EBANK=  TDEC 

R0003  program  Description-  mission  phasl  7 - sivb/lem  separation  date-  21  oct  66 

R0005  ^iDD  NO-  0 log  section-  mP  7 - SIvB/LEm  SEPARATION 

R0007  MOO  BY-  GILBERT  ASSEMBLY-  SUNBUrST  REVISION  12 


R0009  FJNCTIONAL  DESCRIPTION 


ROOlO 

R0012 

ROOIA 

ROOI6 

ROOI8 

ROO2O 

ROO22 

R002A 

R0026 

R0028 

R0030 


sivb/lem  separation  is  Started  39  min,  56  sec,  after  sivb  shutdown  is  detected,  at  oo/ii/oa,  one 

MINUTE  AFTER  BOOST  SHUTDOWN  IS  OEIECTED,  MISSION  TIMER  NO,  1 IS  SET  TO  38M  56S  AND  MISSION  PHASE  REGISTER  NO,  1 
TO  MP  7.  MISSION  PHASE  7 STARTS  Al  00/50/00,  THIS  PROGRAM  COMMANDS  A SeQUeNCe  OF  EVENTS  INCLUDING  RCS  CoLD 
FIRE  PURGE.  PCS  PReSSUR I ZAT 1 0 N.,  S BAND  SYSTEM  ACtIVAtION,  ♦X  TRANSLATION  INITIATION  OF  i eM/SIVB  SEPARATION 
sequence,  and  AGS  ACTIVATION,  IMMEDIATELY  AFTER  PHYSICAL  SEPARATION,  00/5A/00.  THE  PGNCs  HOLDS  THE  AttItUDE  RATE 
WHilCH  existed  at  SEPARATION  TO'  MINIMIZE  THE  PROBABILITY  OF  RE-CONTACT.  RCS  .X  TRANSLATION  Is  TERMINATED  15 
SECONDS  AFTER  SEPARATION  AT  00/5A/15  AT  WHICH  TIME  AUTOMATIC  ATTITUDE  HOLD  IS  INITIATED.  THIS  TERMINATION 
FOLLOWS  A sequence  STARTING  AT  00/53/55  DURING  WHICH  THE  JETS  ARE  TURNED  ON  FOR  10  SECONDS,  OFF  FoR  5 SECONDS, 
AND  ON  FOR  5 SECONDS,  THIS  IS  DJe  TO  THe  POSSIBILITY  oF  HeAt  AFFeCtING  tHe  RENDEZVOUS  RaDAR  ANTENNAe, 

MISSION  PHASE  TIMER  NO,  A IS  SET  iO  START  MISSION  PHASE  8 (DPS  COLD  SOAK)  IN  08  SECONDS.  MISSION  PHASE  iIMER 
NO',  2 IS  SET  TO  START  MISSlOv)  PHASE  9 (DPS  1)  IN  3H  IM  A7S,  MAJOR  MODE  lA  IS  DISPLAYED  DURING  THIS  PHASp, 


R0032  CALLING  SEQUENCE 

R0033  SIVB/LEM  SEPARATION  IS  Ca.LeD  BY  THE  MISSION  SCHEDULING  ROUTINE  AS  A JOB,  tHe  MISSInN  SCHEDULING  eN|RY 

R0035  routine  was  CALLED  i MINUtE  A^TER  BOOST  SHUTDOWN  IN  MISSION  PHASE  6 TO  SET  TIMER  NO,  i tO  38  MINUTES  56  SECONDS, 


R0037  SUBROUTINES  CALLED 

R0038  NEWMODEX,  WAITLIST.  FIXDe'.AY.  ILMP+DT.  2LMP.DT.  FLAGlUP,  FLAGlDWN.  MPENTRY.  MIDTOAVf.  AveTOMID.  TPAGREE. 

ROOAO  PREREAD.  READACCS,  SERVICER*  AVER^GEG, 


ROOAl  NORMAL  EXIT  MODE 

R00A2  TASKOVER  (ENDOFJOB  INITUlLY  SINCE  TASK  IS  REQUESTED) 

ROOA3  ALARM  OR  ABORT  EXIT  MODES 
ROOAA  NONE 


R00A5  INPUT 

ROOA6  MISSION  scheduling  MAINTENANCE  ROUTINE  MUST  BE  INHIBITED  AT  BEGINNING  AND  ENABLED  At  END  OF  MISSION  PHASE  7. 


R00A8  OUTPUT 

R00A9  RCS  COLD  FIRE  PURGE.  RCS  sreSSURIZATION.  S BAND  SYSTEM  ACTIVATION,  tX  TRANSLATION,  INITIATION  OF  LEM/SIVB 

Roo5i  Separation  sequence,  and  scheduling  of  musion  phases  a and  9 (dps  cold  soak  and  dps  1). 

R0053  erasable  initialization  ReQDIREO 

R005A  NORMAL  MISSION  SEQUENCE  SETS  ERASABLES  pROPERLY 


R0055  DEBRIS 

R0056  CENTRALS  - A.L.Q 

R0057  other  - ERASABLES  IN  SJBRQDTINES  USED 
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0058 

0059  REF 

0060  REF 

0061 

0062  REF 

0063  REF 


21  LAST  66A 

52  LAST  669 

I 

53  LAST  670 


25i2A67 

25.2A70 

25,2A7l 


2A72 

2473 

247A 


0 0^06  1 
3 0025  0 
53*P67  0 
0 0O06  1 
3 2^61  0 
2l»>67  0 


0064 

0065 

0066 

REF 

REF 

54 

5 

LAST 

LAST 

670 

185 

0067 

REF 

18 

LAST 

666 

0068 

0069 

0070 

REF 

1 

0071 

REF 

19 

LAST 

657 

2473 

2476 

2477 


25»2500 

25*2501 


2502 

2503 
25OA 


0 0006  1 
3 1S67  1 
52  A22  1 

0 4105  1 

00014  1 

0 0006  1 
3 2^63  1 
52  006  0 


0072  REF  43  LAST  667 

0073 

0074 


2505 

2506 

2507 


0 4lA7  1 

O5O22  1 
20000  0 


0075  REF  I 25.2510  3 Kbl  0 

0076  REF  6 LAST  659  25,25ll  55*322  1 


0077 

0078  REF  1 

0079  REF  6 LAST  661 

0080  ref  2 Last  6A6 

0081 
0082 

0083  REF  44  LAST  670 

0084 

0085 

0086  REF  55  LAST  670 

0087 


25.2512 

25.2513 
25.251A 

0 0006 
3 2^65 
53*073 

1 

1 

0 

25.2515 

3 2(66 

1 

25.2516 

0 OOO6 

01  005 

1 

25.2517 

0 

25.2520 

0 41A7 

1 

25.2521 

47OI2 

1 

25.2522 

07640 

1 

E4 

25.2523 

U 

C0087  REF  1 

0088 

0089  REF  1 

0090  REF  107  LAST  667 

0091  REF  56  LAST  670 

0092 

C0092  REF  2 LAST  670 

0093  REF  83  LAST  667 


252A 

2525 

2526 

2527 

2530 

2531 

2532 


52O04  1 
0 0004  0 
3 2^57  0 
0 5^01  1 
E4 

02533  0 
52OO4  1 
0 5605  1 


0094  REF  45  LAST  670 

0095 

0096 


25.2533  0 4I47  1 
25.253A  O5OI2  1 
25.2535  77^77  0 


MP07J0B 


SIVBSEP 
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extend 

OCA  TIME2  SET  UP  TIME  FOR  MIDTOAVE 

OXCH  TDEC 

EXTEND 

OCA  MP07DELT 

OAS  TDEC 

extend 

OCA  TDEC 

OXCH  TIMEHOLD  NO  RADAR  ON  206 

TC  NEWMODEX  DISPLAY  MAJOR  MODE  14 

OCT  14 

EXTEND 

OCA  MIDAVE2C  PRIOR  TO  THRUST 

OXCH  Z 

TC  PHASCHNG 

OCT  05022 

OCT  20000 

CAF  AVRAGEG7  SERVICER  CALLS  AVERAGES 

TS  DVSELECT 

extend 

OCA  SvRExIT  NORMAL  ExIT  FROM  AVERAGES 

OXCH  AVGEXIT 

CaF  JETs+X  RCS  COLD  FjRE  PiirGE 

EXTEND 

WRITE  5 

TC  PHASCHNG 

OCT  A7012 

OEC  4000 

EBANKs  TDEC 

2CADR  SIVBSEP 


INHINT 

CAF  40SEC 
TC  WAITLIST 
EBANK=  TDEC 
2CADR  SIVBSEP 

TC  ENDOFJOB  AND  RELINT 

TC  PHASCHNG 
OCT  05012 
OCT  77777 


E4 
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0097  REF  219  LAST  66A 

0098 

0099 


2536 

2537 
25A0 


3 7^61  0 
0 0^06  1 
01  yo5  0 


CAF  ZERO 
EXTEND 
^RITE  5 


0100 

0101 

0102 

0103 

OlOA 

COlOA 

0105 

0106 

0107 

0108 

0109 

0110 


REF 

A6 

LAST 

670 

25*25Al 

25.25A2 

REF 

57 

LAST 

670 

25  *25A3 

25.25A4 

REF 

REF 

1 

38 

LAST 

662 

25  *25A5 
25.25A6 
25.25A7 

REF 

lA 

LAST 

662 

25*2550 

25*2551 

25»2553 

0 AlA7  1 
47^12  1 
00620  0 
EA 

02550  0 
52O0A  1 
0 5717  0 
00620  0 

0 5106  0 SIVBl 
00<:7A  0 
00^76  1 
OOlAA  0 


TC  PHASCHNG 

OCT  A7012 

DEC  AOO 

EBANX=  TDEC 
2CADR  SIVBl 

TC  FIXDELAY 

OEC  AOO 

TC  2LMP+DT 

OEC  188 

OEC  190 

OEC  100 


0111  REF  26  LAST  661 


25 


2554 


511A  0 


TC  ILMP^DT 


0112 

0113 


25*2555  OOOOA  0 
25.2556  OOUA  0 


OEC  A 

OEC  100 


OllA  REF  15  LAST  671  25*2557 

0115  25*2560 

0116  25*2561 

0117  25*2562 

0118  REF  27  LAST  671  25*2563 

0119  25*2564 

0120  25*2565 

0121  REF  28  LAST  671  25*2566 

0122  25*2567 

0123  25*2570 


0 5106 
00275 
00277 
0160A 

0 

1 

0 

1 

TC 

OEC 

OEC 

OEC 

2LMP*DT 

189 

191 

900 

0 511A 

0 

TC 

ILMP.DT 

00006 

00310 

1 

OEC 

6 

0 

OEC 

200 

0 511A 

0 

TC 

ILMP.DT 

00007 

0 

OEC 

7 

05360 

1 

OEC 

2800 

012A 

0125 

0126 

REF 

29 

LAST 

671 

25*2571 

25*2572 

25*2573 

0127 

25*2574 

0128 

REF 

6 

LAST 

670 

25*2575 

0129 

REF 

3 

LAST 

36 

25*2576 

0130 

25*2577 

0131 

ref 

22 

LAST 

670 

25*2600 

0132 

REF 

A 

LAST 

671 

25*2601 

0133 

REF 

A7 

LAST 

671 

25*2602 

013A 

25*2603 

0135 

25*2604 

0 5114 

0 

TC 

ILMP.DT 

00005 

1 

OEC 

5 

2243A 

1 

OEC 

9500 

0 0O06 

1 

EXTEND 

3 0422 

0 

OCA 

TIMEHOLD 

53*664 

0 

OXCH 

DT2TEMPD 

0 0006 

1 

EXTEND 

A nU  9 R 

1 

T I MC  *3 

1 

DCS 

\ 1 

21*66A 

0 

OAS 

DT2TEMPD 

0 Ai47 

1 

TC 

PHASCHNG 

05012 

1 

OCT 

05012 

11(11 

0 

OCT 

mil 
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USER'S  OWN  PAGf  NO.  3 e4 

TERMINATE  RCS  CnLD  FIRE  PURGE 


WAIT  A SECONDS 


RCS  MAIN  3/0  VAlVES*  SYS,  A - OPEN  ** 
RCS  MAIN  3/0  VALVES,  SYS,  B - OPEN  ** 
WAIT  1 SECOND 


ED  BATTERY  ACTivATlON  - ON 
WAIT  1 SECOND 


RESET  ** 

RESET  AA 
WAIT  9 SECONDS 


RCS  PRESSURIZE  - FIRE  ** 
WAIT  2 SECONDS 


RESET  »» 

WAIT  28  SECONDS 


ED  BATTERY  ACTivATlON  - SAFE  a 
WAIT  95  SECONDS 


TIG  - 28  sEC.  = TdEC  ♦ 2 SEC* 


'♦8895'iA  YJL  SYSTEM  FOR  AGC;  NEW  PRO^^IW)  SMePATIN  bY 


L M?  7 - SIVB/LeM 

0136 

0137  REF  5 LAST  671 

0138  REF  7 LAST  671 

0139  REF  8 LAST  672 

OUO  REF  161  LAST  6A5 

OlAl 

0U2 

01A3  REF  A1  LAST  661 

OlAA  REF  3 LAST  36 

0U5  REF  108  LAST  670 

01A6  REF  58  last  671 

01A7 

C0U7  REF  1 

01A8  REF  5 LAST  668 

01A9 

0150 

0151  REF  A LAST  672 

0152  REF  59  LAST  672 

0153 

C0153  REF  2 LAST  672 

015A  REF  39  LAST  671 

0155 

0156  REF  29  LAST  662 

0157  REF  5 LAST  662 

0158  REF  3 LAST  670 

0159 

0160 

0161  REF  30  LAST  672 

0162  REF  5 LAST  660 

0163  REF  A8  LAST  671 

0164 

0165 

0166  REF  60  LAST  672 

0167 

C0167  REF  1 

0168  REF  40  LAST  672 

0169 

0170  REF  30  LAST  671 

0171 

0172 

0173  REF  31  LAST  672 

0174 

0175 

0176  REF  57  last  656 


ION 


,2605 

0 0D06 

1 

,2606 

3 1664 

1 

,2607 

52  ‘♦22 

1 

,2610 

10  ‘♦22 

1 

,2611 

6 7755 

1 

,2612 

1 2615 

0 

,2613 

4 ODOO 

0 

,261^ 

6 7 735 

1 

,26lt> 

55*662 

0 

»26lR 

0 5701 

1 

E4 

,2617 

02  770 

0 

,2620 

52OO4 

1 

,2621 

0 4127 

1 

,2622 

4OQ52 

1 

,2623 

47OI4 

1 

,2624 

76115 

0 

E4 

,2625 

02  770 

0 

,2626 

52OO4 

1 

,2627 

0 5 717 

0 

,2630 

12574 

1 

,2631 

0 5307 

0 

,2632 

34OI2 

0 

,2633 

3 2 766 

1 

♦ 263^ 

0 0006 

1 

,2635 

01  005 

0 

,2636 

0 5307 

0 

,2637 

34O24 

0 

,2640 

0 4147 

1 

,2641 

47012 

1 

,2642 

00144 

0 

E4 

,264^ 

02047 

0 

,2644 

52O04 

1 

,2645 

0 5 717 

0 

,2646 

OOI44 

0 

,2647 

0 5114 

0 

,2650 

00212 

0 

,2651 

00454 

1 

,2652 

0 5114 

0 

,2653 

00072 

1 

,2654 

00062 

0 

,2655 

4 0077 

0 

SEPARAT 

25 

25 

25 

25 

25 

25 

25 

25 

25 

25 

25 

25 

25 

25 

25 

25 

25 

25 

25 

25 

25 

25 

25 

25 

25 

25 

25 

25 

25 

25 

25 

25 

25 

25 

25 

25 

25 

25 

25 

25 

25 
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USER'S  OWN  PAGE  NO.  4 E4 

Extend 

DCA  DT2TEMPD 

DXCH  TIMEHOLD 

CCS  TIMEHOLD  *1  INSURE  WAITLIST  TIME  POSITIVE 

AD  ONE 

TCF  *3 

COM 

AD  POSMAX 

TS  DT2TEMP 

TC  WAITLIST  request  LASTBIAS  AT  TIG  - 30  SECONDS 

EBANK=  TDEC 

2CADR  TIG-30 

TC  2PHSCHNG 

OCT  40052 

OCT  47014 

-3ENADR  DT2TEMP 

EBANKs  TDEC 

2CADR  TIG-30 

TC  FIXDELAY  WAIT  55  SECONDS 

DEC  5500 

TC  IBNXCALL  DEADBAND  SELECT  - MAX 

CADR  SETMAXDB 

CAF  JET5*X  command  ♦X  TRANSLATION  - ON  (4  JET) 

EXTEND 

WRITE  5 

TC  IBNKCALL 

CADR  ULLAGE 

TC  PHASCHNG 

OCT  47012 

OEC  100 

EBANKs  TDEC 

2CADR  SIVB3 

TC  FIXDELAY  WAIT  1 SECOND 

OEC  100 

TC  ILMP.DT 

OEC  138  XMTR/RCVR  (S-BAND)  - PRIM  » 

OEC  300  WAIT  3 SECONDS 

TC  ILMP.DT 

OEC  58  LEM/SIVB  SEPARATE  ARM  - ON  " 

OEC  50  WAIT  500  MILLISECONDS 

CS 


dapbools 


ENABLE  dap 


<i8895^A  YJL  SYSTEM  FOR  AGCi  NEW  PROGRAM  S^EPATIN  BY  EYLtS 


L M?  7 - 5IVB/LEM  SEPARATION 


0177 

0178 


REF 

REF 


5 LAST  656  25|2656 

58  LAST  672  25,2657 


7 7^A3  1 
25  077  0 


0179  REF  A1  LAST  672 

0180 


25.2660  0 5 a7  0 

25.2661  00062  0 


0181  REF  31 

0182  REF  2 


last  672  25 

last  6A7  25 


2662  0 5^07  0 

2663  3A03A  1 


0186 

REF 

32 

LAST 

672 

0187 

0188 

0189 

REF 

32 

LAST 

673 

0190 

01901 

REF 

REF 

A 

LAST 

657 

A 

LAST 

656 

01902 

REF 

A 

LAST 

650 

01903 

REF 

AA 

LAST 

665 

0190A 

01905 

ref 

5 

LAST 

673 

01906 

REF 

6 

LAST 

656 

019065 

REF 

220 

LAST 

671 

019066 

ref 

5 

LAST 

656 

019067 

REF 

6 

LAST 

673 

01907 

REF 

61 

LAST 

672 

01908 

REF 

5 

LAST 

650 

01909 

REF 

A5 

LAST 

673 

0191 

0192 

REF 

A2 

LAST 

673 

0193 

019A 

0195 

REF 

33 

LAST 

673 

25,266A 

0 511A 

0 

25,2665 

00132 

1 

25,2666 

00012 

1 

25,2667 

0 5307 

0 

25,2670 

3AO00 

0 

E5 

25,2671 

3 5677 

1 

25,2672 

5A  003 

0 

25,2673 

0 0006 

1 

25,267A 

3 15A1 

0 

25,2675 

53*333 

1 

25«2676 

3 7^61 

0 

25,2677 

55*551 

0 

25,2700 

55*552 

0 

LA 

25,2701 

3 7TA3 

0 

25,2702 

5A  003 

0 

25,2703 

0 5a7 

0 

25,270A 

00132 

1 

25,2705 

0 511A 

0 

25,2706 

00073 

0 

25 ,2707 

00 1 AA 

0 

0196  REF  3A  LAST  673 

0197 

0198 


25 

25 

25 


2710 

2711 

2712 


0 511A  0 
00133  0 
00^*54  1 


0199 

REF 

33 

LAST 

673 

25,2713 

0 5307 

0 

0200 

REF 

5 

LAST 

66l 

25,271^ 

3AO30 

0 

0201 

REF 

A9 

LAST 

672 

25,2715 

0 AlA7 

1 

0202 

25,2716 

A7OI2 

1 

0203 

020A 

REF 

62 

LAST 

673 

25,2717 

oor6A 

1 

EA 

MASK 

ADS 

TC 

OEC 

TC 

CADR 

TC 

OEC 

OEC 

TC 

CADR 

ebank= 

CAF 

TS 

EXTEND 

OCA 

OXCH 

CAF 

TS 

TS 

eban<= 

CAF 

TS 

TC 

DEC 

TC 

OEC 

OEC 

TC 

OEC 

OEC 

TC 

CADR 

TC 

OCT 

OEC 

EBANK= 
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GODAPGO 

DAPBOOLS 

USEr*S  own  page  no,  5 EA 

fixdelay 

50 

WAIT  500  milliseconds 

IBNKCALL 

setrate 

get  vehicle  rate 

HOLD  vehicle  ATTITUDE  RATE 

1LMP*0T 

90 

10 

lem/sivb  separate  - command  *** 

WAIT  100  milliseconds 

IBNKCALL 

SETMINDB 

LEMMASSl 

EBANK5 

EBANK 

DEADBAND  SELECT  - MIN 

LEMMASSl 

MASS 

ZERO 

delarea 

DELAREA  ♦! 

TDEC 

EBANKA 

EBANK 

FIXDELAY 

90 

WAIT  900  milliseconds 

1LMP*DT 

59 

100 

LEM/SlVB  separate  ARM  - OFF  ** 

WAIT  1 SECOND 

1LMP*DT 

91 

300 

RESET  **** 

WAIT  3 SECONDS 

IBNKCALL 

NOULLAGE 

PHASCHNG 

A7012 

500 

TDEC 

COMMAND  ♦X  TRANSLATION  - OFF  (A  UET) 

-vaagsAA  yjl  system  for  agc;  new  program  smePatin  by  eYLes 


0205 
C0205 

0206 
0207 

020a 

0209 

0210 
0211 
0212 
0213 
021A 

C021A 

0215 

0216 

0217 

0218 

0219 

0220 

0221 

0222 

0231 

0232 

0233 

0234 

0235 

0236 

0237 

0238 

0239 

0240 

0241 


MP  7 - SIVB/LEM  SEPARATION 


25»2720  02^24  1 2CADR 

REF  1 25*272l  52^04  1 

REF  43  LAST  673  25.2722  0 5 ^7  0 TC 

25,2723  00/64  1 OEC 

REF  34  LAST  673  25.2724  0 5307  0 SIVB4  TC 

REF  6 LAST  672  25,2723  34^24  0 CADR 

REF  50  LAST  673  25,2726  0 4l47  1 TC 

25,272V  47^12  1 OCT 

25.2730  00/64  1 OEC 

ref  63  LAST  673  E4  EBANK 

25.2731  02/35  1 2CADR 

REF  1 25,2732  52004  1 

ref  44  LAST  674  25,2733  0 5/17  0 TC 

25,273^  00/64  1 OEC 

REF  35  LAST  674  25,2735  0 5307  0 5IVB5  TC 

REF  6 LAST  673  25,2736  34030  0 CADR 

REF  10  last  668  25,273V  0 6036  1 TC 

25,2740  00001  0 OCT 

REF  36  last  674  25,2741  0 5307  0 TC 

REF  5 LAST  662  25,2742  34057  1 CADR 

REF  37  last  674  25,2743  0 5307  0 TC 

REF  6 LAST  672  25,2744  34012  0 CADR 

REF  6 LAST  672  25,2745  0 4127  1 TC 

25.2746  00002  0 OcT 

25.2747  05013  0 OCT 

25,2750  77777  0 OCT 

REF  2 last  668  25,275l  0 5141  0 TC 

25.2752  00004  0 OEC 

25.2753  OOOlO  0 OEC 

REF  1 25,2754  01/52  0 ADRES 

REF  86  LAST  668  25,2755  1 5/45  0 TCP 
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S1VB4 

USER'S  OWN  PAGF  NO.  6 E4 

fixoelay 

500 

WAIT  5 SECONDS 

IBNKCALL 

ULLAGE 

PHASCHNG 

47012 

500 

TDEC 

SIVB5 

COMMAND  ♦X  TRANSLATION  - ON  (a  JET) 

FIXDELAY 

500 

WAIT  5 SECONDS 

IBNKCALL 

NOULLAGE 

COMMAND  ♦X  TRANSLATION  - OFF  (A  UET) 

FLAGlDWN 

00001 

KNOCK  DOWN  AVeRaGEG  FLAG 

IBNKCALL 

STOPRATE 

HOLD  LEM  ATTITUDE 

IBNKCALL 

SETMAXDB 

2PHSCHNG 

00002 

05013 

77777 

DEADBAND  SELECT  - MAX 

MPENTRY 

4 

8 

MPDT08 

SCHEDULE  DPS  COl D SOAK 

TIMER  NO.  A 

MISSION  PHASE  8 

TASKOVER 


^88954a  YJL  system  FOR  AGC:  NEW  PROGRAM  S^EPaTIN  BY  EYLE5 


L 

02A2 

02A3 

02AA 

C02AA 

02A5 

02A6 

C02A6 

02A7 

02A8 

C02A8 

02A9 

0250 


0253 

025A 

0255 

0256 
C0256 

0266 

0267 

0268 

0269 

0270 


MP  7 - sivb/lem  separation 


25.2756 

REF 

REF 

6A 

3 

LAST 

LAST 

f > 

25.2760 

25.2761 

67A 

66A 

25.2762 

25.2763 

REF 

REF 

65 

A 

LAST 

LAST 

675 

66A 

25.276A 

25,2765 

REF 

3 

LAST 

663 

25.2766 

25.2767 

OOAIO 

0 

2SEC 

OEC 

D7PA0 

1 

AOSEC 

DEC 

OOOOl 

0 

MPO7DELT 

2DEC 

1002A 

0 

eban<= 

EA 

023OA 

1 

MIDAVE2C 

2CADR 

16O0A 

1 

tH 

EBANK= 

02312 

0 

SVREXIT 

2CADR 

6006A 

0 

00252 

1 

JETS+X 

OCT 

02233 

1 

AVRAGEG7 

oENADR 

REF 

58 

LAST 

65A 

25,2770 

3 7^55  1 

TIg-30 

CAP 

REF 

109 

LAST 

LAST 

672 

25,2771 

0 5^01  1 

TC 

ebank= 

REF 

3 

660 

E5 

ref 

3 

last 

25.2772 

25.2773 

02000  0 
60065  1 

2CADR 

660 

REF 

51 

LAST 

67A 

25,277^ 

0 AlA7  1 

TC 

25,2775 

A0OA5  1 

OCT 

REF 

52 

LAST 

675 

25,2775 

0 AlA7  1 

TaSKAOUT 

TC 

25,2777 

OOOOA  0 

OCT 

REF 

87 

LAST 

67A 

25,3000 

1 5'A5  0 

TCP 

200 

AOOO 

20500 

TOEC 

MIDTOAVE 

TDEC 

SERVEXIT 

00252 

AVERAGES 


Bill 

WAITLIST 

DVTOTAL 

PREREAD 

PHASCHNG 

AO0A5 

PHASCHNG 

OOOOA 


TASKOVER 
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user  I S OWN  PAGf  no.  7 


EA 


PREREAD  CALLS  READACCS  IN  2 SECONDS 


488954A  YJL  SYSTEM  FOR  AGCI  NEW  PROGRAM  SMePATIN  BY  eYLes 


Dec  13,  1966  (MAIN)  PA(3E  67b 


L 


00001 

0001 

Roooill 

R000112 

R000113 

R000115 

R000116 

R000117 

R000118 

R000119 

R00012 

R000121 

R000122 

R000123 

R00012A 

R000125 

R000126 

R000127 

R000128 

R00013 

R000131 

R000132 

R000133 

R00013A 

R000135 

R000136 

ROOOIA 

ROOOlAl 

R0001A2 

R0001A3 

ROOOIAA 

R0001A5 

R0001A6 

R0001A7 


MISSION  phase  8 - OPS  CqLO  USER'S  OWN  PAGE  NO.  I 

27*2555  BANK  27 

REF  3 LAST  659  E3  £BANK=  RATEINDX 

PROGRAM  DESCRIPTION-  D«TE-  07  DEC  66 

MOD  NO-  A LUo  section- 

moo  BY-  ELIASSEN  mission  PHASE  8 - DPS  COLO  SOAK 

FUNCTIONAL  DESCRIPTION- 

0/5A/23  START  MISSION  PHASE  9 WHEN  MISSION  TIMER  A COUNTS  TO  ZERO, 

change  MAJOR  MOOE  TO  15. 

DO  DFI  T/M  calibration  (1A  SECONDS), 

WAIT  1 SECOND 

0/5A/38  LMP  COMMANDS- 

LANDIN6  RaDA^  POWER  0N» 

RADAR  SELF  TEST  0N» 

CALL  TO  CALCULATE  ReJUIRLD  ATTITUDE 
FOR  DPS  COLD  90AK  - 

LM  X-AXIS  NORMAL  10  THE  ECLIPTIC  PLANE 

AND  bisector  of  LM  +Z/-Y  AXES  TOWARD  THE  SUN, 

CHANGE  THE  ATTITUDE  OF  THE 

spacecraft  To  THAI  required  for  ops  cold  soak 

USING  KALCMANJi  RQDTINE  - MANEUVER  RATE'  5 DeG/SEC, 

WAIT  60  SECONDS 

LMP  COMMAND- 

RADAR  SELF  Test  off* 

WAIT  60  SECONDS 

0/56/38  LMP  COMMAND- 
LANDING RaDAR  POWtR  off* 

WAIT  15  SECONDS 

0/56/53  VERIFY  THAT  MANEUVER  IS  COMPLETE, 

(IF  NOT  GO  TO  CURlAINS) 

SET  MAXIMUM  DEADBAND  FOR  LM-DAP, 

CALL  SCHEDULE  ENTRY  ROUTINE  FOR  DPS  1 WITH 
U=2 
MP  = 9 


DT=  2H  59m  Us 


^88954A  YJL  system  fOR  AGCi  NEW  PROGRAM  S^^ePATIN  BY  E^LeS 


Dec  13«  1966  (MAIN)  PA^E  ^ 


L MISSIDN  phase  8 - DPS  CoLD  SjaK 


USER'S  OWN  PAGf  NO.  2 


R0002  SUBROUTINES  CALLED- 
R000201  FINDVAC*  ENdOFUOb 

R000202  WAITLIST*  TASKOVeR 

R000203  NEWMoDEX*  MPENTRY.  PHASCHNG,  2PHSCHNG 

R00020A  INtPRET*  BANKCALL,  I3N<CALL,  attstall,  curtains,  Pooh 

R000205  flagidwn*  flagzdwn*  setminob,  setmaxdb 

R000206  KALCMAN3*  DCMTOCdU*  YISTU2S 

R000207  ILMP,  ILMP+DT,  2LMP*0T 


R00023  NORMAL  EXIT  MODES- 

R000231  TC  ENDOFUOB/TASKOVER 

R000232  ALARM  OR  ABORT  EXIT  MODES-  NONE 

R000233  OUTPUT-  (INTERFACE.  DISPLAYS,  MEAI'^INGFUL  INFORMATION  LEFT  IN  ERASABLE) 

R00023A  SAME  AS  FOR  XALCMANu 

R000236  erasable  INITIALIZATION  ReQUHEO- 

R000237  TEPHeM  IN  CENTISECONOS  TRIPLE  PRECISION 

R000238  MP8T09  DT  FOR  CALLINS-Mpg-  in  5EC0NDS(SEE  ABOVE) 


R000239  Debris-  (erasable  locations  oestruyed  by  this  program) 

R00029  same  as  FOR  <AlCMANj 

0008  REF  7 LAST  6A1  77A0  PRIOKM  EQUALS  PRI020 

0009  REF  19  LAST  670  27,255>  0 AlOS  1 MP8J0B  TC  NEWMODEX 

0010  27*2556  OOU15  0 OCT  15 


PRIORITY  FOR  KAi  CMANU  PHASE  8 ♦ 16 

update  program  number 

ON  DSKY 


001011  REF  1 27*2557  3 3070  0 
001012  REF  59  LAST  673  27*2560  5A  O77  0 
001013  REF  123  LAST  661  27*256l  0 5Z2A  0 
OOlOlA  REF  5 LAST  673  27*2562  3A000  0 


CAF  8BOOLS  ASSURE  PROPER 

Ts  dapbools  initialization 

TC  BANKCALL  OF  LM  DAP 

FCADR  SETMINDB  FOR  MP8 


001015  REF  53  LAST  675  27*2563  0 AlA7  1 TC  PHASCHNG 

001016  27.256A  05012  1 OCT  05012 

001017  27*2565  77T77  0 OCT  77777 


0011  REF  162  LAST  672 

0012 

0013  REF  110  LAST  675 

00135  REF  A LAST  676 

OOIA 

COOIA  REF  1 

0015 

0016  REF  8A  LAST  670 


27*256<>  3 7^55  1 

27*2567  0 OOOA  0 

27*2570  0 5(01  1 

E3 

27*2571  02575  1 

27.2572  56O03  1 

27.2573  0 0003  1 

27.257A  0 5PO5  1 


CAF 

INHINT 

TC 

EBANK= 

2CADR 


ONE 

WAITLIST 

RATEINDX 

MP8TASK 


ESTABLISH  TASK  TO 
PERFORM  DFI  T/M  CAL. 


RELINT 

TC  ENDOFUOB 


OOI7  REF  35  LAST  673  27*2575  0 5UA  0 MPbTASK  TC  ILMP*DT 

00171  27*2576  OOA5A  0 jEC  236 

00172  27*2577  02260  1 DEC  1200 


LMP  COMMAND 

DFI  T/M  calibrate  ON'' 

12  SECONDS  delay 


00173  REF  16  LAST  671  27*2600 

0017A  27*2601 

00175  27*2602 

00176  27*2603 


0 5IO6 

0 

TC 

2LMP+DT 

00355 

1 

DEC 

237 

00306 

00310 

1 

0 

DEC 

DEC 

198 

200 

LMP  COMMANDS 

DFI  T/M  calibrate  OFF* 

MASTER  C+W  ALARM  RESET**  COMMAND 
2 SECONDS  DELAY 


^88954A  YJL  system  FOR  AGC;  NEW  PROGRAM  SHEPATIN  BY  EYLES 


L MISSION  phase  8 - DPS  CqLD  5oA< 


00177  REF  36  LAST  677 
0018 
0019 


260A 

260;> 

2606 


0 5U4  0 
30^07  0 
OOlAA  0 


TC  1LMP*DT 

DEC  199 

DEC  100 


0025 

0026 
00265 

REF 

REF 

REF 

1 

17 

5 

last 

LAST 

659 

677 

0027 

C0027 

REF 

1 

0028 

REF 

7 

LAST 

67A 

0030 

0031 


0032 

REF  17  LAST  677 

0033 

003A 

0035 

2607 

2610 

2611 

2612 

2613 

261'* 

2613 

2616 

2617 

2620 

2621 

2622 


3 7'Al  1 M8RAD0N 
0 553A  0 
E3 

02655  0 
56O03  1 
0 Ai27  1 
OOti3A  0 
35^12  1 
77777  0 

0 5^06  0 
00<:66  0 
OOU32  0 
13>60  0 


CAF  PRiOlO 

TC  FlNDVAC 


ebank= 

RATEINDX 

2CADR 

COLDSOAK 

TC 

2PHSCHNG 

DCT 

0003A 

DCT 

05012 

DCT 

77777 

TC 

2LMP+DT 

DEC 

182 

DEC 

26 

DEC 

6000 

0036  REF  37  LAST  678 

0037 

0038 

0039  REF  38  LAST  678 

00391 

00392 


27.2623 

0 5UA 

0 

TC 

ILMP^DT 

27.262'* 

00033 

1 

DEC 

27 

27.2625 

I3P6O 

0 

DEC 

6000 

27.2628 

0 5ilA 

0 

TC 

ilmp+dt 

27.2627 

00K67 

1 

DEC 

183 

27.2630 

02  f 3A 

0 

DEC 

1 500 

00393 

REF 

2 

LAST 

356 

27.2631 

0039A 

REF 

2A 

LAST 

660 

27.2632 

OOAO 

REF 

29 

LAST 

653 

OOAl 

27.2633 

COOAl 

REF 

1 

27.263'* 

00A2 

REF 

88 

LAST 

675 

27.2635 

00A5 

REF 

10 

LAST 

6A2 

27.2636 

00A6 

REF 

29 

LAST 

568 

27.2637 

00A7 

27.26'*0 

00A8 

27.26AI 

00A9 

REF 

2 

LAST 

660 

27.26A2 

0050 

n n c 1 

REF 
□ ce: 

12A 

LAST 

677 

27.26'*3 

UU7  i 

K tr 

2 

LAST 

660 

27 .26'.'* 

00511 

REF 

3 

LAST 

678 

27.26A5 

3 567A  1 CAF  PRI035 

0 5P23  0 TC  NOVAC 

E3  EBANK=  LSTl 

02636  0 2CADR  MP9CALL 

56O03  1 

0 57A5  1 TC  TASKOVER 

3 0076  0 MP9CALL  CA  FLAGWRD2 

7 77A3  1 MASK  BITll 

0 0006  1 EXTEND 

1 26A3  0 3ZF  *2 

0 A732  0 TC  CURTAINS 

0 522a  0 TC  BANKCALL 

2675A  0 CADR  ATTSTALL 

0 A732  0 TC  CURTAINS 


A0052  SET  LM-DAP  DEADBAND  TO  MAX 

0053  REF  125  LAST  678  27*26A6  0 522A  0 TC  bANkCALL 

005A  REF  7 LAST  67A  27t26A7  3A012  0 CADR  StTMAXDB 


A0055  CALL  MISSION  PHASE  9 

0056  REF  3 LAST  67A  27*2650  0 5Ul  0 TC 


MPENTRY 


DEC  13,  1966  (MAIN)  PAGE  678 


USER'S  OWN  Page  no.  3 e3 

LMP  COMMAND 

MASTER  C*W  alarm  RESET-  COMMAND  RESET 
1 SECOND 

SET  UP  JOB  TO  calculate 
REO  CDU  ANGLES 


LMP  COMMANDS 

LANDING  RADAR  PnWER  0N« 

RADAR  SELF  TEST  ON* 

WAIT  1 MIN 

LMP  command 

RADAR  SELF  TEST  OFF* 

WAIT  1 MIN 


LANDING  RADAR  PnWER  OFF* 
15  SECONDS 

SET  UP  JOB  TO 
END  MISSION  PHASE 


CHECK  IF  maneuver 
WAS  COMPLETED 


maneuver  not  completed 


SICK  RETURN 


maneuver  successful 


488954A  YJL  SYSTEM  FOR  AGC;  NEW  PROGRAM  SMePATIN  BY  EYLES 


0057 

0058 

0059 

0060 


mission  phase  8 - DPS  COLD 

27i265l  00002  0 DEC 

27.2652  OOOll  1 DEC 

REF  I 27,2653  0H75  0 ADRES 

REF  I 27,265^  0 A261  0 TC 


dec  13,  1966  (MAIN)  PAGE  679 


2 

9 

MP8T09 

POOH 


USER'S  OwN  pAqp  NO,  A 


E3 


J=2 
MP  = 9 

DTs  2H  59M  IAS 

END  OF  MISSION  PHASE  8 


48895^A  Y JL  SySTEM  pOR  ^GCi  NEW  pROG^A-M  S^EpATlN  BY  EYUES 


OEc  13»  1966  (MAIN)  pAGE  680 


L 

P0068 

R0069 

R0070 

00715 

0072 

0073 
00731 

R007A 

R0075 

0076 

0077 

0078 

0079 

0080 
0081 
0082 

AOO83 

A008A 

0085 

0086 

0087 

0088 

0089 

0090 

0091 

0092 

A0093 

A009A 

A0095 

0096 

0097 

0098 

0099 

0100 
0101 
0102 
0103 
OlOA 

0105 

0106 

0107 

0108 

0109 

0110 


MISSION  PHASE  8 - DPS  COUO  S3A<  USER'S  OWN  PAGf  NO.  5 E3 

calculate  cdu  Angles  for  required 
COLDSOAK  attitude  - -EM.  A-AxI5  NORMAL  TO  THE 

ECLIPTIC  AND  BISeCTORi  OF  -Y/*2  AXES  TOWARD  THE  SUN. 
rEF  256  last  665  OlAA  CsrET  EQUALS  MPAc 

REF  60  LAST  657  27.2655  0 6103  0 COLDSOAK  TC  INTPRET 

27.2656  77'>01  0 SETPD 

27.2657  00001  0 0 

CALCULATE  TRANSFORMATION  MATRIX  FROM  RCS  COLD  SOAK  ATTITUDE 
T0‘  stable  member  coordinate^,  convert  TO  CDU  ANGLES, 


REF 

23 

LAST 

671 

27.266° 

27.2661 

5APA5  1 

00025  0 

DLOAD 

SR 

T1ME2 

REF 

2 

last 

637 

27 . 2662 

27.2663 
27.266A 

20517  0 

56371  1 

01(72  1 

tad 

1 AD 

DDV 

TEPHEM 

TIME  IN  CENTISEC  SINCE  PRECEDING  JUNE  30 

REF 

1 

27 .2665 

27.2666 

I7O67  0 

77506  1 

PUSH 

CSPERDAY 

CENTISEC  PER  DAY 

T/2**9  = (DAYS  SINCE  JUNE  30TH)/2**9 

COMPUTE  SINIa^PI^T/sSS.aS)  . C0S(2''PI'*T/365.25)  WHERE 

T=  Number  of  days  since  midnight  of  preceding  juNE  soth. 


REF 

1 

27.2667 

27.2670 

51025 

17065 

1 ALTA 

1 

OSU 

REF 

1 

27.2671 

56567 

0 

27.2672 

56215 

1 

DAD 

BPL  DIMINISH  T/2»»9  BY  365.25/2*«9 
ONEYR  UNTIL  A NEGATIVE  RESULT  OCCURS 
ALTA 

DDV  ADD  BACK  365.25/2**9  ONCE. 


REF  2 LAST  680  27.2673  17065  1 

REF  3 LAST  680  27.267^  17065  1 

27.2675  73‘'06  1 

27.2676  71525  0 


ONEYR 

ONEYR 

PUSH  SIN 
PDDL  COS 


LET  YsRESULT 

Y/365.25  IS  LESS  THAN  ONE  AND  POSITIVE, 

,5*SIN(2*PI*Y/3/,5,25) 

.5*C0S(2*PI*Y/365.25) 


Compute  (i/e  ♦los)  in  revolutions  where 

LOS=  L0S0+LOSR*T-c0Y*SIN(2*pI*Y/365.25)-c1Y'*cOS(2*PI*Y/365.25)  . 
LOS  s longitude  OF  SUN  IN  PLANE  OF  ECLIPTIC, 


REF  1 
REF  1 


REF  1 


REF  1 
REF  1 


27.2677 

65205 

0 

27.2700 

170A7 

1 

27,2701 

A3205 

1 

27.2702 

170A5 

0 

27.2703 

77(25 

1 

5A205 

1 

27.2705 

I7OA3 

0 

27,2705 

20210 

0 

27.270T 

77525 

0 

27.2710 

A3215 

0 

27.2711 

I7OAI 

1 

27,2712 

17063 

1 

DMP  POOL 

ClY 

DMP  DAD 

COY 

PDDL 

OMP  SL 

LOSR 

7 

osu 

DAD  DAD 

LOSO 
EGHTH 


.5*ClY*COS/2 

(COY*SIN  ♦ClY*CnS)/A 
T/2**9 

L0SR*T/2**9 

LOSR*T/A 

(LOSR*T-COY*SIN-C1Y*COS)  /4 

LOS/Af  (LOSO*LOSR*T-COY*SIN-CIY*COS) /a 
(1/8  .LOSI/A  . 1/8  REV  = A5  DEG 


27.2713  51025  1 ALTB  DSU  BPL 


diminish  (1/8  ♦lOS)/A  REVS  BY  (iREV)/A 


REF  1 27.271A  I7O6I  0 ONEREV  UNTIL  A NEGATIVE  RESULT  OCCURS, 

REF  1 27.2715  56a3  1 ALTB 


YJL  system  for  AGC-  new  program  SMePATIN  3Y  eyles 


DEC  u,  1966  (MAIN)  PAGE  68i 


u MISSION  Phase  8 - dps  cold  S3(\,< 


USER'S  OWN  PaGf  no.  6 


E3 


0111 

0112  REF  2 last  680 

0113 


27.2718  62‘'15  0 
27.2717  17U61  0 
27.2720  77806  1 


DAD  SL2  ADD  BACK  (1REV)/A  . 

ONEREV  AND  MULTIPLY  BY  FOUR, 

PUSH  (1/8  ♦LOS)  positive  AND  LESS  THaN  ONE. 


AoilA 

A0115 

A0116 

A0117 


Construct  transformation  matrix  from  rcs  cold  Soak  attitude 
TO  earth  reference  coordinates,  matrix  is  scaled  by  -1  . 
matrix  transpose  is  Stored  starting  in  first  location  of  pushdown  list, 
OBL=  OBLIOUItYs  ANGLe  BetWeeN  ecliptic  and  equatorial  planes. 


A0118 


define  LoSR=  2»PI''L0S 


0119 

0120 

0122 

0123 

REF 

1 

0124 

0125 

0126 

REF 

1 

0128 

0129 

U13U 

0131 

0132 

REF 

2 

LAST 

681 

0133 

0134 

0135 

0136 

0137 

0138 

0139 

REF 

2 

LAST 

681 

REF 

REF 

3 

1 

LAST 

681 

27 

27 

27 

27 

27 

27 

27 

27 

27 

27 

27 

27 

27 

27 

27 

27 

27 

27 

27 

27 

27 


2721 

2722 

2723 
272A 

2725 

2726 

2727 

2730 

2731 

2732 

2733 
273‘» 
2735 
2738 
2737 
27A0 
27A1 
27A2 
27A3 
27AA 
2745 


57546  1 
0OO07  0 
77805  1 
17053  1 
00017  1 
77805  1 
17055  1 
14021  1 
OOOOl  0 
77^56  0 
00015  0 
57405  1 
I7O53  1 
00011  1 
778O5  1 
17055  1 

14013  0 

I7O53  1 

77^42  0 
14O05  1 
17051  0 


COS 

STORE 

DMP 

DCOMP 

6 

-.S^COSIPI/a^LOSR) 

COSOBL 

STORE 

I4D 

-,5»C0S(PI/a^L0SR)»C0S(0BL) 

DMP 

TANOBL 

5T0DL 

16D 

-,5»C0S(PI/a^L0SR)#SIN(0BL) 

SIN 

0 

STORE 

DMP 

I2D 

.S^SINiPI/a^LOSR) 

DCOMP 

COSOBL 

STORE 

8D 

-.S^SINIPI/a^LOSRI^COSIOBL) 

DMP 

TANOBL 

STOOL 

lOD 

COSOBL 

-.S^SINIPI/a+LOSRI^SINIOBL) 

SRI 

STODL 

4 

SINOBL 

.5WC0S(0BL) 

0140  27 

0141  27 

0142  REF  2 LAST  638  27 

0143  27 


2746 

57542 

0 

SRI 

2747 

1A003 

1 

STODL 

2750 

I7U57 

0 

2751 

OOOOl 

0 

STORE 

DCOMP 

2 -,5»SIN(0BL) 

DPZRO 

0 0 


A0144 


Perform  the  matrix  multiplication  (Refsmmatixircs  to  ref  matrix) 


0145  27.2752 

01A6  27.2753 

0147  REF  15  LAST  638  27.2754 

0148  27.2755 

0149  27.2758 

0150  27.2757 

0151  27.2760 

0152  REF  16  LAST  681  27.2761 

0153  27.2762 

0154  27.2763 

0155  27.2764 

0156  REF  17  LAST  681  27.2765 


64375 

1 

VLOAD 

MXV 

OOOOl 

0 

0 

01275 

0 

REFSMMAT 

77^2 

0 

VSLl 

24001 

0 

STOVL 

0 

00007 

0 

6 

76521 

0 

MXV 

VSLl 

01275 

0 

REFSMMAT 

24O07 

0 

STOVL 

6 

00015 

0 

12D 

76521 

0 

MXV 

VSLl 

01275 

0 

REFSMMAT 

^88954A  YJL  SYSTEM  FOR  AGC ; NEW  PRO^JRAM  SMePATIN  3Y  EYLES 
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L MISSION  PHASE  8 - DPS  COLD  S3A<  USER'S  OWN  PAGf  NO.  7 E3 

0157  E7i2766  00^15  0 STORE  12D 

0158  27.2767  77  lib  1 EXIT 


A0159 


TRANSPOSE  RESULTING  DIRECTION  COSINE  MATRIX. 


0160 

REF 

19 

LAST 

406 

27.2770 

0161 

27.2771 

0162 

REF 

20 

LAST 

682 

27.2772 

0163 

27.2773 

0164 

REF 

21 

LAST 

682 

27.277A 

0165 

27.2775 

0166 

REF 

22 

LAST 

682 

27.2776 

0167 

0168 

REF 

23 

LAST 

682 

27.277T 

27.3000 

5D 

HO 

1 

INDEX 

FIXLOC 

52 

003 

0 

DXCH 

2 

5D 

HO 

1 

INDEX 

F I XLOC 

52 

007 

1 

DXCH 

6 

5D 

HO 

1 

INDEX 

FIXLOC 

52 

003 

0 

DXCH 

2 

5D 

HO 

1 

INDEX 

FIXLOC 

52 

5D 

005 

HO 

0 

1 

DXCH 

INDEX 

4 

FIXLOC 

0169 

REF 

REF 

24 

25 

LAST 

LAST 

27*3001 

27.3002 

27.3003 

27.3004 

0170 

0171 

0172 

682 

682 

0173 

0174 

REF 

26 

LAST 

682 

27.3005 

27.3006 

0175 

0176 

REF 

27 

LAST 

682 

27.3007 

27.3010 

0177 

0178 

REF 

61 

LAST 

680 

27.3011 

27.3012 

52  U15  1 DXCH  12D 

50  ilO  1 INDEX  FIXLOC 

52  D05  0 DXCH  4 

50  HO  1 INDEX  FIXLOC 

52  ^13  1 OXCH  lOD 

50  110  1 INDEX  FIXLOC 

52  017  0 DXCH  14D 

50  110  1 INDEX  FIXLOC 

52  013  1 DXCH  lOD 

0 6103  0 TC  INTPRET 


A0179 


CALL  routine  TO  CONVERT  DIRECTION  COSINE  MATRIX  TO  CDU  ANGLES. 


0180 

0181 

0182 

0183 

0184  REF  3 LAST  627 


27.3013 

27.3014 
27.3013 

27.3016 

27.3017 


74001  0 

00023  0 

00000  1 

77624  1 
70^27  1 


SETPO  AXC.l 
16D 
0 

CALL 

DCMTOCDU 


A0185 


0186  27.3020 

01862  REF  6 LAST  678  27.3021 

01864  27*3022 

0187  rEF  4 Last  627  27.3023 

0188  REF  7 LAST  630  27.302A 

0189  27.3025 


Convert  cdu  angles  from  ones  to 

47H1  1 SSP  RTB 

01653  0 RATEINDX 

00004  0 4 

33573  0 V1ST02S 

01632  1 STORE  CPHI 

77H6  1 EXIT 


TWOS  complement. 


CODE  FOUR  = maneuver  RATE  OF  5 DEG/SEC. 

store  cdu  angles  in  consecutive 
LOCATIONS  rPHI.CTHETA.CPSI, 


A0190 


set  up  parameters  For  kalcmanu  maneuver  routine 


0193 

REF 

7 

last 

667 

27*3026 

0 6045 

0 

TC 

FLAG2DWN 

RESET  STATE  SWITCH  33  (BIT 

0194 

27.3027 

D4000 

0 

OCT 

04000 

for  final  Roll  * if  any. 

0195 

REF 

2 

LAST 

628 

27.3O3O 

0 6027 

1 

TC 

FLAG2UP 

SET  BIT  FOR  KALcMANU 

019501 

27*3031 

02000 

0 

DCT 

02000 

BITll 

019502 

019503 

REF 

1 

27.3032 

27.3033 

3 7^40 
0 0O04 

0 COLDSKl 

0 

CAF 

INHINT 

PRIOKM 

SCHEDULE  KALCMAnU 

^8895^A  yjL  SySTE^  pOR  AqCj  NEw  pROGRAv^  S*^EpATlN  By  EyLES 


DEC  I3f  I966  (mAIN)  pAfiE  683 


L 

01950A 

019505 

019506 

C019506 

01951 

0197 
C0197 

0198 
C0198 

0199 
C0199 

0200 
C0200 

0201 

C0201 

0202 

C0202 

0203 

C0203 

020A 

C020A 

0205 
C0205 

0206 
C0206 

0207 
C0207 

0208 
C0208 

0209 

R021A 


MISSION  Phase  8 - ops  Cqlo  soac 


user's  own  PaGp  no*  8 


REF 

REF 

REF 

REF 


18  LAST  678 
7 LAST  682 

3 LAST  60A 
85  LAST  677 


27»303A 

0 5534 

0 

E3 

27*3035 

02067 

1 

27.3036 

70063 

0 

27.3037 

0 5605 

1 

27.3040 

02142 

1 

27.3041 

OOO45 

0 

27.3042 

00054 

0 

27.3043 

33330 

1 

27.304A 

04672 

0 

27.3045 

27'*16 

1 

27.3046 

77503 

1 

27.3047 

47^63 

0 

27*3050 

14566 

1 

27.3051 

11502 

0 

27.3052 

35‘^67 

1 

27.3053 

21173 

1 

27.305A 

15^00 

1 

27.3055 

31171 

1 

27.3056 

00000 

1 

27.3057 

00000 

1 

27.3060 

lOOOO 

0 

27.3061 

00000 

1 

27.3062 

OlOOO 

0 

27.3063 

00000 

1 

27.306A 

26650 

0 

27.3065 

ooooo 

1 

27.3066 

00020 

0 

27.3067 

17^:60 

0 

27.3070 

42O32 

0 

E'lD  OF  MISSION  PHASE  8 


TC 

EBANKs 

2CADR 

FINDvAC 

rateindx 

KALCMAN3 

TC 

ENOOFJOB 

LOSO 

2DEC 

.273926331  B-2 

1966-67. IN 

revolutions 

LOSR 

2DEC 

.0027378507 

1966-67. IN 

revolutions 

COY 

2DEC 

.304044828  B-1 

1966-67. IN 

REVOl UTIONS 

ClY 

2DEC 

-.023040861  B-1 

1966-67.  IN 

revolutions 

5IN0BL 

2DEC 

.397845753 

1966-67 

/.I  ^ J CO'il  Q 

^ U wUD  ^ 

.917452318 

1966-67 

tanobl 

2DEC 

.433641885 

1966-67 

DPZRO 

2DEC 

0 

OmEREV 

2DEC 

.999999999  B-2 

EGHTH 

2DEC 

.125  B-2 

oneyr 

2DEC 

365.25  B-9 

CSPERDAY 

2DEC 

8640000  B-33 

CENTISEC  PER  day 

8B00LS 

OCT 

42032 

courtesy  G.  C. 

11/16/66 

E3 


'♦8895AA  YJL  system  FOR  AGC!  NEW  PROGRAM  SHePATIN  BY  EYLES 


Dec  13,  l<)66  (MAIN)  PAGE  68** 


L 

ROOOl 

0002 

0003 

ROOOA 

R0006 

R0008 

ROOlO 

ROOll 

Rooia 

Roois 

Rool? 

R0019 

R0021 

R0023 

R002A 

R0026 

R0028 

R0030 

R0032 

R003A 

R0035 

R003<> 

R0037 

R0039 

ROOAl 

R00A2 

R00A3 

Rooaa 

R00A5 

00A6 

00A7 

00A8 

00A9 

0050 

0051 

0052 

0053 
005A 


MP9-DPS  1 BJRN  USER'S  OWN  PAGF  NO.  I 

MISSION  PHASE  9 


33*26U  BANK  33 

REF  66  LAST  675  EA  EBANK=  TOEC 

PROGRAM  description-mission  PHASEY-DPSI  BJRN  DATE-28  OCT  66 

MOD  NO-2  LOG  SECTI0N-MP9 

MOO  BY-  CHO  assembly-sunburst  REV2A 

FUNCTIONAL  DESCRIPTION 

THIS  PHASE  IS  started  jHO'JR  IMIN  AND  A9SECS  AFTER  THE  TERMINATI  ON  OF  SIVB/LeM  SEPARATION  .X  TRaNSLATI 
ON  AND  BY  the  INITIATION  oF  PROSRAM  31  (PRe-DPSi  BURN).  PROGRAM  31  CALLS  FOR  DPS  CUTOFF  tDI  5MIN  AND 

15SECS  later,  in  ORDeR  TO  ALIGN  T^^E  VEHICLE  THRUST  AXIS  ALONG  THe  DeSIReD  ACCELERATION  weCToR  DURING  PRe-DPSi 
PHASE,  the  following  COMPUTATIONS  ARe  MADe  - VEHICLE  STATE  VECTOR  FORWARD  INTEGRATION  TO  THe  DeSCeNT 
injection  cutoff  time  TDI,  Ve.OCIIY  to  BE  gained  VG,  the  maneuver  thrust  time  TTHRUST,  dPSi  ignition  time  tign 
AND  finally  Desired  thrust  direction  unitvg,  program  31  also  commands  landing  gear  deployment  and  call  for 
A maneuver  to  the  firing  attitude* 

PROGRAM  41,  DPSl  BURN  IS  STARTED  36SECS  BEFORE  IGNITION,  THIS  PROGRAM  ARMS  THe  deSCeNt  ENGINE, 

COMMANDS  .X  TRANSLATION  AND  COMMANDS  eNGINe  ON,  DURING  THe  BURN,  THe  VELOCITY  TO  Be  GAINED  AND  TIME  TO 
CUTOFF  tGO  are  COMPUTED  EVeRT  TWO  SECONDS,  WHEN  toO  FALLS  BeLOW  THe  CRITICAL  VALUE  ENGINE  OFF  SIGNAL  COUNTER 

IS  set,  when  post  engine  cutd'F  routine  U Performed,  mpentry  no,i  is  set  to  start  mpu  in  31MIN  usecs. 
CALLING  Sequence-  after  the  termination  of  sivb/lem  separation  ^x  translation  and  by  tHf  initiation  of 

PROGRAM  31, 

NORMAL  EXIT  MoDeS-  TASKoVeR  (AWAIIS  MPENTRY  INTO  MPn  VIA  NO,l) 

ALARM  EXIT  MODE-  NONE 

subroutines  called-  FIXDELAY,  iLMP,  2LMP,  executive,  MIDTOAVE,  BANKCALL,  IBNKCALL,  WAIT!  1ST,  KALCMANU, 
UL4UE10N,  UL4UET0FF,  ENGINEON,  EN^INOFF,  NEWMODeX,  DFITCAL,  RVUPDADR,  TPAGREE,  TASKOVeR,  ENoOFJOB,  ENGOFI 


INPUT-  RN,  VN,  RP,  MUEARTH,  TOl 
OUTPUT-  VG,  TTHRUST,  TIGN,  UNITVG.  TGO 
erasable  INITIALIZATION  ReqDIREO- 
DEBRIS-  TDEC 

REF  20  LAST  677  33,261^  0 4l05  1 MP9J0B  TC  NEWMODEX  DISPLAY  PROGRAM  NUMBER  IN  DSKY 

33.261S  00^31  0 OCTAL  31 

REF  67  LAST  684  E4  EBANK*  TDEC 

33.26l<>  0 0U06  1 EXTEND 

REF  2A  LAST  680  33,2617  3 0^25  0 OCA  TIME2  PICK  UP  CURRENT  TIME 

REF  1 33,2620  53'966  1 OXCH  TUI 

33.2621  0 0006  1 EXTEND 

REf  1 33,2622  3 3^6A  1 OCA  5M15S 

REF  2 LAST  68A  33,2623  21*666  1 DAS  TDI 


SET  TDI5TIME2*5M15S 


488954A  YJL  SYSTEM  FOR  AGCj  NEW  PRO^^RAM  SMEPATIN  BY  EYLES 


L MP9-OPS  I burn 


0055 

REF 

1 

33 

0056 

REF 

1 

33 

0057 

33 

0058 

REF 

3 

LAST 

684 

33 

0059 

REF 

68 

LAST 

684 

33 

0060 

33 

0061 

REF 

1 

33 

2624  3 3<i47  0 CAF 

262^  55'c>62  0 TS 

2626  0 0U06  1 Extend 

2627  3 1666  0 OCA 

2630  53*567  0 OXCH 

2631  0 0006  1 EXTEND 

2632  3 3256  0 OCA 


0062 

0063 

0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 

0078 

0079 

0080 
0081 
0082 


REF 

REF 

REF 

REF 


REF 


REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 


20  LAST  670 
62  LAST  602 
2 LAST  657 
1 

1 


1 

1 

1 

1 

1 

3 LAST  659 
2 LAST  659 
6 LAST  659 


33 

33 

33 

33 

33 

33 

33 

33 

33 

33 

33 

33 

33 

33 

33 

33 

33 

33 

33 

33 

33 


2633 

2634 

2635 

2636 

2637 

2640 

2641 

2642 

2643 

2644 

2645 

2646 

2647 

2650 

2651 

2652 

2653 

2654 

2655 

2656 

2657 


52  006  0 5XCH 

0 6^03  0 TC 

77624  1 call 

603A7  1 

77650  1 SOTO 

67204  0 

77^45  1 DPS1EQU2  DLOAD 
00045  0 

45261  0 SR 

20613  1 
27266  0 

43271  1 ODV 

27270  1 
27272  0 

26264  0 STOVL 

02272  1 

25656  0 STOVL 

26515  1 

01664  1 STORE 

66214  0 SET 

01063  0 


0083  REF  8 LAST  683 

0084 

0085 


2660 

2661 

2662 


01653  0 
00OO4  0 
lint  1 


exit 


0086 

0087 

0088 

ref 

REF 

2 

1 

LAST 

685 

0089 

0090 

ref 

4 

LAST 

685 

0091 

REF 

2 

LAST 

685 

0092 

REF 

1 

0093 

REF 

2 

LAST 

685 

0094 

0095 

REF 

1 

0096 

REF 

111 

LAST 

677 

0097 

REF 

69 

LAST 

685 

0098 

C0098 

ref 

1 

2663 

2664 

2665 

2666 
2667 

2670 

2671 

2672 

2673 

2674 

2675 


33,2676 


0 0006  1 
4 1664  0 
53*670  0 

0 OOO6  1 
3 1666  0 

21*070  0 
3 3250  0 

55*662  0 

0 0004  0 
3 3310  0 
0 5T01  1 
E4 

02a0  0 

66064  0 


EXTEND 

ocs 

OXCH 

EXTEND 

OCA 

DAS 

CAF 

TS 

INHInT 

CAF 

TC 

EBANKs 

2CADR 


E0U2ADR 

SHJUMPl 


TDI 

TDEC 

RVUPDADR 

Z 

INTPRET 

VPATCHER 

DPSlEQUl 


LV 

D5U 

lOD 

DPA 

DAD 

DPB 

DPC 

TTHRUST 

UNITVG 

POINTVSM 

BODYVECT 

SCAXIS 

SSP 

33D 

RATEINDX 

4 


tthRusT 

TIGN 


TdI 

TIGN 

EUU3ADR 

SHJUMPl 


90SECS9 

WAITLIST 

TDEC 

POSTKALC 


dec  13,  I966  (MAIN)  PAGE  685 


USEr*S  own  page  no.  2 E4 

SET  COMPUTATI INAL  STEPS 


STATE  VECTOR  UPDATE  FOR  PRE-DPSi  BURN 


RESCALE  AND  LOAD  TDI  STATES  IN  RN  AN  VN 

COMPUTES  velocity  Tn  BE  GAINED 

COMPUTES  maneuver  ThRUST  TIME 
ABVAL(VG) 

NOW  VG  SCALED  At  2(+17)M/CS 


scaled  at  2(*28)CS 

kalcmanu  input  register 

LOAD  BODY  AXES  VECTOR  IN  SM  COORD, 
KALCMANU  INPUT  VECTOR 


SET  KALCMANU  FOR  ANGULAR  RATE  OF  5DEG/S 


COMPUTES  TIGN 


TIGNsTDl-TTHRUST  (SCALED  AT  2(*28)CS) 


CALL  POSTkALC  90  SECS  LATER 


488954A  yJL  SySlEM  FOR  AqC j NEw  PROCjRAM  SHePATIN  by  EyLES 


L 

0099 

0100 
0101 
0102 

C0102 

0103 

0104 

0105 

0106 

0107 

0108 

0109 

0110 
COllO 

0111 

0112 

0113 

0114 

0115 

0116 

0117 

0118 
C0118 

0119 

0120 
0121 
0122 

0123 
C0123 

0124 

0125 

0126 

0127 

0128 

0129 

0130 

0131 

0132 

0133 

0134 

0135 

0136 
C0136 

0137 


i^?9-0PS  1 Burn 


REF 

9 

LAST 

659 

33,2700 

REF 

19 

LAST 

683 

33,2701 

REF 

19 

LAST 

659 

33,2702 

REF 

2 

LAST 

659 

33,2703 

REF 

126 

LAST 

678 

33,270A 

REF 

3 

LAST 

678 

33,2705 

REF 

4 

LAST 

678 

33,2706 

3 5^26  1 CAF  PRI030 

0 5534  0 TC  FINDVAC 

E3  EBANK?  mis 

02O01  1 2CADR  VECPOINT 

70^63  0 

0 5^24  0 TC  BANICCALL 

26754  0 CADR  ATTSTALL 

0 4732  0 C iRT9  TC  CURTAINS 


REF  86  LAST  683 
REF  1 

REf  112  last  685 
REF  17  LAST  641 


33,2707 

1 

5605 

0 

TCF 

ENDOFJOB 

33*2710 

3 

3304 

0 

POSTKALC  CAF 

10SECS9 

33,2711 

0 

5 701 

1 

Tc 

waitlist 

E3 

EBANKs 

TGRR 

rEf  1 

REF  11  LAST  678 
REF  30  LAST  678 
REF  281  LAST  646 


2712 

2713 
271A 

2715 

2716 


02206  1 
56^03  1 
4 0^76  1 
7 7743  1 

10  yoo  0 


2CADR  DFITMTSK 

CS  FLAGWRD2 

MASK  BITll 
CCS  A 


REF 

1 

33*271/ 

0 2 725 

0 

REF 

5 

LAST 

652 

33,2720 

3 5676 

0 

REF 

20 

LAST 

686 

33,2721 

0 5534 

0 

REF 

70 

LAST 

685 

tH 

33,2722 

02  706 

1 

REF 

1 

33,2723 

66064 

0 

REF 

89 

LAST 

678 

33,272A 

0 5745 

1 

TC  GOODKALC 

CAF  PRI037 
TC  FINDVAC 
EBANKs  TDEC 
2CADR  CURT9 

TC  TASKOVER 


REF 

REF 

REF 

REF 

REF 

REF 


1 

113  LAST  686 
71  LAST  686 

1 

25  LAST  684 
89  LAST  568 


33.2725 

33.2726 


272/ 

2730 

2731 

2732 

2733 


3 3305  1 GOODKALC  CAF  11SECS9 

0 5701  1 TC  WAITLIST 

E4  EBANK=  TDEC 

02747  1 2CADR  182LMP 

66064  0 

0 0006  1 EXTEND 

4 0025  1 DCS  TIME2 

52  062  1 OXCH  ITEMPl 


33 

273A 

REF 

3 

LAST 

685 

33 

2735 

REF 

90 

LAST 

686 

33 

2736 

REF 

1 

33 

2737 

274O 

33 

REF 

91 

LAST 

686 

33 

274I 

REF 

92 

LAST 

686 

33 

2742 

REF 

5 

LAST 

667 

33 

2743 

ref 

72 

LAST 

686 

33 

274A 

REF 

1 

33 

2745 

REF 

90 

LAST 

686 

33 

2746 

0 0006 
3 1670 

1 

EXTEND 

1 

OCA 

T 1 GN 

20  062 

1 

OAS 

ITEMPl 

0 0006 
4 3262 

1 

EXTEND 

0 

DCS 

36SECSD9 

20  062 

1 

OAS 

ITEMPl 

52  062 

1 

OXCH 

ITEMPl 

0 5757 

1 

TC 

LONGCALL 

E4 

EBANK= 

TdEC 

f 

66064 

0 

2CADR 

T 1 G9-36 

1 5 745 

0 

TCF 

TASKOVER 

DEC  13,  1966  (MAIN)  page  686 


USER'S  OWN  PAGE  NO,  3 E4 

CALL  ,,ALCMANU  JOB-  START  INDICATOR  UP« 


SEE  IF  KALCMANU  FINISHED 

unfinished  maneuver 

GOOD  RETURN-  END  MP9JOB 
CALL  DFITMTSK  IcSECs  LATER 

DFI  T/M  calibration  ROUTINE 
check  kALCMANU  bIT 

GOOD  return 
BAD  RETURN 


END  POSTKALC  TAsK 


CALL  DPSl  BURN  pROG,  AT  TIGN-36SECS. 


END  GOODKALC  TASK 


‘V88954A  YJL  SYSTEM  FOR  AGC;  NEW  PROGRAM  SMEPATIN  BY  EYLES 


DEC  13,  I966  (MAIN)  PAGE  607 


L M39-DPS  1 BURN 


0138 

0139 
OUO 

REF 

18 

LAST 

678 

33,2747 

33.2750 

33.2751 

33.2752 

33.2753 

0 5IO6 
00266 
00032 
11444 

0 5114 

0 

0 

0 

0 

0 

182LMP 

TC 

OEC 

OEC 

2LMP*DT 

182 

26 

OlAl 

01A2 

REF 

39 

LAST 

678 

OEC 

TC 

49OO 

1LMP*DT 

01A3 

33 ,275A 

OOOO4 

0 

OEC 

4 

OlAA 

33,2755 

00  764 

1 

OEC 

500 

01A5 

REF 

40 

LAST 

687 

33,2756 

0 5114 

0 

TC 

ILMP+DT 

0146 

33,2757 

OOOlO 

0 

OEC 

8 

0147 

33,2760 

00310 

0 

OEC 

200 

0148 

REF 

41 

LAST 

687 

33,2761 

0 5114 

0 

TC 

1LMP*DT 

0149 

33,2762 

00011 

1 

OEC 

9 

0150 

33,2763 

00620 

0 

OEC 

400 

0151 

REF 

8 

LAST 

668 

33,276A 

0 5073 

0 

1 

TC 

ILMP 

0152 

33 ,2765 

OOO33 

OEC 

27 

0153 

REF 

91 

LAST 

686 

33,2766 

0 5745 

1 

TC 

TASKOVER 

0154 

REF 

21 

LAST 

604 

33,2767 

0 4105 

1 

TIG9-36 

TC 

NEWMODEX 

0155 

33,2770 

00041 

1 

OCT 

41 

0156 

REF 

3 

LAST 

660 

33,2771 

0 6074 

1 

TC 

ENGINOFI 

0157 

REF 

2 

LAST 

639 

33,2772 

0 5065 

1 ..r 

TC 

2LMP 

0158 

33,2773 

00226 

1 ' 

OEC 

150 

0159 

33,277A 

00126 

1 

OEC 

86 

0160 

REF 

1 

33*2775 

3 3306 

1 

CA 

20SECS9 

0161 

REF 

114 

LAST 

686 

33,2776 

0 5 701 

1 

TC 

WAITLIST 

0162 

REF 

7 3 

LAST 

686 

t4 

EBANK= 

TDEC 

0163 

33,2777 

03234 

1 

2CADR 

228LMP 

C0163 

REF 

1 

33,3000 

66064 

0 

0164 

REF 

6 

LAST 

657 

33,3001 

3 5667 

0 

caf 

PRI027 

0165 

REF 

21 

LAST 

686 

33,3002 

0 5534 

0 

TC 

FINDVAC 

0166 

REF 

74 

LAST 

687 

E4 

ebank= 

TDEC 

0167 

33,3003 

O3OO6 

1 

2CADR 

ORBINTJB 

C0167 

REF 

1 

33,300A 

66064 

0 

0168 

REF 

92 

LAST 

687 

33,3005 

1 5745 

0 

TCF 

TASKOVER 

0169 

33,3006 

0 0006 

1 

orbintjb 

EXTEND 

0170 

REF 

4 

LAST 

686 

33,3007 

3 1670 

1 

OCA 

TIGN 

LAST 

53*567 

U i f 1 

K tr 

75 

687 

53  » 30 1 V 

0 

OXCH 

TDEC 

0172 

REF 

1 

33*3011 

4 3307 

1 

CS 

30SECS9 

0173 

ref 

140 

last 

665 

33,3012 

54  OOl 

1 

TS 

L 

0174 

REF 

221 

LAST 

673 

33,3013 

4 7761 

1 

CS 

ZERO 

0175 

REF 

76 

LAST 

687 

33,301^ 

21*567 

0 

OAS 

TDEC 

USER'S  OwN  pAGF  NO,  A 

LANDING  RADAR  POWER  ON 
RADAR  SELF  TEST-ON 

ED  BATTERY  ACTIVATION  -ON 


LANDING  GEAR  DEPLOY  -FIRE 


LANDING  GEAR  DEPLOY-  FIRE  RESET 


RADAR  SELF  TEST.OFF 
END  182LMP  TASK 

DISPLAY  PROGRAM  NUMBER  IN  OSKY 

MAKE  SURE  ENGINf  OFF 

ENGINE  select  DFSC  ARM 
MANUAL  throttle  ON  (IOPERCENT) 


END  TIG9-36  TASK 


TDEC  NOW  CONTAINS  TlGN-30  SECS, 


EA 


48895<tA  YJL  SYSTEM  FOR  AGC:  NEW  PROGRAM  SHePatIN  BY  EYLe5 


Dec  13«  1966  (MAIN)  PAGE  68b 


MP9-0PS  I born 

0176 

0177  REF  2 LAST  657 

0178  REF  21  LAST  685 


USER'S  OWN  page  NO.  5 


33.3015  0 0006  1 

33.3016  3 2537  1 

33.3017  52  006  0 


EXTEND 

OCA  ORBINTAD 
OXCH  Z 


R0179  RN  AND  VN  IN  STABLE  MEMBER  COORDINATES,  SCALING  IS  AS  IN  AVeG. 


R0180  DELETE 


0181 

REF 

2 

LAST 

659 

33,3020 

3 2526 

1 

0182 

REF 

7 

LAST 

670 

33,3021 

55*322 

1 

0183 

33,3022 

0 0006 

1 

018A 

REF 

3 

LAST 

661 

33,3023 

3 2535 

0 

0185 

REF 

7 

LAST 

670 

33,302A 

53*073 

0 

CAF  AVGENADR 

TS  DVSELECT  SELECT  AGS  MONITOR 

extend 

OCA  ExiTADR 

OXCH  AVGEXIT  SET  AVERAGEG  EXIT 


0186 

1 

A 

33.3025 

33.3026 
33,302T 

0187 

0188 

REF 

REF 

LAST 

659 

0189 

REF 

2 

LAST 

687 

33,3030 

0190 

ref 

2 

LAST 

660 

33,303l 

0 0006  1 extend 

3 3Z5A  1 OCA  MP9TM1AD 

53*075  0 OXCH  DVMNEXIT 

A 3A07  1 CS  30SECS9 

0 2550  0 TC  TASKSETR 


SET  MONITOR  EXIT 

CALL  PREREAD  AT  TIGN-30SECS, 


0191 

0192  REF  115  LAST  687 

0193  REF  A LAST  675 
019A 


33.3032 

33.3033 


33 


303A 


0 OOOA  0 
0 5(01  1 
E5 

02O0O  0 


INHINT 

TC  WAITLIST 
EBANXs  DVTOTAL 
2CADR  PREREAD 


C019A  REF  A LAST  675 

0195  REF  1 

0196  REF  3 LAST  688 

0197 

0198  REF  116  LAST  688 

0199  REF  8 LAST  688 

0200 

C0200  REF  1 

0201  REF  87  LAST  686 


3035 

3036 

3037 
30A0 
30Al 

30A2 

30A3 

30AA 


60065  1 
A 3302  1 
0 2550  0 
0 OOOA  0 

0 5(01  1 

E2 

03OA5  0 
66062  0 

1 5605  0 


CS  ASEC59  CALL  TVC  FOR  DPSl  AT  TIG-aSECS 

TC  TASKSETR 

INHINT 

TC  WAITLIST 

EBANKs  AVGEXIT 

2CADR  TIG9-A 

TCF  ENDOFJOB  END  ORBITAL  INTEGRATION  JOB 


0202 

0203 

020A 

0205 
C0205 

0206 

0207 

0208 


REF  2 LAST  688 

REF  U7  LAST  688 

REF  6 LAST  66A 

REF  1 

REF  1 

REF  9 last  688 


33,30A5 

3 3502 

0 

33,30A6 

0 5(01 

1 

E6 

33,30A7 

03055 

1 

33,3050 

66066 

1 

33,3051 

0 0006 

1 

33,3052 

3 3252 

1 

33,3053 

53*073 

0 

ASECS9 
TC  waitlist 

EBANKs  THRSTCMD 
2CA0R  TI&9-0 

EXTEND 

OCA  EQUIADR 
OXCH  AVGEXIT 


TIG9-A  CAF 


DO  ENGINE  ON  AT  TIG-0  SEC 


AVG  ROUTINE  GOE<;  TO  VG  COMPUTATION 


0209 

ref 

93 

last 

687 

33,305A 

1 5(A5 

0 

0210 

REF 

5 

LAST 

660 

33,3055 

0 605A 

0 

0211 

REF 

A5 

LAST 

67A 

33,3056 

0 5(17 

0 

0212 

33,3057 

00062 

0 

TCF 

TaSKOVER 

end  TIG9-A  Task 

TIG9-O 

TC 

ENGINEON 

COMMAND  engine  ON 

TC 

fixdelay 

OEC 

50 

EA 


48895<VA  yJL  SySTEM  FOR  AqC;  NEw  pROGRf^M  SHErATIN  bY  Eyl-ES 


dec  U,  1966  (MAIN)  pA^E  689 


L M39-DPS  I BURN 


USER'S  OWN  page  NO.  6 


EA 


0213 

ref 

38 

LAST 

674 

33.3060 

0 5307 

0 

0214 

REF 

7 

LAST 

674 

33 .3061 

34O3O 

0 

0215 

REF 

7 

LAST 

688 

E6 

0216 

REF 

2 

LAST 

661 

33.3062 

3 2472 

1 

0217 

REF 

8 

LAST 

689 

33.3063 

55*523 

0 

0218 

REF 

46 

LAST 

668 

33.3064 

0 5 T 17 

0 

0219 

33.306P 

00372 

1 

TC  IBNKCALL 

CADR  NOULLAGE  ♦X  TRANSLATION-  OFF 

EBANK=  THRSTCMD  declare  E6ANKs6 

CAF  ioperthr  report  10  percent  Thrust  to  dap 

TS  THRSTCMD 

TC  FIXDELAY 

DEC  250 


0220 

REF  42  LAST  687 

33.3066 

0 5114 

0 

TC 

ILMP+DT 

0221 

0222 

33.3067 

33.3070 

00O05 

04374 

1 

0 

DEC 

DEC 

5 

2300 

ED  BATTERY  ACT  I wAT I ON-SAFE 


0223 

REF 

42 

LAST 

LAST 

672 

33.307I 

0224 

0225 

REF 

3 

661 

33 .3072 
33*3073 

0226 

0227 

ref 

2 

LAST 

661 

33.307A 

33.3075 

3 7^35  1 MAXTHR9 
55*^35  1 
0 0^06  1 
3 2PA1  0 
52  D06  0 


CAF  POSMAX 

TS  PCNTF 

EXTEND 

OCA  PCNTFMAd 

DTCB 


CALL  FOR  92.5  PfRCENT  THRUST 


0228  REF 

0229  REF 

0230  REF 

0231  REF 

0232 

0233  REF 
023A 

0235  REF 

0236  REF 

0237 

0238  REF 

0239  REF 

0240 

0241  REF 

0242  REF 

0243 

0244  REF 

0245  REF 

0246  REF 

0247  REF 

0248 

0249  REF 

0250  REF 

0251 


2 LAST  661 
9 LAST  689 
94  LAST  688 

77  LAST  687 


1 

2 LAST  685 
1 


2 LAST  664 
88  LAST  688 


2 last  685 
1 

1 

1 

3 LAST  319 
3 LAST  658 


1 

1 


33.3076 

3 2473 

0 

CAF 

33.3077 

55*523 

0 

TS 

33.3100 

1 5T45 

0 

TCF 

E4 

EBANKs 

33.3101 

77624 

1 

DPS1EQU3 

call 

33.3102 

57U1 

1 

33.3103 

77^5 

1 

YLOAD 

33.3104 

02272 

1 

33.3105 

02233 

1 

STORE 

33*3106 

77P24 

1 

call 

33.3107 

60643 

0 

33.3110 

1 5PO5 

0 

TCF 

33.3111 

45P45 

1 

CALCTGO 

DLOAD 

33.3112 

00045 

0 

33.3113 

27274 

0 

33.3114 

56205 

0 

DMP 

33.3115 

27276 

1 

33.3116 

02535 

0 

33.3117 

02350 

0 

STORE 

33.3120 

02350 

0 

STORE 

33.3121 

51025 

1 

DSU 

33 .3122 

27260 

0 

33.3123 

00052 

0 

33.3124 

11  nb 

1 

EXIT 

92PERTHR 

THRSTCMD 

TASKOVER 

TDEC 


CALcTGO 

UNITVG 

AXISD 


FINDCDUD 

ENDOFJOB 

DSU 

LV 

VTAILOFF 

DDV 

DELTAT9 

ABDELV 

TTGO 

TGO 

BPL 

4SECSD9 

OPRET 


REPORT  THRUST  TO  DAP 
END  TIG9-0  TASK 
DECLARE  EBANK?4 


FINDCDUD  INPUT 


END  DPSIEQU3  JOR  DURING  BURN  ONLY 
ABVAl(VG) 


FOR  DWLK  ONLY 


48895^A  YJL  system  FOR  AGCj  NEW  PROGRAM  SMePATIN  BY  EYLES 


L MP9-DPS  1 BURN 

0252  33 

0253  REF  4 LAST  689  33 

0254  REF  118  LAST  688  33 

0255  REF  13  LAST  630 

0256  33 

C0256  REF  1 33 

0257  REF  89  LAST  689  33 

0258  REF  5 LAST  651  33 

0259  REF  39  LAST  689  33 

0260  REF  6 LAST  674  33 


3125  0 0004  0 INHINT 

3126  3 H50  1 CA 

3127  0 5^01  1 TC 

El  EBANKs 

3130  03133  0 2CADR 

3131  66061  0 

3132  1 5605  0 TCF 

3133  0 6071  1 C.JTOFF  TC 

3134  0 5307  0 TC 

3135  34057  1 CADR 


0261  REF  95  LAST  689 


33 


3136  1 5^5  0 


TCF 


0262 

0263 

0264 


33,3137  0 0006  1 MP9TERMI  EXTEND 

REF  4 LAST  688  33,3140  3 2535  0 OCA 

REF  10  LAST  688  33,314l  53*073  0 OXCH 


0265  33 

0266  REF  1 33 

0267  REF  119  LAST  690  33 

0268  REF  78  LAST  689 

0269  33 

C0269  REF  1 33 

0270  REF  90  LAST  690  33 


3142  0 0004  0 INHInT 

3143  3 3503  1 CAF 

314A  0 5^01  1 TC 

E4  EBANKs 

3145  03150  0 2CADR 

3146  66064  0 

3147  1 5605  0 TCF 


0271  REF  19  LAST  687  33 

0272  33 

0273  33 

0274  33 

0275  REF  20  LAST  690  33 

0276  33 

0277  33 

0278  33 


3150 

Q 1 C 1 

0 5IO6 

0 87LMP 

TC 

3151 

00127 

0 

DEC 

3152 

00227 

0 

dec 

3153 

01  (50 

1 

OEC 

3154 

0 5IO6 

0 

TC 

3155 

00365 

1 

DEC 

3156 

00325 

0 

DEC 

3157 

00144 

0 

DEC 

0279 


REF 


21  LAST  690 


33 


3160 


5IO6  0 TC 


0280 

0281 

0282 


33.3161  00345  0 

33.3162  00305  1 

33.3163  02570  1 


DEC 

DEC 

DEC 


0283 

0284 

REF 

REF 

40 

8 

LAST 

LAST 

LAST 

690 

678 

33 

33 

0285 

0286 

REF 

9 

687 

33 

33 

0287 

0288 

REF 

47 

LAST 

689 

33 

33 

316A  0 5307  0 TC 

3165  34III2  0 CADR 

3166  0 5073  0 TC 

3167  00032  0 oEc 

3170  0 5 a7  0 TC 

3171  13560  0 DEC 


TGO  ♦! 
WAITLIST 
CDUXD 
CUTOFF 

ENDOFJOB 

ENGINOFF 

IbNuCALL 

STOPRATE 

TASKOVER 


EXITADR 

AVGEXIT 


5SECS9 

WAITLIST 

TDEC 

87LMP 

ENDOFJOB 

2LMP*DT 

87 

151 

1000 

2LMP+DT 

245 

213 

100 

2LMP+DT 

229 

197 

1400 

IBNKCALL 

SETMAXDB 

ILMP 

26 

FIXDELAY 

6000 


DEC  13,  1966  (MAIN)  PAGE  690 


USER'S  OWN  page  NO.  7 eA 

CUTOFF  SIGNAL  COUNTER  SET 


END  DPSl  BURN  EQUATION  JOB 
ENGINE  OFF 

HOLD  vehicle  attitude 

END  CUTOFF  TASK 


END  MP9TERM1  JOB 


manual  Throttle  - reset  (3o  percent.) 

ENGINE  SELECT-DfSC  ARM-OFF 


DPS  POGS  NOl  - OFF 
DPS  POGS  N02  - OFF 


DPS  POGS  ARM  NOl  DISABLE 
DPS  POGS  ARM  NO2  DISABLE 


radar  self  test  on 


^88954A  YJL  SYSTEM  FOR  AGC;  NEW  PROGRAM  SMePATIN  BY  EYLeS 


Dec  13,  1966  (MAIN)  PAGE  691 


L M59-DP5  1 BURN 


USER'S  OWN  PAGf  NO.  8 


0289 

0290 

0291 

0292 

0293 
029A 

0295 

0296 

0297 

0298 

0299 

0300 

0301 

0302 

0303 

0304 

0305 

0306 

0307 

0308 

0309 

0310 

0311 

0312 

0313 

0314 

0315 

0316 

0317 

0318 

0319 

0320 


0321 

0322 

0323 

0324 

0325 

0326 

0327 

0328 

0329 


REF  3 LAST  687 


REF 

4 

LAST 

678 

REF 

1 

REF 

11 

LAST 

674 

REF 

96 

LAST 

690 

REF 

7 

LAST 

658 

REF 

2 

LAST 

658 

REF 

3 

LAST 

691 

REF 

2 

LAST 

309 

REF 

2 

LAST 

658 

REF 

3 

LAST 

691 

REF 

3 

LAST 

691 

REF 

1 

REF 

4 

LAST 

319 

REF 

8 

LAST 

691 

REF 

4 

LAST 

319 

REF 

3 

LAST 

689 

REF 

3 

LAST 

685 

REF 

22 

LAST 

690 

REF 

23 

LAST 

691 

33,3172 

0 5065 

1 

TC 

2LMP 

33,3173 

00033 

1 

DEC 

27 

33,317^ 

00267 

1 

DEC 

183 

33,3175 

0 5141 

0 

TC 

mpentry 

33,3176 

OOOOl 

0 

DEC 

1 

33,317T 

00013 

0 

DEC 

1 I 

33,3200 

01  <52 

0 

ADRES 

MP9-11DT 

33,3201 

0 6036 

1 

TC 

FLAGIDWN 

33,3202 

OOOOl 

0 

OCT 

OOOOl 

33,3203 

1 5 <45 

0 

TCF 

taskover 

33,3204 

47375 

0 

DPSlEOUl 

VLOAD 

VXV 

1 U 1 ^ 

33,3205 

01^  if 

0 

VN 

33,3206 

01033 

0 

UNITR 

33,3207 

63256 

0 

UNIT 

PDVL 

33,3210 

01033 

0 

UNITR 

33,3211 

77635 

1 

VXV 

43325 

33 ,3214 

1 

PDDL 

DAD 

33,3213 

02355 

0 

RP 

33,321A 

01047 

0 

RMAG 

33,3215 

65205 

0 

DMP 

PDDL 

33,3216 

OIO47 

0 

RMAG 

33,3217 

02355 

0 

RP 

33,3220 

56205 

0 

OMP 

DDV 

33,3221 

27300 

1 

2MUERTH9 

33,3222 

74366 

1 

SORT 

vxsc 

33,3223 

77<52 

1 

VSL2 

33,322<^ 

02326 

1 

STORE 

VDVECT 

33*3225 

77651 

0 

VSU 

33,3226 

01017 

0 

VN 

33,322T 

02334 

1 

STORE 

VGVECT 

33*3230 

77656 

1 

UNIT 

33,3231 

02272 

1 

STORE 

UNITVG 

33,3232 

77650 

1 

GOTO 

33,3233 

02262 

0 

SHJUMPl 

33,3234 

0 5IO6 

0 

228LMP 

TC 

2LMP+DT 

33,3235 

00344 

1 

DEC 

228 

33,3236 

00304 

0 

DEC 

196 

33,3237 

OOI44 

0 

DEC 

100 

33,3240 

0 5IO6 

0 

TC 

2LMP*DT 

33 ,3241 

00364 

0 

DEC 

244 

33,3242 

00324 

1 

DEC 

212 

RADAR  SELF  TEST  POWER  - OFF 
LANDING  RADAR  PnWER  - OFF 

CALL  NEXT  MISSION  ENTRY  ROUTINE 


KNOCK  DOWN  AVERaGEG  FLAG 

MISSION  PHASE  9 COMPLETE 

VN  SCALED  AT  2(+7)M/CS 
UNiTR  IS  UNIT  Vector  along  rn 


TARGET  distance  - PERIGEE  OR  APOGEE 
RP  AND  RMAG  SCAl ED  AT  2(+24)M 


SCALED  AT  2 (*38 ) M ( 3 ) /CS <2 ) . 

FOR  DWNLK  ONLY.  SCAl ED  AT  2<.7)M/CS 

FOR  DWNLK  ONLY,  SCAl. ED  AT  2(*7)M/CS 
LEAVES  ABVAL  IN  LV 


DPS  PQGS  arm  NO!  - FNABLE 
DPS  PQGS  ARM  N02  - ENABLE 


DPS  PQGS  NOl  - ON 
DPS  PQGS  N02  - ON 


EA 


488954A  YJL  SYSTEM  FOR  AGC:  NEW  PROGRAM  SMePATIN  BY  EYLES 


0330 

0331 

0332 

0333 


R033A 

0335 

0336 

0337 

0338 
C0338 

0339 

0340 
C0340 

0341 

0342 
C0342 

0343 
C0343 

0344 
C0344 

0345 

C0345 

0346 
C0346 

0347 
C0347 

0348 
C0348 

0349 
C0349 

0350 
C0350 

0351 
C0351 

0352 

0353 

0354 

0355 

0356 

0357 

0358 

0359 

0360 


M39-0P5  1 BURN 


33,3243  01356  0 OEC 

REF  41  LAST  690  33,324A  0 5307  0 TC 

REF  7 LAST  674  33,3245  34^24  0 CADR 

REF  97  LAST  691  33,324<>  1 5^45  0 TCP 


«»»##*##»**«»«#*»#*»»»******»##» 


REF  1 
REF  1 


33,3247  66941  1 E3U2ADR  CADR 
33,3250  67101  0 E3U3ADR  CADR 


REF 

79 

LAST 

690 

33.3251 

33.3252 

REF 

REF 

2 

80 

LAST 

LAST 

685 

692 

REF 

REF 

1 

81 

LAST 

692 

33.3253 

33.3254 

REF 

1 

33 ,3255 
33,3259 
33,3257 

33»326l 

33«3262 

33  f 326^ 

E4 

EBANKs 

03':04  1 

EquIAOR 

2CADR 

66064  0 

E4 

EBANKs 

03137  1 

MP9TM1AD 

2CADR 

66064  0 

E4 

EBANKS 

02301  1 

RVUPDADR 

2CADR 

16O04  1 

00000  1 

4SECSD9 

2DEC 

00920  0 

OOOOO  1 

36SECSD9 

2DEC 

O7O2O  1 

OOOOl  0 

5M15S 

2DEC 

33 

,326A 

35‘'14 

0 

33 

,3265 

OOOOO 

1 

33 

,3269 

00302 

0 

33 

,3267 

22953 

21315 

1 

33 

,3270 

0 

33 

,3271 

OOOOO 

1 

33 

,3272 

O5O5O 

1 

33 

,3273 

OOOOO 

1 

33 

,327A 

OOOOO 

1 

33 

,3275 

OOOOO 

03941 

1 

33 

,3276 

1 

33 

,3277 

11217 

0 

33 

,3300 

,3301 

27O4O 

0 

33 

OOI44 

0 

33 

,3302 

00920 

0 

33 

,3303 

,3304 

00 '64 

1 

1 

33 

0 1 ' 50 

33 

,3305 

02114 

1 

33 

,3306 

03'20 

1 

33 

,3307 

05970 

0 

33 

,3310 

21‘'50 

0 

33 

,3311 

27340 

0 

DPA 

2DEC 

DPB 

2DEC 

DPC 

2DEC 

VTAILOFF 

2DEC 

DELTAT9 

2DEC 

2MUERTH9 

2DEC» 

ISEC9 

OEC 

4SECS9 

OEC 

5SECS9 

OEC 

10SECS9 

OEC 

11SECS9 

OEC 

20SECS9 

OEC 

305ECS9 

JcL 

90SECS9 

OEC 

120SEC59 

OEC 

R0361 


dec  13,  1966  (MAIN)  PAGE  692 


USER'S  OWN  page  NO.  9 


750 

IBNKCALL 

ULLAGE  ♦X  TRANSLATION-  ON 

TASKOVER  END  228LMP  TASK 


DPS1EQU2 

DPS1E0U3 

TDEC 

DPSIEQUI 

TDEC 

MP9TERM1 

TDEC 

RVUPDATE 

400 

3600 

31500 


,09449  B-17  SCALED  AT  2(*17)M/CS 

,0002874  B+11  SCALED  AT  2 (-1 1 ) M/CS ( *2 » 
2600,  B-28  SCALED  AT  2(+28)CS 

0 get  the  number 

200  Et4  B-38  2SEC/KPIP 

3.98603223  E,10  6-37" 

100 

400 

500 

1000 

1100 

2000 

3000 

9000 

12000 


E4 
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OEC  13.  1966  (MAIN)  PA(;E  693 


L MISSION  PHASE  U - DPS2/F I TH/ APSl 

0001  36»2000  sank  36 

0002  REF  82  LAST  692  EA  EBANKc  TDEC 

0003  REF  1 EAn662  EMPllJOB  EQUALS  MPRETRN 

ROOOA  mission  phase  11  does  PR0G32.3R£DF'S2,  PR0GA2-DPS2  BURN  BRAKING  GUIDANCE 
ROOOS  PR0GA3-APPR0ACH  GUIDANCE.  PR05A3-^AND0M  THROTTLE  PROGRAM  AND  PR0G7A-THE 
R0006  FIRE-IN-THE-HOLE  and  APSl  BURM, 

Ro007  He  approximate  starting  tHe  of  IHeSe  prog  is  shown  below 

R0008  T PR0&32 

R0009  T*187  DPS2  IGNITION  (TIGlD 

ROOlO  TIG426  PR0GA2 

ROOll  TIG+705  PROGAA 

R0012  TIG*757  PR0G7A 

R0013  TIGf792  MISSION  TERMINATED 


OOIA 

REF 

REF 

REF 

26 

83 

22 

LAST 

LAST 

LAST 

36.2000 

0 0006 
3 0025 
53*567 
0 Ai05 
00032 

3 2311 
0 OOOA 
0 5F01 

1 

02A01 
7A06A 
0 0003 

1 

MPllJOB 

EXTEND 

0015 

0016 
0017 

686 

693 

687 

36 .2001 

36.2002 

36.2003 

0 

0 

1 

OCA 

oxch 

TC 

OCT 

CAF 

TIME2 

TDEC 

NEWMODEX 

0018 

0019 

REF 

1 

36 .200A 

36.2005 

36.2006 
36.2O0T 

36.2010 

36.2011 

36.2012 

0 

0 

32 

ISECll 

0020 

0021 

0022 

0023 

C0023 

002A 

REF 

REF 

REF 

120 

8A 

1 

LAST 

LAST 

690 

693 

0 

1 

EA 

0 

0 

1 

INHINT 

TC 

ebank= 

2CADR 

RELINT 

WAITLIST 

TDEC 

MPllTASK 

0025 

REF 

1 

36.2013 

3 2336 

0 

CAF 

135SECS 

0026 

REF 

lAl 

LAST 

687 

36.201A 

5A  OOl 

1 

TS 

L 

0027 

REF 

222 

LAST 

687 

36.201P 

3 7(61 

0 

CAF 

ZERO 

0028 

REF 

85 

LAST 

693 

36.2016 

21*567 

0 

OAS 

TDEC 

0029 

36.2017 

0 0O06 

1 

extend 

0030 

REF 

1 

36.2020 

3 2361 

1 

OCA 

MDAVADR 

0031 

REF 

22 

LAST 

688 

36.2021 

52  006 

0 

OXCH 

Z 

0032 

36*2022 

0 0006 

1 

INTRTN 

EXTEND 

0033 

ref 

1 

36.2023 

3 2353 

0 

OCA 

DPS2AdR 

003A 

REF 

23 

LAST 

693 

36.202A 

52  006 

0 

OXCH 

z 

R0035  3RE-DPS2  RETURN  TO  RETPREB  WI  THi  ULLAGE-Om  TIME  AT  TULLG.  (TIG-7,5). 

R0036  The  DEsIRED  1/2  unit  ThRUsT  YECTOR  at  pointvsm. 

R0037  state  vector  in  sm  coordinates  stored  at  rn.  vn  with  corresponding 

R0038  TIME  AT  PIPTIME  WHERE  (TULLs  - P1PTIME)I5  BETWEEN 

R0039  3,8  AND  6 SECS. 


USER'S  OWN  page  no.  1 


SET  DISPLAY 

SETUP  MPll  TASK. REQUIRES  75  SECS  AND 
TERMINATES  ITSEI F 

SET  TDEC  =TIG-5n 

SET  return  from  MiDTOAvE  TO  InTrTn 
DO  MIDTOAVE  VIA  RVUPDATE 

integration  dONF-dO  PRE-DPS2 

STATE  AT  RIGNTInN-TiME  AT  TET  FoR  PREDPS 


'♦88954A  YJU  SYSTEM  FOR  AGCj  NEW  PRO^iRAM  SHePATIN  BY 


U MISSION  PHASE  11  - DPS2/F I TH/ APS  I 


OOAO 

00A2 

REF 

2 

LAST 

32 

00A3 

REF 

257 

LAST 

680 

OOAA 

REF 

1 

00A5 

REF 

1A2 

LAST 

693 

00A6 

REF 

223 

LAST 

693 

00A7 

REF 

258 

LAST 

69A 

00A8 

REF 

259 

LAST 

69A 

00A9 

0050 

REF 

27 

LAST 

693 

0051 

REF 

260 

LAST 

69A 

0052 

REF 

7 

LAST 

66A 

0053 

REF 

261 

LAST 

69A 

005A 

REF 

6 

LAST 

686 

0055 

REF 

86 

LAST 

693 

0056 

C0056 

REF 

1 

0057 

0058 

REF 

63 

LAST 

685 

0059 

0060 

REF 

5 

LAST 

657 

0061 

REF 

2 

LAST 

58 

0062 

REF 

9 

LAST 

691 

0063 

REF 

1 

006A 

REF 

1 

0065 

REF 

7 

LAST 

685 

0066 

REF 

1 

0067 

REF 

8 

LAST 

69A 

0068 

REF 

9 

LAST 

69A 

0069 

REF 

1 

0070 

REF 

1 

0071 

0072 

REF 

9 

LAST 

685 

0073 

007A 

36 

36 

36 

36 

36 

36 

36 

36 

36 

36 

36 

36 

36 

36 


2025 

2026 
2027 

2030 

2031 

2032 
2035 

203A 

2035 

2036 

2037 
20A0 
20Al 
20A2 


0 OOOA  0 
0 0006  1 
3 l‘»57  0 
52  IA5  0 
A 2537  0 
5A  OOl  1 
3 7^61  0 
5A  IA6  0 
20  iA5  0 
0 0006  1 
A 0025  1 
20  IA5  0 
0 7520  I 
52  U5  0 


20A5 

20AA 

20A5 

20A6 


0 5^57  1 
EA 

02102  0 
7A06A  0 
0 0003  1 


20A7 

2050 

2051 

2052 
2055 
205A 

2055 

2056 

2057 
2060 
2061 
2062 
2063 
206A 

2065 

2066 
2067 


0 6103  0 
77/75  I 
OlOll  0 
26115  0 
01017  0 
16123  0 
35‘*51  1 
1566A  1 
35076  0 
01666  0 
15670  1 
01521  0 
0226A  0 
A3131  0 
01053  0 
OOOOA  0 
01063  0 


0075 

0076  REF  10  LAST  686 

0077 

0078  REF  22  LAST  687 

0079  REF  20  LAST  686 

0080 

C0080  REF  3 LAST  686 

0081  REF  127  LAST  686 

0082  REF  A LAST  686 

0083  REF  5 LAST  686 

008A  rEF  91  last  690 


36,2070 

77/76 

1 

36*2071 

3 5226 

1 

36*2072 

0 OOOA 

0 

36*2075 

0 553A 

0 

E3 

36,207A 

02O01 

1 

36  *2075 

70063 

0 

36*2076 

0 522A 

0 

36*2077 

26/5A 

0 

36*2100 

0 A/32 

0 

36*2101 

0 5605 

1 

RETPREB 
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USER'S  OWN  PAGf  NO.  2 EA 


INHINT 

EXTEND 

DCA 

DXCH 

cs 

TS 

CAF 

TS 

DAS 

EXTEND 

DCS 

DAS 

TC 

DXCH 


TULLG  C(TULLG)=TIG-7.5 

MPAC 

22.5SECS 

L 

ZERO 
MPAC  +2 

MPAC  C(MPAC)=TIG-30 

TIME2  GET  CURRENT  TIME 

MPAC  C(MPAC)=DELTA(TlG-30) 

TPAGREE  make  SIGNS  AGREF 

MPAC 


TC  LONGCALL 
EBANK=  TDEC 
2CADR  TIGll-30 

RELINT 


TC  INTPRET 
YLOAD 

RN  state  stored  IN  RAVeGON  AND  VAVeGON  FOR 

STOVL  RAVEGON  AVERAGE  G INITIALIZATION  AT  PiPTiMt 

VN 

STODL  VAVEGON 

Dl/2  JAM  .5*0,0  IN  SrAXiS  FOR  KALCMAnU 

STODL  SCAXIS 
DZERO 

STORE  SCAXIS  *2 
STODL  SCAXIS  ♦A 

PIPTIME  THIS  time  CONSIsTANT  WITH  STATE-RAVEGON 

STORE  DTllTEMP  USED  AFTER  KALCmANU  TO  CALL  PREREAD 

SSP  SET 

RATEINDX  set  KALCMANU  FOP  ANGULAR  RATE  OF  5 DEG/S 

A 

33D 


EXIT 

CAF  PRI030  DO  ATTITUDE  MANEUVER  JOB 

INhINT 

TC  FINDVAC 

EBANK=  MIS 

2CADR  VECPOINT 

TC  BANKCALL 

CADR  ATTSTALL  PUT  MPll  TO  SLEfP  - KALCMANU  WIlL  WAKE 

TC  CURTAINS  KALCMANU  HAS  GImBALoC  PHOBLEMS-CURTA I NS 

TC  ENdOfJOB  wait  for  TIG-30 
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0085  REF  31  LAST  686 

0086  REF  12  LAST  686 

0087  REF  282  LAST  686 

0088  REF  1 

0089  REF  23  LAST  693 

0090 

0095 

0096  REF  28  LAST  69A 

0097  REF  2 LAST  69A 

0098  REF  3 LAST  695 

0099  REf  163  last  677 

0100 
0101 

0102  REF  A3  LAST  689 

0103  REF  121  LAST  693 

OlOA  REF  87  LAST  69A 

0105 

C0105  REF  1 

0106  REF  A LAST  687 

0107  REF  A3  LAST  689 

0108 
0109 


01091  REF  59  LAST  675 

01092  REF  122  LAST  695 

01093  REF  88  LAST  695 

0109A 

C0109A  REF  1 

0110  REF  AA  LAST  695 

0111 
0112 


0113  REF  2A  LAST  691 
OllA 

0115 

0116 


0117  REF  25  LAST  695 

0118 

0119 

0120 


0121  REF  A2  LAST  692 

0122  REF  8 LAST  692 

0123  REF  As  LAST  69° 

012A 


36,2102 

3 7fA3 

0 

36,2103 

7 0076 

1 

36,210A 

ID  OOO 

0 

36,2105 

0 2*^77 

1 

36,2106 

0 Al05 

1 

36,2107 

DOOA2 

1 

36,2110 

0 0006 

1 

36,2111 

A 0025 

1 

36,2112 

21*66A 

0 

36*2113 

11'66A 

0 

36,211A 

6 7^55 

1 

36,2115 

1 2120 

1 

36,211«> 

A OOOO 

0 

36,2 11 T 

6 7^35 

1 

36,2120 

0 5^01 

1 

EA 

36,212l 

D236A 

1 

36,2122 

7A06A 

0 

TIGll-30  CAF 
viASK 
CCS 
TC 
TC 
DCT 

extend 

DCS 

DAS 

CCS 

AD 

TCF 

COM 

AD 

TC 

EBANKs 

2CADR 


36 

,2123 

0 607A 

1 

36 

,212A 

0 511A 

0 

36 

,2125 

00226 

1 

36 

,2126 

01  ^50 

1 

36 

,2127 

3 7^55 

1 

36 

,2130 

0 5f01 

1 

EA 

36 

36 

,2131 

022A5 

0 

,2132 

7A06A 

0 

36 

,2133 

0 5llA 

0 

36 

,213A 

00126 

1 

36 

,2135 

00620 

0 

36 

,2136 

0 5106 

0 

36 

,2137 

003AA 

1 

36 

,21A0 

0030A 

0 

36 

,21Al 

OOlAA 

0 

36 

,21A2 

0 5106 

0 

36 

,21A3 

0036A 

0032a 

0 

36 

,21AA 

1 

36 

♦ 21A5 

01356 

0 

36 

,21A6 

0 5307 

0 

36 

,21A7 

3A02A 

0 

36 

,2150 

0 5a7 
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36 

,2151 

01356 

0 

DPSTART  TC 

TC 

DEC 

DEC 

CAF 

TC 

EBANK= 

2CADR 

TlGll-20  TC 
DEC 
DEC 

TIGll-16  TC 
DEC 
DEC 
DEC 

TIGll-15  TC 
DEC 
DEC 

DEC 

TIG-7.5  TC 

CADR 

TC 

DEC 
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USER'S  OWN  PaOf  NO*  3 EA 

BITII 

FLAGWRD2 

A 

SEE  IF  ATTITUDE  MANFUyER  DONE 

DOCURTN 

newmodex 

A2 

KALCMANU  NOT-DO  CURTJOB 

SET  MODE  TO  PR0GA2 

TIME2 

GET  PIPTIME-TIMF2 

DTllTEMP 
DTllTEMP  ♦! 
ONE 

♦ 3 

POSMAX 

WAITLIST 

TDEC 

PREAVEG 

make  Sure  of  positive  waitlist  call 

ENGINOFl 

1LMP*DT 

150 

1000 

Arm  descent  engine 

DELAY  10  SECONDS 

BITl 

WAITLIST 

TDEC 

ABMON 

START  UP  ABORT  STAGE  MONITOR 

ILMP.DT 

86 

AOO 

SET  MANUAL  THROTTLE  TO  10  96 
delay  a SECONDS 

2LMP.DT 

228 

196 

100 

ENABLE  DPS  POGS  ARM  1 

ENABLE  DPS  PQGS  ARM  2 
delay  1 SECOND 

2LMP+0T 

2AA 

212 

DPS  PQGS  =1  ON 

DPS  PQGS  s2  ON 

750 

delay  7.5  SECONDS 

IbNkcall 

ULLAGE 

CALL  FOR  A UET  ULLAGE 

fixdelay 

750 

delay  7.5  seconds*  UNTIL  ENGINEON 
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0125 

ref 

REF 

6 
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LAST 

688 

36.2152 

0 605A 

0 

TiGll 

TC 

0126 

0127 

A9 

695 

36.2153 

36.215A 

0 5^17 

00062 

0 

0 

TC 

DEC 

0128 

REF 

A3 
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695 

36.2155 

0 5307 

0 

TC 

0129 

REF 

8 

LAST 

689 

36.2155 

3AO30 

0 

CADR 

0130 

REF 

50 

LAST 

696 

36.2157 

0 5a7 

0 

TC 

0131 

36.2160 

0AI66 

1 

DEC 

0132 

REF 

AA 

LAST 

695 

36.2161 

3 7^35 

1 

TIG1U26 

CAF 

0133 

REF 

A 

LAST 

689 

36.2162 

55'335 

1 

TS 

013A 

36.2163 

0 0006 

1 

EXTE 

0135 

0136 

0137 

0138 

0139 

OlAO 

OUl 

0U2 


REF  1 

REF  2A  LAST  693 


REF 

REF 

REF 

REF 


1 

11  LAST  690 
98  LAST  692 

1 


216^ 

2165 

2165 

2167 

2170 


3 2^55  0 
52  006  0 

0 0006  1 
3 2^51  1 

531073  0 


217I  0 5TA5  1 


2172 

2173 


0 OOO6  1 
3 2363  0 


DCA 

OXCH 

EXTEND 

OCA 

OXCH 

TC 

RETbURN  extend 
DCA 


01A3 

REF 

12 

LAST 

696 

36»217A 

53*073 

0 

OlAA 

REF 

60 

LAST 

695 

36.2175 

3 7^55 

1 

01A5 

36.2175 

0 OOOA 

0 

01A6 

REF 

123 

LAST 

695 

36.2177 

0 5 fOl 

1 

01A7 

REF 

89 

LAST 

695 

EA 

01A8 

36.2200 

02203 

1 

C01A8 

REF 

1 

36.2201 

7A06A 

0 

01A9 

REF 

92 

LAST 

69A 

36.2202 

0 5505 

1 

DXCH 

CAF 

INHINT 

TC 

ebank= 

2CADR 

TC 


EnGInEOn 

FIXDELAY 

50 

IBNKCALL 

NOULLAGE 

FIXDELAY 

2550 

POSMAX 

PCNTF 


PCNTFAD 

Z 


BuRNAdR 

avgexit 

TASKOVER 


adrofser 

AVGEXIT 

BiTl 

WAITLIST 

TDEC 

PR0G4A 

ENDOFJOB 
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DELAY  half  A SErOND 


WAIT  25.5  SECONDS 

HAVE  BEEN  AT  105f,  THROTTLE  FOR  26  SECONDS 

NOW  call  For  maximum  thrust  (92.5%) 


STARTING  DPS2  GuIdANCES  TIG  *26  SECONDS 


RETURN  FROM  bURN  GUIDANCE 

set  servicer  exit  to  kill  burn  guid 

SET  TASK  FOR  RANDOM  THROTTLE 
PROGRAM  PAA 


READACCS  STILL  ACTIVE 
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L MISSION  PHASE  II  - DPS2/F I T^/ APSl  USER'S  OWN  PaGf  NO.  S EA 

ROISO  THE  DPS2  RANDOM  THROTTLE  PROGaA  SIARTS  APPROXIMATELY  AT  TlG*705.  THE 
R0151  exact  time  and  THRUST  LeVeL  SeTTII^G  AT  THe  START  OF  PROGaa  ARe  COMPUTED 
R0152  by  burn  guidance  PROGAS.  THe  SJBPeOUeNT  thrust  commands  are  listed, 

R0153  T 10  percent  THRUST 

R015A  T*10  50  PERCENT 

R0155  Tt30  30  PERCENT 

R0156  T»AO  ZO  PERCENT 


R0157  T*50  92.5  PERCENT  FOR  2 SeCS  THEN  FIRE-IN-THE-HOLE 


0158  REF  2A  LAST  695 

0159 


0160  REF  1 


0161 

REF 

12A 

LAST 

696 

0162 

REF 

90 

LAST 

696 

0163 

C0163 

REF 

1 

016A 

REF 

23 

LAST 
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0165 

REF 

2 

LAST 

693 

36.2203 

36.220A 

0 Al05 
OOOAA 

1 

1 

PROGAA 

36.2205 

3 23A1 

0 

36.2206 

0 5701 

1 

36.2207 

D2‘*22 

1 

36.2210 

7A06A 

0 

36.2211 

3 7753 

1 

INDPCT 

36.2212 

55*662 

0 

TC  NEWMODEX 

OCT  AA  SET  MODE  TO  RANDOM  THROTTLE 

CAF  22SECS11  DO  ASCENT  COOLANT  VALVE  TASK  IN  22  SECS 

TC  WAITLIST 

ebank®  tdec 

2CADR  ASWTVLON  COOLANT  VALVE  CALL 

CAF  FOUR 

TS  MPRETRN  INDEX 


0166 

0167 

0168 

0169 

0170 

0171 


REF 

REf 

REF 

283 

1 

5 

LAST 

LAST 

695 

696 

36*2213 

36.221A 

36.2215 

REF 

2 

LAST 

696 

36.2216 

36.2217 

REF 

25 

LAST 

696 

36.2220 

0172  REF  51  LAST  696  36*2221 

0173  36.2222 


017A  REF  3 LAST  697  36.2223 

0175  REF  1 36*222A 


0176 

REF 

1 

0177 

REF 

6 

LAST 

0178 

0179 

REF 

3 

LAST 

0180 

REF 

26 

LAST 

697 

697 
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2225 

2226 
2227 

2230 

2231 


50  OOO 
3 23A2 
55*335 

1 

0 

1 

INDEX 

CAF 

TS 

A 

20PcThR 

PCNTF 

OFFSET  POINTER 

Amount  of  ThRottle 

0 0006 

1 

EXTEND 

3 2355 

0 

OCA 

PCNTFAD 

GO  TO  thrusting  ROUTINE 

52  006 

0 

OXCH 

2 

0 5 7 17 

0 

TC 

FIXDELAY 

01 750 

1 lOSEcSll  OEc 

1000 

delay  10  SECS 

11*662 

0 

CCS 

MPRETRN 

decrement  index 

0 2212 

1 

TC 

INDPCT  *1 

NO 

3 7 735 

1 

CAF 

925PCTHR 

TURN  ON  92.5  THRUST 

55*335 

1 

TS 

PCNTF 

0 0006 

1 

EXTEND 

3 2355 

0 

OCA 

PCNTFAD 

GO  FOR  thrusting 

52  006 

0 

OXCH 

Z 

0181  REF  2 LAST  693  36*2232 

0182  REf  125  last  697  36.2233 

0183  REF  91  LAST  697 

0l8A  36.223A 

C018A  REF  1 36.2235 

0185  REF  99  LAST  696  36.2236 


3 2311 

0 

CAF 

ISECll 

0 5701 

1 

TC 

waitlist 

E4 

ebank® 

TDEC 

02237 

7 / Li  ^ / 

0 

2CA0R 

FITHCMD 

0 

0 5(^5 

1 

TC 

TASKOVER 

THRUST  at  max  FnR  2 SEC*  1 SEC  HERE  AND 
1 MORE  IN  FITHckD 


R0186  FITH/APSl  BURN  PROGRAM  7A 
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R0187  with  Detection  of  the  abort  stase  discrete  by  the  abort  stage  monitor 

R0188  the  following  EVENTS  OCCUR  By  P^O*JRAM  OR  ARE  PROCESSED  AUTOMATICALLY 
R0189  BY  THE  LEM  SEQUENCER# 

R0190  T-l#0  ABORT  STAGE  ARM  (PROGRAMMEU) 

R0191  T ABORT  STAGE  cOMMANq  «PR03R''MMEd) 

R0192  ATTITUDE  HOLD  (PROGRAMMED) 

R0193  T*,OA  ASCENT  PRESSURIZED 

R019A  T*,15  descent  ENGINE-OFF 

R0195  T*.A2  ASCENT  ENGINE  ARM 

R0196  ASCENT/DeSCeNT  STAGING  INI  HATED 

R0197  STAGE  VERIFIED 

R0198  T+.A6  interstage  BOLTS  FIRED 

R0199  ascent  stage  UMBILICAL  ELECTRICAL  DEADFACE 

R0200  T^.SO  descent  STAGE  UMBIlICa'J  ELEC,  DEADFACE 
R0201  T^.55  ASCENT/DESCENT  STAGE  UMBILICAL  CUT 

R0202  T».78  ASCENT  ENGINE  REACHES  90  PC  THRUST 

R0203  T*l.O  CHANGE  LEM  MASS  (PROGRAMMED) 

R020A  DESCENT  ENGINE  ARM-OFF  (PROGRAMMED) 

R0205  T*5,0  ascent  ENGINE-OFF  (PROGRAMMED) 

0206  REF  AS  LAST  695  36*223^  0 51lA  o FITHCMD  TC  ILMP^DT 

0207  36t22A0  0OO26  0 DEC  22 

0208  36#22Al  OOiAA  0 DEC  100 


0209  REF  10  LAST  690  36»22A2  0 5^73  0 TC  ILMP 

0210  36#22A3  OOOA6  0 DEC  38 


0211  REF  100  LAST  697 


36»22AA  0 5)A5  1 


TC  TASKOVER 


0212 

0213 

021A 

REF 

39 

LAST 

652 

0216 

REF 

1 

0217 

REF 

52 

LAST 

697 

0218 

0219 

REF 

2 

LAST 

695 

0220 

REF 

AA 

LAST 

696 

0221 

REF 

7 

LAST 

690 

0222 

REF 

25 

last 

697 

022A 

REF 

5 

LAST 

663 

0225 

REF 

5 

LAST 

673 

0226 

REF 

A6 

LAST 

673 

0227 

36,22A5 

3 7)52 

0 

36»22A6 

0 OUO6 

1 

36»22A7 

02  030 

0 

36  #2250 

0 OOO6 

1 

36,225l 

1 2^55 

0 

36  * 225K 

0 5 ' 17 

0 

36*2253 

00062 

0 

36*225^ 

1 2ZA5 

1 

36*2255 

0 5507 

0 

36*2256 

3A057 

1 

36*2257 

0 Ai05 

1 

36*2260 

00O7A 

1 

E5 

36*2261 

3 5677 

1 

36*226Z 

5A  003 

0 

36*2263 

0 OOO6 

1 

ABMON  CAF  BITA 
EXTEND 
RAND  30 

EXTEND 

3ZF  FITHGCMD 

TC  FIXDELAY 

DEC  SO 

TCF  ABMON 

FITHGCMD  TC  IBNKCALL 

CADR  STOPRATE 

TC  NeWMODEX 

DCT  7A 

EBANK=  MASSES 

CAF  EBANK5 

TS  EBANK 

EXTEND 


Dec  13#  1966  (MAIN)  PAGe  698 
USERJS  OWN  page  no,  6 EA 


THRUST  at  max  FoR  1 MORE  SEC  AND  ABORT 
Abort  stage  arm 
delay  i#o  sec. 

INITIATE  ABORT  aTAGE  COMMAND 

LET  abort  monitor  TAKE  IT  FROM  HERE 

ABORT  STAGE  MONITOR  SAMPLES  CHANNEL 
30  FOR  ABORT  STAGE  DISCRETE  EVERY  #5  SEC 

ABORT  DISCRETE  pRESENT-KILL  MONITOR 
NO  ABORT  DISCRETE-CONTINUE  TO  MONITOR 
DELAY  #5  SECS 

SET  ATTITUDE  HOLD 

SET  MODE  TO  F I Re-IN.THE-HOLE 
PR0G7A 

EBANK  5 

UAM  05  IN  EBANK 
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36i226t> 
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0231 
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A7 
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0232 

REF 

92 
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697 
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023A 
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53 
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36»227D 
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0236 

0237 

REF 

A6 

LAST 

698 

36t2272 

36.2273 

36.227^ 

0238 

REF 

6 

last 

690 

36.2275 

0239 

REF 
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698 
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3 15A3 

1 

OCA 
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53*333 

1 

OXCH 
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3 7(A3 
54  D03 

0 
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BITll 
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E4 
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TDEC 
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U 

TC 

F I XDELAY 

ooUa 

0 

OEC 

100 

0 5U4 

0 

TC 

ILMP+DT 

00227 

0 

OEC 
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00620 

0 

OEC 

400 

0 6071 

1 

TC 

enginoff 

0 5(45 

1 

TC 

TASKOVER 

02391 

ref 

128 

last 

694 

36.2277 

02392 

REF 

1 

36.2300 

0240 

REF 

3 
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697 

36.2301 

0241 

36.2302 

0242 

REF 

126 

LAST 

697 

36.2303 

0243 

REF 

93 

LAST 
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0244 

36.2304 

C0244 

REF 

1 

36.2305 

0245 

REF 

93 

LAST 

696 

36.2306 

0246 

REF 

47 

LAST 

699 

36.2307 

0247 

36.2310 

0248 

36.2311 

0249 

REF 

48 

LAST 

699 

36.2312 

0250 

36.2313 

0251 

36.2314 

0252 

REF 

26 

LAST 

695 

36.2315 

0253 

36.2316 

0254 

36.2317 

0255 

'V  36.2320 

0256 

REF 

27 

LAST 

699 

36.2321 

0257 

36.2322 

0258 

36.2323 

0259 

36.2324 

0260 

REF 

12 

LAST 

691 

36  .,2325 

0261 

36.2326 

0 5224 

0 

DOCURTn 

TC 

bankcall 

57267 

0 

CADR 

CURTJOB 

3 2311 

0 

MPIITERM 

CAF 

ISECll 

0 0004 

0 

inhint 

0 5(01 

1 

TC 

WAITLIST 

E4 

ebank= 

TDEC 

02307 

1 

2CADR 

MPllOUT 

74064 

0 

0 5605 

1 

TC 

ENDOFJOB 

0 5U4 

0 

MPllOUT 

TC 

1LMP*DT 

00047 

1 

OEc 

39 

00144 

0 

ISECll 

OEC 

100 

0 5U4 

0 

TC 

ILMP+DT 

00267 

1 

OEC 

183 

014A0 

0 

OEC 

800 

0 5TO6 

0 

TC 

2LMP*DT 

00365 

1 

DEC 

245 

00325 

0 

OEC 

213 

00144 

0: 

OEC 

100 

0 5i06 

Ot 

TC 

2LMP*DT 

003A5 

0 

OEC 

229 

. 00305 

1 

OEC 

197 

03554 

0 

OEC 

I9OO 

0 6036 

1 

TC 

FLAGIDWN 

000b  1 

0 

OCT 

1 

uSERts  Own  page  no,  7 es 

CHANGE  LEM  MASS  AT  DPS/APS  SEPARATION 
RETURN  EBANK  TO  OA 

DElAy  1 SEC  TO  nPS  arm  OpF 

ENGINE  select  -DESC  ARM  OFF- 
APS  BURN  FOR  5 SECS 

delay  a.o  seconds 
Go  FOR  engine  SwUtDoWN 

GO  SET  UP  curtain  JOB 

SET  TO  DO  MPii  terminal  TASKS  IN  1 SEC 

terminate  job  Set  by  dvmon 

INITIATE  abort  «;TAGE  COMMAND  RESET 
DELAY  1 SEC 

LANDING  RADAR  PnWER  OFF 
DELAY  8 SECS 

DPS  PUGS  U AND  7 OFF 
delay  1 SEC 

- ...S'' 

DP'S  PQGS  ARM  l-  aND  2 DISABLE  '. 
delay  19  SECS  To  KILL  AVEG 
fKI.LL.  AVERAGE  G ■ ■ .-I"  ; 'A  - 
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PHASE 
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0262 

REF  A5 

LAST 

698 

36*2327  0 5307  0 

TC 

0263 

REF  9 

LAST 

690 

36*2330  3A012  0 

CAOR 

0264 

REF 

5 

LAST 

691 

36 

0265 

0266 

0267 

0268 

REF 

REF 

1 

102 

LAST 

699 

36 

36 

36 

36 

*2331  0 5lAl  0 TC 

*2332  30002  0 dEC 

*2333  00015  0 DEC 

*233'»  0H53  1 ACRES 

*2333  0 5^A5  1 TC 
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ibNkcall 

SETMAXDB 

MPENTRY 

2 

13 

MP11T013 

TASKOVER 


USER'S  OWN  PAGf  NO.  8 


SETUP  MISSION  Phase  scheduling 
timer  -2- 

MISSION  PHASE  -13- 


EA 


MISSION  PHASE  ll  COMPLETE 
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L MISSION  PHASE  11  - DPSZ/F I T^/ APSl 

P0269  ?????777?????????????7??77?7?7?? 

R0270  NJMERICaL  AND  ADDRESS  CONSTANTS 
R0271  77777777777777777777777777777777 


USER'S  OWN  PAGf  NO.  9 EA 


A0272 

time  constants  ** 

0273 

36*2336 

32<:7A 

1 

135SECS  OEC 

13500 

027A 

36.2337 

36.23A0 

0A^12 

0AT66 

0 

22.5SECS  OEC 
25.5SECS  OEC 

2250 

2550 

0275 

1 

0276 

36.23A1 

DAC30 

1 

22SECS11  OEC 

2200 

A0277 

0278 

36.23A2 

0279 

36.23A3 

0280 

36  *23AA 

0281 

36*23A5 

0282 

0283 

REF  A5  LAST  696 

36.23A6 

"A  thrust  level 

CONSTANTS  ** 

06^15  0 

2nPCTHR  OEC 

.2 

1A932  0 

OEC 

.A 

11^63  0 

OEC 

.3 

20U00  0 

OEC 

.5 

031A6  1 

OEC 

.1 

7735 

925PCTHR  s 

POSMAX 

FOR  MAXIMUM  PERMITTED  THRUST  (92.596) 


A028A 


"A  address  constants  ** 


0285  REF  A LAST  675 

0286  REF  9A  LAST  699 

0287 

C0287  REF  1 

0288  REF  95  LAST  701 

0289 

C0289  REF  1 

0290  REF  10  LAST  66A 

0291 

C0291  REF  3 LAST  66A 

0292  REF  96  LAST  701 

0293 

C0293  REF  1 

029A  REF  97  LAST  701 

0295 

C0295  REF  2 LAST  692 

0296  REF  5 LAST  58 

0297 

C0297  REF  5 LAST  675 


36.23A7 

02233  1 
EA 

AVEGllAD 

36.2350 

36.2351 

02OA1  0 
AAOOA  0 

EA 

BJRNADR 

36.2352 

36.2353 

02000  0 
AAOOA  0 
E5 

DPS2ADR 

36.235A 

36.2355 

03367  0 
60065  1 
EA 

PCNTFAD 

36.2355 

36.2357 

02301  1 
7A06A  0 
EA 

MPllTMAD 

36.2360 

36.2361 

02301  1 
1600A  1 
E5 

MDAVADR 

36.2362 

36.2363 

02312  0 
60065  1 

ADROFSER 

3ENADR  AVERAGEG 
EBANK=  TDEC 
2CADR  BURN 


EBANK=  TDEC 
2CADR  PREBURN 

EBANKs  ETHROT  EBANK  5 

2CADR  PCNTFMAX 

EBANKs  TDEC 
2CADR  MPllTERM 

EBANKs  TDEC 
2CADR  RVUPDATE 

EBANK=  DVCNTR 
2CADR  SERVEXIT 
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L 

P0298 

R0299 

R0300 


0301 

0302 

0303 
030A 

C030A 

0305 

0306 

0307 

0308 

0309 

0310 

0311 

0312 

0313 


03U 

0315 

0316 

0317 

0318 

0319 

0320 

0321 

0322 

0323 

0324 

0325 

0326 

0327 

0328 

0329 

0330 


MISSION  phase  11  - DPS2/F1TH/APS1 

???????????????????????????????? 
TASKS  CALLED  ELSEWHERE  IN  MPll 
???????????????????????????? 7 77 7 


REF  61  LAST  696  36t2364 

REF  127  last  699  36*236& 

REF  5 LAST  688 

36.2366 

REF  5 LAST  688  36.2367 

REF  1 36.2370 

REF  8 LAST  688  36.2371 

36.2372 

REF  2 LAST  696  36.2373 

REF  13  LAST  696  36.2374 

36.237P 

ref  1 36.2376 

REF  5 LAST  688  36.2377 

REF  103  LAST  700  36.2400 


3 7^55  1 PREAvEg  CAF  BITI 

0 si’Ol  1 TC  WAITLIST 

E5  EBANK=  DVTOTAL 

D2O00  0 2CADR  PREREAD 

60^65  1 

3 2347  0 CAF  AVEGllAD 

55*322  1 TS  DVSELECT 

0 0006  1 extend 

3 2363  0 OCA  ADROFSER 

53*073  0 OXCH  AVGEXIT 

0 0006  1 EXTEND 

3 2357  1 OCA  MPUTMAd 

53*075  0 OXCH  DVMNEXIT 

0 5.^45  1 TC  TASKOVER 


REF  49  LAST  699 


36.2401  0 5U4  0 MPllTASK  TC 

36.2402  00354  0 DEC 

36.2403  02260  1 OEC 


ILMP+DT 

236 

1200 


REF  28  LAST  699  36.2404 

36.2405 

36 .2406 

36.2407 


0 5IO6 

0 

TC 

2LMP.DT 

00355 

1 

DEC 

237 

00306 

1 

DEC 

198 

00310 

0 25ECS11 

DEC 

200 

REF  50  LAST  702 

REF  29  LAST  702 

REF  11  LAST  698 


36.2410  0 5U4  0 

36.2411  00307  0 

36.2412  00144  0 

36.2413  0 5106  0 

36.2414  00266  0 

36.2415  00032  0 

36.2416  13560  0 

36.2417  0 5073  0 

36.2420  00033  1 


TC  ILMP+DT 

DEC  199 

DEC  100 

TC  2LMP+DT 

DEC  182 

DEC  26 

DEC  6000 

TC  ILMP 

DEC  27 


REF  104  LAST  702  36.2421  0 5^45  1 TC  TASKOVER 


DEC  13.  1966  (MAIN)  PAGE  702 


USER*S  OWN  page  NO.  10 


SET  UP  PREREAD  FOR  RIGHT  NOW 


GENADR  OF  AVERAGE  G 


SET  servicer  exit 


SET  MP  return  for  ENGINE  SHUT  DOWN 


DFI  T/M  CALIBRATION  -ON 
DELAY  12  SECS 


DFI  T/M  calibrate  -OFF 
C*W  ALARM  RESET  -COMMAND 
delay  2 SECS 


C.W  ALARM  RESET.COMmAND  RESET 
DELAY  1 SEC 


LR  POWER  -ON 
RADAR  SELFTEST  -ON 
DELAY  60  SECS. 


E4 


RADAR  SELFTEST-nFF 
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L MISSION  phase  U - DPS2/FIt'^/APSI 

0331  REF  51  LAST  702  36.2A22  0 5UA  0 ASWTVLON  TC 


0332 

0333 

0334 

0335 

REF 

12 

LAST 

702 

0336 

REF 

105 

LAST 

702 

36*2a23  00336  1 OEC 

36*2A2A  00310  0 OEC 

36*2425  0 5^73  0 TC 

36*2426  00337  0 OEC 

36*2427  0 5^A5  1 TC 


DEC  l3*  1966  (MAIN)  PAGE  703 


1LMP*0T 

222 

200 

ILMP 

223 


USER'S  OWN  page  NO.  11 

ASCENT  WATER  COOLANT  VALVE  - OPEN 
delay  2.0  SEC. 

ASCENT  WATER  COOLANT  VALVE  - OPEN 


E4 


RESET 


TA5K0VER 
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DEC  13»  1966  (MAIN)  PA^E  70A 


L * MISSION  PHASE  13  - APS2 

ROOOl  MISSION  PHASE  13  EXERCISES  THE  ASCeNT  GUIDANCE  EQUATIONS  OF  PROG  A6 

R0003  THE  PREREAD  TASK  IS  SET  TO  OCCUR^  IN  iaO  SeCS  AT  TIG-30  AND  AVETOMID  DONE 

ROOOA  the  PRE-APS2  PROG  3A  IS  EXECJTEO  AnD  KALCMANU  JOB  IS  STARTED 

Roods  the  engineon  task  is  started  at  tig-3o  and  ign  is  at  ito  secs  after 

R0006  START  OF  MP13 

Rood?  the  ascent  guidance  equations  start  between  tig»i  and  *z  secs 
Roooe  the  ASC  feed  test  starts  at  TI5*9  and  terminates  365  SECS  later 

0009  27*3071  3ANK  27 

0010  ref  129  LAST  66H  EA  EBANK=  AMEMORY 


0011 

0012 

0013 

OOIA 

0015 

REf 

REF 

REF 

29 

98 

26 

LAST 

LAST 

LAST 

695 

701 

698 

27.3071 

27.3072 

27.3073 
27.307A 
27.3075 

0016 

27.3076 

0018 

REF 

1 

27.3077 

0019 

REF 

1A3 

LAST 

69A 

27.3100 

0020 

REF 

99 

LAST 

7OA 

27.3101 

0 OUO6 

1 MP13J0B 

EXTEND 

3 0U25 

0 

OCA 

TIME2 

53  * 567 

0 

DXCH 

TDEC 

0 Al05 

1 

TC 

NEWMODEX 

OOU3A 

0 

QCT 

3A 

22  007 

0 

ZL 

3 3253 

0 

CAF 

lAOSECS 

56  OOl 

0 

XCH 

L 

21*567 

0 

DAS 

TDEC 

0021  rEF  2 last  70A  27*3102 

0022  27.3103 

0023  REF  128  LAST  702  27.310A 

00231  REF  100  LAST  70A 

002A  27.3105 

C002A  REf  1 27.3106 

0025  27.3107 


3 3<:53  0 CAF  lAOsECS 

0 OOOA  0 INHINT 

0 5701  1 TC  WAITLIST 

EA  EBANKs  TDEC 

03U2  0 2CADR  TIG13"30 

56U0A  0 

0 0003  1 RELINT 


0026 

0027  REF  1 

0028  REF  27  LAST  697 

0029 

0030  REF  1 

0031  REF  28  LAST  7OA 


27.3110 

27.3111 

27.3112 

0 0006 
3 2A5A 
52  006 

1 

0 

0 

EXTEND 

DCA 

OXCH 

MIDAVEAD 

2 

27.3113 

0 0006 

1 

extend 

27.311A 

27.3115 

3 3260 
52  006 

0 

DCA 

PREAP2AD 

0 

OXCH 

Z 

0032 

REF 

6A 

LAST 

69A 

00321 

00322 

00323 
0032A 
00325 

REF 

10 

LAST 

69A 

3116 

3117 

3120 

3121 

3122 

3123 


0 6103  0 
A3131  0 
01653  0 
OOOOA  0 
01063  0 
77776  1 


TC 

SSp 


EXIT 


INTPRET 

SET 

RATEINDX 

A 

33D 


00326  REF  11  LAST  69A 

0033 

003A  REF  23  LAST  69A 

003A1  REF  21  LAST  69A 

0035 

C0035  REF  A LAST  69A 


27*312A 

27.3125 

27.3126 


27.3127 

27.3130 


3 5^26  1 CAF  PRIO3O 

0 OOOA  0 INhINT 

0 553A  0 TC  FINDVAC 

E3  EBANK=  mis 

02O01  1 2CADR  VECPOINT 

70063  0 


USER'S  OWN  PaGf  NO.  1 

PICK  UP  current  time 

SET  MODE 

SET  TDEC  TO  TIMf  AT  TIG-30 
TIME  TO  TIGN-30 

TDEC  ■;TIGN-30  FnR  MiDTOAVE 

SET  TASK  FOR  TIGN-30 

DO  MIDTOAVE  COMPUTATION 

DO  PRE-APS2  TO  f,ET  [)ESIRED  ATTITUDE 
STORES  VECTORS  POINTVSM  AND  SCAxiS 

SET  KALCMANU  FOR  ANGULAR  RATE  OF  SDEG/S 

SET  ATTITUDE  MANEUVER  JOB 
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0040 

RcF 

62 

LAST 

(M 

0 

0041 

0042 

REF 

129 

LAST 

704 

00421 

REF 

101 

LAST 

704 

0043 

C0043 

REF 

1 

00431 

REF 

129 

LAST 

699 

00432 

REF 

5 

LAST 

694 

00433 

REF 

6 

LAST 

694 

0045 

REF 

94 

LAST 

699 

0046 

REF 

63 

LAST 

705 

0047 

REF 

130 

LAST 

705 

0048 

REF 

6 

last 

702 

0049 

C0049 

REF 

6 

LAST 

702 

0050 

REF 

33 

LAST 

699 

0051 

REF 

13 

LAST 

695 

00511 

REF 

284 

LAST 

697 

0052 

REF 

2 

LAST 

699 

00521 

REF 

27 

LAST 

704 

00522 

REF 

0053 

1 

0054 

REF 

9 

LAST 

702 

0063 

0064 

REF 

1 

0065 

REF 

14 

LAST 

702 

0066 

0067 

REF 

1 

702 

0068 

REF 

6 

LAST 

0069 

REF 

5 

LAST 

695 

00691 

REF 

52 

LAST 

703 

00692 

00693 

00694 

REF 

46 

LAST 

700 

00695 

■i.REF 

■>  9 

LAST 

695 

i.  0072 

N REF 

5’'54. 

iljAST 

699 

V 

.» u w (cl 

f . 

0073 

“^REF 

I'Ast 

6''96 

V 

■ 

• ‘ ( 

f 

27 

27 

27 

27 

27 

27 

27 

27 

27 

27 

27 

27 

27 

27 

27 

27 

27 

27 

27 

27 

27 

27 

27 

27 

27 

27 

27 

27 

27 

27 

27 

.,,v27 

>27 

27 

27 

27 


3131 

3132 

3133 

313^* 

3135 

3136 

3137 
31A0 

31Al 

3U2 

31A3 

31A^ 

31A5 

31A6 

31A7 

3150 

3151 

3152 

3153 

315^ 

3155 

3156 
315^ 

3160 

3161 

3162 

3163 

316^ 

3165 

3166 

3167 

3170 

3171 

3172 
S>173 

317^ 

•■S'  » 

1 


3 7^55  1 
0 OOOA  0 
0 5^01  1 
EA 

03^7A  0 
56004  0 
0 5224  0 
26^54  0 
0 402  0 

0 5605  1 

3 705  1 TIg13- 

0 501  1 

E5 

02O00  0 
60O65  1 
3 703  0 
7 0076  1 
10  OOO  0 

1 3267  0 

0 405  1 
00046  0 

3 3256  0 
55*322  1 

0 0006  1 
3 3266  0 
53*073  0 

0 0006  1 
3 3262  1 

53*075  0 
0 6O74  1 


CAF 

BiTl 

inhint 

TC 

WAITLIST 

ebank= 

tdec 

2CADR 

DFICAL 

TC 

BANKCALL 

CADR 

attstall 

TC 

CURTAINS 

TC  ENDOFJOB 


CAF 

TC 

ebank= 

2CADR 

BlTl 

WAITLIST 

DVTOTAL 

PREREAD 

CAF 

BITll 

MASK 

FLAGWRD2 

CCS 

A 

TCF 

CURTJOB 

TC 

NEWMODEX 

OCT 

46 

CAF 

AVEGI3AD 

TS 

DVSELECT 

Extend 

XA 

SvExl3AD 

DXCH 

avgexit 

extend 

OCA 

MP13TMAD 

OXCH 

DVMNEXIT 

TC 

ENGINOFl 

0 5U4  0 TC  ILMP  + DT 

00206  0 5EC  134 

03326  0 OEC  1750 

-ti. 

0 5307  0,,  I TC  IBNKCALL.H' 

-JA02A  o>-  CAO.R  ULtAGE 

0 5 07  0 TC  FIXOELAY 

02342  0 * aEc  'i  1250 

K '*  ;* 

0 0 'jlC  ''  ET^GINp^N 


Dec  U,  1966  (MAIN)  PAGE  705 


USeR*S  own  PaGf  no.  2 E4 

SET  UP  DFI  T/M  fALiRRATt  TASK 

DFICAL  requires  14  SECS  AND  ENDS  ITSELF 

PUT  MP13  TO  SLEfP-KALCMANU  WILL  WAKE 

BAD  END  RETURN  FROM  KALCMANU 

WAIT  FOR  tig-30  TASk  TO  INTERUPr 

SET  PREREAD  FOR  NOw 


SEE  IF  attitude  MANEUVER  DONE 
no-SET  up  curtains  job 

SET  MOdE  to  pR0f,46 

genadr  of  AVEG  tN  dvsellct 

2CADR  SERvExiT  tN  AvEGExIT 


SET  MP  RETURN  FnR  ENGINE  SHUT  DOWN 
JUST  TO  ENSURE  fNGINE  OFF 

ENGINE  SELECT-ApS  ARM 
delay  17,5  SECS 


COMMAND  4 ,JET  Ul  LAGE-ON 
delAy  1^.5  secSaTo  ignition 


; 


'i 


% 

I '•» 

■ J-  UV 


1/: 
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007A 

REF 

55 

LAST 

705 

27 

0075 

27 

0076 

REF 

97 

LAST 

705 

27 

0077 

REF 

9 

LAST 

696 

27 

0078 

REF 

56 

LAST 

706 

27 

0079 

27 

0080 

27 

0081 

REF 

1 

27 

0082 

REF 

15 

LAST 

705 

27 

0083 

ref 

57 

LAST 

706 

27 

008A 

27 

0085 

REF 

1 

27 

317S>  0 sa?  0 TC 

3176  00062  0 OEC 

3177  0 5^07  0 TC 

3200  3A030  0 CADR 

3201  0 5a7  0 TC 

3202  00062  0 oEc 

3203  0 0006  1 EXTEND 

320^  3 326A  1 OCA 

3205  53*073  0 OXCH 

3206  0 5a7  0 TC 

320T  Ol'^AO  0 OEC 

3210  0 3306  1 TC 


0086 

0087 

REF 

1 

0088 

REF 

7 

LAST 

699 

00881 

REF 

102 

LAST 

705 

0089 

C0089 

REF 

1 

0090 

REF 

106 

LAST 

703 

27f32U  0 0006  1.  EXTEND 

27.3212  3 3255  0 OCA 

27.3213  0 5T57  1 TC 

EA  EBANKs 

27.321^  03217  0 2CADR 

27.3215  56O0A  0 

27.3216  0 5TA5  1 TC 


0091  REF  1 

0092  REF  107  LAST  706 


27.3217  0 33A3  0 MP13+5AA  TC 
27.3220  0 5TA5  1 TC 


0093 

REF 

69 

LAST 

705 

27.3221 

0099 

27.3222 

0095 

REF 

131 

LAST 

705 

27.3223 

00951 

REF 

103 

LAST 

706 

00952 

27.322A 

C00952 

REF 

1 

27.3225 

00953 

REF 

95 

LAST 

705 

27.3226 

3 7^55  1 

MPI3TERM  CAF 

0 0^09  0 

INHINT 

0 5^01  1 

TC 

E9 

ebank= 

03227  0 

2CADR 

56U09  0 

0 5605  1 

TC 

0096 

0097 

0098 


REF 

REF 


2 last  6A2 

16  LAST  706 


3227 

3230 

3231 


0 0006  1 MP130UT  EXTEND 
3 2‘*56  1 OCA 

53*073  0 OXCH 


0100  REF  A8 
01001  REF  10 


LAST  706  27 

LAST  700  27 


3232  0 5307  0 

3233  3A012  0 


TC 

CAdR 


01002  REF 

01003  REF 


A9  LAST  706  27.323A  0 5307  0 

8 LAST  698  27.3235  3A057  1 


TC 

CADR 


0101  REF  2 LAST 


706 


27 


3236 


0 33A3  0 


TC 


0102  REF  58  LAST  706 

0103 


27.3237  0 5 a7  0 TC 

27.32A0  OOlAA  0 DEC 


FIXDELAY 

50 

IBNKCALL 

NOULLAGE 

FIXDELAY 

50 

ATMAGAD 

AVGEXIT 

FIXDELAY 

800 

FEEDTEST 


3A2SECS 

LONGCALL 

TDEC 

MP13+5AA 

TASKOVER 

FEEDREST 

taskover 

BlTl 

WAITLIST 

TDEC 

MP130UT 

ENDOFJOB 


SVEXITAD 

AVGEXIT 

IBNKCALL 

SETMAXDB 

IBNKCALL 

STOPRATE 

FEEDREST 

FIXDELAY 

100 


dec  U.  1966  (MAIN)  PAGE  706 


USER'S  OWN  PAGE  NO.  3 EA 

DELAY  .5  SECS 

ULLAGE  JETS  OFF  AT  TIG  ♦ ,5 

delay  .5  sEC  ANd  start  AsCENT  gjidance 

SET  AVEG  loop  Tn  THrUST  MAGNITUDE  FILTER 

delay  8 SECS  AND  DO  FEED  TEST 
START  FEED  TEST  ROUTINE 


DO  Feed  test  reset  routine 

wait  for  GUIDANCE  TO  DO  ENGINE  OFF 

SET  MP13  terminal  TASKS 


KILL  JOB  SET  BY  DVMON 

APS  ENGINE  OFF-TERMiNATE  MP13 

REMOVE  Ascent  prog  from  servicer 

DEADBAND  SELECT-MAX 
SET  ATTITUDE  HOi  D 

DO  THIS  IN  CASE  OF  EARLY  ENG  SHUT  DOWN 


delay  1 SEC 
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L 

MISSION 

phase  13  - 

APS2 

OlOA 

REF 

13 

LAST 

703 

27. 

0105 

27 . 

0109 

REF 

59 

LAST 

706 

27. 

0110 

27 . 

0111 

REF 

13 

LAST 

699 

27. 

01111 

27 . 

0112 

REF 

108 

LAST 

706 

27. 

OllA 

27. 

0115 

27. 

0116 

27 . 

0117 

27. 

0118 

27. 

COl  18 

27 . 

0120 

REF 

5 

LAST 

701 

27. 

01201 

REF 

104 

LAST 

706 

0121 

27 . 

C0121 

REF 

1 

27. 

0122 

REF 

105 

LAST 

707 

0123 

27 . 

C0123 

REF 

1 

27. 

01231 

REF 

106 

LAST 

707 

012A 

27 . 

C012A 

REF 

2 

LAST 

664 

27. 

012A1 

REF 

7 

LAST 

705 

27. 

012A2 

C012A2 

REF 

6 

LAST 

701 

27. 

324l 

0 5073  0 

TC 

3242 

OOK07  1 

DEC 

3243 

0 5(17  0 

TC 

324^ 

35524  1 

DEC 

3245 

0 6036  1 

TC 

3246 

OOOOl  0 

DCT 

32A7 

0 5(45  1 

TC 

3250 

30144  0 

1SEC13 

DEC 

3251 

30310  0 
32260  1 

2SEC513 

OEC 

DEC 

3252 

12SECS13 

3253 

33260  0 

140SECS 

OEC 

325^ 

3255 

00002  0 
02P30  0 

342SECS 

2DEC 

3256 

02233  1 

E4 

aveguad 

genadr 

EBANKs 

3257 

3260 

02000  0 

64064  1 
E4 

PREAP2AD 

2CADR 

ebank= 

3261 

3262 

03221  0 

56O04  0 
E4 

MP13TMAD 

2CADR 

EBANKs 

3263 

326^ 

02(13  0 
64064  1 
E5 

ATMAGAD 

2CADR 

ebank= 

3265 

3266 

02312  0 
60065  1 

SYEX13AD 

2CADR 

ILMP 

135 

FIXDELAY 

2900 

flagidwn 

1 

taskover 

100 

200 

1200 

UOOO 

3A200 

AVERAGEG 

TDEC 

PREAPS2 

TDEC 

MP13TERM 

TDEC 

ATMAG 

DVTOTAL 

SERVEXIT 


Dec  13»  1966  (MAIN)  PAGE  707 


USER'S  OWN  PAGF  NO. 

APS  ARM  OFF 

DELAY  29  SECS  TO  KILL  AVEG 
KILL  AVE  G 

MISSION  PHASE  U COMPLETE 

3A2  SECONDS 


E4 


48895'*A  YJL  system  FOR  AGCS  NEW  PRO^iRAM  SMePATIN  BY  EYLES 


L 

MISSION 

PHASE  13 

0125 

REF 

6 

LAST 

666 

0126 

REF 

25 

LAST 

678 

0127 

REF 

A 

LAST 

282 

0128 

C0128 

REF 

7 

LAST 

705 

0129 

REF 

109 

LAST 

707 

01A2 

REF 

53 

LAST 

705 

0U3 

OlAA 

01A5 

REF 

30 

LAST 

702 

01A6 

01A7 

01A8 

01A9 

REF 

lA 

LAST 

707 

0150 

0151 

REF 

110 

LAST 

708 

,3267  3 5t>76  0 CJRTJOB  CAF 


,3270  0 5S23  0 TC 

E2  EBANK 

,327l  3A^32  0 2CADR 

,3272  0AOO2  1 

,3273  0 5^A5  1 TC 

,327A  0 5ilA  0 DFICAL  TC 

,3275  0035A  0 QEc 

,3276  02260  I OEC 

,3277  0 5^06  0 TC 

,3300  00355  1 OEC 

,3301  00306  1 DEC 

,3302  00310  0 DEC 

,3303  0 5O73  0 TC 

,330A  00307  0 DEC 

,3305  0 5fA5  1 TC 


AP52 

27 

27 

27 

27 

27 

27 

27 

27 

27 

27 

27 

27 

27 

27 

27 


DEC  13,  1966  (MAIN)  PAGE  70b 


PRI037 

NOVAC 

SFAIL 

CURTAINS 

TASKOVER 

ILMP+DT 

236 
1200 

2LMP*DT 

237 

198 
200 

ilmp 

199 

TASKOVER 


USER'S  OWN  PAGE  NO.  5 
SET  UP  JOB  TO  Go  TO  CURTAINS 


LMP  COMMAND 

DFI  T/M  calibrate  - ON 
DELAY  12  SECS 

LMP  COMMANDS 

DFI  T/M  calibrate  - OFF 

MASTER  C.W  ALARM  RESET  - COMMAND 

DELAY  2.0  SECONDS 

LMP  COMMAND 

MASTER  C.W  alarm  RESET  - COMMAND 
TERMINATE  DFI  CALIBRATE  TASK 


EA 


RESET 


A8895^A  YJL  system  FOR  AGCj  NEW  PROGRAM  SMePATIN  BY  EYUeS 


L 

MISSION 

PHASE  13 

- APS2 

0152 

27 

0153 

REF 

4 

LAST 

697 

27 

015A 

REF 

3 

LAST 

682 

27 

0155 

27 

01551 

REF 

54 

LAST 

708 

27 

01552 

27 

01553 

27 

0156 

REF 

31 

LAST 

708 

27 

0157 

27 

0158 

27 

0159 

27 

0160 

REF 

32 

LAST 

709 

27 

0161 

27 

0162 

27 

0163 

27 

016A 

REF 

33 

LAST 

709 

27 

0165 

27 

0166’ 

27 

0167 

27 

0168 

REF 

34 

LAST 

709 

27 

0169 

27 

0170 

27 

0171 

27 

0172 

REF 

55 

LAST 

709 

27 

0173 

27 

017A 

27 

0175 

REF 

15 

LAST 

708 

27 

0176 

27 

0177 

REF 

5 

LAST 

709 

27 

3306 

3307 

3310 

3311 

0 0O06 
23*662 
0 6027 
00200 

1 

1 

1 

0 

FEEDTEST  ExTE 
OXCH 
TC 
OCT 

3312 

0 5U4 

0 

TC 

3313 

00176 

1 

OEC 

33l<f 

00144 

0 

OEC 

331& 

0 5106 

0 

TC 

3316 

00074 

1 

OEC 

3317 

00254 

1 

OEC 

3320 

00310 

0 

OEC 

3321 

0 5106 

0 

TC 

3322 

00075 

0 

OEC 

3323 

00255 

0 

OEC 

332A 

01A40 

0 

OEC 

3325 

0 5106 

0 

TC 

3326 

00076 

0 

OEC 

3327 

00256 

0 

OEC 

3330 

00310 

0 

OEC 

3331 

0 5106 

0 

TC 

3332 

OOO77 

1 

OEC 

3333 

00257 

1 

OEC 

333A 

Ol'^AO 

0 

OEC 

3335 

0 5114 

0 

TC 

3336 

00374 

1 

OEC 

3337 

00310 

0 

OEC 

3340 

0 5073 

0 

TC 

3341 

00375 

0 

OEC 

3342 

0 1662 

1 

TC 

Dec  13»  1966  (MAIN)  PAGE  709 


USER'S  OWN  PaGf  no.  6 E4 

MPRETRN 

FLAG2UP 

200 

SET  ASC  feed  TEST  FLAG 

1LMP*DT 

126 

100 

TIME  T 

RCS  ASCENT  FEED  VALVE  - ARM 
delay  1 SEC 

2LMP+DT 

60 

172 

200 

T*1 

RCS  ASCENT  FEED  VALVES8  SYS  A-OPEN 

RCS  MAIN  S/0  VAl  VES  SYS  A-CLOSE 
delay  for  2 SECs 

2LMP+DT 

61 

173 

800 

Tt3 

RCS  ASCENT  FEED  VALv/ES  SYS  A-OPEN  RESET 
RCS  MAIN  S/0  valves  SYS  A-CLOSE  RESET 
DELAY  FOR  8 SECa 

2LMP*DT 

62 

17A 

200 

T.ll 

RCS  ASCENT  FEED  VALVES  SYS  B-OPEN 

RCS  MAIN  S/0  VAl  VES  SYS  B -CLOSE 

DELAY  FOR  2 SEC<; 

2LMP*DT 

63 

175 

800 

T*13 

RCS  ASCENT  FEED  VALvES  SYS  B-OPEN  RESET 
RCS  MAIN  S/0  VAl VES  SYS  B-CLOSE  RESET 
delay  8 SECS 

1LMP*DT 

252 

200 

T + 21 

RCS  MANIFOLD  CRnSSFEED  VALVES-OPEN 

DELAY  FOR  2 SECs 

ILMP 

253 

T*23 

RCS  MANIFOLD  CRnSSFEED  VALVES-OPEN  RESET 

MPRETRN 

48895^a  y-JL  System  for  aqC;  new  program  smepatin  by  eyLes 


L MISSION  PHASE  13  - APS2 


0178 

ref 

ref 

REF 

REF 

lA 

2A 

285 

209 

LAST 

LAST 

LAST 

LAST 

705 

562 

705 

6A0 

0179 

0180 
0181 

0182 

0183 

REF 

6 

LAST 

709 

00  00 

O O 

REF 

8 

LAST 

682 

0185 

0186 

REF 

56 

LAST 

709 

0187 

0188 

REF 

35 

LAST 

709 

uitjy 

0190 

0191 

0192 

0193 

REF 

57 

LAST 

710 

019A 

0195 

REF 

36 

LAST 

710 

0197 

0198 

0199 

0200 

REF 

37 

LAST 

710 

0201 

0202 

02021 

02022 

02023 

REF 

58 

LAST 

710 

0203 

020A 

REF 

A 

LAST 

691 

0205 

0208 

REF 

7 

LAST 

710 

27 

27 

27 

27 

f33A3 

.33AA 

*33A5 

t33A6 

A 0076 
7 7TA6 
10  000 
0 0002 

1 

1 

0 

0 

27 

»33A7 

0 0006 

1 

27 

t3350 

23*062 

1 

27 

»335l 

0 60A5 

0 

27 

♦ 3352 

00200 

0 

27 

♦ 3353 

0 511A 

0 

27 

♦ 335^ 

00376 

0 

27 

♦ 3355 

OOlAA 

0 

27 

♦ 3356 

0 5106 

0 

27 

♦ 3357 

0027A 

0 

27 

♦ 3360 

OOllA 

0 

27 

♦ 3361 

OOlAA 

0 

27 

♦ 3362 

0 511A 

0 

27 

♦ 3363 

00377 

1 

27 

♦ 336A 

OOlAA 

0 

27 

♦ 3365 

♦ 3366 

0 5106 
00275 

0 

27 

1 

27 

♦ 3367 

00115 

1 

27 

♦ 3370 

OIAAO 

0 

27 

♦ 3371 

0 5106 

0 

27 

♦ 3372 

00276 

1 

27 

♦ 3373 

00 1 1 6 

1 

27 

♦ 337A 

OOlAA 

0 

27 

♦ 3375 

0 sHa 

0 

27 

♦ 3376 

00177 

0 

27 

♦ 3377 

OOlAA 

0 

27 

♦ 3A00 

0 5065 

1 

27 

♦ 3A01 

00277 

0 

27 

♦ 3A02 

00117 

0 

27 

♦ 3a03 

0 1662 

1 

feedrest 


cs 

MASK 

CCS 

TC 

EXTEND 

OXCH 

TC 

OCT 

TC 

OEC 

OEC 

TC 

OEC 

OEC 

OEC 

TC 

OEC 

OEC 

TC 

OEC 

OEC 

OEC 

TC 

OEC 

OEC 

OEC 

TC 

OEC 

DEC 

TC 

OEC 

DEC 

TC 
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USER'S  0*^N  PAGf  NO.  7 EA 

FLAGWRD2 

BITS 

A 

0 

check  feed  tesT  flag 

FLAG  DOWN-NO  RESET 

mpretrn 

FLAG  UP  - DO  FEFD  TEST  RESET 

FLAG2DWN 

200 

FEED  TEST  FLAG  DOWN 

ILMP+DT 

25A 

100 

TIME  T 

RCS  MANIFOLD  CRoSSFEED  VALVES  -CLOSE 
delay  1 SEC 

2LMP+DT 

188 

76 

100 

T + 1 

RCS  MAIN  S/0  VALVES  SYS  A-OPtN 

RCS  ASCENT  FeeD  VALvES  SYS  A-CLOSE 

DELAY  1 SECS 

ILMP+DT 

255 

100 

T*2 

RCS  MANIFOLD  CROSSFEED  VALVES-CLOSE  RESt 
DELAY  1 SEC 

2LMP*DT 

189 

77 

800 

T + 3 

RCS  MAIN  S/0  VAl VES  SYS  A-OPEN  RESET 

RCS  ASCENT  FEED  VALvES  SYS  A-CLOSE  RESEI 
DELAY  8 SECS 

2LMP+DT 

190 

78 

100 

T + 11 

RCS  MAIN  S/0  VAl VES  SYS  b-OPEN 

RCS  ASCENT  FEED  VALVES  SYS  B.CLOSE 
delay  1 SEC 

1LMP*DT 

127 

100 

T + 12 

RCS  ASCENT  FEFD  VALVE-SAFE 
delay  1 SEC 

2LMP 

191 

79 

T + 13 

RCS  MAIN  S/0  VAl  VES  SYS  B-OPEN  RESET 

RCS  ASCENT  FEED  VALvES  SYS  B-CLOSE  RESEI 

mpretrn 


return  to  MISSION  Program 
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L MISSION  PHASE  16  - RCS  COLD  S0A<  USER'S  OWN  PAGf  NO.  1 

00001  27*3A0A  BANK  27 

0001  REF  29  last  518  E6  EBANK=  EdOT 

ROOOlll  PROGRAM  DESCRIPTION 

R000112  MOD  NO-  0 LoG  SECTION- 

R000113  »»"«»***  NOTE-  MP16  NOT  J=>i  TO  DATE  »**»»»*» 

ROOOlU  RCS  COLD  SOAK 

R000115  FUNCTIONAL  DESCRIPTION- 

R0001I6  CHANGE  ATTITUDE  OF  S^ACE^RAFT  TO  REQUIRED 

R000117  ATTITUDE  FOR  COLD  SoAK  PHASES. 

R000118  ISSUE  LMP  COMMANDS'  ETC. 

R000119  ACCORDING  TO  GSOP. 

R0002  CALLING  SEQJENCE- 

R000201  start  MP  16  WHEN  MISSION  TIMER  A 

R000202  COUNTS  TO  ZERO. 

R000203  SUBROUTINES  CALLED- 

R00020A  BANKCALL 

R000205  DFI  T/M  CAL.  ROUTINE 

R000206  EXECUTIVE 

R000207  LEM  MISSION  PROGRAMMER 

R000208  KALCMANU 

R000209  WAITLIST 

R00023  NORMAL  EXIT  MODES- 

R000231  TC  ENDOFUOB/TASKOi/ERi 

R000232  ALARM  OR  ABORT  EXIT  MODES-  NONE 

R000233  OUTPUT-  (INTERFACE.  DISPLAYS,  MEANINGFUL  INFORMATIONLEFT  IN  ERASABLE). 

R00023A  SAME  AS  FOR  KALCMANu  EXCEPT- 

R000235  BIT  13  OF  DAPBOOLS  IS  5El  TO  1 BEFORE  EXIT. 

R000236  ERASABLE  INITIALIZATION  ReQUIREO- 

R000237  TEPHEM  IN  CeNTISECONOS  TRIPLE  PRECISION 

R000238  DEBRIS-  (ERASABLE  LOCATIONS  DESTROYED  BY  THIS  PROGRAM) 

R000239  SAME  AS  FOR  KALCMANU 

R00029  ORIENT  THE  LEM  TO  RCS  COLD  SoAK  AlTITUDE 
R0003  (S/C  X-AXIS  NORMAL  TO  THE  ECLIPTI**  AND  BISECTOR 
R0004  OF  +Z/-Y  AXES  TOWARD  THE  SUN) 


ROOOS 

START  MISSION  PHASE 

i6  when  m5i  tiimer 

A 

COUNTS  TO 

ZERO 

0006 

REF  28  LAST  705 

27.3A0A  0 Ai05 

1 

MP16U0B 

TC 

NEWMODEX 

0007 

27.3A0P  OOU16 

0 

OCT 

16 

UPDATE  PROGRAM  NUMBER 
ON  DSKY 


0008 

REF 

2 

LAST 

678 

27,3A06 

0 2955 

0 

0009 

REF 

2 

LAST 

682 

27.3A07 

3 7^A0 

0 

0010 

E7.3A10 

0 OOOA 

0 

0011 

REF 

2A 

LAST 

70A 

27.3A11 

0 5P3A 

0 

00115 

REF 

30 

LAST 

711 

E6 

0012 

27.3A12 

02U67 

1 

C0012 

REF 

A 

LAST 

683 

27.3A13 

70U66 

0 

0013 

27.3Al'» 

0 0003 

1 

OOIA 

REF 

7 

LAST 

A22 

27.3A1P 

10  067 

1 

0015 

REF 

6 

LAST 

A22 

27.3A16 

0 5P50 

1 

TC  COLDSOAK  CALCULATE  CDU  AmGLES  REQUIRED 

CAF  PRIOKM  SCHEDULE  KALCMAnU 

INHINT 

TC  FINDVAC 

EBANK=  EDOT 

2CADR  KALCMAN3 

RELINT 

CCS  NEWJOB  FORCE  KALCMANU  JOB  ON 

TC  CHANGl 


A88954A  YJL  SYSTEM  FOR  AGC:  NEW  PRO^JRAM  SMEPATIN  0Y  EYLES 


DEC  13,  1966  (MAIN)  PAGE  71*: 


L MISSION  phase  16  - RCS  CoLD  SoACi  USER'S  OWN  PAGE  NO.  2 E6 

0016  REF  130  LAST  705  27,3Al7  0 522A  0 TC  BANKCALL  PUT  JOB  TO  SLEEP  TILL 

0017  REF  6 LAST  705  27, 3^2°  26f5A  0 CADR  ATTSTALL  MANEUVER  COMPLETED 

0018  27,3421  1 3*^22  1 NOOP  TC  BADATT-SICk  RETURN-  """FIX  THISinn* 


0019 

0020 

REF 

1 

0021 

REF 

132 

LAST 

7O6 

00215 

0022 

REF 

31 

LAST 

711 

C0022 

REF 

1 

0023 

0024 

REF 

1 

0025 

REF 

REF 

14 

LAST 

427 

0026 

0027 

1 

0028 

REF 

2 

LAST 

712 

0029 

REF 

12 

LAST 

427 

00294 

REF 

50 

last 

706 

00296 

REF 

3 

LAST 

639 

0030 

REF 

111 

LAST 

708 

A0034 


0035 

REF 

1 

0036 

0037 

REF 

133 

LAST 

712 

00375 

REF 

32 

LAST 

712 

0038 

C0038 

REF 

1 

0040 

REF 

96 

LAST 

706 

0041 

REF 

26 

LAST 

655 

0042 

REF 

60 

LAST 

677 

0043 

REF 

16 

LAST 

7O9 

0044 

0045 

REF 

17 

LAST 

712 

0046 

0047 

REF 

1 

0048 

REF 

134 

LAST 

712 

00485 

REF 

33 

LAST 

712 

0049 

C0049 

REF 

1 

0050 

REF 

112 

LAST 

712 

0051 

0052 

REF 

16 

LAST 

712 

0053 

0054 

REF 

19 

LAST 

712 

0055 

0056 

REF 

113 

LAST 

712 

27.3422 

27.3423 

27.342A 

3 3‘*33  0 

0 0004  0 

0 5(01  1 

27.3425 

27.3426 

27.3427 

27.3430 

27.3431 

E6 

D3‘'34  1 
56O06  1 

0 0003  1 

3 3A32  1 

0 5563  1 

0 1 f 1 1 A 1/  C 

27 . 3432 

27.3433 
27.343^' 

27.3435 

27.3436 

27.3437 

57'*A1  1 
01(50  1 

3 31*32  1 

r l6WAKt 
DECIOOO 
PHA516A 

0 5567  0 

0 5307  0 
56211  0 

CAF 

inhint 

TC 

DEClOOO 

WAITLIST 

GOOD  return— MAN,  COMPLETED 

WAIT  10  SECONDS 

EBANKs 

2CADR 

EDOT 

PHAS16A 

RELINT 

CAF 

TC 

CADR 

DEC 

CAF 

P16WAKE 

JOBSLEEP 

PUT  THIS  JOB 

TO  SLEEP 

PH AS 1 6B 

1000 

P16WAKE 

reactivate  the  job 

TC 

TC 

CADR 

JOBWAKE 

IBNKCALL 

DFITMCAL 

THAT  WAS  PUT  TO  SLEEP 

DO  DFI  T/M  CALIrRATION  ROUTINE 

27.3440  0 5(45  1 TC  TASKOVER 

WAIT  for  completion  OF  CALIBRATION  ♦ 1 SECOND 

27.3441  3 3*^70  1 PHAS16B  CAF  DEC1300  13  SECONDS 

27.3442  0 0004  0 INHINT 


27,3443 

27,344A 

27.3445 

27.3446 

27.3447 

27.3450 

27.3451 

27.3452 

27.3453 
27,345A 

27.3455 

27.3456 

27.3457 

27.3460 

27.3461 

27.3462 

27.3463 
27.346A 

27.3465 

27.3466 

27.3467 


0 5(01  1 
E6 

03‘'47  0 
56O06  1 
0 5605  1 
3 7(41  1 
26  077  0 

0 5073  0 

00136  0 

0 5073  0 

00156  0 
3 3A62  1 
0 5(01  1 

E6 

03‘*63  0 
56O06  1 

0 5(45  1 

00310  0 

0 5073  0 

00137  1 
0 5073  0 

00157  1 
0 5(45  1 


P16MXDB 


DEC200 

P16CLS 


TC  WAITLIST 
EBANK=  EDOT 
2CADR  P16MXDB 

TC  ENDOFJOB 
CAF  BIT13 
ADS  DAPBOOLS 
TC  ILMP 
DEC  94 
TC  ILMP 

oEc  no 

CAF  DEC200 
TC  WAITLIST 
EBANK=  EDOT 
2CADR  P16CLS 

TC  TASKOVER 
DEC  200 
TC  ILMP 
DEC  95 
TC  ILMP 
DEC  111 
TC  TASKOVER 


SELECT  MAX  DEADrAND  FOR  DAP- 
SET  BIT  13  OF  DAPBOOLS  =1 
THRUSTER  ISOL  VALVES  PR  3A  CLOSE 

THRUSTER  ISOL  VfiLVES  3B  CLOSE 

WAIT  2 SECS 


THRUSTER  ISOL  VALVES  PR  3A- 
CLOSE  RESET 

THRUSTER  ISOL  VaLVES  PR  SB- 
CLOSE  RESET 


0058 


27.3470  02‘'24  1 0EC1300  DEC  1300 
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L 

ROOOOOl 

R0OOOO3 

R0OOOO5 

ROOOOO8 

ROOOOO9 

ROOOOl 

ROOOOll 

R000012 

ROOOOI3 

ROOOOU 

ROOOOI5 

ROOOOI6 

R000017 

R000018 

R000019 

R00002 

ROOOO2I 

R000022 

R000023 

R00002A 

R000025 

R000026 

R000027 

00009 

0001 

0002 

00021 

0003 

OOOA 

0009 

0010 
0011 

0012 

0013 

0021 

0022 

0023 

002A 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 
003A 


integration  Initialization  user's  own  paGf  no,  i 

ayetomic  performs  The  transition  ^rom  a thrusting  phase  to  a coasting  phase,  the  routine  Initializes  the 
orbital  integration  program  and  rescales  and  transforms  leMs  state  Vector  from  the  stabi  e MembeR  coordinate 
SYSte'I  USeD  In  AVeRAGeG  to  TR-  Re^’EReNCe  system  USeD  in  orbital  integration  during  coast 
INPUT  - lem  State  vector  in  smi  coordinate  system  and  time 
RN,  position  in  METERS  SCA.EO  At  2(*2A) 

VN.  VELOCITY  IN  M/CSEC  SCA.EO  at  2(*7) 
piptime,  time  in  CSeC  corresponding  to  RN,  VN 


OUTPUT  - LEM  STATE  VECTOR  IN  ReF,  COORDINATE  SYSTEM  AND  TIME 
RRECT  and  RCV,  position  In  <M.  scaled  at  2(+1A) 

VRECT  and  VCV,  velocity  In  1/SURT(KM)  scaled  at  2(-6) 

TET,  time  in  CSEC 

P-MEMORY  (REFRRECT  TO  REFRRECT  ♦ A2) 


AVETOMID  CALLING  SEQUENCE 
L-2  EXTEND 

L-1  DCA  (2CADR  OF  AVeTOMIU) 

L DXCH  Z 

DELETE 

NORMAL  EXIT 

AT  L+1  OF  CALLING  SEQUENCE 


REF  130  LAST  70A 


REF  1 07,2073 

REF  65  LAST  7OA  07*207^ 

07,2075 

REF  1 07,2076 

07,207T 

REF  1 07,2100 

REF  1 07,2101 


07*2073 

SANK 

07 

EA 

EBANK= 

AMEMORY 

53'631  0 

AVETOMID  OXCH 

AVMIDRTN 

0 6^03  0 

TC 

INTPRET 

7762A  1 

call 

16267  0 

INITINT 

77775  1 

VLOAD 

16175  0 

ZEROVEC 

02015  1 

STORE 

TDELTAV 

orbital  integration  initialization 

zero  pos  deviations 


REF  1 07,2102  02O23  1 

REF  1 07,2103  02OA5  1 


store  TNUV  zero  VEL  DEVIATIONS 

store  tc  Also  clears  tet  and  xkep 


07,210A 

66370 

0 

07,2105 

OOOlA 

1 

REF 

22 

LAST 

623 

07,2106 

00051 

0 

07,2107 

00006 

1 

07,2110 

73773 

0 

REF 

6 

LAST 

69A 

07,2111 

01025 

1 

REF 

1 

07,2112 

16217 

1 

07,2113 

72505 

1 

REF 

18 

LAST 

681 

07,211A 

01275 

0 

REF 

1 

07,2115 

06015 

0 

REF 

1 

07,2116 

06OA5 

0 

SMTOREF 

AXT,1 

SSP 

SET  UP  TIX  LOOP 

FOR  STATE  VEC  TRANSFORM 

12D 

SI 

6 

SMTOREFl 

vload** 

VXM 

vxsc« 

RN  *120,1 
SCLRAVMD  *120,1 
VSL2 

TRANSFORM  STATE 

FROM  SM  TO  ref  SYSTEM 

REFSMMAT 

STORE 

RRECT  *12D,1 

store 

RCV  *120,1 

REF 


07,2117  77POO  1 

07.2120  16U0  0 

07.2121  0 0006  1 


TIX,1  EXIT 

SMTOREFl 

extend 
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0035 

REF 

2 

LAST 

69A 

0036 

REF 

2 

LAST 

282 

00361 

ref 

1 

0037 

REF 

2 

LAST 

713 

00371 

REF 

29 

LAST 

70A 

0038 

00A2 

00A3 

REF 

66 

LAST 

7l3 

OOAA 

00A5 

REF 

107 

LAST 

707 

00A6 

00A7 

00A8 

REF 

3 

LAST 

71A 

00A9 

REF 

9 

LAST 

637 

0050 

0051 

0052 

REF 

1 

0053 

REF 

1 

005A 

0055 

REF 

1 

0056 

0057 

REF 

1 

0058 

REF 

1 

0059 

0060 

REF 

2 

LAST 

71A 

0061 

REF 

1 

0062 

0063 

REF 

1 

006A 

0065 

REF 

2 

LAST 

71A 

0066 

REF 

2 

LAST 

714 

0067 

REF 

3 

LAST 

714 

0068 

0071 

REF 

2 

LAST 

714 

07*2122  3 liZl  0 

07*2123  53*‘*A7  0 


212A 

2125 

2126 
2127 
2130 


0 22A5  0 
53*631  0 
52  006  0 
02^00  1 
77T76  1 


PIPEBANIC 

TESTLOOP 


07*2131 


2132 

2133 
213^ 


0 6^03  0 

AOlAS  0 
02167  0 
16135  1 


07*2135 

47025 

0 

07*2136 

02047 

0 

07*2137 

33565 

1 

07*2140 

56261 

1 

07*2141 

20214 

1 

07*2142 

17T03 

0 

07*2143 

02163 

1 

07*2144 

51400 

1 

07*2145 

16156 

1 

07*2146 

50025 

0 

07*2147 

16205 

1 

07*2150 

16317 

0 

07*2151 

45215 

0 

07*2152 

16205 

1 

07*2153 

16213 

0 

07*2154 

77640 

0 

07*2155 

17376 

0 

07*2156 

75345 

1 

07*2157 

16213 

0 

07*2160 

02163 

1 

07*2161 

36163 

0 

07*2162 

17376 

0 

07*2163 

00016 

0 

U5EMAXDT 


SCALER 


0072 

0073 

00731 
C00731 

007311 

C007311 

00732 
C00732 

0079 
C0079 

0080 
C0080 

0081 

C0081 


07 

07 

07 

07 

07 

07 

07 

07 

07 

07 

07 

07 

07 

07 


216A 

2165 

2166 
2167 

2170 

2171 

2172 

2173 
217‘* 

2175 

2176 

2177 
2200 
2201 


OOOOA  0 
00022  1 

00000  1 
05360  1 

00001  0 
2A570  0 
OOOOO  1 
00310  0 
OOOOO  1 
OOOOO  1 
OOOOO  1 
OOOOO  1 
OOOOO  1 
OOOOO  1 


SCALDELT 

SCALEDT 

28SECS 

270SECS 

2SECS 

ZEROVEC 


OCA 

OXCH 

TC 

OXCH 

OXCH 

OCT 

EXIT 

TC 

DLOAD 

OSU 

SL 

STORE 

BOV 

OSU 

OAD 

3MN 

OLOAD 

STCALL 

DEC 

DEC 

DEC 

2DEC 

2DEC 

2DEC 

EDEC 

2DEC 

2DEC 


dec  13*  1966  (MAIN) 


PAGE  71A 


USER'S  OWN  page  NO*  2 E4 

PIPTIME 

TET 

SAVE  PIPTIME 

PIPTIME  UN  TET 

MOVETEMP 

AVMIDRTN 

Z 

transfer  state  and  init.  data  To  P-MEM 

02400 

INTPRET 

EBANK  05 

FOR  DUMP. 

BOV 

TOEC 

♦1 

CLEAR  overflow  INDICATOR 

RTB 

TET 

SGNAGREE 

DDV 

IID 

EARTHTAB  *90 
OT/2 

ABS 

USEMAXDT 

BMN 

DT/2MIN 

DECISION 

DSU 

DT/2MIN 

DT/2MAX 

TIMESTEP 

SIGN 

DT/2MAX 

DT/2 

DT/2 

TIMESTEP 

14 

4 

18 

2800 

27000 

200 

INTEGRATION  FINtSHED-DECIDE  WHERE  TO  GO 

0 

0 


0 
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L 

R00811 

0082 

C0082 

0083 

C0083 

008A 

C008A 

0085 
C0085 

0086 
C0086 

0087 

C0087 


inte^'^ation  Initialization 


USER'S  oi^N  Page  no,  3 


EA 


THE  Order  of  the  six  F0LL0WI\|3'  constants  CAnnOT  be  changed 


07*2202 

20304 

1 

SCLRAVMD 

2DEC 

.512 

07*2203 

23351 

1 

07*2204 

ooooo 

1 

DT/2MIN 

2DEC 

.00003 

07*2205 

07*2206 

17565 

37200 

OOOOO 

1 

1 

1 

SCLRMDAV 

2DEC 

1000  B-10 

07*2207 

07*221° 

24605 

1 

SCLVAVMD 

2DEC 

,64876819 

07*2211 

15301 

1 

07*2212 

12317 

1 

DT/2MAX 

2DEC 

,65027077  B,.! 

07*2213 

OOH51 

1 

07*221A 

07*2215 

30523 

00147 

0 

0 

SCLVMDAV 

2DEC 

.7706913 

METERS  TO  KM  1/2(1024/1000) 

KM  TO  METERS 
METERS/CSEC  TO  1/SQR(KM) 

270  SEC  MAX  TIMF  STEP 
1/SQR(KM)  TO  MEtERS/CSEC 
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L 

ROlOO 

R0IO2 

Rqioa 

R0106 

R0108 

R0109 

Roiio 

ROUl 

R0112 

0113 

OIU 

OllAl 

OllAll 

011412 

01142 

0115 

0116 

0117 

0118 

0119 

0120 
0121 
0122 

0123 

0124 

0125 

01251 

01252 

0126 

0127 

0128 
0129 


integration  initialization  USER'S  OWN  page  no*  E4 

stateint  is  called  up  under  a job  every  539  seconds  during  a coasting  phase  by  the  mission  scheduling 
maintenance  Routine  to  maintain  t^e  lems  state  vector  within  two  integration  steps  (540  seconds)  of  the  current 

TIME  (TIME2)*  THE  ROUTINE  COMPARES  TIME2  WITH  TET  (THAt  TIME  CORRESPONDING  TO  THe  STATf  VECTOR  IN  STORAGE). 

IF  TET  lags  By  270  SECONqS  OR  MORt»  ThE  ORBITAl  INTEGRATION  PROGRAM  IS  CALLED  UP  ANq  ThE  STATE  IS  UPpATEO  TO 
TIME2.  IF  TET  DOES  NOT  LAG»  sTATEINT  IS  TERMINATED  BY  ENOOFJOB, 

I nput-stateint  assumes  that  the  coasting  in  PROGRESS  WAS  initialized  by 
THE  AVETOMID  ROUTINE. 


07,2216 

0 0006 

1 

stateint  extend 

REF 

30 

LAST 

7O4 

07,2217 

3 0025 

0 

DCA 

REF 

108 

LAST 

714 

07,2220 

53*567 

0 

DXCH 

REF 

4 

LAST 

709 

07»222l 

0 6027 

1 

TC 

07,2222 

OOlOO 

0 

DCT 

REF 

1 

LAST 

07,2223 

0 2256 

1 

TC 

REF 

67 

714 

07,2224 

0 6103 

0 

TC 

TIME2  get  current  TIMF  IN  TDEC 

TDEC 

FLA62UP  SET  ORBITAL  INTEGRATION  FLAG 

100 

MOVEPERM  BRING  STATE  FROM  PMEMORY 

INTPRET 


REF  109  LAST 
REF  4 LAST 

REF  1 
REF  1 

REF  2 last 


07 

716  07 

714  07 

07 
07 

07 

07 

716  07 


2225  45^45  1 

2226  D2167  0 

2227  D2047  0 

2230  45.i40  0 

2231  16<i43  0 

2232  16171  1 

2233  66240  1 

223A  16243  0 


DLOAD 

DSU 

FORM  TDEC-TET 

BMN 

TDEC 

tet 

DSU 

IS  state  LAGGlNf, 

NOINT 

NO,  TET  GREATER  THAN 

TDEC 

3MN 

27OSECS 

SSP 

NOINT 

NO,  TET  greater  THAN 

TDEC. 

REF 


REF 

REF 

REF 


2 LAST  288 


2 last  713 
1 
1 


2235 

2236 

2237 

2240 

2241 

2242 

2243 

2244 


D2201  0 
77^76  1 
77624  1 
16267  0 
77650  1 
16130  1 
77776  1 
1 2‘'74  0 


NOINT 


DEC 

CALL 

GOTO 

EXIT 

TCF 


measmode  bring  to  current  time-set  MEASMoDE  (-1) 

-1 

INITINT  INITIALIZE  BRANCH  ReGS 

testloop  start  integration  From  tet  to  toec 

TEMPORARY  STATEINT  EXIT 

INTOUT  NO  integration,  TERMINATE  THIS  JOB 


^88954A  YJL  SYSTEM  FOR  AGCi  NEW  PROGRAM  SMePATIN  BY  EYLES 


DEC  U,  1966  (MAIN)  PAGE  717 


L integration  initialization  USER'S  OWN  PAGF  NO.  i>  EA 

R02OO  MDVETEMP  transfers  RRECT  TO  RRECT  .AZ  FROM  A-MEMORY  TO  P-MEMORY 
R020I 

R0202  CALLING  sequence 
R0203  L TC  MOVETEMP 

R020A 

R0205  NORMAL  EXIT  AT  L*1 


0206 

REF 

1 

07»22A5 

3 2^33 
55»605 

0 

MOVETEMP  CAF 

FORTYTWO 

0207 

REF 

1 

07  »22A6 

1 

TS 

difeocnt 

INITIALIZE  Index 

0208 

ref 

2 last  717 

07.22A7 

511605 

0 

INDEX 

difeocnt 

0209 

REF 

2 

LAST 

713 

O7.225O 

3 lAOO 

1 

CA 

RRECT 

PICK  UP  RRECT  Tn  RRECT  *42  FROM  A-MEMORY 

0210 

REF 

3 

LAST 

717 

07.2251 

51*605 

0 

INDEX 

difeocnt 

0211 

REF 

A 

LAST 

307 

07.225Z 

55*222 

0 

TS 

refrrect 

STORE  IN  REFRRECT  TO  REFRRECT  *uZ  IN  P-M 

0212 

REF 

A 

LAST 

717 

07*2253 

11*605 

1 

CCS 

DIFEOCNT 

IS  TRANSFER  COMPLETE 

0213 

ref 

2 

LAST 

71A 

07.225A 

1 22A6 

1 

tcf 

MOVETEMP  ♦! 

NO-LOOp  again 

021A 

REF 

210 

LAST 

710 

07.225S 

0 0002 

0 

TC 

0 

TRANSFER  COMPLETE-RETURN 

R021A2 

moveperm  transfers 

refrrect  ■ 

roi  reI’RRect 

♦A2  from 

PMeMORY 

' TO  A-MEMORY 

R0215 

3 2333 

MOvEPERM 

0216 

REF 

2 

LAST 

717 

07  ♦225« 

0 

CAF 

FORTYTWO 

0217 

REF 

5 

LAST 

717 

07.2257 

55*605 

1 

TS 

DIFEOCNT 

0218 

REF 

6 

LAST 

717 

07.2260 

51*605 

0 

INDEX 

DIFEOCNT 

717 

07.2261 

3 1222 

0219 

REF 

5 

LAST 

1 

^ A 

refrrect 

0220 

ref 

7 

last 

717 

07.226Z 

51*605 

0 

index 

difeocnt 

0221 

REF 

3 

LAST 

717 

07.2263 

55*A00 

0 

TS 

RRECT 

0222 

REF 

8 

LAST 

717 

07.226A 

11*605 

1 

CCS 

DIFEOCNT 

0223 

REF 

2 

LAST 

716 

07.226S 

1 2257 

1 

TCF 

MOVEPERM  ♦! 

022A 

REF 

211 

LAST 

717 

07.2266 

0 0002 

0 

TC 

0 

022A1 

07.2267 

66331 

0 

INITINT 

SSP 

SSP 

022A2 

ref 

2 

LAST 

36 

07.2270 

02230 

1 

PBOdY 

earthtab  into  PbOAY 

022A3 

REF 

2 

LAST 

7lA 

07.2271 

17671 

1 

EARTHTAB 

022AA 

REF 

1 

07.2272 

02205 

1 

STEPEXIT 

TESTLOOP  INTO  STEPEXIT 

022A5 

REF 

2 

LAST 

716 

07.2273 

16130 

1 

TESTLOOP 

022A6 

O7.227A 

A3OIA 

0 

CLEAR 

CLEAR 

022A61 

REF 

1 

07.2275 

00262 

1 

MIDFLAG 

ZERO  ON  206 

022A62 

REF 

1 

07.2276 

00263 

0 

MOONFLAG 

ZERO  ON  206 

022A7 

07.2277 

A3A1A 

1 

clear 

RVQ 

022A71 

REF 

1 

07.2300 

00260 

0 

wmatflag 

W-MATRIX  NOT  USfD  ON  206 
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L niEtlSATlON  initialization  USER'S  OWN  PAGp  NO,  6 EA 

P0225  MIDTOAVE  PERFORMS  THE  STATE  ^/ECTOK  TRANSITION  FROM  A COASTING  PHASE 
R0226  USING  the  ORBITAL  INTEGRATION  PRO^^RAMS  TO  A TRUSylNG  PHASE  WHICH  USES 

R0227  A^eRAGEG  integration,  THe  ROJTINt  ReSCALeS  AND  TRANSFORMS  THe  StATE 

R0228  VECTOR  AT  TIGN-30*  TIGN-2  AND  TIGN  FROM  REFERENCE  COORDINATES  TO 

R0229  stable  member  COORDINATES  AS  OIReLTED  BY  THe  DECISION  ROUTINE 

R0230 

R023I  INPUT-MIDTOAVE  ASSUMES  THAT  THE  COASTING  INTEGRATION  WAS  INITIALIZED 
R0232  BY  the  AVETOMID  ROUTINE*  STATb  IN  ReF,  COORD,  IN  PMeMORY, 

R0233 

R023A  RRECT.  RCV-POSITION  IN  KM  SCALbD  AT  2(  + U) 

R0235  VRECl  , VCV-  VELOCITY  IN  1/53RT'KM)  SCALED  AT  2(-6) 

R0236  TET.  time  IN  CSECS, 

R0237 

R0238  OUTPUT-STATE  IN  STABLE  MEMBER  COORDINATES 
R0239  AT  TIGN-30 

R02A0  RAVEGON,  POSITION  IN  METERS  SCALED  IN  2(*'2A) 

R02AI  VAVEGON,  VELOCITY  IN  MeTLRS/CSLC  SCALED  AT  2(*7) 

R0242 

R02A3  AT  TIGN-2 

R02AA  RIG-2SEC*  POSITION  IN  METERS  SLALED  AT  2(*2A) 

R02A5 

R02A6  AT  TIGN 
R02A7 

R02A8  RIGNTION*  POSITION  IN  METERS  SLALED  AT  2(t2A) 

R02A9  VIGNTION*  VELOCITY  IN  METeRS/C^EC  SCALED  AT  2(+7) 

R0250 

R025I  CALLING  SEQUENCE 

R0252  (COMPUTE  TDECsTIME  OF  IGNlTION-30  SECS,) 

R0253  L-2  EXTEND 

R025A  L-1  DCA  (2CADR  OF  MlOTOAVL) 

R025AI  L DXCH  Z 

R0255 

R0256  NORMAL  EXIT 

R0257  L*1  OF  CALLING  SEQUENCE 

R0258 


02581 

REF 

3 

LAST 

71A 

07,2301 

53'631 

0 

RVUPDATE 

OXCH 

AVMIDRTN 

02582 

REF 

65 

LAST 

706 

07,2302 

3 7f55 

1 

caf 

BITl 

SET  MEASMODE  TO  ♦!  TO  INTEGRATE 

state 

02583 

REF 

A 

LAST 

675 

07,2303 

1 2306 

1 

TCF 

midtoave  *2 

TO  TDEC  AND  STORED  IN  RlGNTION 

ONLY 

0259 

REF 

A 

last 

718 

07,230A 

53'631 

0 

midtoave 

OXCH 

AVMIDRTN 

02591 

REF 

2 

LAST 

93 

07,2305 

3 7^62 

0 

CA 

NEGO 

0260 

ref 

3 

last 

716 

07,2306 

55,600 

1 

TS 

measmode 

SET  measmode  (-0)  TO  INTEGRATE 

tO  IG-30 

02601 

REF 

5 

LAST 

716 

07,2307 

0 6027 

1 

TC 

FLAG2UP 

SET  ORBITAL  INTEGRATION  FLAG 

02602 

D rc 

717 

07,2310 

00100 

0 

OCT 

100 

Ktr 

3 

LAST 

07 , 23 1 1 

0 2256 

1 

T C 

moveperm 

BRING  STATE  FROM  PMEMUKT 

0262 

REF 

68 

LAST 

716 

07,2312 

0 6103 

0 

TC 

INTPRET 

02621 

□ Pc 

LAST 

716 

07,2313 

77b2A 

1 

CALL 

INITIALIZE  orbital  INTEGRATION 

REGS 

02622 

Ktr 

3 

07 ,231 A 

16^67 

0 

INITINT 

0263 

07,2315 

77650 

1 

GOTO 

026A 

REF 

3 

LAST 

717 

07,2316 

16130 

1 

TESTLOOP 

GO  TO  ORBITAL  ImTEGRATION 
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U 

R0265 

R0266 

R0267 

R0268 

R0269 

R0270 

R0271 

R0272 

R0273 

R027A 

R0275 

R0276 

R0277 

0278 

0279 

0280 

0281 

0282 

0283 

02831 

02832 

02833 

0284 

0285 

0286 

0287 

0288 

0289 

0290 

0291 

0292 

0293 

0294 

02941 

02942 

02943 

02944 

02945 

02946 

02947 

0295 

02951 

02952 

0296 

0297 

0298 

0299 

0300 


integration  initialization 


USER’S  OWN  PAGf  NO. 


E4 


the  Decision  routine  determines  t^e  action  to  be  taken  after  orbital 
integration  has  updated  the  state  Vector  to  the  time  indicated 
BY  TDeC,  the  action  TAKEN  IS  BAStO  ON  THe  CONTENTS  OF  MEASMODE. 

C(MEASM0DE)e(-0) • STATE  INTEGRATED  (ReF.  COORD.)  TO  TI6N-30.  SET 
MeASM0DE=(*0) . Set  TDtC=TIGN-2SECS. 

C(MEASMODE) = (*0) » POSITION  VECTOR  INTEGRATED  TO  TlGN-2t  SET  MEASM0DE=,.1 
Set  tdecstign 

C(MeASMODe)b(*i) , state  integrated  to  tign,  transform  state  from  Ref  to 
SM  coord,  system  ano  Return  to  mission  program 
C(measmooe)?(-i) . State  intlsrated  to  tdec  during  coast  phase,  terminate 

STATEINT  job  initiated  BY  MISSION  SCHEDULING  PACKAGE 


REF  4 LAST  718 


REF  1 

REF  69  LAST  7l8 


REF  1 


REF  5 LAST  719 
REF  1 
REf  1 


REF 

REF 


1 


70  LAST  719 


REF  23  LAST  713 


REF  4 LAST  717 
REF  1 

REF  19  LAST  713 
REF  3 LAST  694 

REF  1 

REF  110  LAST  716 


REF 

REF 


3 LAST  714 
1 


REF  1 

REF  111  LAST  719 
REF  6 LAST  719 


07 

07 

07 

07 

07 

07 

07 

07 

07 

07 

07 

07 

07 

07 

07 

07 

07 

07 

07 

07 

07 

07 

07 

07 

07 

07 

07 

07 

07 

07 

07 

07 

07 

07 

07 


2317 

2320 

2321 

2322 
232S 

2324 

2325 

2325 

2327 

2330 

2331 

2332 

2333 

2334 

2335 
2335 

2337 

2340 

2341 

2342 

2343 

2344 

2345 

2346 

2347 

2350 

2351 

2352 

2353 
235A 
2355 
2355 

2357 

2360 

2361 


link 

1 

DECISION 

EXIT 

11*600 

1 

CCS 

MEASMODE 

1 2324 

1 

TCF 

♦3 

STATE  IN  REF  COOR  AT  IGN 

1 2324 

1 

TCF 

*2 

STATE  IN  REF  cOnRD  AT  IGN-2 

1 2^27 

0 

TCF 

COASTINT 

COAST  integration  STEP  COMPLETE 

0 6103 

0 

TC 

INTPRET 

1 

CALL 

17A26 

1 

RECTIFY 

RECTIFY  AT  IGN-3O , I GN-2 , IGN 

nnt 

1 

EXIT 

11*600 

1 

CCS 

MEASMODE 

1 2A03 

0 

TCF 

REFTOSM 

STATE  AT  TIGN-FlNISH  UP  MIDTOAVE 

1 2364 

0 

tcf 

IgN-2SEc 

pos  AT  tign-2,  do  Tign  next 

00051 

0 

FORTYTWO 

DEC 

41 

1 2335 

1 

TCF 

AVEGON 

STATE  AT  TIGN-30,  Do  TIGN-2  NEXT 

0 6103 

0 

AVEGON 

TC 

INTPRET 

66370 

0 

axt.i 

SSP 

SET  LOOP 

00014 

1 

12D 

00051 

0 

SI 

00006  1 
0 

32015  1 
16223  0 
76521  0 

01275  0 

36l31  1 
71300  1 
16342  0 
02167  0 


01321 

02111 

77515 

16167 

02167 

52131 

02201 


SPECPLSl  yLOAD* 


MXV 


STORE 

TIX.l 


STORE 

STORE 

DAD 

STORE 

SSP 


6 

VXSC« 

RRECT  *120,1 
SCLRMDAV  *120,1 
VSLl 

REFSMMAT 
RAVEGON  *12D,1 
DLOAD 
SPECPLSl 
TDEC 

PIPTIME 

TAVEGON 


REF  TO  SM  SCAi E FACTOR 


TDEC  N0W=TIGN-30 


28SECS 

TDEC 

GOTO 

MEASMODE 


SAVE  TIGN-30  in  PIPTIME  FOR  AVERAGES 
time  TIG-30  for  DWNlINK  IN  NORMlIZE 

TDEC  * 285ECS 
TDEC  SET  TIGN-2 

SET  MEASMODEs (*n) 


488954A  YJL  SYSTEM  FOR  AGC;  NEW  PROGRAM  SMePATIN  BY  eYLeS 


L integration  initialization 


0301  07*2362  OOOOO  1 

0302  REF  A LAST  718  07*2363  16l30  1 


03021 

REF 

71 

LAST 

719 

0303 

0304 

REF 

5 

LAST 

719 

0305 

REF 

2 

LAST 

719 

0306 

0307 

REF 

20 

LAST 

719 

0308 

REF 

1 

0309 

REF 

112 

LAST 

719 

0310 

0311 

REF 

1 

0312 

REF 

113 

LAST 

720 

0313 

0314 

REF 

7 

LAST 

719 

0315 

0316 

REF 

5 

LAST 

720 

07*236A  0 6103  0 IGN-2SEC  TC 


07*2366  7AA75  0 YLOAD 

07*2366  02001  1 

07*2367  16<:07  0 

07*2370  76621  0 MXV 

07*2371  01^^75  0 

07*2372  16131  0 STOOL 

07*2373  02167  0 

07*237^  77515  0 OAD 

07*2375  16173  0 

07*2376  02167  0 STORE 

07*2377  52131  0 SSP 

07*2400  02201  0 


07*2401  00001  0 
07*2402  16130  1 


Dec  13*  1966  (MAIN)  PAGE  720 


USER«S  OWN  page  NO.  8 E4 

0 

TESTLOOP 

GO  INTEGRATE  STATE  TO  IGN-2 

INTPRET 

VXSC 

RRECT 

SCLRMDAV 

TRANSFORM  POS  At  IGN-2  FROM  REF  TO  SM 

VSLl 

REFSMMAT 

RIG-2SEC 

TUEC 

POS  IN  SM  COORD.  AT  IGN-2 

2SECS 

TDEC 

TDEC  SET  TIGN 

GOTO 

MEASMODE 

1 

SET  MEASMODEs (♦! ) 

TESTLOOP 

GO  integrate  state  to  TIGN 
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L 

031601 

031602 

03161 

0317 

0318 

0319 

0320 

0321 

0322 

0323 
032A 

0325 

0326 
0333 
033A 
033A1 
033415 
03342 
0335 
03351 

R0336 

R03361 

R03362 

R03363 

R03364 

R0337 

R0338 

R0339 

0340 

03401 

03402 

0341 

0342 

0343 

0344 

0345 

0346 

0347 

0348 

0349 

0350 

0351 

0352 

0353 

0354 

0355 

0356 

0357 

0358 


integration  Initialization 


USER'S  OWN  PaGf  no.  9 


E4 


REF 

9 

LAST 

710 

07.2403 

0 6O45 
00100 
0 6103 
66370 
00014 
00051 
00006 
73^73 

REF 

72 

last 

720 

07 .2404 

07.2405 

07.2406 

REF 

24 

LAST 

719 

07 .2407 

07.2410 

07.2411 

07.2412 

reftosm  tc 

OCT 

TC 

'^XT.l 


REFTOSMI  ^LOAOf 


FLAG2DWN 

100 

INTPRET 

SSP 

12D 

Si 

6 

vxsc» 


Remove  orbital  integration  glag 


SET  UP  TIX  loop 
12  IN  XI 
6 IN  SI 

TRANSFORM  STATE  AT  TIgN  FROM  REF  TO  SM 


REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

the 


6 

3 

21 

1 


5 

5 

5 

30 


LAST 

LAST 


720 

720 


LAST  720 


LAST 

LAST 

LAST 

LAST 


716 

6B7 

718 

7l4 


07.2413 

07.241^' 

07.2415 

07.2416 
07.241T 

07.2420 

07.2421 

07.2422 

07.2423 
07.242A 

07.2425 

07.2426 


02O15 
16223 
76521 
01275 
06015 
77500 
16H12 
0 0006 
3 1^47 
53.670 
53*631 
52  006 


MXV 

STORE 

TIX,l 

EXTEND 
OCA 
OXCH 
OXCH 
OXCH 


RRECT  *120.1 

SCLRMDAV  *120.1  REF  TO  SM  SCALE  FACTOR 
VSLl 

REFSMMAT 

RIGNTION  *12D.1  STATE  AT  TIGN  IN  SM  COORDINATES 
EXIT 

REFTOSMI 


TET 

TIGN 

AVMIDRTN 

z 

JOB  SET 


PLAY  SAFE  WITH 

STATE  TIME  FOR  nWNLiNK  IN  VPATChER 


BY 


coastint  routine  terminates  the  orbital  integration 

MISSION  scheduling  ROUTINE  fcVERY  539  SECONDS  DURING  COASTING  PHASES, 

the  routine  transfers  the  state  vector  and  all  other  orbital  integration 

QUANTITIES  TO  P-MeMORY,  IT  FORMS  A TOTAL  STATE  VECTOR  AND  TRANSFORMS  IT 

TO  stable  Member  coordinate^  ano  Stores  it  with  time  in  rn.  vn  and 
statime  for  downlink,  the  Routine  then  Removes  the  integration  flag 
TO'  allow  ground  update  of  tHe  staie  vector  and  does  ENDOFJOB, 


REF  3 last  717  07.2427  0 2245  0 COASTINT  TC  MOVETEMP 

REF  73  LAST  721  07.2430  0 6103  0 TC  INTPRET 

07.2431  40575  1 VLOAO  VSR8 


FORM  total  state  VECTOR 


REF  7 LAST  307 

REF  4 LAST  307 

REF  7 LAST  721 

REF  7 LAST  308 

REF  4 LAST  307 

REF  1 


07.2432  01237  0 

07.2433  53342  1 

O7.243A  01253  1 

07.2435  26001  1 

07.2436  01245  0 

07.2437  53202  1 

07.2440  01261  0 

07.2441  02O07  1 


DELTAV 
V5R2  VAD 

REFRCV 

STOVL  RRECT 
NUV 

VSR8  VAD 

REFVCV 

STORE  VRECT  TOTAL  VEL,  VECTOR 


REF  25  LAST  721 


REF  8 LAST  721 

REF  4 LAST  721 

REF  22  LAST  721 

REF  9 LAST  721 


07.2442 

66370 

0 

RXT,1 

SSP 

SET  TIX  LOOP  TO  TRANSFORM  STATE 

TO  SM 

07.2443 

00014 

1 

12D 

O7.244A 

00051 

0 

SI 

07.2445 

00006 

1 

6 

07.2446 

73^3 

0 

TRANTOSM  VLOAD" 

vxsc« 

TRANSFORM  STATE  ANO  RE-STORE  IN 

RRECT 

07.2447 

02015 

1 

RRECT  *12D.1 

O7.245O 

16223 

0 

SCLRMDAV  *12D.l 

07.2451 

76521 

0 

MXV 

VSLl 

07.2452 

01275 

0 

REFSMMAT 

07.2453 

06015 

0 

STORE 

RRECT  *12D.l 

STATE  IN  SM  SYSTEM 
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L integration  initialization 


USER'S  OWN  page  no. 


10 


EA 


0359 

0360  REF 

0361 


07.2A5A  77100  0 TIX.l 

07i2A55  16''A6  0 TRANTOSM 

07.2456  77(7b  1 EXIT 


0362 

07*2457 

0363 

ref 

2 

LAST 

297 

07.2460 

0364 

REF 

31 

LAST 

665 

07.2461 

0365 

REF 

32 

LAST 

722 

07.2462 

0366 

REF 

10 

LAST 

721 

07.2463 

0367 

REF 

33 

LAST 

722 

07.246A 

0368 

REF 

7 

LAST 

713 

07.2463 

0369 

REF 

34 

LAST 

722 

07*2466 

0370 

ref 

1 

07.2467 

0371 

07 .2470 

0 0004  0 INHINT 

3 7F56  1 cAF  eleven 

54  070  1 STATORN  TS  RUPTREGl 

50  070  0 INDEX  RUPTREGl 

3 l‘»00  1 CA  RRECT 

50  070  0 INDEX  RUPTREGl 

55*010  0 TS  RN 

10  O70  1 CCS  RUPTREGl 

1 2‘*61  1 TCF  STATORN 

0 0006  1 EXTEND 


INHIBIT  INTERUPt  TO  STORE  STATE  IN  RN 
initialize  indEx  to  dec  11 

PICK  RRECT  + NEXT  11  REGS 
JAM  IN  RN  TO  RN.ll  FOR  DOWNLINK 


0372  REF  2 LAST  307  07*2471 

0373  REF  2 LAST  321  07.2472 

0374  07.2473 

0375  REF  10  LAST  721  07.247^ 

0376  07.2473 

0377  REF  97  LAST  712  07.2476 


3 1<:71  1 OCA  TE 

53*341  1 OXCH  STATIME 

0 0003  1 RELINT 

0 6O45  0 INTOUT  TC  FLAG2DWN 

OOlOO  0 OCT  100 

0 5PO5  1 TC  ENDOFJOB 


GET  STATE  time 

STATE  AND  TIME  IN  DOWNLINK  REGS 
remove  orbItal  integration  flag 


48895<tA  yjL  SySTEM  f'OR  ^0^,'  NEW  pROG^Avi  SMEpATiN  BY  Eyl-ES 


L Orbital  integration  program 

R0069  F3R3  sets  UP  A TIMeSTEP  CaLL  TO  KtPLER, 


0070 

0071 

REF 

1 

07 

07 

0072 

0073 
007A 

REF 

REF 

2 

1 

LAST 

713 

07 

07 

07 

0075 

0076 

REF 

3 

LAST 

717 

07 

07 

0077 

0078 

0079 

REF 

A 

LAST 

71A 

721 

723 

07 

07 

07 

07 

07 

0080 

0081 

REF 

REF 

6 

7 

LAST 

LAST 

.2477 

50545 

0 FBR3 

OLOAD 

.2500 

02165 

43262 

1 

.2501 

0 

5R3R 

.2502 

O2O45 

1 

.2503 

16161 

0 

STOOL 

.250A 

17^03 

0 

.2505 

54205 

1 

OMP 

.2506 

02163 

1 

.2507 

21515 

0 

.2510 

77615 

0 

DAO 

.2511 

O2O47 

0 

.2512 

O2O47 

0 

store 
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USER'S  0*JN  PAGp  NO.  I 


SR3 

H 

DAD 

TC 

TAU 

EARTHTAB  .90 

SRR 

DT/2 

12D 

TET 

TET 
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L Orbital  integration  program  user's  own  pagf  no.  z 

Pooaa  THIS  ORBITAL  kEPLER  SUBROUTINE  FINOS  THE  POSITION  AND  VELOCITY  OF  THE  vEHICLe  AFTER  TIMf  FOUND  IN  GI^ENT 

Roo9o  SINCE  Rectification  to  position  rRect  and  velocity  vreCt,  the  Resulting  position  and  veiocity  are  left  in 

R0092  FOUNDS  AND  FOUNDV.  RESPECT  I VE.Y , 


0093 

0094 

0095 

REF 

11 

LAST 

722 

07.2513 

07.2514 
07.25lt> 

0096 

07 .2516 

0097 

07.2517 

0098 

07.2520 

0099 

REF 

2 

LAST 

721 

07.2521 

0100 

07.2522 

0101 

07.2523 

0102 

07.2524 

0103 

REF 

1 

07.2525 

0104 

07.2526 

0105 

07 .2527 

0106 

07. 2530 

0107 

REF 

2 

LAST 

724 

07. 2531 

0108 

07 .2532 

0109 

07.2533 

0110 

REF 

12 

LAST 

724 

07.2534 

0111 

REF 

3 

LAST 

724 

07.2535 

0112 

07.2535 

0113 

REF 

2 

LAST 

713 

07.2537 

0114 

O7.254O 

0115 

REF 

1 

07.2541 

0116 

07 .254Z 

0117 

07.2543 

one 

REF 

1 

07.2544 

0119 

REF 

5 

LAST 

723 

07.2545 

0120 

07.2546 

0121 

07.2547 

0122 

REF 

2 

LAST 

724 

O7.255O 

0123 

07.2551 

A0^75  1 KEPLER 
02001  1 
OOOOl  0 
65K56  0 
OOOA5  0 
77a5  1 
02007  1 
6l‘*36  1 
ASKOS  1 
00007  0 
17630  1 
AI532  0 
57P02  1 
56<:i5  1 
17P30  1 
00007  0 
50315  0 
02OOI  1 
02007  1 

63306  1 
O2O3I  1 
50‘:56  0 

02037  1 

77125  1 

00045  0 

16155  I 
02163  1 
54442  1 
77071  1 
O2I55  1 
00012  1 


YLOAD  SETpd  UNIT  oF  RECTIFICATION  POSITION  To  0 

RRECT 
0 

UNIT  PDDL  AND  LENGTH  OF  ORIGINAL  IN  6 

36D 

PDVL  LENGTH  OF  POSITION  AT  RECTIFICATION. 

VRECT 
VSQ  ROUND 

OMP  DSU 

6 LENGTH  OF  POSITION  AT  RECTIFICATION 

DPI/4 

SL2R  PUSH  A4  to  REGISTER  r 

SR2  OCOMP 

OAD  DDV 

DPI/4 

6 

PDvL  DOT  ALPHA  TO  REGISTER  10 

RRECT 
VRECT 

SOUND  PDVL  Al  TO  REGISTER  12 

RCV 

UNIT  DOT 

VCV 

PDDL  IR/2.VC  IN  14D. 

36D 

STODL  ALPHAM  RC  IN  ALPHAM 

DT/2 
SR3  SR3R 

DDV  AXT*2 

ALPHAM 
lOD 


MAX  ITERATION  COUNT  IS  10 
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L orbital  integration  program 


012A  07 

0125  REF  3 LAST  72A  07 

0126  REF  3 LAST  724  07 

0127  07 

0128  07 

0129  07 

0130  07 

0131  07 

0132  REF  1 07 

0133  07 

0134  07 

0135  07 

0136  07 

0137  07 

0138  07 

0139  REF  1 07 

0140  07 

0141  REF  2 LAST  725  07 

0142  07 

0143  07 

0144  REF  1 07 

0145  REF  14  LAST  407  07 

0146  07 

0147  REF  2 LAST  725  07 


t2552 

f2553 

56325 

17330 

0 

POOL 

1 

*255^ 

02155 

1 

*2555 

.2556 

57425 

00013 

0 

DSU 

0 

*2557 

00021 

1 

»2560 

57275 

0 

OMPR 

t256l 

OOO21 

1 

*2562 

17332 

0 

.2563 

52452 

0 

5L3 

♦ 256<* 

57325 

1 

PDDL 

.2563 

00017 

00021 

1 

.2563 

1 

.2567 

41412 

0 

SL4 

.2570 

57221 

1 

BDSU 

.2571 

17353 

1 

.2572 

45221 

1 

3DSU 

.2573 

17356 

1 

.2574 

76405 

1 

OMP 

.2575 

66215 

1 

DAD 

.2573 

O2O5I 

1 

.2577 

00052 

0 

.2600 

00001 

0 

.2601 

O2O5I 

1 

STORE 
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USER'S  OWN  PaGf  NO,  3 

DOV 

DPI/4 

ALPHAM 

DMPR 

Q IN  16 

lOD 

160 

DMPR 

1/4RC  : ALPHA 

Q(  ) 

160 

00  ( ) 

DPI/3 

SL3 

DMPR 

14D 

16D 

PUSH 

DMPR 

DPl/2 

DSU 

DPI/2 

SLIR 

SSP 

XKEP 

S2 

1 

xkep 

16(UR/2.VC)Q  IN  20 

48895^A  ll'JL  system  FOR  aGC:  NE^  PROGRAM  SHePatIN  BY  E^LeS 


L 

POIA8 


0U9 

0150 

0151 

0152 

0153 

0154 

0155 

0156 

0157 

0158 

0159 

0160 
0161 
0162 

0163 

0164 

0165 

0166 

0167 

0168 

0169 

0170 

0171 

0172 

0173 

0174 

0175 

0176 

0177 

0178 

0179 

0180 
0181 


ORBITAL  integration  PROGRAM 

iterating  equations  - GIVEN  X IN  MpAC,  FIND  TIME  OF  FLIGHT. 


07.2602 

07.2603 

07.2604 

REF 

1 

07.2609 

07.2607 

REF 

REF 

3 

LAST 

LAST 

725 

07 .2610 

07.2611 

07.2612 

4 

726 

07 .2613 

61316  1 KTIMEN*!  OSQ  ROUND 

66405  0 OMP  SL2R 

00013  0 lOD 

45UOI  1 SETPD  CALL 

00021  1 16D 

16977  0 S(X)C(X) 

42405  0 OMP  SL4 

O2O5I  1 XKEP 

72A05  0 OMP  SLl 

O2O5I  1 XKEP 


REF  5 LAST  726 

REF  6 LAST  726 

REF  7 LAST  726 

REF  8 LAST  726 

REF  1 


07 

07 

07 

07 

07 

07 

07 

07 

07 

07 

07 

07 

07 

07 

07 

07 

07 

07 

07 

07 

07 

07 

07 


26lA 

2615 

2619 
2617 

2620 
2621 
2622 

2623 

2624 

2625 

2629 
2627 

2630 

2631 

2632 

2633 
263A 
2635 

2639 
2637 

2640 

2641 

2642 


79AO5  1 

02051  1 
OOO3O  1 
65275  1 
00011  1 
O2O5I  1 
42405  0 
00021  1 
41352  0 
02051  1 

77732  1 
00026  0 
74405  0 
00015  0 
77915  0 
57325  1 
00007  0 
02051  1 
77915  0 

44206  0 
02161  0 
00021  1 
77776  1 


OMP  SLIR 
XKEP 

store  230 
OMPR  PDOL 
80 

XKEP 

OMP  SL4 
16D 

SLl  DMP 
XKEP 

5L2R 

STORE  21D 
OMP  SRIR 
120 

OAD 

POOL  OMPR 
6 

xkep 

OAD 

PUSH  BDSU 

GIVENT 

store  160 

EXIT 


OeC  i3»  1996  (Main)  PaGe  729 


USER'S  OWN  page  no.  4 

form  alpha  X-sQuArEd  and  call  S and  c 

SET  PO  INDICATOR  TO  16 


A3 


VALUE  OF  C 

A2 

A1 


compare  with  given  time  of  flight 

DIFFERENCE  TO  RfGISTER  16 
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0182 

0183 

0184 

0185 

0186 

0187 

0188 

0189 

0190 

0191 

0192 

0193 

0194 

0195 

0196 

0197 

0198 

0199 

0200 

0201 

0202 

0203 

0204 

0205 

0206 

0207 

0208 
0209 


Orbital  integration  program 


USER'S  OWN  PaGf  NO.  ^ 


REF  74  LAST  721 

REF  1 

REF  1 
REF  1 

REF  2 last  727 

REF  9 last  726 


07 

*2643 

0 6103 

07 

*2644 

45246 

07 

*2645 

17522 

07 

*2646 

61O40 

07 

*2647 

16T64 

07 

*2650 

16553 

07 

*2651 

77550 

07 

*2652 

16T64 

07 

*2653 

41345 

07 

*2654 

00013 

07 

*2655 

OOO3O 

07 

*2655 

44332 

07 

*2657 

O2O5I 

07 

*2660 

46405 

07 

*2661 

00015 

07 

*2662 

14023 

07 

*2663 

00026 

07 

*2664 

76405 

07 

*2665 

00011 

0 

DUMPDUMP 

TC 

INTPRET 

0 

ABS 

DSU 

1 

KEPSILON 

1 

3MN 

T 1 X , 2 

0 

GETRANDV 

0 

GETNEWX 

1 

GOTO 

0 

GETRANDV 

0 

getnewx 

OLOAD 

DMP 

0 

lOD 

1 

23D 

0 

5L2R 

BDSU 

1 

XKEP 

1 

OMP 

SL4R 

0 

12D 

0 

STODL 

18D 

0 

21D 

1 

OMP 

SLIR 

1 

8D 

FOR  DUMP  ONLY  #»»*»»» 

SEE  IF  within  epsilon  OF  GIVEN  TIME, 
IF  SO*  GET  R AND  V aND  EXIT, 


ALPHA 

A3 


A1 

A2 

A4 


REF  10  LAST  727 
REF  11  LAST  727 
REF  1 


07 

07 

07 

07 

07 

07 

07 

07 

07 


2666 

2667 

2670 

2671 

2672 

2673 

2674 
2673 
2676 


77P15  0 
65215  1 
D0007  0 
00021  1 
43271  1 
00023  0 
02051  1 
36051  0 
16P02  1 


OAD 

DAD 

PDDL 

6 

16D 

RO 

DDV 

DAD 

18D 

XKEP 

STCALL 

XKEP 

KTIMEN+l 

488954A  YJL  SYSteM  FOR  AGC:  NeW  PROGRAM  SHePatIN  BY  eYLeS 


DtC  13,  1966  (MAIN)  page  72b 


L 

P02IO 

R0212 

R0213 

R021A 

R0215 

R0217 


0218 

0219 

0220 
0221 
0222 
0223 
022A 

0225 

0226 

0227 

0228 

0229 

0230 

0231 

0232 

0233 
023A 

0235 

0236 

0237 

0238 

0239 
C0239 


orbital  integration  program  USER'S  OWN  page  no.  6 

subroutine  for  computing  the  universal  conic  functions  S(X)  and  C(X),  the  actual  output  of  this  routine 
CONSISTS  OF  scaled  VERSIONS  DEFINED  AS  FOLLOWS  - 

S (X)  = S(6AX)  C (X)  = C(6AX)/A 

S S 

IT  IS  ASSUMED  THAT  THE  INPUT  ARRIVES  IN  MPAC.MPAC*!  AND  THAT  IT  LIES  BETWEEN  -30/64  AND  40/64,  UPON  EXIT, 
S(X)  WILL  BE  LEFT  IN  MPAC,MPa:»1  «ND  C(X)  ON  TOP  OF  THE  PUSHDOWN  LIST. 


REF  1 


REF  1 


REF  1 


07.2677  OOOA3  0 

07.2700  63434  1 

07.2701  16(26  0 

07.2702  41P06  1 

07.2703  00045  0 

07.2704  76‘*05  1 

07.2705  OOO43  0 

07.2706  57221  1 

07.2707  17530  1 

07.2710  00045  0 

07.2711  64525  1 

07.2712  47125  1 

07.2713  00043  0 

07,271(*  16(45  0 

07,2715  61516  1 


S(X)C(X)  STORE  34D  X TO  34D 

RTB  DSO 

A(X) 

ROUND  PUSH 

STORE  36D  a SQUARED  TO  36D 

OMP  SLIR 

34D  2 2 

3DSU  DMPR  C (X)  = A (.25  - 2XA  ) TO  PD  LIST 

POSl/4  S 

36D 

PDDL  SR2R  2 

PDDL  RTB  A /4  TO  PD  LIST 

34D 
B(X) 

OSQ  ROUND 


REF  1 


07f27l6 

07,2717 

57325 

OOO43 

1 

PDDL 

DMPR 

0 

34D 

07,2720 

00045 

0 

36D 

07,2721 

57221 

1 

3DSU 

DMPR 

07,2722 

17634 

0 

POSl / 16 

07,2723 

43‘'15 

0 

DAD 

ITCQ 

07,272A 

07,2725 

74631 

63145 

0 -1/12 

1 

2DEC 

-.1 

B SQUARED  TO  PD  LIST 


2 2 2 

LEAVES  S (X)sB  (,0625-A  X)*A  /4  IN 
S 

DONT  MOVE, 


MPAC 


^88954A  YJL  SYSTEM  FOR  AGC;  NEW  PROGRAM  SHePATIN  bY  EYLES 


L Orbital  integration  program 

P02A0  A AND  B POLYNOMIALS  WHOSE  COEFFICIENTS  WERE  OBTAINED  W 


02A2  REF  1 07 

02A3  07 

02AA  07 

C02AA  07 

02A5  07 

C02A5  07 

0246  07 

C0246  07 

0247  07 

C0247  07 

0248  07 

C0248  07 

0249  07 

C0249  07 

0250  REF  4 LAST  346  07 

0251  REF  2 LAST  729  07 

0252  07 

0253  07 

C0253  07 

0254  07 

C0254  07 

0255  07 

C0255  07 

0256  07 

C0256  07 

0257  07 

C0257  07 

0258  07 

C0258  07 

0259  REF  5 LAST  729  07 


2726 

0 7265 

1 

A(X) 

TC 

2727 

00D04 

0 

DEC 

2730 

26S01 

1 

2DEC 

2731 

07''63 

1 

2732 

60f24 

0 

2DEC 

2733 

60210 

1 

2734 

03O10 

0 

2DEC 

2735 

26256 

1 

2736 

77554 

0 

2DEC 

2737 

74242 

0 

2740 

oouio 

0 

2DEC 

2741 

05‘'75 

1 

2742 

mn 

0 

2DEC 

2743 

66‘'60 

0 

2744 

0 6U5 

1 

TC 

2745 

0 7265 

1 

B(X) 

TC 

2746 

00004 

0 

DEC 

2747 

32101 

0 

2DEC 

2750 

17270 

1 

275l 

55‘'31 

1 

2DEC 

2752 

4OI74 

1 

2753 

oiao 

0 

2DEC 

275^' 

10660 

0 

2755 

0 

2DEC 

2756 

52270 

0 

2757 

00004 

0 

2DEC 

2760 

21652 

0 

2761 

nm 

0 

2DEC 

2762 

71523 

0 

2763 

0 6115 

1 

TC 

dec  l3.  1966  (MAIN)  PAGE  729 


USER'S  OWN  PAGf  NO.  7 

TH  THE  wAUTOCURvEFIT*  PROGRAM, 

POLY 

4 

7.071067810  E-1 
-4.714045180  E-1 
9.42808914  E-2 

-8.9791893  E-3 

4.989987  E-4 

-1.79357  E-5 

DANZIG 

POLY 

4 

8.164965793  E-1 
-3.265986572  E-1 
5.90988980  E-2 

-4.0085592  E-3 

2.781528  E-4 

-1.25610 
DANZIG 


E-5 
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L orbital  integration  program 

P0260  routine  for  OBTAINING  R AND  V,  NQW  THAT  THE  PROPER  X HAS  BEEN  FOUND. 


0261 

0262 

0263 

026A 

0265 

0266 

0267 

0268 

0269 

0270  REF  A LAST  72A 


07*2764 

40345 

1 

07*2765 

00026 

0 

07*2766 

00032 

0 

07  *2767 

74276 

1 

07*2770 

OOOOl 

0 

07*2771 

45325 

1 

07*2772 

00023 

0 

07*2773 

00030 

1 

07*277A 

74312 

1 

07*2775 

O2OO7 

1 

GETrAndY  OLOAo 

SETpo 

21D 

25D 

dcomp 

PDDL 

YXSC 

0 

DSU 

5L2 

leo 

230 

YXSC 

YRECT 

0271 

0272 

0273  REF  13  LAST  72A 
027A 

0275  REF  I 

0276 

0277 

0278 

0279 

0280 

0281 

0282  REF  12  LAST  727 

0283 
028A 

0285 

0286 

0287 

0288 

0289 

0290 

0291 

0292  REF  5 LAST  730 


07*2776  76'»55  1 YAD 

07*2777  SS^iOS  0 PUSH 

07*3000  02^01  1 

07*3001  A5<*55  1 YAD 

07*3002  75(A6  0 STORE 

07*3003  776A6  0 ABVAL 

07*300A  14021  1 STODL 

07*3005  00013  0 

07*3006  66H05  0 OMP 

07*3007  00030  1 

07*3010  56225  1 OSU 

07*3011  02051  1 

07*3012  00021  1 

07*3013  72561  0 YX5C 

07*301^  00001  0 

07*3015  70525  1 PDDL 

07*3016  00021  1 

07*3017  56225  1 OSU 

07*3020  00026  0 

07*3021  00021  1 

07*3022  53361  0 YXSC 

07*3023  02O07  1 


VSLl 

YAD 

RRECT 

STADR 

FOUNDR 

16D 

lOD 

SL2R 

230 

DDY 

XKEP 

160 

YSL2 

0 

SRI 

160 

OOV 

210 

160 

YAO 

YRECT 


0293 

0294  REF  1 

0295  REF  1 


302A 

3025 

3026 


77(72  0 
36037  0 
02171  1 


YSLl 

STCALL  FOUNDY 
HBRANCH 


USER'S  OWN  PAGF  NO.  8 

A2  from  LAST  ITERATION 

UNIT  OF  GIYEN  POSITION  YECTOR 

LAST  YALUE  OF  T 

LAST  YALUE  OF  A3 

AOOITION  MUST  BE  OONE  IN  THIS  OROER 

resulting  conic  POSITION 

ALPHA 

A3 

LENGTH  OF  FOUND  POSITION 
UNIT  OF  RECTIFICATION  POSITION 

THIS  completes  THE  CALCULATION 


^88954/^  YJL  sVstEM  FOR  aGC!  nEW  Pro^RA>'  SMEPaTIN  BV  EYlEs 
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P0296 

0298 

0299 

0300 
0303 
030A 

0305 

0306 

0307 

0308 

0309 

0310 

0311 

0312 

0314 

0315 

0316 

0317 

0318 


Orbital  integration  program 


USeR‘5  own  PAGf  no.  9 


HE  POSIRUE  ROUT 
REF  1 
REF  1 


INES  set  up  the  beta  vector  And  other  initial  COnDiTiOnS  for  the  next  AfCOMP. 

07*3027  77^31  0 POSTRUE  SSP  VLOAO  TIME  STEP  CALLS  TO  KEPLER  RETURN  HERE 

07*3030  02<:07  0 SCALEA 

07*3031  00004  0 4 

07*3032  02053  0 ALPHAv 

07*3033  53261  1 VSR  VAD 


07*303A 

20613 

1 

REF 

3 

LAST 

724 

07*3035 

02031 

1 

07*3036 

43I54 

0 

REF 

9 

LAST 

717 

07*3037 

02205 

1 

REF 

2 

LAST 

717 

07*3040 

00340 

0 

REF 

1 

07*3041 

17043 

0 

REF 

1 

07*3042 

I2III 

0 

07*3043 

66331 

0 NOSAVEl 

REF 

1 

07*304A 

02210 

0 

07*3045 

00016 

0 

REF 

1 

07*3046 

02173 

0 

07*3047 

0OO02 

0 

REF 

1 

07*3050 

O2O6I 

1 

lOD 

RCV  POSITION  OUTPUT  OF  KEPLER 

LXA*2  BOF 

DIFEQCNT 

WMATFLAG 

NOSAVEl 

store  VECTAB,2 

SSP  SSP  sets  up  scale  b and  gmode 

scaleb 

14D 

GMODE 

2 

STORE  BETAV 
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L Orbital  integration  program  user's  own  pagf  no.  lo 

P0319  AoC  routine  TO  COMPUTE  ACCELERATION  COMPOnEnTS. 


0320 

07.3051 

0321 

REF 

2 

LAST 

731 

07.3052 

0322 

REF 

3 

LAST 

732 

07.3053 

0323 

07 . 305A 

0324 

REF 

4 

LAST 

725 

07.3055 

0325 

07.3056 

0326 

REF 

1 

07 .3057 

0327 

07.3060 

0328 

REF 

2 

LAST 

731 

07.3061 

0329 

07 .3062 

0330 

07.3063 

0331 

07.306A 

0332 

REF 

26 

LAST 

721 

07.3065 

0333 

07.3066 

0334 

REF 

5 

LAST 

732 

07.3067 

0335 

REF 

4 

LAST 

637 

O7.307O 

0336 

07.3071 

0337 

REF 

3 

LAST 

732 

07.3072 

0338 

07 .3073 

0339 

REF 

4 

LAST 

732 

07.307A 

0340 

07.3075 

0341 

REF 

1 

07 .3076 

53575  0 ACCOMP 
02053  0 
16053  0 
OOOA5  0 
02155  1 
TTPOO  1 
I7O6O  1 

7A575  0 ACC0MP2 
O2O6I  1 
A0‘:36  1 
00001  0 
61501  1 
00051  0 
60525  0 

02155  1 

OOOA7  1 
635A2  1 
02061  1 
77556  1 
16061  1 
OOOA5  0 
02157  0 


yload  unit 

ALPHAV 
STOOL  ALPHAV 
360 

STORE  ALPHAM 
30V 

ACC0MP2 
VLOAD  VSRl 
BETAV 
VSO  SETPD 

0 

NORM  ROUND 
SI 

POOL  NORM 

ALPHAM 

XI 

SRI  PDVL 

BETAV 

unit 

STOOL  BETAV 
360 

STORE  BETAM 


TURN  OFF  OVERFLOW  INDICATOR 


NORMEO  B SQUARED  TO  PO  LIST 
NORMALIZE  (LESS  ONE)  LENGTH  OF  ALPHA 
SAVING  NORM  SCAl  E FACTOR  IN  XI 

C(PDL*2)  5 ALMOST  NORMEO  ALPHA 


0342 

0343 

0344 

0345 

ref 

2 

LAST 

36 

0346 

REF 

3 

LAST 

732 

0347 

0348 

REF 

2 

LAST 

731 

0349 

REF 

5 

LAST 

732 

0350 

0351 

REF 

2 

LAST 

731 

07.3077 

07.3100 

55501 

0 

NORM 

BDDV 

00050 

1 

X2 

07.3101 

41562 

0 

SRIR 

PUSH 

07.3102 

57I44 

OOO47 

1 

LXC.2 

XAD.2 

07 .3103 

1 

X2 

07.3104 

02206 

1 

SCALEA 

07.3105 

07.3106 

55O74 

1 

XAD,2 

XSU,2 

00046 

0 

XI 

07.3107 

02207 

0 

SCALES 

07.3110 

53a4 

0 

INCR.2 

SR» 

FORM  normalized  QUOTIENT  ALPHAM/BETAM 

C(PDL*2)  = ALMOST  NORMALIZED  RHo. 

C(X2)  5 -SCALE(rHO)  ♦ 1 

= -S(B)-N(B)*S(A)*N(A)*1 


0352 

0353 

07.3111 

07.3112 

00002 

57I76 

0 

0 

0354 

07.3113 

64^06 

1 

0355 

07.3114 

50515 

0 

0356 

REF 

4 LAST  732 

07.3115 

02053 

0 

0357 

REF 

5 LAST  732 

07.3116 

02061 

1 

0358 

07.3117 

44572 

1 

0359 

0360 

07.3120 

07.3121 

572O6 

00005 

1 

1 

2 


PUSH 

PDVL 

0.2 

SR2R 

DOT 

ALPHAV 

RHO/4  PD*6 

SLIR 

PUSH 

BET  AV 

BUSU 

DMPR 

4 

(RHO/4)  - 2 (ALPHAV/2.BETAV/2) 
TO  PDL*6 

^88954A  YJL  SYSTEM  FOR  AGCj  NEW  PROGRAM  SMePATIN  3Y  EYLeS 


0361 

0362 

0363 
036A 

0365 

0366 

0367 

0368 

0369 

0370 

0371 

0372 

0373 
037A 

0375 

0376 

0377 

0378 

0379 

0380 

0381 

0382 

0383 
038A 

0385 

0386 

0387 

0388 

0389 

0390 

0391 

0392 

0393 
039A 

0395 

0396 

0397 

0398 

0399 
OAOO 
OAOl 

0A02 

0A03 


ORBITAL  integration  PRoGRaM 


REF  1 


REF 

2 

LAST 

733 

REF 

3 

LAST 

725 

REF 

1 

REF 

6 

LAST 

732 

REF 

5 

LAST 

732 

REF 

15 

LAST 

725 

REF 

A 

LAST 

732 

REF 

16 

LAST 

733 

REF 

27 

LAST 

732 

REF 

3 

LAST 

732 

REF 

A 

LAST 

733 

REF 

2 LAST  731 

REF 

1 

REF 

1 

REF 

1 

REF 

1 

07,3122 

A3206 

1 

07,3123 

17530 

1 

07,312A 

75^*06 

1 

07,3125 

AIA75 

1 

07*3125 

00U13 

0 

07,3127 

A3352 

1 

07*3130 

17530 

1 

07*313l 

A3325 

1 

07*3132 

00013 

0 

07*3133 

17556 

1 

07*313A 

72A75 

1 

07*3135 

00011 

1 

07*3135 

56215 

1 

07*3137 

17P2A 

1 

07*31AO 

00017 

1 

07*31Al 

7A275 

1 

07*31A2 

00007 

0 

07*31A3 

02061 

1 

07*31AA 

6A515 

1 

07*31A5 

02053 

0 

07*31A5 

A1A55 

0 

07*31A7 

A13A5 

0 

07*3150 

00001 

0 

07*3151 

00015 

0 

07*3152 

61501 

1 

07*3153 

00052 

0 

07*315A 

70065 

0 

07*3155 

0OO03 

1 

07*3155 

00OA7 

1 

07*3157 

56070 

0 

07*3160 

00051 

0 

07*3161 

00050 

1 

07*3162 

56O70 

0 

07*3163 

02207 

0 

07*316A 

02207 

0 

07*3165 

7A276 

1 

07*3165 

00021 

1 

07*3167 

73206 

1 

07*3170 

02173 

0 

07*3171 

17172 

0 

07*3172 

172A3 

1 

07*3173 

1722A 

0 

07*317A 

17175 

1 

GTABLE 


PUSH 

PUSH 

OMPR 

SLl 

POOL 

DMPR 

DAD 

DMPR 

PDVL 

YAD 

DLOAD 

NORM 

BDDV 

XAD.l 

XAD,1 

DCOMP 

PUSH 

CADR 

CADR 

CADR 
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USER'S  OWN  PAGp  NO.  11 

DAD 

DOUARTER 

SORT 

PUSH 

lOD 

DAD 

Q/A  5 RH0(C(PDL*A) ) TO  PD*8D 
(Q*l)/A  TO  PD*10D 

3/2 

( (Q*l)/A)  TO  PD*12D 

DQUARTER 

DAD 

3/2 

(1/A)*2((Q*1)/A)  TO  PD^lAD 

lOD 

Opl/2 

SLl 

8D 

DDV 

THREE/8 

lAD 

VXSC 

6 

BETAV 

VSR3 

ALPHAV 

(G/2) (C(PD*A) )B/2  TO  PD*16D 

PUSH 

DMP 

0 

A12  ♦ C(PD*16D)  TO  PD*16D 

12D 

ROUND 

S2 

LXC,1 

2 

GAMMA  TO  PD+22D 
- SCALE (GAMMA) -1  TO  XI 

X2 

C{X2)  = SCALEiRhO) 

XA0*1 

S2 

C(S2)  s N( (B,B/A)  (....)3/2) 

Si 

XAD,1 

SCALEB 

SCALEB 

C(S1)  = N(B.B/A) 

VXSC 

16D 

CGOTO 

GMODE 

GTABLE 

GMODEIO 

RESULT  OF  PRECEDING  EQUATION 

GMODEll 

GM0DE12 
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POAOA 

0A06 

0A07 

0A08 

0A09 

0410 

0411 

0412 

0413 

0414 

0415 

0416 

0417 

0418 

0419 

0420 

0421 

0422 

0423 

0424 

0425 

0426 

0427 

0428 


orbital  integration  program  USER’S  OWN  PaGF  no*  12 

the  GM0DE12  ROUTINE  SETS  UP  THE  SECONDARY  BODY  DISTURBING  ACCELERATION  FOR  ACCOMP, 


REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 


1 

7 LAST  733 
6 LAST  733 
2 LAST  732 
6 LAST  732 

2 LAST  717 
1 
1 

8 LAST  734 


3175 

3176 

3177 

3200 

3201 

3202 

3203 

3204 

3205 

3206 

3207 
3210 


77657  0 
20440  0 
26103  1 
02061  1 
16053  0 
02l57  0 
02155  1 
45014  0 
00342  1 
17250  0 

17663  1 
02061  1 


GM0DE12  YSL»  -SCALE (GAMMA) -1  IS  LEFT  IN  XI. 

310,1  ADJUST  GAMMA  TO  SCALE  OF  -32 

STOVL  FV 

BETAV 

5T0DL  ALPHAV  BETA  VECTOR  INTO  ALPHA  FOR  NeXT  ACCOMP 

BETAM 

store  ALPHAM 
BOFF  CALL 

MIDFLAG 

OBLATEST 

MOONPOS 

STORE  BETAV  MOON(EARTH)  POSITION  WILL  BE  BETA  NEXT 


REf  10  LAST  731 
REF  3 LAST  731 
REF  1 

REF  2 LAST  731 


REF  5 LAST  733 

REF  3 LAST  732 

REF  2 LAST  732 


07 

07 

07 

07 

07 

07 

07 

07 

07 

07 

07 


3211 

3212 

3213 
321A 

3215 

3216 

3217 

3220 

3221 

3222 

3223 


43150  1 

02205  1 

00340  0 
17216  1 
06117  0 

55I74  0 N0SAVE2 
00023  0 

02207  0 
52134  0 

02206  1 
I7O6O  1 


LXAfl  BOF 

DIFEQCNT 

WMATFLAG 

N0SAVE2 

STORE  VECTAB  ♦6,1 
AXT,2  XCHX,2 
19D 

SCALEB 
SXA,2  GOTO 

SCALEA 

ACC0MP2 


SAVE  R/QV  IN  vErTAB  FOR  W-MATRIx  UPDATE 


SET  UP  ALPHAM  AND  SrALEA 
SCALE  FOR  R/QV 
SWAP  SCALES  AND  X2 


ENTRY  IF  UNlT(AlPHAV)  AVAILABLE 


^88954A  yJL  system  fOR  Aqc!  NEW  PROCjRAm  sHERATIN  BY  EYLEs 
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L orbital  integration  PRqGRaM  USER'S  OWN  PaGf  no,  13 

P0A29  THE  GMOOEII  ROUTINE  SETS  UP  T HE  S^NS  DISTURBING  ACCELERATION, 


0A30  ■ 07»322A  1 GMODEll  LXC,2  CALL  SET  X2  TO  TABLE  OF  PROPER  CONSTANTS 

OA31  REF  3 LAST  717  07t322S  02<;27  1 PBODY 


ADDTOFV 

CALL  BARICENTER-TO-SliN  POSITION  VECTOR, 

suNPos  leaves  vector  in  PDL 

LXA,l  VLOAD*  COMPUTE  R/PS  USING  CORRECT  TABLE  FOR 

DIFEQCNT  MASS  RATIO,  ETC, 

VECTAB  *6,1 
VXSC  VAD 


0A32 

REF 

1 

07,3226 

0A33 

07,3227 

OA3A 

REF 

1 

07,3230 

OA35 

07,3231 

0A36 

REF 

11 

LAST 

73A 

07,3232 

0A37 

REF 

3 

LAST 

73A 

07,3233 

OA38 

07,323A 

0A39 

07,3235 

OAAO 

07,3236 

OAAl 

07,3237 

OAA2 

REF 

6 

LAST 

73A 

07,32A0 

OAA3 

REF 

9 

LAST 

73A 

07,32Al 

17^62  0 
77P2A  1 
17P65  1 
76Y50  1 
02205  1 
02117  1 
53^57  0 

77T70  1 6,2 

66170  1 AXT,1  SXA,1 

00U3A  0 280 

02207  0 SCALES 

36^61  0 STCALL  BETAV 


USE  SCALAR  AT  ENTRY  6 IN  THE  TABLE 
SET  SCALEB  AND  RETURN  TO  ACCOMP 


OAAA 

REF 

3 LAST 

73A 

07t32A2 

I7O6O 

1 

ACC0MP2 

R0AA5 

THE 

GMODeio 

routine 

ADOS  IN 

the  suns 

Perturbing  acceleration  and  computes  the  oblateNesa  contribution 

0AA7 

07,32A3 

63lAA 

0 

GMODEIO  LXC,2 

INCR,2 

REF 

A LAST 

735 

07,32AA 

02227 

OAA8 

1 

PBODY 

0AA9 

07,32A5 

77T7A 

0 

DEC 

-3 

0A50 

07,32A6 

7762A 

1 

CALL 

OA51 

REF 

2 LAST 

735 

07,32A7 

17362 

0 

ADDTOFV 

OA52 

07,3250 

776U 

1 

OBLATEST  BON 

OA53 

REF 

2 LAST 

717 

07,3251 

00303 

1 

MOONFLAG 

OA5A  REF  1 07,3252  17^50  1 


NBRANCH 


48895^A  YJL  system  FOR  AGCi  NEW  PRO^RI^'I  SHePATIN  BY  EYLES 
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L ORBITAL  integration  PRo(3RaM  USER'S  OWN  PaGf  NO.  lA 

P0A55  He  OaLATE  ROUTINE  COMPUTES  THE  A'-CeLeRAT I ON  DUe  TO  THe  EARTHS  OBLATeNeSS.  2T  USeS  THe  UNIT  OF  THE  VeHIcLE 

R0A57  position  vector  FOUND  IN  ALPHAV  ANO  THE  DISTANCE  TO  THE  CeNteR  IN  ALPHAM,  THIS  IS  ADDED  TO  tHE  SUM  OF  THE 


R0A59 

0A61 

0A62 

0<f63 

0A6A 

0A65 

0A66 

0467 

0468 

0469 

0470 

0471 

0472 

0473 

0474 

0475 

0476 

0477 

0478 

0479 

0480 

0481 

0482 


disturbing  accelerations  in  FV 


REF 

7 

LAST 

734 

07.3253 

O7.325A 

07.3255 

REF 

1 

736 

07 .3256 

07.3257 

07.3260 

07.3261 

07.3262 

07.3263 

REF 

REF 

8 

1 

LAST 

REF 

REF 

REF 

1 

9 

1 

LAST 

736 

07.326^ 

07.3265 

07.3266 

07.3267 

07.3270 

07.3271 

REF 

1 

07 .3272 

07.3273 
O7.327A 

REF 

REF 

10 

1 

LAST 

736 

07.3275 

07.3276 

07.3277 
07.3300 

AN^  the  proper  DIFEO  STA&E  IS  CALLED  VIA  Xi, 

77(45  1 OBLATE  DLOAD 

02D57  1 ALPHAV  .4  Z COMPONENT  OF  POSITION  IS  COS  PHI 

ST-^Ol  0 SETPD  DMPR 

OOOOl  0 0 

17640  0 3/4 

63625  0 PDDL  DSQ  P2;/8  TO  REGISTER  0 

02057  1 ALPHAV  *4 

57<:52  0 5L3  DMPR 

17636  1 15/16 

4l‘*25  1 DSU  PUSH  P35/4  TO  REGISTER  2 

17624  1 3/8 

57^^75  0 OMPr  DMPR 

02057  1 ALPHAV  *4 


17644  1 
65352  0 
OOOOl  0 
44':75  1 
17R62  0 
57^:06  1 

02057  1 

65^75  1 
17646  0 


SLl 

OMPR 

PUSH 

OMPR 


7/12 

PDDL 

0 

BDSU 

2/3 

DMPR 

ALPHAV  *4 

PDDL 

9/16 


P4i/16  TO  register  4 


BEGIN  COMPUTING  P5i/128 


0483 

07.3301 

00003 

1 

0484 

07.3302 

44275 

1 

0485 

REF 

1 

07.3303 

17650 

1 

0486 

07.330A 

62H05 

1 

0487 

REF 

1 

07 .3305 

17654 

0 

0488 

07.3306 

43271 

1 

0489 

REF 

7 

LAST 

734 

07.3307 

02155 

1 

0490 

07.3310 

00005 

1 

0491 

07.3311 

56275 

1 

0492 

REF 

1 

07.3312 

17652 

0 

0493 

REF 

8 

LAST 

736 

07.3313 

02155 

1 

0494 

07.331A 

74215 

1 

0495 

07.3315 

00003 

1 

0496 

REF 

11 

LAST 

736 

07.3316 

02053 

0 

0497 

REF 

12 

LAST 

736 

07.3317 

I6O53 

0 

2 

OMPR  BDSU  FINISH  P5;/l28  AND  TERM  USING  UnIT 

5/128  position  VECTOR  AT  ALPHA 

OMP  SL2 

J4REQ/J3 
ODV  DAD 

ALPHAM 

4 

OMPR  DDV 

2J3RE/J2 

ALPHAM 
OAD  VXSC 

2 

ALPHAV 
STODL  ALPHAV 


A88954/V  YJL  SVSTEM  fOR  A^C!  NE^  Pro'^RA'^  S^ePatIN  BY  eYLe5 


L orbital  integration  program 


0A98 

0A99 

0500 

0501 

0502 

0503 
050A 

0505 

0506 

0507 

0508 

0509 

0510 

0511 

0512 

0513 
051A 

0515 

0516 

0517 

0518 

0519 

0520 

0521 

0522 

0523 
052A 

0525 

0526 

0527 

0528 

0529 

0530 

0531 

0532 

0533 
053A 

0535 

0536 

0537 

0538 

0539 
05A0 
05A1 
05A2 
05A3 


REF 

2 

LAST 

736 

REF 

9 

LAST 

736 

REF 

2 

LAST 

736 

REF 

10 

LAST 

737 

REF 

13 

LAST 

736 

REF 

lA 

LAST 

737 

REF 

11 

LAST 

737 

REF 

6 

LAST 

732 

REF 

1 

REF 

15 

LAST 

737 

REF 

2 

LAST 

73A 

REF 

3 

LAST 

737 

REF 

12 

LAST 

735 

REF 

262 

LAST 

69A 

REF 

1 

REF 

263 

LAST 

737 

REF 

1 

REF 

1 

REF 

1 

REF 

1 

REF 

28 

LAST 

733 

REF 

29 

LAST 

737 

REF 

A LAST 

737 

REF 

5 LAST 

737 

07.3320 

72‘»05 

0 

07.3321 

1765A 

0 

07.3322 

A3271 

1 

07.3323 

02155 

1 

07.332A 

50525 

0 

07.332& 

17652 

0 

07.3326 

77675 

0 

07.332T 

A3<i71 

1 

07.3330 

02155 

1 

07.3331 

77621 

1 

07.3332 

O2O57 

1 

07.3333 

16057 

1 

07.333^* 

02155 

1 

07.3333 

63516 

0 

07.3336 

55301 

0 

O7.333T 

ooyA7 

1 

07.33A0 

176A2 

1 

07.33A1 

52161 

0 

07*33A2 

O2O53 

0 

07.33A3 

OOOOA 

0 

07.33AA 

53^:57 

1 

07.33A5 

20201 

0 

07.33A6 

02103 

1 

07.33AT 

02103 

1 

O7.335O 

72135 

0 

07.3351 

02206 

1 

07.3352 

OOlAA 

0 

07.3353 

73205 

1 

07.335^ 

16^25 

0 

07.3355 

001A5 

1 

07.3356 

17357 

0 

O7.335T 

17^5A 

1 

07.3360 

17‘»60 

0 

07.3361 

17‘»71 

0 

07.3362 

77^A3 

1 

07.3363 

77^76 

1 

07.336‘* 

2A051 

0 

07.3365 

00027 

1 

07.3366 

73670 

1 

07.3367 

00050 

1 

07.3370 

77^75 

1 

07.3371 

53257 

1 

07.3372 

202A0 

0 

07.3373 

02103 

1 

07.337^ 

07.3375 

02103 

77616 

1 

0 

OMP 

ODV 

PDDL 

5MPR 

DDV 


3D5U 

STOOL 

OSQ 

NORM 

YXSC 

YSL* 

STORE 
NBRANCH  SLOAD 

OMP 


difeqtab 

CADR 

CADR 

CADR 

ADDTOFV 

DLOADtt 

STOVL 

XAD.l 

YSL« 


STORE 

ITCQ 


Dec  13*  1966  IMAIN)  PaGe  T3/ 


USeRiS  own  PAGf  no.  15 

SLl 

JARE0/J3 

DAD 

ALPHAM 

SR  3 

2J3RE/J2 

DAD 

ALPHAM 

ALPHAV  ♦A 
ALPHAV  tA 
ALPHAM 

DSQ 

BDDV 

XI 

J2REQS0 

INCR.l 

COMPUTE  TERM  USING  IZ 

ALPHAV 

A 

VAD 

0.1 

FV 

FV 

LXA.l 

DIFEQCNT 

MPAC 

CGOTO 

-1/12 

MPAC 

SHIFTS  LEFT  ON  ..  RIGHT  ON 

DIFEQTAB 

DlFEO+0 

DIFE0*1 

DIFEQ.2 

0.2 

SI 

22D 

VXSC* 

SI 

1.2 

VAD 

31D.1 

FV 

FV 

SETS  UP  SI  AND  9.2  PeR  PRIMARY  BODY  TABLE 

488954A  YJL  SYSTEM  P-OR  AGC;  NEW  PROGRAM  S^ePATIN  BY  eYLeS 


Dec  13»  1966  (MAIN)  PAGE  73B 


u Orbital  integration  program 

P05AA  BEGIN  INTEGRATION  STEP  WITH  R ECT I f I CAT  ION  TEST. 


0545 

0546 

REF 

2 

LAST 

713 

0547 

REF 

1 

0548 

REF 

2 

LAST 

713 

0549 

REF 

1 

0550 

0551 

REF 

4 

LAST 

733 

0552 

0553 

REF 

1 

0554 

REF 

2 

LAST 

719 

0555 

0556 

REF 

1 

0557 

REF 

1 

0558 

REF 

2 

LAST 

730 

0559 

REF 

1 

0560 

0561 

REF 

1 

0562 

0563 

REF 

2 

LAST 

738 

0564 

REF 

16 

LAST 

737 

0565 

REF 

1 

0566 

REF 

2 

LAST 

723 

0567 

REF 

13 

LAST 

737 

0568 

REF 

3 

LAST 

738 

3376 

3377 
3AOO 

3401 

3402 

3403 
340^ 

3405 

3406 

3407 

3410 

3411 

3412 

3413 
34l'» 

3415 

3416 

3417 

3420 

3421 

3422 

3423 
342<* 
3425 


77(75  1 TIMESTEP 

02023  1 

26222  1 

02015  1 

02214  1 

45246  0 

17P56  1 

45040  1 

17‘»10  1 

17‘»26  1 


YLOAD 

TNUv 

STOOL  ZV 

TDELTAV 
STORE  YV 
ABVAL  DSU 

OPl/2 

3MN  CALL 

INTGRATE 

RECTIFY 


66331 

02171 
16‘*77 

02172 
17027 
77P14 
00261 
77(75 
02214 
16053 
17P60 
02165 
36206 
02171 


0 

1 

1 

1 

1 

1 

1 

1 

1 

0 

1 

1 

0 

1 


INTGRATE  SSP  SSP 

FBRANCH 
CADR  FBR3 

HBRANCH 
CADR  POSTRUE 
CLEAR 

JSWITCH 

DIFEQO  OLOAO 

YV 

STOOL  ALPHAV 
DPZERO 
STORE  H 
STCALL  OIFeQCNT 
HBRANCH 


USER'S  OWN  PAGF  no.  16 


MOVE  temporary  oelta  and  nu  vectors 
TO  working  storage 


RECTIFICATION  RpQUlREO  IF  THe  LeNGTH 
OF  delta  is  greater  than  .5  (8<M). 


INITIALIZE  indices  AND  SWITCHES 
EXIT  FROM  DIFEQCOM 

EXIT  FROM  KEPLER 


1 FOR  W MATRIX  EXTRAPOLATE.  0 OlHERWISE. 

position  deviation  into  alpha 


START  H AT  ZERO.  GOES  0 (DELT/2 ) DELT . 
ZERO  DIFEQCNT  AmD  REGISTER  FOLLOWING, 
GOES  0(-12D) (-240) . 


488954A  YJL  SYSTEM  FOR  AGCS  NeW  PROGRAM  SMePatIN  BY  eYUeS 


Dec  1^*  1966  (MAIN)  PAGe  Y39 


L orbital  integration  program  USER'S  OWN  PAGf  no,  1? 

P0569  THE  rectify  SUBROUTINE  IS  CAl.EO  “Y  THE  InTEGRATiOn  PROGRAM  AnD  OCCASiOnALLY  BY  THE  MEA.e,UREMENT  InCOrPOrAT  I On 

R0571  routines  TO  ESTABLISH  A NEW  CONIC* 


0572 

0573 
057A 

0575 

0576 

0577 

0578 

0579 

0580 

0581 

0582 

0583 
058A 
0585 


REF 

3 

LAST 

738 

REF 

A 

LAST 

731 

REF 

lA 

LAST 

730 

REF 

5 

last 

739 

REF 

3 

LAST 

738 

REF 

2 

LAST 

72A 

REF 

6 

LAST 

730 

REF 

30 

LAST 

737 

07,3A26 

A0575 

1 

07  »3a27 

O2VI5 

1 

07*3A30 

53AA2 

1 

07,3A3l 

O2O3I 

1 

07*3A32 

02001 

1 

07,3A33 

26031 

1 

07,3A3A 

02023 

1 

07,3A35 

53202 

1 

07»3A36 

02037 

1 

07*3A3T 

O2OO7 

1 

07*3AA0 

66370 

0 

07,3AAI 

OOOIA 

1 

07,3AA2 

00051 

0 

07*3AA3 

OOOO2 

0 

rectify 


YLOAD  VSR8  RECTIFY  - FORM  tOTAL  POSITION  AND  VEU. 

TDELTAv  adjust  SCALE  DIfFERfNCE  (ASSUMED 

YSR2  VAD  CONSTANT  MERE.) 

RCV 

STORE  RRECT 

5T0VL  RCV  SET  UP  CONIC  .ANSWER*  FOR  TIMEStEP 

TNUV 

VSR8  VAD  SAME  FOR  VELOCITY, 

VCV 

STORE  VRECT 
AXT.1  SSP 

120  ZERO  DELTA,  NU,  AND  TIMt  SINCE  RECT, 

SI 

2 


0586 

REF 

3 

LAST 

739 

07,3AAA 

0587 

REF 

2 

LAST 

738 

07  * 3AA& 

0588 

REF 

3 

LAST 

723 

07»3AA6 

0589 

REF 

13 

LAST 

730 

07  * 3AA7 

0590 

REF 

3 

LAST 

738 

07*3a50 

0591 

REF 

A 

LAST 

739 

07,3A5l 

0592 

07*3a52 

0593 

REF 

1 

07,3A53 

I6O37 

17660 

1 

STODL 

1 

02OA5 

1 

store 

02051 

1 

store 

06230 

0 

ZEROLOOP  STORE 

06031 

0 

STORE 

A3500 

0 

TIX.l 

17A50 

0 

VCV 

DPZERO 

TC 

XKEP  ZERO  X. 

YV  ♦12D,1  indices  CAUSE  LOOP  TO  ZERO  6 CONSECUTIVE 

TDELTAV  ♦IZD.l  DP  NUMBERS  (DELtA  AnD  NU  ARE  ADJACENT). 

ITCQ  LOOP  OR  START  INTEGRATION  STEP  IF  DONE. 

ZEROLOOP 


488954A  YJL  SYSTEM  FOR  AGC!  NEW  PRO<jRAM  SMePatIN  BY  eYLeS 


Dec  U*  1966  (MAIN)  PAGE 


P059A 

R0596 

0598 

0599 

0600 
0601 
0602 
0603 
060A 

0605 

0606 

0607 

0608 

0609 

0610 
0611 
0612 
0613 
061A 

0615 

0616 

0617 

0618 

0619 

0620 
0621 
0622 

0623 

0624 

0625 

0626 

0627 

0628 

0629 

0630 

0631 

0632 
06321 

0633 

0634 

0635 

0636 

0637 


Orbital  integration  program  user's  own  page  no.  ib 

THE  THREE  DIFeO  ROUTINES  _ DieE3>0»  DIFEQ*12*  AND  DIFeQ*24  - ARE  ENTEREDTO  PROCESS  THp  CONTRIBUTIONS  AT  THE 

beginning*  Middle*  anD  end  of  the  timestep*  respectively,  the  updating  is  done  by  the  nvstrom  method. 


REF  6 LAST  737 
REF  1 
REF  1 

REF  7 LAST  740 

REF  2 LAST  740 

REF  1 


REF  3 LAST  740 
REF  4 LAST  740 
REF  2 LAST  740 

REF  3 LAST  738 
REF  1 

REF  5 LAST  740 
REF  2 LAST  738 
REF  4 LAST  740 


345A 

3455 

3456 

3457 

3460 

3461 

3462 

3463 

3464 

3465 

3466 

3467 

3470 

3471 

3472 

3473 
347A 
3475 
347<> 
347? 

3500 

3501 


64575  1 DlFEQ+0 
02103  1 
36067  0 
17563  1 

74575  0 DIFE0*1 

02103  1 

53206  0 
02067  1 
26075  1 
53362  0 


VLOAD  VSR3 
FV 

STCALL  PHIV 

DIFEQCOM 
VLOAD  VSRl 
FV 

PUSH  VAD 
PHiV 
STOVL  PSIV 
VSRl  VAD 


02067  1 
36067  0 
17563  1 

57345  1 DIFEQ*2 
02165  1 
17562  0 

74206  0 
02067  1 
53372  1 
02222  1 
53361  0 
02165  1 


PHIV 
STCALL  PHIV 

DIFEQCOM 
OLOAD  DMPR 
H 

DP2/3 

PUSH  VXSC 
PHIV 

VSLl  VAD 
ZV 

VXSC  VAD 
H 


REF 

4 

LAST 

739 

07*3502 

02214 

1 

YV 

REF 

5 

LAST 

740 

07  *3503 

26214 

1 

STOVL 

YV 

REF 

8 

LAST 

740 

07*3504 

02103 

1 

FV 

07*3505 

53322 

1 

VSR3 

VAD 

REF 

2 

LAST 

740 

07*3506 

O2D75 

1 

PSiV 

07*3507 

76561 

1 

VXSC 

VSLl 

07*3510 

43055 

0 

VAD 

BOFF 

REF 

3 

LAST 

740 

07*3511 

02222 

1 

ZV 

REF 

2 

LAST 

738 

07*3512 

00341 

1 

JSWITCH 

REF 

1 

07*3513 

17533 

1 

ENDSTATE 

07  * 35 1 A 

77  no 

1 

AXT  * 1 

07*3515 

00000 

1 

0 

REF 

1 

07*3515 

12341 

1 

STORE 

W +720*2 

07  *3517 

77  ?45 

1 

OLOAD 

REF 

6 

LAST 

740 

07*3520 

02214 

1 

YV 

REF 

2 

LAST 

740 

07*3521 

12275 

1 

STORE 

W +36D*2 

07  *3522 

52104 

0 

T 1 X * 2 

GOTO 

REF 

1 

07*3523 

17525 

0 

NEXTCOL 

REF 

2 

LAST 

717 

07*3524 

02204 

0 

STEPEXIT 

SEE  IF  THIS  IS  STATE  VECTOR  OR  « COLUMN, 


VELOCITY  COLUMN  VECTOR 


POSITION  COLUMN  VECTOR 


488954A  YJU  system  FOR  AGCi  NeW  Pro'JRAM  S^ePatIN  BY  eYLeS 


L Orbital  integration  program 


0638 

0639 

REF 

0690 

REF 

0691 

REF 

0692 

REF 

0693 

REF 

0699 

REF 

0695 

REF 

0696 

REF 

0697 

REF 

0698 

0699 

0650 

REF 

0651 

REF 

0652 

0653 

REF 

0659 

REF 

0655 

0656 

0657 

REF 

0658 

0659 

REF 

0660 

0661 

REF 

0662 

REF 

0663 

0669 

REF 

0665 

0666 

0667 

REF 

LAST 

07*3525 

77(73 

1 

3 

790 

07  *3526 

75502 

1 

7 

LAST 

790 

07*3527 

32219 

1 

9 

LAST 

791 

07*3530 

75‘?36 

1 

9 

LAST 

790 

07*353X 

36222 

0 

1 

07*3532 

17‘*17 

0 

9 

LAST 

739 

07*3533 

26023 

1 

8 

LAST 

791 

07*353A 

02219 

1 

5 

LAST 

739 

07*3536 

16015 

1 

5 

LAST 

790 

07*3536 

02165 

1 

07*3537 

69‘'02 

0 

07*3590 

77515 

0 

9 

LAST 

739 

07*3591 

02095 

1 

5 

LAST 

791 

07*3592 

02095 

1 

07*3593 

77019 

1 

9 

LAST 

739 

07*3599 

00390 

0 

3 

LAST 

790 

07*3595 

02209 

0 

07*3596 

OOO99 

1 

07*3597 

76131 

0 

17 

LAST 

733 

07*3550 

00052 

0 

07*3551 

00006 

1 

1 

07*3552 

17603 

1 

LAST 

07*3553 

66130 

0 

2 

738 

07  *355A 

O2I7O 

0 

9 

LAST 

738 

07*3555 

O2I7I 

1 

07*3556 

76019 

0 

3 

LAST 

790 

07*3557 

00161 

1 

07*3560 

00000 

1 

07*356l 

77650 

1 

2 

LAST 

790 

07*3562 

17525 

0 

NeXTCOL  vload* 
STOVL» 
5TCALL 

ENOSTATE  STOVE 

STOOL 

SRA 

OAD 

store 

30FF 


5SP 

SXA.l 

INVERT 

GOTO 


W «360«2 
YV 

W ♦720*2 
ZV 

DIFEQO 

TNUV 

YV 

TOELTAV 

H 

SR2R 

TC 

TC 

AXT,2 

WMATFLAG 

STEPEXIT 

360 

AXT  ,1 

S2 

6 

oow.. 

SXA.l 

FBRANCH 

HBRANCH 

AXT*1 

JSWITCH 

0 

NEXTCOL 


Dec  l3t  1966  (MAIN)  PaGe  7Al 


USER'S  OWN  PaGF  no. 

SET  UP  NEXT  COLUMNS  OF  W MATRIX 
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L Orbital  integration  program 

PO668  COMES  here  to  finish  first  TWOi  OIFEQ  COMPJTATIONS, 


0669 

0670 
0671 

REF 

REF 

6 

6 

LAST 

LAST 

724 

741 

0672 

0673 

0674 

REF 

14 

LAST 

738 

0675 

REF 

7 

LAST 

742 

0676 

0677 

REF 

9 

LAST 

740 

0678 

07*3563 

43345 

1 

DIFEQCOm  OLOAd 

dad 

07*356A 

32163 

1 

DT/2 

07*3565 

02165 

1 

H 

07  *3566 

66110 

1 

INCR,1 

SX  A * 1 

07*3567 

77^63 

0 

3EC 

-12 

07*3570 

32205 

1 

DIFEQCNT 

07  *357 1 

02l65 

1 

ST  Ore 

H 

07*3572 

74561 

0 

YXSC 

VSRl 

07*3573 

07*357A 

02103 

74255 

1 

0 

YAD 

FV 

VXSC 

0679  ref  5 LAST  7A1  07*3575  D2222  1 

0680  REF  8 LAST  7A2  07*3576  02i65  I 

0681  07*3577  77655  1 

0682  REF  9 LAST  7A1  07*3600  02<:iA  1 

0683  REF  17  LAST  738  07t360l  36^53  1 

0684  REF  3 LAST  741  07*3602  02i70  0 


ZV 

H 

YAD 

YV 

STCALL  ALPHAV 
FBRANCH 


USER'S  OWN  PAGF  NO*  20 


increment  h and  dIfeqcnt. 


DIFEQCNT  SET  FOR  NEXT  ENTRY, 
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P0685 

R0687 

R0689 

0691 

0692 

0693 

069A 

0695 

0696 

0697 

0698 

0699 

0700 

0701 

0702 

0703 
070A 


07BITAL  integration  PROGRAM 


USER'S  OWN  PAGf  no.  21 


07BITftL  routine  FOR  EXTRAPOLATION  OF  jHe  W MATRIx.  IT  COMPUTES  THE  SeCOND  DeRIvATIvE  OF  EACH  COLUMN  POSITION 
Vector  of  the  matrix  and  calls  the  nystrom  integration  routines  to  solvethe  difFeReNtiai  equations,  tHe  program 
uses  a table  of  Vehicle  position  Vectors  computed  during  the  integration  of  the  vehicles  position  ano  Velocity, 

REF  18  LAST  792 


REF  9 LAST  735 
REF  19  LAST  793 

ref  I 


REF  10  LAST  792 
REF  2 LAST  735 


07.3603 

07.3609 

07.360t> 

50575 

02053 

53513 

0 DOW.. 

0 

0 

VLOAD 

PDVL* 

VSR6 

ALPHAV 

UNIT 

07.3606 

02111 

1 

VECTAB.l 

07.3607 

96315 

1 

PDVL 

VPROJ 

07.3610 

02053 

0 

ALPHAV 

07.3611 

52361 

1 

vxsc 

VSU 

07.3612 

17P26 

0 

3/16 

07.3613 

91325 

0 

PDDL 

DMP 

07.361A 

OOOA3 

0 

39D 

07.361S 

00095 

0 

36D 

07.3616 

95591 

0 

V/SC 

STADR 

07.3617 

91P79 

1 

STCALL 

FV 

07.3620 

17350 

1 

NBRANCH 

^88954A  YJL  SYSTEM  FOR  AGCj  NEW  PROGRAM  S^EPATIN  BY  EYLeS 
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L Orbital  integration  program  useR'S  own  pagf  no.  22 

P0705  constants 


0706 

0707 

0708 
C0708 

0709 
C0709 

0710 
C0710 

0711 
C0711 

0712  REF 

0713 
C0713 

071A  REF 

0715  REF 

0716 
C0716 

0717 
C0717 

0718 
C0718 

0719 

C0719 

0720 
C0720 

0721 
C0721 

0722 
C0722 

0723 
C0723 

072A 

C072A 

0725 
C0725 

0726 
C0726 

0727  REF 


A LAST  725 


5 LAST  7AA 
2 LAST  733 


2 LAST  7A0 


07»362l 

ooooo 

1 

07,3622 

00002 

0 

07,3623 

uooo 

1 

07,362A 

OOOOO 

1 

07,3625 

06000 

1 

07,3626 

OOOOO 

1 

07 ,3627 

10000 

0 

07,3630 

ooooo 

1 

07,363l 

12525 

0 

07,3632 

12525 

0 

07»3627 

07,3633 

O2OOO 

0 

07,363A 

OOOOO 

1 

07*3627 

07*3623 

1 

07 1 3635 

36^00 

07,3636 

OOOOO 

1 

07,3637 

30O00 

1 

07,36A0 

OOOOO 

1 

07,36Al 

12577 

1 

07,36A2 

24106 

0 

07,36A3 

22525 

0 

07,36AA 

12525 

0 

07,36A5 

22OOO 

1 

07,36A6 

OOOOO 

1 

07,36A7 

01200 

1 

07,3650 

OOOOO 

1 

07,3651 

77ai 

0 

07,3652 

71033 

1 

07,3653 

23377 

0 

07,365A 

06fO3 

0 

07,3655 

20000 

0 

07,3656 

OOOOO 

1 

07,3657 

ooooo 

1 

07,3660 

OOOOO 

1 

07,3661 

25252 

0 

07,3662 

25253 

07*36< 

1 

>1 

kepsilon 

THREE/8 

OCT 

OCT 

2DEC 

OOOOO 

00002 

.375 

3/16 

2DEC 

3 B -4 

DPI/4 

2DEC 

.25 

OPl/3 

2DEC 

.333333333 

D3UARTER 

EQUALS 

DPI/4 

PDSl/16 

2DEC 

.0625 

POSl/4 

EQUALS 

DPl/4 

3/8 

equals 

THREE/8 

15/16 

2DEC 

15,  B -4 

3/4 

2DEC 

3.0  B -2 

J2REQSQ 

2DEC 

2DEC 

.335914874 

7/12 

•5833333333 

9/16 

2DEC 

9 B -4 

5/128 

2DEC 

5 B -7 

2J3RE/J2 

2DEC 

-.003309146 

J4REQ/J3 

2DEC 

.60932709 

DPl/2 

2DEC 

.5 

DPZERO 

2DEC 

0.0 

DP2/3 

2DEC 

.6666666667 

2/3 


EQUALS  DP2/3 


SECOND  HARMONIC  TIMES  SQUARE  OF  RADIUS, 
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P0728 

0730 

0731 

0732 

0733 
073A 
0735 


0736 

0737 
C0737 

0738 

0739 
C0739 

07A0 

C07A0 

07AI 

07A2 

C07A2 

07A3 

07AA 


Orbital  integration  program  useris  own  pag?  no#  23 

DJMMYMOON  POSITION  ROUTINf,  SJN  POSITION  ROUTiNEt  AND  PBODY  TABLE  FoR  CHECKOUT  OF  EARtH.ORBI TAL  ONLY 


07.3663 

A3»75 

1 

MOONPOS 

VLOAD 

REF 

1 

07.366A 

I7t>72 

1 

07.3663 

77‘:0l 

1 

SJNPOS 

SETPD 

07.3666 

OOOOl 

0 

REF 

1 

07.3667 

07.3670 

17975 

77916 

0 

0 

ITCQ 

ItCQ  LOAD  constant  VfCTOR  INTO  A AND  EXIT. 

MOONVEC 

VLOAD  RETURNS  WITH  VECTOR  IN  VAC  AND  IN  POL, 

0 

SUNVEC 


REF  A LAST  723 
REF  5 LAST  7A5 


07.3671 

OOOO6  1 

EARTHTAb 

DEC 

6 

07 .3672 

DOOOO  1 

2DEC 

0.0 

07.3673 

30000  1 

07.367A 

00012  1 

DEC 

10 

07.3675 

00000  1 

2DEC 

0.0 

07.3679 

00000  1 

07.3677 

00000  1 

2DEC 

0.0 

07.3700 

00000  1 

07.3701 

77FA3  1 

DEC 

-28 

28 

07.3702 

2a21A  0 

2DEC 

,6335627 

AOO/SQRT (MU) 

07.3703 

112AA  0 

07*3671 

MOONVEC 

EQUALS 

EARTHTAB 

07*367A 

SUNVEC 

equals 

EARTHTAB  *3 

3/2 
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L LMP  COMMAND  ROUTINES  USER'S  OWN  PAGE  NO.  1 

ROOOl  THE  following  SUBROjriyjEiJ  ALLOW  MjSSiOn  PROGRAMS  TO  REQUEST  LMP  (LEM  MiSSiOn  PROGRAMMER)  OUTPUTS. 

R0003  THE  proper  DECIMAL  CODE  IS  ENIEReI^  INTO  A TABLE  AND  FROM  THeNCE  TO  CHANNEL  lo  VIA  T4RUPT  AND  ARE  INCLUDED  IN 
R0005  THE  DOWNLINC. 


ROOO6  FOUR  ROUTINES  ARE  PROVIDED; 

A0007  TC 

A0OO8  DEC 

A0009  TC 

AoOlO  DEC 

AOOll  DEC 


ILMP  called  under  EXpC  OR  RUPT.  DeLWERS  CODE 

lmpcode  and  Returns  immediately. 

2LMP  SAME  AS  ILMP  BUt  TWO  CODES  ARE 

LMPCODEI  SENT. 

LMPCODE2 


A0012 

A0013 

A0014 

AOOI5 

A0016 

A0017 

A00I8 

R00185  WARNING  «»»##  PROGRAMS  UNDER 


TC  ILMP+DT 

DEC  LMPCOdE 

dec  DT 

TC  2LMP*DT 

DEC  LMPCODEI 

DEC  LMPCODE2 

DEC  DT 

EXeC  which  call  ILMP  ♦ 2LMP  MUST  FIRST 


ASSUMES  called  aS  PART  OF  WAITLIST  TASK. 

delivers  lmp  cOdE.  does  a varqelay  for 

DT.  and  then  returns  UNDER  WL  CONTROL. 
same  as  ILMP+DT  BUT  TWO  CODES  SENT. 


ROOI86 


INHIBIT  interrupt. ‘..RETURNS  STILL  INHIBITED. 


0019 

0020  REF  212  LAST  717  5065 

0021  5066 

0022  REF  213  LAST  746  5067 

0023  REF  214  LAST  746  507O 


00231 

00232  REF  1 

00233  REF  3 LAST  89 


0024  ref  1 5071 

0025  REF  215  LAST  746  5072 

0026  REF  216  LAST  746  5073 

0027  507A 

0028  REF  217  LAST  746  5075 

0029  REF  37  LAST  527  5076 

0030  ref  4 LAST  320  5077 

0031  REF  22  LAST  321  5IOO 

0032  rEf  5 last  746  510l 


5065 

BLOCK 

02 

"02 
3 OUOO 
24  U02 

U 

1 

0 

2LMP 

INDEX 

CA 

INCR 

Q 

0 

0 

22  WU2  U 

0002 

LMPGROUP 

LXCH 

equals 

equals 

equals 

0 

2 

1115 

1102 

lmptbase 

LMPPHASE 

TBASE2 

PHASE2 

0 5076 

22  002 

0 

TC 

STORCOM 

0 

LxCH 

0 

5D  002 
3 0000 

0 

ILMP 

index 

0 

1 

CA 

0 

24  002 

0 

INCR 

0 

6 7T37 

0 

AD 

BIT15 

51*142 

1 

STORCOM 

INDEX 

LMPIN 

55*132 

1 

TS 

LMPCMD 

11*142 

0 

UpLMPIN 

CCS 

LMP  IN 

PICK  UP  1ST  CODF 

SAVE  2ND  CODE  AnDRESS  IN  L 


TO  STORE  IN  buffer  AND  UPDATE  POINTER 
RETREIvE  2ND  CODE  ADDRESS  FROM  L, 

GET  LMP  CODE 
SET  RETURN. 

SET  SIGN  TO  SHOW  NEW  COMMAND  IN  BUFFER 

INSERT  IN  NEXT  c,LOT  IN  BUFFER 
update  pointer 


^8895^A  YJL  system  FOr  aGC!  NEW  PrOGraM  SMEPaTIN  BY 


0033 

003A 

0035 

0036 

0037 

0038 

0039 
OOAO 

00<V1 

00A2 

0043 

0044 

0045 

0046 


0047 

0048 

0049 

0050 

0051 

0052 

0053 

0054 
00545 

0055 
C0055 

0056 

0057 

0058 

0059 

0060 
0061 
0062 


L'lP  Command  rqUtINeS 


REF 

13 

LAST 

REF 

6 

LAST 

REF 

218 

LAST 

REF 

219 

LAST 

REF 

220 

LAST 

REF 

221 

LAST 

REF 

2 

LAST 

REF 

REF 

REF 

1 

16 

1 

LAST 

REF 

2 

LAST 

REF 

3 

LAST 

REF 

1 

REF 

54 

LAST 

REF 

2 

LAST 

REF 

2 

LAST 

REF 

1 

REF 

3 

LAST 

REF 

6 

LAST 

REF 

3 

LAST 

LAST 

REF 

2 

REF 

17 

LAST 

REF 

1 

5 

514  5 

746  5 

746  5 

747  5 
5 

747  5 

747  5 

746  5 

5 

5 

5 

634  5 

5 

5 

747  5 
5 

747  5 

5 

677  5 

5 

747  5 

746 

5 

5 

747  5 

573  5 

747  5 

5 

747  5 

747  5 

5 


102 

1 5104 

0 

103 

3 7T57 

0 

104 

55*142 

0 

lOP 

0 0002 

0 

106 

50  002 

0 

lOT 

3 0000 

1 

no 

24  002 

0 

111 

22  002 

0 

112 

0 5O76 

0 

113 

1 5115 

0 

11^ 

0 0006 

1 

115 

23*145 

0 

116 

3 0006 

1 

llT 

55*146 

1 

120 

0 0006 

1 

12l 

5 1145 

0 

122 

3 0001 

0 

123 

0 5076 

0 

124 

23*147 

1 

125 

0 4147 

1 

126 

47012 

1 

127 

76630 

0 

E2 

130 

05136 

0 

131 

04002 

1 

132 

3 1147 

1 

133 

0 5<22 

0 

134 

51*145 

0 

135 

0 0002 

0 

136 

3 1146 

0 

137 

54  006 

0 

140 

0 5134 

1 

2LMP+DT 

ILMP+DT 


LMPEXIT 

LMPRST 


dec  l3t  1966  (MAIN)  PAGE  747 


USER’S  OWN  PaGr  NO,  2 

TCF  *2 

CAF  SEVEN 


TS 

LMPIN 

TC 

Q 

INDEX 

0 

CA 

0 

PICK  UP  1ST  CODE 

INCR 

0 

LXCH 

Q 

2ND  CODE  ADDRESS  IN 

L. 

TC 

STORCOM  -1 

STORE  IN  buffer  AND 

update  Pointer 

TCF  *2 


extend 

SAVE  RETURN  FOR 

restarts 

OXCH 

lmpret 

IS  LXCH  IF  FROM 

ABOVE 

CA 

BBANK 

TS 

LMPBBANK 

EXTEND 

INDEX 

LMPRET 

OCA 

0 

PICK  UP  CODE  AND  DT 

TC 

STORCOM  -1 

GO  TO  STORE  CODF  AND  UPDATE  POINTER 

LXCH 

SAVDT 

SAVE  FOR  restart 

TC 

PHASCHNG 

RESTART  PROTECT  DELAY 

OCT 

47012 

5ENADR 

SAVDT 

EBANKs 

TBASE2 

2CADR 

LMPRST 

CA 

SAVDT 

WAIT  DT  SECONDS 

TC 

INDEX 

VARDELAY 

LMPRET 

TC 

2 

CA 

LMPBBANk 

lmptdt  restarts  come  here 

TS 

BBANK 

AFTER  DELAY. 

TC 

LMPEXIT 

48895<fA  rJL  system  FOR  AGC:  NEW  PRO<jRAM  SMEPATIN  BY  EYLES 


DEC  U*  1966  (MAIN)  PAGE  7AB 


L 

Roool 

Roods 

Roods 

R0006 

0007 

0008 

0009 

0010 
AOOll 

A0012 

0013 


OOIA 

0015 

0016 

0017 

0018 

0019 

0020 
0021 


0022 

0023 

002A 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 
003A 

0035 

0036 

0037 

0038 

0039 

OOAO 

OOAl 

00A2 

C00A2 


A5206  MISSION  SCHEDULING  PAtCAGE  USER'S  OWN  PAGE  NO,  I 

the  following  ROUTINES  IMPLeMeNT  THe  MISSION  SCHEDULING  LOGIC  AS  DESCRIBED  IN  tHAPteR  A OF  THe 

AS206  operations  plan,  the  fd. lowing  routine  is  entered  once  each  Second  for  most  of  the  duration  of  the 
flight,  once  lift-off  has  OCCJRRe'^.  an  exception  to  this  is  the  TIMe-CRI 
restart  group  For  mission  scheduling  package  is  group  3. 

31*2000  bank  31 

REF  5 LAST  319  E2  EBANKs  MTIMERA 

REF  31  LAST  633  31*2000  3 6301  0 MMAINT  CAF  THREE  LOOP  TO  PROCESS  ALL  FOUR  TIMERS. 

REF  1 31.2001  55*K12  0 TS  MINH  AT  END  Of  TImER  UPDATE.  THIS  REqISTER 

WILL  NOT  be  equal  TO  3 IF  MAINTENANCE  li 


REf  35  last  722  31.2002  54  O70  1 MlOOP  TS  RuPTREGI 


TO  CEASE. 


REF  286  LAST  710 
REF  6 LAST  7A8 
REF  1 
REf  1 

REF  16A  LAST  695 

REF  36  LAST  7A8 
REF  1 


ref 

37 

LAST 

748 

REF 

4 

LAST 

319 

REF 

38 

LAST 

748 

REF 

1 

ref 

39 

LAST 

748 

REF 

1 

REF 

1 

REF 

1 

REF 

32 

LAST 

748 

REF 

40 

LAST 

748 

REF 

2 

LAST 

197 

REF 

41 

LAST 

748 

REF 

7 

LAST 

748 

REF 

2 

LAST 

748 

31.2003 

31.2004 
31*2005 

31.2006 

31.2007 

31.2010 

31.2011 

31.2012 


31.2013 

31.2014 

31.2015 

31.2016 

31.2017 

31.2020 

31.2021 
31*2022 


2023 

2024 

2025 

2026 
2027 

2030 

2031 


50  000  1 
11*167  1 
1 2UII  1 
1 2107  1 
6 7'55  1 
4 0000  0 
50  070  0 

55*177  0 


50  070  0 
3 1173  0 
50  070  0 
55*203  0 

10  070  1 
1 2002  0 

11*213  1 

1 2O4I  1 

3 6301  0 
54  O70  1 

4 5361  1 
50  070  0 
7 1167  1 
0 0006  1 
1 2O4O  0 


INDEX 

CCS 

TCF 

TCF 

AD 

A 

MTIMER4 

MCOUNT 

MdUE 

ONE 

LOOK  AT  TIMER. 

PN2  - ACTIVE  ANn  COUNTING  DOWN. 

♦0  - MISSION  phase  due. 

NNZ  - FREE  BUT  1 OADED  BY  GROUND, 

MCOUNT 

COM 

INDEX 

TS 

RUPTREGI 

MTIMER4T 

-0  - FREE. 

place  updated  timers  and  phase  registers 

INTO  COPY  buffer  FOR  RESTART  PROTECTION. 

INDEX 

RUPTREGI 

mentered 

CA 

INDEX 

TS 

MPHASE4 

RUPTREGI 

MPHASE4T 

CCS 

TCF 

RUPTrEGI 

MLOOP 

MCHKST 

CCS 

TCF 

STATECTR 

MSTATECK 

SEE  IF  POSSIBLY  TIME  FOR  INTERNAL  STATE 
VECTOR  extrapolation. 

MSTATECK 

CAF 

TS 

THREE 

RUPTREGI 

IF  SO.  DO  UPDATF  UNLESS  WE  ARE  WITHIN  16 
SECONDS  OF  THE  INITIATION  OF  ANY  MISSION 

cs 

index 

MASK 

LOW4 

RUPTREGI 

MTIMER4 

PHASE . 

EXTEND 

3ZF 

MSTATEOK  -1 

BRANCH  IF  PHASE  DUE  WITHIN  16  SECS. 

42  LAST  748 
1 


2032 

2033 


10  070  1 
1 2024  1 


CCS 

TCF 


REF 
REF 

REF  1 

REF  25  last  711 
REF  114  LAST  720 

REF  1 


31.2034  3 5651  0 

31.2035  0 5534  0 

E4 

31.2036  02216  0 

31.2037  16004  1 


RUPTREGI 
MSTATECK 

CAF  PRI05 

TC  FINDVAC 

EBANK=  TDEC 
2CADR  STATEINT 


TO  DO  the  integration. 
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L AS2O6  MISSION  scheduling  PAL<(^Ge 


0043 

rEf 

1 

31 

0044 

REF 

2 

LAST 

748 

31 

0045 

REF 

1 

31 

0046 

REF 

1 

31 

0047 

REF 

55 

last 

747 

31 

00A9  REF  14  last  7A7  31 

0050  REF  43  LAST  748  31 

0051  REF  287  LAST  7A8  31 

0052  REF  2 LAST  7A8  31 

0053  REF  44  LAST  7A9  31 

0054  REF  8 LAST  7A8  31 

0055  REF  45  LAST  749  31 

0056  REF  1 31 

0057  REF  33  LAST  7A8  31 

0058  REF  2 LAST  7A8  31 

0059  REF  288  LAST  7A9  31 

0060  REF  1 31 

0061  REF  1 31 

0062  REF  2 LAST  7A9  31 

0063  rEF  56  LAST  7A9  31 

0064  31 

0065  REF  15  LAST  629  31 

0066  REF  2 LAST  7A9  31 

0067  31 

0068  31 

0069  31 

0070  REF  15  LAST  412  31 

0071  REF  16  LAST  7A9  31 

0072  REF  135  LAST  712  31 

0073  REF  9 LAST  749 

0074  31 

C0074  REF  1 31 

0075  REF  114  LAST  712  31 

0076  REF  11  LAST  722  31 

0077  31 

0078  REF  57  LAST  749  31 

0079  31 

0080  REF  115  LAST  749  31 


2040 

2041 

3 5‘:22 

0 

-1 

mstateok 

caf 

55*^13 

1 

TS 

2042 

2043 

3 UlO 
55'‘:il 

0 

CA 

0 

TS 

204A 

2045 

0 4147 

1 

TC 

04013 

1 

OCT 

2046 

3 7757 

0 

RED03.3 

CAF 

204Y 

5A  070 

1 

MCOPY 

TS 

205O 

50  OOO 

1 

INDEX 

2051 

2052 

3 1177 
50  070 

1 

CA 

INDEX 

0 

2053 

55'X67 

1 

TS 

205A 

10  O70 

1 

CCS 

2055 

1 2047 

1 

TCF 

2055 

6301 

1 

CS 

2057 

7 U12 

0 

MASK 

2060 

10  000 

0 

CCS 

206l 

1 2X01 

1 

TCF 

2062 

3 2X06 

1 

CAF 

2063 

27*‘^X0 

1 

ADS 

206A 

0 4X47 

1 

TC 

2065 

04013 

1 

OCT 

2066 

4 0025 

1 

CS 

2067 

6 1211 

1 

AD 

2070 

0 0006 

1 

EXTEND 

207X 

6 2073 

1 

3ZMF 

2072 

1 2075 

0 

TCF 

2073 

6 7^40 

0 

AD 

207A 

6 7^40 

0 

AD 

2075 

0 5<01 

1 

♦ 3 

TC 

E2 

EBANKs 

2076 

O2OOO 

0 

2CADR 

2077 

62062 

1 

2100 

2101 

0 5^45 

0 6045 

1 

MINHIBIT 

TC 

0 

I V, 

2102 

00020 

0 

OCT 

2103 

0 4x47 

1 

TC 

21OA 

2105 

00003 

1 5^45 

1 

0 

OCT 

TCF 

DEc  13*  1966  (MAIN)  pAQE  749 


statecri 

STATECTR 

USER'S  OWN  PAGf  NO.  2 E2 

NeWMTIME 

NEWTIMET 

COPY  FOR  RESTART  PROTECTION 

PHASCHNG 

04013 

UPDATE  restart 

Seven 

RUPTREGl 

A 

MTIMER4T 

RUPTREGl 

MTIMER4 

RUPTREGl 

MCOPY 

COPY  NEW  timers  AND  PHASE  REGISTERS, 

THREE 

SEE  IF  FURTHER  mAINTENCE  HAS  BEEN 

MINH 

A 

MINHIBIT 

INHIBITED  BY  THf  INITIATION  OF  A TIME- 
CRITICAL  MISSION  phase. 

ISEC 

NEWMTIME 

UPDATE  T1  setting  FoR  NEXT  UPDATE 

phaschng 

04013 

IMMECIATE  restart  At  NEXT  LOCATION 

TIMEI 

NEWTIMET 

GET  DT  FOR  NEXT  SCHEDULING  REQUfST. 

♦ 2 
♦ 3 

HALF 

HALF 

WAITLIST 

MTIMER4 

MMAINT 

CORRECT  FOR  CLOrK  OVERFLOW, 

TASKOVER 

FLAG2DWN 

20 

PHASCHNG 

00003 

RESET  TIMERS  ENABLED  FLAG. 

TASKOVER 
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L 

0081 


A5206  MISSION  SCHEDULING  PAC<AoE 

31i2l06  OOlAA  0 ISEC  DEC  100 


USER'S  OWN  PAGf  NOt 


EZ 
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L AS2o6  mission  SCHEDULING  PaC<A3£ 


P0082  the  following  COD1N5  oisfatches  due  mission  phases  via  a table 


008A 

REF 

REF 

REF 

46 

LAST 

749 

31*2107 

0085 

0086 

4 

47 

LAST 

LAST 

455 

751 

3 1 *2 1 ID 

31*2111 

0087 

REF 

5 

LAST 

748 

31*2112 

0088 

31*2113 

31*211A 

0089 

RcF 

1 

0090 

REF 

8 

LAST 

666 

31*2115 

0091 

31*211«> 

0092 

REF 

34 

LAST 

-749 

31*2117 

0093 

REF 

144 

LAST 

704 

31*2120 

009A 

REF 

1 

31*2121 

0095 

REF 

29 

LAST 

347 

31*2122 

0096 

REF 

15 

LAST 

749 

31*2123 

0097 

REF 

15 

LAST 

710 

31*212A 

0098 

REF 

289 

LAST 

749 

31*2125 

0099 

REF 

1 

31*2126 

0100 

REF 

40 

LAST 

698 

31*2127 

0101 

REF 

30 

LAST 

751 

31*2130 

0102 

REF 

3 

LAST 

749 

31*213l 

0103 

ref 

7 

LAST 

708 

31*2132 

0104 

REF 

31 

LAST 

751 

31*2133 

0105 

REF 

2 

LAST 

643 

31  *213A 

0106 

31*2135 

0107 

REF 

145 

LAST 

751 

31*2136 

0108 

REF 

2 

LAST 

751 

31*2137 

0109 

REF 

2 

LAST 

643 

31*2140 

0110 

REF 

8 

LAST 

678 

31*2141 

0111 

31 *2142 

0112 

31*2143 

0113 

REF 

5 

LAST 

751 

31*214A 

0114 

REF 

48 

LAST 

751 

31*2145 

0115 

REF 

12 

LAST 

7O4 

31*2146 

0116 

REF 

26 

LAST 

7O8 

31*2147 

n 1 1 7 

D C C 

1 o 

1 A r T 

yj  L l ( 

Kch 

i u 

r 49 

0118 

31*2150 

C0118 

REF 

1 

31*2151 

0119 

REF 

224 

LAST 

694 

31*2152 

0120 

REF 

49 

LAST 

751 

31,2153 

0121 

REF 

3 

LAST 

749 

31*215A 

0122 

REF 

1 

31*2155 

3 0070 

0 

MOUE 

CA 

RUPTREGl 

55*^07 

1 

T S 

MdUETEMP 

50  070 

0 

INDEX 

RUPTREGl 

3 1173 

0 

CA 

MPHASE4 

0 0006 

1 

EXTEND 

1 2‘'31 

1 

3ZF 

BADPHASE 

54  T65 

1 

TS 

PHA5ENUM 

0 0006 

1 

EXTEND 

7 6301 

1 

MP 

THREE 

50  OOl 

0 

index 

L 

3 2354 

1 

CA 

MTABLE 

54  071 

0 

TS 

RUPTREG2 

7 7^57 

1 

MASK 

seven 

7 0076 

1 

MASK 

FLAGWRD2 

10  000 

0 

CCS 

A 

1 2i52 

1 

TCF 

MBYPASS 

3 7(5Z 

0 

CAF 

BIT4 

7 0071 

0 

MASK 

RUPTREG2 

27'':i2 

0 

ADS 

MINH 

3 5676 

0 

caf 

PRI037 

7 0071 

0 

MASK 

RUPTREG2 

54  063 

0 

TS 

NEWPRIO 

0 0006 

1 

EXTEND 

5 0001 

0 

INDEX 

L 

3 2356 

0 

OCA 

MTABLE  *1 

0 5544 

1 

TC 

SPVAC 

0 4127 

1 

TC 

2PHSCHNG 

00032 

0 

DCT 

00032 

O4OI3 

1 

OCT 

O4O13 

3 1207 

0 

CA 

MdUETEMP 

54  O70 

1 

TS 

RUPTREGl 

3 5226 

1 

CAF 

PRI030 

0 5523 

0 

TC 

NOVAC 

E2 

EBANK* 

MTIMER4 

02i73 

0 

2CADR 

UPDATKIL 

62062 

1 

4 7T6I 

1 

MBYPASS 

CS 

ZERO 

50  070 

0 

index 

RUPTREGl 

55*177 

0 

TS 

MTIMER4T 

1 2OI5 

0 

TCF 

MENTERED 

USER'S  OWN  PAGf  NO.  A ^2 

OF  EXECUTIVE  PRIORITIES  AND  2CA0RS, 

COPY  for  restart  protection 

GET  number  of  NfW  PHASE  AND  MP  BY  NUMBER 

OF  TABLE  ENTRIES  PER  PHASE  TO  GET  ADORES 
OF  TABLE  entry  fOR  THIS  PHASE. 

INACTIVE  MPHASE  HeRE  IS  VERY  BAD, 

HOLDS  CURRENT  Mp  NUMBER  FOR  DOWnLINK 

PRIO,  INHIBIT/ENABLE  INFO.*  ETC, 

HONOR  INHIBIT/EnABLe  FUNCTION. 


SET  MRETURN  if  COUNTERS  ARE  TO  STOP, 


PICK  UP  2CADR  And  do  FINDVAC. 

2.3SPOT  TO  restart  MISSION  PHASE  NOW  OUt 
GROUP  3 RESTART  FOR  MISSIN  SCHEDULER 

RUPTREGl  WAS  DESTROYED  BY  2PHSCHNG 
SET  UP  JOB  TO  TfRMImATE  ANY  UPDATE 
POSSIBLY  IN  PROr,RESS  6 RELEASE  DISPLAY. 

pinball  uses  unaWITched  erasable 

MAKE  THIS  TIMER/PHASE  PAIR  AVAILABLE. 
JOINS  MAIN  coding. 
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L AS206  MISSION  SCHEDULING  PAC<AGE  USER'S  OWN  PA6f  NO,  5 

P0123  restart  ROJTIN  E TO  RESCHE^J.E  MISSION  PHASE 


012A 

REF 

6 

LAST 

751 

31*2156 

51 

•207 

1 iTa 

0 

REDOMDUE  INDEX 

mduetemp 

ka  r\  1 t A ^ c y. 

0125 

0126 

REF 

6 

last 

751 

31  *2157 
31.2160 

3 

0 

1 * f 3 
0006 

0 

1 

C^ 

EXTEND 

MPhAsEA 

0127 

REF 

35 

1A6 

LAST 

LAST 

751 

31.2161 

7 

53 

6301 

001 

1 

MP 

three 

0128 

REF 

751 

31.2162 

0 

INDEX 

L 

0129 

REF 

3 

LAST 

751 

31.2163 

3 

235A 

1 

CA 

mtable 

0130 

REF 

REF 

8 

LAST 

751 

31.216^ 

7 

5676 

063 

0006 

1 

MASK 

PRI037 

0131 

0132 

3 

LAST 

751 

31.2165 

31.2166 

5A 

0 

0 

1 

TS 

EXTEND 

NEWPRIO 

0133 

REF 

1A7 

LAST 

752 

31.2167 

5 

0001 

0 

INDEX 

L 

013A 

REF 

A 

LAST 

752 

31*217° 

3 

2356 

0 

DCA 

mtable  *1 

0135 

REF 

3 

LAST 

751 

31.2171 

0 

55AA 

1 

TC 

SPVAC 

0136 

REF 

116 

LAST 

7A9 

31.2172 

1 

5 (A5 

0 

TCF 

TASKOVER 

FIND  PRIO  AND  2rADR  OF  NEW  MP 

IN  table,  mduetemp  contains 
THE  PHASE  REGISTER  NUMBER  OF  THE 
MISSION  PHASE  DUE  AT  THIS  TIME 


DO  Findvac  With  zcadr  in  a ♦ l 


R0137  DO  A pseudo  VERB  3A  ENTER  TO  <1ILL  AN  UPDATE  IN  PROGRESS*  AND  TO  RELEASE  THE  DSKY. 

0139  REF  1 31.2173  3 2**!^  1 UpDATKIL  CAF  3A0CT 

OUO  REF  10  LAST  270  31.217^  5A  ^OA  1 TS  REQRET 

OUl  REF  131  LAST  712  31.2175  0 5<(2A  0 TC  BANKCALL 

01A2  REF  9 LAST  275  31  .2176  123U  1 CADR  UPDATVB  -1 


0U3  REF  36  LAST  6a3  31*2177  0 52^3  1 TC  POSTJUMP 

OUA  REF  3 LAST  298  31*2200  11333  1 CADR  VBTERm  GOES  TO  ENDOFjOr  wHEN  DONE 


E2 
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L 

P01A5 

R01A7 

R0lA8 

A01A9 

A0150 

A0151 

A0152 

A0153 

015A 

0155 

0156 

0157 

0158 

0159 

0160 
0161 
0162 
0163 
016A 

0165 

0166 

0167 

0168 

0169 

0170 

0171 

0172 

0173 

017A 

0175 

0176 

0177 

0178 

0179 

0180 
0181 
0182 


A5206  mission  SCHEDULING  PaC<AGE  USER»S  OWN  PaGF  NO.  6 E2 

THe  following  subroutine  may  Be  used  by  MISSION  PROGRAMS  TO  SeT  MISSION  PHASe/tIMER  PAIRS  TO  INITIATE 
TMe  VARIOUS  MISSION  PHASES  (SEE  CHAPTER  A OF  THe  oSoP), 

CALLING  sequence  IS  AS  FOLLOWS: 


TC 

MPENTRY 

under  control  of  eXec  or  RUPt. 

DEC 

INDEX 

INDEX  OF  TIMER  (1  To  A). 

DEC 

PHASE 

MISSION  PHASE  NUMBER. 

adres 

dt 

DT  - time  (Seconds)  to  initiation 
(ebank  must  alrpAdy  be  Set.) 

51A1 

51Al  0 OUOA  0 MPENTRy 
REF  222  last  7A7  51A2  50  002  0 

51A3  a OOOO  0 
REF  2A  LAST  697  51AA  6 7^53  1 

REF  50  LAST  751  51A5  5A  O70  1 


BLOCK  02 
INHINT 

INDEX  Q MAKE  INTERNAL  INDEX 

CS  0 
AD  FOUR 
TS  RUPTREGl 


REF  290  LAST  751 
REF  7 LAST  752 
REF  1 

REf  2 last  753 
REF  3 LAST  753 


51A6  50  OOO  1 

51A7  11*173  1 

5150  1 5157  0 

5151  1 5157  0 

5152  1 5157  0 


index  a IF  THIS  MISSION  PHASE  REGISTER  IS  NOT 

CCS  MPHASEA  -0.  IT  HAS  BEEN  CHANGED  BY  THE  GROUND. 

TCF  MENTRYT  so  LEAVE  IT  ALOnE. 

TCF  MENTRyT 
TCF  MENTRYT 


REF 

223 

LAST 

753 

5153 

50  002 

0 

INDEX 

515A 

3 0001 

0 

caf 

REF 

51 

LAST 

753 

5155 

50  070 

0 

INDEX 

REF 

8 

LAST 

753 

5156 

55*173 

1 

TS 

REF 

52 

LAST 

753 

515T 

50  070 

0 mentryt 

INDEX 

REF 

11 

LAST 

751 

5160 

11*167 

1 

CCS 

0 

1 

RUPTREGl 

MPHASEA 

RUPTREGl  IF  THE  TIMER  iS  -0.  SET  iT  TO  THE  INPUT 

mtimera  value,  otherwise.  Assume  it  has  been 


REF  165  LAST  7A8 

516l 

6 

7(55 

1 

AD 

REF  1 

5162 

1 

5170 

0 

TCF 

5163 

1 

5161 

0 

TCF 

ONE  set  by  the  ground  and  just  force  it  pos, 

mentabs 

-2 


REF 

22A 

LAST 

753 

516A 

50  002 

0 

INDEX 

0 

5165 

3 0002 

0 

CAF 

2 

REF 

291 

LAST 

753 

5166 

50  000 

1 

INDEX 

A 

5167 

3 OOOO 

1 

CA 

0 

REF 

53 

LAST 

753 

5170 

50  070 

0 

mentabs  index 

RUPTREGl 

REF 

12 

LAST 

753 

5171 

55*167 

1 

TS 

MTIMERA 

REF 

36 

LAST 

752 

5172 

3 6301 

0 

CAF 

THREE 

REF 

225 

LAST 

753 

5173 

6 0002 

0 

AD 

Q 

REF 

1 

517A 

55*221 

0 

-1  TS 

MRETURN 

MAKE  UP  return  SO  COMMON  ROUTINE  CAn  BE 
used  to  imitate  timer  COUNTING. 


^88954a  YJL  system  POR  aGC;  New  program  SMePATIN  by  eYUeS 


L AS206  MISSION  SCHEDULING  PAC<AoE 


P0183  subroutine  TO  START  MISSION  TIMERP  IF  THEY  ARE  NOT  GOING  ALREADY 


OUA 

REF 

16 

LAST 

751 

5175 

3 0076 

0 MSTART 

CA 

FLAGWRD2 

0185 

REF 

30 

LAST 

559 

517P 

7 7r51 

1 

MASK 

BITS 

0186 

REF 

292 

LAST 

753 

517Y 

10  000 

0 

CCS 

A 

0187 

REF 

1 

LAST 

5200 

1 5220 

0 

TCF 

MDONE 

0188 

REF 

58 

7A9 

5201 

0 AlA7 

1 

TC 

PHASCHNG 

0189  5202  05O13  0 OCT  05013 

0190  5203  77^77  0 OCT  77777 


0191 

0192 

REF 

6 

LAST 

718 

520A 

5205 

0 6027 
00020 

1 

0 

TC 

OCT 

FLAG2UP 

20 

0193 

5206 

O 

o 

c 

o 

0 

INHINT 

019A 

REF 

2 

LAST 

199 

5207 

3 5223 

1 

CAF 

1SEC*1 

0195 

REF 

16 

LAST 

7A9 

5210 

6 0025 

0 

AD 

TIMEl 

0196 

REF 

3 

LAST 

7A9 

52 1 1 

57'210 

0 

XCH 

NEWMTIME 

0197 

REF 

2 

last 

7A9 

5212 

3 5222 

0 

CAF 

StATECRI 

0198 

REF 

3 

LAST 

7A9 

5213 

55*213 

1 

TS 

ST  ATECTR 

0199 

ref 

166 

LAST 

753 

521A 

3 7^55 

1 

CAF 

One 

0200 

REF 

136 

LAST 

7A9 

5215 

0 5^01 

1 

TC 

WAITLIST 

0201 

REF 

13 

LAST 

753 

E2 

ebank 

= MTIMERA 

0202 

5215 

02«UU 

0 

2CADR 

MMA I NT 

C0202 

REF 

2 

LAST 

7A9 

5217 

62062 

1 

0203 

5220 

0 0003 

1 

MOONE 

RELINT 

020A 

REF 

2 

LAST 

753 

5221 

0 1221 

1 

It 

MKtTUKN 

0205 

5222 

01033 

0 

STATECRI 

DEC 

539 

0206 

5223 

OOlAS 

1 

1 SEC« 1 

OEC 

101 

Dec  13.  1966  (MAIN)  page  75A 


USER'S  OWN  page  NO,  7 E2 

SEE  IF  TIMERS  ENABLED  ALREADY. 

YES  - RETURN. 

UPDATE  restart  rEFOrE  SETTING  FLAG. 

SHOW  timers  enabled. 


INITIALIZE  STATE  VECTOR  EXTRAPOLATION 
TIMER. 


START  COUNTER  MAINTENANCE. 


CALLS  FOR  integration  EVeRY  539  SEC, 


'♦8895'tA  YJL  SYSTEM  FOR  AGC;  NEW  PROGRAM  SMePATIN  bY  EYLES 


Dec  l3,  1966  (MAIN)  PAGE  75S 


L 

P0207 

0209 

0210 
0211 

0212 

0213 

02U 

Ro215 

R0216 

R0217 


A0218 

0219 

0220 


A520<>  mission  scheduling  PaC<a5e  USER'S  OWN  PAGp  NO.  8 E2 

subroutine  calls  for  various  UPDAIe  options  (See  GSOP),  eNteR  under  eXeC  with  interrupt  inhibited. 


REF  1 

REF  2 LAST  310 

REF  2 LAST  755 

REF  1 

REF  3 LAST  755 


31»2201 

3ANK 

31 

31 

>2201 

0 

231A 

0 

D0V70 

TC 

mtimerup 

verb 

70 

31 

>2202 

1 

2373 

0 

TCF 

ENDUP 

231A 

D0V72 

TC 

31 

>2203 

0 

0 

MT I MERUP 

verb 

72 

31 

>220A 

0 

2<:45 

0 

D0V71 

TC 

MPHASEUP 

VERB 

71 

31 

>2205 

1 

2R73 

0 

TCF 

ENDUP 

C ODING  to  Be  inserted  HE*<E  to  clear  out  all  tIMeR/PHASe  pairs 
W HIGH  H AVE  BEEN  SET  3Y  LV>C,  SINCe  GROUND  REQUEST  WILL  SUPERSEDE 
ALL  PR  eVIOUSLY  SCHe3ULE^  MPS  EXCEPT  THOSE  SeT  BY  GROUND  ITSeLF 


D0V7A  equals  FORGETIT 
31 >2206  0 0U03  1 ENDv73  RELINT 

REF  A LAST  755  31 >2207  1 2^73  0 TCFENDUP  TCF  ENDUP 
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L AS206  MISSION  SCHEDULING  PACCAoE  USER'S  OWN  PAGf  NO.  9 E2 

P0221  invert  inhibit/enable  SWItCH  (^HOSt  INDEX  IS  IN  UPINDex  (I  TO  3).  ENTER  UNDER  EXEC  WITH  INTERRUPT  INHIBITED. 


0223 

0224 

0225 

0226 

REF 

ref 

REF 

87 

7 

9 

LAST 

LAST 

LAST 

642 

309 

172 

31.2210 

31.2211 

31.2212 

31.2213 

0227 

REF 

1 

31.2214 

0228 

REF 

8 

LAST 

756 

31,2215 

0229 

REF 

23 

LAST 

537 

31*2216 

0230 

0231 

REf 

148 

last 

752 

31,2217 

31,2220 

4 7(54 

1 D0V73 

cs 

TWO 

6 1216 

0 

AD 

UPlNDEX 

0 4312 

0 

TC 

MAGSUB 

77(76 

1 2375 

1 

DEC 

-1 

0 

TCF 

UPERROR 

51*216 

3 7/52 

0 

INDEX 

UPINDEX 

0 

CAF 

BIT3  -1 

54  Ool 

1 

TS 

L 

0 0004 

0 

INHINT 

SEE  IF  INDEX  LEr,IT. 


BITS  IN  POSITIONS  3*  2»  AND  1 OF 
FLAGwRd2  (SEE  Switch  ASSIGNMENTS). 


0232  REF  17  LAST  75A  31.2221 

0233  31.2222 

0234  REF  149  LAST  756  31.2223 

0235  REF  18  LAST  756  31,2224 

0236  REF  1 31,2225 


3 0^76  0 
0 0006  1 
06  OOl  0 
54  076  1 
1 2206  0 


CA  FLAGWRD2 

EXTEND 
RXOR  L 

TS  FLAGWRD2 

TCF  ENDV73 


R0237  the  following  CODING  ISSOeS  THE  SINGLE  LMP  COMMAND  FOUND  IN  UPINDeX  PROVIDED  THE  TIMeRS  ARE  ENABLED 

R0239  (NON  TIME  CRITICAL  PHASE  OF  MISSION), 


0240 

REF 

19 

LAST 

756 

31*2226 

<,  0076 

1 

D0V67 

CS 

FLAGWRD2 

0241 

REF 

31 

LAST 

754 

31,2227 

7 7(51 

1 

mask 

bits 

REF 

293 

LAST 

0242 

754 

31,2230 

1 0 OQO 

0 

CCS 

A 

0243 

REF 

2 

LAST 

756 

31,2231 

1 2375 

0 

TCF 

UPERROR 

0244 

REF 

25 

LAST 

710 

31,2232 

4 7(46 

1 

CS 

BITS 

0245 

REF 

9 

LAST 

756 

31,2233 

6 1416 

0 

AD 

UPINDEX 

0246 

REF 

10 

LAST 

756 

31,2234 

0 4312 

0 

TC 

MAGSUB 

0247 

31,2235 

77500 

1 

DEC 

-127 

0248 

REF 

3 

LAST 

756 

31,2236 

1 2375 

0 

TCF 

UPERROR 

0249 

REF 

1 

31,2237 

3 2244 

1 

CAF 

TCILMP 

0250 

REF 

10 

LAST 

756 

31,2240 

55*415 

1 

TS 

UPINDEX  -1 

0251 

REF 

1 

31*2241 

3 2407 

0 

CAF 

TCFENDUP 

0252 

REF 

11 

LAST 

756 

31,2242 

55*417 

0 

TS 

UPINDEX  *1 

0253 

REF 

12 

LAST 

756 

31,2243 

0 1415 

0 

TC 

UPINDEX  -1 

0254 

REF 

20 

LAST 

712 

31*2244 

0 5073 

0 

TCILMP 

TC 

ILMP 

COMMAND  MUST  BE  BETk^EEN  1 AND  255, 


FOR  ERASABLE  CAl  L. 
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L AS206  MISSION  SCHEDULING  PA^CAoE  USER'S  OWN  PaGF  NO.  lO  E2 

P0255  the  following  CODINS  J?D«TE5  A MISSION  PHASe  NUMBER  WHOSE  INDeX  IS  IN  UPINDeX  tO  THE  VALUE  FOUND 

R0257  H UPPHASe,  ReTURN  IS  TO  CALLeR  I*"  DATA  0<.  OR  TO  UPeRROR  IF  DATA  OUT  OF  RANGE. 


0259 

REF 

226 

LAST 

753 

31.2245 

31.2246 

31 '2247 

3 0002 
0 2277 

11*214 

0 

mphaseup 

CA 

Q 

1 1/  1 1 r\  r\^  V 

0260 

0261 

REF 

REF 

1 

3 

LAST 

308 

1 

0 

T t 

CCS 

LHKUPDEX 

UPPHASE 

0262 

31 .2250 

1 2254 

1 

tcf 

♦ 4 

0263 

REF 

4 

LAST 

756 

31.2251 

1 2375 

0 

TCF 

UPERROR 

757 

TCF 

UPERROR 

026A 

REF 

5 

LAST 

31 .2252 

1 2575 

0 

0265 

REF 

6 

LAST 

757 

31.2253 

1 2375 

0 

TCF 

UPERROR 

0266 

REF 

11 

LAST 

756 

31 ,225A 

0 4312 

0 

♦ 4 

TC 

MAGSUB 

0267 

31,2255 

77F56 

0 

OCT 

-21 

0268 

REF 

7 

LAST 

757 

31.2256 

1 2375 

0 

TCF 

UPERROR 

0269 

REF 

4 

LAST 

757 

31.225T 

4 1214 

0 

CS 

UPPHASE 

0270 

REF 

17 

LAST 

666 

31.2260 

6 6276 

1 

AD 

SIX 

0271 

REF 

294 

LAST 

756 

31.2261 

10  000 

0 

CCS 

A 

0272 

REF 

8 

LAST 

757 

31.2262 

1 2375 

0 

TCF 

UPERROR 

0273 

31.2263 

72400 

0 

MPLEGAL 

OCT 

72400 

027A 

31,2264 

1 2266 

0 

TCF 

♦ 2 

0275 

REF 

9 

LAST 

757 

31,2265 

1 2375 

0 

TCF 

UPERROR 

0276 

REF 

295 

LAST 

757 

31.2266 

50  OOO 

1 

INDEX 

A 

0277 

REF 

38 

LAST 

7A6 

31,2267 

3 7^37 

0 

CA 

BIT15 

0278 

REF 

1 

31,2270 

7 2263 

0 

MASK 

MPLEGAL 

0279 

31 .2271 

0 0006 

1 

EXTEND 

0280 

REF 

10 

LAST 

757 

31.2272 

1 2375 

0 

3ZF 

UPERROR 

0281 

REF 

5 

LAST 

757 

31.2273 

3 1214 

1 

CA 

UPPHASE 

0282 

REF 

5A 

LAST 

753 

31 .227A 

50  070 

0 

INDEX 

RUPTREGI 

0283 

REF 

9 

LAST 

753 

31,2275 

55*173 

1 

TS 

MPHASE4 

0284 

REF 

2 

LAST 

75A 

31*2276 

1 5220 

0 

TCF 

MDONE 

CHECK  INDEX  VALUE  AND  MAKE  INTERNAL  NDX, 
CHECK  ON  SIZE  OF  PHASE. 


ALLOW  PHASES  1 . 18D  ONLY. 
FOR  BAD  return  FROM  MAGSUB 
CHECK  legality  oF  UpPHASe 


BITS  15  - 1 = 1 FOR  MP  7 - 21  LEGAL 


RELINT  6 RETURN  VIA  MRETURN. 


R0285  MINOR  SUBROUTINE  TO  CHECK  MISSION  TIMeR/PHASE  UPDATE  INDEx  AND  LEAVE  CORRESPONDING  VALUf  IN  RUPTReGI. 


R0287 

TO'  1 

3E  entered 

1 with 

interrupt 

INHIPITEDI 

0288 

REF 

3 

LAST 

754 

31.22^7 

55*221 

0 

chkupdex 

TS 

MRETURN 

0289 

REF 

13 

LAST 

756 

31,2300 

11*416 

1 

CCS 

UplNDEX 

0290 

31,2301 

1 2305 

1 

TCF 

♦ 4 

0291 

REF 

11 

LAST 

757 

31.2302 

1 2375 

0 

TCF 

UPERROR 

0292 

REF 

12 

LAST 

757 

31,2303 

1 2375 

0 

TCF 

UPERROR 

0293 

REF 

13 

LAST 

757 

31,2304 

1 2375 

0 

TCF 

UPERROR 

0294 

REF 

3 

LAST 

398 

31,2305 

7 5357 

1 

♦ 4 

MASK 

NEG3 

0295 

REF 

296 

LAST 

757 

31,2306 

10  OOO 

0 

CCS 

A 

0296 

REF 

14 

LAST 

757 

31.2307 

1 2375 

0 

TCF 

UPERROR 

0297 

REF 

14 

LAST 

757 

31.2310 

4 1216 

1 

CS 

UPINDEX 

CALLER'S  RETURN  ARRIVES  IN  A. 


MAKE  INTERNAL  VALUE. 


^88954A  YJL  system  FOR  AGCj  NEW  PROGRAM  sMePATIN  BY  EYLES 


L AS206  MISSION  SCHEDULING  PALcaGE 


0298 

REF 

25 

LAST 

753 

31,2311 

6 7^53 

1 

AD 

0299 

REF 

55 

LAST 

757 

31,2312 

5A  O7O 

1 

TS 

0300 

REF 

227 

LAST 

757 

31,2313 

0 0U02 

0 

TC 
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USER'S  OWN  PAGF  NO,  11  E2 

FOUR 

RUPTREGl 

0 
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L AS2o<>  mission  SCHEDULING  PA^CA.oE  USER'S  OWN  PAGf  NO.  U £2 

P030l  the  following  coding  updates  the  mission  timer  whose  index  IS  IN  UPINDEX  BY  ADnING  THe  CONTENTS  OF  UPDT 

Ro303  tD'  it,  outcomes  dePend  ON  wHetHeR  THe  timeR  was  counting  at  the  tIMe,  and  THe  sign  of  the  Result  (See  gsop). 


0305 

REF 

228 

LAST 

758 

31.231'' 

3 0U02 

0 

mtimerup 

CA 

Q 

0306 

REF 

2 

LAST 

757 

31,2315 

0 2277 

1 

TC 

CHKUpDEX 

0307 

REF 

56 

LAST 

758 

31,2318 

50  070 

0 

INDEX 

RUPTREGl 

0308 

REF 

14 

LAST 

754 

31.2317 

11*167 

1 

CCS 

MTIMER4 

0309 

REF 

1 

31.2320 

1 2327 

1 

TCF 

TUPBUSY 

0310 

REf 

2 

last 

759 

31.2321 

1 2327 

1 

tcf 

tupbusy 

0311 

31.2322 

1 2323 

0 

NOOP 

0312 

REF 

3 

LAST 

309 

31,2323 

3 1215 

0 

CA 

UPDT 

0313 

REF 

57 

LAST 

759 

31,2324 

50  U70 

0 . 

INDEX 

RUPTREGl 

0314 

REF 

15 

LAST 

759 

31,2325 

27'167 

1 

ADS 

MTIMER4 

0315 

REF 

3 

LAST 

757 

31.2326 

1 5220 

0 

TCF 

MDONE 

0316 

REF 

4 

LAST 

759 

31.2327 

11*215 

1 

TJPbUSY 

CCS 

UPDT 

0317 

REF 

1 

31.233° 

1 2337 

0 

TCF 

CTRAD 

0318 

REF 

1 

31.2331 

1 2334 

0 

TCF 

CTRABS 

TCF 

0319 

REF 

2 

last 

759 

31 .2334 

1 2^37 

0 

CTRAd 

0320 

REF 

225 

LAST 

751 

31,2333 

4 7(61 

1 

CS 

ZERO 

58 

LAST 

50  U7O 

CTRABS 

INDEX 

032 1 

REF 

759 

31  ,233*. 

0 

RUPTREGl 

0322 

REF 

16 

LAST 

759 

31,2335 

55'167 

1 

TS 

MTIMER4 

0323 

REF 

4 

LAST 

759 

31.2336 

1 5220 

0 

TCF 

MDONE 

0324 

REF 

5 

LAST 

759 

31,2337 

3 1215 

0 

CTRAD 

CA 

UPDT 

0325 

REF 

59 

LAST 

759 

31,2340 

50  070 

0 

index 

RUPTREGl 

0326 

REF 

17 

LAST 

759 

31.2341 

27*167 

1 

ADS 

MTIMER4 

0327 

REF 

297 

LAST 

757 

31.2342 

10  uoo 

0 

CCS 

A 

0328 

ref 

5 

last 

759 

31,2343 

1 5220 

0 

TCF 

MdONE 

0329 

REF 

6 

LAST 

759 

31,234A 

1 5220 

0 

TCF 

MDONE 

0330 

REF 

226 

LAST 

759 

31,2345 

3 7(61 

0 

CAF 

ZERO 

0331 

REF 

2 

LAST 

759 

31,2346 

1 2334 

0 

TCF 

CTRABS 

GO  TO  common  subroutine  TO  SAVE  RETURN 
AND  check  INDEX. 

SEE  IF  TIMER  IS  COUNTING  NOW, 


POS  INDICATES  IT  IS. 


IF  NOT  BUSY,  DO  ADD,  MAKING  NO  CHANGE 
IN  THE  ENABLE  Fl  AG, 


IF  TIMER  COUNTING.  SEE  IF  DT  ZERO. 

NZ  - DO  ADD. 

♦0  - PHASE  DUE  NEXT  MAINTENANCE  CYCLE. 


IF  -0,  DISABLE  timer. 


IF  RESULT  NEGATtVEOR  ZERO,  PHASE  DUE 
NEXT  maintenance  CYCLE. 


(THIS  ALONE  REVeRTS  -0  TO  *0.) 
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P0332 


033A 

0335 

0336 

0337 

0338 

0339 
03AO 
03A1 
03A2 

03A3 

O3AA 

03A5 

03A6 

03A7 

03A8 

03A9 

0350 

0351 

0352 

0353 

R035A 

0355 

R0356 

0357 

0358 

0359 

0360 
C0360 


AS206  MISSION  SCHEDULING  PAC<A5E  USER'S  OWN  PAGp  NO.  13  E2 

THE  FOLLOWING  COOIN3  IS  I HE  SAME  AS  MTIMERUP  BUT  ACCEPTS  DP  GET  IN  UPGET  (SEE  r.SOP). 


REF 

75 

LAST 

727 

REF 

REF 

A 

2 

LAST 

LAST 

378 

306 

REF  I 


REF 

15 

LAST 

757 

REF 

16 

LAST 

760 

REF 

32 

LAST 

756 

REF 

20 

LAST 

756 

REF 

17 

LAST 

760 

REF 

3 

LAST 

759 

ref 

26A 

LAST 

737 

REF 

60 

LAST 

759 

REF 

18 

LAST 

759 

31*23A7 

0 6103 

0 

31*235° 

AA23A 

1 

31*2351 

33P21 

1 

31  *2352 

01220 

0 

31*2353 

5A205 

1 

31  *235A 

22AOO 

0 

31 *235& 

20217 

1 

31*2356 

50°0A 

0 

31*2357 

62375 

1 

31*236° 

6237A 

0 

31*2361  77^6  1 


31*2362 

0 

0°0A 

0 

31*2363 

3 

7^51 

0 

31*236A 

7 

oy76 

1 

31*2365 

0 

0°06 

1 

31*2366 

1 

2375 

0 

31*2367 

0 

2277 

1 

31*237° 

3 

OlAA 

0 

31*2371 

5C 

1 070 

0 

31*2372 

55'167 

1 

TC  INTPRET 

RTB  BDSU 

loadtime 

UPGET 
OMP  SL 

1/100 

UD 

BOVB  BMN 

UPERROR 

UPERROR  -1 


EXIT 

INHINT 
CA  BIT5 

MASK  FLAGWRD2 

EXTEND 

3ZF  UPERROR 

TC  CHKUPDEX 

CA  MPAC 

INDEX  RUPTREGl 

TS  MTIMERA 


GEnErAL  EXjT  LOCATIO\i,  FOR  SUCCESSFULLY  COMPLETED  UPDATE: 


REF 

98 

LAST 

722 

31*2373 

1 5605 

0 

ENDUP 

TCF 

ENDOFJOB 

EXIT 

FOR 

General  update  lrrors 

(RANGE 

OF  data* 

ETC.) 

31  *237'' 

77(76 

1 

-1 

EXIT 

REF 

5 

LAST 

269 

31*2375 

0 A560 

0 

UPERROR 

TC 

FALTON 

ref 

99 

LAST 

760 

31*2376 

1 5605 

0 

TCF 

ENDOFJOB 

31*2377 

002A3 

1 

1/100 

2DEC 

E-2 

31*2aO° 

32(03 

1 

make  sure  this  fNTERED  with  vac  area. 
TIME  IN  CS. 

CONVERT  TO  SEC  (.  MOVE  TO  MAJOR  PART. 

(DOES  AN  EXIT.) 

INSURE  that  maintenance  IS  ST  I Ll  ENABLED 

CONTAINS  DT  IN  aEcONDS. 

INSERT  DT  directly  INTO  TIMER. 

(MORE  TO  BE  ADDFD?) 
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L 

P036l 

R0363 

R0365 

R0367 

R0369 

R0370 

R0371 

R0372 

R0373 

R037A 

R0375 

R0376 

R0377 

0379 

0380 

0381 
C0381 

0382 

0383 
038A 

C038A 

0385 

0386 

0387 
C0387 

0388 

0389 

0390 

0391 

0392 

0393 
C0393 

039A 

0395 

0396 

0397 

0398 

0399 
C0399 

OAOO 

OAOl 

0A02 

0A03 


A5206  MISSION  SCHEDULING  PAC<AGE  USERiS  OWN  PAGf  NO.  14  E2 

THe  following  table  specifies  starting  locations  and  priorities  of  all  206  MISSION  phases  initiated  by 
the  mission  timers  (SaB-LeM  SfP  AI^D  BEYOND),  IT  ALSO  CONTAINS  INHIBIT/ENABLe  INFORMATION,  ETC.  EACH  ENTRY 
CONSISTS  OF  three  WORDS,  tHE  FiHST  IS  PAC<eD  WItH  SeVeRAL  PIeCeS  OF  INFORMATION,  AND  tHf  SECOND  TWO  CONTAIN  tHe 
2CADR  OF  the  LOCATION  AT  WHiCHl  THL  PHASE  IS  TO  BeGIN,  THE  INTERPRETATION  OF  WORD  i IS  As  FOLLOWS; 


BiTlSi  spare 

bits  14-10;  JOB  PRiIORITy. 

BITS  9-5;  SPARE 

BIT4;  1 iF  timers  to  be  disabled  on  phase  initiation, 

BITS)  1 IF  RCS  lESTS  (INHIBIT/ENABLE  INFO), 

Bn2;  1 IF  DPS  COLD  SOa< 

BITl;  1 IF  RCS  COLD  SOA< 


NOTE  SPARES  CoULD  BE  USED  FOR  SWIICHING  DOWNLISTS,  ETC, 


phases  1 


REF  115  LAST  748 


REf  1 


REF  11  LAST  704 
REF  1 

REF  116  LAST  761 
REF  1 

REF  14  LAST  4l6 
REF  15  LAST  761 


REF  117  LAST  761 
REF  1 

REF  16  LAST  761 
REF  17  LAST  761 
REF  18  LAST  761 


REF  118  LAST  761 
REF  1 

REF  19  LAST  761 
REF  20  LAST  761 
REF  21  LAST  761 

REF  1 


6 are  not 

included 

since  they 

’ are  not  initiated  by 

tHe  mission  scheduling  routines. 

31,2401 

20010  1 

MTABLEl 

OCT 

20010 

MPT 

E4 

ebank= 

TDEC 

31«2402 

02‘*67  0 

2CADR 

MP07JOB 

31,2403 

52O04  1 

31,2404 

20012  0 

OCT 

20012 

MP8 

E3 

ebank= 

RATEINDX 

31,240& 

02555  0 

2CADR 

MP8J0B 

31,2406 

56O03  1 

31,2407 

20010  1 

OCT 

20010 

MP9 

E4 

ebank- 

TDEC 

31,2410 

02614  0 

2CADR 

MP9J0B 

31,2411 

66064  0 

31,2412 

0 4^25  0 

TC 

CCSHOLE 

MP  10.  UNUSED  SLOT. 

31,2413 

0 4(25  0 

TC 

CCSHOLE 

31,241A 

00034  0 

340CT 

OCT 

00034 

31,2415 

20010  1 

OCT 

20010 

MPll 

E4 

EBANKs 

TDEC 

31,2416 

02O00  0 

2CADR 

MPllJOB 

31,2417 

74064  0 

31,2420 

0 4/25  0 

TC 

CCSHOLE 

MP  12,  UNUSED  SLOT, 

31,2421 

0 4/25  0 

TC 

CCSHOLE 

31,2422 

0 4/25  0 

TC 

CCSHOLE 

31,2423 

20O10  1 

OCT 

20010 

MP13 

E4 

EBANKs 

TDEC 

2CADR 

MP13J0B 

31 ,2424 

03w71  1 

31,2425 

56O04  0 

31,2426 

0 4/25  0 

TC 

CCSHOLE 

MP  14,  UNUSED  SLOT, 

31,2427 

0 4/25  0 

TC 

CCSHOLE 

31,2430 

0 4/25  0 

TC 

CCSHOLE 

31*2354 

MTABLE 

equals 

MTABLEl  -2lD 

MP  1-6  not  ACTUALLY  INCLUDED  IN  TABLE. 

48895^A  YJL  system  FOR  AGCj  NEW  PRO^JRAM  SMEPATIN  BY  EYLES 

L A5206  MISSION  SCHEDULING  PAC<HG£ 

OAOA  REF  3A  LAST  AAA  31t2A3l  0 A^AA  1 BADPHASE  TC 


OA05  31*2A32  D0601  0 DCT 

0A06  REF  9 LAST  752  3l«2A33  3 5976  0 CAP 

0A07  REF  27  LAST  751  31.2A3A  0 5523  0 TC 

0AO8  REF  30  LAST  678  E3  EBANK 

0A09  31i2a35  02^00  0 2CADR 

C0A09  REF  5 LAST  300  3U2A39  16003  0 

OAIO  REF  117  last  752  31.2A37  0 5 fA5  1 TC 
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ALARM 

ALARM  WHEN  MPHASE  CnMES  DUE  BUT  MPHASE 

00601 

PRIO37 

NOvAC 

LSTl 

FORGETIT 

REGISTER  IS  ZERn  (-0  MEANS  INACTIVE). 

TASKOVER 
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L 

ROOOOl 

R00002 


R00003 

Roooil 

R00015 

R00019 

R00023 

R00027 

R00029 

R00033 

R00037 

R00041 

R00045 

R00049 

R00053 

R00057 

R00061 

R00065 

R00069 

R00073 

R00075 

R00079 

R00083 

Ro0087 

R00091 

R00095 

R00099 

R00103 

R00107 


R00109 

Room 

R00115 

R00119 

R00123 

R00125 


thrust  mission  Control  program.  user's  own  page  no.  i 

»»servicer  routines** 

MOD  No.  00  modification  BY  A.  <OSMALA  NOV.  1966 


*functional  description* 

THE  thrust  mission  CONTRD-  PROGRAM  TJS  IS  USED  BY  ALL  MISSION  PHASES  WHICH  INCLUDE  A BURN, 

the  normal  entry  to  the  THRJSI  mission  control  program  IS  through  preread,  preread  schedules  the  Job 

LASTBIAS.  boost  phase  enters  he  pREREAo  ROUTINE  AT  BiBiBlAS,  BYPASSING  ThE  lASTBIAS  JOB.  PipS  ARE  CLEARED* 
average  G flag  is  Set.  drift  flag  is  unset.  DV  monitor  and  FINDCUD  are  initialized,  the  job  NORMLIZe  is 

SCHeDJLeD,  and  a waitlist  CALU  is  made  to  start  readaccs  in  two  seconds, 

NORMLIZe  PERFORMS  THe  SCA.ING  AND  INITIALIZATION  REQUIRED  PRIOR  TO  tHe  FIRST  ENTRY  tO  AueRAGe  G. 

IN  the  readaccs  section*  the  accelerometers  are  Read  by  the  pipasr  subroutine,  if  the  average  g flag  is 
SET.  reaqaccs  is  called  TO  Recycll  in  two  seconds,  if  The  average  g Flag  is  down,  average  g exit  (avegexit) 

IS  set  for  the  final  pass,  andi  ^e^'daccs  u not  called  again,  in  either  case,  tHe  Servicer  job  is  established, 

the  servicer  routine  CHECCS  fur  runaway  pips  (DeLV  greater  than  3200  PULSeS/SeC  for  2 SeO  and  sends 
alarm  code  205  iF  BaD  PiP  iS  FQJnU.  PiPS  aRE  COMPENSATED  IN  I/PIPa  SUBROUTINE.  MaSS  iS  UPDaTED  BY  MaSSmOn 
subroutine,  and  control  is  transferred  to  the  monitor  specified  by  DVSeLeCT,  DVSELeCT  is  set  by  THe  BOOST 
phase  to  boostmon.  and  by  t^e  engineon  routine  to  pgncsmon,  users  starting  Servicer  before  the  engine  is 
turned  on  should  insure  bypassing  DVMoN  initially  by  setting  DVSeLeCT  to  the  GeNADR  of  average  g, 

THe  Boost  monitor  (BooStmon)  checks  d^lv  against  thrshld*,  tHe  threshold  acceleration  For  tHe  boost  phase. 

ir  DELV  IS  BELOW  THRESHOLD.  HDICATinG  TErMinATiOn  OF  BOOST.  MISSION  PHASE  6 IS  SCHEDULfD  As  A JOB.  DVSELECT 

IS  altered  to  bypass  BOOStMON  and  proceed  directly  to  average  g. 

the  pgncs  monitor  (Pgncsmdn)  Compares  actual  thrust  to  the  threshold  value  for  the  ♦x  acceleration 

(100  CM/SEC).  iF  thrust  iS  FDUnD  BELOW  THIS  VALUE  FOR  TWO  CYCLES  (I.E..  FOUR  SECONDS)  aS  DfTERMinED  BY  DVCnTR. 

A JOB  IS  scheduled  TO  BRANCH  fO  THe  LOCATION  SPECIFIED  BY  DVMNEXiT.  PREVIOUSLY  SET  BY  The  USERS  PROGRAM. 
DVSELECT  IS  ALTERED  TO  BYPASS  P3NCSM0N,  AND  CONTROL  IS  TRANSFERRED  TO  AVERAGE  G. 

the  average  G routine  UPDATES  RN,  VN,  AND  GDt/2  VECTORS,  USING  tHe  SUBROUTINE  CALCRvG,  THE  NORMAL  EXIT  IS 
THROUGH  avegexit.  WHICH  MUST  SREViOUSLY  HftVE  BEEn  SET  BY  THE  USER.  THE  FINAL  EXIT.  SET  INTO  aVEGEXiT  HY 

readaccs  when  It  finds  the  average  g flag  down,  SETS  UP  free  fall  GYRO  Compensation,  Sfts  tHe  drift  flag  on. 
Performs  avetomid  routine,  and  transfers  control  to  pooh,  thus  clearing  all  activity  until  a new  mission 
PHASE  is  due. 


*****  warning  to  users  ***** 

THE  user  must  set  DvMNEXIT  To  the  2CADR  OF  A JOB  TO  bE  PERFORMED  wHEN  ENGINE  SHUTDOwN  Is  DETECTED  BY  SERVICER. 
IN  General,  the  average  g flaG'  will  be  turned  off  by  the  user  at  that  time,  allowing  just  one  more  pass  through 
average  g,  all  activity  of  the  upers  mission  Phase  must  have  been  completed  before  this  last  pass  through 
average  g,  due  to  the  performance  of  pooh  as  described  above. 

AVGEXIT  must  Be  SET  BY  THE  JStR  TO  THe  2CADR  OF  THE  JOB  (E.G,.  STEERING)  TO  Be  PERFORMED  AFTER  EACH  PASS 
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L thrust  mission  control  PRoGRAMi  TJ^*  USER'S  OWN  PAGp  NO.  ^ 

R00129  THROUGH  AVERAGE  G,  IF  NO  OTHER  jUB  IS  TO  BE  DONE,  AvEGEXIT  SHOULD  BE  SET  TO  SeRvEXIT. 

R00133  user  MUST  INITIALIZE  DVSe-ELT  TO  THE  GeNADR  OF  AVeRAGe  G UNLeSS  JHe  eNGINeON  ROUtINf  HAS  BeEN  PeRFORMeD 

R00137  BEFORE  THe  START  OF  SERVICER, 

R00139  users  (except  FOR  BOOST  PHASE'  MUST  PERFORM  MIDtOAVe  ROUTINE  BEFORE  STARTING  PReReAD, 

R001A3  cAllING  sequence  IS  NORmAu  WAITuI^T  call  for  preread.  (ReADAccS  will  START  TWO  SECONDS  lATER.) 
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L 

R001A7 

R001A9 

R00153 

Rqoiss 

R00l57 

ROOI6I 

R00163 

R00165 

R00169 

R00171 

R00175 

R00177 

ROOI79 

R00183 

Rooies 

0087 

0088 
R0089 
R0091 

0092 

0093 

0094 

0095 


THRUST  MISSION  CONTROL  PRoGRaMi  TJP  USER'S  OWN  PaGF  NO*  3 

subroutines  called 

lastbias  pipasr  flaGiUp  flaozdwn  noRMLize  reaDaccs  Servicer  i/pipa  massmon  average  g calcrvg 

PHASCrING  AVETOMID  POOH 


NORMAL  EXIT  MoDeS  ,,  AVeGeXIt,  OV^NeXIT*  TASKOVeR,  eNDOFUoB, 

ALARM  Code  zqb  given  if  runA/zay  pip.  PROGRAM  theN  Continues  in  normal  sequence* 


erasable  initialization  ReOUIMeD 

MASS  **  INITlA.IZE^  IN  ERASABLE  LOAD 

RAVEGON  ANd  VAUEGON  ,,  INITIALIZED  IN  ERASABLE  LOAq  - UPdATEd  BEFORE  EACh  CAlL  FOR  PREREAd* 


OUTPUT 

DELV(6)  RN(6)  VN(6)  GDT/2(<))  LDUTEMP(6)  MASS(2)  DELaREA(2)  PIPTIME(2)  OLDBTKD 

debris 

CENTRALS  ...  A.  L.  Q 

OTHER  ****  DVCNTR*  ITEMPI*  HEMPz*  RN1(6)*  VNKs)*  GDT1/2(6)'  DAREATMP(2)*  MASSTEMP(2)*  PIPAGE*  TEMX. 
TEMY.  TEMZ.  TEMXY*  PIPCTR 

###  ThRuBT  mission  cONTRO.  is  restart  protected  and  uses  restart  group  5.  *** 


30*2000  3ANK  30 

ref  6 last  701  E5  EBANKs  DVCNTR 

Preread  »«»»*#*»*»*»■»»**«»»**»*»*»»#**•»*»«*»*»  #*hhhhhh*» 


REF  59  last  754  30,2000  0 4i47  1 PREREAD  TC  PHASCHNG 

30.2001  07015  1 OCT  07015 

30.2002  nm  0 oct  77777 

REF  7 LAST  765  E5  EBANX=  DVCNTR 


48895^A  YJU  system  FOR  AGC i NEW  PRO^iRAM  SMePAtIN  BY  eYLeS 


L THRUST  MISSION  CoNTRqL  PRoGRaH.  TJi> 


0096 


30,2003  02UU  0 2CADR 


C0096 

REF 

2 

LAST 

0097 

REF 

3 

LAST 

0098 

REF 

26 

LAST 

0099 

0100 

REF 

2 

LAST 

COlOO 

0101 

REF 

2 

LAST 

0102 

REF 

1 

0103 

REF 

31 

LAST 

0104 

REF 

2 

LAST 

0105 


0106 

REF 

12 

LAS! 

0107 

0108 

REF 

167 

LAST 

0109 

REF 

8 

LAST 

0110 

REF 

6 

LAST 

0111 

REF 

48 

last 

0112 

REF 

1 

0113 

REF 

43 

LAST 

0114 

REf 

2 

last 

0115 

REF 

227 

LAST 

0116 

REF 

3 

LAST 

0117 

REF 

4 

LAST 

0118 

REf 

5 

LAST 

0119 

REF 

6 

LAST 

01195 

REF 

7 

LAST 

0120 

rEf 

2 

LAST 

0121 

REF 

26 

LAST 

0122 

REF 

4 

LAST 

0123 


63A 

153 

762 

26 

56 


721 

329 


7A9 


75A 

765 

673 

699 


630 

766 

759 

766 

766 

766 

766 

766 

362 

7A8 

719 


30,200A  60U65  1 

30.2005  3 5971  1 CAF 

30.2006  0 5923  0 TC 

E3  EBANIC  = 

30.2007  03971  1 2CADR 

30.2010  2AU03  1 

30.2011  0 0006  1 BIBIBIAS  EXTEND 

30.2012  3 2106  1 OCA 

30.2013  52  006  0 OXCH 

30»201A  0 6020  0 TC 

30.2015  00001  0 OCT 

30.2016  0 6045  0 TC 

30,201 f 40000  0 OCT 

30.2020  3 7^55  1 CAF 

30.2021  55*911  1 TS 

30.2022  3 7^43  0 CAF 

30.2023  54  003  0 TS 

E4  EBANXs 

30.2024  3 7'AO  0 CAF 

30.2025  55*940  0 TS 

30.2029  3 7^61  0 CAF 

30,2027  55*941  1 TS 

30.2030  55*642  1 TS 

30.2031  55*943  0 TS 

30.2032  55*944  1 TS 

30.2033  55*945  0 TS 

30,203A  3 5962  0 CAF 

30,2035  0 5934  0 TC 

E4  EBANKs 

30,2039  02917  0 2CADR 


C0123  REF  2 LAST  58  30 

0124  REf  1 30 

0125  REF  137  LAST  754  30 

0126  REF  9 LAST  766 

0127  30 

C0127  REF  1 30 

0128  REF  60  LAST  765  30 

0129  30 


203Y  60U64  0 

2040  3 2154  0 CAF 

2041  0 5^01  1 TC 

E5  EBANK= 

2042  02^47  0 2CADR 

2043  60065  1 

2044  0 4147  1 TC 

2049  40025  1 OCT 


0130  REF  118  LAST  762  30,2049  1 5745  0 


TCF 
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uSER*s  OWN  Page  no*  h e5 

BIBIBIAS 

SKIP  LASTBIAS  AfTER  RESTART 

PRI032 

NOVAC 

NBDX 

LASTBIAS 

DO  LAST  GYRO  COMPENSATION  IN  FREE  FALL 

PIP2CADR 

Z 

CLEAR  ♦ READ  PIpS  LAST  TIME  IN  FREE  FALL 

FLAGIUP 

1 

SET  AVEG  FLAG 

FLAG2DWN 

40000 

KNOCK  DOWN  DRIFT  FLAG 

ONE 

DVCNTR 

EBANK4 

INITIALIZE  DV  MnNITOR 

EbANK 

AXIS 

CORCT  IS  DEAD,  I ONG  LIVE  AXIS 

B1T14 

Axis 

ZERO 

AXIS  *1 

AXIS  *2 

Axis  *3 

AXIS  *4 

AXIS  +5 

INITIALIZE  AXIS  TO  (0. 5*0,0) 

FOR  fINDCDUD 

PRIO2I 

FINDVAC 

RAVEGON 

NORMLIZE 

SET  UP  TO  DO  nOrMLIZE  REQUIRED  PRIOR 

TO  FIRST  ENTRY  TO  AVERAGE  G, 

200dEC 

WAITLIST 

DVCNTR 

readaccs 

PHASCHNG 

40025 

TASKOVER 
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P0131 

0133 

013A 

0135 

0136 

0137 

0138 

0139 
OlAO 
OUl 
0U2 
01A3 

OUA 

01A5 

01A6 

01A65 

01A67 

01A7 

01A8 

01A9 

0150 

0151 

0152 

0153 

015A 

C015A 

0155 

0156 

0157 

0158 
C0158 

0159 

0160 

0161 


0162 

0163 

C0163 

016A 

0165 

0166 

0167 

0168 
0169 

C0169 


THRuST  MISSION  CONTROL  PRogRAvI,  Tji» 


USER’S  OwN  PAGE  NO.  5 


EA 


REF 

REF 

REF 

REF 

1 

2 

32 

2 

LAST 

LAST 

LAST 

766 

766 

79 

30,20A7 

30,205° 

30.2051 

30.2052 

30,2053 

REF 

119 

LAST 

766 

30,205'’ 

REF 

3 

LAST 

767 

30,2055 

REF 

15 

LAST 

525 

30,2055 

30,2057 

REF 

120 

LAST 

767 

30,206° 

REF 

61 

LAST 

766 

30»206l 

30 ,2062 

30,2063 

REF 

88 

LAST 

756 

30,206'’ 

REF 

1 

30.2065 

ref 

12 

LAST 

655 

30.2065 

REF 

66 

LAST 

718 

30.2067 

REF 

298 

LAST 

759 

30.207° 

REF 

1 

30.2071 

REF 

2 

LAST 

766 

30.2072 

REF 

138 

LAST 

766 

30.2073 

REF 

2 

LAST 

58 

30.207A 

REF 

2 

LAST 

766 

30.2075 

REF 

8 

LAST 

677 

30.2075 

REF 

27 

LAST 

766 

30.2077 

REF 

3 

LAST 

767 

30.2100 

REF 

2 

LAST 

58 

30.2101 

REF 

62 

LAST 

767 

30.2102 

30.2103 

REF 

121 

LAST 

767 

30.210'’ 

REF 

A 

LAST 

767 

30.2105 

REF 

1 

30.2105 

30.2107 

REF 

1 

30.211° 

REF 

17 

LAST 

706 

30.2111 

REF 

1 

3°. 2112 

REF 

5 

LAST 

767 

30.2113 

E5 

0 0006  1 

3 2106  1 
52  006  0 
ll'llO  1 

READACCS 

EBANKs 

EXTEND 

OCA 

OXCH 

CCS 

negxdv 

PIP2CADR 

Z 

PHASES 

1 2°55  1 

TCF 

♦ 2 

1 5)A5  0 

TCF 

TASkOvER 

A lUO  1 

cs 

PHASES 

6 7^60  1 

AD 

Five 

0 0006  1 

1 5)A5  0 

EXTEND 

3ZF 

TASKOVER 

0 a1a7  1 

PIPSDONE 

TC 

PHASCHNG 

05°15  0 

OCT 

05015 

77)77  0 

OCT 

77777 

3 7(5A  0 

CAF 

TWO 

55*160  0 

TS 

PIPAGE 

A 0075  1 

chekaveg 

cs 

flagwrdi 

7 7^55  0 

MASK 

BITl 

10  OOO  0 

CCS 

A 

0 2107  0 

TC 

AVEGOUT 

3 215A  0 

CAF 

200DEC 

0 5)01  1 

TC 

WAITLIST 

E5 

EBANKe 

bmemory 

02OA7  0 

2CADR 

READACCS 

50065  1 

3 7)'’0  0 

MAKESERV 

CAF 

PRI020 

0 5»3A  0 

TC 

FINDVAC 

E5 

ebank= 

bmemory 

02115  0 

2CADR 

SERVICER 

60065  1 

0 AlA7  1 

TC 

PHASCHNG 

A0065  0 

OCT 

40065 

1 5)A5  0 

TCF 

TASKOVER 

E5 

ebank= 

BMEMORY 

02506  0 

PIP2CADR 

2CADR 

pIpASR 

50065  1 

0 0006  1 

AVEGOUT 

EXTEND 

3 211A  1 

OCA 

AVOUTCAD 

53*073  0 

OXCH 

AVGEXIT 

1 2°76  0 

TCF 

MAKESERV 

E5 

EbANk* 

bmemory 

0227A  1 

AvOUTCAD 

2CADR 

AVGEND 

CALL  PIPASR 
LAST  PASS  CHECK 


these  a instructions  only  in  for 

FAKESTART,  REMOVE  iF  REAL  RESTARTS 
RETURN. 


SHOW  PIPS  have  reen  reau  for  rereadac 


IF  aveg  flag  down  Set  final  exit  aveg 

READ  PIPS  AT  2 SECOND  INTERVALS 


ESTABLISH  SERVIrER  ROUTINE 


RESTART  servicer  AND  READACCS 
SEE  RESTART  TABi ES 

END  PREVIOUS  READACCS  WAITLIST  TASK 


REF 


30,211A  60^65  1 
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P0170  «»**«»«««**«  f*****"*'"'*****''*' »*!"'****  SERVICER  *««******««*«***««*«**«****«**"«*«**«*«*»«*«*«««*«««»«*«««*«* 

R0172 


R0178  D>  SAVEM  and  ReSTOReM  LATeR  I 'i  NORMAL  RESTARTS  SHOULD  EVER  RETURN 


0179  REF  89  LAST  767 

0180  REF  1 


30,2115  3 7'5A  0 SERVICER  CAF  TWO 

30,2ll<>  55'512  1 PIPCHECK  T5  PIPCTR 


0181 

30*2 

117 

6 0000 

1 

01815 

REF 

299 

LAST 

767 

30,2 

120 

50  000 

1 

0182 

REF 

12 

LAST 

434 

30,2 

12l 

10  403 

1 

0183 

30,2 

122 

0 2124 

1 

0184 

REF 

1 

30,2 

123 

0 2132 

0 

double 
INDEX  A 

CCS  DELVX 

TC  *Z 

TC  PIPLOOP 


0185 

REF 

1 

30,2124 

6 

2152 

0 

0186 

30,2125 

0 

0006 

1 

0187 

REF 

2 

LAST 

768 

30,2126 

6 

2132 

0 

0188 

REF 

35 

LAST 

762 

30,2127 

0 

4f44 

1 

0189 

30,2130 

00205 

0 

0190 

REF 

6 

LAST 

707 

30,2131 

0 

2233 

1 

AD  -maxdelv  do  pipa-saturation  test  before 

EXTEND 

3ZMF  PIPLOOP  COMPENSATION. 

TC  ALARM 

DCT  00205  SATuRATED-pIpA  ALARm 

TC  AVERAGEG 


0191 

0192 


REF 

REF 


2 LAST  768 
1 


30.2132  11'512  1 PIPLOOP  CCS  PiPCTR 

30.2133  1 2116  1 TCF  PIPCHECK 


01922 

01923 

01924 

REF 

63 

LAST 

767 

30.2134 

30.2135 

30.2136 

0 4I47 
I6O35 
20000 

1 

0 

0 

01925 

REF 

6 

LAST 

767 

E5 

01926 

30,2137 

02143 

0 

C01926 

REF 

1 

30,2140 

60065 

1 

0193 

REF 

132 

LAST 

752 

30,2141 

0 5224 

0 

0194 

REF 

2 

LAST 

434 

30,2142 

25220 

0 

TC  PHASCHNG  RESTART  REREADAC  ♦ SERVICER 

OCT  16035 

OCT  20000 

ebank=  bmemory 

2CADR  GOMASS 

TC  bankcall  pipa  compensation  call 

CADR  1/PIPA 


0195  REF  76  LAST  760 

0196 

0197  REF  1 

0198  REF  2 LAST  689 

0199  REF  1 


21A3 

21AA 

21A5 

21A6 

21A7 


0 6103  0 
51575  1 
OOAOA  1 
36535  1 
61146  0 


GOMASS 


TC  INTPRET 
VLOAD  ABVAL 
DELV 

STCAUL  ABDELV 
MASSMON 


0200  30,2150 

0201  REF  10  LAST  705  30,2151 

0202  REF  7 LAST  768 

020a  30*2152 

020A1  30,2153 

0205  30,2154 


0206  30,2155 

0207  ref  33  Last  634  30,2156 


77776  1 
0 1322  0 
30*2233 

63401  1 
00l32  1 
00310  0 


00062  0 
3 7^54  0 


exit 


AGSMON 

TC 

equals 

DVSELECT 

AVERAGEG 

-MAXDELV 

DEC 

-6398 

3200  PULSES/SEC  FOR 

2 SEC.  CCS  TAKES  : 

plusxDva 

DEC 

90 

90  CM/SEc  = AScfNT 

threshold 

2n0DEC 

DEC 

200 

PLUSXDVD 

DEC 

50 

50  CM/SEC  = DESCENT 

THRESHOLD 

PGNCSMOn 

caf 

BiT2 

check  channel  30  TO 

SEE  IF  staging  HAS 
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02071 

02072 

02073 
0207A 
0208 

0209 

0210 


0211 

0212 

0213 

02U 

0215 

0216 

0217 

0218 

0219 

0220 
C0220 

0221 

0222 

0223 

0224 

0225 

0226 

0227 

0228 
C0228 


REF 

300 

REF 

1 

REF 

3 

REF 

1 

REF 

168 

REF 

10 

REF 

8 

REF 

11 

REF 

1 

REF 

64 

REF 

12 

ref 

9 

REF 

13 

REF 

10 

REF 

13 

REF 

28 

REF 

REF 

14 

1 

LAST  768 
LAST  768 

LAST  766 
LAST  766 
last  768 

LAST  769 

LAST  768 
LAST  769 

last  769 

LAST  769 
LAST  769 

LAST  751 

LAST  767 
LAST  769 


30,2157 

0 

0006 

1 

30,2160 

02 

030 

0 

30,2161 

50 

ooo 

1 

30,2162 

4 

2153 

0 

30,2163 

6 

1534 

1 

30,216A 

0 

0006 

1 

30,2165 

6 

2171 

1 

30,2166 

3 

7^55 

1 

30,2167 

55'511 

1 

30,2170 

1 

2233 

0 

RESETDV 


EXTEnD 

RAND 

30 

index 

A 

CS 

PLUSXDVA 

AD 

ABDELV 

EXTEND 

BZMF 

THRUSTLO 

CAF 

One 

TS 

DvCNTR 

TCF 

AVERAGEG 

30,2171 

3 1511 

0 

30,2172 

0 0006 

1 

30,2173 

6 2203 

1 

30,217A 

0 4147 

1 

30,2175 

I2O35 

1 

E5 

30,2176 

D2233 

1 

30,2177 

50065 

1 

30,2200 

0 0006 

1 

30,2201 

27*511 

1 

30,2202 

1 2233 

0 

30,2203 

3 5226 

1 

30,2204 

0 0004 

0 

30,2205 

0 5534 

0 

E5 

30,2206 

02211 

1 

30,2207 

50065 

1 

THRUSTLO  CA  DVCNTR 
EXTEND 
3ZMF  NODV 
TC  PHASCHNG 
DCT  12035 
EBANK=  DVCNTR 

2CADR  AVERAGEG 

EXTEND 

DIM  DVCNTR 
TCF  AVERAGEG 

NODV  CAF  PRI030 
INHINT 

TC  FINDVAC 
EBANK=  DVCNTR 
2CADR  DVEXIT 


0229 

REF 

1 

30,2210 

1 2‘:25 

1 

TCF 

DVMNKILL 

0230 

30,2211 

0 0U06 

1 

DVEXIT 

EXTEND 

0231 

ref 

7 

LAST 

705 

30,2212 

3 IU75 

1 

DCA 

dvmnexit 

0232 

REF 

33 

LAST 

767 

30,2213 

52  006 

0 

DXCH 

z 

0233 

REF 

4 

LAST 

769 

30,221A 

4 1534 

0 

boostmon 

CS 

ABDELV 

0234 

ref 

1 

30,2215 

6 2<:31 

0 

Ad 

ThRshld* 

0235 

30,2216 

0 0006 

1 

EXTEND 

0236 

REF 

1 

30,2217 

6 2166 

1 

BZMF 

RESETDV 

0237 

30,2220 

0 0004 

0 

INHINT 

0238 

REf 

9 

LAST 

767 

30,2221 

3 7<A0 

0 

cAf 

PRI020 

0239 

REF 

29 

LAST 

766 

30,2222 

0 5523 

0 

TC 

NOVAC 

0240 

REF 

7 

LAST 

768 

E5 

ebank= 

BMEMORY 

0241 

30,2223 

D2‘*63 

1 

2CADR 

MP6J0B 

C0241 

REF 

1 

30,222A 

56O05 

1 

0242 

30,2225 

0 0003 

1 

-1 

relint 

0243 

REF 

1 

30,2226 

3 2Z30 

1 

DVMNKILL 

CAF 

AVEGADDR 

0244 

REF 

11 

LAST 

768 

30,2227 

55*322 

1 

TS 

DVSELECT 

-1 


USER'S  OWN  PAGf  no,  7 E5 

occurred.  IF  BiT2  is  On  wE  Are  UnSTAgED 
AND  descent  PLUSXDV  IS  USED  OTHERWISE 
THE  ASCENT  PLUSxDV  IS  EMPLOYED, 

acceleration 

THRUST  Ok,  reset  Dy  MONITOR  AND 
BRANCH  TO  AVERAGEG 


SET  UP  HIGH  PRIn  FINDVAC  TO  DVExIT 


AND  remove  DV  MONITOR 
BRANCH  TO  SELECTED  LOCATION 

COMPARE  ABDELV  TO  THRSHLD*  TO  DETECT 
BOOSTER  shutdown 

SHUTDOWN  HAS  OCrURRED 
SET  UP  MISSION  PHASE  6 JOB 
NO  VAC  area  NEEDED 

REMOVE  DV  MONITOR  FROM  SERVICER 


'►8895^A  YJL  SYSTEM  FOR  AGC:  NEW  PROGRAM  SMEPATIN  BY  EYLES 


DEC  13,  1966  (MAIN)  PAGE  770 


L THRUST  MISSION  CoNTRqL  PRqGRaHi  TJP  USER'S  OWN  PAGF  NO.  0 E5 

0245  REF  11  LAST  769  30,2230  0 2^:33  1 A^/EGADOR  TC  AVERAGEG 

0246  30,223l  OOOOO  1 THRSHLD.  2DEC  0.  TEMPORARY  »**«*(♦*»»»«#«'*«»  PLEASE  PATCH 

C0246  30,2232  OOOOO  1 

R0247 

R0248  FLAG  SUBROUTINES 

R0250 

0251  6020  BLOCK  03 

R0252  the  flag  SUBROUTINES  ARE  JSeO  10  SeT  OR  ReSET  FLAGS  (BITS)  IN  FLAGWRDl  AND  FLAGWRDz.  THE  BIT(S)  TO  Be  SET  OR 

R0254  Reset  IS(ARE)  indicated  by  the  OCIAL  number  following  the  TC  call,  the  calling  SeUUeNCea  ARe  - 

R0256 


A0257 

TC 

FLAGlUP 

Set  bit(S)  in  flagwrdi  corresponding  to 

A0258 

OCT 

XXXXX 

THE  1 bits  in  Number  xxxxx. 

A0259 

TC 

FLAGlDWN 

Reset  bit(S)  in  flagwrdi  corresponding 

A0260 

OCT 

XXXXX 

TO  THE  1 bits  In  NUMBER  XXXXX. 

R0261  THE  CALLING  SEQUENCES  FOR  FLA3WRD4  ARE  SIMILAR. 

R0262  NOTE  THAT  FLAGWRDl  AND  FLAjWRDW  CORRESPOND  TO  INTERPRETIVE  SWITCHES  15D  THROUGH  44D, 

R0264 

R0265  FLAGWORD  BITS  ARE  DEFINED  IN  LOG  SECTION  "ERASABLE  ASSIGNMENTS" 


0284  6020  0 0004  0 FLAGIUP  INHINT  SET  FLAG  1 SUBROUTINE 

0285  REF  13  LAST  767  602l  4 0075  1 CS  FLAGWRDl 

0286  REF  229  LAST  759  6022  50  002  0 INDEX  0 

0287  6023  7 OOOO  0 MASK  0 

0288  REF  14  LAST  770  602^*  26  O75  1 ADS  FLAGWRDl 


0289  6025  0 0003  1 RELINT 

0290  REF  6 LAST  295  6026  1 7OO6  1 TCF  0*1 


0291  6027  0 0004  0 FLAG2UP  INHINT  SET  FLAG  Z SUBROUTINE 

0292  REF  21  LAST  760  6O3O  4 OO76  1 CS  FlA6WRD2 

0293  REF  230  LAST  770  6O3I  50  002  0 INDEX  Q 


0294  6032  7 OOOO  0 MASK  0 

0295  REF  22  LAST  770  6033  26  O76  1 ADS  FLAGWRD2 


0296  603A  0 0O03  1 RELINT 

0297  REF  7 LAST  770  6035  1 7OO6  1 TCF  0*1 


0298 

0299 

0300 

0301 

REF 

231 

LAST 

770 

6036 

REF 

15 

last 

770 

6037 

6040 

6041 

50  002  0 FLAGIDWN  INDEX  0 

4 OOOO  0 CS  0 

0 0004  0 INHINT 

7 0075  1 MASK  FLAGWRDl 


RESET  FLAG  1 SUBROUTINE 


0302 

REF 

16 

LAST 

770 

6042 

54 

D75 

1 

TS 

FLAGWRDl 

0303 

0304 

REF 

8 

LAST 

770 

6043 

6044 

0 

1 

0003 

7OO6 

1 

1 

RELINT 

TCF 

Q.l 

^88954A  YJL  SYSTEM  FOR  AGCj  NEW  PROGRAM  SMePATIN  BY  eYLeS 


Dec  U,  1966  (MAIN)  PAGE  771 


L thrust  mission  control  PRoGRaHi  tu^ 


USER'S  OWN  page  NO.  9 


0305 

REF 

232 

LAST 

770 

60A5 

50  U02 

0 

FLAG2DWN  INDEX 

Q 

0306 

60A6 

A OUOO 

0 

CS 

0 

0307 

LAST 

60A7 

0 OUOA 

0 

INHINT 

0308 

REF 

23 

770 

6O5O 

7 0U76 

1 

MASK 

FLAGWRD2 

0309 

REF 

2A 

LAST 

771 

6051 

54  U76 

1 

TS 

FLAGWRD2 

0310 

6052 

0 0U03 

1 

RELINT 

RESET  FLAG  2 SUBROUTINE 


E5 


0311  REF  9 LAST  770  6053  1 7UO6  1 TCF  Q+1 

0312  REF  119  LAST  76l  EA  EBANK=  TDEC 

R0313  »)nnnt»nnnt#»)t#jnnnnnnnnnnnnnt«*)HKt#»»««#*«##ENGl NE  ON»OfF  ROyT I NES^innnnnnnt**#*#*#* 

R0315  all  block  2 COMPUTERS  HAVE  TH£  EN^INE-ON  AND  ENGiNE-OFF  DISCRETES  IN  BITS  13  AND  lA  RESPECTIVELY  OF  CHANNEL  n, 
R0317  IE  LeM  descent  ENGINE  SEES  A 1,1  CONDITION  (BOTH  OUTPUT  TRANSISTORS  CONDUCTING)  OR  A o.O  CONDITION  (BOTH  OUTPUT 

Ro319  Transistors  non-conducting)  they  will  ignore  the  signal  and  remain  in  the  state  they  were  previously  in,  this 
R0321  allows  tHe  COMPUTER  TO  ZERO  A.L  tHe  OUTPUT  BITS  DURING  A RESTART  AND  NOT  SHUT  THe  ENGINf  OFf , tHeRE  IS  NO  TIME 
R0323  LIMIT  AS  TO  HOW  LONG  AN  IMPROPER  ^TATE  (1»1)  OR  (0.0)  CAN  LAST  WITH  DESCENT  ENGINE, 


R0325  the  Lem  ASCeNT  engine  will  Be  turned  on  by  an  erroneous  1,1  condition  which  LASTS  longer  than  1 millisecond, 

R0327  therefore  THE  LGC  MUST  Be  PRDjRAMMeD  TO  SeT  THE  BITS  TO  THE  PROPER  StAte  WITHIN  0.5  MILl  ISECOND  FOLLOWING 

R0329  RECOVERY  FROM  A RESTART 


R0330  ENGINE  ON  AND  OFF  COMMANDS  Are  NOIED  IN  THE  EVENT  REGISTERS  FOR 
R0331  DOWNLINK,  IF  IT  IS  OESIReD  TO'  SIMPLY  ENSURE  ENGINE  OFF  PRIOR  TO  AN 

R0332  engine  ARM  COMMAND,  ENGINeOFi  SHOULD  BE  USED  SO  THAT  EVENT  IS  NOT 

R0333  ENTERED  IN  DOWNLINK, 


0334 

6O5A 

0 0006 

1 

engineon  extend 

0335 

REF 

31 

LAST 

716 

6055 

3 0025 

0 

XA 

TIME2 

0336 

REF 

6 

LAST 

640 

6056 

53*  f24 

0 

DXCH 

TEVENT 

0337 

RtF 

1 

6057 

3 6070 

0 

CA 

PGNSCADR 

0338 

REF 

12 

LAST 

769 

6060 

55*322 

1 

TS 

DVSELECT 

0339 

REF 

14 

LAST 

769 

606l 

4 5226 

0 

CS 

PRI030 

0340 

6062 

0 0006 

1 

EXTEND 

0341 

6063 

02  on 

0 

RAND 

11 

0342 

REF 

27 

LAST 

712 

606A 

6 7T41 

i 

AD 

BIT13 

0343 

6065 

0 0006 

1 

EXTEND 

0344 

6066 

01  on 

0 

WRITE 

11 

0345 

REF 

233 

LAST 

771 

6067 

0 0002 

0 

TC 

Q 

03455 

REF 

2 

LAST 

89 

6O7O 

02156 

1 

pgnscadr 

genadr 

PGNCSmON 

0346 

6071 

0 0006 

1 

ENGINOFF 

EXTEND 

0347 

REF 

32 

LAST 

771 

6072 

3 0025 

0 

OCA 

TIME2 

0348 

REF 

7 

LAST 

771 

6073 

53' Y24 

0 

OXCH 

TEVENT 

0349 

REF 

1 

6O7A 

4 5226 

0 

EnGInOFI 

CS 

PRI0R30 

ENG  ON  EVENT  NOTED  IN  DOWNLINK 

SET  DVMOniTOr  To  EXPECT  THRUST 
ENGINE  ON  BIT13.  ENGINE  OFF  BITIA 


NOTE  engine  off  EVENT  TO  DOWNLINK 

no  dwnLInk  here 


488954a  YJL  system  FOR  AGC;  NeW  PRqGRAVI  SH^PatIN  BY  e^I-eS 


L thrust  mission  control  PRoGRAHi  TJ^ 


0350 

6075 

0 0006  1 

EXTEND 

0351 

6076 

02  011  0 

RAND 

1 1 

0352 

REF 

44 

LAST 

766 

607/ 

6 7^40  0 

AD 

BIT14 

0353 

6IOO 

0 0^06  1 

EXTEND 

0354 

6101 

01  011  0 

WRITE 

11 

0355 

REF 

234 

LAST 

771 

6102 

0 0002  0 

TC 

Q 

0356 

REF 

15 

LAST 

771 

5226 

PRIOR30 

EQUALS 

PRI030 

0357 

REF 

4 

LAST 

665 

1154 

OTEMP 

equals 

TEMX 

0358 

30*2233 

bank 

30 

R0373 

0374  ref  8 last  707 

0375  REF  77  LAST  768  30,2233 

0376  30,2234 

0377  REF  I 30,2235 

0378  30,2236 

0379  REF  65  LAST  769  30t2237 

0380  30,2240 


E5  EBANKs  DVTOTAL 

0 6103  0 AVERAGES  TC  INTPRET 

77P24  1 CALL 

61077  0 CALCRVG 

77^76  1 EXIT 

0 4i47  1 TC  PHASCHNG 

10035  0 OCT  10035 


0381 

0382  REF 

0383  REF 

0384 

0385  REF 

0386 

0387  REF 

0388  REF 

0389  REF 

0390  REF 

0391  REF 

0392  REf 

0393 

0394  REF 

0395  REF 

0396 

0397  REF 

0398  REF 

03981 

03982  REF 

03983  REF 


2 LAST  514 

93  LAST  686 

44  LAST  592 

45  LAST  772 
1 

46  LAST  772 

8 LAST  722 

94  LAST  772 
I 

1 

7 LAST  673 
1 

8 LAST  699 

4 LAST  719 

3 last  722 


30 

30 

30 

30 

30 

30 

30 

30 

30 

30 

30 

30 

30 

30 

30 

30 

30 

30 

30 

30 

30 


224l 

224i; 

2243 

2244 

2245 

2246 

2247 

2250 

2251 

2252 

2253 

2254 

2255 

2256 
225/ 
2260 
2261 
2262 

2263 

2264 

2265 


0 0O04 
3 7^52 
54  061 
6 0000 
54  062 
0 0006 
5 0062 
3 1051 
50  062 


COPYCYCL  INHINT 

CAF  EIGHT 
TS  ITEMPl 
DOUBLE 

TS  ITEMP2 
EXTEND 

INDEX  ITEMP2 
OCA  RNI 
INDEX  ITEMP2 


53»01l  1 
10  061  1 
I 21:43  1 
0 0006  1 
3 1560  0 
53*552  0 
0 OOO6  1 
3 1562  1 
53*333  1 
0 0006  1 
3 1321  0 
53*341  1 


OXCH 

CCS 

TCF 

EXTEND 

OCA 

OXCH 

EXTEND 

OCA 

OXCH 

EXTEND 

OCA 

OXCH 


RN 

ITEMPl 

COPYCYCL 

DAREATMP 

DELAREA 

MASSTEMP 

MASS 

PIPTIME 

STATIME 


0399 

0400  REF  66  last  772 

0401 


30*2266  0 0003  1 

30,2267  0 4i47  1 

30,2270  10035  0 


RELINT 

TC  PHASCHNG 

OCT  10035 


Dec  13*  1966  (MAIN)  PAG^  772 
USeRiS  own  PAGf  no.  10  E4 


RETURN 


STATE  VECTOR  TIME  FOR  DWNLINK 


^8895AA  yJL  SVSTEm  FOr  AGC!  NEW  PrOQrA.v)  sHErATIN  0Y  EYLEs 


DEc  1966  (mAIN)  rAgE  77J 


L thrust  mission  control  RRoGRAvI,  tJ^ 


0A02 

REF 

18 

30,2271 

0A03 

LAST 

767 

30,2272 

OAOA 

REF 

3A 

LAST 

769 

30,2273 

OAO5 

REF 

5 

LAST 

772 

30,227A 

0A06 

REf 

1 

30,2275 

0A07 

REF 

7 

LAST 

75A 

30,2276 

0A08 

30,227T 

0A09 

30,2300 

OAIO 

REF 

1 

30,2301 

OAll 

REF 

35 

LAST 

773 

30,2302 

0A12 

REF 

67 

LAST 

772 

30,2303 

OA 1 3 

30 ,230A 

0A131 

REF 

26 

LAST 

758 

30,2305 

0A132 

REF 

9 

LAST 

751 

30,2306 

OA133 

30,2307 

0A13A 

REF 

100 

LAST 

760 

30,2310 

OAlA 

REF 

2 

LAST 

679 

30,2311 

0A15 

REF 

68 

LAST 

773 

30,2312 

0A16 

30,2313 

0A17 

REF 

101 

LAST 

773 

30,231A 

0A18 

REF 

6 

LAST 

721 

0 0U06  1 
3 IU73  1 
52  U06  0 

3 \iZl  0 
55*163  0 

0 6U27  1 

40U00  0 

0 0U06  1 
3 2^16  I 
52  U06  0 

0 AiA7  1 
OOU55  1 

A 7^53  0 

6 0^65  0 

0 0U06  1 

1 5605  0 

I 4*^61  1 

0 AiA7  1 
DOU35  1 

1 5605  0 

EA 


Extend 

OCA 

OXCH 

AVGEND  CA 
TS 

TC 

OCT 

EXTEND 

OCA 

OXCH 

TC 

OCT 


CS 


AD 

EXTEND 

3ZF 

TCF 

SERvExIT  TC 
OCT 

TCF 

EBANKs 


AvGExIT 

z 

PIPTIME  *1 

oldbti 

FLAG2UP 

AOOOO 

AVEMIDAD 

Z 

PHASCHNG 

55 

FOUR 

PHASENUM 

ENDOFJOB 

POOH 

PHASCHNG 

00035 

ENDOFJOB 

AVMIDRTN 


0A19  30»231i'  02U73  1 A\/EMIDAD  2CADR  AVETOMID 

C0A19  REf  1 30,2316  UUOA  1 


USER'S  OWN  RAGf  no.  U E5 

AVERAGEG  EXIT 

FINAL  AVERAGE  G EXIT 

SET  UP  FREE  pALl  GYRO  cUmPENSATION 

set  drift  flag 

transfer  state  vector  via  AVETOMID 

***  means  inactive  only  for  fAKESTRT 


^88954A  yJL  SySTEM  FOR  AqC;  NEW  PROGRAM  S^EpATlN  BY  EYLES 


DEC  l3f  1966  (MAIN)  PAGE  77A 


L 

P0A20 


R0A22 

ROA2A 


thrust  mission  control  progRami  TJi>  USER'S  OWN  pagf  no,  U E5 

nORMLiZE  performs  the  initialisation  REQUIRED  PRIOR  TO  THE  FIRST  EnTRY  TO  AVERAGEG,  AnD  SCALES  Rn  SO  THAT  iT 


has  1 leading  BINARY  ZERO.  JN  MQSI  MISSIONS,  RN  WILL  BE  SCALED  AT  2<*29),  BUT  IN  THE  206  MISSION,  RN  WILL  Be 
SCALED  AT  2(*2A)M,  TIME  OF  R'i^,YN  IS  IN  StATIME  FDR  DWNLINK 


0A25 

ref 

5 

last 

766 

0A26 

30,231T 

0A261 

REF 

120 

LAST 

771 

0A262 

REF 

7 

LAST 

766 

30,2320 

0A263 

REF 

A9 

LAST 

766 

30,2321 

0A26A 

REF 

32 

LAST 

751 

30,2322 

0A27 

REF 

3 

LAST 

722 

30,2323 

0A28 

REF 

61 

LAST 

760 

3O.232A 

0A29 

RtF 

62 

last 

77A 

30,2323 

0A30 

REF 

6 

LAST 

77A 

30,2326 

0A301 

REF 

63 

LAST 

77A 

30,2327 

0A302 

REF 

9 

LAST 

772 

30,2330 

0A303 

REF 

6A 

LAST 

77A 

30,2331 

0A30A 

ref 

3 

last 

766 

30,2332 

0A305 

30,2333 

0A306 

REF 

2 

LAST 

719 

30,233A 

0A307 

REF 

A 

LAST 

772 

30,2335 

0A3071 

ref 

33 

LAST 

77A 

30,2336 

0A3072 

REF 

50 

LAST 

77A 

30,2337 

0A308 

30,23A0 

0A309 

REF 

78 

LAST 

772 

30,23Al 

0A3I 

30,23A2 

0A32 

REF 

1 

30 ,23A3 

0A33 

REF 

1 

30,23AA 

0A3A 

30,23A5 

0A35 

REF 

102 

LAST 

773 

30,23A6 

EA 

0 OOOA  0 
EA 

3 7'A3  0 
56  003  1 
5A  O7I  0 
3 7F56  1 


5A  070  1 
5D  070  0 
3 151A  0 
5D  O7O  0 
55*010  0 
ID  O70  1 
1 2P21  1 
0 0006  1 
3 IPll  0 


53'AAI  1 


3 0071  I 
5A  003  0 
0 0003  1 
0 6i03  0 
77R2A  1 
610A3  1 
01025  1 


link  1 
1 5PO5  0 


EbANks  RAVEgON 
NORMLIZE  INHINT 

EBANKS  TDEC 

CAF  EBANKA 

KCH  EBANK 

TS  RUPTREG2 

CAF  ELEVEN 


TS 


RUPTREGl 


index  ruptregi 


RAVEGON 
INDEX  RUPTREGl 

TS  RN 

CCS  RUPTREGl 

TCF  NORMLIZE  +2 

EXTEND 

DCA  TAVEGON 

DXCH  STATIME 


CA  RUPTrEGZ 

TS  EBANk 

PELINT 

TC  INTPRET 

CALL 

CALCGRAV 
store  GDT/2 


exit 

TCF 


INITIALIZE  INDEy-DEC  11 


STORE  RN,  VN 


state  time  for  nWNLiNK 


INITIALIZE  UNITR  RMaG  GDTl 


ENDOFJOB 


F 


488954A  yjL  SYSTEM  FOR  AGC ; NEW  PRO^R^.M  SMePATIN  BY  EYLES 


dec  U,  I966  (MAIN)  PAGE  77S 


L thrust  mission  control  PROGR'^Hi  TJS  USER'S  OwN  pAGF  NO,  13 

P0436  VPAtCHeR  is  AN  ADAPTATION  Of  NURMLIZe  WHICH  IS  CALLED  AFTeR  MIDtOAVe  HAS  BeeN  PeRFORmeD  AND  PRIOR  TO 

R0438  PReBUSN  PROGRAMS  THAT  ReOUIRe  IoNItION  STATE  POSITION,  VELOCITY,  AND  GRAVITY  VeCtORS  IN  ReGiSteRS  RN,VN 

Roaao  got/2,  the  Registers  are  re-initialized  by  normlize  when  preread  calledreD  by  normlize  when  preread  is 


R0AA2  names  dates 

R04A3  VPATCHER  20  OCTOBER  1966 

R0444  Programmer  subroutines  called 

R0445  SCHULENBERG  CALCGraV 

R0446  CALLING  SEOJETNCE 

R0447  IF  IN  BASIC  L-l  TC  INTPRET 

R0448  L CALL  VPATCHER 

R0449  L+1  EXIT 

R0450  NORMAL  EXIT 

R0451  AT  L+1  OF  CALLING  SEQUENCE 

R0452  DEBRIS 

R0453  RN.  VN,  GDT/2,  UNITR,  RMAG 


R0454  OUTPUT 

R0455  RIGNITION  IN  RN*2(+24)m 

R0456  VIGNITION  IN  VN*2(*7)M/CS 

R0457  GDT/2  at  IGNITION  IN  GDTX2»2 (♦ O M/CS 

R0458  UNIT  RIGNITION  IN  UNITR  *2(*l)M 

R0459  RMAG  AT  2(*24)M 


0460  30»23A'7  77&20  0 VPATCHER  STQ 

0461  REF  1 30,2350  01154  0 QTEmP 


0462 

30,2351 

77^76 

1 

exit 

0463 

30,2352 

0 0004 

0 

inhint 

04631 

REF 

121 

LAST 

774 

E4 

EBANX= 

TDEC 

04632 

REF 

8 

LAST 

774 

30,2353 

3 7(43 

0 

CAF 

EBANK4 

04633 

REF 

51 

LAST 

774 

30,2354 

56  003 

1 

XCH 

EBANK 

04634 

REF 

34 

LAST 

774 

30,2355 

54  071 

0 

TS 

RUPTREG2 

0464 

REF 

4 

LAST 

774 

30,2356 

3 7756 

1 

CAF 

ELEVEN 

04641 

REF 

65 

LAST 

774 

30,2357 

54  O70 

1 

VPATLOOP  TS 

RUPTREGl 

04642 

REF 

66 

LAST 

775 

30,2360 

50  070 

0 

INDEX 

RUPTREGl 

04643 

REF 

2 

LAST 

721 

30,2361 

3 1400 

1 

CA 

RIGNTION 

04644 

REF 

67 

LAST 

775 

30,2362 

50  070 

0 

INDEX 

RUPTREGl 

04645 

REF 

10 

LAST 

774 

30,2363 

55*010 

0 

TS 

RN 

INITIALIZE  INDEX  TO  DEC  11 


STORE  RN,VN 


04646  rEF  68  LAST  775  30,2364 

04647  REF  1 30,236S 

04648  30,2366 

04649  REF  6 LAST  721  30,2367 

0465  REF  5 last  774  30,237° 

0A651  REF  35  last  775  30,237l 

04652  REF  52  LAST  775  30,2372 

04653  30,2373 

04654  REF  79  LAST  774  30,237^ 


10  070 

1 

CCS 

RUPTREGl 

1 2357 

0 

TCF 

VPATLOOP 

0 0006 

1 

extend 

3 1670 

1 

OCA 

TIGN 

53*341 

1 

OXCH 

statime 

3 OO7I 

1 

CA 

RUPTREG2 

54  003 

0 

TS 

EbANK 

0 0O03 

1 

RELINT 

0 6103 

0 

TC 

INTPRET 

STATE  time  for  nWNLiNK 


E4 


AND 

called 


^8895<tA  y-JL  SySTEM  FOR  AqC;  NEw  SHEpATIN  BY  Ey>-ES 


0A66 

0A67 

0468 

0A69 

0A70 


thrust  mission  control  ProGKAHi  TJ^ 

30t2375  77924  1 CALL 

REF  2 LAST  774  30*2376  6IU43  1 


REF  2 LAST 

77<v 

30,2377 

01025 

1 

store 

REF  2 LAST 

775 

30.2400 

30.2401 

77650 

01154 

1 

0 

GOTO 

DEC  13,  1966  (MAIN)  pAgE  776 


USER'S  OWN  page  NO.  14 


CALCGRAV 

GUT/2 


E4 


QTEMP 


48895^A  rjL  system  pOR  AGC!  NEW  PROGRAM  5HEPATIN  BY  EYLES 


DEc  13«  1966  (MAIN)  pAGE  lH 


L tjmble  monitor 
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11 

*15A 

1 

30 

♦ 2627 

1 

2633 

1 

30 

♦ 2630 

1 

2633 

1 

30 

♦ 2631 

1 

2633 

1 

30 

♦ 2632 

1 

2520 

0 

30 

♦ 2633 

A 

1157 

1 

30 

♦ 263A 

1 

2527 

1 

tD 

30 

♦ 2635 

02061 

1 

30 

♦ 2636 

60065 

1 

rereadac  extend 

DCA 

DXCH 

REPIPASR  CCS 

TCF 

CCS 

TCF 

TCF 

TCF 

TCF 

CCS 

TCF 

TCF 

TCF 


CCS 

TCF 

TCF 

TCF 

TCF 

CS 

TCF 

CHKDELVX  CCS 

TCF 

TCF 

TCF 

CCS 

TCF 

TCF 

TCF 

TCF 

CS 

TCF 

CHKTEMX  CCS 

TCF 

TCF 

TCF 

TCF 

CS 

TCF 

EBANK: 
DONECAD  2CADR 
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USER'S  OWN  PAGf  NO.  ‘t 

DONECAD 

PIPRETRN 

PIPAGE 

WAS  I READING  PiPS. 

PIPASR  *1 
DELVZ  *1 
REPIPA 

♦ 3 

REPIPA 

REPIPA 

PIPAGE  =0  (I  WAS  READING  PIPS.) 

Z WAS  READ  OK 

Z NOT  DONE*  CHECK  Y. 

DELVY  ♦! 

♦ 3 

CHKDELVX 

♦ 1 

HAS  IT  changed  fROM  ITS  ♦ZERO  INIT  VALU 
YES*  Y DONE.  TRY  TO  REDO  Z, 

NO*  GO  LOOK  AT  X. 

YES 

TEMZ 

♦ A 

♦ 3 

DOES  TEMZ  still  s -0* 

no-try  to  restore 

♦ 2 

REPIP3 

YES*  GO  BACK  AND  READ  Z AGAIN, 

TEMXY 

REPIP3B 

MUCH  MORE  LOGIC  COUl  D BE  INCORPORATED 

to  check  pipA  ctR  for  size 

DELVX  ♦! 

HAS  THIS  changed. 

♦3 

CHKTEMX 

♦ 1 

TEMY 

♦A 

♦ 3 

♦ 2 

REPIP2 

TEMXY 

REPIP2B 

YES 

NO 

YES 

temx 

HAS  THIS  changed. 

♦ A 

♦ 3 

♦ 2 

REPIPl 

TEMXY 

REPIPIB 

DVCNTR 

PIPSDONE 

YES 

YES 

YES 

NO 
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L 

ROOOl 

R0002 

R0003 

ROOOA 

R0005 

R0006 

Rood? 

R0008 

R0009 

ROOlO 

ROOll 

R0012 

Ro013 

ROOIA 

R0015 

R0016 

R0017 

R0018 


R00181 


0019 

0020 
0021 

C0021 

0022 

C0022 


0023 

0024 

0025 

00251 

00252 

00253 

00254 

00255 


R0026 

R0027 

R0028 

R0029 

0048 

0049 


find  CDG  desired  USER'S  OWN  PAGE  NO.  I 

THIS  routine  FinDCDUD  COMPUTES  DESIRED  CDJ.5  WHICH  CAm  BE  FED  TO 
DAP  LATER  ON. 

DESIRED  CDU.S  WILL  BE  IN  2.S  COHP 
INPUT 

desired  thrust  Vector  axisd  cowin'^  from  guidance  equations 

CDUX.CDUY.CDUZ  INFORM  OF  A 5P  VEClOR  CDUTEMP ,+2 .*4. 

delv  half  unit  vector,  pipas  reading 

AKISD  IS  A HALF  UNIT  VECTOR 
C5UX.Y*Z  are  in  2.S  COMP 


THIS  ROUTINE  CAN  Be  ENTEReD  FROMi  INTERPRETIVE  . CALL  FINDCDUD 

CALLING  SEQUENCE 
L-1  CALL 
L FINDCDUD 

L*i  interpretive  return 


user  To  have  a unit  vector  axis  (1.0*0) 


30*2637  BANK  30 

REF  4 LAST  287  E4  EBANK=  DELR 

30,2637  24^76  1 2/Pl  2DEC  .6366198 

30*2640  14076  0 

30.2641  00002  0 LIMOMG  2DEC  .0001234 

30.2642  00545  0 


30,2643  77‘*01  1 FINDCDUD  SETPD  EXIT 

30,264A  OOOOl  0 0 


REF 

7 

LAST 

781 

30,2645 

3 1344 

0 

CA 

CDUTEMP  *2 

REF 

1 

30,2646 

55*654 

0 

TS 

SINCDU 

TEMPORARY 

LOCATION 

FOR 

CDUY 

REF 

8 

LAST 

784 

30,2647 

3 1546 

1 

CA 

CDUTEMP  +4 

LOCATION 

FOR 

REF 

2 

LAST 

784 

30 ,2650 

55*656 

1 

TS 

SINCDU  *2 

TEMPORARY 

cduz 

REF 

9 

LAST 

784 

30,2651 

3 1342 

0 

CA 

CDUTEMP 

REF 

3 

LAST 

784 

30,2652 

55*660 

1 

TS 

SINCDU  *4 

TEMPORARY 

LOCATION 

FOR 

CDUX 

AXISFILT  computes  AXIS  AnD  CORRECTS  IT  FOR  QUAnTiZATiOn  ERROR  AnD  OTH 
ER  ERRORS 


REF  11  LAST  779  E6  EBANK=  OMEGA 

REF  3 LAST  154  30,2653  3 5^50  1 CAF  PRI03  OCT  03000  SWITCH  EBANK 
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L find  cdu  desired 


USER'S  OWN  PAGf  NO.  2 E6 


0050  REF  53  LAST  775 

0051  REF  265  LAST  760 

0052  REF  232  LAST  781 

0053  REF  8 LAST  783 

005A  REF  9 LAST  785 

0055 

0056  REF  18  last  A9A 

0057 


30,265A 

30.2655 

30.2656 

30.2657 
30.266° 

30.2661 

30.2662 

30.2663 


0058  30.266A 

0059  REF  10  LAST  785  30,2665 

0060  REF  20  LAST  591  30.2666 

0061  30.2667 

0062  30,2670 

0063  REF  11  LAST  785  30,2671 

0064  REF  19  LAST  592  30,2672 

0065  30.2673 

0066  30,267^' 

0067  REF  12  LAST  785  30.2675 


0068  30.2676 

0069  REF  266  LAST  785  30.2677 

0070  REF  54  LAST  785  30,270° 

0071  REF  80  LAST  775  30,2701 

0072  REF  5 LAST  784 

00721  30,2702 

00722  REF  1 30,2703 

0073  30,270A 


56  °03 
54  144 

1 

XCH 

EBANk 

1 

TS 

MPAC 

3 7^61 

0 

CAF 

ZERO 

55*154 

55'155 

1 

TS 

TEMX 

0 

TS 

TEMX  *1 

0 0004 

0 

INHINT 

31t4l6 
0 0°06 

0 

CAE 

OMEGAP 

1 

EXTEND 

7 0°00 

0 

SQUARE 

21'155 

0 

DAS 

TEMX 

31*‘'17 

1 

CAE 

OMEGAQ 

0 0°06 

1 

extend 

7 0°00 

0 

Square 

21*155 

0 

DAS 

TEMX 

31*‘*21 

1 

cae 

OMEGAR 

0 0006 

1 

EXTEND 

7 0000 

0 

SQUARE 

21*155 

0 

DAS 

TEMX 

0 0003 

1 

RELINT 

56  144 

0 

XCH 

TS 

MPAc 

54  003 

0 

EBANK 

0 6103 

0 

TC 

INTPRET 

E4 

EBANKs 

DELR 

77620 

0 

STQ 

00047 

1 

RETSAVE 

45345 

1 

AXISFILT  DLOAD 

DSU 

SQOMEQA 
SQOMEGA  ♦! 


SQOMEGA 


SQOMEGA 


SQOMEGA 


0074 

rEf 

13 

LAST 

785 

30,2705 

01155 

1 

TEMX 

0075 

REF 

1 

30,2706 

20642 

0 

LIMOMG 

0076 

30,2707 

72°44 

1 

3PL 

LXA,1 

0077 

REF 

1 

30,271° 

60  134 

1 

ROTANGLE 

0078 

REF 

28 

LAST 

682 

30,2711 

OOllO 

1 

FIXLOC 

00781 

30,2712 

64110 

0 

INCR,1 

XCHX,1 

00782 

30,2713 

00°24 

1 

20D 

00783 

REF 

31 

LAST 

739 

30,271A 

00050 

1 

SI 

00784 

30,2715 

77  175 

1 

YLOAD 

00785 

REF 

4 

LAST 

784 

30,2716 

02255 

1 

SINCDU 

00786 

30,2717 

00025 

0 

STORE 

200 

00787 

30,2720 

53575 

0 

YLOAD 

UNIT 

00788 

REF 

2 

LAST 

768 

30,2721 

00404 

1 

DELV 

0079 

30,2722 

00041 

1 

STORE 

32D 

0080 

30,2723 

77624 

1 

CALL 

00801 

REF 

6 

LAST 

333 

30,2724 

32576 

1 

SMNB 

00802 

30,2725 

52201 

0 

SETPD 

VSU 

00803 

30,2726 

00001 

0 

0 

00804 

REF 

8 

last 

766 

30,2727 

02241 

1 

AXIS 

0081 

30,2730 

53322 

1 

YSR3 

VAD 

0082 

REF 

9 

LAST 

785 

30,2731 

02241 

1 

AXIS 

SQOMEgA 


temporary  location  for  cduy,z,x  in 
SP  2,S  comp 


transform  delv  from  sm  to  nb 
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L 


00821 

0083 

0084 

00841 

00842 

00843 

00844 

00845 

00846 

00847 

00848 

00849 
008491 

0085 

00851 

00852 

0086 

0087 

0088 
0089 

00891 

00892 
R0090 

R0091 

R0092 

R0093 

R0094 

R0095 

R0096 

R0097 

R0098 

R0099 

0100 

0101 

0102 

0103 

0104 

0105 

0106 

0107 

0108 

0109 

0110 
0111 
0112 

0113 

0114 

0115 

0116 
0117 


find  cdu  desired 


USER'S  OWN  PAGf  NO.  3 E4 


30,2732  77656  1 UNIT 


REF  10  LAST  785 
REF  29  LAST  785 

REF  32  LAST  785 
REF  5 LAST  785 


REF  11  LAST  786 


REF  9 LAST  406 

REF  2 LAST  689 

REF  1 

REF  1 


30.2733  02241  1 

30.2734  62150  1 

30.2735  OOHO  1 

30.2736  00024  1 

30.2737  77320  0 

30.2740  00050  1 

30.2741  02255  1 

30.2742  00025  0 

30.2743  77775  1 

30.2744  02241  1 

30.2745  00041  1 

30.2746  77624  1 

30*2747  32622  0 

30.2750  47201  1 

30.2751  OOOOl  0 

30.2752  02233  1 

30.2753  77761  1 

30,275^  20640  1 

30.2755  0OO13  0 

30.2756  77624  1 

30.2757  61024  0 


STORE  AXIS 

ROTANGLE  LXA,1  INCR,1 
FIXLOC 
20D 


XCHX,1 

VLOAD 

store 

SI 

SINCDU 

20D 

VLOAD 

STORE 

AXIS 

32D 

CALL 

NBSM 

SETPD 

vxv 

0 

AXISD 

vxsc 

STORE 

2/PI 

lOD 

CALL 

SINCOSCD 

TEMPORARY  LOCATION  FOR  CDUY,Z,X  IN 
SP  2,S  COMP 


TRANSFORM  AXIS  FROM  NB  TO  SM 


DTHETASM  SCALETO  ONE  REVOLUTION 

compute  sin  and  cos  of  cdus  for 

LATER  USE 


SMCDJRES  computes  CDU(GIM3AL)  ANGLES  FROM  INCREMENTAL 
changes  ABOUT  SM  AXES,  IT  REQUIRES  SM  INCREMENTAL  CHANGES 
AS  DP  VECTOR  SCALED  AT  oNt  RE VOCUT ION (DtHeTASM , *2 ,*4) . SIN,COS (CDUX,Y 
,Z)  ARE  IN  SINCDU,*2,+4  ANO  C0SC0U,*2,*4  RESPECT  I VELY , SCALED  TO  2. 

C5U  INCREMENTS  ARE  PLACED  IN  DCDU,*2,*4  SCALED  TO  ONE  REVOLUTION 


30.2760 

30.2761 

REF  1 30,2762 

30,2763 

30,276A 

REF  6 LAST  786  30,2765 

30.2766 

30.2767 

REF  2 LAST  786  30,2770 

30.2771 

30.2772 

REF  7 LAST  786  30,2773 

30,2774 


41345  0 SMCDURES  DLOAD 
00013  0 
02251  0 

41325  0 PDDL 

00017  1 

02257  0 

77521  1 BDSU 

77571  1 DDV 

02253  1 

00025  0 store 

72A05  0 5MP 

02261  0 

77521  1 BDSU 


DMP 

lOD  DTHETASM 

COSCDU  *2 

DMP 

14D  DTHETASM  *4 

SINCDU  *2 


COSCDU  *4 

20D  DCDU 

SLl  SCALE 

SINCDU  *4 


30.2775  00015  0 

30.2776  I4O27  1 

30.2777  00013  0 

30,3000  55205  0 

REF  8 LAST  786  30,3001  02257  0 


12D  DTHETASM  *2 

STODL  22D  DCDU  *2 

lOD  DTHETASM 

OMP  POOL 

SINCDU  *Z 


^0895AA 


L 


0118 

0119 

0120 
0121 
0122 

0123 

0124 

0125 

0126 

0127 

0128 

0129 

0130 

0131 

0132 

0133 

01341 

01342 

R0135 

R0136 

R0137 

ROUS 

R0139 

R0140 

R0141 

R0142 

R0143 

R0144 

R0145 

R0146 

0147 

0148 

0149 

0150 

0151 

0152 

0153 

0154 

0155 

0156 

0157 

0158 

0159 

0160 
0161 


YJL  System  foR  agc:  new  procjRAm  shepatin  by  eyles 


DEc  l3*  1966  (MAIN)  pAQE  78^ 


find  cdu  desired 


USER'S  OWN  PAGf  no,  4 


E4 


30.3002  OOD17  1 

30.3003  43i;05  1 

REF  3 LAST  786  30,3004  02<:51  0 

30.3005  77U2  1 

30.3006  U031  0 

30.3007  OOD27  1 


140  DTHETASM  *4 

DMP  DAD 

COSCDU  *2 

SLl  SCALE 

STODL  24D  DCDU  tA 

22D  DCDU  *2 


REF 

9 

LAST 

786 

30.3010 

30.3011 

57^05 

02261 

77^52 

00025 

53375 

1 

0 

1 

0 

0 

30.3012 

30.3013 

30.3014 

30,3015 

00025 

0 

REF 

10 

LAST 

784 

30,3016 

01343 

1 

30,3017 

7763A 

0 

REF 

5 

LAST 

682 

30,3020 

33»73 

0 

REF 

14 

LAST 

690 

30,3021 

00^67 

1 

30,3022 

77650 

1 

REF 

2 

LAST 

785 

30,3023 

OOOA7 

1 

DMP 

SLl 

STORE 

VLOAD 

DCOMP 

SINCDU  +4 

DCDUX 

=-DCDUY#5lN(CDUZ) 

20D 

VAD 

SCALE 

DCDU 

RTB 

20D 

CDUTEMP 

DCDU 

STORE 

SOTO 

VISTO2S 

CDUXD 

RETSAVE 

SCALE 

FROM  1 ,S  TO  2 ,S 

siNcoscD  Computes  sin  and  cos  uf  cdu  and  stores  as  dp  vectors 

SINCDJ  , COSCDU 

INPUT  IS  CDUS  AS  A VECTOR  CDjtEMP 

OUTPUT  IS  SIN  AND  COS  OF  CDU,5 

CDUS  ARE  AVAILABLE  IN  2,S  COM^i 

SIN  AND  COS  ARE  SCALED  TO  2 

SINCOSCD  CAN  BE  ENTERED  FROM  INTERPRETIVE 


30,3024 

76i31 

0 

SINCOSCD 

SSP 

AXT,1 

REF 

33 

LAST 

786 

30,3025 

00051 

0 

SI 

30,3026 

00002 

0 

OCT 

2 

30 , 302T 

OOOO6 

1 

OCT 

6 

30,3030 

47133 

0 

REPEATl 

SLOAD* 

RTB 

REF 

11 

LAST 

787 

30,3031 

01351 

1 

CDUTEMP  +6,1 

REF 

15 

last 

613 

30,3032 

33524 

1 

CDULOGIC 

REF 

12 

LAST 

787 

30,3033 

05351 

0 

STORE 

CDUTEMP  +6,1 

30,303'' 

77U6 

0 

SIN 

REF 

10 

LAST 

787 

30,3035 

06263 

0 

STORE 

SINCDU  *6,1 

30,3036 

71P43 

0 

OLOAD" 

COS 

REF 

13 

LAST 

787 

30,3037 

01351 

1 

CDUTEMP  ♦6,1 

REF 

4 

LAST 

787 

30,3040 

06255 

0 

STORE 

COSCDU  +6,1 

30,3041 

43500 

0 

TIX,1 

RVQ 

REF 

1 

30,3042 

61O30 

0 

REPEATl 

SET  XI  TO  6 
SET  SI  TO  2 


CONVERT  CDU  FROM  2,S  TO 
TO  ONE  REVOLUTION 


1 , S # 


SCALE 
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L 

ROOOl 


ROOO3 

ROOOS 

ROOO6 

R0008 

R0015 

R0OI6 

R0018 

R0019 

R0023 

R0025 

0029 

0030 

0031 

0032 

0036 

0037 

0038 

0039 

0040 

0041 

0042 
00425 

0043 
00435 

0044 

0045 

0046 

0047 

0048 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 

0058 


0060 

0061 
0062 


AVERAGE  G INTEGRATOR  USER'S  OWN  PaGF  NO.  1 


routine  CALCRVG  integrates  the  equations  of  motion  by  averaging  THe  thrust  and  gravitational 
accelerations  over  a time  intervau  of  2 Seconds, 

FOR  the  EARTH-CENTERiD  GRAVITATIONAL  FIeLD,  tHe  PERTURBATION  DUE  TO  OBLATENeSS  IS  COMPUTED  TO  tHE  FIRS) 

harmonic  coefficient  J. 

ROUTINE  CALCRVG  REQUIRES. ,, 

1)  thrust  acceleration  increments  in  delv  scaled  same  as  PIPAX,Y,2 

2)  VN  scaled  2(.7»M/CS. 

3)  PUSHDOWN  counter  SET  TO  ZERO, 

IT  LEAVES  RNl  UPDATED  (SCALED  AT  2(*24)M*  VNl  (SCALED  AT  2l*7)M/CS).  ANDGDTl/2  (SCALED  AT  2(*7)M/CS), 


REF  9 LAST  38 

REF  4 LAST  691 

REF  1 
REF  1 


REF 

REF 

REF 


REF 

REF 

REF 

REF 


1 

4 LAST  691 
1 


REF  5 LAST  788 


2 LAST  788 
6 LAST  788 
1 

1 


REF  3 LAST  785 


3043 

3044 
3043 
3046 
304/ 

3050 

3051 

3052 

3053 

3054 

3055 

3056 

3057 

3060 

3061 
306Z 

3063 

3064 

3065 

3066 

3067 

3070 

3071 

3072 

3073 
307A 
3075 


3075 

3077 

3100 


30*3043 

E5 

77656  1 
OIO33 
414A1 
01041 
56316 


01033 

74205 

00041 

01041 

53255 

01033 

56325 

21135 

00043 

45561 

76/12 


BANK 

EBANK! 

CALCGRAV  UNIT 


30 

EVEX 


ENTER  WITH  RN  At  2(*24)M  IN  VAC 


1 0 

STORE 

UNITR 

, 0 

DOT 

PUSH 

, 0 

UNITW 

. 0 

DSQ 

DDV 

1 

DPl/10 

, 0 

BDSU 

PDDL 

’ 0 

DPI /8TH 

i 0 

36D 

’ 0 

STODL 

RMAG 

1 0 

J (RE) SO 

. 1 

DDV 

1 0 

STORE 

34D 

> 1 

32D 

i 1 

DMP 

0 

vxsc 

PDDL 

1 0 

UNITR 

i 0 

DMP 

VXSC 

. 1 

32D 

, 0 

UNITW 

i 0 

VAD 

VAD 

1 0 

UNITR 

i 0 

POOL 

DDV 

i 0 

-MUDT 

1 0 

34D 

, 1 

VXSC 

stadr 

; 1 

STORE 

GDTl/2 

' 0 

RVO 

i 0 CALCRVG 

VLOAD 

VXSC 

» 1 

DELV 
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L ayeraoe  g integrator 

0063  RtF  1 

0064 

0065 

0066 


0067 

0068 
0069 

REF 

REF 

3 

10 

LAST 

LAST 

776 

694 

0070 

REF 

1 

0071 

0072 

ref 

11 

LAST 

775 

0073 

REF 

2 

LAST 

772 

0074 

REF 

3 

LAST 

776 

0075 

0076 

0077  REF  11  LAST  789 

0078  REF  1 

0079 

00795 

C00795 

0080 
C0080 

0081 

C0081 

0082 

C0082 

0083 
C0083 

0084 
C0084 

0085 
C0085 

00852 

C00852 

00854 

C00854 

00856 

C00856 


.3101 

21125 

44OO6 

00037 

41455 

01025 

74F55 

01017 

1 

*3102 

*3103 

*3104 

*3105 

*3106 

*3107 

1 

0 

0 

1 

0 

0 

*31lO 

21137 

I 

*3111 

77555 

1 

*3112 

OlOll 

0 

*3113 

35O5I 

0 

*311A 

6IO43 

1 

*3115 

53<:55 

0 

*3115 

77555 

1 

*3117 

01017 

0 

*3120 

35057 

0 

*3121 

00037 

0 

*3122 

03‘:i5 

1 

KPIP 

*3123 

27057 

0 

*312A 

00150 

0 

KPIPl 

*3125 

33343 

0 

*3125 

04000 

0 

DP1/8TH 

*3127 

ooooo 

1 

*3130 

03146 

1 

DPl/10 

*3131 

14532 

0 

*3132 

00036 

1 

J(RE)SQ 

*3133 

30103 

0 

*313A 

77^74 

0 

-MUDT 

*3135 

53f72 

0 

*3135 

00031 

0 

25EC(17) 

*313T 

OOOOO 

1 

*3140 

O4OOO 

0 

DP2 (-3) 

*3141 

OOOOO 

1 

*3142 

00224 

0 

MUEARTH 

*3143 

17551 

0 

*314A 

00l64 

1 

MUMOON 

*3145 

34AI4 

1 

30 

30 

30 

30 

30 

30 

30 

30 

30 

30 

30 

30 

30 

30 

30 

30 

30 

30 

30 

30 

30 

30 

30 

30 

30 

30 

30 

30 

30 

30 

30 

30 

30 

30 

30 

30 

30 
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KPIPl 

PUSH  STQ  Dv/2  TO  PD  SCALED  AT  2(*7)M/CS 

31D 

YAD  PUSH  (DV-OLDGDT) /2  Tn  PD  SCALED  AT  2{*7)M/CS 

GDT/2 

YAD  VXSC 

VN 

2SEC(17) 

YAD 

RN 

STCALL  RNl  TEMP  STORAGE  OF  RN  aCALED  2(*24)M 

CALCGRAV 

YAD  VAD 

YAD 

VN 

STCALL  VNl  TEMP  STORAGE  OF  VN  SCALED  2<*7)M/CS 

31D 

2DEC  ,1024  SCALES  DELV  TO  2 (+4) 

2DEC  0,0064 
2DEC  0.125 
2DEC  0.1 

2DEC  0.060066630  B-5  SCALED  AT  2 (*45) 

2DEC*  -7.9720645  E*12  B-55# 


2DEC  200  B-17 
2DEC  0,125 

2DEC  0,009063188  3,98603223  E14  SCALED  AT  2 ( 42 ) M ( 3 ) /CS ( 2 ) 

2DEC  0,007134481  4,90277800  E12  SCALED  AT  2 ( 36 ) M ( 3 ) /CS ( 2 ) 
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P0086 

R0087 

ROO88 

R0089 

R0090 

R0091 

R0092 

R0093 

R009A 

R0095 

R0096 

R0097 

R0098 

R0099 

ROlOO 

ROlOl 

R0102 

R0103 

ROlOA 

ROIOS 

R0106 

R0107 

R01075 

Roloa 

Roioas 

R01088 

R0109 

R01091 

Ro1092 

R01093 

R0109A 

ROIO95 

R01096 

R01097 

0110 

01101 

01102 

0111 

0112 

0113 

OllA 

01U5 

0115 

0116 

0117 

0118 

0119 


av/erase  g integrator 
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THE  MASS  UPDATE  ROUTINE  EXTEN'-’S  FROM  APPROXIMATELY  HERE  TO  THE  NEXT 
ROW  OF  asterisks,  COMPUTATIONS  are  aS  FOLLOWS:- 

(1)  /AF/  = MAGNITUDE  DV/OT*  S'-ALED  IN  UNITS  oF  2(-5)  M/CS/CS, 

(2)  PrEFOrCE  ; /aF/  Mass,  approximate  present  thrust,  scaled  at 
some  3,3  POUNDS  PER  SIT?  PREFORCE  LATER  BECOMES  PREF0RCE/2FMAx. 

(3)  NOMINAL  exhaust  VELOCITY.  VEXNOM  = VEXSTeP  ♦ (PREFORCE-FSTEP) 
SLOPE,  where  VEXSTEP.  FSTEP.  AND  SLOPE  ARE  SELECTED  FROM  THE 
•vextable*  by  the  ROJTIVE  beginning  at  VeXFINDD?  the  FSTEPS 
AND  vxsteps  Define  certain  discrete  points  on  the  curve  of 
EXHAUST  velocity  VERSjS  THRuST?  THE  ASSOCIATED  SLOPE  IS  ALWAYS 

that  for  the  Segment  just  preceeOing  those  points.  (units 

FOR  VEXNOM,  AS  FOR  Ne3VEX.  ARE  2(6)  M/CS.) 

(A)  AREARATE.  a moderately  AD^^TRUSE  (NOT  TO  SAY  ABSURD)  FUNCTION 
OF  delarea  (erosion)  ano  preforce.  (the  area  in  question  is 
THAT  OF  the  THROAT  OF  THE  ENGINE.) 

(5)  delarea  = delarea  ♦ AREARATE  DELTaT, 

(6)  NEGvEX  s -(VEXNOM  - CVEX5  DELAREA), 

(7)  mass  s mass  ♦ (/DeLV/zNEGVeX)  mass,  scaled  in  UNITS  OF  2(15) 
KILOGRAMS. 

the  following  initializations  must  Be  made  before  launch: 

C(MASS)  = 0.  C(LEMMASSl)  s SCALED  MASS  OF  LEM  CUM  DPs,  C(LEMMASS2)  = 

scaled  mass  of  lem  without  dps,  upon  lem-sivb  separation  mass  must 
BE  reinitialized  USING  LEMMASSI  AND  DeLAReA  MUST  3E  SeT  TO  DP  ZERO, 
later,  when  the  dps  parts  company,  mass  must  be  initialized  still 

AGAIN  USING  LEMMASS2, 

the  following  is  an  INELEjANT  superfluity;-  inputs;  mass,  delarea. 
DELV.  DELtAt.  emanations  from  the  VEXTABLe.  a tablespoon  of  salt  and 
seven  BYZANTINE  DODO  EGGS.  DUTPOTS;  /AF/  AND  MASS,  DEBRIS:  PREFORCE. 
NEGVEX.  and  AREARATE  (TO  LEARN^  MoHE  ABOUT  THESE  GEMS,  SEE  ABOVE). 
SUBROUTINES  CALLED;  MASSMULT  (A  PART  OF  THROTTLE  CONTROL)  AND  THE 
INTERPRETER,  ERASABLES;  BAnKI  5 At  PRESENT,  EYLES  WROTE  THIS  STUFF? 
HIS  LAST  MODIFICATION  THEREOF  (NUMBER  N+2)  WeNT  INTO  AGC  REVISION  20* 


REF 

LAST 

772 

30,31A6 

<.6lA5 

0 MASSMON 

DLOAD 

BHiz 

9 

30 ,31A  I 

01333 

0 

MASS 

REF 

1 

30,3150 

61312 

0 

NOMASS 

30,3151 

7A375 

0 

VLOAD 

VXSC 

REF 

A 

LAST 

788 

30,3152 

OOAOa 

1 

DELV 

DV 

= delvkpip  scaled  at  2(*A)  M/CS 

REF 

1 

30,3153 

21123 

1 

KPIP 

D CC 

30,315A 

51‘'06 

1 

PUSH 

ABVAL 

DV 

IN  PDL 

Ktr 

1 

30,3153 

O2H5 

1 

STORE 

ABDVCONV 

30,3156 

56<(06 

0 

PUSH 

DDV 

REF 

1 

30,3157 

21315 

0 

2SEC(9) 

REF 

1 

30.3160 

30.3161 

01337 

77(76 

1 

1 

STORE 

EXIT 

/AF/ 

/AF/  5 magnitude  DV/DT 

REF 

1 

30.3162 

3 3355 

1 

CA 

ETHROTL 
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L 

0120 

0121 

0122 

0123 

012A 

0125 

012501 

012502 

012503 

012504 

0l25i 

012511 

012512 

012513 


01252 
012521 
012522 
012523 

01253 
012531 
012532 
012533 

0126 

0127 

0128 

0129 

0130 

0131 

0132 

0133 

0134 
A0135 
A0136 

0137 

0138 

0139 

0140 

0141 

0142 

0143 

0144 

0145 

0146 


Average  g integrator 


USER'S  OWN  PAGf  no.  4 


E5 


REF  55  LAST  785 
REF  11  LAST  701 


REF  2 LAST  790 
REF  1 

REF  1 

rEF  2 last  791 
REF  1 

REF  1 


REF  1 
REF  1 
REF  1 


REF  10  LAST  790 
REF  1 

REF  1 


REF  1 

REF  2 LAST  791 

REF  2 LAST  791 

REF  233  LAST  785 

REF  1 

REF  27  LAST  773 

REF  2 LAST  791 

REF  3 LAST  791 

REF  3 last  791 

REF  1 

REF  1 


REF  4 LAST  791 
REF  1 
REF  1 

REF  5 LAST  791 
REF  1 

REF  2 LAST  791 
REF  1 


30 

.3163 

5A  003 

0 

E5 

30 

*3164 

0 

0O06 

1 

30 

*3165 

3 

1537 

1 

30 

♦ 3166 

0 

3356 

1 

30 

*3167 

53*546 

0 

30 

*3170 

4 

1545 

0 

30 

.3171 

6 

3316 

0 

30 

*3172 

0 

0006 

1 

30 

*3173 

6 

3200 

0 

30 

*3i7A 

0 

0O06 

1 

30 

*3175 

4 

3321 

0 

30 

*3176 

53*556 

1 

30 

*3177 

1 

3301 

1 

30 

*3200 

4 

1332 

0 

30 

*3201 

6 

3317 

1 

30 

*3202 

0 

0006 

1 

30 

*3203 

6 

3210 

1 

30 

*320^ 

0 

0U06 

1 

30 

*3205 

4 

3323 

1 

30 

*3206 

53*556 

1 

30 

*3207 

1 

3301 

1 

30 

*3210 

3 

7^61 

0 

30 

*3211 

55*544 

1 

30 

*3212 

3 

7^53 

1 

30 

*3213 

27*544 

1 

30 

*32lA 

4 

1545 

0 

30 

*3215 

51*544 

0 

30 

*3216 

6 

3325 

0 

30 

*3217 

0 

0O06 

1 

30 

.3220 

6 

3212 

0 

30 

.3221 

4 

0000 

0 

30 

.3222 

0 

0006 

1 

30 

*3223 

5 

1544 

0 

30 

*322A 

7 

3326 

1 

30 

*3225 

53*550 

1 

30 

♦ 3226 

0 

0006 

1 

30 

.3227 

5 

1544 

0 

30 

.3230 

3 

3530 

1 

30 

.3231 

21*550 

1 

30 

*3232 

4 

3520 

1 

TS 

ebank= 

EBANk 

ethrot 

EXTEND 

DCA 

/af/ 

tc 

MASSMULT 

DXCH 

PREFORCE 

CHOiCEI 

CS 

PrEFOrCE 

AD 

EXTEND 

LOWFCRIT 

BZMF 

CH0ICE2 

VEXFINDR 

EXTEND 

DCS 

RCSvEX 

DXCH 

NEGVEX 

TCF 

ENDVEX 

CH0ICE2 

CS 

MASS 

AD 

extend 

MASSCRIT 

3ZMF 

VEXFINDD 

VEXFINDA 

EXTEND 

DCS 

APSvEX 

DXCH 

NEGVEX 

TCF 

ENDVEX 

VEXFINDD 

CA 

zero 

TS 

VEXDEX 

VEXLOOP 

CA 

FOUR 

ADS 

VEXDEX 

CS 

PREFORCE 

index 

VEXDEX 

AD 

EXTEND 

FSTEP 

BZMF 

VEXLOOP 

COM 

EXTEND 

INDEX  VEXDEX 
MP  SLOPE 
5XCH  VEXNOM 
EXTEND 

INDEX  VEXDEX 
DCA  VEXSTEP 
DAS  VEXNOM 

CS  -FMAX 


JUST  TO  INSURE  HAylNG  THE  PROPER  EBAN|c 


WHICH  produces  nP  Force  in  a and  l 

TEST  PrEFOrCE  Tn  SEE  jF 

either  big  engine  is  on 
branch  if  preforce  > LOWFCRIT  = 720  LBS, 
otherwise*  use  RCSVeX 


TEST  MASS  TO  SEE  IF  THE 
Dps  HAS  PARTED  COMPANY 

BRANCH  IF  MASS  > MASSCRIT  = 5682  KGS, 

otherwise*  use  apsvex 


incrementing  VEXDEX  BY  FOUR 


FSTEP  - PREFORCf  in  A AND  L 

BRANCH  IF  PREFOrCE  > OR  = FSTEP.  EMERGE 
FROM  LOOP  WITw  INDEX  PROPERLY  SET  AS 
SOON  AS  FSTEP  > PREFORCE. 
PREFORCE-FSTEP  (ALWAYS  MINUS)  IN  A AND  L 


VEXNOM  = VEXSTEP  ♦ (PREFORCE-FSTEP) SLOPE 
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OUT  30.3233 

0U8  REF  235  LAST  772  30,323A 

01A9  30*3235 

0150  REF  <.  LAST  791  30*3236 

0151  30*3237 

0152  REF  236  LAST  792  30*32A0 

0153  REF  5 last  792  30,32A1 


6 OOOO  1 double 

56  ^02  0 XCH  Q 

0 0006  1 EXTEND 

3 1546  1 DCA  PREFORCE 

0 0006  1 EXTEND 

10  002  1 OV  0 

55*545  0 TS  PREFORCE 


0154 

rEf 

1 

0155 

0156 

REF 

8 

LAST 

772 

0157 

REF 

1 

0158 

0159 

REF 

6 

LAST 

792 

0160 

0161 

REF 

7 

LAST 

792 

0162 

REF 

1 

0163 

RcF 

1 

0164 

0165 

REF 

9 

LAST 

792 

0166 

REF 

1 

0167 

0168 

REF 

8 

LAST 

792 

0169 

REF 

2 

LAST 

792 

0170 

REF 

3 

Last 

792 

0171 

0172 

REF 

2 

LAST 

790 

0173 

REF 

2 

LAST 

772 

01731 

01732 

ref 

10 

LAST 

792 

01733 

REF 

3 

LAST 

792 

017A 

REF 

4 

LAST 

792 

0175 

0176 

REF 

1 

0177 

REF 

3 

LAST 

791 

0178 

0179 

REf 

3 

last 

791 

0180 

REF 

4 

LAST 

792 

30 

*3242 

3 

3327 

1 

30 

*3243 

0 

0006 

1 

30 

*324A 

7 

1551 

0 

30 

*3245 

6 

3326 

0 

30 

*3246 

0 

0006 

1 

30 

*3247 

7 

1545 

0 

30 

*3250 

0 

0006 

1 

30 

*3251 

7 

1545 

0 

30 

*3252 

53*554 

0 

30 

*3253 

3 

3325 

0 

30 

*325A 

0 

0006 

1 

30 

*3255 

7 

1551 

0 

30 

*3255 

6 

3324 

1 

30 

*3257 

0 

0006 

1 

30 

*3260 

7 

1545 

0 

30 

*3261 

211554 

0 

30 

*3262 

3 

1553 

0 

30 

*3263 

0 

0006 

1 

30 

*326A 

7 

3314 

0 

30 

*3265 

53*560 

1 

30 

*3266 

0 

0006 

1 

30 

*3267 

3 

1552 

1 

30 

*3270 

21*560 

1 

30 

*327l 

3 

1557 

1 

30 

*3272 

0 

0006 

1 

30 

*3273 

7 

3330 

0 

30 

*327A 

53*556 

1 

30 

*3275 

0 

0006 

1 

30 

*3275 

4 

1550 

1 

30 

*3277 

21*556 

1 

CA  CVEx4 

EXTEND 

MP  DELAREA 

AD  CVEX3 

EXTEND 

MP  PREFORCE 

EXTEND 

MP  PREFORCE 

OXCH  AREARATE 

CA  CvEX2 

extend 

MP  DELAREA 

AO  CVEXl 

EXTEND 

MP  PREFORCE 

OAS  AREARATE 


CA  arEaRATE 

EXTEND 

MP  2SEC(9) 

OXCH  DAREATMP 

extend 

OCA  DELAREA 

OAS  DAREATMP 

CA  DAREATMP 

EXTEND 

MP  CVEX5 

OXCH  NEGVEX 

EXTEND 

OCS  VEXNOM 

OAS  NEGVEX 


OlaOOs  REF  1 30*3300 

01801  REF  234  LAST  791  30*3301 

01802  REF  9 LAST  29l  30,3302 

0181  REF  81  LAST  785  30,3303 

0182  30,330A 


5A  153 
3 7f61 

1 

0 endvex 

TS 

CA 

MODE 

ZERO 

54  111 

1 

TS 

OVF I ND 

0 6103 

0 

TC 

INTPRET 

60545 

0 

OLOAD 

SR2 

0183 

0184  REf  5 LAST  792 

0185  REF  11  LAST  791 

0186 


3305 

3306 

3307 
3310 


A1271  0 
02556  0 
01533  0 
77615  0 


ODV  DMP 

NEGvEX 

MASS 

DAD 


USER'S  ORN  page  NO.  5 E5 

PREFORCE  5 PREFnRCE/2FMAX 

MUMBO 

JliMBO 

scaled  in  units  of  2 (-4)  PERCENT/CS 

DAREATMP  NOW  CONTAINS  NEW  DELAReA 

NEGVEX  NOW  HOLD*;  THE  GENUINE  ARTICLE 
precautionary 

RESCALING  /DELV/  TO  2(6)  M/CS 


48895AA  yJL  system  fOr  AqcJ  NEW  PrOGrA.vi  sMErATiN  BY  EYLEs 


DEc  13*  1966  (mAiN)  rAqE  793 


L a«/eRAoe  g integrator 


0187 

0188 
01885 

R0189 


rEF  12  last  792  30*3311  01333  0 MASS 

REF  2 LAST  772  30*3312  02362  1 NOMASS  STORE  MASSTEMP 

30*3313  77316  0 RVQ 


A02A1 

A0242 


02^25 

C02A25 

3o*33iA 

30*3315 

1A‘*00  0 
OOOOO  1 

00333  1 

05‘*23  1 

15165  1 
302AA  0 

17114  0 

2SEC(9) 

lowfcrit 

MASSCRIT 

RCSVEX 

APSVEX 

2DEC 

DEC 

DEC 

200  B-9 

02A29 

30*3313 

.01336 

02A3 

A02A31 

30  * 33 1 7 

30*332° 

30*3321 

30*3322 

• 1 7 J i 

02A33 

C02433 

02A35 

cUtC 

2DEC 

.A13A375 

.A73AA1550 

C02A35 

30*3323 

33562  0 

02AA 

30.332A 

73301  1 

CVEXI 

OEC 

-,1AA38A00 

02A5 

30,3325 

00121  0 

CVEX2 

DEC 

♦,00A93568 

02A6 

30,3326 

36P33  1 

CVEX3 

OEC 

♦,96256000 

02A7 

30*3327 

76TA3  0 

CVEXA 

OEC 

-.03297280 

02A8 

30,3330 

00321  1 

CVEX5 

OEC 

♦,0127A865 

A02A9 

0250 

REF  1 

30*3325 

FSTEP 

? 

FSTEPl  -A 

0251 

REF  1 

30*3326 

SLOPE 

S 

SLOPEI  -A 

0252 

REF  1 

30*3327 

VEXSTEP 

B 

VXSTEPl  -A 

A0253 

025A 

30*3331 

Ol‘*00  1 

FSTEPl 

OEC 

.0A6875 

0255 

30*3332 

232A3  0 

SlOPEI 

OEC 

.6036818A8 

16^*61  0 

VxSTEPl 

2DEC 

0256 

30f333^ 

,A5615938 

C0256 

30*333A 

26T07  0 

0257 

30*3335 

O3OAO  0 

FSTEP2 

OEC 

.095703125 

0258 

30,3336 

73rOA  0 

SL0PE2 

OEC 

-.128576102 

0259 

30*3337 

16312  0 

VXSTEP2 

2DEC 

,AA988l25 

C0259 

30*33A0 

33256  0 

0260 

30,33Al 

05200  0 

FSTEP3 

OEC 

,16A062500 

0261 

30*33A2 

1135A  0 

slopes 

OEC 

,29568000 

0262 

30*33A3 

17026  0 

VxSTEPS 

2DEC 

.A70093750 

C0262 

30,33AA 

00‘*06  0 

0263 

30*33A5 

06200  0 

FSTEPA 

OEC 

.19531250 

026A 

30*334<> 

72‘*05  0 

SLOPEA 

OEC 

-.171A998A0 

USER'S  OWN  page  no.  6 E5 

*«***«*****<*««***»««*(* 

constants  for  VfXFINDI 

constant  guidance  Period*  suptossdly 

MAXIMUM  THRUST  nF  THE  RCS  JETS 

MASS  OF  LEM  WITH  DPS  > MASSCRIT  > MASS 
OF  LEM  WITHOUT  DPS 

EXHAUST  VELOCITY  FOR  RCS  JETS 

EXHAUST  velocity  FOR  ASCENT  ENGINE 


addresses  for  Accessing  vextable 


THE  VEXTABLE 
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L a>/erage  g integrator 

0265 

C0265 

0266 

0267 

0268 
A0269 


,33A7 

16«>76 

1 

VxSTEPA 

2DEC 

,3350 

06521 

1 

,3351 

UAOO 

0 

HIFSTEP 

OEC 

,3352 

30000 

1 

HISLOPE 

DEC 

,3353 

I6t>76 

1 

HIVXSTEP 

2DEC 

,335A 

06521 

1 

,3355 

02557 

1 

ETHROTL 

ECADR 

30 

30 

30 

30 

30 

30 

30 


0270  REF  12  LAST  791 


DEC  13.  1966  (MAIN) 


page  79A 


,A6A73A38 


,390625000 

0 

,<.6A73A380 


USER'S  OWN  PAGE  NO.  7 


JUST  IN  CASE,  anomalously, 

preforce  appears  to  exceed 

100  PERCENT  FMAX, 


E5 


« * » » 


ETHROT 


^88954A  YJL  system  fOR  AGC;  NeW  PROGRAM  SHePAtIN  BY  eYLeS 


DE.C  13*  1966  (MAIN)  PAGe  795 


L throttle  control 


0001  30*3356  BANK  30 

0002  REF  13  LAST  79A  E5  EBANK=  ETHROT 


ROOO3  INPJTS  TO  throttle  CONTROL  ARE  /A/  ANd  /Apc/*  ACCELERATIONS  PRESENT 

ROOOA  and  desired,  scaled  in  units  Of  2'-5)  M/CS/CS,  AND  MASS  IN  UNITS  OF 
R0005  2(15)  KILOGRAMS, 

R0OO6  THIS  PROGRAM  CAUSES  THE  THROTTLE  TO  RESPOND  TO  ACCELERATION  COMMANDS 
ROOO7  IN  the  MANNER  DESCRIBED  BY  FIGURE  5.3-5  OF  THE  FLIGHT  206  GSOP. 

A0008 

A0009 

AOOlO 

AOOII 

A0012 

A0013 

AOOIA 


0015 

30,3356 

0 0006 

1 

massmult  extend 

0016 

REF 

22 

LAST 

3A7 

30,3357 

22  120 

1 

OXCH 

BUF 

0017 

REF 

267 

LAST 

785 

30,3360 

52  U5 

0 

DXCH 

MPAC 

0018 

REF 

8 

LAST 

260 

30,336l 

0 7IA6 

0 

TC 

DMP 

0019 

REF 

13 

LAST 

793 

30,3362 

01332 

1 

ADRES 

MASS 

0020 

REF 

9 

LAST 

795 

30,3363 

0 7iA6 

0 

TC 

DMP 

0021 

REF 

1 

30,336^ 

03526 

0 

ADRES 

SCALEFAC 

0022 

REF 

268 

LAST 

795 

30,3365 

52  U6 

0 

DXCH 

MPAC  +1 

0023 

REF 

23 

LAST 

795 

30,3366 

0 0120 

1 

TC 

BUF 

USER'S  OWN  PAGp  NO.  1 


* subroutines  * 

THIS  subroutine  MULTIPLIES  ACCELERATION 
(ARRIVING  IN  A and  I ) BY  MASS  AND  LEAVES 
force  (THRUST)  IN  A AND  L,  SCALED  AT 

ABOUT  3*3  POUNDS  PER  BIT. 

PRESERVING  RETUrN  ADDRESS 

LEAVES  ODDLY  SCALED  FORCE  IN  MPaC 

leaves  PROPERLY  SCALED  FORCE  IN  MPAC 

LOADING  FORCE  INTO  A AND  L 


^88954A  YJL  SYSTEM  (-OR  AGC:  NEW  PROGRAM  SHePATIN  BY  eYLeS 


P002A 

A0025 

A0026 

A0027 


throttle  Control 


A0028 

A0029 

A0030 

A0031 

0032 

0033 

003A 

0035 

00355 


REF 

REF 


1 

3 LAST  201 


REF  30  LAST  769 
REF  lA  LAST  795 


30.3367 

30.337^ 

30.3371 

30.3372 


53'P67  0 
3 5?65  1 


PCNTFMAX  DXCH 
CAF 


RTNHOLD 

PRI025 


OOOA  0 
5S23  0 
E5 


INHINT 

TC  NOVAC 
£BANK=  ETHROT 


0036 

C0036 

REF 

1 

30,3373 

30,337'» 

03‘'10  1 
60065  1 

0 0003  1 

1 3AO6  1 

2CADR 

PCNTJOB 

0037 

0038 

REF 

1 

30 ,337s 
30,3376 

SELINT 

TCF 

AwAY 

A0039 

ROOAO 

the  job 

set  up  here  delivers  a 

AOOAl 

A00A2 

A00A3 

OOAA 

REF 

2 

LAST 

796 

30,337^ 

53*567  0 

throtcon 

OXCH 

RTNHOLD 

00A5 

REF 

16 

LAST 

772 

30,3a00 

3 5226  1 

CAF 

PRI030 

00A6 

30 , 3a0 1 

0 0004  0 

inhint 

00A7 

REF 

31 

LAST 

796 

30,3402 

0 5523  0 

TC 

NOVAC 

00A75 

REF 

15 

LAST 

796 

E5 

EBANK= 

ETHROT 

00A8 

30 , 3403 

03H22  0 

2CADR 

ACCLJOB 

C00A8 

REF 

1 

30,340A 

60065  1 

00A9 

30,3405 

0 0003  1 

RELINT 

A0050 

0051 

REF 

3 

LAST 

796 

30,3406 

53*567  0 

AWAY 

OXCH 

RTNHOLD 

0052 

30,3407 

52  006  0 

DTCB 

Dec  13,  1966  (MAIN)  PAGE  796 
USER'S  OWN  Page  no.  2 e5 

" ENTRIES  « 

THIS  entry  Sets  up  a job  which  ^ill 
Deliver  a specified  fraction  of  maximum 
thrust,  this  fraction  arrives  (sp)  in 
register  pcntf, 

RETAINING  2CA0R  FoR  RETURN  TO  USER 


normal  entry  FRnM  GUIDANCE  EUUAtIONS! 

corresponding  Tn  the  desired  magnitude 
OF  THRUST-ACCeLfRATION,  this  value 

arrives  (DP)  IN  /ACF/. 

retaining  2CADR  FOR  RETURN  TO  USER 


THIS  return  is  common  TO  BOTH  ENTRIES. 


^SagS-tA  YJL  SYSTEM  FOR  AGC I NEW  PROGRAM  SMEPATIN  BY  EYLES 


L throttle  control 

P0053 

A0054 

A0055 

A0056 


0057 

0058 

REF 

71 

LAST 

778 

30.3410 

30.3411 

0 4i47 
04024 

1 

0 

PCNTJOB  TC 

OCT 

PHASCHNG 

04024 

0059 

30,3412 

0 0006 

1 

EXTEND 

0060 

REF 

2 

LAST 

791 

30,3413 

4 3321 

0 

DCS 

-FMAX 

0061 

REF 

269 

LAST 

795 

30,34lA 

52  I45 

0 

OXCH 

MPAC 

0062 

REF 

7 

LAST 

697 

30,3415 

3 1335 

0 

CA 

PCNTF 

0063 

REF 

5 

LAST 

265 

30,3415 

0 7351 

1 

TC 

SHORTMP 

0064 

REF 

270 

LAST 

797 

30,3417 

52  145 

0 

OXCH 

MPAC 

0065 

0066 

REF 

REF 

2 

1 

LAST 

320 

30,3420 

30*3421 

53'363 

1 3430 

1 

1 

OXCH 

TCF 

FC 

FOLDCALC 

0067  REF  1 30*3422  ACCLJOB  a FCCALC 


0068 

REF 

72 

LAST 

797 

30*3422 

0 4147 

1 FCCALC 

TC 

PHASCHNG 

0069 

30,3423 

30,342A 

04024 

0 0006 

0 

OCT 

04024 

0070 

1 

EXTEND 

0071 

REF 

1 

30,3425 

3 1335 

0 

OCA 

/ACF/ 

0072 

REF 

2 

LAST 

791 

30,3426 

0 3356 

1 

TC 

MASSMULT 

0073 

REF 

3 

LAST 

797 

30*3427 

53*563 

1 

OXCH 

FC 

0074 

30,34,30 

0 OOO6 

1 

FOLDCALC  EXTEND 

0075 

REF 

3 

LAST 

791 

30,3431 

3 1337 

1 

OCA 

/AF/ 

0076 

REF 

3 

LAST 

797 

30,3432 

0 3356 

1 

TC 

MASSMULT 

0077 

REF 

1 

30,3433 

53*560 

1 

OXCH 

FOLD 

A0078 

A0079 

AOO8O 

A0081 

A0082 

A0083 

A0084 

0085 

REF 

235 

LAST 

792 

30,3434 

3 7^61 

0 

NEXTNEXT  CA 

ZERO 

0086 

REF 

1 

30,3435 

55*564 

0 

TS 

PIF 

OO87 

REF 

2 

LAST 

797 

30*3436 

55*565 

1 

TS 

PIF  *1 

0088 

REf 

46 

last 

777 

30*3437 

3 7K0 

0 

CA 

BIT14 
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USER'S  OWN  Page  no.  3 ES 


" COMPUTATION  ** 
«»»***#»#*»#«#» 


? 


LOADING 

STORING 


7 


FC  = MASS  /ACF/,  SCALED 


FOLD  = MASS  /AF/,  SCALED 


After  first  zeroing  pif*  this  routine 

CHECKS  the  ENGInE-OFF  BIT.  IF  THE 
ENGINE  PROVES  Tn  BE  OFF  FCOLD  IS  SET  TO 

10  percent  FMAX,  and,  since  /AF/  DOES 

not  reflect  the  10  percent  setting  of 

THE  HAND  THROTTlE,  - 10  PERCENT  FMAx 
IS  ADDED  INTO  PiF, 


A88954A  yjL  System  AGc!  new  pROGRAv^  5l^EpATIN  By  EyLES 
L throttle  control 


0089 

30,3AA0 

0 0U06 

1 

extend 

0090 

30,3AA1 

02  011 

0 

RAND 

11 

0091 

30  * 3AA2 

0 0006 

1 

EXTEND 

0092 

REF 

1 

30 ,3AA3 

1 3^50 

1 

3ZF 

WHERETO 

0093 

REF 

1 

30,3aAA 

A 332A 

0 

CS 

-.IFMAX 

009A 

REF 

I 

30,3aA5 

55'>61 

0 

TS 

FCOLD 

0095 

REF 

2 

LAST 

798 

30*3AA6 

3 3S2A 

1 

CA 

-.IFMAX 

0096 

REf 

3 

last 

797 

30,3AA7 

55'R6A 

0 

TS 

PIF 

DEc  U*  1966  (mAIN)  pAoE  798 


USER’S  OWN  page  no,  A 


BRANCH  here  IF  ENGINE  IS  ON 
SETTING  FCOLD 
setting  piF 


E5 


^8895<^A  YJL  system  FOR  AGC;  NeW  PROGR(\,v1  SMePATIN  BY  EYLES 


L throttle  control 

P0097 

A0098 

A0099 

AOlOO 

0101  REF  4 LAST  797 

0102  REF  3 LAST  798 

0103 

0104  REF  1 

0105  REF  5 LAST  799 

0106  REF  1 

0107 

0108  REF  I 

0109  REF  6 LAST  799 

0110  REF  1 

0111 

0112  REF  1 

0113  REF  2 LAST  798 

0114  REF  3 LAST  797 

0115 

0116  REF  2 LAST  799 

A0117 

A0118 


30,3450 

3 

IS62 

1 WHERETO 

CA 

FC 

30,3451 

6 

3524 

1 

AD 

-.IFMAX 

30,3452 

0 

0006 

1 

EXTEND 

30,3453 

6 

3473 

1 

3ZMF 

TIPTOE 

30,3a5A 

3 

1562 

1 

CA 

FC 

30,3455 

6 

3523 

0 

AD 

-.52FMAX 

30,3456 

0 

0006 

1 

EXTEND 

30,345T 

6 

3476 

1 

3ZMF 

DOPIF 

30,3460 

4 

1562 

0 

CS 

FC 

30,3461 

6 

3522 

1 

AD 

.58FMAX 

30,3462 

0 

0006 

1 

extend 

30,3463 

6 

3470 

1 

3ZMF 

FLATOUT 

30,3464 

3 

1561 

1 

CA 

FCOLD 

30,3465 

6 

3520 

0 

AD 

-FMAX 

EXTEND 

30 « 346^ 

0 

0006 

1 

30  9 3467 

6 

3''76 

1 

3ZMF 

DOPIF 

Dec  13,  I966  (MAIN)  page  799 


USER'S  OwN  pAgE  no,  5 


E5 


» DECISION  4 


BRANCH  IF  FC  < OR  = 10  PERCENT  FMAX 


BRANCH  IF  FC  < S2  PERCENT 


BRANCH  IF  FC  > OR  s 58  PERCENT  FMAX, 
OTHERWISE,  TEST  FcOLD 


BRANCH  IF  FCOLD  < OR  = 100  PERCENT  FMAX, 
OTHERWISE  (IN  WHICH  CASE  FCOLOsHIGHT) 
proceed  to  FLaTOUT 


488954A  YJL  SYSte^  fOR  aGCi  NE^  PRO^^RAM  S^^e^ATIN  BY  eYLeS 


L throttle  control 

P0119 

A0120 


A0121 

A0122 


0123 

REF 

1 

30.3A70 

0 1 2A 

REF 

7 

LAST 

799 

30.3A71 

0125 

REF 

3 

LAST 

799 

30.3A72 

0126 

30»3a73 

0127 

REF 

A 

LAST 

799 

30,3A7A 

0128 

REF 

8 

LAST 

800 

30,3475 

0129 

REF 

73 

last 

797 

. 30,3476 

0130 

30,3477 

0131 

30,3500 

0132 

REF 

9 

LAST 

800 

30,3501 

0133 

REF 

3 

LAST 

799 

30,3502 

013A 

REF 

A 

LAST 

798 

30,3503 

0135 

30,350A 

0136 

REF 

2 

LAST 

797 

30,3505 

0137 

REF 

5 

last 

BOO 

30,3506 

0138 

REF 

6 

LAST 

800 

30,3507 

3 3»17  1 FLATOUT  CA  2FMAX 

55*562  0 TS  FC 

1 3A76  0 TCF  DOPIF 

0 0^06  1 TIPTOE  EXTEND 

A 3525  1 DCS  -.IFMAX 

53*563  1 OXCH  FC 

0 AiA7  1 OOPiF  TC  PhAsCHNG 

0Ay2A  0 OCT  0A02A 

0 0006  1 EXTEND 

3 1563  0 OCA  FC 

55*561  0 TS  FCOLD 

21*665  1 OAS  PIF 

0 0006  1 EXTEND 

A 1560  1 DCs  FOLD 

21*565  1 OAS  PIF 

3 156A  1 CA  PIF 


0139 

REF 

4 

A1 

LAST 

LAST 

385 

30»3510 

54  W55 
3 7(52 
0 0006 
05  014 

0 DOIT 

TS 

THRUST 

0140 

0141 

0142 

ref 

751 

30 . 35 1 1 

30.3512 

30.3513 

0 

1 

1 

caf 

EXTEND 

WOR 

B I T4 

14 

0143 

0144 

REF 

7A 

LAST 

800 

30,3519 

30,3515 

0 4147 
O4O24 

1 

0 

TC 

OCT 

PHASCHNG 

04024 

0145 

REF 

103 

LAST 

774 

30,3516 

1 5605 

0 

TCF 

ENDOFJOB 
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USER*S  own  PAGf  no.  6 E5 

A execution  a 

#*»*»#***»*»» 


? 

HISTORY 

OKAY  SINCE  PIF  PREVIOUSLY  WAS  ZeROED 
PIF  s FC  - FOLD  ♦ presetting  (IF  ANY) 

AND  THE  ENGINE  DOES  THE  REST... 

GROUP  NUMBER  NOT  FINALIZED 


488954a  YJL  SYStEM  FOR  aGC : 


L UROTTLt  CONTROL 

P0146 

A0147 

A0148 

A0149 

A0150 

0151 


0152 
C0152 

0153 

0154 

0155 
C0155 

0156 

C0156 


Program  s^ePatin  by  eYLes 


» 35 1 7 

14400 

0 

2FMAX 

OEC 

*3520 

06200 

0 

-FMAX 

2DEC 

*3521 

00000 

1 

*3522 

03500 

1 

,58FMAX 

DEC 

*3523 

74601 

0 

-.52FMAX 

OEC 

*3524 

77^77 

0 

-.IFMAx 

2DEC 

*3525 

77(77 

0 

*3526 

00056 

1 

SCALEFAC 

2DEC 

*352^ 

32^70 

1 

NEW 

30 

30 

30. 

30. 

30. 

30. 

30. 

30. 

30. 


Dec  U*  1966  (MAIN)  PA^E  BqI 


♦6400  B-14 

♦3200  B-l4 
♦1856  B-14 
-1662  B-14 
-320  B-14 

46#835424  B 


USER'S  OkvN  PAGf  NO,  7 E5 

*****»#»»»««» 

* CONSTANTS  * 

constants  For  decision 
200  % FMAX 

100  % FMAXi  negative 

58  96  FMAX  ' 

JUST  UNDER  52  % FMAxt  NEGATIVE  , 

10  96  FMAX.  negative 

-14  ABOUT  10000/(3  16  4.4482)  B-14  * 

I 

« 


(• 

f 


^88954A  YJL  SYSTEM  FOR  AGCi  NEW  PRO<iRAM  SMePATIN  BY  eYLES 
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L I MU  Compensation  pac<age  user's  own  page  no.  i 

0001  12*3220  BANK  12 

0002  REf  3 last  766  E3  EBANks  NbDX 

R0003  PROGRAM  DESCRIPTION-  IMU  C0MP£NSAlI0N  (LEM)  DATE-  30  AUG  66 

R0005  MOO  NO-  0 LOG  SECTION-  IMU  COMPENSATION  PACKAGE 

R0007  MOO  by-  GILBERT  ASSEMBLY-  SUNBUfiST  REVISION  13 

R0009  FUNCTIONAL  DESCRIPTION 

Roolo  the  IMU  compensation  packagl  is  Designed  to  compensate  for  pipa  bias  and  scale  factor  error  and  at  the 

Rooi2  same  time  accumulate  syro  toruuinvi  commands  Necessary  to  compensate  for  the  associated  bias  and  acceleRation- 
RoOIA  caused  gyro  drifts,  1/PIPA  MJ5t  Bt  called  at  Least  EVeRY  2.55  seconds  due  to  scaling  considerations, 

R00I6  specifically*  the  correction  is 

R0017  PIPA  = (1  ♦ SCALE  FACjoR  eHROR)PIPA  - ( B I AS ) (DELTAT ) 

R00I8  c I 

Ro019  where  pipa  is  the  COMPENSATED'  DA  I A OBTAINED  FROM  THe  SAMPLED  DATA  PIPA 
R0020  C I 


R0021  the  compensated  data  is  then  jsed  to  compute  the  irig  torquing  Necessary  to  cancel  the  nbd,  adia,  and  adsra 

R0023  GYRO  COEFFICIENTS. 

R002A  SPECIFICALLY*  THE  COMPUTATIONS  ARt 


R0025 

XIRIG 

-(ADIAX) (PIPaX  ) 

* (ADSRAX) (PIPaY  ) 

- (NBDX) (DELTAT) 

R0026 

R0027 

YlRiG 

C 

-(ADIAy) (pIPAy  ) 

♦ (ADSRAy)  (pIpAz'") 

- (NBDY) (DELTAT) 

R0028 

R0029 

R0030 

ZIRIG 

C 

-(ADIAZ) (PIPAZ  ) 

c 

- (ADSRAZ)  (PIPAy'’) 

♦ (NBDZ) (DELTAT) 

Roo3i  thiIS  compensation  is  summed  INTO'  ihe  gcomp  Registers  and  when  the  magnitude  of  any  irig  command  exceeds  2 

R0033  PULSES*  THE  COMMANDS  ARE  SENT  TO'  I HE  GYROS, 

R003A  during  free-fall  phases  of  a JLIGHt  NBDX*  NBDY * AND  NBDZ  ARe  THE  ONLY  ReLeVANT  COEFFICIENTS,  THESE  BIAS  TERMS 

Ro036  will  Be  integrated  by  routine  N3D0NLY  APPROXIMATELY  EVERY  81,93  SECONDS  FOLLOWING  AN  EXECUTIVE  CALL  BY  THE  DUMMY 

R0038  task  of  the  WAITLIST  PROGRAM,  NBOUNLY  IS  ENABLED  WHEN  BIT  15  OF  FLAGWRD2  IS  SET  TO  INDICATE  FREE-FALL,  DURING 

ROOAO  THIIS  TIME  1/PlPA  IS  NOT  CaLLeD* 


ROOAI  LASTbIAS  is  called  via  executive  when  making  the  transition  from  free-fall  to  a pIpA  reading  mode,  the  NBD  terms 

RoOA3  are  compensated  for  from  the  -AST  NBDONLY  CALL  UP  TO  PIPA  ZeROING,  PReReAD  WILL  THEN  eNaBLE  1/PIPA  AT  ItS 

Rooa5  Regular  interval,  the  drift  f.ag  must  be  down  uust  prior  to  lastbias,  gyrocompass  neveR  cali s lastbias, 

R00A6  SCALING  CONSIDERATIONS 

R00A7  Units  max,  value  internal  units  and  scaling 

R00A9  PIPA  bias  (CMi)/(SEC)  (SEC)  3.125  (PiPA  PULSES)/(CS)  X 2(-5) 


R0051  PIPA  SCALE  FACTOR  P.P.M,  1953,125  (PPM)  X 2(-9) 

R0053  NBD  MetU  128,7A60A  (GYRO  PULSES)/(CS)  X 2(-5) 

R0055  ALIA  (M£RU')MG)  630.36633  (GYRO  PULSES) /( P I PA  PULSE)  X 2(-6) 

R0057  ADSRA  (MERUTMG)  630.36633  (GYRO  PULSES)  / (PIPA  PULSE)  X 2 (-6) 
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L 

R0059 

R0060 

R0062 

R006A 

R0066 


R0068 

R0069 


R0071 

R0072 

R0073 

R007A 

R0075 

R0076 

R0077 

R0078 


R0079 

R0080 

R0081 

R0082 

R0083 

R0084 

R0085 

R0086 

R0087 

R0088 

R0089 

R0090 

R0091 

R0092 

R009A 

R0096 

R00975 

R0098 

R0099 

ROlOO 


R0102 

R0103 

Roios 

R0107 

R0108 

R0109 


Hu  compensation  package 


USER'S  OwN  PAGE  NO.  2 


conversion  table 

1 PIPA  PULSE  B 1,00  (Cvi)/(StC)  1 ERU  b 7,29209817  X 10(-5)  (RAD)/(SEC) 

1 ERU  B 15,0A10AA88  (ARCSEO / (SEC)  1 (CM) / (SEC) (SEC)  s ,01  (PIPA  PULSES)/(CS) 

I GYRO  PULSE  B ,61798096  ARLSEC  1 MERU  b ,0002A272592  (GYRO  PULSES) /(CS) 

1 G s 979, 2A  (CM)/(SEG)  (SEC)  (AMR)  1 (MERU)/(G)  s , 00002A787 1 7A  (GYRO  Pi  iLSES ) / (P I PA  PULSE) 


REFERENCES 

AgC  programming  mEmO  ^Ot 


12»  I,S,S,  mEmO  no,  2A7*  I,S,S,  mEmO  NO,  328,  I,S,S,  mEmo  NO,  339 


CALLING  SEOUENCE 

L'  TC  BANKCALL  , 

L*1  CADR  1/PIPA 

L+2  RETURNS  HERE 

NORMAL  PXIT  MODES  ' 

AT  L*2  OF  CALLING  SeQOeMCE 

ALARM  OR  ABORT  MODES  * 

ENDOFJOB 

« 


erasable  initialization  ReQUIReO  (consecutive  LOCATIONS) 

PblASX  PiPAX  BIAS 

PIPASCFX  PIPAX  SCALE  FACTOR  ERROR 

PBIASY  PIPAY  BIAS 

PlPASCFY  PIPAY  SCALE  FACTOR  ERROR 

PBIASZ  PIPAZ  BIAS 

PIPASCFZ  PIPAZ  SCALE  FACTOR  ERROR 

NRDX  X IRIG  BIAS  DRiIFT 

NBDY  Y IRIG  BIAS  DRIFT 


« 


NBDZ 

ADIAX 

Z IRIG  BIAS  DRIFT 
IRIG  ACCELERATIDN 

SENSITIVE 

DRIFT 

ALONG 

THE 

X 

INPUT 

AXIS 

ADIAY 

IRIG 

acceleRatidn 

SENSITIVE 

drift 

ALONG 

THE 

Y 

INPUT 

AXIS 

ADIAZ 

IRIG 

acceleration 

SENSITIVE 

drift 

ALONG 

THE 

Z 

INPUT 

AXIS 

ADSRAX 

IRIG 

acceleration 

SENSITIVE 

DRIFT 

ALONG 

THE 

X 

SPIN 

reference 

AXIS 

ADSRAY 

IRIG 

acceleration 

SENSITIVE 

drift 

ALONG 

THE 

Y 

SPIN 

reference 

AXIS 

ADSRAZ 

IRIG 

acceleration 

sensitive 

drift 

ALONG 

THE 

Z 

SPIN 

reference 

AXIS 

GCOMP 

GYRO 

compensation 

pulses  (Set  = zero  for 

; 1ST  1 

PASS) 

INPUT  « 

1/pipadt  - delta  time  Scaled  at  (cS)  x 2(*8) 

delvx,  delvy,  delvz  - PIPA  Readings  in  the  mauor  parts  - minor  parts  irrelevant 

> 

output 

DELvX*  DELvY,  DELvz  - RIPA  LquNTS  SCALED  2(+U)  COMPENSATED  FOR  PIPA  BIAS  AND  SCAi E FACTOR  ERROR  a 

GLOMP  - 3 DP  LOCATIONS  CONTAINING  GYRO  PULSES  TO  COMPENSATE  FOR  NBD,  ADIA,  AND  ADSRA  COEFFICIENTS 

DEBRIS 

CENTRALS  - A,L»Q 

other  - BUF  - BUF  *2,  V3JF  - VBUF  *2*  GCOMPSW 

y 


f 


48895^A  YJL  system  FOR  AGC;  NEW  PRO^JRAM  SMEPATIN  BY 


L HU  compensation  PAC<AGe 

0110  REF  1 12.3220  3 3‘*57  1 


0111  REF  56 

01112  REF  2 

011122  REF  1 

011124 
011126 

011128  ref  1 


01113 

01114 

REF 

ref 

28 

24 

302 

18 

16 

0112 

0113 

0114 

REF 

REF 

REF 

0115 

REF 

25 

0116 

ref 

1 

0117 

0118 

REF 

3 

0119 

0120 

REF 

42 

0121 

REF 

17 

0122 

REF 

26 

0123 

REF 

1 

0124 

0125 

REF 

18 

0126 

REF 

19 

0127 

0128 

REF 

A7 

0129 

REF 

20 

OI3O 

REF 

21 

0131 

0132 

REF 

A8 

0133 

D 1 a A 

REF 

150 

U 1 DH 

REF 

236 

0135 

REF 

22 

0136 

0137 

REp 

23 

0138 

REF 

27 

0139 

REF 

19 

0140 

REF 

28 

0141 

REf 

6 

0142 

REF 

1 

0U3 


LAST 

791 

12 

LAST 

792 

12 

12 

12 

12 

12 

LAST 

791 

12 

LAST 

795 

12 

LAST 

778 

12 

LAST 

783 

12 

LAST 

15 

12 

LAST 

804 

12 

12 

12 

LAST 

451 

12 

12 

LAST 

600 

12 

LAST 

804 

12 

LAST 

80A 

12 

12 

12 

LAST 

804 

12 

LAST 

804 

12 

12 

LAST 

562 

12 

LAST 

804 

12 

LAST 

604 

12 

12 

LAST 

804 

12 

LAST 

756 

12 

LAST 

797 

12 

LAST 

804 

12 

12 

LAST 

804 

12 

LAST 

804 

12 

Last 

804 

12 

LAST 

804 

12 

last 

563 

12 

12 

12 

3221 

3222 

56  003 

54  153 

1 

1 

3223 

11*463 

0 

322<» 

1 3427 

1 

3225 

1 3427 

1 

3226 

1 3350 

0 

3227 

3 7(53 

1 

3230 

54  122 

1 

3231 

50  000 

1 

3232 

3 0403 

0 

3233 

54  112 

1 

323A 

50  122 

0 

3235 

4 1436 

0 

3236 

0 0O06 

1 

3237 

7 1163 

0 

3240 

0 0006 

1 

3241 

7 7T52 

1 

3242 

22  113 

1 

3243 

50  122 

0 

3244 

3 1437 

0 

3245 

0 0006 

1 

3246 

7 0112 

1 

3247 

22  114 

0 

3250 

0 OOO6 

1 

3251 

7 7(50 

0 

3252 

20  113 

0 

3253 

3 0114 

0 

3254 

0 0006 

1 

3255 

7 7(50 

0 

3256 

3257 

54  001 

1 

3 7(61 

0 

3260 

20  113 

0 

3261 

0 0006 

1 

3262 

3 0113 

1 

3263 

50  122 

0 

3264 

52  404 

0 

3265 

10  122 

1 

3266 

6 7(63 

1 

3267 

1 3430 

1 

3270 

1 3471 

1 

1/PIPA 


1/PIPAl 


dec  13,  1966  (MAIN)  PAGE  804 


USER'S  OWN  PAGf  no.  3 E3 

CAF  LGCOMP  SAvE  EBANk  of  calling  program 

XCH  EBANK 

TS  MODE 

CCS  GCOMPSW  BYPASS  IF  GCOMPSW  NEGATIVE 

TCF  *3 

TCF  *2 

TCF  IRIGl  return 

CAF  FOUR  PIPAZ,  PIPAY,  PiPAX 

TS  BUF  *2 

index  a 

CA  DELVX  CONTAINS  PREVIOUS  PIPA  READING 

TS  VBUF  TEMPORARY  - MINnR  PARTS  IRRELEVANT 

INDEX  BUF  *2 

CS  PiPABlAS 

EXTEND 

MP  1/PIPADT 

EXTEND 
MP  BIT4 

LXCH  VBUF  ♦! 


INDEX 

BUF  *2 

CA 

EXTEND 

MP 

LXCH 

PIPASCF 

(P.P.M.)  X 2(-9) 

VBUF 

VBUF  *2 

(PIPA  PULSES)  X 2(*14) 

SAVE  FOR  FRACTIONAL  COMPUTATION 

extend 

MP 

DAS 

B1T6 

VBUF 

SCALE  2 (*9)  NOW  PiPA  PULSES  X 2 (*14) 

(PIPAI)  - (NBD)  (DELTAT)  ♦ HI ( P I PA  I ) ( SFE ) 

CA 

Extend 

VBUF  *2 

NOW  MINOR  PART 

MP  BIT6 

TS  L 

CAF  ZERO 

DAS  VBUF 

extend 

DCA  VBUF  RESTORE  COMPENSATED  pIpA  READING 

INDEX  BUF  *2 

DXCH  DELVX 

CCS  BUF  *2  PIPAZ.  PIPAY.  PiPAX 

Ad  negi 

TCF  1/PIPAl  ♦! 

NOOP  LESS  THAN  ZERO  IMPOSSIBLE 


SCALE  2 (*9)  shift  RIGHT  9 
(PIPAI)  - (NBD)  (DELTAT)  ♦ (PIPAn(SFE) 


(PIPA  PULsEs)/(rS)  X 2(-5)  * 

(CS)  X 2(*8)  Now  (PIPA  PULSES)  X 2(*3)* 

SCALE  2 (-3)  SHIFT  LEFT  3 " 

(PIPA  PULSES)  X 2(0)  Fractional  pulse* 


^88954A  YJL  SYSTEM  FOR  AGCj  NEW  PROGRAM  SMEPATIN  BY  EYLES 


L I MU  compensation  PACKAGE 


OlAA 

REF 

2 

LAST 

804 

01A5 

REF 

29 

LAST 

804 

01A6 

01A7 

REf 

20 

LAST 

804 

01A8 

REF 

271 

LAST 

797 

01A9 

REF 

2 

LAST 

283 

0150 

REF 

1 

0151 

0152  REF 

0153  REF 
015A  REF 

0155  REF 

0156  REF 

0157  REF 

0158 

0159  REF 

0160  REF 

0161  REF 

0162  REF 

0163 

016A  REF 

0165  REF 

0166  REF 

0167  REF 

0168  REF 

0169  REF 


0170 

0171  REF 

0172  REF 

0173  REF 
017A  REF 

0175 

0176  REF 

0177  REF 

0178  REF 

0179  REF 

0180  REF 

0181  REF 


9 LAST  783 
272  LAST  805 
2 LAST  283 
2 LAST  805 

A LAST  802 
1 


10  LAST  805 
273  LAST  805 
1 

3 LAST  805 


9 LAST  783 
27A  LAST  805 
1 

A LAST  805 
1 

2 LAST  805 


11  last  805 
275  LAST  805 
1 

5 LAST  805 


10  LAST  805 

276  LAST  805 
1 

6 LAST  805 
1 

3 LAST  805 


12,327l 

55*463 

0 

IRIGCOMP 

TS 

GCOMPSW 

12,3272 

54  120 

0 

TS 

BUF 

12*3273 

12,327^ 

0 0006 

1 

IRIGX 

EXTEND 

DCS 

4 0''04 

0 

DELvx 

12,3275 

52  145 

0 

dxch 

MPAC 

12,3276 

3 1‘'47 

0 3353 

0 0006 

1 

CA 

ADIAX 

12,327T 

12,3300 

1 

1 

TC 

Extend 

GCOMPSUB 

12,3301 

4 0^*06 

1 

DCS 

DELvY 

12,3302 

52  I45 

0 

dxch 

MPAC 

12,3303 

4 l‘*52 

1 

cs 

ADSRAX 

12,330A 

0 3353 

1 

TC 

GCOMPSUB 

12,3305 

4 i‘'44 

0 

cs 

NBDX 

12,3306 

0 3‘'02 

1 

TC 

DRIFTSUb 

12,330T 

0 0006 

1 

IRIGY 

EXTEND 

12,3310 

4 0‘*06 

1 

DCS 

DELVY 

12,3311 

52  iA5 

0 

DXCH 

MPAC 

12,3312 

3 l‘*50 

1 

CA 

ADIAY 

12,3313 

12,331^ 

0 3353 

0 0006 

1 

1 

TC 

EXTEND 

GCOMPSUB 

12,3315 

4 0‘'10 

0 

DCS 

DELvZ 

12,3316 

52  1A5 

0 

DXCH 

MPAC 

12,3317 

4 l‘*53 

0 

CS 

ADSRAY 

12,3320 

0 3353 

1 

TC 

GCOMPSUB 

12,3321 

4 l‘*45 

1 

CS 

NBDY 

12,3322 

0 3‘'02 

1 

TC 

DRIFTSUB 

12,3323 

0 OOO6 

1 

IRIGZ 

EXTEND 

12,332^* 

4 0‘*06 

1 

DCs 

DELVY 

12,3325 

52  145 

0 

dxch 

MPAC 

12,3326 

3 l‘'5A 

0 

CA 

ADSRAZ 

12,3327 

12,3330 

0 3353 

0 0006 

1 

1 

TC 

EXTEND 

GCOMPSUB 

12,3331 

4 0‘*10 

0 

DCS 

DELvZ 

12,3332 

52  145 

0 

DXCH 

MPAC 

12,3333 

3 1‘'51 

0 

CA 

ADIAZ 

12,333'» 

0 3353 

1 

TC 

GCOMPSUB 

12,3335 

3 l‘*^6 

0 

CA 

NBDZ 

12,3336 

0 3‘'02 

1 

TC 

DRIFTSUb 

DEC  13,  I966  (MAIN)  PAGE  805 


USER'S  OWN  PAGF  NO.  A E3 

INDICATE  COMMANDS  2 PULSES  OR  LESS 
INDEX  COUNTER  - IRIGX,  IRIGY,  IRIGZ 


(pIpA  PULSES)  X 2(*1A) 

(GYRO  PULSES) /(pIPA  PULSE)  X 2 (-6)  * 

-(ADIAX) (PIPAX)  (gyro  PULSES)  X 2(*1A) 


(PIPA  PULSES)  X 2(*1A) 

(GYRO  PULSE5)/(PIPA  PULSE)  X 2(-6)  » 

♦(ADSRAX) (PIPAY)  (GYRO  PULSES)  X 2(*1A) 

(GYRO  PULSES)/(CS)  X 2(’'5) 

-(NBDX) (DELTAT)  (GYRO  pULSES)  X 2(*1A) 


(PIPA  PULSES)  X 2(*1A) 

(GYRO  PULSES)/(pIPA  PULSE)  X 2(-6)  * 

-(ADIAY) (PIPAY)  (GYRO  PULSES)  X 2(*1A) 


(pIpA  pULSES)  X 2(+lA) 

(GYRO  PULSES) /(PiPA  PULSE)  X 2 (-6)  * 

* (ADSRAY) (PIPAZl  (GYRO  PULSES)  X 2(*1A) 

(GYRO  PULSES)/(CS)  X 2(-5) 

-(NBDY) (DELTAT)  (GYRO  PULSES)  X 2(*1A) 


(PIPA  PULsES)  X 2(*1A) 

(GYRO  PULSES) /(PiPA  PULSE)  X 2 (-6)  " 

-(ADSRAZ) (PIPAY)  (GYRO  PULSES)  X 2(.1A) 


(pIpA  PULSES)  X 2(*1A) 


(GYRO  PULSES) /(PiPA  PULSE)  X 2 (-6)  * 

-(ADIAZ) (PIPAZ)  (gyro  PULSES)  X 2(*1A) 

(GYRO  PULSES)/(rS)  X 2(-5) 

♦ (NbDZ)  (DELTAT)  (gyRO  pULSES)  X 2(*1A) 


48895AA  YJL  SYSTEM  FOR  AGC;  NElN  PROIjRAM  SMEPATIN  BY  EYLES 


L HU  compensation  PAC<AGe 


0182  REF  3 LAST  805  12. 

0183  12. 

018A  REF  2 LAST  80A  12. 

0185  12. 

0186  REF  3 LAST  678  12. 

0187  REF  32  LAST  796  12. 

01875  REF  5 LAST  805 

0188  12. 

C0188  REF  1 12. 

0189  12. 

01892  REF  3 LAST  80A  12. 

01893  REF  57  LAST  80A  12. 

01895  REF  6 LAST  16A  12. 


3337 

11*‘*63 

0 

CCS 

33A0 

1 33A2 

0 

TCF 

33A1 

1 3350 

0 

TCF 

33A2 

0 0004 

0 

INHINT 

33A3 

33AA 

3 5574 

1 

CAF 

0 5523 

0 

TC 

E3 

EBANKs 

33A5 

33‘'35 

0 

2CADR 

33A5 

24OO3 

1 

33A7 

0 0003 

1 

RELINT 

335O 

3 0153 

0 IRIGI 

CA 

335I 

54  003 

0 

TS 

3352 

1 5237 

0 

TCF 

0190  REF  277  LAST  805 

0191 

0192  REF  278  LAST  806 


12.3353  55  UA  0 
12.335A  0 0006  1 
12.3355  7 OlAA  1 


GCOMPSUb  xCH 


EXTEND 

MP 


0193  REF  2A  LAST  80A  12.3355  52  113  0 OXCH 

019A  REF  279  LAST  806  12.3357  3 0U5  1 CA 

0195  12.3360  0 0006  1 EXTEND 

0196  REF  280  LAST  806  12.3361  7 OUA  1 MP 

0197  REF  151  last  80A  12.3362  5A  OOl  1 TS 

0198  REF  237  LAST  80A  12.3363  3 7^61  0 CAF 

0199  REF  25  LAST  806  12.336A  20  U3  0 OAS 

0200  REF  25  LAST  806  12»3365  3 0112  0 CA 

0201  12.3365  0 OOO6  1 EXTEND 

0202  REF  21  LAST  6A2  12.3367  7 7^A5  1 MP 

0203  REF  30  LAST  805  12.3370  50  120  1 INDEX 

020A  REf  9 LAST  130  12.3371  21*A56  0 OAS 

0205  REF  27  LAST  806  12.3372  3 0113  1 CA 

0206  12.3373  0 0006  1 EXTEND 

0207  REF  22  LAST  806  12,337A  7 7^A5  1 MP 

0208  REF  152  LAST  806  12.3375  5A  001  1 TS 

0209  REF  238  LAST  806  12.3375  3 7^61  0 CAF 

0210  REF  31  last  806  12.3377  50  120  1 INDEX 

0211  REF  10  LAST  806  12.3A00  21'A56  0 OAS 

0212  rEF  237  last  792  12.3A01  0 0002  0 TC 


GCOMPSW 

♦2 

IRIGI 


PRI035 

NOVAC 

NBDX 

1/GYRO 


MODE 

EBANK 

SWRETURN 


MPAC 

MPAC 

VBUF 

MPAC  *1 

MPAC 

L 

ZERO 

VBUF 

VBUF 

BIT9 

BUF 

GCOmp 

VBUF  *1 

BIT9 

L 

ZERO 

BUF 

GCOMP 

0 


DEC  13.  1966  (MAIN)  PAGE  806 

USER'S  OWN  PAGf  NO.  5 £3 

ARE  GYRO  COMMANDS  GREATER  THAN  2 PULSES 

YES 

NO 

SEND  OUT  GYRO  TnRQUING  COMMANDS 


SET  EBANK  FOR  RETURN 


ADIA  OR  ADSRA  COEFFICIENT  ARRIVES  IN  A 
C(MPAC)  = (PIPA  PULSES)  X 2(*1A) 

(GYRO  PULSES)/(PlPA  PULSE)  X 2(,6)  « 

NOW  s (GYRO  PULSES)  X 2 (>8)  * 

MINOR  PART  PIPA  PULSES 

ADIA  OR  ADSRA 


NOW  s (GYRO  PULSES)  X 2U8) 

PARTIAL  RESULT  - MAJOR 

SCALE  2(*6)  SHIFT  RIGHT  6 

RESULT  = (GYRO  PULSES)  X 2(*U) 

HI (ADIA) (PipAI ) OR  HI (ADSRA) (pipAI ) 

PARTIAL  RESULT  - MINOR 

SCALE  2(*6)  SHIFT  RIGHT  6 


RESULT  = (GYRO  PULSES)  X 2(*1A) 
(ADIA) (PIPAI ) OR  (ADSRA) (PIPAI ) 


^88954A  yJl  System  for  aqC}  new  prociRam  s^epatin  by  eyles 


DEC  13*  1966  (MAIN)  pA^t  80? 


L HU  compensation  PAC<AGe  USER'S  0*^N  PAGf  NO*  6 E3 


0213 

02U 

REF 

32 

LAST 

806 

12.3A02 

12.3A03 

12*3A0A 

12.3A05 

12*3A06 

0 0006 
22  121 

0 0006 
7 1163 
22  iA5 

1 

0 

DRIFTSUB 

EXTEND 

3XCH 

EXTEND 

MP 

LXCH 

BUF  *1 

X Z(-5) 
X 2(*3) 

0215 

0216 
0217 

ref 

REF 

A 

281 

LAST 

LAST 

80A 

806 

1 

0 

1 

1/PIPAdT 

MPAC  *1 

C(A)  s NBD  (gyro  PULSES) /(CS) 
(CS)  X 2 (*8)  NOW  (GYRO  PULSES) 
SAVE  FOR  FRACTInNAL  COMPENSATION 

0218 

12»3A07 

0 0006 

1 

EXTEND 

0219 

REF 

A3 

LAST 

80A 

12,3AlO 

7 7752 

1 

MP 

BITa 

SCALE  2(*11)  SHIFT  RIGHT  11 

0220 

REF 

33 

LAST 

807 

12*3AlI 

50  120 

1 

INDEX 

BUF 

0221 

REF 

11 

LAST 

806 

12«3A12 

21'A56 

0 

OAS 

GCOMP 

HI (NBD) (DELTAT)  (GYRO  PULSES) 

X 2(*1A) 

0222 

REF 

2B2 

LAST 

807 

12*3a13 

3 0iA5 

1 

CA 

MPAc  ♦! 

NOW  minOr  part 

0223 

12*3A1A 

0 0006 

1 

EXTEND 

022A 

REF 

AA 

LAST 

807 

12*3a1P 

7 7752 

1 

MP 

BITa 

SCALE  2(*11)  SHIFT  RIGHT  11 

0225 

REF 

153 

LAST 

806 

12«3A16 

5A  Ool 

1 

TS 

L 

0226 

REF 

239 

LAST 

806 

12*3a1T 

3 7761 

0 

CAF 

ZERO 

0227 

REF 

3A 

LAST 

807 

12i3A20 

50  120 

1 

INDEX 

BUF 

ADD  IN  fractional  COMPENSATION 

0228 

REF 

12 

LAST 

807 

12«3A2I 

21'‘!56 

0 

OAS 

GCOMP 

(NBD) (DELTAT)  (GYRO  PULSES) 

X 2(*1A) 

0229 

REf 

90 

LAST 

768 

12*3A22 

3 7 75A 

0 

DRFTSUB2 

caf 

Two 

PiPAx*  PIpAy.  PIPAZ 

0230 

REF 

35 

LAST 

807 

12*3A23 

6 0120 

1 

AD 

BUF 

0231 

REF 

36 

LAST 

807 

12.3A2A 

56  120 

1 

XCH 

BUF 

0232 

REF 

303 

LAST 

80A 

12,3a25> 

50  000 

1 

INDEX 

A 

0233 

REF 

13 

LAST 

807 

12,3A26 

11  "*55 

0 

CCS 

GCOMP 

ARE  GYRO  COMMANDS  1 PULSE  OR  GREATER 

023A 

12.3A27 

1 3A31 

0 

TCF 

*2 

YES 

0235 

ref 

37 

LAST 

807 

12*3a30 

0 0121 

0 

TC 

BUF  *1 

NO 

0236 

REF 

1 

12*3A3l 

7 3R01 

1 

MASK 

COMPCHK 

DEC  -1 

0237 

REF 

30A 

LAST 

807 

12*3A32 

10  000 

0 

CCS 

A 

ARE  GYRO  commands  GREATER  THAN  2 

PULSES 

0238 

REF 

A 

LAST 

806 

12*3A33 

55"*63 

0 

TS 

GCOMPSW 

YES  - SET  GCOMPSW  POSITIVE 

0239 

REF 

30 

LAST 

807 

12*3a3A 

0 0121 

0 

TC 

BUF  *1 

NO 

^88954a  YJL  SYSteM  FOR  AGC!  NEW  S^ePATIN  BY 

L nu  compensation  PAC<AOe 


0240 

0241 

REF 

REf 

D ? C 

29 

39 

LAST 

LAST 

1 ACT 

804 

807 

0242 

Kcr 

40 

A 0 1 

808 

0243 

0244 

REF 

14 

LAST 

807 

0245 

REF 

26 

LAST 

756 

0246 

REF 

41 

LAST 

808 

0247 

REF 

15 

LAST 

808 

0248 

ref 

240 

LAST 

807 

0249 

REF 

42 

LAST 

808 

0250 

0251 

REF 

16 

LAST 

808 

0252 

REF 

27 

LAST 

808 

0253 

REF 

43 

LAST 

808 

0254 

REF 

17 

LAST 

808 

0255 

REF 

44 

LAST 

808 

0256 

REF 

7 

LAST 

804 

0257 

REF 

2 

LAST 

806 

0258 

REF 

18 

LAST 

808 

0259 

REF 

2 

LAST 

8O4 

0260 

REF 

133 

LAST 

768 

0261 

REF 

5 

LAST 

442 

0262 

REF 

134 

LAST 

808 

0263 

REF 

30 

104 

LAST 

LAST 

442 

0264 

REF 

800 

0265 

REF 

30 

LAST 

808 

0266 

ref 

45 

LAST 

808 

0267 

REF 

46 

LAST 

808 

0268 

0269 

REF 

19 

LAST 

808 

0270 

REF 

28 

LAST 

808 

0271 

REF 

47 

LAST 

808 

0272 

REF 

20 

LAST 

808 

0273 

rEf 

48 

LAST 

808 

0274 

REF 

8 

LAST 

808 

0276 

0277  REF  105  LAST  808 


12»3A35  3 7^53  1 1/GYRO 

12.3A36  5A  120  0 


12.3A37  50  120  1 

12t3AA0  3 l‘»56  1 

12i3A4X  0 0^06  1 

12,3AA2  7 7/A6  1 

12.3AA3  50  120  I 

12»3AAA  55*‘*56  0 

12i3AA5  3 7^61  0 

12*3AAP  50  120  1 

12t34A7  57*‘*55  1 

12*3A50  0 0006  1 

12*3451  7 7^46  1 

12.3452  50  120  1 

12.3453  21*A56  0 

12,345A  10  120  0 

12.3455  6 7^63  1 

12.3456  1 3‘*36  1 

12.3457  01‘»55  1 LGCOMP 

12,346°  3 3457  1 

12,346i  0 5<i24  0 

12,346^  26361  1 

12,3463  0 5*^24  0 

12,346<»  26^62  0 

12.3465  1 5605  0 

12.3466  3 7^53  1 GCOMPl 

12.3467  54  120  0 

12,3470  50  120  1 

12»347l  3 1456  1 

12.3472  0 0006  1 

12.3473  7 7^46  1 

12.3474  50  120  1 

12.3475  23*456  1 

12.3476  10  120  0 

12.3477  6 7^63  1 

12.3500  1 3467  0 

12.3501  link  1 COMPCHK 

12.3502  1 5605  0 
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USER'S  OWN  page  no.  7 E3 

CAF  FOUR 

TS  BUF 

PIPAZ,  PIPAY,  PiPAX 

INDEX  BUF 

CA  GCOMP  ♦! 

EXTEND 

SCALE  GYRO  COMMANDS  FOR  IMUPULSe 
fractional  pulses 

MP  BITS 

INDEX  BUF 

SHIFT  RIGHT  7 

TS  GCOMP  *1 

FRACTIONAL  PULSES  SCALED 

caf  zero 

INDEX  BUF 

SET  GCOMP  = 0 FOR  DAS  INSTRUCTION 

XCH  GCOMP 

extend 

GYRO  PULSES 

MP  BIT8 

shift  right  7 

INDEX  BUF 

OAS  GCOMP 

ADD  these  TO  FRACTIONAL  PULSES  ABOVE 

CCS  BUF 

AD  NEGl 

PiPAZ,  PIPAY,  PiPAX 

TCF  1/GYRO  ♦! 

ECADR  GCOMP 

CAF  LGCOMP 

LESS  THAN  ZERO  IMPOSSIBLE 

TC  BANKCALL 

CADR  IMUPULSE 

TC  BANKCALL 

CALL  GYRO  TOROUiNG  ROUTINE 

CADR  IMUSTALL 

TCF  ENDOFJOB 

WAIT  FOR  PULSES  TO  GET  OUT 

TEMPORARY 

CAF  FOUR 

TS  BUF 

PIPAZ,  PIPAY,  PIPAX 

INDEX  BUF 

RESCALE 

CA  GCOMP  ♦! 

extend 

MP  BIT8 

index  BUF 

SHIFT  MINOR  PART  LEFT  7 - MAjOR  PART  = U 

LXCH  GCOMP  ♦I 

BITS  8-14  OF  MINOR  PART  WERE  s 0 

CCS  BUF 

AD  NEGl 

PIPAZ,  PIPAy,  PiPAX 

TCF  GCOMPl  *1 

DEC  -1 

TCF  ENDOFJOB 

LESS  THAN  ZERO  IMPOSSIBLE 
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L HU  compensation  PACKAGE 


0278 

REF 

5 

LAST 

807 

12,3503 

ll'‘*63 

0 

02781 

12 ,350*' 

1 

3^07 

1 

02782 

12,3505 

1 

3507 

1 

02783 

REF 

106 

LAST 

808 

12,3506 

1 

5605 

0 

0278A 

REF 

17 

LAST 

754 

12*3507 

3 

0U25 

0 

0279 

REF 

5 

LAST 

807 

12,3510 

57*163 

1 

12,3511 

0000 

0280 

4 

0 

0281 

REF 

6 

LAST 

809 

12,3512 

6 

1163 

1 

0282 

REF 

305 

LAST 

807 

12,3513 

10 

000 

0 

0283 

REF 

169 

LAST 

769 

12,35H 

6 

7(55 

1 

028A 

REF 

1 

12,35lS> 

1 

3522 

0 

0285 

3520 

i 

12,3519 

1 

0286 

REF 

107 

LAST 

809 

12,351T 

1 

5605 

0 

0287 

12*3520 

4 

oooo 

0 

0288 

REF 

A6 

LAST 

701 

12*3521 

6 

7(35 

1 

0289 

12*3522 

0 

0006 

1 

0290 

REF 

A5 

LAST 

647 

12,3523 

7 

7 (44 

0 

0291 

REF 

28 

LAST 

806 

12,3524 

52 

113 

0 

0292 

12,3525 

0 

OOO6 

1 

0293 

REF 

29 

LAST 

809 

12,3526 

3 

0113 

1 

029A 

REF 

283 

LAST 

807 

12,3527 

52 

145 

0 

0295 

REF 

2A1 

LAST 

808 

12*3530 

3 

7(61 

0 

0296 

REF 

6 

LAST 

809 

12*3531 

55*463 

0 

0297 

REF 

A9 

LAST 

808 

12*3532 

54 

120 

0 

0298 

REF 

6 

LAST 

806 

12*3533 

4 

1444 

0 

0299 

ref 

1 

12,3534 

0 

3552 

0 

0300 

12,3535 

0 

0006 

1 

0301 

REF 

30 

LAST 

809 

12,3536 

4 

0113 

0 

0302 

REF 

284 

LAST 

809 

12,353T 

52 

I45 

0 

0303 

REF 

2 

LAST 

805 

12,3540 

3 

H45 

0 

030A 

REF 

2 

LAST 

809 

12,3541 

0 

3552 

0 

0305 

12*3542 

0 

0006 

1 

0306 

REF 

31 

LAST 

809 

12*3543 

4 

0113 

0 

0307 

REF 

285 

LAST 

809 

12*3544 

52 

145 

0 

0308 

REF 

2 

LAST 

805 

12*3545 

4 

1446 

1 

0309 

REF 

3 

LAST 

809 

12,3546 

0 

3552 

0 

0310 

REF 

7 

LAST 

809 

12,3547 

11 

*463 

0 

0311 

REF 

3 

LAST 

808 

12*3550 

1 

3435 

1 

0312 

REf 

108 

last 

809 

12*3551 

1 

5605 

0 

NBDONLY 


NBD2 


NBD3 
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USER'S  OWN  PACT  NO.  0 E3 


CCS 

GCOMPSW 

TCF 

♦ 3 

TCF 

♦ 2 

TCF 

ENDOFJOB 

CA 

TIMEl 

XCH 

COM 

1/PIpAdT 

AD 

1/PIPADT 

CCS 

A 

AD 

ONE 

TCF 

NBD3 

TCF 

♦ 2 

TCF 

ENDOFJOB 

COM 

AD 

POSmAx 

extend 

MP 

BITlO 

dxch 

EXTEND 

VBUF 

DCA 

VBUF 

DXCH 

MPAC 

CAF 

ZERO 

TS 

GCOmpSW 

TS 

BUF 

CS 

NBDX 

TC 

fbiassub 

EXTEND 

DCS 

VBUF 

DXCH 

MPAC 

CA 

NBDY 

TC 

FBIASSUB 

EXTEND 

DCS 

VbUF 

DXCH 

MPAC 

CS 

NBDZ 

TC 

Fbiassub 

BYPASS  IF  GCOMPaW  NEGATIVE 


(CS)  X 2(*U) 
PREVIOUS  time 


CALCULATE  ELAPSfD  TIME 
NO  TIMEl  OVERFLOW 
RESTORE  time  DIfFERfNCE  AND  JUMP 
TIMEl  OVERFLOW 

IF  elapsed  time  s 0 (DIFFERENCE  = -0) 
CALCULATE  ABSOLUTE  DIFFERENCE 


C(A)  = DELTA!  (Cs)  X 2(*U) 
SHIFT  RIGHT  5 


DELTAT  NOW  SCALfD  (CS)  X 2(*19) 


INDICATE  commands  2 pULSES  OR  LESS 
PIPAX,  PIPAY,  PIPAZ 

(GYRO  PULSES)/(rS)  X 2(-5) 

-(NBDX)  (DELTA!)  (GYRO  PULSES)  X 2(.1A) 


DELTA!  SCALED  (CS)  X 2 (*19) 

(GYRO  PULSES)/(rS)  X 2(-5) 

-(NBDY) (DELTA!)  (GYRO  PULSES)  X 2(*1A) 


DELTA!  SCALED  (rS)  X 2(»I9) 

(GYRO  PULSES) /(cS)  X 2 (-5) 

♦ (NbDZ) (DELTA!)  (GYRO  PULSES)  X 2(*1A) 


CCS  GCOMPSW 

TCF  1/GYRO 

TCF  ENDOfJOB 


ARE  GYRO  commands  GREATER  THAN  2 PULSES 

YES 

NO 
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0313 

03U 

0315 

0316 

0317 
03175 

0318 

0319 

0320 

0321 

0322 

0323 
03235 
032A 

0325 


0326 

03261 

03262 

03263 

0326A 

03265 

0327 

0328 

0329 


03A0 

03A1 

03A2 

03A3 

03A35 

03AA 

03A5 

03A6 

03A7 

03A8 

03A9 


I MU  compensation  PAC<AGE 


USER'S  OWN  PAGf  NOt  9 


E3 


REF 

238 

LAST 

806 

REF 

50 

LAST 

809 

REF 

239 

LAST 

810 

REF 

286 

LAST 

809 

REF 

51 

LAST 

810 

REF 

21 

LAST 

808 

ref 

2A0 

LAST 

810 

REF 

287 

LAST 

810 

REF 

15A 

LAST 

807 

REF 

n Cc 

2A2 

LAST 

809 

Ktr 

52 

LAST- 

8l0 

REF 

22 

LAST 

810 

12.3552  56  O02  0 

12.3553  5A  121  1 

12,355A  3 0002  0 

12.3555  0 0006  1 

12.3556  7 OUA  1 

12.3557  50  120  1 

12.3560  21'A56  0 

12.3561  3 0002  0 

12.3562  0 0006  1 

12.3563  7 01A5  0 
12,356^  5A  001  1 

12.3565  3 7^61  0 

12.3566  50  120  1 

12,356?  21'A56  0 


ASSUB  xCH  Q 

TS  BUF  ♦! 

CA  0 

extend 

MP  MPAC 

INDEX  BUF 

OAS  GCOMP 

CA  Q 

EXTEND 

MP  MPAC  *1 

TS  L 

CAF  ZERO 

INDEX  BUF 

DAS  GCOMP 


NBD  SCALED  (GYRO  PULSES) /(CS)  X 2 (-5) 
DELTAT  SCALED  (CS)  x 2 (♦19) 

HI (NBD) (DELTAT)  (GYRO  PULSES)  X 2(+lA) 
NOW  fractional  pArT 


(NBD) (DELTAT)  (GYRO  PULSES)  X 2(+lA) 


REF 


1 


12,3570  1 3‘'22  1 TCF  DRFTSUB2  CHECK  MAGNITUDE  OF  cOMPEmsATiOn 


REF 

8 

last 

809 

12,3571 

11*^?63 

0 

LAStBIAS  CCS 

GCOMPSW 

12,3572 

1 3575 

1 

TCF 

+ 3 

12,3573 

1 3575 

1 

TCF 

♦ 2 

REF 

109 

LAST 

809 

12,357A 

1 5505 

0 

TCF 

ENDOFJOB 

REF 

2 

LAST 

660 

12,3575 

3 5670 

0 

CAF 

PRI031 

ref 

7 

LAST 

809 

12 ,3576 

5 7 • 163 

1 

XCH 

1/PIPAdT 

12,3577 

A OOOO 

0 

COM 

REF 

REF 

7 

1 

LAST 

781 

12.3600 

12.3601 

6 1321 

1 3»13 

0 

1 

AD 

TCF 

PIPTIME  ♦! 
NBD2 

bypass  if  gcomp«;w  Negative 


2 SECONDS  SCALEn  (CS)  X 2(*lA) 


TIME  AT  PIPAI  s 0 


REF  3 LAST  808 
REF  58  LAST  806 
REF  A LAST  806 

REF  2A3  LAST  810 
REF  9 LAST  810 
REF  23  LAST  810 
REf  2A  last  810 
REF  25  last  810 

REF  26  LAST  810 
REF  27  LAST  810 
REf  28  last  810 


12,3602 

3 3‘'57 

1 

GCOMPzER  CAF 

LgCOMP 

12,3603 

56  003 

1 

XCH 

EBANK 

12,360A 

5A  153 

1 

TS 

MODE 

12,3605 

3 7?61 

0 

CAF 

ZERO 

12,3606 

55'‘*63 

0 

TS 

GCOMPSW 

12,3607 

55 1 <,55 

0 

TS 

GCOMP 

12,3610 

55*‘'56 

0 

TS 

GCOmP  ♦! 

12,3611 

55»‘*57 

1 

TS 

GCOMP  *2 

12,3612 

55'A60 

0 

TS 

GCOMP  *3 

12*3613 

55*‘*6l 

1 

TS 

GCOMP  *4 

12,36lA 

55»‘*62 

1 

TS 

GcOmP  *5 

ROUTINE  TO  zERn  (^COMP  BEFORE  FIRST 
CALL  TO  1/PIPA 


^8895^A  Y JL  SySTEw  pOK  AGC5  ^Ew  pROG^Avi  S*^EpATlN  ay  EyLtS 


DEc  13*  1966  (mAIN)  pAqE  8ll 


L nu  compensation  PAC<AGe  USER'S  OWN  PAGe  NO.  10 


0350 

ref 

5 

LAST 

810 

12,3615 

3 0153 

0 

CA 

mode 

0351 

REF 

59 

LAST 

810 

12,3615 

5A  ^03 

0 

TS 

EbANK 

0352 

REF 

7 

LAST 

806 

12,36lT 

1 5‘:37 

0 

TCF 

SWRETURN 

RETURN  TO  CALLPR 

E3 
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A8895AA 


L 

R00002 

ROOOOA 

R00006 

R00008 

ROOOl 

R00012 

Roooia 

R0002A 

R00028 

R0003 

R0003A 

R00038 

ROOOA2 

R000A6 

R000A8 

R0005 

R00052 

R0005A 


R00056 

R00058 

R00062 


0010 

0020 

0030 

OOAO 

0050 

0060 

0070 

0080 

0090 

0095 

0100 

COlOO 

0110 

0120 

0130 


yJL  SySTEM  FOR  AqC;  NEw  PROGRAM  S^^EPATIN  by  EyEES 


DJMMY  206  initialization  USER’S  OWN  PAGe  NO.  I 

program  name  - BEGIN206 
MOD.  NO,  3 

MOD  BY  - D,  LICKLY  AND  J,  SAMPSON 
DATE  - NOV,  22»  1966 

LOG  section  - DUMMY  206  INITIALIZATION 

assembly  - sunburst  revision  36 

FUNCTIONAL  DESCRIPTION  - ST^RT  JP  TO  TWO  DELAYED  JOBS  OR  TASKS  AFTER  SLAPi  FOR  SIMULATION  PuRPoBeS, 

FIXED  INITIALIZATION  REQUIRED  - PATCH  STARTDTl  AND  STARTDT2  TO  REPRESENT  THE  TIME2tTIMEi  v^l Ue  At  THl  TIME  AT 

WHICH  THE  JOBS  OR  TASKS  ARe  TO  BEGIN 

patch  CADRi  and  CADR2  IF  SOME  OTHER  TASKS  THAN  TASK;  AND  TASK2  ARE  TO  Bf  USeD 

patch  CADR3  and  CADRa  TO  tHe  2CADR  OF  THE  JOBS  TO  BE  STARTED 
patch  206BEGIN  TO  TC  eNDOFJOB  IF  ONLY  ONLY  ONE  TASK  OR  JOB  IS  TO  BE  STARTED 
patch  TASK!  AND  TASK2  WITH  DIFFERENT  PRIORITIES  IF  DE-SIceD 
SUBROUTINES  CALLED  - FINDVAC,  WAHLIST 

NORMAL  EXIT  MODES  - ENDOFJOB,  TAS^OVER 

ALARM  OR  abort  EXIT  MODES  - NONE 

OUTPUT  - 2 waitlist  OR  FInDVAC'  CALLS  FOR  THE  2CADRS  PATCHED  IN 
erasable  initialization  required  - NONE 


DEBRIS  - ITEMPI,  CENTRALS,  ERASABLeS  IN  SUBROUTINES  CALLED 

NOTES  - SINCE  ONLY  THE  LOW  ORDER  ^^ART  OF  STARTDTl  AND  STARTDT2  ARE  USED  TO  COMPUTE  THe  DELTAT  FOR  WAITLIST.  THE 

required  tasks  and  jobs  wIlli  be  called  within  163, 8a  seconds 


35'352A  3ANK 

35.352A  0 OUOA  0 BEGIN206  INHINT 

REF  18  LAST  809  35,3525  A OU25  1 CS 

REF  1 35,3526  6 3551  0 AD 

REF  A7  LAST  797  35,352?  6 7?A0  0 AD 

REF  A8  LAST  812  35,3530  6 7?A0  0 AD 

REF  95  LAST  772  35,3531  56  U61  0 XCH 

REF  96  LAST  812  35,3532  3 0061  0 CA 

REF  lAO  last  778  35,3533  0 5?01  1 TC 

REF  97  LAST  812  EO  EBANKr 

35,353A  0355A  0 CADRl  2CADR 

REF  1 35,3535  72O60  1 

REF  19  last  812  35,3536  A 0025  1 206BEGIN  CS 

REF  1 35,3537  6 3553  1 AD 

REF  A9  LAST  812  35,35A0  6 7 ?A0  0 AD 


35 


TIMEI  patch  SLAPI  TO  COME  HERE  TO  START  UP  TWO 

STARTDTl  *1  DELAYED  TASKS  OR  JOBS  FOR  SIMULATIONS 

BITIA 

BITIA 

ITEMPl 

ITEMPl 

waitlist 

ITEMPl 

TASKl  MAY  BE  PATCHED  fOR  ANOTHER  TASK 


TIMEI  patch  to  TC  ENDOFJOB  TO  START  1 TASK 

STARTDT2  *1 

BITia 
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L OJMMY  206  initialization  USER'S  OWN  PAGE  NO.  Z 


OlAO 

REF 

REF 

REF 

REF 

REF 

50 

LAST 

LAST 

LAST 

last 

LAST 

812 

812 

813 

812 

813 

35*35A1 

35.35A2 

35*3543 

6 7^40 
56  061 

3 OO6I 
0 5^01 

1 

03561 

0 

AD 

BIT14 

* 

0150 

0160 

98 

99 
lAl 
100 

0 

0 

1 

EO 

0 

XCH 

CA 

I TEMPI 

ITEMPl 

7 

0170 

0175 

OlBO 

35*3544 

35*3545 

CADR2 

TC 

EBANKs 

2CADR 

WAITlIsT 

ITEMPl 

TASK2 

COULD  BE  PATCHED 

C0180 

REF 

1 

35  *3546 

72060 

1 

0190 

REF 

110 

LAST 

810 

35*3547 

0 5605 

1 

TC 

ENDOFJOB 

0200 

35*3550 

ooooo 

1 

STArTDTI 

2DEc 

600 

patch 

C0200 

35*3551 

01130 

1 

0210 

35*3552 

ooooo 

1 

STARTDT2 

2DEC 

200 

PATCH 

u 

C0210 

35*3553 

00310 

0 

0220 

REF 

3 

LAST 

298 

35,3554 

3 5957 

0 

TaSKI 

CAF 

PRI015 

..OR  YOUR  OWN  Priority.. 

c 

0230 

REF 

29 

LAST 

769 

35*3555 

0 5534 

0 

TC 

FINDVAC 

V 

02A0 

35*3556 

77f77 

0 

CADR3 

OCT 

77777 

BETTER  PATCH  A 2CADR  HERE 

1; 

0250 

35*3557 

nni 

0 

OCT 

77777 

0260 

REF 

126 

LAST 

778 

35*3560 

0 5^45 

1 

TC 

TASKOVER 

0270 

REF 

10 

LAST 

769 

35*3561 

3 7^40 

0 

TaSK2 

CAF 

PRI020 

f 

0280 

ref 

30 

LAST 

813 

35*3562 

0 5534 

0 

TC 

FINdvAC 

0290 

35,3563 

nm 

0 

CADR4 

OCT 

77777 

..HERE  ALSO.. 

9 

0300 

35*356A 

nni 

0 

OCT 

77777 

0310 

REF 

127 

LAST 

813 

35*3565 

0 5K5 

1 

TC 

TASKOVER 
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L SECOND  DPS  GUIDANCE  USER'S  OWN  PAGf  NO.  I 

ROOOl 

R0002  program  NAME  - SECOND  DPS  GUlDANCt 
R0003  MOD  NO.  - 0 

ROOOA  modification  by  - KUUMPP  AND  EYLEi» 

R0005  FJNCTIONAL  DESCRIPTION  - 

R0006  there  are  TWO  MODeS  OF  O^ERAIION  OF  THe  SECOND  DPS  qUIDANCE  PROgRAM  (2DPS),  PRIOR  TO  THe  Ig^ITION 

Ro008  SfOUeNCe  2DPS  IS  OPERATED  IN  tHe  PRe-IGNItION  MODE  FOR  THe  PURPOSE  OF  PROVIDING,  FOR  tHe  IGNITION 

Roolo  Sequence,  the  time  of  initiation  «nd  the  direction  of  thrust,  immediately  after  tHe  ignition  sequence 

Ro012  is  completed,  including  the  command  of  maximum  thrust,  2DPS  is  engaged  in  THe  thrusting  mode  for  tHe 

Rooia  purpose  of  providing  thrust  accellration  magnitude  and  direction  commands  Necessary  to  tonduct  the 

Rooi6  simulated  Powered  landing  maneuver, 

ROOIT  PRIOR  TO  launch,  eRASABL?  MeI’IORY  MUST  Be  LOADED  WITH  THE  SeMI-UNIt  NORMAL  TO  THe  Pi  ANE  OF  THe 

R0019  required  Orbit  CPT6/2,  and  data  which  indirectly  sPECIFICIEs  the  NOMINAL  IGNITION  TIME  tIGNoM.  ThEsE 

R0021  data  may  be  ADUUSTED,  as  a group,  via  the  uplink,  until  200  seconds  PRIOR  TO  the  TIGNOM  IMPi ied  by  the 

Ro023  pre-launch  LOAD  OR  IMPLIED  BY  THE  UPLINK  DATA,  WHICHEVER  IS  EARLIER,  A DESCRIPTION  OF  tHe  METHOD  OF 

Ro025  updating  TIGNoM  IS  IN  tHe  PROVINCE  OF  THE  MISSION  CoNtROL  PROGRAM  (MCP)  MISSION  PHASE  ll  - 

R0027  0PS2/FITH/APS1,  THE  TARGETING'  IS  CONTROLLED  BY  tHE  SEMUUNIT  VECTOR  CPT6/2  AS  DESCRIBED  IN  THE  206  GSOP, 


R0029  At  approximately  i8o  SECONDS  PRIOR  TO  TIGNOM,  THe  MCP  eNGAGeS  2DPS  IN  THe  PRe-IGNItION  MoDE  BY 

R0031  providing  an  extrapolated  TIM'  and  state  in  the  registers  tet,  rigntion,  VIGNTION,  and  transferring 
R0033  control  to  LOCATION  PReBURN  I Ni  2DHS,  THIS  TIME  AND  StATE  ARe  AT  APPROXIMATELY  50  SECONDS  PRIOR  TO 

Ro035  TIGNOM,  (THE  NAMES  RIGNtION,  VIGNtION,  CHOSeN  TO  INDICATE  USAGE  WITH  OTHeR  GUIDANCE  PRnGRAMS,  ARe 

Ro037  misleading  wItH  2DPS  IN  THAT  JHe  EXtRAPoLATeD  STATE  PROVIDED  IN  tHeSE  REGISTERS  IS  NOT  tHAT  EXPECTED  AT 

Ro039  ignition  but  rather  at  50  SECONDS  PRIOR  TO  IGNITION,)  2DPS  TRANSFERS  THE  CONTENTS  OF  TFT  TO  PIPTIME 

Rooai  and  Calls  subroutine  vpatchep  whiilh  transfers  the  state  to  Rn,  vn  and  initializes  fqr  CaLCRvg, 

RoOA3  using  CALCRVG  as  a subroutine,  and  internal  subroutines  IGNITNI  and  IGNITN2,  2DPS  MOVES  THE  TIME  AND 

Rooa5  state  Forward  to  a time  greater  than  or  equal  to  tullg-6  seconds  and  less  than  or  equal  to  tullg-3,8  seconds, 

Rooa7  Leaving  this  consistent  set  in.  pihtime,  Rn,  vn,  where  tullg  is  the  precise  time  for  ullage  to  be  initiated 

RoOA9  and  is  Left  in  the  register  OFi  that  name,  2DPS  leaves  a semi-unit  vector  in  the  direction  in  which 

Roo5i  thrust  is  to  be  commanded  during  (He  ignition  Sequence  in  the  register  pointvsm  and  branches  to 

R0053  LOCATION  RETPREB  IN  THE  MISSION  CONTROL  PROGRAM, 

R005A  USING  the  DATA  LEFT  BY  THE  PRE-IGNITION  MODE  OF  2DPS,  THE  MCP  ENGAGES  kALCMANU  TO  pROPeRLY 

Roo56  orient  tHe  spacecraft  For  tHe  ignition  Sequence,  and  issues  the  waitlist  calls  which  cause  the 
R0058  READACCS,  SeRVICeR,  PGNCSMON  loop  to  Be  established  (WITH  2DPS  NOT  IN  tHe  LOOP)  AND  PRODUCE  ULLAGE, 

Roo6o  engine  ignition,  and  finally  maximum  thrust,  immediately  after  maximum  thrust  is  Commanded,  the  mcp 

Ro062  places  the  2BCADR  OF  BURN  (EBANCfe  E2DPS)  IN  tHe  AVGeXIT  WHICH  CAUSES  2DPS  TO  Be  ADDeD  Tn  THe  ReADACCS, 

Ro06A  servicer,  PGNCSMON  LOOP  IMMEOIATEHY  FOLLOWING  CaLCRVG, 

R0065  when  control  IS  GIVEN  To  2QP5»  WITH  THE  2BCA0R  OF  BURN  IN  AVGEXIT,  2DPS  OPERATES  IN  THE  THRUSTING 


Roo67  mode*  it  Generates  the  sequencing  required  to  conduct  the  simulated  poweRed  landing  maneuvfR  and  issues 
R0069  the  thrust  acceleration  magnitude  and  direction  commands, 

R0070  2Dps  Generates  the  sequencing  by  incrementing  the  high  order  part  of  avgexit,  by  an  appropriate 

Ro072  integer,  to  ACCOMPLISH  EACH  CHANGE  OF  2DPS  PHASE,  THe  INCREMENTING  OF  AVGeXIT  CAUSES,  oN  THE  SUBSEQUENT 
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R007A  PASS  through  2DPS,  CONTROL  TO  BeGIN  AT  A NEW  POINT  IN  THE  SECOND  DPS  FLITE  SeQUeNCE  TABlE.  AND 
R0076  CONSeOUeNtUY  THE  CORRESPONDING'  ZD^S  MODING  TO  Be  ESTABLISHED, 

R0077  2DPS  Generates  the  thrust  ac‘-eleration  magnitude  and  direction  commands  on  the  basts  of  the 

Roo79  conte'Jts  of  piptime.  rn,  vn.  at  tHe  Beginning  of  the  pass,  to  issue  the  thrust  acceleration  direction 

ROOBl  command,  2DPS  PLACeS  A SeMI-JNIT  YgCTOR  IN  THe  ReDUIReD  DIRECTION  IN  THe  REGISTER  AXISD  AND  CALLS 

Rooea  FINDCOUD  AS  A SUBROUTINE.  TO  ISSUE  THE  MAGNITUDE  COMMAND,  zDPS  PLACES  THE  ReQUIReO  MaGMtUDE  IN  THE 
R0085  register  /AcF/  ANd  CALLS  TH^OTCON  AS  A SUBROUTINE. 

R0086  Before  but  not  includins  the  last  pass,  zdps  terminates  tHe  job  periodically  started  Bv  readaccs 

ROO88  BY  BRANCHING  TO  ENDOFJOB, 

Roo89  on  the  Last  pass  zdps  places  the  semi-unit  vector  along  the  normal  TO  the  Desired  oRBItal  plane, 

R0091  CPT6/2,  IN  the  REGISTER  AxiSj,  CALuS  FiNDrDUD*  ANO  BRANCHES  TO  LOCATION  RETBURN  IN  THE  MCP.  THE  MCP 

Ro093  removes  2DPS  FROM  THE  ReADACCS,  SLRVICeR,  PGNCSMON  LOOP  AND  ISSUES  THe  WAITLISt  CALLS  WHICH  PRODUCE  THe 

Roo95  random  throttling,  tHe  MCP  doeS  Not  change  the  Contents  oF  axisd  supplied  by  zDps,  consequently  tHe 

R0097  thrust  acceleration  during  rahdom  throttling  is  normal  to  the  orbital  plane. 
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L 

P0099 


ROlOO 

ROlOl 

R0102 

Ro103 

R0104 

ROIOS 

R0106 

R0107 

R0108 

R0109 

ROllO 

Rom 

R0U2 

R0113 

ROllA 

Rous 

R0116 

C0118 

R0U9 

R0120 

R0121 

R0122 

R0123 

R012A 

ROUS 

R0126 

R0127 

R0128 

R0129 

R0130 

R0131 

R0132 

R0133 

R013A 

ROUS 


SECOND  UPS  GUIDANCE 
interface  SPECIFICATIONS  - 


specification  pre”I5nit1on  mode 

C<^LLINg  sequence  - DTCB  TO  PREbURN 

(ebancp  e<;ops) 

NORMAL  EXITS  - DtCB  TO  LOCATION 

RETPREB  (tBANKs 
EMP11J03)  IN  MISSION 

Control  program. 


ALARM  OR  ABORT  EXITS  - NONE 
ERASABLE 

initialization  - CPT6/2  (IMU  COORDS) 
OTHER  INI  UALIZATION 
DONE  internally 


INPUTS  - 

OUTPUTS  - 

ERASABLeS  - 

SUBROUTINES  CALLED  - 


TET 

rigntion 

VIGNTION 

piptime 

RN 

VN 

TULLo 

POINTYSM. 

ame^orit  through 
AmEMORiY  ♦<^17  OCT 
PLUS  S for  CPT6/2  (NOT 
YET  ASSIGNED) 

ROOTPSRS 

VPATchER 

CALCRYo 


DEC  13.  1966  (MAIN)  PAGE  816 


USER'S  OWN  PAGf  NO.  3 


thrusting  mode 
DTCb  to  burn 

(EBANK=  E2DPS) 

PRIOR  TO  LAST  PASS  - 
TC  TO  ENdOfUOB 

LAST  PASS  - 
DTCB  TO  LOCATION 

RETBURN  (EBANKp 
EMPllUOB)  IN  MISSION 
CONTROL  program 

NONE 


2BCADR  OF  BURN 
(EBANKs  E2DPS)  MUST 
BE  IN  AVGEXIT.  OTHeR 
INITIALIZATION  DONE  IN 

N PRE- 


IGNITION  MODE. 

PIPTIME 

RN 

VN 

AXISD 

/ACF/ 


SAME 


ROOTPSRS 

FINDCDUD 

THROTCON 
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0136  22*2000  BANK  22 

0137  REF  2 LAST  32  EA  EBANK=  E2DPS 

R0139  initialization  of  second  dps  guidance  - preburn 

ROl AO  »»«»*««**»»»(«»#*»«»*»»*«»»»*»»« »»**»»#««**«»»*»»«»«**»«#«#»*»««»»»***»#* 

OlAl  REF  1 22*2000  PREBURN  s INIT2DPS 

01A2  REF  1 22,2000  0 3^73  0 INIT2DPS  TC  PRETINIT  INITIALIZES  INTERPRETER 


R01A3  clear  orbital  INTEGRATION  VARIABLES  FROM  ReGISteRS  IN  COMMON  WITH  2DPS 


OlAA 

REF 

82 

LAST 

792 

22,2001 

0 6103 

0 

TC 

INTPRET 

01A5 

22,2002 

77  ^A5 

1 

DLOAD 

01A6 

REF 

8 

LAST 

723 

22,2003 

D2yA7 

0 

TtT 

EXTRAPOLATED  TIME  FROM  ORBITAL  INTEGRATN 

01A7 

REF 

8 

LA^T 

810 

22,200A 

35321 

1 

STCALL 

PIPTIME 

TIME  REGISTER  OF  PIPASR 

01A8 

REF 

3 

LAST 

685 

22,2003 

603A7 

1 

vpatcher 

transfers  RIGNTION*  VIGNTION  TO  RN*  VN* 

01A9 

22,2006 

mib 

1 

exit 

AND  duplicates  FUNCTIONS  OF  NOR'lLIZE 

0150 

REF 

75 

LAST 

800 

22,2007 

0 AlA7 

1 

TC 

PHASCHNG 

prevents  REREADING  ORBITAL  INTEGRATION 

0151 

22*2010 

0AO22 

0 *902 

OCT 

OAO22 

variables  after  WRITING  OVER  THfM 

R0152 

COMMON  1 

REGISTERS 

are  cleared 

0153 

REF 

83 

LAST 

817 

22*2011 

0 6103 

0 

TC 

INTPRET 

015A 

DLOAD 

22*2012 

77 ' A5 

1 

0155 

REF 

1 

22*2013 

05»A7 

1 

IGNALGL 

0156 

REF 

19 

LAST 

773 

22*201A 

25O73 

1 

STOVL 

AVGEXIT 

SET  UP  RETURN  AnDRESS  IN  AVGEXIT 

0157 

REF 

1 

22*2013 

05362 

0 

ZEROPOS 

0158 

REF 

1 

22*2018 

02213 

0 

STORE 

QDOTMl 

DERIVATIVE  OF  G FOR  USE  BY  IGNITNI 

0159 

REF 

2 

LAST 

33 

22*2017 

16171 

1 

STODL 

UNAFC/2 

0160 

REF 

2 

LAST 

817 

22*2020 

05362 

0 

ZEROPOS 

0161 

REF 

2 

LAST 

32 

22*2021 

02055 

0 

STORE 

TTF/aTMP 

ZERO  AS  IF  coming  FrOM  PREVIOUS  PHASE 

0162 

22*2022 

77^76 

1 

EXIT 

0163 

REF 

3 

LAST 

817 

22*2023 

3 3561 

0 

CA 

ZEROPOS 

016A 

REF 

2 

LAST 

32 

22*202A 

55*A02 

1 

TS 

FLPASSO 

SHOWS  THIS  IS  Initial  pass  this  phase 

0165 

REF 

1 

22*2025 

0 3205 

0 

TC 

XTRTPIP 

SETS  TPIP  extrapolated 

0166 

REF 

A7 

LAST 

809 

22*2026 

3 7^35 

1 

CA 

POSMAX 

0167 

REF 

2 

LAST 

33 

22*2027 

55*56A 

0 

TS 

/AFC/ 

FORCES  INITIALIZATION  OF  COUNTFC 

0168 

REF 

3 

LAST 

817 

22*2030 

55*365 

1 

TS 

/AFC/  ♦! 

ONLY  REASON!  TO  ASSURE  GOOD  PARITY 

0169 

R£F 

2 

last 

32 

22*2031 

55*A0A 

1 

TS 

countfct 

ONLY  REASON;  TO  ASSjRE  GOOD  pARiTY 

0170 

REF 

20 

last 

817 

22*2032 

0 1072 

0 

TC 

AVGEXIT 

RETURNS  TO  APPROPRIATE  LOCATION  IN  ZDPS 
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P0171 

R0172  SECOND  DPS  ELITE  SEQUENCE  TA3-E 

R0173  »innnnnnnnnnnnnnnnnn*  *»»»*»#*»»*)*»*»*«***«»»«)*»**»»*«)*»  ##«*»##**#»*»»*»#* 


R017A  INDIRECT  ADDRESSES 


0175 

REF  1 

22»20A1 

burn 

? 

QUADOX 

0176 

0001 

brttfnu 

X. 

1 

0177 

0002 

PARE 

s 

2 

0178 

0003 

TBRL 

X 

3 

0179 

OOOA 

TTF/ACR 

s 

A 

0180 

0005 

BRXEND 

t 

5 

0181  rEf  1 

0182  REF  1 

0183 

018A  REF  1 

0185 

0186  REF  1 


22*2033  1 2^:10 
22*203A  1 2172 
22*2035  OOOOO 
22*2036  02113 
22*2037  7766A 
22*20AO  I 26A5 


1 . I 3NALG 
0 
1 
0 
0 
0 


TCF  TTFINCR 

TCF  ADTTFNU 

OCT  OOOOO 

ADRES  TBRIGAL 

OEC  -1,5  E 2 B 

TCF  EXIGEND 


AS  IF  COMING  FROM  PREVIOUS  PHASE 


-15  -1.5  SECONDS,  TTF  UNITS*  COMPARES  TTF/A 


0187 

REF 

2 LAST  8l8 

22*20Al 

1 2210 

1 QUADOX 

TCF 

0188 

REf 

1 

22,20A2 

1 2207 

1 

TCF 

0189 

22,20A3 

OOOOO 

1 

DCT 

TTFINCR 

RETTTfNU  As  If  continuing  PREBuRN  phase 

OOOOO 


0190  REF  1 

0191 

0192  REF  I 


22*20AA  02117  1 
22,20A5  73A65  1 
22*20A6  1 2(21  0 


ADRES  tbrquad 

DEC  -0A5  E 2 B -15  -0A5  SECONDS*  TtF  UNITS*  COMPARES  TTF/A 

TCF  EXQDLIN 


0193  REF  3 LAST  818 

019A  REf  2 last  818 

0195 

0196  REF  2 LAST  818 

0197 

0198  REF  2 LAST  818 

0199  REF  1 


22*20A7 

1 2210 

1 

22*2050 

1 2I72 

0 

22*2051 

00027 

1 

22*2052 

02117 

1 

22*2053 

77551 

0 

22*205A 

1 ZUl 

0 

22*2055 

1 3iA0 

0 

QJADOF 

TCF 

TTFINCR 

TCF 

ADTTfNU 

DCT 

00027 

ADRES 

TBRQUAD 

DEC 

-3.0  E i 

TCF 

EXQDLIN 

lingof 

TCF 

LSETEVN 

B -15  -3.0  SECONDS, 


UNITS*  compares  TTF/A 


0200 

REF 

2 

LAST 

818 

22*2056 

1 2^07 
00027 

1 

0201 

22*2057 

1 

0202 

REF 

1 

22*2060 

02123 

0 

0203 

22*2061 

77TA6 

1 

020A 

REF 

3 

LAST 

818 

22*2062 

1 2^21 

0 

0205 

0206 

REF 

B Fc 

1 

3 

last 

818 

22*2063 

22*206A 

1 3I55 

1 2172 

1 

0 

0207 

22*2065 

00056 

1 

0208 

REF 

2 

LAST 

818 

22*2066 

02123 

0 

0209 

22*2067 

77 /A6 

1 

0210 

REF 

A 

LAST 

818 

22*2070 

1 2^21 

0 

0211 

REF 

A 

LAST 

818 

22*2071 

1 2^10 

1 

0212 

REF 

A 

LAST 

818 

22*2072 

1 2172 

0 

TCF 

OCT 

ADRES 

DEC 

TCF 

LINGIF  TCF 
TCF 
OCT 
ADRES 

DEC 

TCF 

0JAD2F  TCF 
TCF 


RETTTFNU 

00027 

TBRLING 

-.50  E 2 B -15 
EXQDLIN 

LSETODD 

AdTTfNU 

00056 

TBRLING 

-.50  E 2 B -15 
EXQDLIN 

TTFINCR 

ADTTFNU 


-.50  SECONDS,  TTF  UNITS*  COMPARES  TTF/A 


-.50  SECONDS,  TtF  UNITS,  COMPARES  TTF/A 
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0213 

22,2073 

D0U65 

1 

OCT 

00065 

021A 

REF 

3 

LAST 

818 

22t207A 

02117 

1 

ADRES 

TBRqUAD 

0215 

0216 

REF 

LAST 

22,207s 

22,2076 

77S51 

1 2^21 

0 

DEC 

TCF 

-3.0  E 2 
EXQDLIN 

B -15 

5 

818 

0 

0217 

REF 

2 

LAST 

818 

22*2077 

1 3IAO 

0 

LING2F 

TCF 

LSETEVN 

0218 

REF 

3 

LAST 

818 

22*2100 

1 2207 

1 

TCF 

RETTTFNU 

0219 

REF 

LAST 

22*2101 

00065 

02123 

1 

OCT 

ADRES 

00065 

TBRLING 

0220 

3 

818 

22*2102 

0 

0221 

22*2103 

77/A6 

1 

5EC 

-.50  E 2 

B -15 

0222 

REF 

6 

LAST 

819 

22*210A 

1 2(21 

0 

TCF 

EXQDLIN 

0223 

REF 

2 

LAST 

818 

22*210S 

1 3I55 

1 

LING3F 

TCF 

LSETODD 

022A 

0225 

REf 

5 

last 

818 

22*2106 

1 2172 
OOllA 

0 

TCF 

OCT 

adttfnu 

22*2107 

0 

OOllA 

0226 

REF 

A 

LAST 

819 

22*2110 

02123 

0 

ADRES 

TBRLING 

0227 

0228 

REF 

1 

22*2111 

22*2112 

77^63 

1 2^33 

0 

0 

DEC 

TCF 

-.25  E 2 
EXFINAL 

B -15 

-3.0  SECONDS,  TTF  UNITS,  COMPARES  TTF/A 


-.50  SECONDS,  TtF  UNITS,  COMPARES  TTF/A 


-.25  SECONDS,  TTF  UNITS*  COMPARES  TTF/A 


R0229  *in*#«)nnt##)nnnnn»##<nnt(nt»##<*A 

R0230  SECOND  DPS  ROAD  MAPS  (BRANCH  TABLES) 

R0231 

R0232  INDIRECT  ADDRESSES 


0233 

023A 

0235 

0236 


0237 

REF 

1 

22*2113 

0238 

REF 

1 

22*211A 

0239 

REF 

1 

22*2113 

02A0 

REF 

1 

22*2116 

02A1 

REF 

1 

22*2117 

02A2 

REf 

2 

LAST 

819 

22*2120 

U2A3 

Rtp 

1 

22*2121 

02AA 

REF 

7 

LAST 

819 

22*2122 

02A5 

REF 

2 

LAST 

819 

22*2123 

02A6 

REf 

1 

22*212A 

02A7 

REF 

2 

LAST 

819 

22*2125 

02A8 

REF 

8 

LAST 

819 

22*2126 

0000 

BRIGNl 

0 

0001 

BRLING 

s 

1 

0002 

BRIGN2 

2 

0003 

BRXMID 

3 

1 

2^50 

0 

TBRIGAL 

TCF 

IGNITNl 

1 

2A13 

1 

TCF 

ttf/acl 

1 

3OAI 

0 

TCF 

IGNITN2 

1 

2615 

0 

TCF 

EXIGMID 

1 

2l6A 

1 

TBRQUAD 

TCF 

RETIGNI 

1 

2A13 

1 

TCF 

ttf/acl 

1 

2571 

1 

TCF 

RETIGN2 

1 

2^21 

0 

TCF 

EXQDLIN 

1 

2l6A 

1 

TBRLING 

TCF 

RETIGNI 

1 

3171 

1 

TCF 

linguid 

1 

2571 

1 

TCF 

RETIGN2 

1 

2^21 

0 

TCF 

EXQDLIN 
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P02A9 

R0250  initialization  FOR  EACH  PASS 
R0251  )nnnnnnn*««»)(*» 

R0252  NTLZPASS  SETS  INDICES,  FILLS  TPIPDLD,  TPIP,  R,  V EVERY  PASS;  BRANCHES  TO  IgMTNI,  ADTTFnU  WHEN  APPROPRIATE. 

025A  22,2127  0 0006  1 NTLZPASS  EXTEND 

0255  REF  2 LAST  32  22,213°  23'‘'06  1 3XCH  RETNTLZ 


0256  rEF  2 last  817  22,213l  0 3^73  0 TC  PRETinIT  INITIALIZES  INTERPRETER 

R0257  SET  INDICES 


0258 

22,2132 

0 0006 

1 

EXTEND 

0259 

REF 

21 

LAST 

817 

22,2133 

5 1072 

0 

INDEX 

AVGEXIT 

0260 

REF 

1 

LAST 

22,213A 

3 0003 

1 

DCA 

PARL 

0261 

REF 

2 

32 

22,2135 

53' ‘♦01 

1 

DXCH 

NDX2DPS 

0262 

22»2136 

0 0O06 

1 

EXTEND 

0263 

ref 

3 

LAST 

820 

22,2137 

A l‘*01 

1 

DCS 

NdX2DPS 

026A 

REF 

30 

LAST 

786 

22,21A0 

50  HO 

1 

INDEX 

FIXLOC 

0265 

REF 

7 

LAST 

737 

22,21A1 

52  Oa7 

0 

DXCH 

XI 

LOADS  ADRESES  Oe  PARMTR  AND  BRANCH  TABLS 


LOADS  BOTH  INTRP  NDx  REGS,  NEEDED  OR  NOI 


R0266 

FILL 

TPIPOLD 

AND 

TPIP 

0267 

0268 

REF 

2 LAST 

32 

22,21A2 

22,21A3 

0 0006  1 

3 lA^fT  1 

EXTEND 

DCA  TPIP 

0269 

REF 

2 

LAST 

32 

22,21AA 

0270 

REF 

76 

LAST 

817 

22.21A5 

0271 

22,21A6 

0272 

22,21A7 

0273 

REF 

9 

LAST 

817 

22,215° 

027A 

REF 

3 

LAST 

820 

22,2151 

53'A51  1 DXCH  TPIPOLD 

0 aAA7  1 TC  PHASCHNG 

0AO22  0 *402  DCT  0A022 

0 0006  1 EXTEND 

3 1A21  0 DCA  PIPTIME 

53'‘'A7  0 DXCH  TPIP 


PROTECT  TPIPOLD  AND 

PREVENT  returning  TO  pREvIOuS  PROGRAM 


R0275  FILL  R AND  V 

0276  REF  8A  LAST  8l7  22,2152  0 6i03  0 TC  INTPRET 


0277 

22 

,2153 

0278 

0279 

REF 

12 

LAST 

LAST 

789 

22 

,215A 

,2155 

REF 

2 

32 

22 

0280 

0281 

REF 

12 

LAST 

789 

22 

22 

,2155 

,215T 

0282 

0283 

REF 

2 

LAST 

32 

22 

22 

,216° 

,2161 

77^5  1 VLOAD 

OlOll  0 RN 

26061  1 STOVL  R 

01017  0 VN 

77 ^A2  0 VSR2 

02°71  0 STORE  V 

nnt  1 EXIT 


RN  TO  R WITHOUT  RESCALING 
VN  TO  V WITH  scaling  ADJUSTMENT 


R028A  ISNITNI  AND  ADTTFNU  BRANCH  DECISIONS 

0285  REF  2 LAST  32  22,2162  51*^01  0 INDEX  NDXBR 

0286  REF  1 22'2163  1 OOOO  0 TCF  BRlGNl  TO  iGNITNl  WHEN  APPROPRIATE 


0287  REF  77  LAST  820  22,216A  0 AiA7  1 RETIGNl  TC  PHASCHNG  RETURN  HERE  WHETHER  OR  NOT  DO  IGNITNl. 

0288  22,2165  0AO22  0 *402  DCT  0a022  PROTECT  TTF/aTMP  AS  USED  BY  IGNITNl  FROM 


'♦88954A  YJL  SYSTEM  EOR  AqCj  NEW  PROCjRAM  SMePATIN  EYLES 


DEC  13,  1966  (MAIN)  PAGE  82X 
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A0289  WIPEOUT  BY  ADTTFNU  AND  TTFINCR,  ALSO 

A0290  PROTECT  RTEMP,  VTEMP  FROM  RS,  Vs  (SHARE* 


0291 

0292 

0293 
029A 


R0295 

0296 

0297 

0298 

0299 

0300 

0301 

0302 

0303 

0304 

0305 

0306 

0307 

0308 

0309 


REF 

3 

LAST 

LAST 

last 

817 

22*2166 

ll'‘*02 

1 2211 
51*072 

1 0001 

1 

CCS 

TCF 

INDEX 

TCF 

FLPASSO 

REF 

REF 

REF 

5 

22 

1 

818 

820 

22.2167 

22.2170 

22.2171 

0 

0 

1 

TTF I NCR 
AVGEXIT 
BRTTFNU 

ADD 

TTFY4NU 

TO  TTF/4  from  last  ?Ai>S 

22.2172 

0 0006 

1 

ADTTFNU 

Extend 

REF 

2 

LAST 

32 

22.2173 

3 1453 

1 

DCA 

TTF/4 

REF 

3 

LAST 

817 

22.217A 

53*455 

0 

DXCH 

TTF/4TMP 

REF 

4 

LAST 

-820 

22.2175 

51*400 

1 

INDEX 

NDX2DPS 

REF 

1 

22*2176 

3 3422 

0 

CA 

ttf/<.nu 

ref 

4 

LAST 

821 

22.2177 

27*‘*54 

1 

Ads 

TTF/4TMP 

REF 

78 

LAST 

820 

22.2200 

0 4l47 

1 

TC 

PHASCHNG 

22.2201 

D4O22 

0 

♦ 402 

OCT 

O4O22 

22.2202 

0 0006 

1 

EXTEND 

REF 

5 

LAST 

821 

22.2203 

3 1455 

1 

DCA 

TTF/4TMP 

REF 

3 

LAST 

821 

22.2204 

53*^53 

0 

DXCH 

TTF/4 

REF 

79 

LAST 

821 

22*2205 

0 4147 

1 

TC 

PHASCHNG 

22*2206 

04022 

0 

♦ 402 

DCT 

04022 

REF 

3 

LAST 

820 

22.2207 

0 1406 

1 

RETTTFNU 

TC 

RETNTLZ 

ON  other  than  First  pass  in  any  phase. 
TO  adttfnu  when  appropriate 


PROTECT  TTF/4 


RENEWED  TTF/4 

PROTECT  TTF/4TMP  FROM  WIPEOUT  BY  TTFINCR 


R0311  increment  TTF/4 

R0312  fnnnnnnn*  *»«»**«««#«*»»»»»»#*»»»»»»#»#»*  *#)nnnnnnnt 


0313 

REF 

1 

22.221° 

0 2127 

1 

TTFINCR 

TC 

NTLZPASS 

0314 

22.2211 

0 0006 

1 

♦ 1 

EXTEND 

0315 

REF 

3 

LAST 

820 

22.2212 

4 1451 

1 

DCS 

TPIPOLD 

0316 

REF 

288 

LAST 

810 

22.2213 

52  145 

0 

DXCH 

MPAC 

0317 

22.22IA 

0 0006 

1 

EXTEND 

0318 

REF 

4 

LAST 

820 

22.2215 

3 1447 

1 

DCA 

TPIP 

0319 

REF 

289 

LAST 

821 

22.2216 

20  145 

0 

DAS 

MPAC 

0320 

REF 

1 

22.221* 

3 7*42 

1 

CA 

TSCALE 

0321 

REF 

1 

22.222O 

0 7367 

1 

TC 

DMPNSUB 

(TPIP-TPIPOLD)/<f  TO  MPAC.  TTF  UNITS 

O322 

22*222l 

0 0006 

1 

EXTEND 

0323 

ref 

4 

LAST 

821 

22.2222 

3 IA53 

1 

DCA 

TTF/4 

0324 

REF 

290 

LAST 

821 

22.2223 

2D  145 

0 

DAS 

MPAC 

YIELDS  incremented  TTF/4  IN  MPAC 

0325 

REF 

291 

LAST 

821 

22.222A 

52  145 

0 

DXCH 

MPAC 

0326 

REF 

6 

LAST 

821 

22.2225 

53*‘*55 

0 

DXCH 

TTF/4TMP 

0327 

REF 

80 

LAST 

821 

22.2226 

0 4I47 

1 

TC 

PHASCHNG 

PROTECT  TTF/4 

0328 

22.2227 

04022 

0 

♦ 402 

OCT 

O4O22 

0329 

22.223° 

0 0006 

1 

EXTEND 
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0330  rEF  7 last  821  22»223l  3 l‘*55  1 DCA  TTF/ATMP 

0331  REF  5 LAST  821  22*2232  53'A53  0 DXCH  TTF/^t  INCREMENTED  TTF/A 


r0332  »)nnnnt*#*<nn(*»(nnnnn*»»nnnn»*''iKKnm*'nnnnnnnnnnnn'»»  »«*»**»**»»'**»''»*»»*''»» 
R0333  SET  UP  STATE  IN  LOCAL,  PLANE,  SPHERICAL  COORDINATES 

R033A  »»'nnnnnnnt,n*»»*»»*)nn' »»*»***»**#»# 


0335 

0336 

0337 

0338 


REF 

85 

LAST 

820 

22,2233 

22,223A 

REF 

REF 

3 

LAST 

LAST 

820 

22,2235 

2 

32 

22 ,2236 

0 6l03  0 STUP2DPS  TC  INTPRET 

53P75  0 YLOAD  UNIT 

02U61  1 R 

26U12  0 STOVL  CLT/2 


DEFINITION  OF  MATRIX  CLT/2 


0339 

03A0 

03A1 

03A2 

0343 

0344 

0345 

0346 

0347 

0348 

0349 

0350 

0351 

0352 

0353 

0354 

0355 

0356 

0357 

0358 

0359 

0360 


REF  4 LAST  309 

REF  3 LAST  822 
REF  4 LAST  822 
REF  5 LAST  822 

REF  6 LAST  822 
REF  7 last  822 
REF  3 LAST  820 


REF  8 LAST  822 
REF  2 last  32 
REF  4 LAST  822 

REF  5 LAST  822 
REF  2 LAST  33 
REF  5 LAST  822 

REF  4 LAST  822 
ref  6 LAST  822 

REF  2 LAST  33 


22 

22 

22 

22 

22 

22 

22 

22 

22 

22 

22 

22 

22 

22 

22 

22 

22 

22 

22 

22 

22 

22 


2237 

2240 

2241 

2242 

2243 
224A 

2245 

2246 

2247 

2250 

2251 

2252 

2253 
225A 

2255 

2256 

2257 
2260 

2261 

2262 
2263 
226A 


02357  1 
53‘'35  0 
02012  0 
26O20  1 
02012  0 
76^35  1 
O2O2O  1 
26026  1 
02071  0 

76521  0 


CPT6/2 
\/XV  UNIT 

CLT/2 

STOVL  CLT/2  *6 
CLT/2 

VXV  VSLl 

CLT/2  *6 

STOVL  CLT/2  *14 

V 

MXV  VSLl 


02012  0 

26077  0 
O2O6I  1 
72‘'4l  0 
02357  1 
26105  1 
02061  1 
50235  0 
02071  0 
02357  1 
77^52  1 
26107  0 


STOVL 

DOT 

STOVL 

VXV 

SLl 

STOVL 


CLT/2  - 4 . 

VL  VL  = 2 CLT/2  V 

R 

SLl 

CPT6/2  

RP2  RP2  = 2 R.CPT6/2 

R 

DOT 

V 

CPT6/2 

MAP2  MAP2  = 2 R*V.CPT6/2 


0361 

REF 

6 

LAST 

822 

22,2265 

02061  1 

R 

0362 

22 ,2266 

77546  0 

ABVAL 

• 

0363 

REF 

2 

LAST 

32 

22,2267 

16067  1 

5T0DL 

RLENGTH 

RLENGTH  s ABVAL(R) 

0364 

REF 

3 

LAST 

822 

22,2270 

02105  1 

RP2 

0365 

22,2271 

65316  0 

DSQ 

PDDL 

0366 

REF 

3 

LAST 

822 

22,2272 

02067  1 

RLENGTH 

0367 

22,2273 

45316  1 

DSQ 

DSU 

0368 

22 ,227A 

77^66  0 

SORT 

2 2 

0369 

REF 

2 

LAST 

33 

22,2275 

16111  1 

STODL 

RC 

RC  = SORT (RLENGTH  -RP2  ) 

0370 

REF 

4 

LAST 

822 

22,2276 

02067  1 

RLENGTH 

- 

0371 

REF 

3 

LAST 

33 

22,2277 

16113  0 

STODL 

RS 

definition  of  Rs,  FIRST  COMPONENT 

0372 

REF 

3 

LAST 

822 

22,2300 

02111  1 

RC 

0373 

22,2301 

77571  1 

DDV 

0374 

REF 

5 

LAST 

822 

22,2302 

02O67  1 

RLENGTH 

0375 

REF 

2 

LAST 

33 

22,2303 

16127  1 

STODL 

CRS2 

COSINE  (RS2)  = rC/RLENGTH 

E4 
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0376 

REF 

4 

LAST 

822 

22.2304 

02105 

1 

0377 

22.2305 

77671 

1 

0378 

REF 

6 

LAST 

822 

22.2306 

02067 

1 

0379 

REF 

2 

LAST 

33 

22.2307 

I6l31 

0 

0380 

REF 

5 

LAST 

823 

22.2310 

02105 

1 

0381 

22.2311 

77671 

1 

0382 

REF 

4 

LAST 

822 

22.2312 

02111 

1 

0383 

REF 

2 

LAST 

33 

22.2313 

I6l33 

1 

0384 

REF 

3 

LAST 

823 

22.23l‘* 

02131 

0 

0385 

0386 

0387 

0388 

0389 

0390 

0391 

0392 

0393 

0394 

0395 

0396 

0397 

0398 

0399 

0400 

0401 

0402 

0403 

0404 

0405 

0406 

0407 

0408 

0409 

0410 

0411 

0412 

0413 

0414 

0415 

0416 

0417 

0418 

0419 

0420 

0421 

0422 

0423 

0424 

0425 


REF 

REF 

REF 

REF 

REF 


REF 

REF 

REF 

REF 


REF 

REF 


REF 

REF 

REF 


REF 

REF 

REF 

REF 

REF 


REF 


4 

3 

7 

4 

LAST 

LAST 

LAST 

LAST 

822 

822 

823 

823 

22.2320 

22.2321 

22.2322 

22.2323 
22.232'* 

16117 

02103 

55271 

02067 

02101 

1 

1 

0 

1 

0 

22 .2325 

65271 

0 

5 

LAST 

823 

22.2326 

02111 

1 

5 

LAST 

823 

22.2327 

02077 

0 

22.2330 

77666 

1 

3 

LAST 

33 

22.2331 

16121 

1 

4 

LAST 

823 

22.2332 

02123 

0 

22.2333 

77a6 

1 

22.2334 

41205 

0 

4 

LAST 

823 

22.2335 

02131 

0 

3 

LAST 

822 

22.2336 

02127 

1 

22.2337 

41325 

0 

5 

LAST 

823 

22.2340 

02125 

0 

6 

LAST 

823 

22.2341 

02121 

1 

22.2342 

72471 

0 

8 

LAST 

823 

22.2343 

02067 

1 

22.2344 

57415 

0 

22.2345 

41325 

0 

7 

LAST 

823 

22.2346 

02123 

0 

8 

LAST 

823 

22.2347 

02121 

1 

22.2350 

77671 

1 

9 

LAST 

823 

22.2351 

02067 

1 

22.2352 

41325 

0 

3 

LAST 

823 

22.2353 

O2I33 

1 

9 

LAST 

823 

22.2354 

02125 

0 

22.2355 

77605 

1 

10 

LAST 

823 

22.2356 

02123 

0 

22.2357 

72‘*25 

1 

22.2360 

63525 

0 

10 

LAST 

823 

22.2361 

02067 

1 

22.2362 

77665 

1 

1 

22.2363 

21143 

1 

22.2364 

63525 

0 

11 

LAST 

823 

22.2365 

02125 

0 

231^ 

231^' 

2317 


67R42 

52‘*05 


05600  1 


RP2 

DDV 

RLENGTH 

STOOL  5RS2  SINE  (RS2)  s RPp/RLENGTH 

RP2 

DDV 

RC 

STOOL  TRS2  TANGENT  (RS2)  » RP2/RC 

SRS2 

SRI  ARCSIN 

DMP  SL3 

PI/4 


STOOL 

RS  *4 

VL  +4 

DEFINITION 

OF 

RS. 

THIRD  COMPONENT 

DDV 

PDDL 

RLENGTH 

VL  *2 

THIS 

PUSH 

DOWN 

IS 

For 

3RD  COMP  oF 

VS 

DDV 

PDDL 

THIS 

PUSH 

DOWN 

IS 

For 

2ND  COMP  OF 

VS 

RC 

VL 

YDEF  definition  OF  SPHERICAL  VELOCITY  VECTOR 

STOOL  VS 

VS  *2 

OSQ 

OMP  DMP 
SRS2 
CRS2 

POOL  DMP 


VS  *4 
VS 

DDV  SLl 

RLENGTH 
DAD  DCOMP 

PDDL  DMP  THIS  PUSH  DOWN  IS  FOR  3RD  COMP  OF  ASPRT. 

VS  *2 
VS 

DDV 

RLENGTH 
PDDL  DMP 
TRS2 

VS  *4 

DMP 

VS  *2 

DSU  SLl 

PDDL  DSQ  THIS  PUSH  DOWN  iS  FOR  2ND  COMP  OF  ASPRT. 

RLENGTH 

3DDV 

MUEARTH 
PDDL  DSO 

VS  *4 


A88954A  yJL  SySTEM  FOR  AqCs  NEw  pROG^^M  S^EpATlN  BY  EyUES 


L SECOND  DPS  GUIDANCE 


0426 

22 

0427 

REF 

11 

LAST 

823 

22 

0428 

22 

0429 

REF 

4 

LAST 

823 

22 

0430 

22 

0431 

REF 

12 

LAST 

823 

22 

0432 

22 

0433 

REF 

12 

LAST 

824 

22 

0434 

22 

0435 

22 

0436 

REF 

2 

LAST 

33 

22 

0437 

22 

0438 

REF 

244 

LAST 

810 

22 

0439 

REF 

D ff  C 

5 

LAST 

1 ACT 

823 

22 

O44O 

Ktr 

6 

LA5T 

824 

22 

0441 

REf 

13 

last 

824 

22 

0442 

REF 

14 

LAST 

824 

22 

0443 

REF 

81 

LAST 

821 

22 

0444 

22 

0445 

0446 

ref 

REF 

3 

1 

LAST 

820 

22 

22 

*2366  77905  1 5MP 

.2367  02067  1 

.2370  63P25  0 PDDL 

.2371  02127  1 

.2372  63S25  0 PDDL 

.2373  02123  0 

.237'»  A1205  0 DMP 

.2373  02067  1 

.2376  A5<=15  0 DAD 

.2377  77966  1 YDEF 

.2aoo  02135  1 store 

.2A0l  77^76  1 EXIT 

*2a02  3 7761  0 CA 

.2a03  55*P1A  1 T5 

*240A  55'Pl5  0 TS 

.2405  55*922  1 TS 

.2406  55*923  0 TS 

.2407  0 4I47  1 TC 

.2410  O4O22  0 +402  DCT 

.2411  SP'^Ol  0 index 

.2412  1 0001  1 TCF 


DEC  1?.  I966  (MAIN)  pA(3E  82A 


USER*S  own  PAGf  no.  11  E4 

RLENgTH 

THIS  MONSTER  ASPRT  REPRESENTS 

DSQ 

CRS2 

DSO 

VS  >2 

DMP 

RLENGTH 

DSU 

INCIDENTAI  ACCELERATIONS!  DUE 

TO  GRAVITY.  CORIOLIS  FORCES. 

AND  SO  FORTH. 

ASPRT 

DEFINITION  OF  AsPRT 

ZERO 

RS  *2 

RS  *3 

VS  *2 

VS  *3 
PHASCHNG 

SECOND  components 

OF  RS  AND  VS  ARE 

ZEROED  HERE  TO  PREVENT 

overflow  trouble  In 

THE  ACS  EQUATION. 

TIME  ONLY? 

O4O22 

NdXBR 

BRLING 

POSSIBLE  BRANCH  TO  LINEAR  GUIDANCE 
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P0AA7 

ROAA8  irF/A  computation 

R0AA9  #)()»»»»##»#**#»««###«#»#»««»''»»#»»*««»»»**»#«**»»#»»««#**«*#)»*»#»«##«*### 


0A50 

22t24l3 

0 0006 

1 

TTF/4CL 

EXTEND 

OA51 

REF 

5 

LAST 

821 

22,241^ 

5 1400 

1 

INDEX 

NDX2DPS 

0452 

REF 

1 

22.2415 

3 3‘*46 

1 

OCA 

JDS2 

0453 

REF 

2 

LAST 

32 

22,2416 

53'‘'42 

0 

DXCH 

TABLTTF  ,6 

A(3)  = JDS2  TO  tABLTTF 

0454 

22,2417 

0 0006 

1 

extend 

5 1400 

INDEX 

0455 

RcF 

6 

LAST 

825 

22 ,242W 

1 

NDX2DPS 

0456 

REF 

1 

22,2421 

3 3430 

0 

DCA 

ADS  *4 

0457 

22,2422 

20  Ool 

1 

DDOUBL 

0458 

REF 

292 

LAST 

821 

22,2423 

52  145 

0 

DXCH 

MPAC 

0459 

REF 

1 

22,2424 

3 3576 

0 

CA 

SP3/4 

0460 

REF 

6 

LAST 

797 

22,2425 

0 7351 

1 

TC 

SHORTMP 

LEAVING  A(2)  In  MPAC 

D CC 

825 

DXCH 

046 1 

Kcr 

293 

L A o T 

22 ,2426 

52  *45 

0 

MPAC 

0462 

REF 

3 

LAST 

825 

22,2427 

53*440 

1 

DXCH 

TABLTTF  +4 

A(2)  = (6  ADS2)/4  TO  TABLTTF 

0463 

REF 

29 

LAST 

808 

22,2430 

3 7^46 

0 

CA 

BIT8 

0464 

REF 

4 

LAST 

825 

22,2431 

55'‘*43 

1 

TS 

TABLTTF  *10 

fractional  precision  for  ttf 

TO 

TABLE 

0465 

22,2432 

0 0006 

1 

EXTEND 

0466 

REF 

15 

LAST 

824 

22,2433 

3 1525 

1 

DCA 

VS  *4 

0467 

REF 

294 

LAST 

825 

22,2434 

52  145 

0 

DXCH 

MPAC 

0468 

REF 

1 

22,2435 

3 3572 

1 

CA 

SP3/8 

0469 

REF 

7 

LAST 

825 

22,2436 

0 7351 

1 

TC 

SHORTMP 

YIELDS  6/16  VS2  IN  MPAC 

0470 

22,2437 

0 0006 

1 

EXTEND 

0471 

REF 

7 

LAST 

825 

22,2440 

5 1400 

1 

INDEX 

NDX2DPS 

0472 

REF 

1 

22,2441 

3 3''44 

0 

DCA 

VDS  *4 

0473 

22,2442 

20  Ool 

1 

DDOUBL 

0474 

REF 

295 

LAST 

825 

22,2443 

52  145 

0 

DXCH 

MPAC 

0475 

REF 

5 

LAST 

825 

22,2444 

53*436 

0 

DXCH 

TABLTTF  *2 

STORE  6/16  VS2  IN  TABLTTF 

0476 

REF 

1 

22,2445 

3 3573 

0 

CA 

SP9/16 

0477 

REF 

8 

LAST 

825 

22,2446 

0 7351 

1 

TC 

SHORTMP 

YIELDS  18/16  vDS2  IN  MPAC 

0478 

22,2447 

0 0006 

1 

EXTEND 

0479 

REF 

7 

LAST 

824 

22,2450 

4 1517 

1 

DCS 

RS  *4 

0480 

REF 

296 

LAST 

825 

22,2451 

52  145 

0 

DXCH 

MPAC 

-RS2  TO  MPAC,  FETCHING  18/16 

VDS2 

0481 

REF 

6 

LAST 

825 

22,2452 

21 '436 

0 

DAS 

TABLTTF  *2 

A(l)  = (6  VS2*lfi  VDfi2)/l6 

0482 

22,2453 

0 0006 

1 

EXTEmD 

0483 

REF 

8 

LAST 

825 

22,245'' 

5 l'*00 

1 

INDEX 

NDX20PS 

0484 

REF 

1 

22,2455 

3 3''36 

0 

DCA 

RDS  *4 

0485 

REF 

297 

LAST 

825 

22,2456 

20  145 

0 

DAS 

MPAC 

YIELDS  -RS2*RDS?  IN  MPAC 

0486 

REF 

2 

LAST 

825 

22,2457 

3 3572 

1 

CA 

SP3/8 

0487 

REF 

9 

LAST 

825 

22,2460 

0 7351 

1 

TC 

SHORTMP 

0488 

22,2461 

0 0006 

1 

EXTEND 

0489 

REF 

298 

LAST 

825 

22,2462 

3 0145 

1 

DCA 

MPAC 

0490 

REF 

7 

LAST 

825 

22,2463 

53*434 

1 

DXCH 

TABLTTF 

A(0)  5-24 (RS2-RDS2) /64 

0491 

22*2464 

0 0O04 

0 

INHINT 

SET  INHIBITED  LOOP  TO  STORE 

FOR 

DWNLINK 

0492 

REF 

5 

LAST 

775 

22,2465 

3 7'56 

1 

CAF 

ELEVEN 

INITIALIZE  iNDEy  TO  DEC  11 

0493 

REF 

69 

LAST 

775 

22,2466 

54  O70 

1 

RVSTOR 

TS 

RUPTREGl 

48895'VA  YJL  system  FOR  AGC;  NEW  PROGRAM  SMEPATIN  BY  EYLES 
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L SECOND  DPS  GUIDANCE 


USER'S  OWN  PAGE  NO.  13 


EA 


0494 

REF 

70 

LAST 

825 

22,2467 

50  070 

0 

INDEX 

RUPTREGl 

0495 

REF 

3 

LAST 

789 

22,2470 

3 1050 

0 

CA 

RNl 

04951 

REF 

71 

LAST 

826 

22,2471 

50  070 

0 

INDEX 

RUPTREGl 

04952 

REF 

13 

LAST 

820 

22,2472 

55  'OlO 

0 

TS 

RN 

store  updated  RN,  vn 

04953 

REF 

72 

LAST 

826 

22*2473 

10  O70 

1 

CCS 

RUPTREGl 

04954 

ref 

1 

22,247A 

1 2!?66 

0 

TCF 

RVSTOR 

04955 

22,2475 

0 OOO6 

1 

EXTEND 

04956 

REF 

2 

LAST 

32 

22,2476 

3 1A45 

0 

OCA 

PIPTIMET 

04957 

REF 

10 

LAST 

820 

22,2477 

53*321 

1 

OXCH 

piptime 

UPDATED  PIPTIME 

0496 

22,2500 

0 OUO6 

1 

EXTEND 

0497 

REF 

11 

LAST 

826 

22,2501 

3 1321 

0 

OCA 

PIPTIME 

0498 

REF 

6 

LAST- 

775 

22,2502 

53*341 

1 

DXCH 

STATIME 

STATE  TIME  FOR  nWNLiNK 

0499 

22,2503 

0 0003 

1 

relint 

0500 

0501 

REF 

82 

LAST 

824 

22,2504 

22*2505 

0 4147 
O4O22 

1 

0 *402 

TC 

OCT 

phaschng 

04022 

TIME  ONLY? 

R0502 

R0503  quadratic  GUIDANCE  - SPHERIGa.  ACCELERATION  AS  QUADRATIC  TIME  FUNCTION 
R050A  (*!•»»«*»■»«#«»*»«»«»**»«»«»*#*»)*)*  »»•»««■)**»»» 

A0505 


A0506 

A0507 

A0508 

A0509 

A0510 

A0511 

A0512 


ACS  equation  Is  programmed  like  this: 
- - 1/2(RS-RDS) 

TTF/A 
2/3(TTF/A) 


(VS.VDSl  - 


ACS  = 


ADS 


0513 

0514 

0515 

0516 

0517 

0518 

0519 

0520 

0521 

0522 

0523 

0524 

0525 

0526 


REF 

86 

LAST 

822 

REF 

REF 

6 

1 

LAST 

822 

REF 

8 

LAST 

825 

REF 

2 

LAST 

825 

REF 

7 

LAST 

826 

REF 

REF 

16 

2 

LAST 

LAST 

825 

825 

22*2506 

22,2507 

22.2510 

22.2511 

22.2512 

22.2513 
22,251A 

22.2515 

22.2516 

22.2517 

22.2520 

22.2521 

22.2522 

22.2523 


0 6103  0 
41345  0 
32053  0 
05575  0 

5ia5  0 
02113  0 
05^32  1 
70362  1 

02053  0 
52a5  0 
02121  1 
O5A4O  1 
70^51  0 

77553  1 


TC 

DLOAD 


PDVL 


YSRl 

PDVL 


VSU 

VAD** 


INTPRET 

dmp 

TTF/4 

2DPS2/3 

VSU# 

RS 

RDS,1 

V/SC 

TTF/4 

VAD# 

VS 

VDS.l 

V/SC 


0527 

REF 

2 

LAST 

825 

22,252A 

05‘*24  0 

ADS,1 

0528 

REF 

2 

LAST 

33 

22,2525 

02143  0 

store 

ACS 

0529 

22,2526 

77651  0 

VSU 

0530 

REF 

3 

LAST 

824 

22,2527 

02135  1 

ASPRT 

0531 

REF 

2 

last 

33 

22,2530 

16151  0 

STODL 

AFCS 

BEHOLD,  unworthy  MORTAL 


AFCS  s ACS  - AsPRT 
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L SECOND  CPS  GUIDANCE 


OS32 

REF 

6 

LAST 

823 

22.2531 

02111 

1 

0S33 

22.2532 

A1316 

0 

DSO 

OS3A 

REF 

8 

LAST 

826 

22.2533 

02053 

0 

OS35 

22 .253A 

A5325 

1 

PDDL 

0S36 

REF 

3 

LAST 

822 

22.253s 

02107 

0 

OS37 

REF 

1 

22.2536 

O5A5O 

0 

OS38 

22.2537 

77/02 

1 

SR2 

0S39 

22.25AO 

A5‘'71 

1 

DDV 

OSAO 

REF 

3 

LAST 

826 

22.25AI 

6162A 

0 

STODI 

05A1 

REF 

A 

LAST 

827 

22.25A2 

0215s 

1 

USER'S  OWN  PAGp  NO.  I'*  E^ 

RC 

DMP 

TTF/A 

DSU 

MAP2 

MADP2 


STADR  2 

AFCS  *2  AFCS  = 1/A(MAP  -MADP  ) /RC  (TTF/A) 

AFCS  .A  122 


R05A2  « It***  *«««#«  »*««***#*««*«******»)»«»«**»*#««*«  «*«<(«  *«***«**« 

ROSAS  thrust  ACCEL  POINTING  AND  MA3N1ITUUE  COMMANDS  ” DUE  TO  QUAD  OR  LINR  GUID 
ROSA A ************************************************************************ 


OSAS 


22.25A3  6S<iOS  0 AFCCALC  DMP  POOL 


COMES  HERE  FROM  LIN&UID. 


05A6 

REF 

13 

LAST 

82A 

22.25AA 

02067 

1 

U5A7 

Rtr 

5 

L A 0 T 

827 

22  .25AS 

02*53 

1 

05A8 

22.25A6 

65205 

0 

05A9 

REF 

7 

LAST 

827 

22.25A7 

O2III 

1 

0550 

REF 

6 

LAST 

827 

22.255O 

02151 

0 

0551 

22.2551 

61266 

1 

0552 

REF 

9 

LAST 

822 

22.2552 

02012 

0 

0553 

22.2553 

77/72 

0 

055A 

REF 

2 

LAST 

33 

22.255A 

02157 

0 

0555 

22.2555 

77656 

1 

0556 

REF 

3 

LAST 

817 

22.2556 

16171 

1 

0557 

22.2557 

OOOA5 

0 

0558 

REF 

A 

LAST 

817 

22.2560 

02165 

1 

0559 

22.2561 

77/62 

1 

0560 

REF 

2 

LAST 

797 

22.2562 

01335 

0 

0561 

22.2563 

77/76 

1 

0562 

REF 

A 

LAST 

82A 

22.256A 

Sl'tOl 

0 

0563 

ref 

1 

22.2565 

1 0002 

1 

056A 

REF 

10 

LAST 

792 

22.2566 

5A  111 

1 

-3 

0565 

REF 

16 

LAST 

767 

22.2567 

3 7/6O 

1 

-2 

0566 

REF 

3 

LAST 

817 

22.2570 

55«A0A 

1 

-1 

0567 

ref 

83 

LAST 

826 

22.2571 

0 AlA7 

1 

RETIGN2 

0568 

22.2572 

0AO22 

0 

♦ A02 

RLENGTH 

AFCS  *2 

DMP 

PDDL 

RC 

AFCS 

YDEF 

VXM 

CLT/2 

YSLl 

- * 

STORE 

AFC 

AFC=2(AFCS  .RC  aFCS  .RLENGTH  AFCS  )CLT/2 

UNIT 

0 1 2 

STODL 

UNAFC/2 

36D 

MAGNITUDE  OF  AFf.  /AFC/ 

STORE 

/AFC/ 

FOR  IGNITION  ALGORITHM 

SRIR 

CONVERTS  /AFC/  TO  THROTCON  UNITS.  /ACF/ 

STORE 

/ACF/ 

FOR  THROTTLE  CONTROL  SUBR  THROTCON 

EXIT 

INDEX 

ndxbr 

TCF 

BRIGN2 

TS 

OvFIND 

RETURN  FROM  TTF/A  OvERFLOW 

CA 

FIVE 

RETURN  resetting  COuNTFC 

TS 

COUNTFCT 

RETURN  Decrementing  countfc 

TC 

PHASCHNG 

return  (NORMAL)  FROM  IGNITN2 

DCT 

0A022 

PREVENT  GOING  FAR  BACK  IN  2DPS  AFTR  ExIT 

R0S69  *************«********«*#(n»*  »»#»»*#»*»»#» 

R0S70  prepare  to  EXIT 

R0S71  ************************************************).*********************** 


OS72 


REF  A LAST  821 


22.2573  2S»A02  0 


INCR  FLPASSO 


INCR  FIRST  PASS  FLAG,  REPEATS  ARE  OK 
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L 

0573 

SECOND 

REF  23 

DPS  GUIDANCE 

LAST  821 

22.257A 

51.072 

0 

INDEX 

AVGEXIT 

057A 

Rtf 

i 

22*2575 

A OOOA 

1 

cs 

TTF/ACR 

0575 

REF 

9 

LAST 

827 

22*2576 

6 1A52 

0 

AD 

TTF/A 

0576 

22*2577 

0 0006 

1 

EXTEND 

0577 

REF 

5 

LAST 

827 

22*2600 

5 lAOl 

0 

INDEX 

NDXBR 

0578 

REF 

1 

22*2601 

6 0003 

1 

3ZMF 

BRXMID 

0579 

REF 

2A 

LAST 

828 

22.2602 

3 1072 

0 

CA 

AVGEXIT 

0580 

REf 

2 

LAST 

32 

22*2603 

55IA05 

0 

TS 

AVGXTEMP 

0581 

REF 

8A 

LAST 

827 

22*260A 

0 AlA7 

1 

TC 

PHASCHNG 

0582 

22*2605 

DA022 

0 ♦A02 

DCT 

0A022 

0583 

REF 

3 

LAST 

828 

22*2606 

3 1^05 

1 

CA 

AVGXTEMP 

058A 

REF 

18 

LAST 

'757 

22.2607 

6 6276 

1 

AD 

SIX 

0585 

REF 

25 

LAST 

828 

22*2610 

55*072 

1 

TS 

AVGEXIT 

0586 

D C C 

2A5 

LAST 

82A 

Ktp 

22.261^ 

3 7161 

0 

wA 

ZERO 

0587 

REf 

5 

last 

827 

22*2612 

55IA02 

1 

TS 

flpasso 

0588 

REF 

A 

LAST 

828 

22*2613 

51 IA05 

1 

INDEX 

AVGXTEMP 

0589 

REF 

1 

22*261A 

1 0005 

0 

TCF 

BRXEND 

Dec  l3,  1966  (MAIN)  PAGE  82B 
USER'S  OWN  PaGF  no.  15  EA 

CONTINUE  PRESENT  PHASE 

PREPARE  FOR  NEW  PHASE 
temporary  protection  for  AVGEXIT 
PROTECT  AVGEXIT 

RESET  flag  Indicating  pass  zero  (fIRST) 
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L second  LPS  guidance  USER'S  OWN  PaGf  NO.  16  EA 

P0590 

R0591  routines  FOR  EXITING  FROM  SECOND  Ups  GUIDANCE.  THESE  ARES 
R0592 


R0593  1,  EXIGMID  CALLS  CALCRYj'  AS  AN  INTERPRETIVE  SUBROUTINE  UP  UNTIL  BUT  NOT  INCLUDING  THE  LAST  PASS  DjRING 

R0595  the  preburn  PHASE.  J^ON  RETURN  EXIGMID  RESTARTS  2DPS. 

R0596  2*  EXIGeND  IS  USED  ON  THE  U^ST  PASS  DURING  PReBURN.  It  SETS  UP  FoR  KALCMANU,  FOR  tHe  SUBSEQUENT  2DPS 

R0598  BURN,  AND  EXITS  TO  THE  MISSION  CONTROL  PROGRAM, 

R0599  3.  eXQDLIN  IS  USeD  TO  T'RMIHATE  EACH  PASS  uP  UNtH-  BUt  NOT  INCLUDING  THE  UST  PASS  ON  ALL  2OPS  BURN 

RO6OI  phases.  EXQDLIN  OBTAINS  ATTITUDE  AND  THROTTLE  CONTROL  AND  TERMINATES  THE  JOB. 

R0603  A.  EXFINAL  IS  THE  FINAL  2DPP  EXIT*  IT  SETS  JP  THE  ATTITUDE  COMMAND  FOR  RANDOM  THRnTTLlNG,  OBTAINS 

R0605  attitude  ANd  ThROTTlE  CONTROL,  AND  EXITS  TO  THE  MISSION  CONTROL  PROGRAM. 


R0607 

EXIGMID 

Sets 

UP  FOR 

CALCRVG  TO'  MoVe 

State  forward  a specified  time 

, initializes  the  INTfRPRfTER*  calls  CALCRVG 

R0609 

As 

AN  interpretive 

subroutine 

, AND  UPON 

RETURN  sets  up 

FOR  IGNALG 

AND  branches  INqIRECTi Y ThERETO. 

0611 

REF 

3 

last 

820 

22,2615 

0 3373 

0 

EXIGMID  TC 

PRETINIT 

INITIALIZES  interpreter  FOR  CALCRVG 

A0612 

succeeding  coding  Must  not  undo 

0613 

REF 

87 

last 

826 

22,2616 

0 6i03 

0 

TC 

INTPRET 

061A 

22,2617 

A33A5 

1 

DLOAD 

DAD 

0615 

REF 

1 

22,2620 

05567 

0 

PIGNALG 

0616 

REF 

12 

LAST 

826 

22,2621 

01321 

0 

PIPTIME 

0617 

REF 

3 

LAST 

826 

22,2622 

260A5 

1 

STOVL 

PIPTIMET 

updated  piptime  temporary  storage 

0618 

REF 

A 

LAST 

8l7 

22,2623 

05562 

0 

2EROPOS 

0619 

REF 

5 

LAST 

790 

22,262A 

3AH0A 

0 

STCALL 

DELV 

DELV  = 0 

0620 

REF 

2 

LAST 

772 

22*2625 

61077 

0 

CALCRVG 

STEPS  FORWARD  IN  TIME  LEAVING  RNl*  VNl 

0621 

22,2626 

77^76 

1 

EXIT 

0622 

REF 

1 

22,2627 

3 35A5 

0 

CA 

E2DPSL 

ASSURE  CORRECT  fBANIc  BEFORE 

0623 

REF 

60 

LAST 

811 

22,2630 

5A  003 

0 

TS 

EBANK 

DOING  PHASCHNG 

062A 

REF 

85 

LAST 

828 

22,2631 

0 AU7 

1 

TC 

PHASCHNG 

PROTECT  PIPTIME.  PREVENT  REDOING  CALCRV 

0625 

22,2632 

0AO22 

0 

♦A02  OCT 

0<,022 

0626 

REF 

88 

LAST 

829 

22,2633 

0 6103 

0 

TC 

INTPRET 

0627 

22,263A 

77/A5 

1 

DLOAD 

0628 

REF 

A 

LAST 

829 

22,2635 

02OA5 

1 

PIPTIMET 

0629 

REF 

13 

LAST 

829 

22,2636 

25321 

0 

STOVL 

PIPTIME 

updated  piptime 

0630 

REF 

A 

LAST 

826 

22,2637 

01051 

1 

RNl 

OiL  ^ 1 

D PC 

A 

1 ACT 

25011 

STOVL 

vO  J 1 

K tr 

i H 

LAo  1 

826 

c2 f 26^^ 

0 

RN 

UPDATED  POSITION 

0632 

REF 

2 

LAST 

789 

22,26Al 

01057 

1 

VNl 

0633 

REF 

13 

LAST 

820 

22,26A2 

01017 

0 

STORE 

VN 

updated  velocity 

063A 

22,26A3 

11  Hb 

1 

EXIT 

0635 

REF 

26 

LAST 

828 

22,26AA 

0 1072 

0 

TC 

AVGEXIT 

RETURNS  TO  APPROPRIATE  LOCATION  IN  2DPS 

Dec  U,  1966  (MAIN)  page  830 


A8895AA 


L 

R0636 

RO638 

R0639 

RO6AO 

0641 

0642 

0643 

0644 

0645 

0646 

0647 

0648 

0649 

0650 

0651 

0652 

0653 

0654 

0655 

0656 


0657 


0658 

0659 

0660 
0661 
0662 

0663 

0664 

0665 

0666 

0667 

RO668 


0669 

0670 

0671 

0672 

0673 

0674 


0675 

R0676 

0677 


YJL  system  for  AGC;  NEW  PROGRAM  SMePATIN  BY  EYLeS 


SECOND  DPS  GUIDANCE  USER'S  OWN  PAGF  NO.  17  E4 

EXIGEND  extrapolates  JNAFC/2  to  TIF/4  = 0.  sets  up  for  mission  control  PROGRAM,  SETS  UP  FOR  THE  SUCCEEDING 


BRAKING  phase.  AND  EXITS  TO  THE  MISSION  CONTROL  PROGRAM. 


Extrapolate  unafc/2 

UNAFC/2  = UNAFC/2+ (UNAFC/2-UNAFC/20) (TTF) / (TPIPOLO-TPIP) 


REF 

4 

LAST 

821 

REF 

299 

LAST 

825 

REF 

5 

LAST 

821 

REF 

300 

LAST 

830 

REF 

2 

LAST 

821 

REF 

24 

LAST 

756 

REF 

155 

last 

810 

REF 

2 

LAST 

821 

REF 

10 

LAST 

828 

REF 

301 

LAST 

830 

REF 

53 

LAST 

810 

REF 

1 

REF 

1 

REF 

246 

LAST 

828 

REF 

6 

LAST 

811 

REF 

89 

LAST 

829 

REF 

4 

LAST 

827 

REF 

2 

LAST 

33 

REF 

5 

LAST 

830 

REF 

6 

last 

830 

22.264^  0 OUO6  1 EXIGEND  EXTEND 

22.2646  3 l^Sl  0 DCA  TpIpOLD 

22.2647  52  145  0 OXCH  MPAC 

22.2650  0 0006  1 EXTEND 

22.2651  4 1447  0 OCS  TPIP 

22.2652  20  145  0 DAS  MPAC 


22,2653  3 7^42  1 

22,265A  0 0006  1 

22.2655  7 7153  0 

22.2656  3 0001  0 

22.2657  0 7367  1 

22,2660  0 0006  1 

22.2661  3 1453  1 

22.2662  52  145  0 

22.2663  52  121  1 

22,266A  0 5336  1 


CA  TSCALE 

EXTEND 
MP  BIT3 

CA  L 

TC  DMPNSUB 

extend 

OCA  TTF/4 

OXCH  MPAC 

OXCH  BUF 

TC  USPRCADR 


22,2665 

00352 

0 

22*2666 

3 7(61 

0 

22,2667 

54  153 

0 6103 

1 

22,2670 

0 

22,2671 

52315 

1 

22,2672 

02171 

1 

22,2673 

O2I77 

1 

22,267A 

74352 

0 

22,2675 

02171 

1 

22,2675 

77555 

1 

22,2677 

O2I7I 

1 

CADR  DDV/BDDV 
CA  ZERO 

ts  mode 

TC  INTPRET 

PDVL  VSU 

UNAFC/2 
UNAFC/20 
YSL2  VXSC 

UNAFC/2 

YAD 

UNAFC/2 


MULTIPLIES  BY  N s 4 LEAVING  RESULT  IN  L 
ASSUMES  N(TP1P0I  D-TPIP)/4>TTF/4  IN  MAGN. 
N(TPIP0LD-TPIP)/4  TO  MPAC,  TTF  UNITS 


DIVIDEND  TO  MPAC 
DIVISOR  TO  BUF 


(TTF/4)/(N(TPIPoLD-TPIP)/4)  TO  MPAC 


TO  INDICATE  Dp  tN  MPAC 


VSL2  UNDOES  MP  BlT3  PRECEDING 


YIELDS  extrapolated  UNAFC/2 


SET  Up  FOR  MISSION  CONTROL  PROGRAM 


REF 

4 

last 

685 

22,2700 

15556  0 

STODL 

POINTVSM 

REF 

11 

LAST 

830 

22,2701 

02053  0 

TTF/4 

D 

22,2702 

41276  1 

DCOMP 

DMP 

KCr 

1 

22,2703 

05561  0 

TSCALINV 

22,270A 

77515  0 

DAD 

REF 

14 

LAST 

829 

22,2705 

01321  0 

PIPTIME 

REF 

3 

LAST 

694 

22,2706 

02057  1 

STORE 

TULLG 

STORE  FOR  KALCMANU 


time  at  WHICH  Ul LAGe  IS  TO  StARt 


SET  UP  FOR  braking  PHASE 

22,2707  77(76  1 EXIT 


YJL  system  f'OR  AGC.*  NeW  program  SMePAtIN  by  eYLeS 


L second  dps  guidance 


0678 

REF 

86 

LAST 

829 

22,271° 

0 AlA7 

1 

TC 

PHASCHNG 

0679 

22,2711 

0A°22 

0 ♦AOZ 

OCT 

0A022 

0680 

22,2712 

0 0006 

1 

EXTEND 

0681 

REF 

8 

LAST 

822 

22,2713 

3 I'tSS 

1 

OCA 

TTF/ATMP 

0682 

REF 

12 

LAST 

830 

22,271A 

53«A53 

0 

OXCH 

TTF/A 

R0683  RETURN  TO  MISSION  CONTROL  PRD3RAM 


068A  REF  A last  829  22f27l5  0 3^73  0 

0685  22t27lP  0 0^06  I 

0686  REF  1 22,2717  3 3>53  1 

0687  22,2720  52  ^06  0 


TC  PRETINIT 

EXTEND 

OCA  RETPREBL 

DTCB 


Dec  13,  1966  (MAIN)  PAGe  831 


USER*S  OwN  pAGP  NO,  18  EA 

protect  TTF/^  and  prevent  rereading  REG- 
ISTERS REWRITTEN  BY  MISN  CONT  PROGRAM 


INITIALIZES  INTfRPReTER 
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L SECOND  OPS  GUIDANCE  USER'S  OWN  PaGF  NO.  1*^  EA 

PO688  EXODLIN  STORES  THE  SeMI-UnIT  YECTUR  DEFINING  THe  DIRECTION  OF  COMMANDED  THRUST  ACCELERATION  (UNAFC/2)  IN  THe 
R0690  appropriate  REGISTERS  OF  FINDCOJD  (AXISD)  AND  CALLS  FiNDCDUD  AS  A SUBROUTINE, 

Ro692  then  eXQDLIN  TRANSFERS  tHe  Co*1MANUeD  THRUST  ACCELERATION  MAGNITUDE  (/AfC/)  TO  tHe  APPROPRIATE  REGISTERS  OF 
R069A  THROTCON.  (/ACf/)»  CHANqINQ  SCALINq,  AND  CALLS  THROTCON  AS  A SUBROUTINE. 

R0695  FINALLY  EXQDLIN  TERMINATES  THE  JOU, 


0696 

REF 

90 

LAST 

830 

22.2721 

0 6103 

0 

0697 

22.2722 

77(75 

1 

0698 

REF 

7 

LAST 

830 

22.2723 

02171 

1 

0699 

REF 

3 

LAST 

786 

22.272A 

36233 

0 

0700 

REF 

3' 

LAST 

689 

22.2725 

506A3 

0 

0701 

22.2726 

77(76 

1 

EXQDLIN  TC  INTPRET 
YLOAD 

UNAFC/2 
STCALL  AXISD 

FINDCDUD  ATTITUDE  CONTROl 

EXIT 


0702 

0703 
070A 
0705 

A0706 


REF  1 

RcF  111  LAST  813 


22'272'^  0 OUO6  1 

22.2730  3 3P57  0 

22.2731  52  006  0 

22.2732  0 5PO5  1 


extend 

OCA  THROTCOL 

OTCB  THROTTLE  CONTROl. 

TC  ENDOFJOB  terminates  THE  JOB  PERIODICALLY  STARTED 

BY  A waitlist  C/iLL  FROM  ReADACCs 


R0707  EXFINAL  IS  tHE  FINAL  EXIj  FRdHi  2DPS.  FIRSj  EXFINAL  PLaCES  tHE  SEMI-UNIt  NORMai  TO  THE  OcBItaL  PLANE  (CPt6/2) 
R0709  IN  AxISD  and  CALLS  FINDCDUD  AS  A SUBROUTINE,  THIS  CAUSES  FURTHER  THRUSTING  TO  BE  NORMAL  TO  THE  ORelTAL  PLANE, 

R0711  then  exfinal  transfers  the  CoNMANDeD  thrust  acceleration  MAGNITUDE  (/AFC/)  TO  tHe  APPROPRIATE  REGISTERS  OF 

Ro713  THROTCON'  (/ACF/)'  CHANGING  SCALING.  AND  CALLS  THROTCqN  AS  A SUBROUTINE* 

R071A  finally  exfinal  RETURNS  TO  THE  v|,lSSION  COnTROL  PROGRAM  WHICH  EXECUTES  THE  RANDOM  THROTTI  ING. 


0716 

REF 

91 

LAST 

832 

0717 

0718 

REF 

7 

LAST 

822 

0719 

REF 

A 

LAST 

832 

0720 

0721 

REF 

A 

last 

832 

22.2733  0 6103  0 EXFINAL  TC  INTPRET 

22.273A  77(75  1 YLOAO 

22.2735  D2P57  1 CPT6/2 

22.273P  36233  0 STCALL  AXISD 

22.2737  60PA3  0 FINDCDUD  ATTITUDE  CONTROl 

22.27A0  77(76  1 EXIT 


0722  22.27AI 

0723  REF  2 lAsT  832  22.27A2 

072A  22.27A3 

0725  REF  5 LAST  831  22.27AA 

0726  22.27A5 

0727  REF  1 22.27A6 

0728  22.27A7 


0 0006  1 
3 3P57  0 
52  006  0 
0 3P73  0 
0 0006  1 
3 3555  1 
52  006  0 


EXTEND 

DCA  ThROTcOl 

OTCB  THROTTLE  CONTROl 

TC  PRETINIT  INITIALIZES  INTfRPRETER 

EXTEND 

OCA  RETBURNL 

OTCB 


iV88954A  YJL  system  FOR  aGC!  NEW  Pro’^R^M  S^ePatIN  BY  eYLES 


dec  13»  1966  (MAIN)  PA^E  833 


L SECOND  UPS  guidance  USER'S  OWN  PAGf  NO.  20  EA 

P0729 

R0730  SPECIAL  PURPOSE  SUBROUTINES  0^.  Se'-OND  DPS  GUIDANCE 
R0731  »«)nn*)nnt 

R0732  »»*»»»»###*#♦*»  »<nn*»'nnnnnf* 

R0733  IGNITION  ALGORITHM 
ROT  3 A 


R0735 

R0737 

Ro739 

R07A1 

R07A3 

R07A5 

Ro7A7 

R07A9 


IoNItNi  extrapolates  THe  GIVeM,  State  forward  through  tHe  tIMe  interval  required  to  accomplish  ullage  and  to 
LITE  at  low  thrust  AND  TRIM  THE  eI^GINE,  THe  EXTRAPOLATION  ENDS  AT  THE  TIMe  MAXIMUM  THRUaT  WoULD  Be  COMMANDED 
IF  the  LIteUP  procedure  Were  initiated  at  the  current  given  time,  (THe  given  time  is  NOT  true,  all  given 
conditions  include  a free-fal.  exirapolation  of  tHe  actual  orbit.)  tHe  extrapolation  Performed  by  ignitni 
INCLUDES  ALL  eFFeCtS  OF  eNGINt  tHRUSt  DURING  THe  LIteUP  PROCEDURE,  AND  It  USeS  THe 
thrust  pointing  direction  whi:h  will  be  Commanded  at  tHe  initiation  of  maximum  thrust, 
this  extRapoLated  State  is  thtn  fed  to  tHe  guidance  equations,  which  compute  the  thrust  pointing 
direction  (unafc/2)  and  the  thrusi  acceleration  magnitude  Command  (/afc/). 


Ro75i  I3NITN2  THEN  RECEIVES  THIS  OJtPUT  DATA  FROM  THe  GUIDANCE  EQUATIONS  AND  DETERMINES  WHetHfR  THE  THRUST 

R0753  acceleration  MAGNITUDE  COMMAnOi  IS  MONOTONICALLY  INCREASING,  WHEN  IT  IS,  IGNITN2  USES  tHf  PRfSeNT  AND  PREVIOUS 

R0755  VALUES  TO  Compute  one  quarter  df  ihe  present  time  (ttf/a)  Relative  to  the  time  at  which  the  thrust 

R0757  acceleration  MAGNITUDE  COMMAND)  WILL  ReACH  tHe  CRITERION  VALUE  (/AFC/CR)  WHICH  CORRESPONDS  TO  MAXIMUM  THROTTLE. 

R0759  when  TTF/4  SO  COMPUTED  ReACHeS  THE  TIME  CRITERION  FOR  TERMINATING  THe  PREBURN  PHASE  (TTF/aCR) , 

R0761  EXIGEND  is  PROCESSED,  TERMINATING  THE  PHASE  AND  RETURNING  CONTROL  TO  THe  MISSION  CONtROI  PROGRAM, 

R0763  the  mission  CONTROL  PROGRAM  EXECUIES  THE  COMPUTED  IGNITION  SEQUENCE.  IGNITN2  MUST  ALSO,  ON  EACH  PASS, 

Ro765  Reestablish  Certain  data  required  for  the  subsequent  pass, 

R0766  IGNITION  ALGORITHM  PART  1 
ROT  6 7 tnnntfunnnnnnt 

R0768  DD'  TEMPORARY  STORAGE 


0769 

0770 

0771 

0772 

0773 
077A 


REF 

REF 

REF 

REF 

ref 


92 

LAST 

832 

22,275U 

0 6IO3  0 

IGNITNI  TC 

INTPRET 

22,2751 

777A5  1 

DLOAD 

5 

LAST 

827 

22,2752 

02165  1 

/AFC/ 

2 

LAST 

33 

22,2753 

26167  0 

STOVL 

/AFC/OLD 

OLD 

VALUE 

OF 

/AFC/  FOR  USE  BY  IGNITN2 

8 

LAST 

832 

22,275A 

02171  1 

UNAFC/2 

3 

last 

830 

22,2755 

26177  1 

STOVL 

UnAFC/20 

OLD 

value 

OF 

UNaFC/2 

R0775  extrapolate  STATE 


0776 

ref 

7 

LAST 

822 

22*2758 

02061 

1 

0777 

REF 

1 

22,2757 

24011 

1 

0778 

REF 

5 

LAST 

822 

22,2760 

02071 

0 

0779 

REF 

1 

22,2761 

24017 

1 

0780 

REF 

2 

LAST 

817 

22,2762 

02213 

0 

0781 

REF 

1 

22,2763 

14025 

0 

0782 

REF 

1 

22,276A 

05407 

1 

0783 

REF 

1 

22,2765 

I4OO7 

0 

078A 

REF 

1 

22,2766 

05411 

0 

R 

STOvL  RDUM 

V 

STOVL  VDUM 

GDOTMl 
STODL  UDUM 

PFCULLG  ULLAGE  PERIOD 

STODL  PDUM  DUMMY  PERIOD 

AFULLG  LEAVE  AFULLG  IN  MPAC 
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DEC  13.  1966  (MAIN)  PAGE  83A 


0785 

SECOND 

DPS  guidance 

22,2767 

77P2A  1 

CALL 

USER'S  OWN  PAGp  NO.  21  EA 

extrapolates  dummy  state  and 

0786 

REF 

1 

22,2770 

A5i2A  1 

XTRIGNI 

LEAVES  INITIAL  r,RAVITY  IN  GDUM 

0787 

22,2771 

77^75  1 

VLOAD 

0788 

REf 

1 

22,2772 

00033  1 

GOUM 

0789 

REF 

1 

22,2773 

16205  1 

STODL 

GDUMPRES 

SAVE  INITL  GRAVITY  FOR  COMPUTING  GDOTMl 

0790 

REF 

1 

22,277A 

05‘*13  1 

PFCLITE 

LITEUP  PERIOD 

0791 

REF 

2 

LAST  833 

22,2775 

1AO07  0 

STODL 

PDUM 

0792 

REF 

1 

22,2776 

05‘*15  1 

AFLITE 

LEAVE  AFLITE  IN  MPAC 

0793 

22,2777 

77P2A  1 

CALL 

079A 

REF 

2 

LAST  83A 

22,3000 

<,5l2A  1 

XTRIGNI 

EXTRAPOLATE 

0795  22,3001 

0796  REF  I 22,3002 

0797  REF  3 LAST  83A  22,3003 

0798  REF  1 22,300A 

0799  22,3005 

0800  REF  3 LAST  83A  22,3006 

0801  22*3007 

0802  ref  2 last  833  22,30lO 

0803  REF  1 22,3011 


77fA5  1 DLOAD 

OS'tlT  0 PFCTRIM 

UD07  0 STODL  PDUM 

05‘*21  0 AFTRIM 

77P2A  1 CALL 

A512A  1 XTRIGNI 

77^75  1 YLOAD 

OODll  1 RdUM 

26113  0 STOVL  RTEMP 


TRIM  period 

LEAVE  AFTRIM  IN  MPAC 

YIELDS  FINAL  EXTRAPOLATED  STATE 

RESTART  PROTECTION  FOR  EXTRAPOLATED  R 


080A  REF  2 LAST  833  22*3012  00^17  1 VDUM 

0805  REF  1 22*3013  36121  0 STCALL  VTEMP  RESTART  PROTECTION  FOR  EXTRAPOLATED  V 


R0806  COMPUTE  DERIVATIVE  OF  GRAVITY 


0807 

REF 

1 

22,301A 

A5363 

0 

0808 

22*3015 

70251 

0 

vsu 

0809 

REF 

2 

LAST 

83A 

22*3016 

02205 

1 

0810 

REF 

1 

22*3017 

OS^tOl 

1 

0811 

REF 

3 

LAST 

833 

22*3020 

02213 

0 

STORE 

0812 

22*3021 

77^76 

1 

EXIT 

GDUMCL  YIELDS  FINAL  GRAVITY  IN  MPAC  ANO  GDUM 

V/SC 

GDUMPRES 

PPHMl  COMPLETES  COMPUTATION  OF  DERIV  OF  G 

GDOTMl  FOR  USE  NEXT  PASS.  PROTECTION  NOT  ROD 


Ro8i3  Generation  of  extrapolated  data  complete*  protect  and  transfer  to  storage* 


0815  REF  87  LAST  831  22,3022  0 AU7  1 TC 

0816  22,3023  0^022  0 *^02  OCT 

0817  REF  93  LAST  833  22,302A  0 6103  0 TC 

0818  22,3025  77^A5  1 OLOAD 

0819  REF  9 LAST  831  22,3026  02055  0 

0820  REF  13  LAST  831  22,3027  26053  0 STOVL 

0821  REF  2 LAST  83A  22,3030  02113  0 

0822  REF  8 LAST  833  22,3031  26061  1 STOVL 


PHASCHNG  PROTECT  R,  V 

0a022 

INTPRET 

TTF/ATMP 

TTF/a  RESTORES  TTF/a  TO  LAST  VALUE  BY  GUIDANCE 

RTEMP 

R EXTRAPOLATED  R 


0823 

REF 

2 

LAST 

83A 

22*3032 

02121 

1 

VTEMP 

082A 

ref 

6 

LAST 

833 

22*3033 

02071 

0 

store 

V 

0825 

22  *303A 

77  ^76 

1 

EXIT 

0826 

REF 

A 

LAST 

827 

22*3035 

3 IAOA 

0 

CA 

COUNTFCT 

0827 

REF 

2 

last 

32 

22*3036 

55'A03 

0 

TS 

COUNTFC 

extrapolated  V 


FOR  IGNITN2 


yJL  SySTEm  FOR  AgCj  NEw  pROGRAf^  SHEpATiN  by  EyI-E5 


dec  13.  1966  (M^IN)  pAgE  836 


L SECOND  DPs  GUIDANCE  USER'S  OWN  PaGf  NO.  22  EA 

0828  REF  2 LAST  817  22,3037  0 3205  0 TC  xTRTPlP  YIELDS  TPIP  ExTrAPOLATED 

0829  REF  3 LAST  819  22.30A0  1 2^64  1 TCF  RETIGNl 


R0830  I3NITI0N  ALGORITHM  PART  2 
R08  31 


0832  22.3041 

0833  REF  14  LAST  834  22,3042 

0834  REF  10  LAST  &34  22,3043 

0835  REF  88  LAST  834  22,304^ 

0836  22,3045 

0837  REF  48  LAST  817  22,3046 

0838  REF  15  LAST  835  22,3047 


0 0006 

1 IGNITN2 

EXTEND 

3 1453 

1 

DCA 

TTF/4 

531455 

0 

DXCH 

TTF/4TMP 

0 4147 

1 

TC 

PHASCHNG 

D4O22 

0 *402 

DCT 

O4O22 

4 7(35 
55'‘*52 

0 

1 

CS 

POSMAX 

TS 

TTF/4 

SAVE  TTF/4  for  NEXT  PASS 
PROTECT  TTF/4 

PREVENT  premature  TERMINATION  OF  PREBURN 


R0839  test  whether  /AFC/  > /AFC/OLi>,  JF  SO  TEST  WHETHER  COUnTFC  = 0. 


0840 

22,3050 

0 OUO6 

1 

EXTEND 

0841 

REF 

6 

LAST 

833 

22 ,305^ 

3 1565 

0 

DCA 

/AFC/ 

0842 

REF 

302 

LAST 

830 

22,3052 

52  145 

0 

DXCH 

MPAC 

0843 

22,3053 

0 OUO6 

1 

EXTEND 

0844 

REF 

3 

LAST 

833 

22,305^ 

4 1567 

0 

DCS 

/AFC/OLD 

0845 

REF 

303 

LAST 

835 

22,3055 

20  145 

0 

DAS 

MPAC 

/AFC/-/AFC/OLD  tN  MPAC 

0846 

REF 

304 

LAST 

835 

22,3056 

10  144 

1 

CCS 

MPAC 

TEST  HI  ORDER 

0847 

REF 

1 

22,3057 

1 3U65 

0 

TCF 

TCOUNTFC 

0848 

REF 

1 

22,3060 

1 3062 

1 

TCF 

TSTLOAFC 

0849 

REF 

3 

LAST 

819 

22,3061 

1 2567 

0 

TCF 

RETIGN2 

-2 

RESET  COUNTFC 

0850 

REF 

305 

LAST 

835 

22,3062 

3 0145 

1 

TSTLOAFC 

CA 

MPAC 

♦ 1 

TEST  LO  ORDER 

0851 

22 ,3063 

0 OOO6 

1 

EXTEND 

0852 

REF 

4 

LAST 

835 

22,3064 

6 2567 

1 

3ZMF 

RETIGN2 

-2 

RESET  COUNTFC 

0853 

REF 

3 

LAST 

834 

22,3065 

111403 

0 

TCOUNTFC 

CCS 

CoUNTFC 

0854 

REF 

5 

LAST 

835 

22,3066 

1 2570 

0 

TCF 

RETIGN2 

-1 

decrement  COUNTFC 

R0855  RESET  TTF/4  BY  EXTRAPOLATING  /AFC/ 

R0856  TTF/4  a ( 1 /4 ) ( TPI POLD-TPI P ) < / AF:/-/AFC/CR ) / ( / AFC/DLD-/AFC/ ) 


0857 

22,3067 

0 

0 

3 

0 

1 

EXTEND 

0858 

REF 

5 

last 

830 

22,3070 

3 

l'*51 

0 

DCA 

TPIPOLD 

0859 

REF 

306 

LAST 

835 

22,3071 

52 

145 

0 

DXCH 

MPAC 

0860 

22,3072 

0 

0006 

1 

EXTEND 

0861 

REF 

6 

LAST 

830 

22,3073 

4 

l‘*47 

0 

DCS 

TPIP 

0862 

REF 

307 

LAST 

835 

22,307'^ 

23 

145 

0 

DAS 

MPAC 

0863 

REF 

3 

LAST 

830 

22,3075 

3 

7(42 

1 

CA 

TSCALE 

0864 

REF 

3 

LAST 

830 

22,3076 

0 

7367 

1 

TC 

DMPNSUB 

0865 

22*3077 

0 

0006 

1 

EXTEND 

0866 

REF 

7 

LAST 

835 

22,3100 

3 

1565 

0 

DCA 

/AFC/ 

(1/4) (TPIPOLD-TPIP)  TO  MPAC,  TTF  UNITS 
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L second  dps  guidance  USER'S  OWN  PAGp  NO.  23  EA 

0867  rEF  308  LAST  835  22»310l  52  150  I OXCH  MPAC  *3 

0868  22*3102  0 0y06  1 EXTEND 


0869 

REF 

1 

0870 

REF 

309 

LAST 

836 

0871 

REF 

10 

LAST 

795 

0872 

REF 

310 

LAST 

836 

0873 

087A 

REF 

A 

LAST 

835 

0875 

REF 

5A 

LAST 

830 

0876 

0877 

REF 

8 

LAST 

835 

0878 

REF 

55 

LAST 

836 

0879 

REF 

2 

LAST 

830 

830 

0880 

REF 

2 

LAST 

0881 

REF 

11 

LAST 

827 

0882 

REF 

6 

LAST 

835 

0883 

REF 

311 

LAST 

836 

088A 

REF 

16 

LAST 

835 

0885 

REF 

7 

LAST 

836 

22*3103  A 3A05  1 
22*310A  20  150  1 
22*3105  0 71A6  0 
22*3106  OOlA7  0 

22*3107  0 ODOb  1 
22*3110  3 1567  1 
22*3111  52  121  1 
22*3112  0 0006  1 
22*3113  A 1565  1 

22*311A  20  121  1 
22*3115  0 5336  1 
22*3116  00352  0 

22*3117  10  111  1 
22*3120  1 2566  1 

22*3121  52  1A5  0 
22*3122  53'‘*53  0 
22*3123  1 2571  1 


DCS  /AFC/CR 

DAS  MPAC 

TC  DMP 

oENADR  MPAC 

EXTEND 

DCA  /AFC/OLD 

DXCH  BUF 

EXTEND 

DCS  /AFC/ 

DAS  BUF 

TC  USPRCADR 

CADR  DDV/BDDV 

CCS  OVFlND 

TCF  RETIGN2 

DXCH  MPAC 

DXCH  TTF/A 

TCF  RETIGN2 


♦ 3 

♦ 3 


YIELDS  TTF/a  in  MPAC 


-3  IF  TTF/A  OVFL.  RESETS  OVFIND*  CoUNTFC. 


R0887  special  PURPOSE  STATE  EXTRAPd.AT ION  SUBROUTINE  FOR  IGNiTNl 

R0888  »»»*»«»«»#»)»*#**#»#»«»«*»«***»*»«<***#*»*»«)*»#»«»»**»#***#«*#»#*****«**«««)*##*» 

R0889  XTRIGNi  RECEIVES  THE  EXTRAPOLATION  PERIOD  IN  PDUM;  THe  INITIAL  STATE  IN  RDUM,  VDUM;  THE  THRuST  ACCELERATION 
R0891  MAGNITUDE  IN  MPAC*  DIRECTION  IN  UNAFC/25  AND  JERK  IN  JDUM, 

R0892  iT  LEAVtS  GrAviTY  iN  GDUM*  ThE  TOIAL  iNjTiAL  ACCELERATION  iN  ADUM*  AND  THE  EXTRAPOLATED  STATE  iN  rDUM*  yDUM. 

R089A  presently  THE  DUM  REGISTERS  DCCJPT  LOCATIONS  FIXLDC  *6  THRU  FIXLOC  tAS  OCTAL. 


0896 

0897 

0898 

0899 

0900 

0901 

0902 

0903 
090A 

0905 

0906 


REF 

REF 

REF 

REF 

REF 


22*312^ 

2 LAST  32  22*3125 

22*3126 

9 LAST  833  22*3127 

22*3130 

2 LAST  83A  22*3131 

22*3132 

1 22*3133 

22*313A 

1 22*3135 

22*3136 


77t>20  0 XTRIGNI  STO 

02007  1 

7A352  0 SLl 

02171  1 

A5006  0 PUSH 

A5363  0 

A5A55  1 VAD 

7706  0 STORE 

7762A  1 CALL 

A5333  0 

77650  1 GOTO 


RETxIgNI  SAVE  QpRET 

VXSC 

UNAFC/2 

CALL  PUSHES  AF  UNAFC 

GDUMCL  YIELDS  GRAVITY  TN  MPAC  AND  GDUM 

STADR 

ADUM  ADUM  = AF  UNAFC+G 

XTRDUMST  EXTRAPOLATES  RDhM*  VDUM 


0907  REF  3 LAST  836  22*3137  02007  1 


RETXIGNI 
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U SECOND  DPS  GUIDANCE 


USER'S  OWN  PAGF  no.  2A 


P0908 

R0909  linear  guidance  - spherical  acceleration  as  linear  time  function 

R0910  »«*nnnnnnnnnnnnnnnm»*in*»'nnn'»** 

R0911  Set  linear  guidance  coefficients  in  even  numbered  phases 

R0912  #»«#»»»»»»###»»#####»««##»»"  innnn*»»innnnnnn»t 


0913  REF  2 LAST  821  22.314°  0 2l27  1 LSETEVN  TC  NTLZPASS 


09U 

REF 

94 

LAST 

834 

22.314I 

0 6103 

0 

0915 

22 .3142 

7 7 T 7 3 

1 

0916 

REF 

3 

LAST 

826 

22.3143 

05^24 

0 

0917 

REF 

3 

LAST 

33 

22.314A 

16205 

1 

0918 

REF 

7 

LAST 

827 

22.3145 

O2I53 

1 

0919 

22.3146 

77615 

0 

0920 

REF 

4 

LAST 

826 

22.3147 

O2I37 

0 

0921 

REF 

3 

LAST 

826 

22.315° 

02145 

0 

0922 

REF 

4 

LAST 

837 

22.3151 

26207 

0 

0923 

REF 

5 

LAST 

837 

22.3152 

02205 

1 

TC  INTPRET 

YLOAd* 

ADS.l 

STODL  ALINS  ALINS  = ADS 

AFC5  *Z 

DAD 

ASPRT  *2 
STORE  ACS  *2 

STOVL  ALINS  *2  ALINS  = ACS  = AFCS  ♦ ASPRT 

ALINS  2 2 2 2 


0924 

0925  REF 


22.3153  77P50  1 

22.315A  45I62  0 


GOTO 

LINSET 


E4 


R0926  set  linear  guidance  coefficients  in  odd  numbered  phases 


0928 

REF 

3 

LAST 

837 

22.3155 

0 2127 

1 

LSETODD  TC 

NTLZPASS 

0929 

0930 

REF 

95 

LAST 

837 

22.3156 

0 6103 

77/73 

0 

1 

TC 

VL0AD4 

INTPRET 

22.3157 

0931 

REF 

4 

LAST 

837 

22.316° 

05^24 

0 

ADS.l 

• • 

0932 

REF 

6 

LAST 

837 

22,3161 

02205 

1 

STORE 

ALINS 

ALINS  = ADS 

R0933  COMMON  PARTS  OF  LSETEVN  AND  LSETODD 


0935 

0936  REF  4 LAST  837 

0937 

0938  REF  17  LAST  836 

0939  REF  2 LAST  33 

0940 

0941  REF  6 LAST  821 


22.3162  77P45  0 LINSET 

22.3163  O2I43  0 

22.3164  70342  0 

22.3165  02053  0 

22.3166  02213  0 

22.3167  77T76  1 

22.317°  1 2211  0 


3VSU 

ACS 

VSR2  V/SC 
TTF/4 

STORE  JLINS  JLINS 

EXIT 

TCF  TTFINCR  ♦! 


s 1/4  (ACfi  - ALINS) / (TTF/4) 


R0942  linear  GUIDANCE  EQUATIONS 

R0943  »4*44»«44»*4*44»44*»»44##..4»*IH.44*#444»444*44444.t444»*»44»4«»#*#*44»»4)m 


0944 

REF 

96 

LAST 

837 

22,3171 

0 6103 

0 LINGUID 

TC 

INTPRET 

0945 

22,3172 

74P75 

0 

VLOAD 

VXSC 

0946 

REF 

3 

LAST 

837 

22.3173 

02213 

0 

JLINS 

0947 

REF 

18 

LAST 

837 

22,317A 

O2U53 

0 

TTF/4 

0948 

22.3175 

77/52 

1 

VSL2 

0949 

22.3176 

52255 

1 

VAD 

VSU 

't08954A  YJL  SYSTEM  FOR  AGC.  NEW  PROGRAM  SMePATIN  BY  EYLES 
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L SECOND  DPS  GUIDANCE 


0950 

REF 

7 

LAST 

837 

22.3177 

0951 

REF 

5 

LAST 

837 

22.3200 

0952 

REF 

8 

LAST 

837 

22.3201 

0953 

REF 

9 

LAST 

838 

22.3202 

095A 

22.3203 

0955 

REF 

1 

22.320A 

02<i05  1 ALINS 

02i35  1 ASPRT 

16151  0 STOOL  AFCS 

02155  1 AFCS  ♦«» 

77650  1 GOTO 

AA5A3  0 AFCCALC 


USER'S  OWN  PAGf  NO.  25 


AFCS  s A JLINS/ (TTF/A)  ♦ ALINS 


RO956 

R0957  SjbRDJTINE  TO  SET  TpIP  EXTRApOLATtD 
R0958 


0959 

0960 

0961 

0962 

0963 
096A 
0965 


22.3205  0 OUO6  1 XTRTPIP  EXTEND 
REF  15  LAST  830  22.3206  3 1521  0 OCA  PIPTIME 

REF  7 LAST  835  22.3207  53'‘*A7  0 DXCH  TPIP 

22.321°  0 0006  1 EXTEND 

REF  1 22.3211  3 3^03  0 OCA  PPHMICS 

REF  8 LAST  838  22.3212  21iAA7  0 DAS  TPIP 

REF  2A1  LAST  810  22.3213  0 0002  0 TC  Q 


EA 


ASPRT 


A88954A  YJL  SYSTEM  FOR  AqC;  NEW  PROGRAM  SHePATIN  EYLES 


dec  13*  1966  (MAIN)  PA&E  839 


L 

P0966 

R0967 

R0968 

R0969 

R0970 

R0971 

R0972 

R0973 

R0975 

R0977 

A0979 

A0980 

A0981 


A0982 

A0983 

A098A 

A0985 

Ro986 

R0988 

R0989 

R099l 

Ro993 

R0995 

Ro997 

R0999 

RlOOl 

R1003 

RlOOS 

R1006 

RlOOS 


RlOlO 

A1012 

1013 

lOU 

1015 

1016 
1017 


second  dps  guidance  USER'S  OWN  PaGf  NO.  2<>  E^ 

**«*«*«»***«**»  KM  lt»''«»**4t**»**#*t*****»«*****»*#**»««««4t*« 

General  purpose  subroutines  contributed  by  second  dps  guidance 

kkkkkkk«kkkkkkkkkkkkkkkkkkkkmkkkk*kkkkkkkkkkkkkkkkkkkkkkkkkk#kkkkkkkkkkk 

KKKKKKKKKKKKKKKKKKKKKKKKKKK»KKKKKKKKK##KKKKKKKKKKKKKKKKKKKKKKKKK»KKKKKKK 

double  precision  root  finder  5J3R0UTINE 

KKKKKKKKKKKKKKKKKKKKKKKKKKK»K»KKKKKKKKKKKKKKKKKKKKKKKKKKKKKK#KKKKKKKKKKK 


N N-1 

ROOTPSRS  FINDS  ONE  ROOT  UF  THE  POWER  SERIES  AX  * A X ♦,,,  kAXkA 

N N-1  10 

USING  NEWTON'S  METHOD  STARTING'  WIIH  AN  INITIAL  GUeSS  FOR  tHe  ROOT.  THe  ENTERING  DATA  MU«,T  Be  AS  FOLLOWS: 


A 

SP 

LOC-3 

L 

SP 

N-1 

MPAC 

OP 

X 

LOC-ZN 

OP 

A(0) 

f • • 

LOC 

OP 

A(N) 

L0C*2 

SP 

PRECROOT 

adres  for  referencing  PWr  COF  TABL 
N IS  the  degree  of  the  Power  series 
initial  guess  FnR  ROOT 


PREC  ROD  OF  ROOT  (AS  FRACT  OF  1ST  GUESS) 


THE  DP  RESULT  IS  LEFT  IN  MPAC  JPON  EXIT*  AND  A SP  COUNT  OF  THE  ITERATIONS  TO  CONVERGENCE  IS  LEFT  IN  MPAC*2* 
return  is  to  L0C(TC  POwRSERS)*!, 


PRECAUTION!  ROOTPSRS  MAKtS  NO  CHECKS  FOR  OVERFLOW  OR  FOR  IMPROPER  USAGE.  IMPROPER  USAGE  COULD 

preclude  convergence  or  require  excessive  Iterations,  as  a specific  example,  rootpsrs  forms  a derivative 


coefficient  table  by  MULTIPLYING'  each  A(I)  BY  I.  WHeRe  I RANGES  FROM  1 TO  N.  IF  AN  ELeMfNT  OF  THe  DERIVATIVE 
coefficient  table  = 1 or  > I in  magnitude,  only  the  excess  IS  retained,  rootpsrs  may  converge  on  the  correct 
ROOT  nonetheless.  BUT  It  may  take  an  excessive  number  of  iterations,  therefore  THe  user  should  ReCOGNIZe! 

1.  USER'S  responsibility  TO  ASSURE  THAT  I X Ad)  < i IN  MAGNITUDE  FOR  ALL  I. 

2,  user*s  Responsibility  to  assure  overflow  will  not  occur  in  evaluating  either  the  rfSidual  or  the  derivative 

power  series,  this  overflow  would  be  produced  3Y  subroutine  POWRSeRS.  called  by  rootpsrs,  and  might  not 

preclude  eventual  convergence. 


3,  AT  PRESENT.  ERASABLE  LOCATIONS  ARE  RESERVED  ONLY  FOR  N UP  TO  5.  AN  N IN  EXCESS  OF  5 l^ILL  PRODUCE  CHAOS, 
ALL  eRASABLeS  USeD  BY  ROOt^SRS  ARe  UNSWItCHeD  LOCATED  IN  tHE  REGION  FROM  MPAC-33  OCT  TO  MPAC+T. 


A.  the  iteration  count  Returned  in  mpac+2  may  be  used  to  detect  abnormal  performance. 


store  entering  data.  INITLIZE  ERASABLeS 


REF  1 
REF  1 

REF  312  LAST  836 
REF  1 


22.321A  0 OUO6  1 ROOTPSRS  EXTEND 

22.3215  22  122  0 OXCH  RETROOT 

22.32l<>  54  1.07  0 TS  PWRPTR 

22.3217  52  150  1 DXCH  MPAC  *3 

22.3220  3 3532  0 CA  DERTABLL 


RETURN  adres 
PWR  TABL  POINTER 
PWR  TABL  ADRES.  N-1 


^88954A  yJL  SySTEM  FOR  AqO;  NEw  pROGRiV.vi  SHEpAT 


L SECOND  DPS  GUIDANCE 


1018 

RCF 

1 

22*3221 

1019 

REF 

313 

LAST 

839 

22*3222 

1020 

REF 

31A 

LAST 

8A0 

22*3223 

315 

LAST 

102 1 

RtF 

8A0 

22  *322** 

1022 

REF 

2A7 

LAST 

830 

22*3225 

1023 

REF 

7 

LAST 

830 

22*3226 

A102A 

1025 

ccfiZZ f 

1026 

REF 

316 

LAST 

8A0 

22,3230 

1027 

REF 

1 

22*323l 

1028 

REF 

317 

LAST 

8A0 

22*3232 

1029 

22*3233 

1030 

REF 

10 

LAST 

825 

22*323A 

1031 

REF 

3 

LAST 

836 

22*3235 

1032 

REF 

1 

22*3236 

1033 

REF 

318 

LAST 

8A0 

22,3237 

103A 

REF 

1 

22,32A0 

A1035 


1036 

22,32Al 

1037 

REF 

2 

LAST 

839 

22,32A2 

1038 

22*32A3 

1039 

REF 

319 

LAST 

8A0 

22,32AA 

lOAO 

REF 

320 

LAST 

8A0 

22*32A5 

lOAl 

REF 

1 

22,32A6 

10A2 

REF 

170 

LAST 

809 

22,32A7 

10A3 

REF 

A 

LAST 

835 

22,3250 

lOAA 

22,3251 

10A5 

REF 

3 

LAST 

8A0 

22,3252 

10A6 

22*3253 

10A7 

REF 

321 

LAST 

8A0 

22*325A 

10A8 

REF 

2 

LAST 

8A0 

22  *3255 

10A9 

22*3256 

1050 

REF 

91 

LAST 

807 

22*3257 

1051 

REF 

A 

LAST 

8A0 

22*3260 

1052 

REF 

92 

LAST 

8A0 

22,3261 

1053 

1 n c / 

REF 

D CC 

3 

LAST 

8A0 

22,3262 

105A 

Ktr 

2 

LAST 

8A0 

22,3263 

1055 

A1056 

REF 

1 

22,326A 

1057  22*3265 

1058  REF  2 last  8A0  22*3266 

1059  REF  322  LAST  8A0  22*3267 


5A  i3l  0 
5<*  i5l  0 

10  150  1 
SA  152  0 
3 7'61  0 
5A  153  1 


0 0006  1 
3 OlA5  1 
52  117  1 

50  1A7  0 
3 0005  1 
0 7351  1 
0 5336  1 
0117A  1 
52  1A5  0 
52  115  0 


0 0006  1 

5 0107  1 

3 OOOA  0 
52  1A5  0 

3 0150  0 

5A  130  1 

6 7^55  1 

0 7367  1 
0 0006  1 
5 0107  I 

3 0002  0 
52  U5  0 
50  131  1 
52  OOA  1 
A 7f5A  1 
26  107  0 
A 7^5A  1 
26  131  0 
10  130  1 

1 3‘iA6  0 


0 0006  I 

3 0117  0 
52  1A5  0 


N By  EyLES 


DEC  13*  1966  (mAIN)  pA^E  8A0 


DERCLOOP 


ROOTLOOP 


USER'S  OWN  PAGf  NO.  27  EA 

TS  DErPTr  DEr  TABL  POinTEr 

TS  MPAC  *5  DER  TABL  ADRES 

CCS  MPAC  ♦A  NO  POWER  SERIES  OF  DEGREE  1 OR  LESS 

TS  MPAC  *b  N-2 

CA  zero  MODE  USED  AS  ITERATION  COUNTER.  MODE 

TS  mode  must  be  POS  SO  ABS  WON'T  COMP  MPAC.3  ETC 

COMPUTE  criterion  TO  STOP  ITERAIinG 


EXTEND 

DCA 

DXCH 

MPAC 

ROOTPS 

FETCH  ROOT  GUESa,  KEEPING 
AND  IN  ROOTPS 

IT 

IN 

MPAC 

INDEX 

CA 

MPAC  *3 

5 

PWR  TABL  ADRES 

precroot  to  a 

TC 

TC 

CADR 

SHORTMP 

USPRCADR 

ABS 

YIELDS  DP  PRODUrT  IN  MPAC 

YIELDS  ABVAL  OF  CRITERION 

ON 

DX 

IN  MPAC 

DXCH 

DXCH 

MPAC 

DXCRIT 

CRITERION 

SET  UP  DER  COF  TABL 

EXTEND 

INDEX  PWRPTR 

DCA  3 

DXCH  MPAC  AIN)  TO  MPAC 

CA  MPAC  ♦A  N-1  TO  A 

TS  PWRCNT  LOOP  COUNTER 

AD  ONE 

TC  DMPNSUB  YIELDS  DERCOF  s I X All)  IN  MPAC 

extend 

INDEX  PWRPTR 

DCA  1 

DXCH  MPAC  A(I-l)  TO  MPAC*  FETCHING  DERCOF 

INDEX  DERPTR 

DXCH  3 DERCOF  TO  DER  TaBL 

CS  TWO 

ADS  PWRPTR  decrement  PWR  PoINTfR 

CS  TWO 

ADS  DERPTR  DECREMENT  DER  POINTER 

CCS  PWRCNT 

TCF  DERCLOOP 

CONVERGE  ON  ROOT 


EXTEND 

DCA  ROOTpS  FETCH  CURRENT  RnOT 

DXCH  MPAC  LEAVE  IN  MPAC 


488954A  YJL  system  FOR  AgCj  NEW  PROGRAM  SMEPATIN  bY  EYLES 
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USER'S  OWN  PAGf  NO.  28  EA 


1060 

1061 

1062 

REF 

REF 

323 

1 

LAST 

8A0 

1063 

106A 

REF 

3 

LAST 

8A0 

1065 

REF 

32A 

LAST 

LAST 

8A1 

1066 

1067 

REF 

56 

836 

1068 

REF 

325 

LAST 

8A1 

1069 

REF 

2 

LAST 

8A1 

1070 

REF 

A 

LAST 

8A0 

1071 

REF 

3 

LAST 

836 

22.3270 

22.3271 

0 

0006 

0152 

1 

1 

3 

22.3272 

0 

7260 

1 

22.3273 

0 

0006 

1 

22.327A 

3 

0117 

0 

22,3275 

52 

U5 

0 

22.3276 

52 

121 

1 

22*3277 

0 

0006 

1 

22,3300 

3 

0150 

0 

22,3301 

0 

7260 

1 

22.3302 

0 

5336 

1 

22.3303 

00352 

0 

EXTEnD 

DCA  MPAC  +5  LOAD  A,  L WITH  nER  TABL  ADRESi  N-2 

TC  POWRSERS  yields  DERIVATIv/E  In  MPAC 

EXTEND 

DCA  ROOTPS 

DXCH  MPAC  CURRENT  ROOT  TO  MPAC.  FETCHING  DERIVTIVt 

DXCH  BUF  LEAVE  DERIVATIVE  IN  BUF  AS  DIVISOR 

EXTEND 

DCA  MPAC  *3  LOAD  A,  L WITH  PWR  TABL  ADRES.  N-1 

TC  PoWRSERS  yields  RESIDUAL  IN  MPAC 

TC  USPRCADR 

CADR  DDV/BDDV  YIELDS  -DX  IN  MPAC 


1072 

22.330A 

0 0006 

1 

EXTEND 

1073 

ref 

326 

LAST 

8A1 

22.3305 

A 01A5 

0 

DCs 

MPAc 

107A 

REF 

A 

LAST 

8A1 

22,3306 

20  117 

1 

DAS 

ROOTPS 

1075 

REF 

5 

LAST 

8A1 

22*3307 

0 5^36 

1 

TC 

USPRCADR 

0117A 

cadr 

1076 

RcF 

2 

L A S T 

8A0 

22  *3310 

1 

AtJS 

1077 

22.3311 

0 0006 

1 

EXTEND 

1078 

REF 

2 

LAST 

8A0 

22,3312 

A 0115 

0 

DCS 

DXCRIT 

1079 

REF 

327 

LAST 

8A1 

22.3313 

20  1A5 

0 

DAS 

MPAC 

1080 

REF 

8 

LAST 

8A0 

22*331^ 

2A  153 

0 

INCR 

MODE 

1081 

REF 

328 

LAST 

8A1 

22,3315 

10  lAA 

1 

CCS 

MPAC 

1082 

REF 

1 

22,3316 

1 3265 

1 

TCF 

ROOTLOOP 

1083 

REF 

1 

22.3317 

1 3521 

0 

TCF 

TESTLODX 

108A 

REF 

1 

22*3320 

1 3525 

1 

TCF 

ROOTSTOR 

1085 

REF 

329 

LAST 

8A1 

22.3321 

10  1A5 

0 

TESTLODX 

CCS 

MPAC 

1086 

REF 

2 

LAST 

8A1 

22,3322 

1 3265 

1 

TCF 

ROOTLOOP 

1087 

REF 

2 

LAST 

8A1 

22,3323 

1 3525 

1 

TCF 

ROOTSTOR 

1088 

REF 

3 

LAST 

8A1 

22.332A 

1 3525 

1 

TCF 

ROOTSTOR 

1089 

REF 

5 

LAST 

8A1 

22,3325 

52  117 

1 

ROOTSTOR 

DXCH 

ROOTPS 

1090 

REF 

330 

LAST 

8A1 

22,3326 

52  1A5 

0 

DXCH 

MPAC 

1091 

REF 

9 

LAST 

8A1 

22.3327 

3 0153 

0 

CA 

MODE 

1092 

REF 

331 

last 

8A1 

22.3330 

5A  1A6 

0 

TS 

MPAC 

1093 

REF 

2 

LAST 

839 

22,3331 

0 0122 

0 

TC 

RETROOT 

109A 

REF 

1 

22,3332 

00137 

1 

DERTABLL 

ADRES 

DERCOFN 

♦ 1 


♦ 2 


-3 


fetch  dx»  leaving  -dx  in  MPAc 
corrected  root  now  in  ROOTPS 

yields  A8S(Dx)  iN  mpac 

ABS(DX)-ABS(DXCrIT)  in  mpac 
increment  iteration  counter 
TEST  hi  order  Dx 


TEST  LO  ORDER  Dx 


STORE  DP  ROOT  IN  MPAC,  MPAC*1 
STORE  SP  ITERATION  COUNT  IN  MPAC*2 
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L 

P1095 

R1096 

R1097 

R1098 

RllOO 

RllOl 

RIIO2 

RllOA 

R1105 

R1106 

RU07 

RU08 

Rll09 

RlllO 

1111 

1112 

1113 

1114 

1115 

1116 

1117 

1118 

1119 

1120 
1121 
1122 

1123 

1124 


1125 

1126 

1127 

1128 

1129 

1130 

1131 

1132 

1133 

1134 


SECOND  DPS  GUIDANCE  USER»S  OWN  PAGF  NO,  29  E4 

General  purpose  subroutine  Fori  extrapolating  dummy  state  rdum,  vdum 

»»«»»»»*#«*  ♦nnnnnnnnnnnm*  ***»»  t #jnnnn* 

xtrdumst  reduires  the  extraRd-ation  Period,  initial  position,  initial  velocity,  initial  acceleration,  ueRk 
TOi  arrive  in  PDUM,  rdum,  VDUv),  ADUM,  udum, 

IT  leaves  the  extrapolated  State  tn  rdum,  vdum. 

presently  the  DUM  registers  are  locations  FIxLOC  +6  THRU  FIxLOC  *31  OCTAL,  AND  FIxLOC  +40  OCTAL  THRU 
FIXLOC  +45  octal. 


THE  E3NS  ARE  RDUM  = RDUM+VDUM  POU^+ADUM  PDUM  /2*JDUM  PDUM  /6, 

2 

VDUM  = VDUM+adUM  POUM^JDUM  PDUM  /2, 

they  are  programmed  as  rdum  = ((UDUM  PDUM/3+ADUM) PDUM/2^VDUM)PDUM*RDUM 
VDUM  z (JDUM  PDUM/2*ADUM)PDUM+VDUM 


REF 

4 

LAST 

834 

22,3333 

22,333A 

22,3335 

77745  1 

00007  0 

74205  0 

XTRDUMST  OLOAD 

OMP 

REF 

1 

22,3336 

05571  1 

ref 

2 

LAST 

833 

22,3337 

00025  0 

22,3340 

74255  0 

VAD 

REF 

2 

LAST 

836 

22,3341 

OOO4I  1 

REF 

5 

LAST 

842 

22,3342 

00007  0 

22,3343 

53362  0 

VSRl 

REF 

3 

LAST 

834 

22,3344 

00017  1 

REF 

LAST 

22,3345 

53361  0 

VXSC 

6 

842 

22 ,3346 

00007  0 

REF 

3 

LAST 

834 

22,3347 

00011  1 

REF 

4 

LAST 

842 

22,3350 

14011  1 

STODL 

REF 

7 

LAST 

842 

22,3351 

00007  0 

22,3352 

74362  0 

SR  IR 

REF 

3 

LAST 

842 

22,3353 

00025  0 

22,335A 

74255  0 

VAD 

REF 

3 

LAST 

842 

22,3355 

OOO4I  1 

REF 

8 

LAST 

842 

22,3356 

00007  0 

□ rc 

22,3357 

77655  1 

VAD 

Ktr 

4 

LAST 

842 

22,3360 

00017  1 

REF 

5 

LAST 

842 

22,3361 

00017  1 

STORE 

22,3362 

77616  0 

RVQ 

PDUM 

vxsc 

1/3DP 

UDUM 

VXSC 

ADUM 

PDUM 

VAD 

VDUM 

VAD 

PDUM 

RDUM 

RDUM  extrapolated  RDuM,  NO  RESTART  PROTECTION 


PDUM 

VXSC 

UDUM 

VXSC 

ADUM 

PDUM 

VDUM 

VDUM  extrapolated  VDiiM,  NO  RESTART  PROTECTION 


^8895^A  YJL  system  FOR  AGC;  NeW  PR0<JRAM  S^ePatIN  BY  e^LeS 


■^EC  13,  1966  (MAIN)  PAGe  8AJ 


L second  DPS  guidance  USER'S  OwN  pAQp  NO,  30 

PI  135  Kit  *)'«<****«**''»»«*»»*«  )(*«*»**#*  *»««*«***«<"(«* 

R1136  DJMMY  GRAVITY  SUBROUTINE 
R1 137 

R1138  G3UMCL  COMPUTES  GRAVITY  GIVEN  POSITION  IN  RDUM,  LEAVING  RESULT  IN  MPAC  AND  GOUM, 

RllAO  2 

RllAl  GOUM  s-MUEARTH  UNIT(RDUM)/( (ABVAL'RDUM) ) ) 


11A2  22*3363 

1U3  REF  5 LAST  8A2  22,336A 

lUA  22,3365 

11A5  REF  2 LAST  823  22,3366 

1146  22,336? 

1147  22,3370 

1148  REF  2 LAST  834  22,3371 

1149  22,3372 


57575 

1 GOUMCL 

VLOAO 

VCOMP 

ooou 

1 

RDUm 

74256 

0 

UNIT 

vxsc 

2II43 

1 

MUEARTH 

76541 

0 

V/SC 

VSLl 

00043 

0 

42 

OOO33 

1 

STORE 

GOUM 

77616 

0 

RVQ 

SHIFT  COMPENSATfS  FOR  SEMI-UNIT 


R1150 

R1151 

INTERPRETER  INITIALIZATION  SJ3R3UIINE 

R1152 

1153 

REF  31  LAST  820 

22,3373 

3 OHO  1 

PRETINIT  CA 

FIXLOC 

1154 

REF  1 

22,337A 

54  156  1 

TS 

PUSHLOC 

1155 

REF  248  LAST  840 

22,3375 

3 7?61  0 

CA 

ZERO 

1156 

REF  12  LAST  836 

22,3376 

54  111  1 

TS 

OVFINO 

1157 

REF  242  LAST  838 

22,3377 

0 0002  0 

TC 

0 

E4 
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L SECOND  DPS  GUIDANCE  USERtS  OwN  PAGE  NO.  31  EA 

PI  158 

RI159  Second  dps  target  parameters 


R 1 160 


R1161  parameter  table  indirect  ADD;TeSSeS 


1162  REF  I 

1163  rEF  I 

116A  REF  1 

1165  REF  1 

1166  REF  1 

1167  REF  I 


22«3A22  TTF/ANU  s TTF/ANOX 

22*3A23  ADS  = AOXS 

22*3A31  RDS  p ROXS 

22*3A37  VDS  = VOXS 

220AA5  JDS2  p J0XS2 

22*3AA7  MADP2  s MA0XP2 


R1168 

R1169  A consistent  SET  Of  UNITS  IS  jSED  THRuOuT  THE  SEcOND  DPS  GUIDANCE.  THESE  uNiTS  AREI 
R1171  TIME  2(  15)CS5  LENGTH  2(  2A)M{  ANGLE  2 ( 0)RAD. 


R1172  IGNITION  ALGORITHM  - PREBURN  PARAMETERS 


117A 

C117A 

1175 
C1175 

1176 


22,3900 

03213 

1 

PPHMl 

2DEC9 

*3.350000000 

E * 

3 

B 

22 .390 1 

OOUOO 

1 

22,3902 

OOUOO 

1 

PPHMICS 

2DEC9 

*3.350000000 

E * 

3 

B 

22.3903 

06926 

1 

22.3909 

00966 

0 

/AFC/CR 

2DEC9 

*2.965861098 

E . 

9 

B 

15  » 
28  * 
6 * 


C1176 

1177 
C1177 

1178 
C1178 

1179 
C1179 

1180 
C1180 

1181 


22.3A05  37fl7  0 

22,3A06  00567  0 PFCULLG  2DEC»  *7.500000000  E * 2 B - 15  * 

22.3A07  OOUOO  1 

22,3AlO  00U06  1 AFULLG  2DEC*  *6.079952099  E - 6 B * 6 » 

22,3All  13P57  1 

22.3912  00226  1 PFCLITE  2DEC#  *3.000000000  E * 2 B - 15  * 

22.3913  OOUOO  1 

22,3919  00U91  1 AFLITE  2DEC«  *3.198162867  E - 5 B * 69 

22»391S  21100  0 

22,39lS  02176  0 PFCTRIM  2DEC9  *2.300000000  E * 3 B - 15  » 


C1181  22,3a17  OOUOO  1 

1182  22,3920  OOOaI  1 AFTRIM  2DEC9  *3.202931538  E - 5 B * 6 9 

C1182  22,3421  22563  1 
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L 

P1183 

R118A 

1185 

1186 
C1186 

1187 

C1187 

1188 
C1188 

1189 
C1189 

1190 
C1190 

1191 
C1191 

1192 

C1192 

1193 
C1193 

119A 

C119A 

1195 
C1195 

1196 
C1196 


SECOND  DPS  guidance  USER'S  OWN  PAGf  NO,  32  EA 

parameter  table  for  burn  phases 


22*3A22  65^06  1 TTF/ANOX  DEC  -U125000000  E ♦ A B - 15  » 

22*3a23  770^6  0 AOXS  2DEC*  -8*572092116  E - 5 B ♦ 6 * 

22.3A2A  A3P35  0 

22.3A25  OOOOO  1 2DEC  0 

22*3A26  OOOOO  1 

22,3427  02376  1 

22.3430  359A1  1 

22.3431  14634  0 ROXS 

22.3432  00951  0 

22.3433  OOOOO  1 

22,343A  OOOOO  I 

22,3433  00255  0 

22.3436  00717  0 

22.3437  77^35  0 VOXS 


22'34A0 

66(16 

1 

22,3441 

OOOOO 

1 

2DEC 

0 

22,3442 

OOOOO 

1 

22,3443 

77024 

1 

2DEC4 

-9.160545259 

E 

- 7 

B * 

15 

22,344A 

46232 

0 

22,3445 

01260 

1 

J0XS2 

2DEC4 

*1.194804087 

E 

-15 

B * 

45 

22,3446 

30176 

1 

22,34A7 

01  (27 

1 

MA0XP2 

2DEC4 

*5.156859816 

E 

* 8 

B - 

33 

22,3450 

22  (63 

0 

2DEC#  *7.269884947  E -11  B ♦ 30  4 
2DEC4  *6.713370537  E * 6 B - 24  " 
2DEC  0 

2DEC4  *1,056080555  E - 2 B - 0 4 
2DEC4  -1,071382748  E * 0 B - 94 
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U 

1197 


1198 
C1198 

1199 
C1199 

1200 
C1200 

1201 

C1201 

1202 

C1202 

1203 

C1203 

120A 

C120A 

1205 
C1205 

1206 
C1206 

1207 
C1207 

1208 

C1208 


1209 

1210 
C1210 

1211 

C1211 

1212 

C1212 


SECOND  DPS  GUIDANCE 


22,3A5l  75‘*35  1 TTF/ANOT  3EC» 


22*3452  77/13  1 AOFS  2DEC* 

22*3453  45300  0 

22*345^  00000  1 2DEC 

22*3455  OOOOO  1 

22*3456  01357  1 2DEC» 

22*3457  27O66  1 

22*3460  14617  1 ROFS  2DEC# 

22*346l  11361  0 

22*3462  OOOOO  1 2DEC 

22*3463  OOOOO  1 

22*346A  00067  0 2DEC« 

22*3465  06341  1 

22*3466  77a6  1 VOFS  2DEC« 

22*3467  61241  1 

22*3470  OOOOO  1 2DEC 

22*3471  OOOOO  1 

22*3472  77354  0 2DEC« 

22*3473  43A10  0 

22*347^  00‘*41  0 J0FS2  2DEC4 

22*3475  31226  0 


22*3476  0H27  1 MA0FP2  2DEC# 

22*3477  22^63  0 


22*3500 

77a5 

1 

TTF/4NU1 

DEC# 

22*3501 

00U64 

0 

AIFS 

2DEC» 

22*3502 

34377 

0 

22*3503 

OOOOO 

1 

2DEC 

22*350A 

OOOOO 

1 

22*3505 

01360 

0 

2DEC* 

22*3506 

21617 

1 

Dec  13*  1966  (MAIN)  PAGE  846 


USER'S  OWN  page  NO.  33 
-2.500000000  E ♦ 3 B - 15  » 

-5.038447857  E - 5 B ♦ 6 1* 

0 

♦4.273045103  E -11  B ♦ 30  » 

♦6.700335070  E ♦ 6 B - 24  » 

0 

♦3.369214099  E - 3 B - 0 » 

-1.545589897  E ♦ 0 B - 9 * 

0 

-5.138853270  E - 7 B ♦ 15  » 

♦5.027062289  E -16  B ♦ 45  » 

♦5.156859816  E ♦ 8 B - 33  » 


-1,000000000  E ♦ 2 B - 15  » 
♦5.044035031  E - 5 B ♦ 6 * 
0 


E4 


♦4.277783493  E -11  B ♦ 30  * 
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L 

1213 

121A 

C12U 

1215 
C1215 

1216 
C1216 

1217 
C1217 

1218 
C1218 

1219 
C1219 

1220 
C1220 

1221 

C1221 

1222 

C1222 

1223 

C1223 

122A 

C122A 


1225 

1226 
C1226 

1227 
C1227 

1228 
C1228 


SECOND  DPS  guidance 


22,3507  7^>50  1 TTF/ANU2 


22,3510 

00413 

25223 

00000 

ooooo 

1 

A2FS 

22,351^ 

22.3512 

22.3513 

0 

1 

1 

22,351A 

00636 

1 

22,3515 

14712 

0 

22,3516 

14602 

0 

R2FS 

22,3517 

17A21 

0 

22,3520 

ooooo 

1 

22 ,352l 

OOOOO 

1 

22,3522 

ooooo 

1 

22,3523 

06001 

0 

22,3524 

77774 

0 

V2FS 

22,3525 

45220 

0 

22,3526 

ooooo 

1 

22,3527 

ooooo 

1 

22,3530 

77  764 

1 

22,3531 

43A37 

1 

22,3532 

74i37 

1 

J2FS2 

22,3533 

67600 

0 

22,3534 

01727 

1 

MA2FP2 

22,3535 

22  763 

0 

22,3536 

77602 

0 

TTF/4NI 

22,3537 

OOOOO 

1 

A3FS 

22,3540 

OOOOO 

1 

22,3541 

OOOOO 

1 

22,3542 

OOOOO 

1 

22,3543 

00654 

0 

22,3544 

37552 

1 

DEC# 

2DEC» 

2DEC 

2DEC# 

2DEC# 

2DEC 

2DEC# 

2DEC# 

2DEC 

2DEC# 

2DEC# 

2DEC# 

DEC# 

2DEC# 

2DEC 

2DEC# 
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USER'S  OWN  PAGf  NO.  34  E4 

-3.375OOOOOO  E ♦ 3 B - 15  # 

♦1.331951587  E - 4 B ♦ 6 * 

0 

♦1.991810043  E -11  B ♦ 30  # 

♦6.687217073  E ♦ 6 B - 24  * 

0 

♦1.144811884  E . 5 B . 0 # 

-1.198407174  E - 1 B - 9 * 

0 

-2.215170344  E - 8 B ♦ 15  « 

-3.386627333  E -15  B ♦ 45  » 

♦5.156859816  E ♦ 8 B - 33  4 

-2.500000000  E ♦ 2 B - 15  # 

♦1.536879692  E -13  B ♦ b * 

0 


♦2.438530673  E -11  B + 30  # 
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L SECOND  DPS  GUIDANCE  USER'S  OWN  PAGf  NO,  35  EA 

PI  229  )(*»»»*nnnnnnnnnnnn***inn* 

R1230  SECOND  DPS  CONSTANTS 


R1231  « It  «<t*#4(#*«*»*#*««*******M^#«A  It  »*»«*#**«***  »»4t****ttM***»***4t  #«#*#«**»***«« 


R1232  ADDRESS  CONSTANTS 


1233 

REF 

3 

LAST 

817 

22,35A5 

02OOO 

0 

E2DPSL 

ECADR 

E2DPS 

123A 

REF 

A 

LAST 

8A8 

EA 

EBANK= 

E2DPS 

1235 

C1235 

REF 

22,35A5 

02033 

aaooa 

0 

IGNALGL 

2BCADR 

IGNALG 

1 

22 ,35A7 

0 

R1236 

A1237 

FOR  accessing  ErANK  OF  2DPS 


THE  NEXT  TWO  COmSTANTS  MUST  BE  <EPT 


A1238 

1239  REF  8 last  825  22,355©  01^36  1 TABLTTFL  ADRES  TABLTTF  *3 

12AO  22,3551  00U02  0 DEGTTF-l  OCT  2 


12A1 

REF 

1 

12A2 

C12A2 

12A3 

REF 

REF 

1 

2 

LAST 

8A8 

22 .3552 

22.3553 

12AA 

C12AA 

12A5 

12A6 

REF 

REF 

1 

16 

LAST 

796 

22 ,355A 

22.3555 

22.3556 

EA 

EBANK= 

EMPllUOB 

O2O25  1 

RETPREBL 

2BCADR 

RETPREB 

7A06A  0 

EA 

EBANK= 

EMPllJOB 

O2I72  1 

RETBURNL 

2BCADR 

RETBURN 

7A06A  0 

E5 

EBANKs 

ETHROT 

03577  1 

THROTCOL 

2BCADR 

THROTCON 

IN  order  and  adjacent 

ADRES  TO  REF  TTF  TABL 
DEGREE-1  OF  TTF  POWER  SERIES 


C12A6  REF  1 22,3557  60U65  1 

R12A7 

R12A8  arithmetic  FRACTIONS  AND  INTEGERS 


12A9  REF  23  LAST  630 
R1250 

1251 

1252 

1253 
125A 


22.3560 

22.3561 

22.3562 

22.3563 


1255 

1256 

1257 

1258 


22,356A 

22.3565 

22.3566 

22.3567 


1259 
C1259 

1260 
1261 
1262 

C1262 

1263 


22.3570 

22.3571 

22.3572 

22.3573 
22,357^ 
22,3575 

REF  1 


126a  22*3575 

1265  22,3577 

C1265  22,3600 

R1266 


77A2 

OOOlO  0 
OOOOO  1 
00000  1 
77777  0 

77777  0 
OOOOO  1 
OOOOO  I 
00310  0 

12525  0 
12525  0 
IAOOO  1 
22O00  1 

25252  0 

25253  1 
22'357A 

30O00  1 
31103  1 
36552  0 


TSCALE 

TSCALINV 

ZEROPOS 

ZERONEG 

e 

OCT 

OCT 

OCT 

OCT 

BIT12 

00010 

OOOOO 

OOOOO 

77777 

OCT 

77777 

DCT 

OOOOO 

PIGNALG 

OCT 

OOOOO 

DEC 

♦2  E +2  B 

1/3DP 

2DEC 

,3333333333 

SP3/8 

OCT 

,3  BIA 

SP9/16 

OCT 

,AA  BIA 

2/3DP 

2DEC 

,6666666667 

20PS2/3 

2/3DP 

SP3/A 

n T / A 

OCT 

.6  BIA 

Lo  order  part  of  tscalinv,  and 

FIRST  COMPONENT  OF  ZERO  VECTOR 


last  COMPONENT  OF  ZERO  VECTOR,  ANd 

HI  order  part  Of  pignalg,  trip  units 
LO  order  part  of  pignalg,  tpip  units 
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R1268  VARIOUS  TEMPORARY  TEST  ROUtINES  FUR  SUBROUTINES  CONTRIBUTED  bY  2DPS 
R1269  »»#»»»»#»««##«###»##»»<*«*»»«»»»»»»««#«»«#»»<»**#)*»»«»»##*««»»#«»»»##»»»«» 


R1270  test  ROOTPSRS  ON  5TH  DeGReE  POWER  SERIES 


1271 

22,3601 

0 0U06 

1 RUTTEST 

EXTEND 

1272 

REF 

1 

22  * 3602 

3 3^27 

1 

KU 1 INi 1 

1273 

REF  332  LAST  8A1 

22,3603 

52  U5 

0 

dxch 

MPAC 

127A 

22,360A 

0 0U06 

1 

EXTEND 

1275 

1276 

ref 

REF 

1 

1 

22.3605 

22.3606 

3 36A6 
0 3<:iA 

0 

0 

OCA 

TC 

ruttabll 

ROOTPSRS 

R1277  TEST  POLY  ON  SIN  30  DEGREES 


1278  REF  97  LAST  837  22»3607  0 6i03  0 POLYTEST  TC  INTPRET 

1279  22»36lO  73PA5  1 OLOAD  SIN 


1280  REF 


22*3611  05P50 


QTSTPOLY 


R1281  TEST  JSEPRET  ON  V/SC 


1282 

REF 

6 

LAST 

827 

22,3612 

26111 

1 

STOVL 

RC 

1283 

REF 

1 

22,3613 

05511 

1 

A2FS 

1284 

REF 

9 

LAST 

826 

22,36H 

02113 

0 

STORE 

RS 

1285 

22,3615 

77F76 

1 

EXIT 

1286 

REF 

1 

22,3618 

3 3853 

1 

CA 

0CT1/2L 

1287 

REF 

1 

22,3617 

54  106 

1 

TS 

ADDRWD 

1288 

REF 

1 

22,3620 

0 5326 

0 

TC 

USEPRET 

1289 

REF 

1 

22,3621 

0 7850 

0 

TC 

V/SC 

1290 

REF 

98 

LAST 

849 

22,3622 

0 6103 

0 

TC 

INTPRET 

1291 

REF 

17 

LAST 

626 

22,3623 

02121 

1 

store 

VS 

1292 

22,3624 

ndb 

1 

exit 

1293 

REF 

171 

LAST 

840 

22,3625 

3 7F55 

1 

END2DPST  CA 

ONE 

R129A  temp  constants  FOR  TESTS 


1295 

1296 

1297 

1298 

1299 

1300 

1301 

1302 

1303 


22,3626 

3OOOO 

1 

RJTINIT  OCT 

.6  B14 

22,3627 

00000 

1 

OCT 

0 

22,3630 

ooooo 

1 

OCT 

0 

22,3631 

00000 

1 

OCT 

0 

22,3632 

00040 

0 

OCT 

♦.001  B14 

22,3633 

OOOOO 

1 

OCT 

0 

22,363^ 

OOOOO 

1 

OCT 

0 

22,3635 

ooooo 

1 

OCT 

0 

22,3636 

76577 

0 

OCT 

-.024  B14 

EA 
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L SECOND  DPS  GUIDANCE 

130A 

1305 

1306 

1307 

1308 

1309 

1310  REF  1 

1311 

1312 

C1312 

1313 
13U 

1315  REF  1 


.3637  OOUOO  1 DCT 

.36A0  DOOOO  1 OCT 

.3641  00000  1 OCT 

.364^  04000  0 RJTTABL  OCT 

.3643  OOOOO  1 OCT 

.3644  OOOOl  0 RJTPREC  OCT 

.3645  03P37  0 RJTTABLL  ADRES 

.3646  00O04  0 OCT 

.3647  02525  1 OTSTPOLY  2DEC 

.3650  12525  0 

.3651  20000  0 OcTl/2  OcT 

.3652  OOOOO  1 OCT 

.3653  03651  0 0CT1/2L  ADRES 


22 

22 

22 

22 

22 

22 

22 

22 

22 

22 

22 

22 

22 
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0 

0 

♦.100  BU 
0 


RUTTABL  -3 
4 

.0833333333 


.4  b14 
0 

OCTl/2 


USER'S  OWN  PAGE  NO.  37 


E4 
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L 

ROODS 

ROOlO 

R0015 

R0020 

R0025 

R0030 

R0035 

0125 

0130 

0135 

0136 

0137 
OUO 
01A5 
0150 
0155 
0160 

0165 

0170 

0175 

0180 

0185 

0190 

0195 

0200 

0205 

0210 

0215 

0220 

0225 

0230 

0235 

02A0 

02A5 

0250 

0255 

0260 

0265 

0270 

0275 

0286 

0287 

0290 

0300 

0305 

0310 

0311 

0312 
03121 


p^ebjrn  For  aps2  user's  own  paGf  no.  i 

PREAPS2  IS  A program  WHICH  INITIALIZES  »«ASCENTih»  FOR  THE  2ND  APS 
BJRN.  n USES  RN  AND  VN(TIG),  PROVIDED  BY  MIDTOAVE  THROUGH  MPl3.  TO  COM- 
PUTE the  p.  Q.  and  s axes  for  transformations,  Sets  3 switches  for  pro- 
per MOOING  OF  ascent,  AND  tRA'ISFe^S  DATA  FRoM  FIXED  TO  ERASABLE  FOR  USE 
AS  NOMINALS  at  TIG. 

It  calls  ascent  once  to  provide  ut  At  ignition,  and  then  Resets  the 
EXIT  FROM  ascent  TO  GO  TO  FlNOCOUU  ON  SUBSEQUENT  ASCENT  ENTRIES, 


ref 

3 

LAST 

658 

REF 

1 

REF 

3 

LAST 

766 

REF 

I 

REF 

99 

LAST 

8a9 

REF 

A 

LAST 

817 

REF 

15 

LAST 

829 

ref 

lA 

LAST 

829 

REF 

3 

LAST 

658 

REF 

7 

LAST 

788 

REF 

1 

REF 

8 

LAST 

851 

REF 

1 

ref 

3 

LAST 

658 

REF 

A 

LAST 

851 

REF 

A 

LAST 

851 

REF 

1 

REF 

2 

LAST 

658 

REF 

1 

REF 

2 

LAST 

658 

REF 

2 

LAST 

658 

REF 

2 

LAST 

658 

REF 

1 

REF 

3 

LAST 

658 

REF 

3 

LAST 

661 

REF 

1 

REF 

2 

LAST 

658 

REF 

2 

LAST 

658 

REF 

1 

REF 

1 

32*2000 

EA 


32,2000 

53'‘*A7 

0 

32,2001 

3 5P62 

0 

32,2002 

55'‘*51 

1 

32.2003 

0 6103 

0 

32,200A 

77P2A 

1 

32,2005 

603A7 

1 

32,2006 

77775 

1 

32,2007 

OlOll 

0 

32*2010 

53‘*35 

0 

32,2011 

01U17 

0 

32,2012 

02U15 

1 

32,2013 

76‘*35 

1 

32,201A 

OIU33 

0 

32,2015 

63361 

0 

32,2016 

2A072 

1 

32,2017 

OIO33 

0 

32,2020 

51361 

1 

32,2021 

2A07A 

1 

32,2022 

77626 

0 

32,2023 

75770 

0 

32,202A 

76‘*35 

1 

32,2025 

02O15 

1 

32,2026 

26001 

1 

32,2027 

2A076 

0 

32,2030 

26023 

1 

32,203i 

2A10A 

1 

32,2032 

16031 

1 

32,2033 

26517 

0 

32,203A 

26037 

1 

32,2035 

2A112 

0 

32,2035 

020A1 

0 

32,2037 

77731 

1 

32,20A0 

02051 

1 

32,20A1 

5A053 

0 

32,20A2 

A3OIA 

0 

32,20A3 

01A7A 

1 

32,20AA 

01675 

1 

32,20A5 

A3OIA 

0 

32 ,20A6 

02263 

1 

32,20A7 

02061 

1 

PREAPS2 


SANK 

EBANK= 

OXCH 

CA 

TS 

TC 

32 

PAXISl 

RRETURN 

PRI021 

LAMPRIO 

INTPRET 

GIVE  LAMBERT  A hIGHeR  PRIORITY 
ASCENT,  SO  IT  WtLL  FINISH, 

than 

call 

VPATCHER 

VLOAD 

RN 

LOAD  RN»2(N-29) 

vxv 

UNIT 

RN  X VN*2(N-36) 

VN 

SAxIS*2 (-1 ) 

STORE 

SAXIS 

STORE  SAXIS 

vxv 

VSLl 

S X UR«2(-2)=OU2(-2)  , NORM  TO 

S AND  R 

UNITR 

01»2 (-1) 

VXSC 

PDVL 

QU  C0S27**2(-1) 

C0S27 

IN  PDL(0)m2(-1) 

UNITR 

LOAD  UR#2(-1) 

VXSC 

BVSU 

UR  SIN27«2(-1) 

SIN27 

Q1  C0S27-UR  SIN?7  = Q 

stadr 

store 

QAXIS 

STORE  QAxIS 

vxv 

VSLl 

Q X S»2(-2)  ; P«2(-2) 

SAXIS 

P»2 (-1) 

stovl 

PAXISl 

STORE  PAXIS 

ENGNOM 

LOAD  NOMINAL  AT,  1/VE,  TBUP 

STOVL 

AT 

STORE  IN  ERASE 

PREIGN 

LOAD  NOM,  1/DV2.1/DV1 ,KK 

STOOL 

ATMEAS 

STORE  IN  ERASE 

DPO 

LOAD  0 

STOVL 

KRl 

STORE  IN  KRl 

VCONOM 

LOAD  NOM,  RD0TD,YD0TD,ZU0TD 

STORE 

ROOTD 

STORE  IN  ERASE 

SSP 

ASCRET 

PRAPS 

LOAD  return  add.  FROM  ASCENT 

SET 

CLEAR 

DIRECT 

DIRECT=l 

PASS 

PASSsO 

CLEAR 

Set 

CLEAR  GUESSW  FOR  NO  COGAVAIL 

GUESSW 

DONESW 

TO  START  LAMBERT 

48895AA  yJL  SySTEM  POR  AcCi 


L 

PREBURN 

For 

APS2 

0315 

0320 

REF 

3 

LAST 

658 

0325 

REF 

3 

LAST 

658 

0330 

0331 

REF 

2 

LAST 

659 

03315 

REF 

REF 

2 

LAST 

LAST 

851 

0332 

5 

830 

0333 

REF 

3 

LAST 

685 

0334 

REF 

10 

LAST 

694 

0335 

0336 

REF 

1 

0338 

REF 

4 

LAST 

851 

0339 

RtF 

2 

LAST 

147 

03391 

REF 

2 

LAST 

851 

0340 

0342 

REF 

2 

LAST 

851 

0344 

0345 

REF 

37 

LAST 

782 

C03A5 

0350 

C0350 

0355 

C0355 

0360 

C0360 

0365 

C0365 

0370 

C0370 

0375 

C0375 

0380 

C0380 

0385 

C0385 

0390 

C0390 

0395 

C0395 

OAOO  REF  4 LAST  852 

0405  REF  5 LAST  852 

0419  REF  5 LAST  851 

0420  REF  5 LAST  832 


pROGRAvi  SHEpATiN  By  EyLES 


205°  52^14  0 clear 

2051  01676  1 

2052  64120  0 

2053  43I75  0 PRAPS  (/LOAD 


205A  02^57  1 

2055  02^63  0 

2056  25656  0 STOVL 

2057  26»15  1 

2060  01664  1 store 

2061  77^6  1 EXIT 

2062  3 2117  1 CA 

2063  55*'*50  0 TS 

206A  3 5661  0 CA 

2065  55«A51  1 TS 

2066  0 0006  1 EXTEND 

2067  3 1447  1 OCA 

207O  52  006  0 OXCH 


2071  34AO6  1 C0S27  2DEC 

2072  10015  1 

2073  16‘*16  0 SIN27  2DEC 

207A  05613  0 

2075  05204  1 ENGNOM  2DEC 

2076  04‘*11  1 


2077  20a2  1 2DEC 

2100  37674  0 

2101  27032  0 2DEC 

2102  21513  0 

2103  00000  1 PREIGN  2DEC 

2104  00000  1 

2105  00000  1 2DEC 

2106  OOOOO  1 

2107  20000  0 2DEC 

2110  OOOOO  1 

2111  OOOOO  1 VCONOM  2DEC 

2112  OOOOO  1 

2113  22363  1 2DEc 

211A  06315  0 

2115  05OOO  1 2DEC 

2116  OOOOO  1 

33f2514  DP, 5 s 

33»2516  DPO  = 

E4  EBANK= 

*2117  60643  0 CDUFAD  FCADR 


NEW 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32. 


dec  U,  1966  (MAIN)  pA(3E  852 


GOTO 

HC 

ASCENT 

SET 

UT 

GUESSW 

POINTVSM 

BODyVECT 

SCAXIS 

CDUFAD 

A5CRET 

PRI017 

LAMPRIO 

RRETURN 

Z 

.89100652 

,45399050 

3.20928237E-4B9 

.0330009301B4 


94420,41148-17 

0 

0 

.5 

0 


73.9B-7 

20B-7 

BODYVECT 
BODYVECT  +2 
PAXISl 
FINDCDUD 


USER'S  OWN  page  no.  2 E4 


HCsO 


GO  TO  ASCENT  EQUATIONS 

LOAD  DES,  THRUST  VECTOR 
SET  GUE5SW  FOR  rOGAvAIL 
STORE  FOR  CALCMANU 
LOAD  UNIT  X-AXIa 
STORE  FOR  CALCMaNU 

SET  UP  FOR  normal  ExIT  FROM  ASCENT  TO 
FINDCDUD 

GIVE  LAMBERT  A lOWEr  PRIORITY 


GO  BACK  TO  MP13 


AT#2 (9) 

(1/VE)#2(4) 

TbUP42(-17) 

NOMINAL  (1/DV2)«*2(  ) 

NOMINAL  (1/DV1)#2(  ) 

KR«2(-1)  FOR  APS2 
RD0TD#2 (-7) 


488954A  YJL  SYSTEM  FOK  AGCi  NEW  PROGRAM  SMePATIN  BY  EYLES 


DEC  13,  1966  (MAIN)  PAGE  85B 


ASCENT  steering 


USER'S  OWN  PAGF  NO.  1 


ROOOOOl  PROGRAM  NAME— ASCENT  3Y--BERMAN 

R000002  ascent  is  an  e-guidance  scheme  which  produces  a desireD  unit  thrust  Vector  during  a«;Cent  burns,  with  tHe 
Roooooa  current  State  and  estimated  tjO.and  estimated  vcn  (velocities  in  ascent  are  defined  in  i ocai  vertical  systems), 
R000006  Rco  IS  estimated,  this  enables  the  lambeRt  subroutine  to  solve  for  a Better  vco.  this  and  v allow  us  to  improve 
R000008  the  estimate  of  TGO,  finally,  TSO  and  the  DeSIReD  changes  in  R and  V are  used  to  compute  UT. 

ROOOOl  mooing  switches 

Rooooil  HC— IF  0»  ABVAL(RCO)  IS  CONSTRAINED  TO  A SPECIFIED  VALUE—  IF  1,  ABVAL(RCO)  IS  NOT  CONSTRAINED,  BUT  IS 

R000013  ESTIMATED, 

ROOOOU  PASS-.  IF  0*  USE  LAMBERT  TO  UPDATE  VCO—  IF  I,  SKIP  LAMBeRT.  PASS  IS  INVERTED  EVERY  ENTRY  TO  ASCENT,  THUS 

R000016  LAMBERT  IS  USED  eVeRY  OIHER  ENTRY, 

Roooon  direct—  if  O,  specified  INUeCTION  conditions  are  used  and  PASS  IS  Set  permanently  to  I after  the  first 

R000019  entry—  if  1,  Lambert  is  used  for  targeting  under  control  of  pass. 


R000021  calling  sequence 

R000022  ASCENT  IS  entered  IN  INTERPRETIVE  BY 

A0OOO23 

A00002A 


30T0 


ASCENT 


ROOOO25  NORMAL  EXIT 

R000026  NORMAL  EXIT  FROM  ASCENT  IS  BY 

A000027 

A000028 


GOTO 


ASCRET 


R000029  WHERE  THE  PREAPS  PROGRAM  PUTS  A RETURN  ADOReSS  In  ASCRET  FOR  THe  FIRST  (PRE-IGNItION)  ENTRY,  AND  THEN  STORES 
R000031  FINDCDUD  in  ASCRET  SO  THAT  SJJSEQDeNT  EXITS  WILL  BE  TO  FINDCDUD, 

R000039  DEBRIS 

ROOOOA  USES  118  erasable  lOcATIONS  CURRENTLY  ASSIGNEq  TO  AmEmORY  THRU  AmEMORY  ♦117.  (SEE  PG.  32  Op  SUNBURST  FOR 
R0000A2  VARIABLE  NAMES. 

R0000A3  RESERVED  LOCATIONS 

ROOOOAA  the  FOLLOWING  AA  LOCATIONS  MUSI  NOT  BE  DISTURBED  DURING  MPl3  OR  MPa  — PAX  I SI ,QAX I S, SAXI S , ATMeAS ,RDOtD , YDOTD . 
ROOOOA6  ZOOTD.RCO, TGO, PCONS, PRATE, tint. TRLF.YCONS, ASCRET.  THE  REMAINING  7A  LOCATIONS  MAY  BE  USED  BETWEEN  EXIT  FROM 

R0000A8  ascent  and  re-entry  into  the  thrust  magnitude  filter,  atmag, 

FORM  gravity  SCALED  2(lO)M/CS/CS  FROM 
GDTl/2  SCALED  2(-7)M/CS 

LOAD  XI  WITH  -5  (OLD  NSHIFT  CONTENTS) 


00008 

000081  REF 
0001 

0002  REF 

0003  REF 
OOOA 

000A5 

1 

2 

1 

LAST 

788 

32.2120 

32.2121 

32.2122 

32.2123 
32,212A 

32*2120 

EA 

70575  1 ASCENT 
01065  0 

2A653  1 

50560  1 

00005  1 

BANK 

EBANKs 

VLOAD 

AXC,1 

32 

TCO 

V/SC 

GDTI/2 

2SEC(18) 

DOT 

5 

0005 

REF 

9 

LAST 

851 

32,2125 

01033  0 

UNITR 

0006 

32,2126 

A7515  0 

PDVL 

VXV 

0007 

REF 

10 

LAST 

853 

32,2127 

OIO33  0 

UNITR 

0008 

REF 

15 

LAST 

851 

32,2130 

01017  0 

VN 

0009 

32,2131 

53''06  0 

PUSH 

UNIT 

0010 

REF 

1 

32,2132 

25(25  0 

STOVL 

UNNORM 

0011 

32,2133 

56236  0 

V5Q 

DDV 

0012 

REF 

5 

LAST 

788 

32,213'' 

010A7  0 

RMAG 

OOlA 

32,2135 

A3552  1 

SLl 

DAD 

G,URX2 (9) =GRX2 (9) 

STORE  IN  PDL(O) 

LOAD  UNITR»2(-I) 

UR*2(-1)  X VN#2 (-7) =H/R#2 (-8) 
STORE  H/R  IN  PDl  (2),  GET  UH»2(-1) 
STORE  UH  IN  UNNoRM,  LOAD  H/R 
H(2)/R(2)t2(-I6l 
H(2)/R(3)«2(9) 


^8895^A  yJL  SySTEM  FOR  AqC  J NEw  pROGRA.vi  S^lEpATIN  BY  Eyl-ES 


L ascent  steering 

00142 

0015  REF  2 LAST  658 

0016  REF  11  LAST  853 

0017 

0018  REF  4 LAST  851 

0019  REF  1 

0020 

0021  REF  5 LAST  85A 

0022 

0023  REF  12  LAST  854 

0024 

0025  REF  16  LAST  853 

0026  REF  3 LAST  658 

0027  REF  2 LAST  854 

0028 

0029  REF  17  LAST  854 

0030  REF  2 LAST  658 

0031  REF  3 LAST  854 

0032 

0033  REF  13  LAST  854 

0034  REF  1 

0035 

00351  REF  18  LAST  854 

0036  REF  2 LAST  658 

0037 

0038 

0039  REF  5 LAST  851 

0040 

0041 

0042  REF  1 

0043 

0044  REF  1 

0045 

0046  REF  1 

0047 

0048  REF  4 LAST  658 

0049 

0050  REF  14  LAST  854 

0051  REF  6 LAST  854 

0052  REF  1 

0053 

0054  REF  1 

0055 

0056  REF  1 

0057  REF  2 LAST  854 

0058 

0059  REF  5 LAST  854 

00591 

00592  REF  5 LAST  690 

00593  REF  1 


.2135  77526  0 STAOR 

.2137  51566  0 STOVL 

,2140  01^33  0 

.2141  53'*35  0 YXV 

.2142  02^07  1 

.2143  02^77  0 STORE 

.214A  ST'fSS  1 YXV 

.2145  02*^07  1 

.2146  63372  1 YSLl 

.2147  OIU33  0 

.2150  72“^!  0 50T 

.2151  01^17  0 

.2152  261A7  1 STOVL 

.2153  02^77  0 

.215^  72‘*41  0 OOT 

.2155  01V17  0 

.2156  26105  1 STOVL 

.215^  02^77  0 

.2160  76^*35  1 VXV 

.2161  OIV33  0 

.2162  02071  0 STORE 

.2163  72'*41  0 OOT 

.216‘f  01017  0 

.2165  26067  1 STOVL 

.2165  00001  0 

.2167  b2‘»41  1 OOT 

.2170  O2OI5  1 

.2171  53‘»06  0 PUSH 

.2172  41206  0 PUSH 

.2173  24651  0 

.217‘>  41215  1 OAD 

.2175  24561  0 

.2176  41215  1 OAD 

.2177  26515  1 

.2200  72405  0 OMP 

.2201  02375  1 

.2202  50315  0 pDvL 

.2203  01033  0 

.2204  O2OO7  1 

.2205  O2I5I  0 STORE 

.2206  41316  0 OSO 

.2207  24565  1 

.2210  41215  1 OAD 

.2211  24563  1 

.2212  O2I5I  0 

♦2213  42405  0 OMP 

.2214  02375  1 

.2215  45325  1 PDDL 

.2215  02350  0 

.2217  24567  0 


32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 


DEC  13.  1956  (mAIN)  pAQE  854 


GEFF 

UNITR 

UNIT 

OAXIS 

ZAXIS 

VCOMP 

QAXIS 

PDVL 

UNITR 

SLl 

VN 

ROOT 

ZAXIS 

SLl 

VN 

ZDOT 

ZAXIS 

VSLl 

UNITR 

LAXIS 

SLl 

VN 

YDOT 

OOD 

SL2 

SAXIS 

DSQ 

OMP 

DP3/80 

DMP 

1/12TH 
DMP 
DP, 5 
SLl 

RCO 

OOT 

UNITR 

QAXIS 

RY 

DMP 

DP2/3H 
DMP 
DP, 25 
RY 

SL4 

RCO 

DSU 

TOO 

DTASC 


USER'S  OHN  PAGp  NO,  2 


E4 


STORE  GEFFX2 (9) (POS  UP) 

LOAD  URX2(-1) 

URX2(-1)XQX2(-1)=ZAXISXSIN 
ZAXISX2 (-1) 

STORE  ZAXIS 

ZAXISX2 (-1)XQAXISX2 (-1) =-MAXISX2(-2) 
MAXISX2 (-2) 

MAXISX2<-1)  IN  PDL(O)  5 

LOAD  URX2(-1) 

URX2  (-1) ,VX2 (-7) =VRX2 (-8) 

SHIFT  TO  VRX2(-7) 

STORE  IN  ROOT 

LOAD  ZAXI5X2<-1) 

ZAXISX2(-1),VX2(-7)=ZD0TX2(-8)  (5 

SHIFT  TO  ZD0TX2(-7) 

STORE  IN  ZDOT 
LOAD  ZAXISX2(.li 
Z42(-1)XUR42(-1)=LAXIS#2(-2) 
shift  to  LAXIS«?(-1) 

STORE 

LAXIS, VNsYD0T#2(-e) 

SHIFT  TO  YD0T42(-7) 

STORE  IN  YDOT 

LOAD  mAXISX2(-1i 

MAXISX2 (-1) ,SX2 (-l>5RiX2 (-2) 


SHIFT  TO  RZ 

STORE  RZ  IN  PDL(6)  8 

STORE  RZ(2)  IN  PDL(8)  l^' 

3/80RZ(2) 

1/I2t3/80RZ(2) 

RZ<2)/12*3Z80RZ(4)  8 

1/2*RZ(2)/1243/b0RZ(4) 

RZ(,,.)  5 

ZX2(N-31) 

SHIFT  TO  ZX2(N-30) 

STORE  Z IN  PDL(6)  “ 

LOAD  URX2(-1) 

URX2(-1) ,QX2{-l);RYX2(-2) 

STORE  IN  RY 

RY(2)X2(-4)  (8 

RY (2) /24 


1/4+RY (2) /24 
RY  (1*RY  (2) /6) /16 

RCORY ( 1*RY (2) /6) X2 (N-34) =YX2 (N-34) 
YXZ(N-30) 

STORE  IN  PDL(8)  1^ 

LOAD  TG0t2(-17) 

(TG0-DT)»2(-17) 


^8895^A  yJL  SYSTEM  FOR  AGC ; NEW  PROGRAM  SMEPATIN  BY  EYLES 
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0060 

REF 

6 

LAST 

85A 

32,2220 

02350 

0 

STORE 

0061 

32,2221 

71A1A 

0 

30FF 

0062 

REF 

A 

LAST 

852 

32,2222 

01  ^56 

1 

0063 

REF 

1 

32,2223 

5A233 

1 

006A 

REF 

9 

LAST 

85A 

32,222A 

021A7 

1 

0065 

32,2225 

A1215 

1 

OAD 

0066 

REF 

A 

LAST 

851 

32,2220 

02OA1 

0 

0067 

REF 

7 

LAST 

855 

32,2227 

02350 

0 

0068 

32,2230 

A33A2 

0 

SRI 

0069 

REF 

6 

LAST 

853 

32,2231 

01OA7 

0 

0071 

REF 

6 

LAST 

85A 

32,2232 

02375 

1 

STORE 

00711 

32,2233 

A3'31A 

0 

HOLDR 

BON 

00712 

REF 

3 

LAST 

851 

32,223A 

01  aA 

1 

00713 

REF 

1 

32,2235 

6A‘:50 

1 

0071A 

REF 

3 

LAST 

851 

32,2236 

01  as 

0 

00715 

REF 

2 

LAST 

658 

32,2237 

5A367 

1 

00716 

32,22A0 

71A1A 

0 

SET 

00717 

REF 

A 

LAST 

855 

32.22A1 

01A75 

0 

00718 

2A6A5 

REf 

1 

32 ,22A‘ 

0 

00719 

REF 

1 

32,22A3 

16l^A5 

1 

STOOL 

0072 

REF 

3 

LAST 

851 

32,22AA 

26517 

0 

00721 

REF 

5 

LAST 

855 

32,22A5 

02OA1 

0 

STORE 

00722 

32,22A6 

77050 

1 

GOTO 

00723 

REF 

3 

LAST 

855 

32,22A7 

6A366 

0 

0073 

32,2250 

71A1A 

0 

lamprep 

aOFF 

00731 

REF 

2 

LAST 

851 

32,2251 

023A1 

0 

00732 

REF 

A 

LAST 

855 

32,2252 

5A367 

1 

00733 

REF 

3 

LAST 

85A 

32,2253 

02067 

1 

0073A 

32,225A 

&5FO5 

0 

DMP 

00735 

REF 

8 

LAS! 

855 

32,2255 

02350 

0 

00736 

REF 

1 

32,2256 

02OA3 

1 

007A 

32,2257 

A3.:05 

1 

OMP 

0075 

REF 

9 

LAST 

855 

32,2260 

02350 

0 

0076 

32,2261 

A3A57 

0 

5L» 

0077 

32,2262 

20172 

1 

0078 

32,2263 

77026 

0 

STADR 

0079 

32,226A 

63a6 

0 

STOOL 

0080 

REF 

3 

LAST 

85A 

32,2265 

O2IO5 

1 

0081 

32,2266 

AUI5 

1 

DAD 

0082 

REF 

2 

LAST 

855 

32.2267 

02OA5 

1 

0083 

REf 

10 

LAST 

855 

32,2270 

02350 

0 

008A 

32,2271 

A3457 

0 

SL» 

0085 

32,2272 

20167 

0 

0086 

32,2273 

56271 

0 

DDV 

0087 

REF 

7 

LAST 

855 

32,227A 

02375 

1 

0088 

REF 

2 

LAST 

823 

32,2275 

05600 

1 

0089 

32,2276 

71:?06 

0 

PUSH 

0090 

32,2277 

73525 

1 

POOL 

0092 

32,2300 

7A206 

0 

PUSH 
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USER'S  OWN  page  NO.  3 eA 


TGO 

DLOAD 

HC 

REPLACE  IN  TGO 

IF  HC;0,  GO  TO  HOLDR 

HOLDR 

ROOT 

LOAD  RD0T..2(-7) 

OMP 

(RD0T*R00TD)#2 (-7) 

RDOTD 

Tc,0 

TgO(RDOT*RDOTD)*2 (-2A) 

DAD 

SHIFT  TO  RG0m2  t„2A) 

RMAG 

FORM  RC0..2(.2A) 

RCO 
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USER'S  OWN  PAGf  no.  7 E4 

260 

TGO 

SETPD 

DIVIDE  by  TGO 

DIVIDE  BY  D.GET  B»2(N*4) 

060 

040 

prate 

SET  PD  TO  4 4 

STORE  B IN  PRATF 

DOV 

2b0 

000 

LOAD  DRD0TX2 (-7) 

DRD0T/-LX2 (-7) 

STORE  IN  PDL(2),PULL  012  4 

PRATE 

BOSU 

0-6*1 

D12BX2 (N-13) 

SHIFT  TO  2(-7) 

PULL  DRDOT/-L,  GET  A#2(-7) 

PC0N5 

320 

STORE  A 

LOAD  0YD0TX2(-7) 

DYD0T/-LX2 (-7) = CX2(-7) 

000 

YCONS 

STORE  CX2{-7) 

000 

DSU 

TIME 

TREF 

SR4 

PRATE 

(T-T0)X2(-28) 

B(T-T0)X2(N-24) 

0 -170*1 

SRI 

PCONS 

DSU 

TBUP 

GEFF 

POOL 

UNITR 

YCONS 

ODV 

TBUP 

VAD 

(A+B(T-TO) )X2(-7) 

2(-8) 

(A*B(T-TO) ) /TBUP#2 (9) 

ADD  GEFFX2(9) 

GET  ATRX2(9) 

ATR  UR)*2(8) 

STORE  IN  PDL(O)  6 

LOAD  C#2(-7) 

SHIFT  TO  2(-8) 

C/TBUP42 (9) =ATY#2 (9) 

ATY  LAXIS*2(8) 

LAXIS 

PUSH 

POOL 

AT 

DSU 

340 

OMP 

AT 

XR 

(ATY  LAXIS  + ATR  llR ) *2  ( 8 ) =AH'*2  ( 8 ) 0 

shift  to  AH*2 (9) *SToRE  IN  PDL(O)  6 

AH2X2(18)IN  PDL(34) *AHMAG  IN  MPaC 

STORE  AHMAG  IN  pDL ( 6) *LOAD  AT  8 

AT (2)X2 ( 18) 

(AT (2)-AH2)X2 (Ifi) SATP2X2 (18) 

STORE  IN  PDL(  8)  1^ 

LOAD  ATX2(9) 

AT  KRX2(8) 

488954A  YJL  SYSIEM  FOR  AGC;  NEW  PRQCjRAM  S^EPATIN  BY  EYLE5 


L ascent  steering 

0282 

0283 

0284 

0285 

0286  REF  1 

0287 

0288 

0289 

0290  REF  1 

0291 
02911 

0292 

0293 

0294 

0295  REF  5 LAST  859 

0296 

0297  REF  3 LAST  851 

0298 

0299 

0300  REF  4 LAST  854 

0301 

0302 

0303 

0305  REF  3 LAST  852 

0306 

0307 

0308  REF  5 LAST  852 

03081 

03082  REF  112  LAST  832 

0309 
C0309 

0311 

C0311 

0314 
C0314 

0315 
C0315 

0316 
C0316 

03165 
C03165 

03166 
C03166 

0317 

C0317 

0318 
C0318 

0319 
C0319 


2603  41»52  0 SLl 

2604  45316  1 DSQ 

2605  OOU43  0 

2606  71F40  1 3MN 

2607  64814  0 

2610  OOOll  1 

2611  77T66  0 SORT 

2612  77850  1 GOTO 

2613  64824  0 

26lA  55345  0 AIMING  OLOAO 

2615  00007  0 

2618  76561  1 YXSC 

261Y  00001  0 

2620  I4OOI  0 STOOL 

2621  02023  1 

2622  77805  1 OMP 

2623  O2O37  1 

262A  74365  1 AtMED  SIGN 

2625  00037  0 

2628  02077  0 

2627  53372  1 YSLl 

2630  OOOOl  0 

2631  77856  1 JNIT 

2632  O2O57  1 STORE 

2633  45OOI  1 SETPD 

263A  OOOOl  0 

2635  02050  0 

2638  77776  1 EXIT 

2637  1 5805  0 TCF 

2640  OOOOO  1 lOOCS  20EC 

2641  00144  0 

2642  12f02  1 KT  2DEC 

2643  21  127  0 

264A  23123  0 VINJ  2DEC 

2645  36273  1 

2646  OOlOO  0 VTO  2DEC 

2647  OOOOO  1 

2650  01146  0 DP3/80  2DEC 

2651  14832  0 


2652  0OO14  1 2SEC(18)  2DEC 

2653  20000  0 

265A  00062  0 2SEC(16)  2DEC 

2655  OOOOO  1 

2658  OOOOO  1 T3  2DEC 

2657  OOOOO  1 

2660  02525  1 1/12TH  2DEC 

2661  12525  0 

2662  lOOOO  0 DP, 25  2DEC 

2663  OOOOO  1 


32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 

32 
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USER'S  OWN  PAGF  NO.  8 eA 

PUSH  2(9), STORE  IN  PnL(lO)  U 

DSU  AT(2)K;R(2)X2(18) 

34D  -AH2X2(18)  =ATP3X2(1B) 

DLOAD  If  ATP3  NEG,G0  TO  AimING 

AIMING 

8D  LOAD  ATP2X2(18) 

ATPX2 (9) 

AIMED 

BDDV  KR  AT/AHX2(-1)=I<H/2  FROM  PDL(10,6)  8 

06D 

VSLl 
OOD 
OOD 
AT 

KRl 

YXSC  GIVE  sign  TO  ATP 

300 

ZAXIS  ATP  ZAxISx2(8) 

VAD  ATP  ZAXISX2(9) 

OOD  (ATPZAXIS+AH)X2 (9) 

GET  UTAZI'l) 

UT 

CALL 
0 

ASCRET 

ENDOFJOB 
100 

0.34 


KH  AHX2 (8)  ,X2 (91 

STORE  NEW  AH  IN  PDL(O) 

LOAD  ATX2(9) 

AT(1-KR(2)) (l/2lX2(9)=ArpX2(9) 


76.655851B-7 

0.5B-7 

0,0375 

200B-18 
200  B-16 
0 

0.083333333 


0,25 
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L ascent  steering 


0320 

C0320 

03202 

C03202 

0400 

C0400 


04101 

REF 

101 

LAST 

856 

0415 

0420 

REF 

1 

0500 

0501 

REF 

21 

LAST 

859 

0502 

0503 

0504 

REF 

333 

LAST 

849 

0505 

REF 

142 

LAST 

813 

0506 

REF 

22 

LAST 

661 

0507 

C0507 

REF 

1 

0508 

0509 

REF 

102 

LAST 

861 

0510 

0511 

REF 

1 

0512 

REF 

7 

LAST 

699 

0513 

REF 

128 

LAST 

813 

32,2664 

25252 

0 

DP2/3H 

2dEc 

• 666666667 

32  *266^ 

25253 

1 

32*2666 

00031 

0 

DTASC 

2DEC 

200  B-17 

32*2667 

ooooo 

1 

32*2670 

ooooo 

1 

T2 

2DEC 

200 

32*2671 

00310 

0 

32*2672 

0 6103 

0 

LAMBSET 

TC 

INTPRET 

32  *2673 

77624 

1 

CALL 

32*2674 

74430 

0 

LAMBERT 

32*2675 

52545 

1 

ENGOFF 

OLOAD 

SL3 

32*2676 

02350 

0 

TGO 

32*2677 

77776 

1 

exit 

32*2700 

0 0004 

0 

inhint 

32*2701 

3 OI44 

0 

CA 

MPAC 

32*2702 

0 5701 

1 

TC 

WAITLIST 

E4 

ebanic= 

TGO 

32*2703 

02  71  1 

1 

2CADR 

APSOFF 

32*2704 

64064 

1 

32*2705 

0 0003 

1 

RELINT 

32*2706 

0 6103 

0 

TC 

INTPRET 

32*2707 

77650 

1 

GOTO 

32*2710 

54431 

0 

KEEPGOIN 

32*2711 

0 6O71 

1 

APSOFF 

TC 

ENGINOFF 

32*2712 

0 5 7A5 

1 

TC 

TASXOVER 
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USER'S  OWN  PAGf  NO.  9 

CALL  FOR  LAMBERT  SUBR. 

PUT  LOW  order  Bit  of  t in  BItI  OF 

PUT  TGO  IN  A 

SET  UP  CALL  TO  aPSOFF 

RETURN  TO  STEERING 


E4 


MPAC 
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Dec  I3i  1966  (MAIN)  PA&E 


L 


R000003 

ROOOOOS 

R000007 

R0OOOO9 

R0OOOI2 

R0OOOI6 

R0OOO2 

R000022 

R00002A 

R000026 

R000028 

ROOOO3 

R00003A 

R000036 


R000038 

ROOOOA 

0002 


OOOA 

0006 

0008 

0010 

0012 

OOU 

0016 

0018 


0020 

0022 


002A 

0026 

0028 

0030 


0032 

003A 

0036 

0038 

ooao 


THRUST  MA(5NITU0E  FILTER  USER'S  OWN  PAOe  NO,  1 

PROGRAM  NAME  - ATMAG 

MODIFICATION  BY  - BERMAN  AND  CATT'^NACH 
functional  DESCRIPTION  - 

the  thrust  magnitude  filter  converts  abdelv  t3  m/cs,  inverts  and  Combines  it  with  two  preceding 
INPUTS  to  produce  THe  INVeRTe^  exhaust  velocity,  3URN  UP  tIMe,  AND  ANTICIPATED  THRUST  ArCELERATlON  FOR 
THE  NeXT  time  INCREMENT,  tHRJST  MAGNITUDE  FILTER  IS  BYPASSED  UNTIL  AFTER  THe  MAIN  ENGINE  GOES  ON, 

CALLING  sequence  - ATMaG  IS  ENTERLD  BY  EXTEND  AND  EXTEND 

DCA  ATmAGAd  DCA  ATMAGA 

DxCH  AVGEXIT  DxCH  AVGEXlT 

NORMAL  EXIT  - FROM  ATMAG  BY  GOTO' 


ASCENT 

OUTPUT  - INVERTED  EXHAUST  VELOClT^t  BURN  UP  TIMe*  AND  ANTICIPATED  THRUST  ACCELERATION 
erasable  initialization  Required  ■ this  ia  done  by  pre-aps  programs 
DEbRIS  - AbDVCONV*  l/Dvlf  1/Dv2*  WE*  TbUP*  AT, 

ALARM  OR  abort  EXIT  MODES  - 
subroutines  called  - NONE 


32*2713 

3AN< 

32 

REF 

A 

LAST 

857 

EA 

ebank= 

TCO 

REF 

103 

LAST 

861 

32*2713 

0 6103 

0 ATMAG 

TC 

INTPRET 

32.271A 

A5AA5 

1 

OLOAD 

DSU 

REF 

2 

LAST 

790 

32*2715 

02165 

1 

ABDVCONV 

REF 

I 

32  *27lP 

2 A T 66 

0 

DvMIN 

32,2717 

67‘iAO 

0 

3MN 

SLOAD 

REF 

1 

32*2720 

6A(62 

0 

FILTEND 

REF 

I 

32*2721 

2A  (65 

0 

B I T6H 

D 

LAST 

32*2722 

77‘*71 

0 

ODV 

EXIT 

Ktr 

3 

862 

32,2723 

D2l65 

1 

ABDVCONV 

REF 

0 JT  C 

33A 

LAST 

861 

32,272A 

52  1A5 

0 

OXCH 

MPAC 

Ktr 

I 

32,2725 

53*563 

1 

oxch 

1/DV2 

REF 

1 

32*2726 

53*561 

0 

OXCH 

1/DVl 

REf 

335 

last 

862 

32,2727 

52  lA5 

0 

Oxch 

MPAc 

REF 

lOA 

LAST 

862 

32*2730 

0 6103 

0 

TC 

INTPRET 

32*2731 

A5206 

1 

PUSH 

DSU 

REF 

2 

LAST 

862 

32*2732 

02163 

1 

1/DV2 

32*2733 

32*273A 

5AA06 

21211 

1 

0 

PUSH 

SLR 

8D 

EBANKA 


ABDVCONV  (PIPA  READING  CONVERTED  TO 
M/CS)  IS  inverted  And  scaled  at  2'H*-5 
AS  INPUT  TO  filter 


MPAc  = l/DV0»2»»-5 

PUSH  DOWN  1/DVO  2 

MPAC  = (l/DVO-l/DV2)»2»»-5 

A 

MPAC  = (1/DvO-1/Dv2)''2'"'3  = l/vE*2'"'A 


'^8895^A  YJL  system  FOR  AGC;  NEW  PRO^iRAM  SHEPATIN  EYLES 


L THRUST  magnitude  ULTER 


OOAl 

REF 

2 

LAST 

857 

32,2735 

16025 

1 

STODL 

00A2 

32.2736 

A35A2 

0 

SRI 

OOAA 

ref 

2 

LAST 

862 

32.2737 

O2I6I 

0 

00A6 

32.27A0 

A3562 

1 

SRIR 

OOA8 

32.27A1 

AI205 

0 

OMP 

0050 

REF 

2 

LAST 

85A 

32,27A2 

2A665 

1 

0052 

REF 

1 

32,27A3 

2AT70 

1 

A005A 

0056 

32.27AA 

77671 

1 

DDV 

0058 

REF 

3 

LAST 

863 

32.27A5 

02025 

1 

0060 

REF 

5 

LAST 

859 

32,27A6 

16027 

0 

STODL 

0062 

REF 

3 

LAST 

863 

32,27A7 

02161 

0 

006A 

32.2750 

A53A2 

0 

SRl 

0066 

32.2751 

00001 

0 

0068 

32.2752 

A33A2 

0 

SRI 

0070 

REF 

3 

LAST 

862 

32.2753 

02163 

1 

0072 

32.275A 

A1205 

0 

OMP 

2A665 

1 

0U7A 

RtF 

3 

LAST 

863 

32.2755 

0076 

REF 

2 

LAST 

863 

32.2756 

2AT70 

1 

A0078 

0080 

32.2757 

77665 

1 

3DDV 

0082 

REF 

1 

32.2760 

35AA5 

1 

008A 

REF 

6 

LAST 

860 

32.2761 

02023 

1 

STORE 

0086 

32.2762 

77650 

1 

FILTEND 

GOTO 

0088 

REF 

A 

LAST 

852 

32.2763 

bAl20 

0 

0096 

32.276A 

OOOAO 

0 

BIT6H 

OCT 

0098 

32.2765 

00017 

1 

DVMIN 

2DEC 

C0098 

32.2766 

I3AI2 

1 

0100 

32.2767 

31000 

0 

DTASCl 

2DEC 

COlOO 

32.2770 

ooooo 

1 
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l/VE 

DAD 

1/DVl 

DAD 

DMP 

DP2/3H 

DTASCl 


1/VE 

TBUP 

1/DVl 

DSU 

ODD 

DAD 

1/DV2 

DMP 

Dp2/3H 

DTASCl 


Dl/32 

AT 


ascent 

AO 

.03B-5 


USER'S  OWN  PAGp  NO.  2 EA 

INVERTED  EXHAUST  VElOCITY  2 

MPAC  = (l/DVO-l/DV2)**2'"'-6 

MPAC  = (l/DVO*2/DVl-l/DV2)''2*nt-6 

MPAC  s (5/DV0*2/DVU1/DV2)*2»»-7  U 


(5/6DV0.1/3DV1-1/6DV2) »2*»-5 
MPAC  = (l/DV3»2»»-5)  » lDELTATt2»»-8 ) = 
DELTAT/D\/3<»2«n*-13 

(TBUP/VE#2»*-13) / (1/VE«2*»A) =TBJP«2»«-17 
BURN  UP  TIME 

MPAC  = 2'"*-5/DVl 

MPAC  = 2*«t-6/DVl 

MPAC  s (-E/DVO+l/DVl) A2«»-6 

MPAC  = (-2/DVO+l/DVl)»2*»-7 

MPAC  s (-2/DVO*! /DV1.A/DV2) #2a»-7 

MPAC  = (-2/3DV0.1/3DV1*A/3DV2)''2*"»-6  = 
1/Dv3»2»#-6 

MPAC  = (l/DV3#2«<*-6)#(DELTAT#2**-8)  = 
DELTA/DV3»2«»-U  = 1/AT<*2**-1A 

MPAC  = 2««-5/ ( 1/AT*2»«-1A)  = AT»2»»9 
ANTICIPATED  THRUST  ACCELERATION 


200B-8 
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L LDGSJ3  routine  USER'S  OWN  PAGf  NO,  1 

ROOOl  I\JPUT....X  IN  MPAC 

R0002  OUTPUT. ..-LOG(X)/32  IN  MPAC 

R0003 


0004 

32»2771 

3AN< 

32 

0005 

32*2771 

44301 

0 

LOGSUB 

NORM 

BOSU 

0006 

REF 

57 

LAST 

841 

32*2771: 

00121 

0 

BUF 

0007 

REF 

1 

32*2773 

25040 

1 

ALM05T1 

0008 

32*277A 

77  776 

1 

EXIT 

0009 

REF 

3 

LAST 

729 

32*2775 

0 7^:65 

1 

TC 

POLY 

0010 

32*2776 

OOOO6 

1 

DEC 

6 

0011 

32*2777 

ooooo 

1 

2DEC 

,0000000060 

coon 

32*3000 

00002 

0 

0012 

32*3001 

76  777 

1 

2DEC 

-.0312514377 

C0012 

32*3002 

77175 

1 

2DEC 

0013 

32*3003 

77^*00 

0 

«, 0 15568677 1 

C0013 

32*300^ 

75^16 

0 

0014 

32*3005 

77507 

0 

2DEC 

-.0112502068 

C0014 

32  *3006 

65515 

0 

0015 

32*3007 

77  741 

0 

2DEC 

-.0018545108 

C0015 

32*3010 

53547 

1 

0016 

32  *301 1 

77O52 

0 

2DEC 

—.0286607906 

C0016 

32*3012 

55373 

0 

0017 

32*3013 

01167 

0 

2DEC 

,0385598563 

C0017 

32  *3014 

30361 

0 

0018 

32*3015 

76520 

1 

2DEC 

-.0419361902 

C0018 

32*3016 

75^67 

0 

0019 

REF 

249 

LAST 

843 

32*3017 

3 7761 

0 

CAF 

ZERO 

0020 

REF 

336 

LAST 

862 

32*3020 

54  146 

0 

TS 

MPAC  +2 

0021 

32*3021 

0 OOO6 

1 

EXTEND 

0022 

ref 

1 

32*3022 

3 3O36 

1 

DCA 

CL0G2/32 

0023 

REF 

337 

LAST 

864 

32*3023 

52  I45 

0 

DXCH 

MPAC 

0024 

REF 

58 

LAST 

864 

32*3024 

52  122 

1 

DXCH 

BUF  ♦ 1 

0025 

REF 

59 

LAST 

864 

32*3025 

3 0120 

1 

CA 

BUF 

0026 

REF 

11 

LAST 

840 

32*3026 

0 7351 

1 

TC 

shortmp 

0027 

REF 

338 

LAST 

864 

32*3027 

52  146 

0 

DXCH 

MPAC  *1 

0028 

REF 

339 

LAST 

864 

32*3030 

52  145 

0 

DXCH 

MPAC 

0029 

REF 

60 

LAST 

864 

32*3031 

52  122 

1 

dxch 

BUF  +1 

0030 

REF 

340 

LAST 

864 

32*3032 

20  145 

0 

DAS 

MPAC 

0031 

REF 

105 

LAST 

862 

32*3033 

0 6103 

0 

TC 

INTPRET 

0032 

32  * 303A 

43‘*76 

0 

DCOMP 

RvQ 

0033 

32*3035 

00542 

1 

CL0G2/32 

2DEC 

,0216608494 

C0033 

32*3036 

34414 

1 

0034 

32*3037 

37777 

1 

Almost i 

2DEC 

,999999999 

C0034 

32*3040 

37777 

1 
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L 

000101 

000102 


ROOOIO3 

ROOOIO5 

R000106 

R000108 

ROOOll 

ROOOlll 

ROOOII2 

R0OOII3 

ROOOII5 


R000117 

R0OOII8 

R000119 

ROOOI2 


R000122 

ROOOI23 

R00012A 


R000126 

ROOOI27 

R000129 

R00013 

R000132 

R000133 

R000135 


R000137 

R000138 


LAMB  USER'S  OWN  PAGF  NO.  I 

36'2A30  bank  36 

REF  1 E3  EBANK=  RTN 


proqram  naviE  ...  Lambert  rOjtine  date  ...  11/29/66 

MOD  NO  ...  3 LOG  SECTION  ...LAMB 

assembly  ...  SUNBURST  REVISION  03 

MODIFICATION  BY  ...  J.J.  BESTED  AND  L.G.  HULL 
FUNCTIONAL  DESCRIPTION  ... 

this  subroutine  solves  for  the  conic  trajectory  Between  rovec  and  RiVec  which  satisfies  a specified  time 
DF  FLIGHT.  TFL,  A SLOPE  ITERATOR  IS  USED  TO  FORCE  THE  TIMe  OF  FLIGHT  TO  CONVERGE. 


CALLING  sequence: 

THIS  ROUTINE  IS  CALLED  IN  THE  INlERPRETIVE  MODE  BY 


CALL 

LAMBERT 


NORMAL  EXIT  MODE; 

EXIT  FROM  THIS  ROUTINE  IS  IN  BASIC  BY 

TCF  ENDOFJOB 


DUTPjTi 

THE  OUTPUT  OF  THIS  ROUTINE  (WITH  SCALING  INDICATED  IN  PARENTHESES)  CONSISTS  OF  ... 

VOVEC  ( + 7)  -THE  REQUIRED  VELOCITY  VECTOR  IN  METERS/CENT  I SECONDS 

donesw  -the  done  switch  Indicating  whether  the  job  has  been  completed,  when  thf  jOb  is  done  it 

IS  TURNED  ON, 

coNVSw  - the  convergence  Rwitch  indicating  whether  the  Iteration  process  has  converged,  it  is  turned 

ON  IF  convergence  HAS  NOT  OCCURRED,  BUT  AN  ESTIMATE  OF  VoVeC  IS  NeVeRTHfLeSs  GIVeN. 


input  I 

the  quantities  inputed  and  their  scale  factors  are  ... 
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L LAMB  USER'S  OWN  PaGF  N0«  i 

R000139  RCOV  (*25)  -INITIAL  POSITION  iN  METERS, 


ROOOIA 

RlVEC  (*25) 

-the  target  position  in  meters. 

ROOOlAl 

ROOOIA2 

TFL  (*28) 

JNNORM  (+1) 

-time  of  Flight  in  centiseconds, 

-A  UNIT  VECTOR  IN  1 HE  DIRECTION  OF  THE  ANGULAR  MOMENTUM  VECTOR, 

Roooiah 

R0001A6 

TAGS 

-A  parameter  set  to  -0,5  IF  THE  TRUE  ANOMALY  DIFFERENCE  BETWEEN  RqVEC  AND  RlVEC  IS  MORE  THAN 

180  degrees.  OTHERWISE  IT  SHOULD  BE  SET  TO  .0.5. 

o o 
o o 
o o 

>0 

oUeSSW 

-THe  GUeSS  switch,  if  a first  GUeSS  to  the  cotangent  of  the  flight  path  angle  is  available  the 

SWITCH  should  Be  Set  . clear  if  nd  guess  is  forthcoming. 

ROOOIS  CoGAYAIL  (+5)  -tHe  AVAILABLE  COT^NGeNt  OF.  tHE  FLIGHT  PATH  ANGLE*  IF  A GUeSS  IS  AVAILABLE  tHe  GUeSSW  SHOULD  Be 
R000152  SET  ANd  ThE  oJESS  PlAcED  HERE  BEFORE  THE  lAMBERT  ROUTINE  IS  ENTERED.  AfTER  ONE  PASS  THROUGH 

ROOOISA  LAMBERT.  THE  -AST  ITERATED  VALUE  OF  tHe  COTANGENT  IS  PLACED  IN  COGAVAIL  AND  MAY  Be  USED  AS  THE 

R000I56  GUESS  FOR  THe  NEXI  PASS. 


R000157  THE  FOLLOWING  SWITCHES  ArE  I N.  THIS  ROUTINE  . THOUGH  THEY  Are  NOT  USED  FOR  THIS  PArTiCUiAr  MISSION  AND  ARE 
R000159  ALWAYS  CLEAR  IN  206. 

R00016  MOONSW  - THE  MOON  SWITCH!  I-INSIDE  THE  SPHERE  OF  INFLUENCE  OF  THE  MOON  (35.000  N.MI.) 

R000I62  O-OUTSIDE 

R000163  ESCPSW  -the  ESCAPf  SWITCH!  1-HYPERBOLIC  ORBIT 

R00016H  0-ELLIPTIC  ORBIT 

R000165  SMANGLSW  -SMALL  ANGLE  SWITCH;  uSMALL  TRANSFER  ANGLES 

R000166  O-LARoE  ANGLES  (THE  USUAL  CASE) 


R000167  two  switches  are  used  internally*  they  ARE  ... 

R000168  itersw  -the  iteration  swncHj  i-FiRST  iteration  is  to  take  place 

R000169  O-SJBSEOUENT  ITERATIONS 


ROOOIY  PIeSw  -the  18o  DeGReeS  SWITCH!  1-ANGLeS  SReATER  THAN  18o  DeGReeS  WITH  TAGSs-q.S 

R000172  0-ANgLES  LESS  THAN  180.  TAG5s0.5 


R000173  DEBRIS  ... 

R00017A  the  LAMBERT  ROUTINE  INTERNALLY  USES  SCALING  WHICH  IS  DIFFERENT  FROM  THAT  USED  BY  THE  MAIN  PROGRAM, 
R000176  internal  to  LAMBERT. 

R000177  7 

R000178  LENGTH  IS  SCALED  BY  RNORM  - 2 Rt 


R000179  VELOCITY  IS  SCALED  BY  VNORM  f 2 !=QRT  (MU/RE) 
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L LAMB  USER'S  0»^N  PAGr  NO.  3 

R00018  13  3 

R000181  TIME  IS  scaled  BY  TNORM  s 2 SQMKRE  /MJ) 

R000182  WHeRe  mu  is  JHe  GRAVITATIONAL  CONSTANT  TIM^S  tHe  MASS  OF  THg  EARTH  AND  Re  IS  tHe  RADIUa  QF  tHe  EARTH. 

R00018A  22 

R000185  FOR  RE,  2 METERS  IS  USeD#  HOa/eYeR,  INPUT  AND  OUTPUT  QUANTITIES  HAVE  SCALING  COMPATIBLE  wiTH  THE  ReST  OF  THE 
ROOOIS?  PROGRAM.  RESCALING  WILL  BE  DONE  BY  THE  LAMBeRT  ROUTINE  BEFORE  COMPUTATIONS  BEGIN. 


48895‘^A  yjL  SYsTEM  fOr  AGci  NEW  PrOGr^'^  sMEPATIN  BY 


L 

00021 

00022 

000225 

00023 

0002A 

00025 

00026 
00027 
0003 
0003A 

00035 

00036 

00037 

00038 
OOOA 

00041 

00042 

0005 

00051 

00052 

0006 
00061 

0007 

00071 

00072 

0008 
00081 
00082 

00083 

00084 

00085 

00086 
00087 
00091 

0010 

0011 

0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 

0021 

0022 

0023 


LAMB 


REF  1 


REF  3 LAST  13 
REF  3 LAST  855 

REF  1 
REF  1 

REF  1 


REF 

2 

LAST 

868 

REF 

3 

LAST 

852 

REF 

1 

REF 

1 

REF 

1 

REF 

1 

REF 

2 

LAST 

868 

REF 

2 

LAST 

856 

REF 

1 

REF 

1 

REF 

2 

LAST 

856 

REF 

1 

REF 

1 

REF 

1 

REF 

8 

LAST 

820 

REF  2 LAST  694 


36*2430  40^14  1 
36.2431  02O62  1 


36 

36 

36 

36 

36 

36 

36 

36 

36 

36 

36 

36 

36 

36 

36 

36 

36 

36 

36 

36 

36 

36 


2432 

2433 
243A 
2435 
2435 
2437 

2440 

2441 

2442 

2443 
244A 

2445 

2446 

2447 

2450 

2451 

2452 

2453 
245A 

2455 

2456 

2457 


00001  0 
43OI4  0 
02265  1 
02261  0 
43V14  0 
02265  1 
02264  0 

51U5  0 

01673  1 
74‘*46  1 

77614  1 
02064  1 
77614  1 

02^03  0 

74‘*56  0 
77i'A5  1 
35*^47  0 
01735  1 
77650  1 
7AA61  1 

77745  1 

35'*43  1 


36  *2460 

01 735 

1 

36  *2461 

41345 

0 

36 .2462 

02167 

0 

36*2463 

35473 

1 

36 . 246A 

77652 

0 

36*2465 

25674 

0 

36.2466 

02141 

1 

36 .246  7 

77  702 

1 

36.2470 

35  7 11 

0 

36.2471 

74  715 

1 

36.2472 

77624 

1 

36.2473 

74  736 

0 

36.247A 

60345 

0 

36.2475 

00045 

0 

36.2476 

OOO47 

1 

36.2477 

53665 

1 

36.2500 

00041 

1 

36.2501 

20172 

1 

36 .2502 

I4O37 

0 

36.2503  35^*51  1 
36.250A  70^25  0 


36.2505  OOO35  1 

36.2506  00025  0 


36.2507  65301  0 


LAMBErT 


PROG 


DEc  13.  1966  (mAIN)  page  86B 


USER'S  OWN  PAGf  NO.  4 


SET  sETpd 

itersw 

00 

CLEAR  CLEAR 
MOONSW 
DONESW 

CLEAR  CLEAR 

SMANGLSW 

PIESW 

OLOAO  BPL 
TAG5 

♦ 3 


SET 

PIESW 

BON 

GUESSW 

♦ 6 

OLOAO 

01/4 

STORE  TWEEKIT 
oOTO 

PROG 

OLOAO 

01/64 

STORE  TWEEKIT 
OLOAO  OMP 
TFL 
TFACT 

SL3  RESCALE  TIME  OF  FLIGHT 

STOVL  TF 

RCOV  RCOV  (*25)  ASSUMED 

YSR4 

STCALL  ROVEC 
OTPRD 


CALL 

CGTH 

OLOAO 

NORM 

360 

XI 

BDOV 

SL" 

320 

0 -7.1 

STOOL  300  30D=R  (♦T) 

01/2 

OSU  SRI 
280 

store  200  20DS1-CSTH  (*2)  (FOR  PCALC  IN  LOOP) 


E3 


NORM  POOL 


1-CSTH  (♦2-Nl) 


PL  AT  20 


488954A  YJL  SYSTEM  FOR  AGC ! NEW  PROGRAM  SHePatIN  BY  eYLes 


L LAMB 


002A  REF  9 LAST  868  36 

0025  36 

0026  36 

0027  36 

0028  36 

0029  36 

0030  REF  1 36 

0031  REF  1 36 

0032  36 

0033  36 

003A  36 

0035  REF  1 - 36 

0036  36 

0037  36 

0038  36 

0039  36 

OOAO  36 

OOAl  36 

00A2  REF  10  LAST  869  36 

00A3  36 

OOAA  36 

0045  36 

0046  36 

0047  36 

0048  36 

0049  REF  3 LAST  868  36 

0050  REF  1 36 

0051  36 


251° 

00047 

1 

2511 

00037 

0 

2512 

77671 

1 

ODV 

2513 

75^57 

0 

5L» 

251^ 

20I75 

0 

251P 

44214 

0 

30FF 

25IP 

02345 

1 

251  Y 

74664 

0 

2520 

00021 

1 

2521 

51‘*06 

1 

PUSH 

2522 

44205 

0 

OMP 

2523 

35‘*61 

1 

252'» 

77626 

0 

STADR 

2525 

53(44 

0 

STOOL 

2526 

OOO3I 

0 

2527 

77(42 

0 

SRI 

253O 

00023 

0 

STORE 

2531 

65301 

0 

NORM 

2532 

00047 

1 

2533 

00035 

1 

2534 

45261 

0 

SR 

2535 

20607 

1 

2536 

00037 

0 

2537 

00037 

0 

STORE 

254O 

562U 

0 

30N 

254I 

02304 

1 

2542 

74P53 

1 

2543 

40057 

1 

SL4 

0052 

36t254^ 

20201 

0 

0053 

REF 

2 

LAST 

869 

36.2545 

74553 

1 

0054 

36.2546 

51^06 

1 

0055 

36.2547 

43205 

1 

0056 

REF 

2 

LAST 

869 

36.255D 

35‘*61 

1 

0057 

36.2551 

77P50 

1 

0058 

36.2552 

74556 

1 

0059 

36.2553 

71201 

1 ABSMIN 

0060 

36.255^ 

OOOOl 

0 

0061 

REF 

1 

36.255P 

35‘*71 

0 

0062 

36.2556 

00027 

1 

0063 

36.2557 

71^14 

0 

0064 

REF 

4 

LAST 

868 

36.2560 

02343 

1 

0065 

REF 

1 

36.2561 

74644 

1 

0066 

REF 

1 

36.2562 

01676 

1 

00661 

36.2563 

45214 

1 

006615 

REF 

2 

LAST 

869 

36.256^ 

02305 

0 

00662 

REF 

1 

36.2565 

74577 

1 

006625 

36 .2566 

00027 

1 

00663 

36.2567 

71244 

0 

PUSH 

OMP 

oOTO 

SETPD 

STORE 

30FF 

30N 

3PL 


Dec  13*  1966  (MAIN)  PAGe  869 


USER'S  OWN  page  NO,  5 E3 

XI 

30D 

SORT 

0 -4.1 

BDSU 

ESCPSW 

ELIPLMTS 

PL  AT  OD 

16D 

ABS 

BLSU 

PERCENT 

PL  AT  2D 
PL  AT  OD 

260 

240 

26D=C0GAMX 

180 

18D=SIN(TH)  (*2)  (FOR  PCALC  IN  LOOP) 

POOL 

XI 

260 

osu 

SIN(TH)  (♦1-Nl)  PL  AT  2D 

6 

30D 

300 

30D=COS(TH)-R  (*7)  (FOR  PCALC  IN  LOOP 

DUV 

PIESW 

ABSMIN 

BOV 

PL  AT  OD 

0.1 

ABSMIN 

ABS 

DAD 

PERCENT 

(CSTH-R) /SNTH  (+5)  PL  AT  2D 

PL  AT  OD 

♦ 4 

DLOAD 

OD 

ABSOLMIN 

PL  AT  OD 

220 

DLOAD 

GUESSW 

FIRSTCOG 

22D=C0GAMN  (*5) 

PL  AT  2D 

COGAVAIL 

DSU 

ESCPSW 

LOOP 

22D 

DLOAD 

IF  ESCPSW  IS  OFF.  CHECK  IF  CoGAy/AIL 

IS  LESS  THAN  COf,AMN 

A8895^A  YJL  system  FOR  AGC ( NEW  PROGRAM  SMePATIN  EYLES 


DEC  U*  1966  (MAIN)  PAGE  870 


L 

006635 

0066A 

0066A5 

00665 
006655 

00666 
00667 

0067 

0068 

0069 

0070 

0071 

0072 

0073 
007A 
6075 

0076 

0077 

0078 

0079 

0080 
0081 
0082 

0083 

008A 

0085 

0086 

0087 

0088 

0089 

0090 

0091 

0092 

0093 
009A 

0095 

0096 

0097 

0098 

0099 

0100 
0101 
0102 
0103 
OlOA 

0105 

0106 

0107 

0108 


LAMB 


USER'S  OWN  PAGE  NO,  6 E3 


36,2570  7A575  0 


♦ 5 


REF  1 

REF  2 LAST  869 

REF  2 LAST  869 

REF  3 LAST  870 

REF  1 


REF  11  LAST  869 


36 

36 

36 

36 

36 

36 

36 

36 

36 

36 

36 

36 


2571 

2572 

2573 
257A 
257t> 

2576 

2577 
2600 
2601 
2602 
2603 
260A 


OOD27  1 
01P76  1 
77P50  1 
7A>77  1 
77/A5  1 
01‘>76  1 
0H33  1 LOOP 
A5205  1 
OOU23  0 
00037  0 
55301  0 
00OA7  1 


COGAMN 

STORE  COGAVAIL 
GOTO 

LOOP 

OLOAD 

COGAVAIL 
STORE  INDEP 
OMP  DSU 
180 
300 

NORM  BODV 
XI 


COGAVAIL  IS  A BAD  GUESS,  SO  PUT 
COGAMN  IN  COGAVAIL 


REF 

1 

36, 

36 , 

REF 

1 

36, 

36, 

REF 

1 

36, 

36, 

REF 

1 

36, 

36, 

REF 

1 

36, 

REF 

1 

36 , 

36, 

REF 

2 

LAST 

868 

36, 

REF 

1 

36 , 

36, 

REF 

1 

36, 

36, 

REF 

1 

36, 

REF 

1 

36, 

36 , 

REF 

1 

36, 

36 , 

REF 

1 

36, 

REF 

2 

LAST 

870 

36, 

REF 

1 

36, 

REF 

1 

36, 

36, 

REF 

2 

LAST 

870 

36, 

REF 

3 

LAST 

870 

36, 

36 


2605 

2606 
2607 
2610 

2611 

2612 
2613 
261^' 

2615 

2616 

2617 

2620 

2621 

2622 

2623 

262^ 

2625 

2626 
2627 

2630 

2631 

2632 

2633 
263^' 

2635 

2636 

2637 
26A0 

26Al 

26A2 

26A3 

26AA 


00025  0 
AOO57  1 
20172  1 
0 

3AOa3  1 PSTORE 
7A<51  1 
7762A  1 
7A/66  0 
7762A  1 

75151  0 


200 

SL"  BOV 

0 -7,1 
SPEEDY 
STCALL  3AD 

smar 


CALL 

CALL 


TRIGFNS 

SMA 


7762A  1 
75^:17  1 
0107  0 ZOOM 
77621  1 
0167A  0 
0103  0 
A5ZA6  0 
35‘*75  1 
A5OA0  1 
7A651  0 
75316  1 
A52A6  0 

35‘*53  0 
71240  1 
74661  0 
0107  0 
1501  1 
01  05  0 
52015  1 
0103  1 

74577  1 

65342  1 FIRSTCOG 


CALL 

DELTIME 
STORE  DtPVAR 
BOSU 

TF 

store  deldep 

ABS  DSU 

DEPCRIT 
BMN  CALL 

TIMECONV 
ITERATOR 
ABS  DSU 

NEARZERO 
BMN  OLOAD 

NOSOL 
DEPVAR 

STOOL  PREVDEP 
DELINOEP 
DAD  GOTO 

INDEP 
LOOP 
SRI  POOL 


34D=P  (+2) 


PL  AT  20 


REF 


4 LAST  870 


36.2645 

36.2646 


36 ,2647 
36,2650 


00033  1 

43342  0 
77650  1 

74577  1 


260 

SRI  DAD 
GOTO 

LOOP 


PL  AT  00 
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L LAMB 


0109 

0110 

REF 

3 

LAST 

870 

01105 

REF 

A 

LAST 

870 

0111 

0112 

01121 

REF 

1 

01122 

REF 

A 

LAST 

868 

OllA 

OllAl 

REF 

113 

LAST 

860 

REF 

1 

011A2 

011A3 

0115 

REF 

2 

LAST 

870 

0116 

0117 

.0118 

0119 

0120 
0121 

REF 

3 

LAST 

869 

36.2651 

77^A5 

1 

36.2652 

01  F33 

1 

36 .2653 

01676 

1 

36.265A 

3A023 

1 

36.2655 

75^05 

1 

36.2655 

77‘*1A 

0 

36*2657 

02061 

1 

36.2660 

1 5605 

0 

36.2661 

5201A 

0 

36 .2662 

02O60 

0 

36.2663 

7A651 

0 

36.266^ 

A3206 

1 

36.2665 

00021 

1 

36 .2666 

51‘'06 

1 

36 .266  1 

AA205 

0 

ibtZblO 

35A61 

1 

36.2671 

77626 

0 

^b,2b^2 

53^AA 

0 

TIMECONV  DUOAD 


STORE 

INDEP 

COGAVAIL 

STCALL 

SET 

18D 

INITV 

EXIT 

TCF 

DONESW 

ENDOFJOB 

NOSOL 

SET 

GOTO 

ELIPLMTS 

PUSH 

CONVSW 

TIMECONV 

DAD 

PUSH 

16D 

ABS 

DMP 

BDSU 

STADR 

STOOL 

PERCENT 

26D 

0122 

36.2673 

0123 

36 . 267A 

012A 

36.2675 

0125 

36.2676 

0126 

36.2677 

0127 

36.2700 

0128 

36.2701 

0129 

36.2702 

0130 

36.2703 

0131 

36.270A 

0132 

36.2705 

0133 

REF 

A LAST 

871 

36.2706 

013A 

36.270  t 

0135 

36.2710 

0136 

REF 

3 LAST 

869 

36.2711 

0137 

36.2712 

0138 

REF 

2 LAST 

69A 

36.2713 

0139 

ref 

1 

36.271'* 

ROIAO 

VOVEC 

(.1)  IN 

MPAC. 

00035 

1 

2BD 

A5‘i61 

0 

SR 

DSU 

20607 

1 

6 

00037 

0 

30D 

1A037 

0 

STODL 

30D 

00031 

0 

2AD 

77 /A2 

0 

SRI 

1A023 

0 

STODL 

18D 

00021 

1 

16D 

A1A25 

1 

DSU 

PUSH 

A12A6 

1 

ABS 

DMP 

35'*61 

1 

PERCENT 

77615 

0 

DAD 

77650 

1 

GOTO 

7A556 

1 

ABSMIN  *3 

521A5 

0 SPEEDY 

DLOAD 

GOTO 

35076 

0 

DZERO 

7A621 

1 

ZOOM 

Dec  13.  1966  (MAIN)  rAqE  871 


USER'S  OWN  PAGf  no.  7 £3 


18D=COGA  (.5) 


PL  AT  2D 

PL  AT  AD 
PL  AT  2D 


260=C0GAMX  (*5) 


SODsCSTH-R  (+7) 


PL  AT  0D.2D 


PL  AT  OD 


48895AA  yJL  SySTEM  FOR  AqC;  NEW  pROGR^vi  S^EpATlN  BY  EyUES 


dec  13,  1966  (MAIN)  pAQE  87<: 


L LAMB  USER'S  OWN  PAGE  NO.  8 E3 

ROlAOl  THIS  SECTiOm  CALCULATES  THE  SlNt  A^O  COSJmE  OF  THE  AmGLE  BETWEEN  ROVEC 
R01A02  AND  RIVEC,  THE  SIGN  OF  SIN(TH)  IS  DETERMINED  BY  TAGS.  THE  COSINE  OF  THE 

R01A03  ANGLE  IS  STORED  IN  28D  WHILE  THE  i>INE  IS  IN  MPAC  AS  WELL  AS  IN  2AD,  BOTH 
ROIAOA  ARE  SCALED  BY  (♦2). 


ROlAl  ASSUMES  ROVEC  (*7)  , RlVEc  (*7) 

R01A2  OR.  LESS  THAN  180  DEG)  AVAILA3.E, 

0U3  36,27li>  53»75  0 

OlAA  REF  2 LAST  868  36,2716  OlQl  1 

01A5  REF  1 36,2717  15^03  1 


tags  (♦/-  According  to  angle  greater 


01A6 

01A7 

01A8 

01485 

0149 

0150 

0151 

0152 

0153 

0154 

0155 

0156 

0157 

0158 


REF  7 LAST  310 


REF  2 LAST  872 
REF  3 LAST  872 


REF  2 LAST  868 


36.2720 

36.2721 

36.2722 

36.2723 

36.2724 

36,2726 

36.2726 

36.2727 

36.2730 

36.2731 

36.2732 

36.2733 

36.2734 

36.2735 


DTPRD 


00045  0 
24O4I  1 
02365  0 
moz  1 

Al^SS  0 
72441  0 
OUOB  1 
24O35  1 

0WO3  1 
76‘*35  1 
75246  0 
01673  1 

00031  0 
77616  0 


VLOAD 

STOOL 

UNIT 

ROVEC 

UNRl 

STOVL 

380 

320 

32D=R1 

(♦7) 

VSR4 

UNIT 

RIVEC 

PUSH 

32D=R1 

U7) 

DOT 

STOVL 

SLl 

UNRl 

280 

28D=C0S(TH) 

vxv 

ABVAL 

UNRl 

VSLl 

SIGN 

TAG5 

STORE 

RVQ 

24D 

24D=SIN(TH) 

PL  AT  6D 


PL  AT  00 


ROI59 


28d=C0S(TH)  (♦!),  24Ds5lN(TH)  (♦1)=MPAC. 
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dec  13.  1966  (MAIN)  pAQE  873 


L 

R01591 

R01592 

R01593 


R0160 

0161 

01615 

0162 

0163 

016A 

0165 

0166 

0167 

0168 

0169 

0170 


R0171 


LAMB  USER'S  OWN  PACjE  NO.  9 E3 

this  SECTjOn  computes  C0T(TH/2)  s (1*C0S(TH) )/SIN(TH)  scaled  by  (*5). 

AND  STORES  IT  IN  16D.  NOTE  THAT  ^0T(TH/2)  WILL  OVERFLOW  IF  THE  ANGLE 
THI  IS  LESS  than  3 DeG  35  MINUTES  UR  GREATER  THAN  356  DEG  25  MINUTES, 


assumes 

SNTH(*1)  IN 

MPAC.  2»Ds 

CSTH  (♦!)• 

36.2736 

60‘:5A  1 CGTH 

3ZE 

REF  1 

36.2737 

7AK7  0 

REF  12 

LAST  870 

36.27A0 

OOOA7  1 

36.27AX 

70525  1. 

PDDL 

36.27A2 

00035  1 

36.27A3 

56215  1 

DAD 

REF  2 

LAST  868 

36.27AA 

35‘'A7  0 

36.27A5 

77657  0 

SL» 

36.27A6 

20X75  0 

36.27A7 

00021  1 THISPI 

STORE 

36.2750 

77616  0 

RVQ 

COGTH  (*5)= 

16D. 

NORM  SNTH  (♦l-Nl) 

THISPI 

XI 

SRI 

28D 

DDV  PL  AT  OD 

Dl/A 

0 -A.l 

16D 
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L 

R01711 

R01712 


R0172 

0173 

017A 

0175 

0176 

0177 

0178 

0179 

0180 
0181 
0182 
0183 
018A 
0185 


R0186 


LAMB  USER'S  OWN  PAGE  NO,  10  E3 

THilS  SECTION  USES  COT  (GAMMA)  , I ,E.  COGA  (*5)  AND  P (*2)  TO  CALCULATE  RlA 
SCALED  bY  (♦&)  AND  STORES  THe  RESULT  IN  UD, 


ASSUMES  COGAsINDEP  ( + 5)*  p (♦2)s3‘»D. 


36.2751 

635A5 

0 smar 

DLOAD 

DSQ 

REF 

4 

LAST 

871 

36.2752 

01  (33 

1 

INDEP 

36.2753 

60215 

1 

DAD 

NORM 

REF 

1 

36 .275A 

35‘'4l 

0 

Dl/1024 

REF 

13 

LAST 

873 

36.2755 

00047 

1 

XI 

36.2756 

36.2757 

53605 

00043 

1 

0 

DMP 

SR* 

34D 

36.2760  20373  1 0 -6.1 

36.2761  <t0021  0 3DSU  BOV 

36.2762  35‘f^5  1 Dl/32 

36.2763  7Aa2  0 SPEEDY 

36.276A  00017  1 SMARSTOR  STORE  UD  UD=R1A  (+6) 

36.2763  77P16  0 RVQ 


REF  2 LAST  863 
REF  2 LAST  870 


RlA  (♦6)s2-P(1*COgA*COgA)  IN  IA3, 
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E3 


R0187 

0188 

0189 

0190 

0191 


0192 

0193 
019A 

0195 

0196 

0197 

0198 

0199 

0200 
0201 
0202 
0203 

020A 

0205 

0206 

0207 

0208 

0209 

0210 
0211 
0212 
0213 

02U 

0215 

0216 

0217 

0218 

0219 

0220 
0221 
0222 
0223 
022A 
0225 


ASSUMES  16DsC0GTH  (*5),  INDEPsCDGA ( *5 ) , 3AD=P  (*2),  1AD=  RIA  (♦6). 

36.2766  A5PA5  1 TriGFNS 

36.2767  OOU21  1 

36.2770  0U33  1 

36.2771  OOOA5  0 


REF  5 LAST  87A 


R£F  14  LAST  874 


REF  34  LAST  787 
REF  35  LAST  875 

REF  1 


REF  2 LAST  874 
REF  15  LAST  875 

REF  3 LAST  873 


REF  5 LAST  733 


REF  16  LAST  875 
REF  3 LAST  869 
REF  1 


36 

36 

36 

36 

36 

36 

36 

36 

36 

36 

36 

36 

36 

36 

36 

36 

36 

36 

36 

36 

36 

36 

36 

36 

36 

36 

36 

36 

36 

36 

36 

36 

36 

36 


2772 

2773 
277A 

2775 

2776 

2777 

3000 

3001 

3002 

3003 

3004 

3005 

3006 

3007 

3010 

3011 

3012 

3013 
301A 

3015 

3016 

3017 

3020 

3021 

3022 

3023 
302A 

3025 

3026 

3027 

3030 

3031 

3032 

3033 


60316  0 
OOO47  1 
70‘'05  1 

00043  0 


51525  1 


00017 

55301 

00051 

53660 

00050 


20604  1 
77500  1 

75146  0 
75<(06  1 
00017  1 
60215  1 
35A41  0 

OOO47  1 
65265  0 
35‘'47  0 
00001  0 


60366  1 


OOO5O  1 

75205  1 

00003  1 

00045  0 

43064  1 

00046  0 
02305  0 

75053  0 
65257  1 
57173  0 
4OO57  1 
20171  1 


OLOAo 

osu 

160 

INOEP 

STORE 

360 

OSO 

NORM 

XI 

OMP 

SRI 

340 

POOL 

ABS 

140 

NORM 

BOOV 

SI 

XSU,1 

SR" 

SI 

3,1 

30V 

COGOSOVF 

PUSH 

SIGN 

140 

OAO 

NORM 

01/1024 

XI 

300V 

POOL 

01/4 

00 

SORT 

NORM 

X2 

OMP 

SIGN 

20 

360 

XSU,2 

BON 

XI 

ESCPSW 

HYPTRIG 

SR" 

POOL 

3,2 

SL" 

BOV 

0 -80,1 


36D  = DC0T=:C0T  (TH/2)-C0GA  (*5) 


DCOT^DCOT  (♦13-Nl) 
COGOS  (♦7-NUN2) 


PL  AT  20 
PL  AT  00 


COGOS  I+IO) 


20=1-CS0  (-7+N1) 


PL  AT  40 


SN0=*-(1-CS0)SQrT (CoGDS)  (-2*N1-N2) 


OUE  TO  OIFFERENT  SCALING 

OXNGE  WITH  P0,2n=SN0  (♦!)  PL  AT  40 


0226 

REF 

1 

36,3034 

75O5O 

0 

HALFCIRC 

0227 

36,3035 

57‘*06 

1 COSFN 

PUSH 

DCOMP 

40= (1-CSD) (♦!) 

PL  AT 

0228 

36,3036 

65‘*15 

1 

oad 

ACOS 

0229 

REF 

3 

LAST 

868 

36,3037 

35‘*51 

1 

Dl/2 

0230 

36,3040 

41365 

1 

SIGN 

DMP 

0231 

36,304l 

00045 

0 

360 

0232 

REF 

3 

LAST 

855 

36,3042 

05600 

1 

Pl/4 

CONVERT  FROM  CIRCLES 

TO  RAOIANS/8 

0233 

36,3043 

43244 

1 

BPL 

OAD 

0234 

36,3044 

75046 

1 

♦ 2 

0235 

REF 

4 

LAST 

875 

36,3045 

05600 

1 

PI/4 
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0236  36»30A6  OOOOl  0 

0237  36»30A7  77t>l6  0 


0238 

0239  REF  1 

02A0  REF  1 

02A1 

02A2 

02A3 

02AA 

02A5 

02A6 

02A7  REF  3 LAST  875 

0248 

0249 

0250 


36 

36 

36 

36 

36 

36 

36 

36 

36 

36 

36 

36 

36 


3050 

3051 

3052 

3053 

3054 

3055 

3056 

3057 

3060 

3061 

3062 

3063 
306'» 


52145  0 

35‘*55  0 
75^35  0 
57‘^57  0 
57162  0 
77^25  1 
4l‘»57  1 

20160  1 
43276  0 

35‘»41  0 
65^42  1 
00003  1 

43342  0 


halfciRc 

HYPTRIG 


0251 

856 

0252 

REf 

2 

Last 

0253 

REF 

4 

LAST 

875 

0254 

0255 

REF 

7 

LAST 

396 

36*3065 

36*3066 


3067 

3070 

3071 


44301  0 
OWOO  1 
35‘*51  1 
77776  1 

3 4P57  1 ARCSINH 


0256  REF 

0257  REF 

0258 

0259 
C0259 

0260 
C0260 

0261 

C0261 

0262 

C0262 

0263 
C0263 

0264 
C0264 

0265 
C0265 

0266 
C0266 

0267 
C0267 

0268 


3 LAST  876 

4 LAST  864 


36 

*3072 

27*677 

36 

*3073 

0 7265 

36 

*3074 

00011 

36 

*307P 

00000 

36 

*3076 

00000 

36 

*3077 

OO'tOO 

36 

*3100 

00000 

36 

*3101 

OO'tOO 

36 

*3102 

ooooo 

36 

*3103 

00525 

36 

*3104 

12P25 

36 

*3105 

OlOOO 

36 

*3106 

ooooo 

36 

*3107 

Ol'^BO 

36 

*3110 

06315 

36 

*3111 

02525 

36 

*3112 

12525 

36 

*3113 

04444 

36 

*311A 

22222 

36 

*3115 

10000 

36 

*3116 

ooooo 

36 

*3117 

I6l61 

1 

1 

1 

1 DZERO 
1 
0 
1 
0 
1 
0 

0 

0 

1 

1 

0 

1 

0 

1 

0 

0 

1 

0 


C0268 

0269 
C0269 

0270  REF  250  LAST  864 


36 

36 

36 

36 


3120 

3121 

3122 

3123 


30f06  0 
31‘*63  1 
06315  0 
3 7f61  0 


store 

RVQ 

DLOAD 

SR# 

POOL 

5L# 

OCOMP 

SRI 

SRI 

NORM 

exit 

CA 

ADS 

TC 

DEC 

2DEC 

2DEC 

20EC 

2DEC 

2DEC 

2DEC 

2DEC 

2DEC 

2DEC 

2DEC 

2DEC 

CAF 
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OO 


USER'S  OWN  PAGf  NO.  12  E3 

0d=DELTAE  (#3) 


GOTO 

NEARI 

COSFN 

OCOMP 

120*2 

PUSH 


OXNGE  WITH  PD*2n=SND  (*10)  PL  AT  40 


0 -170*1  4Ds(1-CSD)  (♦10)  PL  AT  60 

DAO 

01/1024 

POOL  PL  AT  80 

20 

DAO  ARG=C0SH(DELG)+.5INH(DELG)  (♦!!)  PL  AT  60 

BOSU  THIS  IS  AN  ARCSiNH  ROUTINE 

SpLOC  ARGS.5-ARG  (♦11-Nl) 

01/2 

TEN 

SPLOC  C (SPLOC) slO-Nl 

POLY 

9 

.0 

.015625 

.015625 

.020833333 


.03125 

.05 

.083333333 

.14285714 

.25 

.4A444444 


.8 


ZERO 
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0271 

0272 

0273 
027A 

0275 

0276 

0277 

0278 

0279 

0280 
0281 
0282 
0283 
028A 

0285 

0286 

0287 

0288 


0289 

0290 

0291 
R0292 
R0293 


LAMB 


REF  3A1  LAST  86A 
REF  1 

REF  3A2  LAST  877 
REF  4 LAST  876 
REF  5 LAST  877 
REf  12  last  864 
REF  343  LAST  877 

REF  344  LAST  877 
rEF  6 last  877 


REF  345  LAST  877 
REF  106  LAST  864 


36*312A 

54  146 

0 

36*3125 

0 0006 

1 

36*3126 

3 3'»63 

0 

36*3127 

52  145 

0 

36*3130 

53*  fOl 

1 

36*3131 

3 1677 

0 

36*3132 

0 7351 

1 

36*3133 

52  146 

0 

36*313A 

52  145 

0 

36*3135 

53*  TOl 

1 

36*3136 

0 0006 

1 

36*3137 

4 0001 

1 

36*3140 

2D  145 

0 

36*3141 

0 6103 

0 

36*3142 

77661 

0 

36*3143 

20606 

0 

36*314A 

00001 

0 

36*3145 

77616 

0 

TS 

MPAC  *2 

extend 

dca 

LN2/128 

DXCH 

MPAC 

DXCH 

SPLOC  *1 

CA 

SPLOC 

TC 

SHORTMP 

DXCH 

MPAC  *1 

DXCH 

MPAC 

DXCH 

SPLOC  ♦! 

EXTEND 

DCOM 

DAS 

MPAC 

TC 

INTPRET 

SR 

5 

STORE 

OD 

RVO 

36*3146 

REF  1 36*3147 
REF  1 36*3150 
RETURNS  WITH  ODsDELE  (+3)  OR 
OR  *10)*  AND  PUSHLOC  AT  60 


52145  0 COGDSOVF  DLOAu  GOTO 
35‘*57  1 BIGNO 

75OO7  1 COGDSTOR 

DELGUiz)  **2D  = SND  ( + 1 OR  ♦ 10 ) * 4Ds  1-CSD 
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USER'S  OWN  PAGf  NO.  13  E3 


MPAC**1  CONTAINS  LN2/128 
SPL0C.1**2  CONTAINS  LN ( 1 /2-ARGS ) / 128 


MPAC  CONTAINS  ( 1 O-N1 ) LN2/128 
A*L  contain  lM(1 /2-ARGS) /128 


ODsDELG  (*^2) 


PL  AT  60 


B I GN0;NEAR0NE-DP 1/1024 
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L 

R029A 

0295 

0296 

0297 

0298 

0299 

0300 

0301 

0302 

0303 
030A 

0305 

0306 

0307 

0308 

0309 

0310 

0311 

0312 

0313 
03U 

0315 

0316 

0317 

0318 

0319 

0320 

0321 

0322 

0323 
032-+ 

0325 

0326 
R0327 

0329 

0330 

0331 

0332 

0333 
033A 

R0335 

R0336 

R0337 


LAMB 

ASSUMES  1AD=R1A  (*6)*  32D=  R1  (♦7> 


REF 

7 

LAST 

877 

36 

36 

36 

REF 

8 

LAST 

878 

36 

36 

36 

REF 

9 

LAST 

878 

36 

REF 

10 

LAST 

878 

36 

REF 

11 

LAST 

878 

36 

REF 

17 

LAST 

289 

36 

REF 

18 

LAST 

878 

36 

REF  1 

REF  172  LAST  849 
REF  1 

REF  251  LAST  876 
REF  12  LAST  878 
REF  13  LAST  878 
REF  14  last  878 


REF 

REF 

REF 


19  LAST  272 

20  LAST  878 
15  LAST  878 


REF  107  last  877 
REF  16  LAST  878 


REF  17  last  878 


REF  4 LAST  868 


36 

36 

36 

36 

36 

36 

36 

36 

36 

36 

36 

36 

36 

36 

36 

36 

36 

36 

36 

36 


3151 

3152 

3153 

3154 
315B 
3156 
315T 

3160 

3161 

3162 

3163 

3164 

3165 

3166 

3167 

3170 

3171 

3172 

3173 

3174 

3176 

3176 

3177 

3200 

3201 

3202 

3203 

3204 

3205 

3206 

3207 
3210 


603A5  0 
00017  1 
OUOl  0 
50325  0 
0004»1  1 
OITOO  1 
56342  1 
77446  1 
A HOO  0 
6 1677  0 
55*677  1 
54  020  1 


SMA 


3 0020  0 
6 OOOO  1 
54  OOO  0 

1 3173  0 

3 7T55  1 
1 3174  1 

3 7761  0 
55*700  0 
27*677  1 
3 1677  0 


54  021  0 
6 0021  1 
55*677  1 

0 6103  0 

53740  1 

01700  1 
20601  1 
73OO6  0 
01677  0 
41366  1 


OLOAD 

PDDL 


SRI 

ABS 

CS 

AD 

TS 

TS 

CA 

DOUBLE 

OVSK 

TCF 

CA 

TCF 

CA 


3211  41414  0 


ODD 

Ey/EN 
STORETAG  TS 
ADS 
CA 

TS 

AD 

TS 

TC 

LXC.l 


PUSH 

SORT 

30FF 


36f32l2  02345  1 

36*3213  75215  0 

REF  1 36*3214  35465  0 

36*3215  00015  0 STORE 

36*3216  77616  0 RVQ 

SMA  TO  THE  3/2  POWER  **  ROOTMJ  IN  12D, 

IF  LSWl  SET*  INSIDE  SPHERE  A\10  120  SCALED  ♦7  + C(X2) 

IF  LSWl  OFF*  outside  SPHERE  AND  12D  SCALED  ♦3*CtX2) 
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USER*S  OWN  page  NO,  14  E3 

NORM 

14D 

SPLOC  *1 

NORM 

32D 

THIS  IS  essentially  A FLOATING  POINT  SUB 
C(SPL0C+1)=-N1 

SPLOC  LATER  WILL  BE  STORED  IN  Xi  FOR  SHF 

SPLOC 

DDV 

C (SPLOC) =-N2 

EXIT 

SPLOC  ♦! 
SPLOC 

SPLOC 

CYR 

CYR 

ABS(R1/R1A)  (♦2+N1-N2) 

EVEN 

ONE 

STORETAG 

ZERO 

SPLOC  ♦! 
SPLOC 

SPLOC 

A TAG  TO  DESIGNATE  ADDITIONAL  ShIFTRIGHI 
C(SPL0C)3N1-N2*n  OR  1 

SR 

SR 

SPLOC 

INTPRET 

C(SPLOC)s3(N1-N2*0  OR  l)/2 

SR** 

SPLOC  ♦! 

0*1 

LxA*2 

SPLOC 

DMP 

DMP 

AbS(R1/R1A)  (♦2+N1-N2+0  OR  1)  PL  DOWN  2 
C(X2)=*3(Nl-N2+0  OR  l)/2 

ARG  TO  THE  3/2  pOWER*SCALED  ♦3*(3/2)(Nl 
-N2  *0  OR  1)  PL  UP  2 

MOONSW 

♦2 

ROOTMU 

12D 

12D=SQRT (ABS(R1/R1A) )ABS(R1/R1A) 

SCALED  (*3  OR  *7 ) ♦ ( 3/2 ) (N1-N2 *0  OR  1) 
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L 

R0338 

R0339 

R03A0 

03^1 

03A2 

03A3 

0344 

0345 

0346 

0347 

0348 

0349 

0350 

0351 

0352 

0353 

0354 

0355 

0356 

0357 

0358 

0359 

0360 

0361 

0362 

0363 

0364 

0365 

0366 

0367 

0368 

0369 

0370 

0371 

0372 

0373 

0374 

0375 

0376 

0377 

0378 

0379 

0380 

0381 

0382 

0383 

0384 

0385 

0386 


LAMB 


this  is  Keplers  equation  for  time-of-flight  between  two 
CONIC  trajectory,  it  assumes  RIA  (♦6)s14D,  P (♦2)=340* 
=4D»  SNO  I+l.+lO 


DELTIME  OLOAO 


REF  3 LAST  874 


REF  6 LAST  875 
REF  346  LAST  877 


REF  2 LAST  868 


REF  347  LAST  879 


REF  17  LAST  875 


REF  6 LAST  875 


REF 

REF 


2 LAST  868 
1 


REF  5 LAST  878 
REF  1 

REF  4 LAST  875 


REF 

REF 

REF 


1 

2 LAST  879 
5 LAST  879 


= 20 

♦ D (*3 

POL 

36 

*321Y 

41345 

0 

36 

i3220 

00043 

0 

36 

• 3221 

00017 

1 

36 

• 3222 

40061 

1 

36 

• 3223 

20K07 

0 

36 

• 3224 

74712 

0 

36 

• 3225 

75‘*46 

0 

36 

• 3225 

77605 

1 

36 

• 3227 

72205 

0 

36 

• 3230 

01  733 

1 

36 

• 323l 

00145 

1 

36 

• 3232 

45325 

1 

36 

• 3233 

00017 

1 

36 

• 323A 

35A43 

1 

36 

• 3235 

77605 
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36 

• 3236 

00003 
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36 

• 3237 

65351 

0 

36 

• 3240 

00145 

1 

36 

• 3241 

00001 

0 

36 

• 3242 

76202 

0 

36 

• 3243 

77771 

0 

36 

• 324A 

75301 

1 

36 

• 3245 

00047 

1 

36 

• 3246 

00017 

1 

36 

• 324  7 

56O05 

1 

36 

• 3250 

00015 

0 

36 

• 3251 

00047 

1 

36 

• 3252 

77614 

1 

36 

• 3253 

02305 

0 

36 

• 325A 

75305 

0 

36 

• 3255 

43014 

0 

36 

• 3256 

02345 

1 

36 

• 3257 

75270 

0 

36 

• 3260 

02345 

1 

36 

• 3261 

75265 

1 

36 

• 3262 

52057 

1 

36 

• 3263 

20564 

1 

36 

• 326A 

75300 

0 

36 

• 3265 

52057 

1 

36 

• 3266 

20575 

1 

36 

• 3267 

75300 

0 

36 

• 3270 

53614 

1 

36 

• 3271 

02345 

1 

36 

• 3272 

75276 

0 

36 

• 3273 

20570 

1 

36 

• 327A 

77650 

1 

5L 


ABS 

OMP 

OMP 


POOL 

OMP 

TLOAD 


SR4 

TAD 

NORM 


OMP 

BON 

30FF 

5R« 

SR« 

NEARERTH  30FF 

SOTO 
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USER'S  OWN  PAGf  NO.  15  E3 

POINTS  ON  A 
1-CSD  (♦U*10^. 

-2 

DMP 

34D 

PL  AT  6D 

140 

BOV 

6 

SPEEDY 

SORT 

TLOAD 

INDEP 

PL  AT  4D 

MPAC 

DSU 

14D 

di/64 

CHANGES  MODE  TO  TP  (OOOOD. 

SORT(P  ABS(RIA) ) (l-CSD)tOGA  (*7  OR  16) 

PL  AT  7D 

2D 

PDDL 

MPAC 

(RlA-l)SND  (*7  nR16) 

CHANGES  MODE  TO  TP  PL  AT  lOD 

00 

TAD 

SIGN 

XI 

14D 

PL  PUSHES  UP  3 SINCE  TAD  GOVERNS  INSTEAD 
OF  MODE.  MODE  REMAINS  DP,  PL  AT  7D,4U 

XAD,1 

12D 

X2 

SMANGLSW 

thetasm 

BOFF 

MOONSW 

NEARERTH 

ESCPSW 

♦ 4 

GOTO 

0 -13D^1 
TMESTORE 

GOTO 

0 -4^1 

TMESTORE 

SR** 

ESCPSW 

♦ 4 

0 -90^1 

T (*(3  OR  7)*C(X2)*(7  OR  16)*C(X1)) 

488954A  yJL  SySlEM  pROGRAv)  S^EpATIN  BY  EyLES 


L LAMB 


0387  rEF 

0388 

0389 

0390 

0391  REF 

0392 

0393 
039A 


3 last  879 


1 


36.3275 

75500 

0 

36.3276 

77657 

0 

36.327T 

20601 

1 

36.3300 

77600 

1 

36.3301 

75513 

1 

36.3302 

00015 

A3A01 

0 

36.3303 

0 

36.330A 

OOOOl 

0 

SR« 


TMESTORE  BOv 


STORE 

5ETPD 


0395 

36»3305 

42A14 

0 

THETASM 

30FF 

0396 

0397 

REF 

REF 

2 

1 

LAST 

868 

36.3306 

36.3307 

02542 

75510 

0 

1 

1 

1 

0 

ERTHSFER 

5R» 

0398 

0399  ' 
OAOO 

REF 

4 

LAST 

880 

36.3310 

36.3311 

36.3312 

52O57 

20604 

75500 

OAOl 

0A02 

0403 

REF 

REF 

2 

5 

LAST 

LAST 

876 

880 

36.3313 

36.331A 

36.3315 

52145 

35A55 

75502 

0 

0 

1 

TIMELONG 

OLOAD 

ROAOA  T (+10)  IN  12D  AND  IN  MPAC* 


DEC  13*  1966  (mAIN)  pAGE  880 


TmEsTOrE 

USER'S  OWN  PAGf  NO.  16  E3 

0.1 

TIMELONG 

120 

RVO 

OD 

12DsT  (+10) 

SL4 

ITERSW 

ERTHSFER 

GOTO 

3.1 

TMESTORE 

T (*7  ♦C(X1) ) 

GOTO 

NEARI 

TMESTORE  *2 
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L 

ROAOS 

ROAO6 

ROA07 

ROAO8 

ROAO9 

ROAIO 

ROAll 

ROAI2 

R0A13 

ROAIA 

Roais 


0A16 

0A17 

0A18 

0A19 

0A20 

OA21 

OA22 

0A23 

OA2A 

OA25 

0A26 

OA27 

0A28 

0A29 

0A30 

OA31 

OA32 

OA33 

OA3A 

0A35 

OA36 

0A37 

0A38 

0A39 

OAAO 


OAAl 

0AA2 

OAA3 

COAAA 

0AA5 

0AA6 

0AA7 

0AA8 


lamb  UStR'S  OWN  PAGF  NO#  17  E3 

THUS  IS  A General  newton  irtRATDR  wherein  a starting  independent  variabl 
IS  INPUT  AND  the  CHANGE  IN  THi  INDEPENDENT  VARIABLE  IS  OUTPUT.  THE 
BOUNDS  OF  the  INDEPENDENT  VARIABLE, MAXINDeP  AND  MININDeP,  MUST  Be  AVAILA 
BLE  and  switch  7 MUST  BE  SET.  IF  A GOOD  GUeSS  TO  INDeP  IS  KNOWN, 

TWEE<1T  SHOULD  Be  SeT  TO  A SMALL  FRACT I ON ,DePENDI NG  ON  HOW  WELL  INDeP  IS 
KNOWN,  otherwise  THE  FIRST  3JESS  TO  INDEP  SHOULD  Be  .5 (MAXINDEP*MININ- 
OtP)  AND  TWEEKIT  SHOULD  BE  SET  TO  ,25.  IT  IS  ASSUMED  THAT  THE  CRITERIA 
FOR  exiting  from  THE  calling  programs  LOOP  IS  IN  THe  CALLING  PROGRAM, 

THE  dependent  VARIABLE  MUST  BE  IN  DePVAR  AND  THe  PREVIOUS  ONE  MUST  BE  IN 
P'HEVDEP.  THE  SIGN  OF  TWEEKIT  SOULD  BE  ♦/-  ACCORDING  TO  WHETHER  THE 

SINGLE-VALUeD  function  is  monotdnicly  increasing  or  decreasing. 


REF 

REF 

REF 

3 

1 

3 

LAST 

LAST 

880 

870 

REF 

2 

LAST 

870 

REF 

18 

LAST 

879 

REF 

2 

LAST 

870 

REF 

2 

LAST 

870 

REF 

3 

LAST 

881 

REF 

1 

REF 

I 

REF 

7 

LAST 

879 

REF 

A 

LAST 

881 

REF 

1 

REF 

2 

LAST 

881 

REF 

5 

LAST 

881 

Rtf- 

1 

REF 

3 

LAST 

868 

REF 

2 

LAST 

881 

REF 

A 

LAST 

881 

36,33l<> 

71<i:iA 

0 

iterator 

BOnCLR 

DLOaD 

36,3317 

02202 

0 

ITERSW 

36,3320 

753A7 

0 

FRSTTIME 

36,3321 

01  737 

0 

DEPVAR 

36*3322 

60225 

1 

osu 

NORM 

36,3323 

01  7A1 

1 

PREVDEP 

36,332A 

OOOA7 

1 

XI 

36,3325 

70525 

1 

PDDL 

SRI 

36,3326 

01 7A3 

0 

DELDEP 

36,3327 

77671 

1 

DDV 

36,3330 

53605 

1 

OMP 

SL* 

36,3331 

01 7A5 

0 

DELINDEP 

36,3332 

20202 

0 

1,1 

36,3333 

01  7A5 

0 

newdelta 

STORE 

DELINDEP 

36,333A 

712A0 

1 

3MN 

DLOAD 

36,3335 

75361 

1 

MINCHECK 

36*3336 

00033 

1 

MAXINDEP 

36,3337 

A5225 

0 

OSU 

DSU 

36,33A0 

01 733 

1 

INDEP 

36,33Al 

01  7A5 

0 

DELINDEP 

36,33A2 

50O00 

1 

BOV 

BMN 

36,33A3 

75373 

1 

XEEDULMT 

36,33AA 

75373 

1 

XEEDULMT 

36,33A5 

A35A5 

1 

OLOAD 

RVQ 

36,33A6 

01  7A5 

0 

DELINDEP 

36 , 33A7 

Ai3A5 

0 

FRSTTIME  OLOAD 

DMP 

36,3350 

00027 

1 

MININDEP 

36,3351 

01735 

1 

TWEEKIT 

36,3352 

A1325 

0 

PDDL 

DMP 

36,3353 

00033 

1 

MAXINDEP 

36,335A 

01 735 

1 

TWEEKIT 

36,3355 

77625 

0 

OSU 

PL  down  2 
PL  UP  2 


NOW  MUST  CHECK  TO  SEE  IF  THIS  DELTA  CAN 
CAUSE  THE  independent  VARIABLE  TO  EXCEED 

ITS  LIMITS. 


TWEEKIT  SHOULD  BE  SeT  ,25  IF  THE  FIRST 
GUESS  OF  INDEP  wAS  .5  (MAXINDeP*  UNINDEP> 

DO/jN  2D 


UP  2D 
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L LAMB 


0AA9 

36*3356 

52165 

1 

SIGN 

0A50 

REF 

3 

LAST 

881 

36*3357 

01  ^43 

0 

OA51 

REF 

1 

36*3360 

75333 

0 

OA52 

36*3361 

45345 

1 

MINCHECX  OLOAl 

OA53 

REF 

2 

LAST 

881 

36*3362 

00027 

1 

0A5A 

REF 

8 

LAST 

881 

36*3363 

01  <33 

1 

0455 

36*336^ 

40025 

1 

DSU 

0456 

REF 

6 

LAST 

881 

36*3365 

01  <45 

0 

0457 

REF 

1 

36*3366 

TS^'OO 

1 

0458 

36*3367 

71244 

0 

3PL 

0459 

REF 

2 

LAST 

882 

36*3370 

75400 

1 

0460 

0461 

REF 

7 

LAST 

882 

36*337i 

36*3372 

01  <45 
77616 

0 

0 

RVO 

0A62  36*3373 
0A63  REF  3 LAST  881  36.337^ 
0A6A  REF  9 LAST  882  36*3375 
0A65  REF  8 last  882  36*3376 
0A66  36*3377 


A53A5  I XEEDULmT  OLOAD 
00W33  1 
0H33  1 

0HA5  0 STORE 

77616  0 RVO 


0467 

36*3400 

45345 

1 

XEEDLLMT  DLOAd 

0468 

REF 

3 

LAST 

882 

36*3401 

00027 

1 

0469 

REF 

10 

LAST 

882 

36  * 3402 

01  <33 

1 

0470 

REF 

9 

LAST 

882 

36*3403 

01<45 

0 

STORE 

0471 

36*340<> 

77616 

0 

RVO 

dec  13*  1966  (MAIN)  PAGE  882 


USER'S  OWN  PAGf  NO*  18  E3 


GOTO 

DELDEP 

NEWOELTA 

DSU 

MININOEP 

INDEP 

BOV 

DELINDEP 

XEEDLLMT 

DLOAD 

XEEDLLMT 

DELINDEP 


DSU 

MAXINDEP 

INDEP 

DELINDEP 


DsU 

MININDEP 

INDEP 

DELINDEP 
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R0472 

ROA73 

OA7A 

0A75 

0A76 

OA77 

OA70 

0A79 

0A80 

0A81 

0A82 

0A83 

0A8A 

OA85 

0A86 

OA87 

OA88 

0A89 


0A90 

0A91 

0A92 

0A93 

0A9A 

OA95 

0A96 

0A963 

0A96A 

0A965 

0A97 

R0A98 


lamb 

assumes  32D=R  (*7)*  3AD=P  (♦2)»  TAQ5  (♦/-).  18D=CDGA  ( 
YEC  (+7)  AVAILABLE. 

36.3405  60PA5  0 INITV  OLOAD 

36.3406  OOU41  1 

REF  19  LAST  881  36.3407  OOUA7  1 

36.3410  70525  1 POOL 


36.3411 

36.3412 

REF 

REF 

REF 

6 LAST  879 
. 1 

ib *341 ^ 
36.341^^ 
36.3415 

1 

1 

36.3416 

36.3417 

36.3420 

36.3421 

36.3422 

36.3423 
36.342A 

REF 

OOOA3  0 
77671  1 
Al'iU  0 
025A5  1 
75‘*22  1 
35'*67  1 
52057  1 
20165  1 
75‘*24  1 

77657  0 OUTSIDE 
20173  0 

63566  1 MAGVTAN 


DDv 

BOFF 

SL* 

SL» 

SORT 


REF 

4 

LAST 

872 

36.3425 

01703 

1 

36.3426 

63361 

0 

36.3427 

00023 

0 

REF 

2 

LAST 

853 

36.3430 

01  725 

0 

36.3431 

60‘*35 

0 

REF 

5 

LAST 

883 

36.3432 

01  703 

1 

36.3433 

7a255 

0 

36.343A 

46561 

1 

REF 

1 

36.3435 

35‘*73 

1 

VXSC 


VXV 

VAD 

VXSC 


REF  2 LAST  856  36.3436  01fl7  1 

36.3437  77616  0 


store 

PVQ 


RETURNS  WITH  VELOCITY  IN  MPAC  AND  IN  VOVEC  SCALED  (+1) 
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USER'S  OwN  PAGF  NO,  19  E3 

5)  . UNRl  (*1)  . 

R2 

NORM 

32D 

XI 

SRI 

R1  (tT-Nl)  PL  AT  2D 

340 

DMP 

MOONSW 

OUTSIDE 

MU 

GOTO 

0 -120.1 
MAGVTAN 

P/Rl  (-4+N1)  pL  AT  00 

0-6.1 

PDVL 

V SIN(GAMMA)  (♦!  ) PL  AT  20 

UiNRl 

pdvl 

18D 

UNNORM 

2D5C0GA  UNRl  (*6)  PL  AT  8d 

VSR4 

UNRl 

UNVTAN  (*6) 

VXSC 

PL  AT  2D. 00 

VSL7 

VFACT 

SCALE  FOR  ASCENT  STEERING  AT  *7 

VOVEC 
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L LAMB 


USER'S  OWN  PAGE  NO.  20 


E3 


0536  36.3440  00020  0 01/1024  2DEC  .5  B-9 

C0536  36.3441  OOOOO  1 


0539 
C0539 

0540 
C0540 

0543 
C0543 

0544 
C0544 

0545 
C0545 


36.3442  00400  0 01/64  2DEC  .5  B-5 

36.3443  OOOOO  1 

36.3444  OlOOO  0 01/32  20EC  ,5  B-4 

36.3445  OOOOO  1 

36.3446  lOOOO  0 01/4  2DEC  .5  B-1 

36.3447  OOOOO  1 

36.3450  20000  0 01/2  20EC  .5 

36.3451  OOOOO  1 

36.3452  OOOOO  1 NEARZERO  20CT  BO 

36.3453  00001  0 


0547 

36.3454 

37(77 

1 

NEARI 

20CT 

C0547 

36.3455 

37(77 

1 

0548 

36 . 3455 

37('i7 

0 

BISNO 

20CT 

C0548 

36.3457 

37(77 

1 

0549 

36.3460 

00020 

0 

PERCENT 

2DEC 

C0549 

36 . 346 1 

14223 

1 

0553 

36.3462 

00130 

0 

LN2/128 

2DEC 

C0553 

36.3463 

27103 

0 

ROOTMU 

2DEC 

0559 

36 .3464 

22031 

0 

C0559 

36.3465 

22343 

0 

0560 

C0560 

36.3466 

36 .3467 

31111 

32405 

1 

1 

MJ 

2DEC 

3777737777 

3775737777 

E-3 

,693147181  B-7 
9,0249769  B-4 
,0122774395  B*6 


0561 

C0561 

05611 
C05611 

05612  REF 

05613 
C05613 

5000 


36.3470 

36.3471 

36.3472 

36.3473 

2 LAST  883 

36.347A 

36.3475 


40010  1 
40042  0 
30276  1 
05O00  1 
36*3472 
OOOOO  1 
00003  1 
0026 


ABSOLMIN  2DEC  -.999511590 

VFACT  2DEC  .761606218 

TFACT  EQUALS  VFACT 

DEPCRIT  2DEC  .000000012 

CDQAMN  EQUALS  220 


TEMP  PATCH  BY  CnVELLi  »**#»*♦*»#»»»#»##**** 
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L sJM  CHECK  End  of  Dank  markers 


0001 

COOOl 

0002 

C0002 

0003 

C0003 

OOOA 

COOOA 

0005 
C0005 

0006 
C0006 

0007 
C0007 

0008 
C0008 

0009 
C0009 

0010 
COOlO 

0011 

COOll 

0012 

C0012 

0013 

C0013 

OOIA 

COOIA 

0015 
C0015 

0016 
C0016 

0018 

cooie 

0019 
C0019 

0020 
C0020 

0021 

C0021 

0022 

C0022 

0023 

C0023 

00232 

C00232 

00235 

C00235 

002A 

C002A 


00,3700 

03^00 

0 

3NKSUM 

00 

00 ,3701 
01,362^ 
01,362i> 

03  ^01 

03924 

03925 

1 

1 

0 

3NKSUM 

01 

577i 

05  (71 

0 

BNKSUM 

02 

5772 

05(72 

0 

776^' 

07(64 

0 

3NKSUM 

03 

7765 

07(65 

1 

04,3556 

03556 

1 

BNKSUM 

04 

04,3557 

03957 

0 

05,352^' 

03924 

1 

BNKSUM 

05 

05,3525 

03925 

0 

06,3244 

03244 

0 

BNKSUM 

06 

06,3245 

03245 

1 

07,370^ 

03(04 

1 

BNKSUM 

07 

07,3705 

03  (05 

0 

10,3345 

03345 

0 

BNKSUM 

10 

10,3346 

03346 

0 

11,3327 

03327 

1 

BNKSUM 

11 

11,3330 

03330 

1 

12,3620 

03920 

0 

BNKSUM 

12 

12,3621 

03921 

1 

13,3626 

03926 

0 

BNKSUM 

13 

13,3627 

03?27 

1 

14,3730 

03(30 

0 

BNKSUM 

14 

14,3731 

03(31 

1 

15,375^ 

03(54 

1 

BNKSUM 

15 

15,3755 

03(55 

0 

16,3713 

03(13 

1 

BNKSUM 

16 

16,371^ 

03(14 

0 

17,377^ 

03(74 

0 

BNKSUM 

17 

17,3775 

03(75 

1 

20,3651 

03951 

0 

BNKSUM 

20 

20,3652 

03952 

0 

21,3742 

03(42 

0 

BNKSUM 

21 

21,3743 

03(43 

1 

22,365^ 

03954 

0 

BNKSUM 

22 

22,3655 

03955 

1 

23,336A 

03364 

0 

BNKSUM 

23 

23,3365 

03365 

1 

24,3732 

03(32 

1 

BNKSUM 

24 

24,3733 

03(33 

0 

25,3001 

O3DOI 

0 

BNKSUM 

25 

25,3002 

03002 

0 

26,2751 

02(51 

0 

BNKSUM 

26 

26,2752 

02(52 

0 

27,3471 

03‘'7l 

0 

BNKSUM 

27 

27,3472 

03‘*7Z 

0 

30,3530 

03930 

1 

BNKSUM 

30 

30,3531 

03931 

0 
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user's  own  page  N0«  i 
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L 5JM  CHECK  END  OF  BANK  MARKERS 


0025 

31,2440 

02‘'40  0 

3NKSUM 

31 

C0025 

31,2441 

02H41  1 

0026 

32,3041 

03041  1 

3NK5UM 

32 

C0026 

32 ,3042 

O3O42  1 

0027 

33,3312 

03312  1 

3NKSUM 

33 

C0027 

33,3313 

03313  0 

0028 

34,3765 

03^65  0 

3NKSUM 

34 

C0028 

34,3766 

03^66  0 

0029 

35,3566 

03566  1 

3NK3UM 

35 

C0029 

35 ,3567 

03567  0 

0030 

36,3476 

03^76  1 

3NKSUM 

36 

C0030 

36,3477 

03‘?77  0 

0031 

37 ,3707 

03^07  1 

3NKSUM 

37 

C0031 

37,3710 

03ao  1 

0032 

nu  need 

3NKSUM 

40 

0033 

NU  need 

3NKSUM 

41 

0034 

NU  NEED 

3NKSUM 

42 

0035 

nu  need 

3NKSUM 

43 
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L SJBR0JTINE5 

7777  7777 

7777  7777 


0001 

0002 


SUBRO 

SUBRO 


END  OF  NEW  PROGRAM  SHEPATIN  BY  EY.ES 
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USER'S  OWN  PAGf  NO.  I 

MASTER 

SELFCHEC 
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DEc  13»  1966  master  pAQE  88b 


L 

ROOOl 

R0003 


0005 

0006 

0007 

0008 
0009 

ROOlO 

0012 

0013 

OOIA 

0015 

0016 

0017 

0018 

0019 

0020 
0021 
0022 


R0023 

R0025 

0026 

0027 

0028 

R0029 

0031 

0032 

0033 
003A 
0035 


imteR-bank  communication  USER'S  OWN  page  no.  1 

THE  following  ROUTIn^  -An  BE  USED  TO  CALL  A SUBROUTINE  IN  AnOTHER  BAnK.  In  THE  BAnKCALL  VERSiO,m.  THE 
CADR  OF  the  subroutine  IMMEI^IATELT  FOLLOWS  THE  TC  BANKCALL  INSTRUCTION,  WITH  C(A)  AND  C(L)  PRESERVED. 


REF  6 LAST  276 
REF  2A3  LAST  8A3 

REF  2A4  LAST  888 


522A 

5225 

5226 

5227 


522A  BLOCK  02 

52  I2A  1 bANkCALL  DXCH  BuF2 

50  V02  0 INDEX  0 

3 0^00  1 BNKCAL+2  CA  0 

2A  B02  0 INCR  Q 


SAVE  incoming  A.L. 

PICK  UP  CADR. 

SO  WE  RETURN  TO  THE  LOC.  AFTER  THE  CADR. 


SWCALL  IS  identical  [0  BANKCALL*  EXCEPT  THAT  THE  CADR  ARRIVES  IN  A. 


REF  156  LAST  830 


5230  5<*  OOl  1 SWCALL  TS  L 


REF  A LAST  29A  5231  22  OOA  0 LXCH 

REF  4 LAST  314  5232  7 5356  0 MASK 

REF  245  LAST  888  5233  56  002  0 XCH 

REF  7 last  888  523^  52  124  1 DXCH 

REF  246  LAST  888  5235  50  002  0 INDEX 

5236  0 2000  0 TC 

REF  8 LAST  888  5237  56  124  0 SWRETURN  XCH 

REF  5 last  888  5240  56  004  0 XCH 

REF  9 LAST  888  5241  56  124  0 XCH 

REF  10  LAST  888  5242  0 0123  1 TC 


FBANK  SWITCH  BANKS,  SAVING  RETURN, 

LOWIO  GET  SUB-ADDRESS  OF  CADR, 

0 A.L  NOW  CONTAINS  OP  RETURN, 

BUF2  restoring  INPUTS  IF  THIS  IS  A BANKCALL, 

0 

10000  SETTING  0 TO  SWrETUrN. 

BUF2  *1  COMES  HERE  TO  RfTURN  TO  CALLER*  C(A*L) 

fbank  are  preserved  for  return. 

BUF2  ♦! 

BUF2 


the  following  routine  can  be  used  as  a unilateral  JUMP  with  C(A*L)  preserved  and  the  CADR  immediately 

FOLLOWING  THE  TC  POSTjUMP  iNSrRJdlON, 


REF  247  LAST  888  5243  56  002  0 POSTJUMP  XCH  0 

REF  306  LAST  809  524^  50  000  1 INDEX  A 

5245  3 OOOO  1 CA  0 

BANKJUMP  is  the  SAMe  as  ROStJUMP,  except  that  the  CADR  ARRIVES 


REF 

6 

LAST 

888 

5246 

54  004 

1 

BANKJUMP 

TS 

FBANK 

REF 

5 

LAST 

888 

5247 

7 5^56 

0 

MASK 

LOWIO 

REF 

248 

LAST 

888 

5250 

56  002 

0 

XCH 

0 

REF 

249 

LAST 

888 

525l 

50  002 

0 

0*10000 

INDEX 

0 

5252 

1 2OOO 

1 

BNKJUP*4 

TCF 

10000 

SAVE  INCOMING  C(A), 
GET  CADR, 


IN  A. 


RESTORING  INPUT  C(A) 
POSTJUMP, 


IF  THIS  WAS  A 


48895^A  yJL  SVSTEm  FOr  AGC?  NEW  PrOGrAvi  sHErATin  BY  EYLEs 


DEc  l3t  1966  mAsTEr  rAqE  889 


L niER-BANK  communication  USeR*S  Ot^N  PAGp  NO.  Z 

P0036  THE  FOLLOWimG  ROUTIvjE  oE'S  THE  RETURN  CAOR  SAVED  BY  SWCALL  Or  BAnKCALL  A,,,D  LEAv/ES  iT  in  A. 


0038 

REF 

6 

LAST 

888 

5253 

3 

5356 

1 

MAKECADR  caf 

LOWIO 

0039 

REF 

REF 

11 

LAST 

LAST 

888 

525A 

7 

0123 

Oi2A 

0 

MASK 

BUF2 

OOAO 

12 

889 

5255 

6 

0 

AD 

BUF2  *1 

OOAl 

REF 

250 

LAST 

888 

5255 

0 

0002 

0 

TC 

Q 

R00A2  The  following  rOutIne  dbiains  the  Two  ^ords  beginning  at  the  address  arriving  in  a,  and  leaves  Them  in 
RoOAA  A.L,  enter  with  a CaDR  in  a,  at  OataCALL  with  junk  in  L if  not  switching  SUPeRBANKS,  otherwise  at  SUPDaCaU  with 
R004A2  SJPERBANK  BITS  IN  BITS  7-5  JN  L (“ITS  15-8  AND  A-1  MAY  BE  JUNK),  DEBRIS  s MPTEMP,  INHINTS  FOR  180  MUSeC, 


00A5 

REF 

157 

LAST 

888 

5257 

5A  001 

1 

DATACALL  TS 

00A5A 

5260 

0 0006 

1 

EXTEND 

0PA55 

00A6 

REF 

REF 

1 

158 

LAST 

889 

5261 

5262 

00  007 
56  OOl 

0 

0 

READ 

XCH 

L SAVE  CADR  (SOLE  INPUT  HERE). 

SUPERBNK  THIS  PROLOGUE  MAKES  SUPERSWITCH  VACUOUS. 

L CADR  IN  A,  SUPERBITS  IN  L. 


00A65  REF  2 LAST  16 


526^  5A  125  0 SUPDACAL  TS  MPTEMP 


00A7 

REF 

7 

LAST 

888 

526A 

00A75 

LAST 

5265 

00A8 

REF 

2 

889 

5266 

00A85 

REF 

3 

LAST 

889 

526? 

00A9 

REF 

7 

LAST 

889 

5270 

00A95 

REF 

159 

LAST 

889 

5271 

0050 

5272 

00505 

5273 

0051 

REF 

3 

LAST 

889 

527A 

00515 

5275 

0052 

REF 

160 

LAST 

889 

5275 

00525 

5277 

56  OOA 

0 

XCH 

FBANK 

0 0006 

1 

EXTEND 

OA  007 

1 

ROR 

SUPERBNK 

56  125 

1 

XCH 

MPTEMP 

7 5356 

0 

MASK 

LOWIO 

56  001 

0 

XCH 

L 

0 OOOA 

0 

INHINT 

0 0006 

1 

EXTEND 

01  007 

1 

WRITE 

SUPERBNK 

0 0006 

1 

EXTEND 

5 0001 

0 

INDEX 

L 

3 2001 

1 

OCA 

10000 

SET  fbank  for  Data, 

SAVE  FBANK  IN  BITS  15-11.  AND 
SUPERBANK  IN  BITS  7-5. 

SAVE  REL.  ADR.  iN  BANK,  FETCH  SJPERBITS 
BECAUSE  RUPT  DOES  NOT  SAVE  SUPERBANK, 

set  superbank  FnR  DATA. 

THIS  IS  SAFE  EVfN  IF  CADR  WAS  END  BANK, 


0053  REF  A LAST  889  53OO 
0053A  5301 
00535  REF  A LAST  889  5302 
005A  5303 
005A5  REF  8 LAST  889  530A 
0055  REF  5 LAST  889  530S 

00555  5306 


56  125  1 
0 0006  1 
01  007  1 
0 0003  1 
5A  OOA  1 
3 0125  1 
0 0002  0 


XCH 

MPTEMP 

SAVE  1ST 

WD.  FETCH  OLD  FBANK  AND  SBANK. 

EXTEND 

WRITE 

relint 

SUPERBNK 

RESTORE 

SUPERBANK. 

fbank 

RESTORE 

FBANK. 

TS 

CA 

MPTEMP 

RECOVER 

FIRST  WORD  OF  DATA. 

RETURN 

2A  WDS. 

DATACALL  516  MU,  SUPDACAL  A32  MU 

48895'*a  YJL  system  FOr  aGC!  nEW  PrOGra*^  SHEPaTin  BY  EYUEs 


dec  U*  1966  MasTEr  PaGE  890 


njER-BANK  communication 


user '5  Ol^N  PAGf  no. 


P0056 

0058 

REF 

0059 

REF 

0060 

0061 

REF 

0062 

REF 

0063 

ref 

006A 

REF 

0065 

REF 

0066 

REF 

0067 

REF 

0068 

0069 

REF 

■ 0070 

REF 

0071 

REF 

0072 

REF 

THE  following  ROUTINES  ARE  jOEnTiCAL  TO  BAnKCALL  A^D  SWCALL  EXCEPT  THAT  THEY  ArE  USED  In  INTERRUPT. 


13  LAST  66A 


9 last  889 
8 LAST  889 
:53  LAST  890 
lA  LAST  890 
ISA  LAST  890 


12  last  301 
10  LAST  890 

13  LAST  890 
IS  LAST  890 


S307 

5310 

5311 

5312 

5313 
531A 

5315 

5316 

5317 

5320 

5321 


5322 

5323 
532A 
5325 


56  073 
56  OOA 
56  073 
0 0072 


1 

ibnkcall 

DXCH 

RUPTREG3 

0 

INDEX 

Q 

1 

CAF 

0 

0 

T A l.l  ^ A t 1 

I NCR 

0 

1 

1 SWCALL 

TS 

L 

0 

lxch 

fbank 

0 

MASK 

LOWIO 

0 

xch 

Q 

1 

DXCH 

RUPTREG3 

0 

INDEX 

Q 

0 

TC 

10000 

0 

IsWRETRN 

XCH 

RUPTREGa 

0 

XCH 

FBANK 

0 

1 

XCH 

TC 

RUPTREGA 

RUPTREG3 

USES  RUPTREG3,A  FOR  DP  RETURN  ADDRESS. 


'VsagS^A  YJU  system  for  AGC;  new  program  S^EPATIN  bY  eyles 


DEC  13,  1966  MASTER  PAGE  891 


L inte«"Bank  communication 


USER'S  OWN  page  no.  A 


P0073  the  following  SUBROUTINE^  PROVIDE  TO  THE  BASIC  PROGRAMMER  ENTRY  INTO  AND  RETURN  FRoM  ANY  INTERPRETIVE 

Roots  coding  which  does  not  use  t^e  entlRIng  contents  oF  o and  which  returns  via  Danzig,  C(a)  and  c(L)  are  saved, 

RooTT  USER'S  Responsibility  to  fill  in  advance  tHe  appropriate  operand  and  address  registers  uSeD  by  the 

R0079  interpretive  CODING  SjcH  AS  M^Ac*  BUF*  ADDRWD,  ETC»5  AND  TO  cONpIRM  THAT  THE  INTERPRETivE  COOING  MEETS  THE 
Roosi  A30VE  Restrictions  with  resPect  to  o and  danzig. 


R0082  USePReT  AND  USPRCADR  MUST  NOt  3e  OSeD  IN  INTERRUPT* 


R0083  1,  USEPRET  ACCESSES  INTERPRETIVE  GQOING  WHICH  CAN  Be  ENTERED  WITHOUT  CHANGING  FBANK, 

ROOeS  the  CALLING  SEOUeNCE  IS  A5  FOLLOWS: 

A0O86  L TC  USEPRET 

A0087  L*1  TC,TCF  INTpRETX  TCtTCp  MEANS  TC  OR  TCF 

A0O88  INTPRETX  IS  the  INTERPRETIVE  COOING 

A0089  RETURN  IS  TO  L*2 

R0090  2.  USPRCADR  ACCESSES  INTERPRETIVE  CODING  IN  OTHER  THAN  THe  USER'S  FBANK,  THE  CALLING  SeoUeNCE  IS  AS  FOLLOWS; 


A0092 

L 

TC  • 

USPRCADR 

A0093 

L+l 

CADR 

INTPRETX 

INTPRETX  IS  the  INTERPRETIVE  CODING 

A009A 

RETURN  IS  TO  L*7 

0095 

REF 

255 

LAST 

890 

5326 

56  U02 

0 

USEPRET 

XCH 

Q 

fetch  0,  SAVING  A 

0096 

REF 

6 

LAST 

278 

532? 

5A  15A 

0 

TS 

LOC 

L*1  TO  LOC 

0097 

REF 

18 

LAST 

7A7 

533O 

3 0U06 

1 

CA 

BBANK 

0098 

REF 

1 

533I 

5A  155 

1 

TS 

BANKSET 

USER'S  BBANK  TO  BANKSET 

0099 

REF 

30 

LAST 

825 

5332 

3 7^46 

0 

CA 

BIT8 

0100 

REF 

1 

5333 

54  U23 

1 

TS 

EDOP 

EXIT  INSTRUCTION  TO  EDOP 

0101 

REF 

256 

LAST 

891 

533^ 

3 OUO2 

0 

CA 

Q 

RETRIEVE  ORIGINAL  A 

0102 

REF 

7 

LAST 

891 

5335 

0 0154 

1 

TC 

LOC 

0103 

REF 

8 

LAST 

891 

5336 

54  154 

0 

USPRCADR 

TS 

LOC 

SAVE  A 

010^ 

REF 

31 

LAST 

891 

5337 

3 7K6 

0 

CA 

BIT8 

0105 

REF 

2 

LAST 

891 

53AD 

54  U23 

1 

TS 

EDOP 

EXIT  INSTRUCTION  TO  EDOP 

0106 

REF 

19 

LAST 

891 

53Al 

3 OUO6 

1 

CA 

BBANK 

0107 

REF 

2 

LAST 

891 

53A2 

54  155 

1 

TS 

BANKSET 

USER'S  BBANK  TO  BANkSET 

0108 

REF 

257 

LAST 

891 

53A3 

50  U02 

0 

index 

0 

0109 

53AA 

3 OUOO 

1 

CA 

0 

0110 

REF 

11 

LAST 

890 

53A5 

54  U04 

1 

TS 

FBANK 

INTERPRETIVE  BAnK  TQ  FBANK 

0111 

REF 

9 

LAST 

890 

53A6 

7 5^56 

0 

MASK 

LOWIO 

YIELDS  INTERPRETIVE  RELATIVE  ADDRESS 

0112 

REF 

258 

LAST 

891 

53A7 

56  U02 

0 

XCH 

Q 

INTERPRETIVE  ADDRESS  TO  0,  FETCHING  1 

0113 

REF 

9 

LAST 

891 

535O 

56  i54 

1 

XCH 

LOC 

L*1  TO  LOC,  RETRIEVING  ORIGINAL  A 

OllA 

REF 

1 

5351 

1 5251 

0 

TCF 

Q+lOOOO 

^88954A  YJL  SYSTEM  FOR  AGCi  NEW  PRO^i^AM  SMePATIN  BY  EYLES 


DEC  i3,  1966  Master  page  89ii: 


L INTER'BANK  communication  U5ER*S  own  page  no*  t> 

Pout  here  are  four  possible  settings  for  channel  07.  (channel  07  contains  the  superbank  setting.) 
R0119  pseudo-fixed  OCTAL  PSEUDO 


R0120  sjpeRbank  setting  s-reg.  Value  bank  numbers  addresses 
R0121  — — 

R0122  SJPERBANK  3 OXX  2OO0  . J777  30  - 37  70000  - 107777  (WHERE  XX  CaN  BE  ANYTHING  AND 

R012A  WILL  USUALLY  BE  SEEN  AS  H) 

R0126  SJPERBANK  A lOO  2000  - ^777  AO  - A7  110000  - 127777  (AS  FAR  AS  IT  CaN  BE  SEEN, 

ROUS  ONLY  BANKS  aO-A3  WILL  EVER  BE 

R0130  AND  ARE  PRESENTi  Y AVAILABLE) 

R0132  SJPERBANK  5 lOl  2000  - J777  50  - 57  130000  - U7777  (PRESENTLY  NOT  AVAILABLE  TO 

R013A  THE  USER) 

R0136  SJPERBANK  6 MO  2000  » J777  6o  - 67  150000  - 167777  (PRESENTLY  NOT  AVAILABLE  TO 

R0138.  THE  USER) 

R01A2  »»»  THIS  routine  MAYBe  CALLeO.  by  any  program  located  in  banks  00  - 27.  I.E.,  NO  PROGRAM  LIVING  IN  ANY 

R014A  SJPERBANK  SHOULD  USE  SUPERSW. 


R01A5  SJPERSW  MAYBE  CALLED  IN  THIS  FASHION! 


R0lA6 

R0147 

R01A8 

R01A9 

R0150 


CAF 

TCR 


ABBCON  where  — ABBCON  BBCON  SOMETHIN  — 

SUreRSw  (IHE  SUPERBNK  bits  are  in  the  BBCON) 

• • • 


R0151  OR  IN  THIS  FASHION  i 


R0152 

R015A 

R0155 

R0157 

R0159 

R0161 


CAF  superset 

TCR  SuPERSw 

• • • • • • 


WHeRe  superset  is  one  of  the  four  available 

SUrERbANK  bit  CONSTANTS! 

SUPEROll  OCTAL  60 
SUPERIOO  OCTAL  100 
SUPERlOl  OCTAL  120 
SUPERllO  OCTAL  lAO 


0163 

016A 

A0165 

0166 

A0167 


REF  5 LAST  889 
REF  259  LAST  891 


5352 

0 

0006 

1 

SJPERSW  extend 

5353 

535A 

01 

0 

007 

0002 

1 

0 

WRITE 

TC 

SUPERBNK 

Q 

WRITE  BITS  7-6-5  OF  THE  ACCUMULATOR  INTO 
CHANNEL  07 

TC  TO  INSTRUCTION  FOLLOWING 

TC  SUPERSW 


YJL  system  for  agc:  new  Pro'JRAM  S^ePATIN  by  eYLeS 


Dec  13*  1966  master  page 


L interpreter  USER'S  OWN  PAGp  NO,  I 
ROOOl  SECTION  1 DISPATCHER 

R0002  eNtRy  to  the  interpreter*  intpRet  Sets  loc  to  the  first  instruction,  bankset  to  the  bbank  of  the 
RoOOA  object  interpretive  program*  and  1NTBIT15  TO  THe  BITIS  CONTENTS  OF  FBANK,  INteRPReTIVe  PROGRAMS  MAY  Be  IN 
R0006  virtually  all  Banks  present  unOeR  any  suPeR-Bank  setting,  with  tHe  Restriction  that  PRor,RAMs  in  high  banks 
ROOOB  (BITIS  of  FBANK  s j)  DO  NOT  ReFeR  TO  LOWBANKS,  AnO  VICE-VeRSA,  THE  INTERPRETER  OOeS  NOT  SWItCH  SUPeRBAN<S, 
ROOlO  E-BAN<  switching  occurs  WHENEi/ER  CieNERAL  erasable  (100  - 3777)  IS  addressed. 


0012 

0013 

OOIA  REF  10  last  891 

0015  REF  20  LAST  891 

0016  REF  3 LAST  891 

0017  REF  39  LAST  757 

0018  REF  5 LAST  15 


0021  REF  1 


0022  REF  21  LAST  893 

0023  REF  108  LAST  878 


6103 

BLOCK 

03 

6103 

0 0006 

1 

INTPRET 

extend 

610A 

22  154 

1 

DXCH 

LOC 

6105 

3 OOO6 

1 

+ 2 

CA 

BBANK 

610R 

54  155 

1 

ts 

bankset 

610/ 

7 7/37 

1 

MASK 

BIT15 

6IIO 

54  105 

1 

TS 

INTBIT15 

611I 

1 6124 

1 

TCF 

newops 

6112 

22  006  1 INTRSM 

LXCH 

BBANK 

6113 

1 6105  1 

TCF 

INTPRE 

Set  loc  to  the  word  following  the  tc, 

INTERPRETIVE  BRANCHES  FINISH  HERE. 

GET  15TH  BIT  FOR  INDEXABLE  ADDRESSES. 

PICK  UP  OP  CODE  PAIR  AND  BEGIN. 

RESUME  suspended  INTERPRETIVE  JOB 


^8895'tA  YJL  SYSTEM  FOR  AGC  i NEW  PROGRAM  S^ePATIN  BY  eYLeS 


L interpreter 

P002A  AT  the  end  OF  MOST  INSTRUCTIONS,  CONTROL  IS 


0026 

REF 

10 

LAST 

8AI 

REF 

0027 

A 

LAST 

893 

0028 

REF 

22 

LAST 

893 

LAST 

0029 

REF 

3 

8"! 

0030 

ref 

1 

A0031 

0032 

0033 

REF 

REf 

8 

1 

LAST 

711 

6llA  5<,  i53  1 NEWMODE  TS 


61X5  3 OI55  0 DANzIG  CA 

6116  5A  'J06  0 TS 

6117  ID  D23  1 NOIBNKSW  CCS 

6I2O  I 6i33  1 TCF 


6121  10  U67  1 CCS 

6122  1 5P56  0 TcF 


003A 

REF 

11 

LAST 

893 

6123 

refers  TO 
6i2A 

612i> 

2A  15A 
"NEWOPS 
50  15A 

3 0000 
10  000 

1 6‘'21 

1 

incr 

R003A5 

0035 

0036 

0037 

0038 

' REF 

REF 

REF 

12 

307 

1 

1 1 \ i f 

LAST  894 

, 

1 

1 

NEWOPS 

index 

CA 

LH3  1 

088 

612^> 

6127 

0 

1 

CCS 

TCF 

0039 

6130 

00177 

0 

LOW? 

OCT 

OOAO 

REF 

A 

LAST 

89A 

6131 

5A  023 

1 

TS 

OOAl 

REF 

REF 

5 

19 

LAST 

LAST 

521 

6132 

7 6130 

5A  020 

1 

OPJUMP 

MASK 

00A2 

878 

6133 

1 

TS 

00A3 

OOAA 

ref 

REF 

20 

1 

LAST 

89A 

613A 

6133 

10  020 

1 6303 

1 

0 

CCS 

TCF 

00A5 

REF 

1 

6136 

1 7OI2 

1 

TCF 

Dec  u,  1966  Master  page  89^ 


USER'S  OWN  page  no,  2 
TO  DANZIG  TO  DISPATCH  THE  NEXT  OPERATION, 


MODE 

PROLOGUE  FOR  MOdE-CHANGING  INSTRUCTIONS. 

BANXSET 

BBANK 

set  BBANK  BEFoRf  TESTING  NEWjOB  SO  THAT 
IT  MAY  BE  SAVED  DIRfCTLY  BY  CHANJOB, 

EDOP 

OPJUMP 

SEE  IF  AN  order  CODE  IS  LeFT  OVeR  FROM 
THE  last  pair  RfTRIfVEd.  IF  SO,  EXECUTE, 
EDOP  IS  SET  TO  7ER0  ON  ITS  Re-EDITING, 

newjob 

CHANg2 

SEE  IF  A JOB  OF  HIGHER  PRIORITY  IS 
PRESENT.  AND  If  SO,  cHANgE  JOBS. 

LOC 

advance  the  location  counter. 

LOC 

0 

A 

DOSTORE 

177 

entry  to  begin  ry  picking  op  code  pair, 
may  be  an  Opcode  pair  oh  a store  code, 

TEST  SIGN  AND  GrT  DaBS(A), 

process  store  Code, 

EDOP 

OP  Code  pair,  leave  the  other  in  edop 

LOW? 

where  CCS  edop  will  honor  it  next. 

CYR 

CYR 

0PJUMP2 

LOWWD  enters  here  Ie  A HIGHT-HAnD  OP 
code  Is  to  be  Processed,  test  Prefices. 
TEST  second  prefix  BIT, 

EXIT 

♦0  OP  CODE  IS  EvIT. 

^88954A  yjL  sysTEm  F^r  AGC!  NEW  PrOGi^Am  sMEpATjh  BY  EYLEs 


DEc  13*  1966  MAsTEr  pAQE  89t> 


L IMTERP^ETER  USER’S  OWN  PAGe  NO,  3 

P0046  PROCESS  ADDRESSES  WHiCH  ^AY  BE  DIRECT*  isjDEXED*  OR  REFERENCE  THE  PUsHDOWn  LiST. 


00A8 

REF 

REF 

REF 

67 

308 

1 

LAST 

LAST 

767 

6137 

7 7755 

10  ooo 

1 6A02 

0 

ADDRESS 

viASK 

BITi 

SEE  IF  ADDRESS  IS  INDEXED,  CYR  CONTAINEO 

0049 

0050 

894 

6140 

6141 

0 

0 

CCS 

TCF 

A 

index 

400XX*  So  BIT  1 IS  NOW  AS  IT  WAS  IN  CYR* 
FORM  indexed  ADnRESS, 

0051 

REF 

13 

LAST 

894 

6i42 

5o  154 

1 

diradres 

index 

LqC 

LOOK  ahead  TO  NfXT  WORD  TO  SeE  IF 

0052 

REF 

309. 

LAST 

6143 

4 OOOl 

1 

0CT40001 

CS 

1 

ADDRESS  IS  given. 

0053 

895 

614A 

1 0 000 

0 

CCS 

A 

0054 

REF 

1 

6145 

1 6-751 

0 

NEG4 

TCF 

PUSHUP 

IF  NOT, 

0055 

6146 

77  773 

1 

DEC 

•4 

0056 

0057 

REF 

REF 

14 

2 

LAST 

LAST 

895 

849 

6147 

6150 

24  154 
54  106 

1 

1 

INCR 

TS 

LOC 

ADDRWD 

IF  SO*  TO  SHOW  WE  PICKED  UP  A WORD. 

48895‘iA  rJL  SYSTEM  FOR  AGC  j NEW  PROGRAM  SHePATIN  BY  EYLES 


DEC  13*  1966  MASTER  PAGE  896 


L 

P0058 

R0060 

R0062 


006A 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

007a 

0075 

0076 

0077 

0078 

0079 
00795 

0080 
00802 
00803 
0080A 
00806 
00807 


INTERPRETER  USER'S  OWN  PAGe  NO.  A 

FINAL  digestion  oF  DIReCI  ADDRESSES  OF  0?  CODES  WITH  01  PREFIx  IS  DONE  HeRE,  IN  EACH  CASE.  THE 
required  12-BIT  SUB-ADDReSS  is  LE*:!  IN  ADDRWD,  WITH  ANY  ReQUIReD  E OR  F BANK  SWITCHING  DONE.  ADDReSSeS  LESS 

THAN  a5D  are  TAKEN  TO  BE  RELATWE  TO  THE  WORK  AREA.  THE  OP  CODE  iS  NOW  IN  BITS  I-5  OF  CyR  WITH  BIT  lA  = 1. 


REF  1 

6151 

6 6305 

1 

AD 

REF  310 

LAST 

895 

6152 

10  000 

0 

CCS 

REF  1 

6153 

6 6332 

0 

AD 

REF  1 

6I5A 

1 6l61 

0 

TCF 

REF  32 

LAST 

8A3 

6155 

0 

0 

1 

netzero  ca 

-ENDVAC  see  if  address  relative  to  WORK  AREA, 

A 

-enderas  if  not,  see  if  in  General  erasable. 

lERASTST 

FIXLOC  if  so,  leave  THF  modified  ADDRESS  IN 


REF  3 LAST  895  6156  26  106  1 ADS  ADDRWD  ADDRWD  AND  DISPaTCH. 

REF  21  last  89A  6157  50  ^20  0 ITR15  INpEX  CYR  THIS  INDEX  MAxES  THE  NEXT  INSTRUCTION 

REF  1 6160  7 6^32  1 7 INDJUMP  -I  TCF  INDJUMP  ♦ OP,  EDITING  CYR. 

616l  0 0006  1 lERASTST  EXTEND 

REF  1 6162  6 6172  0 3ZMF  GEADDR  GO  PROCESS  GENERAL-ERASABLE  ADDRESS, 


REF  10  LAST  89l  616^  7 5856  0 MASK 

REp  11  last  896  616A  6 5^56  1 AD 

REF  A LAST  896  6165  56  106  0 XCH 

REF  6 LAST  893  6166  6 0105  0 AD 

REF  12  last  891  6167  5A  OQA  1 TS 

REF  22  LAST  896  6i70  50  O20  0 ITR12  INDEX 

ref  2 LAST  896  6171  7 6^32  1 7 

REF  11  LAST  535  6172  7 A553  1 GEADDR  MASK 

REF  A LAST  289  6173  6 5370  0 AD 

REF  5 LAST  896  617*+  56  106  0 XCH 

REF  61  LAST  829  6175  5A  O03  0 TS 

REF  23  LAST  896  6176  50  O20  0 ITRIO  INDEX 

REF  3 LAST  896  6177  7 6332  1 7 


LOWIO  fixed  bank  address,  restore  and  add  B15* 

Lowio  SwITcH  banks  ANn  LEAVE  SubADDRESS  IN 

ADDRWD  ADDRWD  FOR  OPeRaND  RETRIEVAL,  (THIS 

INTBIT15  method  PRECLUDES  USE  OF  THE  LAST 

FBANK  LOCATION  IN  EACH  FBANK.) 

cyr 

INDjumP  -1 

LOWS 

OCTlAOO 

ADDRWD 

EBANK 

CYR 

INDJUMP  -1 


48895^A  YJL  system  FOR  AGCj  NEW  PROGRAM  SMePATIN  BY  EYLES 


dec  13*  1966  MASTER  PAGE  897 


L interpreter 


USER'S  OWN  page  NO.  S 


P008I  the  following  routine  PRUCeSSES  interpretive  indexed  addresses,  an  interpreter  index  register  may 

Roo83  contain  the  addreSS  of  any  erasable  Register  (o-a2  being  relative  to  the  vac  areA)  or  any  inteRRRetive  program 

R0085  BANK.  OK  ANY  INTEGER  IN  THAT  RANGfc. 


0086 

0087 

REF 

REF 

1 

2A 

LAST 

896 

6200 

6201 

0088 

REF 

33 

LAST 

896 

6202 

3 5P6A  0 dodload*  caf  dload* 

5A  U20  1 Ts  CYR 

3 OHO  1 INDEX  CA  FIXLOC 


STODL*  Comes  here  to  process  load  adr 
(sTOvl*  enters  hErE), 

SET  UP  INDEX  LOCATION. 


0089 

REF  ' 

1 

0090 

REF 

1 5 

last 

895 

0091 

0092 

REF 

16 

LAST 

897 

0093 

REF 

311 

LAST 

896 

009A 

■0095 

REF 

2 

LAST 

897 

6203  5A  120  0 
620A  2A  ISA  I 

6205  50  ISA  1 

6206  A OUOO  0 

6207  10  000  0 

6210  2A  120  1 

6211  1 6<:i2  1 


TS  INDEXLOC 

INCR  LOC 

INDEX  LOC 

CS  0 

CCS  A 

INCR  INDEXLOC 

NOOP 


(ADDRESS  always  GIVeN). 


INDEX  2 IF  address  STORED  COMPLEMENTED, 


0096  REF  6 LAST  896  6212  5A  106  1 TS  ADDRWD  1A  BIT  ADDRESS  tO  ADDRWD. 

0097  REF  1 6213  7 5367  1 MASK  HIGHa  IF  ADDRESS  GREATER  THAN  2K,  ADD  INTB1T15 


0098 

0099  REF  1 

0100  REF  7 LAST  896 

0101  REF  7 LAST  897 


621A 

0 0006 

1 

6216 

1 6220 

0 

6216 

3 0105 

0 

6217 

25  106 

1 

EXTEND 

3Z.F  INDEX2 

CA  INTBIT15 

ADS  ADDRWD 


0102 

REF 

3 

LAST 

897 

6220 

50  120 

1 INDEX2 

INDEX 

INDEXLOC 

0103 

REF 

20 

LAST 

883 

6221 

A OOA6 

1 

CS 

XI 

OlOA 

REF 

8 

LAST 

897 

6222 

25  106 

1 

ADS 

ADDRWD 

DO  AUGMENT,  IGNORING  AND  CORRECTING  OVF. 


0105  REF  1 6223 

0106  622A 

0107  REF  1 6225 

0108  REF  2 LAST  897  6226 

0109  6227 

0110  REF  1 6230 

0111  REF  9 last  897  623l 

0112  REF  13  LAST  896  6232 

0113  REF  12  LAST  896  6233 

OllA  REF  1 623A 

0115  REF  10  LAST  897  6235 

0116  REF  25  LAST  897  6236 

0117  REF  A LAST  896  6237 


7 6330 

0 

MASK 

HIGH9 

0 0006 

1 

EXTEND 

1 62A0 

0 

3ZF 

INDWORK 

7 5367 

1 

MASK 

HIGHA 

0 0006 

1 

EXTEND 

1 62A2 

1 

3ZF 

INDERASE 

3 0106 

0 

CA 

ADDRWD 

5A  OOA 

1 

TS 

FBANK 

7 5356 

0 

MASK 

LOWIO 

6 7(A3 

0 

AD 

2K 

5A  106 

1 

TS 

ADDRWD 

50  020 

0 ITRll 

INDEX 

CYR 

3 6332 

0 

3 

INDJUMP  ■ 

SEE  IF  ADDRESS  iS  IN  WORK  AREA. 

SEE  IF  IN  FIXED  BANK. 

IN  FIXED  , SWITCH  BANKS  AND  CREATE 
SUB-ADDRESS. 


0118  REF  3A  LAST  897 

0119  REF  1 


62A0  3 olio  1 INDWORK  CA 
62Al  1 62A6  0 TCF 


FIXLOC  make  ADDRWD  RELATIVE  TO  WORK  AREA. 

ITR13  -1 


0120  REF  5 LAST 
01202  REF  11  LAST 
0120A  REF  62  LAST 
01206  REF  12  LAST 

0121  REF  12  LAST 


896 

62A2 

897 

62A3 

896 

62AA 

896 

62A5 

897 

62A6 

3 5370  0 
56  106  0 
5A  003  0 
7 A553  1 
26  106  1 


INDERASE  CA  OCTlAOO 

XCH  ADDRWD 

TS  EbANK 

MASK  L0W8 

-1  ADS  ADDRWD 


^8895^A  yJL  SYSTEM  FOR  AgC;  NEw  PROGRAM  SMEPATIN  bY  EYLES 
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L 

01212 

0121A 


IMTERPRETER  USER'S  OWN  PAGE  NO.  6 

RtF  26  LAST  897  62A7  50  D20  0 ITR13  INDEX  CYR 

REF  5 LAST  897  625°  3 6^32  0 3 INDJUMP  -1 


A88954A  YJL  SYSTEM  FOR  AGC;  NEW  PROGRAM  SMePATIN  BY  EYLES 
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L INTERPRETER  USER'S  OWN  PAGE  NO.  7 

P0122  PUSH-UP  routines,  WHjN  NU  OPERAND  ADDRESS  IS  GIVEN,  THE  APPROPRIATE  OPERAND  IS  TAKEN  FROM  THE  PUSH-DOWN 

Ro124  list,  in  most  cases  the  MODE  DF  tHe  ReSULt  (VeCTOR  OR  SCALAR)  OF  THe  LAST  ARITHMETIC  OPERATION  PERFORMED 

R0126  is  THe  same  AS  THe  TYPe  OF  OPrRANU  DeSIRED  (ALL  aDD/SUBTRACt  ETC,),  EXCEPTIONS  TO  THIS  GENERAL  RULE  ARe  LISTED 

Ro128  below  (NOTE  THAT  IN  EVERY  CASe  THt  MODE  REGISTER  IS  LeFT  INTACT)! 

R0129  I*  VXSC  AND  V/SC  WANT  THe  OPPOSITE  TYPE  OF  OPERAND,  E»G..  IF  tHe  LAST  OPeRAtIoN  YieLDeD  A VeCtOR 

R0131  RESULT.  VXSC  WANTS  A SCALAR. 


R0132  2.  the  load  CODeS  SHOULD  LOAD  THE  ACCUMULATOR  INDePeNDeNT  OF  THe  ReSULt  OF  THp  LAST  OPERATION,  THIS 

R013A  INCLUDES  VLOAD,  DLOAD,  TLqAD,  PDDL,  AND  PDVL  (NO  PUSHUP  WITH  SLOAD), 

R0135  3.  some  arithmetic  operations  Require  a standard  type  of  operand  regardless  of  tHe  previous  operation. 

R0137  THUS  includes  SIqN  wANTINg  Dp  AND  TAD  REQUIRING  TP. 


0138 

REF  1 

6251 

3 A55A 

1 PUSHUP 

CAF 

0CT23 

if 

the  low  5 bits  Of 

CYR  ARE  LESS  THAN 

0139 

REF  27 

LAST 

898 

6252 

7 0020 

1 

MASK 

CYR 

20. 

THIS  UP  requires 

SPECIAL  attention 

OUO 

REF  1 

6253 

6 6256 

0 

AD 

-OCTIO 

(NO 

-0)  . 

OlAl 

REF  312 

LAST 

897 

625A 

ID  000 

0 

CCS 

A 

01A2 

REF  1 

6255 

1 6267 

0 

rcF  . 

regup 

FOR 

ALL  CODES  greater 

THAN  OCT  7. 

01A3  6256  7 

OlAA  REF  I 6257  6 

01A5  REF  313  LAST  899  6260  ID 

01A6  REF  31A  LAST  899  626l  5D 

01A7  REF  I 6262 

01A8  REF  2 LAST  899  6263  I 


7(67 

1 -OCTlO 

OCT 

-10 

6lA6 

1 

AD 

NeGa 

000 

0 

CCS 

A 

ooo 

1 

index 

A 

6300 

0 

CS 

NO.WDS 

6271 

1 

TCF 

REGUP  *2 

WE  NOW  HAVE  7 - OP  CODE(MODA),  SEE  IF 
THE  OP  CODE  (MOOA)  IS  THREE  (REVERSE). 
NO  - THE  MODE  IS  DEFINITE.  PICK  UP  THE 


01A9 

REF 

11 

LAST 

89A 

626A 

50  153 

0 

INDEX 

Mode 

FOR  VXSC  AND  V/sC  We  WANT  THe  REQUIRED 

0150 

ref 

1 

6265 

L 6276 

0 

cs 

REVCNT 

puSHuoc  decrement  without  changing  the 

0151 

REF 

3 

LAST 

899 

6266 

1 6271 

1 

TCF 

regup  *2 

MODE  AT  THIS  TIME. 

0152 

REF 

12 

LAST 

899 

6267 

5D  153 

0 

REGUP 

INDEX 

MODE 

MOST  ALL  OP  CODfS  PUSHUP  HERE, 

0153 

REF 

2 

LAST 

899 

6270 

A 6300 

0 

CS 

NO.WDS 

015A 

REF 

2 

LAST 

8A3 

6271 

26  156 

1 

♦ 2 

ADS 

PUSHLOC 

0155 

REF 

13 

LAST 

897 

6272 

54  106 

1 

ITRIA 

TS 

ADDRWD 

0156 

REF 

28 

LAST 

899 

6273 

50  020 

0 

INDEX 

CYR 

0157 

REF 

6 

LAST 

898 

627A 

7 6332 

1 

7 

INDUUMP  -1 

(THE  INDEX  MAKES  THIS  A TCF.) 

0158 

6275 

00002 

0 

DCT 

2 

REVERSE  PUSHUP  DECREMENT,  VECTOR  TAKES  2 

0159 

6276 

OOOO6 

1 

REVCNT 

DCT 

6 

WORDS,  SCALAR  TAKES  6, 

0160 

6277 

00O06 

1 

DCT 

6 

0161 

6300 

00002 

0 

NO.WDS 

DCT 

2 

CONVENTIONAL  DECREMENT  IS  6 WORDS  VECTOR 

0162 

6301 

OOOO3 

1 

0CTAL3 

DCT 

3 

2 IN  DP.  AND  3 IN  TP. 

0163 

6302 

00O06 

1 

DCT 

6 

A8895'tA  YJL  5YSIEM  FOR  AGC;  NEW  PROORAN  S^^EPATIN  BY  EYLES 


dec  U,  1966  MASTER  PAGE  900 


L 

P0I6A 


0166 

0167 

0168 

R0169 

R0171 

R0173 

017A 

0175 

0176 

0177 

018A 

0185 

0186 

0187 

0188 


INTERPRETER  USER'S  OWN  PAGE  NO.  8 

TEST  the  Second  prefix  bit  to  see  if  this  is  a miscellaneous  or  a unary/short  shift  operation. 


ref  29  last  899  6303  13  O20  1 OPJUMPa  CCS  CYR  TEST  SECOND  PREFIX  BIT. 

REF  1 630A  1 6317  0 TCF  0PJUMP3  TEST  THIRD  BIT  TO  SEE  IF  UNARY  OR  SHIpT. 

630S  77^22  0 -ENDVAC  3EC  -A5 


the  following  routine  PROCESSES  ADDRESSES  OF  SUFFIX  CLASS  10.  THeY  ARe  BASICALi  Y WORK  AReA  ADDRESSES 
IN  the  range  0 - 52*  ERASABLE  ECAUR  CONSTANTS  FROM  100  - 3777,  AND  FCADRS  ABOVE  THAT,  Al  L I5  BITS  ARe  AVAILABLE 
IN  contrast  to  SUFFIX  1,  IN  WHiCH  ONLY  THe  LOW  ORDER  lA  ARE  AVAILABLE. 

REF  l7  LAST  897  6306  2A  l5A  1 I5BITADR  INCR  LOC  (ENTRY  HERE  FROM  STCALL) , 


REF  18  LAST  900  6307  50  i5A  1 INDEX  LoC  PICK  UP  ADDRESS  WORD. 

6310  3 OOOO  1 CA  0 

REF  6 last  15  6311  5A  107  0 TS  POLISH  WE  MAY  NEED  A SiiBAD(3RESS  LATER. 


REF  1 

REF  1A  last  897 
REF  30  LAST  900 
REF  315  LAST  899 
REF  1 


6312  3 6327  1 

6313  5A  OOA  1 

631A  7 0020  1 

6315  53  000  1 1TR7 

631S  1 6373  1 


CAF  L0W7*2K 

TS  FBAnK 

MASK  CYR 

INDEX  A 

TCF  MISCJUMP 


THESE  INSTRUCTIONS  ARE  IN  BANK  1, 


488954A  yjL  SySTEw  fOR  AgC|  NEW  pROGRAvi  SHErATIN  BY  EyLES 


dec  13*  1966  hASTER  pA^E  901 


u interpreter 

P0196  COMPLETE  THE  DiSPATCHUmG  OF  UhARY  AnD  SHORT  SHjFT  OPERATIONS* 

0197  REF  15  last  900  63lV  5<t  ^OA  1 OPJUMP3  T5  FBANK 

R01975  ITRACE  (6)  REFERS  To  "0PJUMP3". 

0198  REF  31  LAST  900  632O  10  O2O  1 CCS  CYR 

0199  ref  316  LAST  900  6321  50  000  1 INDEX  A 

0200  REF  1 6322  1 2OOO  1 TCF  UNAJUMP 


0201 

REF 

13 

LAST 

899 

6323 

0202 

REF 

1 

0203 

REF 

2 

LAST 

9OI 

6325 

0204 

REF 

1 

6326 

10  153 

1 

CCS 

MODE 

1 2DI7 

1 

TCF 

SHORTT 

1 2DI7 

1 

TCF 

shortt 

1 2121 

0 

TCF 

ShORTV 

0205  REF  7 last  267 

0206  6327 

0207  6330 

0208  6331 

0209  REF  1 

0210  REF  3 LAST  629 

0211  6332 


4554 

02177  1 
ntoo  0 

0CT23 

L0W7+2K 

HIGH9 

OCT 

OCT 

VDl 

2177 

77700 

76000  0 

BANKMASK 

OCT 

76000 

6331 

FBANKMSK 

EQUALS 

BANKMASK 

5673 

B12T14 

s 

PRI034 

74O56  1 

-ENDERAS 

DEC 

-2001 

USER'S  OWN  PAGp  NO.  9 

CALL  IN  BANK  0 (BITS  11-15  OF  A ARE  0.) 

TEST  THIRD  PREFIX  BiT. 

THE  DECREhENTFO  uNARY  CODE  IS  IN  BITS 
1-A  OF  A (ZERO*  EXIT*  HAS  BEEN  DETECTED) 

ITS  A SHORT  shift  CODE.  SEE  IF  PRESENT 
SCALAR  OR  vector. 

CALLS  the  APPROPRIATE  ROUTINE. 

OP  CODE  mask  ♦ bank  1 FBANK  SETTING. 
FBANK  MASK. 

USED  IN  PROCESSING  STORE  CODES. 

= -(20A7  - A5  - 1) 
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L interpreter  USER'S  OWN  PAGE  NO.  10 

P0212  THE  following  IS  THE  JJMP  TABLE  FOR  OP  CODES  WHiCH  MAY  HAVE  INDEXABLE  ADDRESSES  OR  MAY  PUSH  UP. 


0214 

REF 

1 

0215 

0216 
0217 

REF, 

REF 

REF 

1 

1 

1 

0218 

REF 

1 

0219 

REF 

2 

LAST 

613 

0220 

REF 

1 

, 0221 

REF 

2 

LAST 

849 

6333  1 6P5A  1 INDJUMP  TCF 


633A  1 7133  0 TCF 

6335  1 7/01  1 TCF 

6336  1 7A52  1 TCF 

6337  1 6/52  0 TCF 

6340  1 6537  1 TCF 

6341  1 6530  0 TCF 

6342  1 7P50  1 TCF 


VLOAD 

TAD 

SIGN 

vxsc 

CGOTO 

TLOAD 

DlOAD 

V/SC 


00  - LOAD  MPAC  wiTH  A VECTOR, 

01  - TRIPLE  PRECISION  ADD  TO  MPAC. 

02  - complement  MPAC  (V  OR  SC)  IF  X NEG. 

03  - VECTOR  TIMfS  SCALAR, 

04  - COMPUTED  GO  TO. 

05  - LOAD  MPAC  WITH  TRIPLE  PRECISION, 

06  - load  MPAC  WITH  A DP  SCALAR, 

07  - VECTOR  DIVtDED  BY  SCALAR, 


0222  REF  1 

0223  rEf  1 


6343  1 6550  0 TCF  SLOAD  10  - LOAD  MPAC  IN  StNGLE  PRECISION, 

6344  1 6P67  1 TCF  SSP  H - SET  sINGlE  PrEcIsION  INTO  X. 


0224  REF  1 6345 

0225  ref  1 6346 

0226  REF  1 634/ 

0227  REF  1 6350 

0228  REF  1 6351 

0229  REF  1 6352 


1 6572  0 TCF  PDDL 

1 7‘'05  0 TCF  MXV 

1 6926  1 TCF  PDVL 

1 6975  1 TCF  CCALL 

1 7‘*10  1 TCF  VXM 

1 7942  1 TCF  TSLC 


12  - PUSH  DOWN  MPAC  AND  RE-LOAD  IN  DP, 

13  - MATRIX  POST-MULTIPLIED  BY  VECTOR, 

14  - PUSH  DOWN  and  VECTOR  LOAD, 

15  - COMPUTED  Call, 

16  - MATRIX  PRE-MULTIPLIED  BY  VECTOR, 

17  - NORMALIZE  MPAC  (SCALAR  ONLY), 


0230  REF  1 6353 

0231  REF  1 6354 

0232  REF  1 6355 


1 

7920 

0 

TCF 

DMPR 

1 

7923 

0 

TCF 

DDV 

1 

7927 

1 

TCF 

BDDV 

20  - OP  multiply  and  round, 

21  - Dp  DIVIDE  RY, 

22  - DP  DIVIDE  INTO, 


0233 

REF  1 

6356 

1 

7945 

0 

TCF 

GSHIFT 

23 

- general  SHIFT  INSTRUCTION 

0234 

REF  1 

6357 

1 

70 16 

0 

TCF 

VAD 

24 

- VECTOR  ADD. 

0235 

REF  1 

6360 

1 

7U44 

1 

TCF 

VSU 

25 

- VECTOR  subtract. 

0236 

REF  1 

6361 

1 

7O74 

1 

TCF 

BVSU 

26 

- VECTOR  subtract  FROM, 

0237 

REF  1 

6362 

1 

7‘,02 

1 

TCF 

DOT 

27 

- VECTOR  DOT  PRODUCT, 

0238  REF  1 

0239  rEf  1 

0240  REF  1 

0241  REF  1 

0242  REF  1 

0243 


6363 

1 

7532 

0 

TCF 

vxv 

30 

VECTOR  CROSS  Product 

6364 

1 

7^76 

1 

TCF 

vproj 

31 

- 

vector  Projection, 

6365 

1 

7062 

0 

TCF 

DSU 

32 

• 

DP  subtract. 

6369 

1 

7I2O 

1 

TCF 

BDSU 

33 

DP  subtract  from. 

6367 

6370 

1 

1 

7O34 

6370 

0 

1 

TCF 

TCF 

DAD 

34 

35 

• 

DP  ADD, 

AVAILABLE 

0244  REF  1 6371  1 7916  0 TCF  DMPl  36  - DP  MULTIPLY, 

0245  REF  1 6372  1 7?37  0 TCF  SETPD  37  - SET  PUSH  DnWN  POINTER  (DIRECT  ONLY) 

R0246  codes  10  AND  i4  MUST  NOT  PUSH  U?,  CODE  04  MAY  Be  JSeD  FOR  VeCtOR  DECLARE  BeFoRE  PUSHUP  iF  DeSIRED, 


^8895<tA  VJL  system  FOR  AGCi  NeW  PROGRAM  SHePatIN  BY  eYLeS 


I Interpreter 

P0248  the  following  JUMP  TABLE  APPLIES  TO  INDeX, 


0250  REF  1 

0251  ref  1 

0252  REF  I 

0253  REF  1 

025A  REF  I 

0255  rEF  1 

0256  REF  1 

0257  REF  1 

0258  REF  1 

0259  REF  I 

0260  REF  1 

0261  REF  1 

0262  REF  I 

0263  REF  1 

0264  REF  1 

0265  REF  I 


6373 

637A 

1 

2557 

0 

MISCJUMP  TCF 

1 

2564 

0 

TCF 

6375 

1 

2567 

0 

TCF 

6376 

1 

2573 

0 

TCF 

6377 

1 

2577 

1 

TCF 

6400 

1 

2605 

1 

TCF 

6401 

1 

2621 

1 

TCF 

6402 

1 

2630 

1 

TCF 

6403 

1 

2613 

0 

TCF 

640A 

1 

2?24 

1 

TCF 

6405 

1 

2 702 

1 

TCF 

6406 

1 

2 707 

1 

TCF 

6407 

1 

2662 

0 

TCF 

6410 

1 

2 722 

0 

TCF 

6411 

1 

2 731 

1 

TCF 

6412 

1 

2?72 

1 

JCF 

Dec  i3,  1966  master  page  903 


USERtS  OwN  rAgf  NO,  II 


ANCH, 


and  miscellaneous  instructions. 


AXT 

00 

• 

ADDRESS  TO  INDEX  TRUE. 

Axe 

01 

- 

Address  to  index  complemented. 

LXA 

02 

- 

LOAD  INDEX  FROM  ERASABLE. 

LXC 

03 

- 

LOAD  INDEX  FROM  COMPLEMENT  OF 

eras, 

SXA 

04 

•» 

STORE  INDEX  IN  ERASABLE. 

XCHX 

05 

- 

exchange  Index  with  erasable. 

INCR 

06 

increment  index  register. 

TiX 

07 

- 

transfer  on  index. 

XAD 

10 

* 

INDEX  register  add  FROM  ERASABLE. 

xsu 

11 

- 

index  Subtract  from  erasable. 

BZE/GOTO 

12 

BRANCH  ZERn  ANn  GOTO, 

BPL/BMN 

13 

. 

BRANCH  PLUS  AND  BRANCH  MINUS, 

RTB/BHIZ 

14 

• 

return  to  rASIC  and  BRANCH  HI 

zero 

CALL/ITA 

15 

CALL  and  Store  qpret. 

SW/ 

16 

- 

SWITCH  instructions  AND  AVAILABLE. 

BoV(B) 

17 

- 

BRANCH  ON  nVERFLOW  TO  BASIC  OR 

INT 

488954A  YJU  SYSTEM  FOR  AGC;  NEW  PROGRAM  SHePATIN  BY  EYLES 
L INTERPRETER 

P0266  the  following  jUMP  T^SLE  APPIES  TO  UNARY  INSTRUCTIONS, 


0267  00*2000  3AN<  0 


0268 

REp 

1 

00,2000 

1 

3155 

1 

UNAJUMP  TCF 

SqRT 

0269 

REF 

1 

00,2001 

1 

3‘*77 

1 

TCF 

SINE 

0270 

REF 

1 

00,2002 

1 

3^66 

1 

TCF 

COSINE 

0271 

REF 

1 

00 ,2003 

1 

3557 

1 

TCF 

ARCSIN 

0272 

REF 

1 

00,200A 

1 

3»61 

1 

TCF 

ARCCOS 

0273 

REF 

1 

00,2005 

1 

3lA2 

1 

TCF 

DSQ 

027A 

REF 

1 

00 ,2006 

1 

2l  16 

1 

TCF 

ROUND 

0275. 

REF 

1 

00,2007 

1 

7aA 

0 

TCF 

COMP 

0276 

REF 

1 

00,2010 

1 

3200 

1 

TCF 

VDEF 

0277 

REF  • 

1 

00,2011 

1 

2/70 

1 

TCF 

UNIT 

0278 

REF 

1 

00,2012 

1 

3IAA 

1 

TCF 

ABVALABS 

0279 

REF 

1 

00,2013 

1 

3<:iA 

1 

TCF 

VSQ 

0280 

REF 

1 

00,201A 

1 

6‘*13 

0 

TCF 

STADR 

0281 

REF 

1 

00 ,2015 

1 

3'^AA 

1 

TCF 

RVQ 

0282 

REF 

1 

00,2016 

1 

3*^17 

1 

TCF 

PUSH 
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00  - EXIT  - DETECTED  EARLIER. 

01  - square  root. 

02  - SIN. 

03  - COS. 

OA  - ARC  SIN, 

05  - ARC  COS, 

06  - DP  SQUARE, 

07  - ROUND  TO  Op, 

10  - complement  vector  Or  scalar, 

11  - VECTOR  define, 

12  - UNIT  VECTOR. 

13  - LENGTH  OF  VECTOR  OR  MAG  OF  SCALAR, 

lA  - SQUARE  OF  1 ENGTH  OF  VECTOR. 

15  - PUSH  UP  ON  STORE  CODE. 

16  - RETURN  VIA  QPRET, 

17  - PUSH  MPAC  down. 
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L 

P0283 

R028A 

R0286 

R0288 

R0290 

R0292 

R029A 

R0296 

R0298 

R0300 


03015 

0302 

0303 
030A 

0305 

0306 

0307 

0308 

0309 

0310 

0311 

0312 

0313 

03131 

031A 

0315 


interpreter 


USER'S  OWN  page  NO,  13 


section  2 load  And  store  pAccAse* 

A SET  OF  eight  StORe  CODES  IS  PROVIDED  AS  THg  PRIMARY  MeTHOD  OF  STORING  jHe  MUi  T I -PURPOSE 
accumulator  (mpac).  if  IN  tHe  oanaig  Section  loc  Refers  to  an  algebraically  positive  word,  it  is  taken  as  a 
Store  code  wIth  a corresponding  e*^asable  address,  most  of  these  codeS  are  two  address,  specifying  that  tHe  word 

FOLLOWING  THE  STORE  CODE  IS  TO'  3e  USeD  AS  AN  ADDRESS  FROM  WHICH  TO  RE-LOAD  MPAC,  FOUR  OPTIONS  ARe  AVAILABLE! 


1.  STORE 


SI  ORE  MPAC.  the  E ADDRESS  MAY  BE  INDEXED. 


2.  STODL 

3.  STOVL 

4.  StCALL 


SIORe  mpac  AND  RE-LOAD  IT  IN  DP  WITH  THE  NEXT  ADDRESS  (tHE  LOAD  MAY  BE  INDEXED). 
SIORE  MPAC  AND  Re-LOAD  A VECTOR  (AS  ABOVE). 

SIORE  AND  DO  A CALL  (BOTH  ADDRESSES  MUST  BE  DIRECT  HERE). 


STOOL  AND  STOVL  Wii-L  TAKE  FROM  THE  PUSH-OOWN  LIST  IF  NO  LOAD  ADDRESS  IS  GIVEN. 


6413  3L0CK  3 


REF 

REF 

REF 

5 

16 

19 

LAST 

LAST 

LAST 

LAST 

LAST 

89A 

901 

900 

6413 

64lA 

6Al5 

3 0l55 
54  UOA 
2A  A5A 

0 

1 

1 

STADR 

ITRI 

CA 

TS 

■ I NCR 

index 

cs 

AD 

BANKSET 

fbank 

LOC 

THE  STADR  CODF  (PUSHUP  UP  ON  STORE 
ADDRESS)  enters  HERE. 

REF 

REF 

20 

2 

905 

A81 

6419 
641  J 

6420 

50  i5A 
4 0000 
6 7T63 

1 

0 

1 

LOC 

0 

negone 

Tnt  blUKt^UUE  WAj  RUMPLE  MEIN  1 1^ 

MAKE  IT  LOOK  LIKE  AN  OPCODE  PAIR, 

(YUL  CANT  remove  1 BECAUSE  OF  EARLY  CCS) 

REF 

lA 

LAST 

899 

6421 

59  106 

1 

DOSTORE 

TS 

ADDRWD 

REF 

10 

LAST 

385 

6422 

7 9552 

0 

mask 

LOW  11 

entry  from  dispatcher,  save  the  erasable 

REF 

15 

LAST 

905 

6423 

56  106 

0 

XCH 

ADDRWD 

address  and  jump  on  the  store  Code  no. 

REF 

1 

642A 

7 5973 

1 

MASK 

B12T14 

6425 

0 0006 

1 

EXTEND 

REF 

33 

LAST 

760 

6426 

7 7751 

1 

MP 

BITS 

EACH  transfer  VfCTOR  ENTRY  IS  TwO  WORDS, 

REF 

5 

LAST 

89A 

59  023 

1 

TS 

EDOP 

MAYBE  2ND  OP  WAS  LEFT  OVER  FROM  BRANCH 

REF 

317 

LAST 

901 

6430 

50  OOO 

1 

ITRO 

INDEX 

A 

REF 

1 

6431 

1 6^32 

0 

TCF 

STORJUMP 

48895^A  YJL  system  FOR  AGC . NEW  PROGRAM  SHePATIN  BY  EYLES 
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L INTERPRETER  USER'S  OWN  PAGf  NO.  14 

P0316  store  code  JUMP  jAtSLE.  C^LLS  THE  APPROPRIATE  STORING  ROUTINE  AND  EXITS  TO  DANziG  OR  TO  ADDRESS  WITH 


R0318  A SUPPLIED  OPERATION  CODE, 


0319 

0320 

0321 

REF 

REF 

REF 

1 

2 

1 

LAST 

893 

6432 

6433 
643A 

0 

1 

0 

6‘*62 

6123 

1 

0 

1 

STORJUMP  TC 

TCF 

TC 

STORE 

NEWOPS  -1 
STORE, 1 

STORE, 

PICK  UP  NEW  OP  CODE(S), 

0322 

REF 

3 

LAST 

9O6 

6435 

1 

6l23 

0 

TCF 

NEWOPS  -1 

0323 

REF 

1 

643^> 

0 

6‘'57 

1 

TC 

STORE, 2 

0324 

REF 

4 

LAST 

906 

643? 

1 

6123 

0 

TCF 

NEWOPS  -1 

0325 

REF 

2 

LAST 

9O6 

6440 

0 

6462 

1 

TC 

STORE 

STODL, 

0326 

REF 

1 

6441 

1 

6520 

1 

TCF 

DODLOAD 

0331 

REF 

3 

Last 

906 

6442 

z.  j y ZL 

0 

6462 

1 

TC 

STORE 

STOOL  with  indexed  LOAD 

address 

0332 

Ktr 

1 

6443 

1 

6200 

1 

TCF 

DODLOAD* 

0337 

REF 

4 

LAST 

906 

6444 

0 

6462 

1 

TC 

STORE 

STOVL. 

0338 

REF 

1 

6445 

1 

6523 

1 

TCF 

DOVLOAD 

0343 

REF 

5 

LAST 

9O6 

6446 

0 

6‘»62 

1 

TC 

STORE 

STOVL  WITH  indexed  LOAD 

address 

0344 

REF 

1 

6447 

1 

6526 

1 

TCF 

DOVLOAD* 

0349 

REF 

6 

LAST 

906 

6450 

0 

6462 

1 

TC 

STORE 

STOTC. 

0350 

REF 

1 

6451 

3 

5562 

0 

CAF 

CALLCODE 

0351 

REF 

32 

LAST 

901 

6452 

5<i 

t 020 

1 

TS 

CYR 

0352 

REF 

1 

6453 

1 

6306 

0 

TCF 

15BITADR 

GET  A 15  BIT  ADnRESS. 

48895<fA  YJL  SYSTEM  FOR  aGC!  NE^  Pro'^RAM  S^ePatIN  BY  eYLeS 
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L interpreter 


P0353  STORE  CODE  ADDRESS  P^OCEi’SOR, 


0354 

REF 

35 

last 

897 

645A 

0355 

REF 

21 

LAST 

897 

6455 

0356 

REF 

1 

6456 

50  UO  1 STORE*l  index  FIXLOC 

A 0DA6  1 CS  XI 

1 6A61  0 TCF  PRESTORE 


0357 

REF 

36 

LAST 

907 

0358 

0359 

ref 

REF 

7 

16 

LAST 

LAST 

879 

905 

645Y  50  UO  1 STORE*2  INDEX  FlXLOC 

6A60  t,  0OA7  0 CS  X2 

6A6l  26  F06  1 PRESTORe  ADS  ADDRWD 


0360  REF 
03605  REF 
0361'  REF 
03615  REF 

0362  REF 
03625  REF 

0363  REF 

0364  REF 


17  LAST  907 
1 

318  LAST  905 
37  LAST  907 
1 

6 LAST  897 

18  LAST  907 
63  LAST  897 


646i;  4 0i06  1 

6463  6 5371  1 

646A  10  000  0 

6465  3 OUO  1 

6465  1 6‘»73  0 

6467  3 5370  0 

6470  56  i06  0 

6471  54  003  0 


STORE  CS 
AD 
CCS 
CA 
TCF 
CA 
XCH 
TS 


ADDRWD 

DEC45 

A 

FIXLOC 

AHEAD5 

0CT1400 

ADDRWD 

EBANK 


0365  REF  13  LAST  897 

0366  REF  19  LAST  907 


6472  7 4553  1 viASK  ' LOWS 

6473  26  A06  1 AHEAD5  ADS  ADDRWD 


USER'S  OWN  page  NO.  15 


resultant  addre<;5  is  in  erasable. 


DOES  THE  address  POINT  TO  THE  WORK  AREA? 
YES. 

NO.  SET  EBANK  f.  MAKE  UP  SUBADDRESS. 
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L 

P0367 


0368 
R03685 

0369 

0370 

0371 

0372 

0373 
037A 

0375 

0376 

0377 

0378 

0379 

0380 

0381 

0382 

0383 

0384 

0385 

0386 

0387 


niERPRETER  USER'S  OWN  PAGe  NO,  16 

storing  routines,  store  up,  TP*  OR  VECTOR  As  indicated  by  MODE, 


647A  0 0U06  1 STARTSTO  EXTEND 

ITRACE  (5)  REFERS  T O "STARTSTO". 

REF  348  LAST  879  6475  3 0145  1 OCA  MPAC 

REp  20  LAST  907  6476  50  106  0 INDEX  ADDRwD 

6477  52  001  1 OXCH  0 


REF  14- LAST  9OI  6500  10  153  1 CCS  MODE 

REF  1 6501  1 6P1A  0 TCF  TSTORE 

REF  260  LAST  892  6502  0 0002  0 TC  0 


REF  349  LAST  908 
REF  21  LAST  908 


6503 

0 0006 

1 VSTORE 

EXTEND 

650A 

3 0150 

0 

OCA 

MPAC  +3 

6503 

50  106 
52  003 

0 

INDEX 

ADDRWD 

6506 

0 

OXCH 

2 

6507 

0 0006 

REF 

350 

LAST 

908 

6510 

3 0152 

REF 

22 

LAST 

908 

6511 

50  106 

6512 

52  005 

REF 

261 

LAST 

908 

6513 

0 0002 

REF 

351 

LAST 

908 

65lA 

3 0146 

RtF 

23 

last 

908 

6515 

50  106 

6516 

5A  002 

REF 

262 

LAST 

908 

651  t 

0 0002 

1 extend 

1 OCA 

0 INDEX 

0 OXCH 

0 TC 

1 TSTORE  CA 

0 INDEX 


1 TS 

0 TC 


MPAC  *5 

ADDRWD 

4 

Q 

MPAC  *2 
ADDRwD 

2 

0 


MPAC,*i  MUST  BE  STObED  IN  ANY  EVENT. 
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L niERPRETER  USER'S  OWN  PAGE  NO.  W 

P0388  routines  TO  BeGIn  PR3CESi>ING  OF  tHe  SeCOND  ADDReSS  ASSOCIATED  WITH  ALL  STORe-TyPe  CODeS  eXCePT  STORE 

R0390  ITSELF, 


0391 

0392 

0393 

REF 

REF 

REF 

1 

33 

1 

LAST 

906 

6520 

6521 

6522 

039A 

REF 

1 

6523 

0395 

REF 

3A 

LAST 

909 

652^ 

0396 

REF 

2 

L A 3 T 

909 

6525 

0397 

0398 

REF 

REF 

1 

2 

LAST 

906 

652P 

6527 

3 5363 

5<f  U20 

1 

DODLOAD 

CAF 

TS 

DLOADCOD 

1 

CYR 

1 6lA2 

1 

TCF 

DIRADRES 

3 7137 

0 

DOVLOAD 

CAF 

vloadcod 

5A  020 

1 

TS 

CYR 

1 6142 

I 

TCF 

DIRADRES 

3 6143 

1 6201 

1 

0 

DOVLOAD* 

CAF 

TCF 

VLOAD" 
DODLOAD*  ♦! 

GO  get  a direct  address. 


PROLOGUE  TO  INDpX  ROUTINE, 
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L interpreter  USER'S  OWN  PAGE  NO.  18 

P0399  the  following  LOAD  INSTRUCTIONS  ARe  PROVIDED  FOR  LOADING  THE  MULtI-PURPOSe  ACCUMULATOR  MPAC, 


OAOl  6530 

0A02  REF  24  LAST  908  653l 

0403  6532 

0404  REF  352  LAST  908  6533 

0405  REF  252  LAST  878  653^ 

0406  REF  353  LAST  9lO  6535 

0407  REF  4 LAST  343  6536 

0408  REF  25  LAST  910  653/ 

0409  65A0 

0410  REF  354  LAST  910  6541 

0411  6542 


0 0006 
5 0106 
3 0001 

1 

0 

DLOAD 

EXTEND 

INDEX 

ADDRWD 

0 

DCA 

0 

52  145 

0 

SL0AD2 

DXCH 

MPAC 

3 7/61 

0 

CAF 

ZERO 

54  146 

0 

TS 

MPAC  *2 

1 6114 

1 

TCF 

newmode 

5D  106 

0 

TLOAD 

INDEX 

ADDRWD 

3 0002 

0 

CA 

2 

54  146 
0 0006 

0 

1 

TS 

extend 

MPAC  *Z 

0412  REF  26  last  910  6543 

0413  6544 

0414  REF  355  LAST  910  6545 

0415  REF  173  LAST  878  6546 

0416  REF  5 LAST  910  6547 


5 0106  0 INDEX  ADDRWD 

3 0001  0 DCA  0 

52  145  0 DXCH  MPAC 

3 7/55  1 CAF  ONE 

1 6ll4  1 TCF  NEWMODE 


0417 

0418 

REF 

27 

LAST 

910 

0419 

0420 

REF 

6 

LAST 

612 

6550  22  007  0 SLOAD  ZL 

6551  50  106  0 IINDEX  ADDRWD 

6552  3 OOOO  1 CA  0 

6553  1 6533  0 TCF  SL0AD2 


PICK  UP  DP  ARGUMENT  AND  LEAVE  IT  IN 
MPAC.+l,  SETTING  MPaC  TO  ZERO.  THE 
contents  of  THE  OTHER  FOUR  REGISTERS  OF 
MPAC  ARE  IRRELEVANT. 

DECLARE  double  PRECISION  MODE. 


LOAD  A TRIPLE  PRECISION  ARGUMENT  INTO 
THE  FIRST  three  MPAC  REGISTERS,  WITH  THE 
CONTENTS  OF  THE  OTHeR  FOUR  IRRELEVANT, 


DECLARE  TRIPLE  PRECISION  MODE, 

LOAD  A SINGLE  PRECISION  NUMBER  INTO 
MPAC,  SETTING  MpAC*l,2  TO  ZERO,  THE 
CONTENTS  OF  THE  REMAINING  MPAC  REGISTERS 
ARE  IRRELEVANT, 


0421 

0422 

REF 

28 

last 

910 

655A 

6555 

0423 

0424 

REF 

356 

LAST 

910 

6556 

6557 

0 0D06  1 VLOAD  EXTEND 

5 0106  0 INDEX  ADDRWD 

3 0001  0 DCA  0 

52  145  0 DXCH  MPAC 


LOAD  A DOUBLE  PRECISION  VECTOR  INTO 
MPAC,+1,  MPAC+3.4,  AND  MPAC*5,6,  THE 
contents  of  MPAr  *2  ARE  IRRELEVANT, 


0425 

0426 

RcF 

29 

last 

910 

6560 

6561 

0427 

0428 

REF 

357 

LAST 

910 

6562 

6563 

0429 

0430 

ref 

30 

LAST 

910 

656A 

6565 

0431 

0432 

REF 

358 

LAST 

910 

6566 

656/ 

0433 

REF 

174 

LAST 

910 

6570 

0434 

ref 

6 

last 

910 

6571 

0 0O06  1 ENDVLOAD  EXTEND 

5 0106  0 index  AdDRWD 

3 0003  1 OCA  2 

52  150  1 DXCH  MPAC  +3 

0 0006  1 *4  EXTEND 

5 0l06  0 index  AdDRWD 

3 0005  1 DCA  4 

52  152  0 DXCH  MPAC  +5 

4 7/55  0 CS  ONE 

1 6114  1 TCF  NEWMOdE 


PDVL  comes  Here  to  finish  up  for  dp*  tp* 


TPDVL  FINISHES  HERE, 


DECLARE  VECTOR  MODE, 
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L interpreter 

POA35  the  following  inst^j^tiohs  are  provided  For  storing  operands 

ROA37  1.  PUSH  pushdown  AND  NO  LOAD. 

R0A38  2.  pDDL  pUSHDOWN  AND  DOUBLE  PRECISION  LOAD, 

R0A39  3,  PDVL  pUSHDOWN  AND  VECTOR  LOAD, 


OAAO 

6574 

0 0006 

1 

PDDL 

EXTEND 

OAAl 

REF 

31 

LAST 

910 

6573 

5 0106 

0 

INDEX 

ADDRWD 

OAA2 

6574 

3 0001 

0 

OCA 

0 

04A3 

REF 

359 

LAST 

910 

6573 

52  145 

0 

OXCH 

MPAC 

OAAA 

REF 

3 

LAST 

899 

6576 

50  156 

0 

INDEX 

PUSHLOC 

0AA5 

6577 

52  OQl 

1 

OXCH 

0 

0AA6 

REF 

15 

LAST 

908 

660D 

50  153 

0 

index 

mode 

0AA7 

RcF 

3 

LAST 

899 

6601 

3 6300 

1 

caf 

NO.WDS 

0AA8 

REF 

4 

LAST 

911 

6604 

26  156 

1 

ADS 

PUSHLOC 

0AA9 

REF 

16 

LAST 

911 

6603 

10  153 

1 

CCS 

MODE 

0A50 

REF 

1 

6604 

1 6621 

0 

TCF 

ENDTPUSH 

0451 

REF 

1 

6605 

1 6617 

0 

TCF 

ENDDPUSH 

0452 

REF 

17 

LAST 

911 

6606 

54  153 

1 

TS 

MODE 

0453 

REF 

360 

LAST 

911 

6607 

54  146 

0 

ENDVPUSH 

TS 

MPAC  +2 

0454 

REF 

361 

LAST 

911 

6610 

52  150 

1 

OXCH 

MPAC  +3 

0455 

REF 

5 

LAST 

911 

6611 

50  156 

0 

INDEX 

PUSHLOC 

0456 

6614 

51*  m 

0 

OXCH 

0 -4 

0457 

REF 

362 

Last 

911 

6613 

52  152 

0 

OXCH 

MPAC  +5 

0458 

REF 

6 

LAST 

911 

661^ 

50  156 

0 

INDEX 

PUSHLOC 

0459 

6615 

51*  m 

1 

OXCH 

0 -2 

0460 

REF 

6 

LAST 

729 

6616 

1 6115 

0 

TCF 

DANZIG 

0461 

REF 

363 

LAST 

911 

6617 

54  146 

0 

ENDDPUSH 

TS 

MPAC  ,2 

0462 

REF 

7 

LAST 

911 

6620 

1 6115 

0 

TCF 

DANZIG 

0463 

REF 

18 

LAST 

911 

664 1 

54  153 

1 

ENDTPUSH 

TS 

mode 

0464 

REf 

364 

last 

911 

6624 

55  146 

1 

XCH 

MPAc  *2 

0465 

REF 

7 

LAST 

911 

6623 

50  156 

0 

♦ 2 

index 

PUSHLOC 

0466 

662<* 

53*  m 

0 

TS 

0 -1 

0467 

REF 

8 

LAST 

911 

6625 

1 6115 

0 

TCF 

DANZIG 

USER'S  OvjN  rAgf  no.  19 
N tHe  PUSHDOWN  LtSt! 


LOAD  MPAc,*i,  Pushing  the  former 

CONTENTS  DOWN, 


ADVANCE  THE  PUSuDOWN  POINTER  APPRO- 
PRIATELY. 


NOW  DP. 

PUSH  DOWN  THE  REST  oF  THE  VECTOR  HERE. 


SET  MPAC  *2  TO  7ER0  AND  EXIT  ON  DP, 


ON  TRIPLE!  SET  mPAc  *2  TO  ZERO,  PUSHING 
DOWN  THE  OLD  COnTENTS 


48a95AA  YJL  system  FOR  AGC;  NEW  PROGRAM  SMePATIN  BY  EYLES 


L INTERPRETER 

P0A68  PDvL  - PUSHDOWN  AND  ^ECtUR  LOAD, 


0469 

0470 

REf 

32 

last 

911 

0471 

0472 

REF 

365 

LAST 

911 

0473 

REF 

8 

LAST 

911 

0474 

REF 

LAST 

0475 

19 

911 

0476 

REf 

4 

last 

911 

0477 

REF 

9 

LAST 

912 

0478 

REF 

20 

LAST 

912 

0479, 

REF 

1 

0480 

REF 

1 

0481 

0482 

REF 

33 

LAST 

912 

0483 

0484 

REF 

366 

LAST 

912 

0485 

REF 

10 

LAST 

912 

0486 

6626  0 0U06  1 PDVL  EXTEND 

6627  5 0i06  0 index 

6630  3 0001  0 DCA 

6631  52  U5  0 DXCH 

6632  50  156  0 INDEX 

6633  52  OOl  1 DXCH 

663^  50  153  0 INDEX 

6635  3 6300  1 cAP 

6636  26  156  1 ADS 

6637  10  153  1 CCS 

66A0  1 6657  1 TCF 

66A1  I 6560  0 TCF 

66A2  0 0006  1 VPDVL  EXTEND 

6643  5 0106  0 INDEX 

6644  3 0003  1 DCA 

6645  52  150  1 DXCH 

6646  50  156  0 INDEX  • 

6647  51*775  0 DXCH 


0487 


6650  0 0006  1 


extend 


0488  REF  34  LAST  912  665l  5 0l06  0 INDEX 

0489  6652  3 0005  1 DCA 

0490  REF  367  LAST  912  6653  52  152  0 DXCH 

0491  REF  11  LAST  912  6654  50  156  0 INDEX 

0492  6655  51*  777  1 DXCH 

0493  rEF  9 last  911  6656  i 6115  0 TCF 


0494  6657  0 0O06  1 TPDVL  EXTEND 

0495  REF  35  LAST  912  6660  5 0l06  0 INDEX 

0496  6661  3 0003  1 DCA 

0497  REF  368  LAST  912  6662  52  150  1 DXCH 


0498  REF  369  LAST  912  6663  3 0146  1 CA 

0499  rEF  12  last  912  6664  50  156  0 INDEX 

0500  6665  53*777  0 TS 

0501  REF  2 LAST  912  666<>  1 6564  1 TCF 

R0502  SSP  (STORE  SINGLE  PRECISION)  IS  EXECUTED  HERE. 

0503  REF  21  LAST  905  6667  2<,  i5<,  i SSP  INCR 

0504  REF  22  LAST  912  6670  50  154  1 INDEX 

0505  6671  3 OOOO  1 CA 

0506  REF  36  last  912  6672  50  106  0 STOREl  INDEX 

0507  6673  54  OOO  0 TS 


AUDRWD 

0 

MPAC 

PUSHLOC 

0 

MODE 

no.wds 

PUSHLOC 

MODE 

TPDVL 

ENDVLOAD 


ADDRWD 

2 

MPAC  *3 
PUSHLOC 
0 -4 


ADDRWD 

4 

MPAC  +5 
PUSHLOC 
0 -2 

DANZIG 


ADDRWD 

2 

MPAC  *3 

MPAC  *2 
PUSHLOC 
0 -1 

ENDVLOAD 


LOC 

LOC 

0 

ADDRWD 

0 


dec  13»  1966  master  PAGE  912 


USER*S  OWN  page  NO.  20 


reload  mpac  and  push  down  Its  contents. 


ADVANCE  THE  PUSHDOWN  POINTER. 

test  past  MODE. 

JUST  LOAD  LAST  FOUR  REGISTERS  ON  OP. 
PUSHDOWN  AND  RE-LOAD  LAST  TWO  COMPONENTS 


ON  TP,  WE  MUST  I OAD  THE  Y COMPONENT 

before  storing  mpac  *2  incase  This  is  a 

PUSHUP, 


IN  DP. 


PICK  UP  the  WORD  following  THE  GIVEN 
address  and  STOnE  IT  AT  X. 


SOME  INDEX  AND  MISCELLANEOUS  OPS  END 
HERE, 


^8895^A  YJL  SySlEw  pOR  AqC!  ^Ew  pROGRAv)  SHEpATiN  BY  EYLES 


L 

0508 


DEc  13t  1966  master  pAQE  913 

niERPRETER  USER'S  OWN  PAGE  NO,  21 

REF  10  LAST  912  667^  1 6115  0 TCF  DANZIG 


‘t8B95‘*/>.  Y jL  System  for  agc:  new  rrooram  shepatin  by  eyLes 


DEC  l3t  1966  master  pAQE  91A 


L IMTERPRbTER 

P0509  5£QUE,nCE  CHANGING  AnD  SUBROUTINE  '“ALLInG  OPTiOnS. 

Rosio  the  following  operations  are  available  for  Sequencing  changing 


R0512  !•  GOTO 

R0513  2.  CALL 

R051A  3.  CGOTO 

R0515  A,  CCALL 

R0516  7.  BPL 

R0517  8.  BZE 

R0518  9,  BMN 


0519  REF  23  LAST  912  6675 

0520  REf  2A  last  91A  6676 

0521  6677 

0522  REF  37  LAST  912  6700 

0523  6701 

052A  REF  17  LAST  905  6702 

0525  REF  13  LAST  897  6703 

0526  REF  319  LAST  907  670A 

0527  6705 

0528  REF  7 LAST  900  670* 

0529  REF  6 last  905  6707 

05295  REF  2 LAST  901  67l0 

0530  REF  3 last  91A  67ll 

0531  REF  25  LAST  91A  6712 

0532  REF  38  LAST  907  671^ 

0533  REF  2 LAST  689  671^ 

053A  REF  8 LAST  9^  6715 

053A5  REf  3 last  897  6716 

0535  6717 

05355  REF  1 672D 

0536  REF  7 LAST  9lA  6721 

05365  REF  23  LAST  89A  6722 


GU  TO. 

CALL  SUBROUTINE  SETTING  OpRET. 
computed  50  TO. 

COMPUTED  CALL. 

branch  if  mpac  Positive  or  zero. 

branch  if  mpac  Zero. 

branch  if  mpac  negative  non-zero. 


2A  15A 

1 

CCALL 

INCR 

LOC 

50  15A 

1 

index 

LOC 

3 0000 

1 

CAF 

0 

50  106 

0 

INDEX 

ADDRWD 

6 OOOO 

1 

AD 

0 

5A  OOA 

1 

TS 

FBANK 

7 5^56 

0 

MASK 

LOWIO 

50  000 

1 

INDEX 

A 

3 2O00 

0 

CAF 

10000 

5 A 107 

0 

TS 

PuLI SH 

3 0155 

0 

CALL 

CA 

BANKSET 

7 6531 

1 

MASK 

BANKMASK 

6 6331 

0 

ad 

bankmask 

6 015A 

1 

AD 

LOC 

50  110 

1 

INDEX 

FIXLOC 

5A  052 

1 

TS 

OPRET 

3 0107 

1 

goto 

CA 

POLISH 

7 5367 

1 

+ 1 

mask 

higha 

0 0006 

1 

EXTEND 

1 6731 

0 

3ZF 

GOTOERS 

3 0155 

0 

.A 

CA 

BANKSET 

5A  006 

0 

TS 

BBANK 

0537  REF  9 LAST  9lA  6723 

05375  rEF  18  last  9lA  672^ 

0538  REF  lA  LAST  9lA  6725 

05385  REF  2 LAST  897  6726 

0539  REF  26  LAST  91A  6727 

05395  REF  109  LAST  893  6730 


3 0107 
5A  OOA 

1 

1 

CA 

POLISH 

T S 

fbAnk 

7 5356 

0 

MASK 

LOWIO 

6 7 7A3 
5A  15A 

0 

AD 

2K 

0 

TS 

LOC 

1 6105 

1 

TCF 

INTPRET  *2 

USER'S  OWN  PaGf  NO,  22 


BRANCHING,  AND  CALLING  SUBROUTINES! 


maintain  loc  for  qpret  computation. 

GET  BASE  ADDRESS  OF  CADR  LIST. 

ADD  increment. 

SELECT  DESIRED  rADR. 

FOR  ANY  OF  THE  CALL  OPTIONS,  MAKE  UP  THE 

ADDRESS  OF  THE  NEXT  OP-CODE  PAIR/STORE 
CODE  and  leave  iT  In  QPRET.  NOTE  THaT 
BANKMASK  = -(2000  - 1) . 


BASIC  BRANCHING  SEQUENCE. 


SEE  IF  ADDRESS  POINTS  TO  FIXED  OR  ERAS. 
SET  EBANK  PART  OF  BrANK.  NEXT,  SET  UP 
FBANK.  THE  COMBINATION  IS  PICKED  UP  6 

PUT  INTO  bANKSET  AT  INTPRET  *2. 


4,8895^A  VJL  system  FOR  aGCJ  NeW  PROGRAM  S^ePatIN  BY  e^I-ES 


L interpreter 


05398 


05A0 

REF 

10 

Last 

914 

05A05 

REF 

2 

LAST 

896 

05A1 

REF 

320 

LAST 

914 

05A15 

REF 

11 

LAST 

915 

05A2 

REF 

1 

05A25 

REF 

39 

LAST 

914 

05A3 

REF 

12 

LAST 

915 

05A35 

REF 

321 

LAST 

915 

05AA 

05A45 

REF 

13 

LAST 

915 

0545 

REF 

1 

05455 

REF 

64 

LAST 

907 

0546 

REF 

14 

LAST 

9O7 

0547 

REF 

322 

LAST 

915 

0548 

0549 

REF 

14 

LAST 

915 

0550 

REF 

2 

LAST 

915 

0551 

REF 

27 

LAST 

914 

0552 

0553 

REF 

38 

LAST 

914 

0554 

0555 

REF 

19 

LAST 

914 

0556 

REF 

15 

LAST 

914 

0557 

REF 

323 

LAST 

915 

0558 

05585 

REF 

15 

LAST 

915 

0559 

REF 

3 

LAST 

915 

0560 

REF 

8 

LAST 

914 

0561 

REF 

20 

last 

915 

0562 

REF 

28 

LAST 

915 

0563 

05635 

REF 

16 

LAST 

915 

0564 

REF 

4 

LAST 

915 

E3 

ebank= 

6731 

3 0i07 

1 

GOTOERS 

Ca 

6732 

6 6305 

1 

AD 

6733 

10  000 

0 

CCS 

673A 

3 0107 

1 

CA 

6735 

1 6?44 

1 

TCF 

6736 

3 OUO 

1 

CA 

6737 

6 0107 

1 

AD 

6740 

50  000 

1 

INDEX 

6741 

3 0000 

1 

CA 

6742 

54  107 

0 

TS 

6743 

1 6?16 

0 

TCF 

674^ 

54  003 

0 

GOTOGE 

TS 

6745 

7 4553 

1 

MASK 

6746 

50  OOO 

1 

index 

674? 

3 1400 

1 

CA 

6750 

54  107 

0 

TS 

6751 

1 6?16 

0 

TCF 

6752 

50  154 

1 

CGOTO 

INDEX 

6753 

3 0001 

0 

CA 

675^^ 

50  106 

0 

INDEX 

6755 

6 0000 

1 

AD 

6756 

54  004 

1 

TS 

675  ? 

7 5356 

0 

NASK 

6760 

50  OOO 

1 

index 

6761 

3 2O00 

0 

CA 

6762 

54  107 

0 

TS 

6763 

1 6?16 

0 

TCF 

676^ 

3 0155 

0 

SWBRANCH 

CA 

6765 

54  004 

1 

TS 

6766 

50  154 

1 

INDEX 

6767 

3 0001 

0 

CA 

677O 

54  107 

0 

TS 

6771 

1 6?16 

0 

TCF 

Dec  13.  1966  Master  paGe  91p 


USER'S  OWN  pAGF  NO.  23 

1400 

SO  YUL  DOESN'T  rUSS  THE  "CA  i400"  BELOW, 

POLISH 

-endvac 

A 

THE  given  aDDkEsS  IS  IN  EraSaBLE  - SEE 

IF  RELATIVE  TO  tHE  WORK  AREA. 

POLISH 

GOTOGE 

GENERAL  ERASABLE. 

FIXLOC 

POLISH 

WORK  AREA. 

A 

0 

POLISH 

USE  the  given  address  as  the  ADDRESS  OF 
THE  BRANCH  ADDRfSS, 

GOTO  *1 

ALLOWS  arbitrary  INDIRECTNESS  LeVELS. 

ebank 

LOWS 

A 

USE  the  given  address  as  the  address  of 

1400 

POLISH 

GOTO  *1 

THE  BRANCH  ADDRfSS. 

LOC 

1 

ADDRWD 

0 

COMPUTED  GO  TO,  PICK  UP  ADDRESS  OF  CADR 
LIST. 

ADD  MODIFIER. 

FBANK 

LOWIO 

SELECT  GOTO  ADDRESS. 

A 

10000 

POLISH 

GOTO  *1 

WITH  ADDRESS  IN  A. 

BANKSET 

FBANK 

LOC 

1 

POLISH 

GOTO  *1 

SWITCH  INSTRUCTIONS  WHICH  ELECT  TO 
BRANCH  COME  HERE  TO  DO  SO. 

488954a  YJL  SYSjeM  FOR  AGC;  NeW  PROGRA.*^  SHePAtIN  BY  eVLeS 


L niERPRETER 

P0566  triple  precision  BRA'JCRINQ  ROUTINE,  IF  CALLING  TC  IS  AT 


R0568  L+1  IF  MPAC  IS  GRLATET  • HAN  ZERO. 
R0569  L+Z  IF  MPAC  IS  EqUA.  TO  *0  OR  -0. 
R0570  L*3  IF  MPAC  IS  LE^S  THAN  ZERO. 


0571 

ref 

370 

LAST 

912 

6772 

0572 

REF 

263 

LAST 

908 

6773 

0573 

677A 

0574 

REF 

1 

6775 

13  144 
0 0002 

1 BRANCH 

CCS 

MPAC 

0 

TC 

Q 

1 6^6 

0 

TCF 

♦ 2 

1 7010 

0 

TCF 

NEG 

0575 

REF 

371 

264 

2 

LAST 

LAST 

LAST 

916 

916 

916 

6776 

6777 

7000 

7001 

13  145 
0 0002 

1 7OO2 

1 7010 

0 

CCS 

MPAC 

♦ 1 

0576 

0577 

0578 

REF 

REF 

0 

0 

0 

TC 

TCF 

TCF 

Q 

♦2 

NEG 

0579 

REF 

372 

LAST 

916 

7002 

13  146 

0 

CCS 

MPAC 

*2 

0580 

REF 

265 

LAST 

916 

7003 

0 0002 

0 

TC 

Q 

0581 

7004 

1 7OO6 

1 

TCF 

♦ 2 

0582 

REF 

3 

LAST 

916 

7005 

1 7010 

0 

TCF 

NEG 

0583 

REF 

2 66 

LAST 

916 

7006 

53  002 

0 

0*  1 

INDEX 

Q 

0584 

7007 

0 OOOl 

0 

TC 

1 

0585 

REF 

267 

LAST 

916 

7010 

53  002 

0 

NEG 

INDEX 

Q 

0586 

7011 

0 0002 

0 

TC 

2 

05861  REF  4 LAST  916  7010  0+2  = NEG 

R05865  ITRACE  (3)  REFERS  T0>  "EXIT", 

0587  ref  9 LAST  915  7012  3 0^55  0 EXIT  CA  BANKSET 

05874  REF  24  LAST  914  7013  5^  OO6  0 TS  BBANK 

05876  REF  29  LAST  915  7014  53  154  1 INDEX  LOC 

0588  70i;>  1 0001  1 TCF  1 


Dec  u»  1966  master  page  '»i‘> 

USER'S  OWN  PAGf  NO.  24  E3 

, Return  is  as  follows: 


ON  ZERO, 


IF  FIRST  NON-ZERO  REGISTER  WAS  NEGATIVE. 


restore  USER'S  BANK  SETTING*  AND  LEAVE 
INTERPRETIVE  MOdE, 


488954A 


L 

P0589 

R0590 

R0592 

Ro593 

R0594 

R0595 


R0596 

R0597 

R0598 

R0599 

RO6OO 


0602 

0603 

060A 

0605 

0606 

0607 

0608 

0609 

0610 
0611 
0612 

0613 

06U 

0615 

0616 

0617 

0618 

0619 

0620 
0621 

0622 

0623 


YJL  system  for  AGC!  NeW  PR0*JRAM  SMePAtIN  by  eYLeS  Dec  13«  1966  master  page  91^ 

nTERPRLTER  USER»S  OWN  PAGf  NO.  25  E3 

SECTION  3 - ado/subtract  PACCAGE. 

the  following  OpeR^TIOMS  are  provided  for  adding  to  and  subtracting  from  the  MULTl-pURpOSE  accumulator 

MRAC; 


1* 

DAD 

DOUBLE 

PRECISION 

ADD. 

2. 

DSU 

double 

PRECISION 

subtract. 

3. 

BDSU 

DOUBLE 

PRECISION 

subtract  From 

4.  tad 


triple  precision  ado. 


5.  VAD  VtCTOR  ADD. 

6.  VSU  VtCTOR  SUBTRACT. 

7.  BVSU  VtCTOR  SUBTRACT  FROM. 


the  interpretive  overflow  indicator  OVFIND  is  Set  NON-ZeRO  if  overflow  occurs  in  ANY  oF  the  above. 


REF 

39 

LAST 

915 

7016 
70  lY 

0 0006 
5 0106 
3 0003 

20  150 
0 0006 

1 

0 

1 

1 

1 

VAD 

EXTEND 

INDEX 

OCA 

DAS 

EXTEND 

ADDRWD 

REF 

373 

LAST 

916 

7020 

7021 

7022 

2 

MPAC  *3 

7023 

1 7O25 

0 

32F 

♦ 2 

REF 

1 

lOZ** 

0 7072 

0 

TC 

OVERFLOW 

7025 

0 OOO6 

1 

EXTEND 

REF 

40 

LAST 

917 

7026 

5 0106 

0 

INDEX 

ADDRWD 

7027 

3 0005 

1 

DCA 

4 

REF 

374 

LAST 

917 

7030 

20  152 

0 

DAS 

MPAC  *5 

7031 

0 0006 

1 

EXTEND 

7032 

1 7034 

0 

3ZF 

♦ 2 

REF 

2 

LAST 

917 

7033 

0 7072 

0 

TC 

OVERFLOW 

7034 

0 0006 

1 

DAD 

EXTEND 

REF 

41 

LAST 

917 

7035 

5 0106 

0 

INDEX 

ADDRWD 

7036 

3 0001 

0 

DCA 

0 

REF 

375 

LAST 

917 

703  I 

20  145 

0 

ENDVXV 

DAS 

MPAC 

7040 

0 OOO6 

1 

EXTEND 

REF 

1 1 

LAST 

913 

7041 

1 6115 

0 

BZF 

DANZIG 

REF 

3 

LAST 

917 

7042 

0 

c 

IM 

0 

TC 

OVERFLOW 

REF 

12 

last 

917 

7043 

1 6115 

0 

TCF 

DANZIG 

CHECK  overflow. 


VXV  FINISHES  HERE. 


^8895^A  YJL  system  FOR  AGCJ  NEW  PROGRAM  SMePAtIN  BY  eYLeS 


L interpreter 


062A 

7044 

0 0006 

1 

vsu 

EXTEND 

0625 

REF 

42 

LAST 

917 

7045 

5 Oi-06 

0 

index 

ADDRWD 

0626 

REF 

376 

LAST 

7046 

4 0003 

0 

DCS 

2 

0627 

9l7 

7047 

20  T50 

1 

OAS 

MPAC  *3 

0628 

7050 

0 0006 

1 

EXTEND 

0629 

7051 

1 7053 

1 

3ZF 

♦ 2 

0630 

REF 

4 

LAST 

917 

7052 

0 7O72 

0 

TC 

OVERFLOW 

0631 

REF 

LAST 

7053 

0 0006 

1 

EXTEND 

0632 

43 

918 

7054 

5 OTO6 

0 

INDEX 

ADDRWD 

0633 

7055 

4 0005 

0 

DCS 

4 

0634 

REF 

377 

LAST 

918 

7056 

20  152 

0 

DAS 

MPAC  *5 

0635 

7057 

0 OOO6 

1 

EXTEND 

0636 

7060 

1 7062 

0 

32F 

♦2 

0637 

r£f 

5 

LAST 

918 

7061 

0 7072 

0 

TC 

overflow 

0638 

REF 

44 

LAST 

7062 

0 0006 

1 

DSU 

EXTEND 

0639 

918 

7063 

5 0106 

0 

INDEX 

ADDRWD 

0640 

706A 

4 OOOl 

1 

DCS 

0 

0641 

REF 

378 

LAST 

918 

7065 

20  145 

0 

DAS 

MPAC 

0642 

7066 

0 OOO6 

1 

EXTEND 

0643 

REF 

13 

LAST 

917 

7067 

1 6115 

0 

3ZF 

DANZIG 

0644 

REF 

6 

LAST 

918 

7070 

0 7072 

0 

TC 

OVERFLOW 

0645 

REF 

14 

LAST 

918 

7071 

1 6115 

0 

OVERFLOW 

TCF 

DANZIG 

0646 

REF 

IT5 

LAST 

910 

7072 

3 7 T55 

1 

CAF 

ONE 

0647 

REf 

1 

7073 

1 7<:i5 

1 

tcf 

SET0VF2 

DEC  U*  1966  master  PAGe  91B 


USER'S  OWN  page  no.  2<> 


subroutine  to  turn  ovfind  on. 


E3 


^08954A  YJL  system  FOR  AGC;  NEW  PROGRAM  sHePATIN  BY  EYLeS 


DEC  U.  1966  MASTER  PAGE  919 


L 

06A8 

06A9 

0650 

0651 

0652 

0653 

065A 

0655 

0656 

0657 

0658 

0659 

0660 
0661 
0662 
0663 
066A 

0665 

0666 

0667 

0668 

0669 

0670 

0671 

0672 

0673 

067A 

0675 

0676 

0677 

0678 


I nterpreter 


USER'S  OwN  pAGF  NO,  27 


E3 


REF  A5  LAST  918 
REF  379  LAST  918 

REF  380  LAST  919 

REF  7 LAST  918 

REF  A6  LAST  9l9 
REF  381  LAST  9l9 

REF  382  LAST  919 

REF  8 LAST  919 

REF  97  last  919 
REF  383  LAST  9l9 

REF  389  LAST  919 

REF  15  LAST  918 
REF  9 LAST  919 
REF  16  LAST  919 


707A 

7075 

7076 

7077 

7100 

7101 

0 0006 
5 0106 
3 0003 
52  150 
0 0V06 
9 0001 

1 

0 

1 

1 

1 

1 

BVSU 

EXTEND 

INDEX 

OCA 

OXCH 

EXTEND 

OCOM 

7102 

20  150 

1 

OAS 

7103 

0 0006 

1 

EXTEND 

710^ 

1 7106 

0 

3ZF 

7105 

0 7072 

0 0006 

0 

TC 

7106 

1 

EXTEND 

7107 

5 0106 

0 

INDEX 

7110 

3 0005 

1 

OCA 

7111 

52  152 

0 

OXCH 

7112 

0 0006 

1 

EXTEND 

7113 

9 0001 

1 

OCOM 

7I1A 

20  152 

0 

OAS 

7115 

0 0006 

1 

EXTEND 

7116 

1 7120 

1 

3ZF 

7117 

0 7072 

0 

TC 

7120 

0 0006 

1 

BDSU 

EXTEND 

7121 

5 0106 

0 

INDEX 

7122 

3 0001 

0 

OCA 

7123 

52  195 

0 

OXCH 

712A 

0 0006 

1 

EXTEND 

7125 

9 0001 

1 

OCOM 

7126 

20  195 

0 

OAS 

7127 

0 0006 

1 6115 

1 

EXTEND 

7130 

0 

3ZF 

7131 

0 7072 

0 

TC 

7132 

1 6115 

0 

TCF 

ADDRWD 

2 

MPAC  +3 


MPAC  *3 

♦ 2 

OVERFLOW 


ADDRWD 

9 

MPAC  *5 


MPAC  *5 


♦2 

OVERFLOW 


ADDRWD 

0 

MPAC 


MPAC 

DANZIG 

OVERFLOW 

DANZIG 


'^8895AA  YJL  system  FOR  AGC;  NEW  PROGRAM  SHePATIN  BY  EYLES 
L INTERPRETER 

P0679  triple  precision  AP3  ROUHNE. 


0680  7133 

0681  REF  A8  LAST  9l9 

0682  7135 

0683  REF  385  LAST  919  7136 

068A  REF  A9  LAST  920  7137 

0685  71A0 

0686  REF  386  LAST  920  71Al 

0687  REF  387  LAST  920  71A2 

0688  REF  17  LAST  919  71A3 


0 0U06 

1 TaD 

EXTEND 

5 0i06 

0 

INDEX 

ADDRWD 

3 0U02 

0 

OCA 

1 

20  U6 
50  i06 

0 

DAS 

MPAC  *1 

0 

INDEX 

ADDRWD 

6 OUOO 

1 

AD 

0 

6 OlAA 

0 

AD 

MPAC 

5 A i AA 

1 

TS 

MPAC 

1 6iI5 

0 

TCF 

DANZIG 

0689  REF  13  LAST  8a3  Tu'*  5A  Ul  1 SETOVF  TS  OVFINO 

0690  REp  18  LAST  920  . 71A5  1 6U5  0 TCF  DANziG 


DEC  13*  1966  MASTER  PAGE  920 


USER'S  OWN  page  NO.  28 


ADD  MINOR  parts  FIRST. 


SET  OVFIND  IF  SliCH  OCCURS. 


E3 
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L 

P0691 

R0692 

R069A 

R0696 

R0698 

ROTOO 

R0701 

R0703 


0705 

0706 

0707 

0708 

0709 

0710 

0711 

0712 

0713 

0714 

0715 

0716 

0717 

0718 

0719 

0720 


0721 

0722 

0723 

0724 

0725 

0726 

0727 

0728 

0729 

0730 

0731 


INTERPRETER  USER'S  OWN  PAGe  NO.  2*^  £3 

Arithmetic  subroutines  required  in  fixed-fixed, 

1,  dmpsub  Double  precision  multiply,  multiply  the  contents  of  mpac,*i  by  tHe  op  word  whose  address 

is  In  addkwd  And  leave  a triple  precision  result  in  mpac. 

2,  ROUNDSUB  RoUND  tHE  TRIPLE  PReCISON  CONTENTS  OF  MPAC  TO  DOUBLE  PRECISION, 

3,  DOTSUB  TAKE  THe  l^OT  PRODUCT  OF  tHE  VECTOR  IN  MPAC  AND  THe  VECTOR  WHOSE  ADDRESS  IS  IN  ADDRWD 

and  leave  the  triple  precision  Result  in  mpac, 

A,  POLY  using  the  CONTENTS  OF  MPAC  AS  A DP  ARGUMENT,  EVALUATE  THe  POLYNoMIAi  WHOSE  DeGReE  AND 

COEf'PIClENTS  immediately  FOLLOW  THE  TC  PoLY  INSTRUCTION  (SEE  ROUTINE  FOR  DETAILS,) 


REf  268  last  916  7146  50  ^02  0 DsiP  INDEX 

7147  3 OOOO  1 CAF 

REF  269  LAST  921  7150  24  002  0 INCR 

REF  50  LAST  920  7l5l  54  106  1 -1  TS 

REF  5l  LAST  921  7i52  50  106  0 DMPSUB  INDEX 

7153  3 0001  0 CA 

REF  388  LAST  920  715A  54  146  0 TS  • 

REF  253  LAST  910  7155  3 7T6I  0 CAF 

REF  389  LAST  921  7l5«>  56  145  1 XCH 

REF  6 LAST  889  7157  54  125  0 TS 

7160  0 0006  1 EXTEND 

REF  390  LAST  921  7161  7 0146  0 MP 

REF  391  last  921  7i62  56  146  1 XCH 

7163  0 0006  1 EXTEND 

REF  392  LAST  921  7164  7 Ol44  1 MP 

REF  393  LAST  921  7165  20  146  0 DAS 

REF  52  LAST  921  7i66  5o  106  0 INDEX 

7167  3 OOOO  1 CA 

REF  7 LAST  921  7170  55  I25  1 XCH 

7171  0 0006  1 EXTEND 

REF  8 LAST  921  7172  7 0125  0 MP 

REF  394  LAST  921  7173  20  146  0 DAS 

REF  395  LAST  921  717^  56  144  0 XCH 

7175  0 OUO6  1 EXTEND 

REF  9 LAST  921  7175  7 0125  0 MP 

REF  396  LAST  921  7177  20  145  0 DAS 

REF  270  LAST  921  7200  0 0002  0 TC 


0 BASIc  SUBROuTINf  for  use  by  pINqAlL*  ETl 

0 ADRES  OF  argument  FOLLOWS  TC  DMP  , 

0 

ADDRWD  (PROLOGUE  FOR  SfTTING  ADDRWD,) 

ADDRWD  GET  MINOR  PART  nF  OPERAND  AT  C(ADDRWD). 

1 

MPAC  +2  THIS  WORKS  FOR  SQUARING  MPAC  AS  WELL, 

zero  set  mpac  *1  TO  ZERO  SO  WE  CAN  ACCUMULATE 

MPAC  *1  THE  PARTIAL  PRODUCTS  WITH  DAS 

MPTEMP  INSTRUCTIONS, 

MPAC  *2  MINOR  OF  MPAC  X MINOR  OF  C(ADDRwD), 

MPAC  +2  DISCARD  MINOR  PART  OF  ABOVE  RESULT  AND 

form  major  of  MpAC  X MINOR  OF  C(ADDRwD). 

MPAC 

MPAC  *1  GUARANTEED  NO  OVERFLOW, 


ADDRWD  GET  MAJOR  PART  oF  ARGUMENT  AT  C (ADDRWD). 

0 

MPTEMP  SAVE  AND  BRING  OUT  MINOR  OF  MPAC. 

MPTEMP  MAJOR  OF  C(ADDRwD)  X MINOR  OF  MPAC. 

MPAC  *1  accumulate,  SFTTING  a to  NET  OVERFLOW. 

MPAC  SETTING  MPAC  TO  0 OR  *-1, 


MPTEMP  MAJOR  OF  MPAC  X MAJOR  OF  C (ADDRWD). 

MPAC  guaranteed  NO  OVERFLOW, 

0 49  MCT  = .573  Ms.  INCLUDING  RETURN. 
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L interpreter  USER'S  OWN  PAGf  NO.  30  E3 


P0732 

ROUND  MPAC 

TO  double 

PReLISION 

. setting 

DVFInD 

ON  the  rare 

event  of  overflow. 

0734 

REF 

254 

LAST 

921 

7201 

3 7761 

0 

ROUNDSUB 

CAF 

ZERO 

SET  MPAC  t2  s 0 FOR  SCALARS 

AND 

CHANGE 

0735 

r£f 

21 

LAST 

912 

7202 

54  153 

1 

♦ 1 

TS 

mode 

mode  TO  DP* 

0736 

REF 

397 

LAST 

921 

7203 

56  146 

1 

VROUND 

XCH 

MPAC 

♦ 2 

BUT  WE  NEEDNT  TAKE  THE  TIME 

FOR 

VECTORS, 

0737 

7204 

6 OOOO 

1 

DOUBLE 

0738 

REF 

162 

LAST 

890 

7205 

5 4 001 

1 

T S 

L 

0739 

REF 

271 

LAST 

921 

7206 

0 0002 

0 

TC 

Q 

WAS 

0740 

REF 

398 

LAST 

922 

7207 

6 OI45 

1 

AD 

MPAC 

♦1 

ADD  ROUNDING  BIt  IF  MPAC  *2 

GREATER 

0741 

ref 

399 

last 

922 

7210 

54  145 

0 

TS 

MpAc 

♦ 1 

THAN  .5  IN  MA&NiTuDE. 

0742 

REF 

272 

LAST 

922 

7211 

0 0002 

0 

TC 

Q 

07A3  REF  AOO  LAST  922  7212  6 OUA  0 AD  MPAC  PROPAGATE  INTERFLOW. 

07AA  REF  AOl  LAST  922  7213  5A  iAA  1 TS  MPAC 

0745  REF  273  LAST  922  72lA  0 0002  0 TC  0 


0746 

0747 


REF  14  LAST  920  7215 

REF  274  last  922  72lP 


54  111  1 SET0VF2 
0 0002  0 


TS 

TC 


OVFIND 

Q 


(RARE) . 
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L interpreter  USER'S  OWN  PAGp  NO.  31  E3 

P07A8  THE  DOT  PRODUCT  sUBrOUTjnE  USUALLY  FOrMs  THE  DOT  PrODUCT  OF  THE  VECTOR  hm  MPAC  WiTh  A STAnDArD  SIX 

R0750  register  vector  WHOSE  ADDRESS  IS  IN  ADDRWD,  IN  THIS  CASE  C(DOTINC)  ARe  SeT  TO  2.  VxM,  HoWeVeR.  SeTS  C(DOTINC)  TU 

R0752  6 So  that  DoTSUB  DOTS  MPAC  WlfH  A COLUMN  VECTOR  OF  tHe  MATRIX  IN  QUeStION  IN  jHIS  CASe, 


075A  rEf  93  LAsT  8A0 
0755  REF  A LAST  16 


7217  3 7f5A  0 PrEdOT  cAp 

7220  SA  126  0 TS 


Two 

DOTINC 


PrOlOGUE  to  set  dOTINc  to  2, 


0756 

7221 

0 0006 

1 DOTSUB 

0757 

REF 

5 

LAST 

16 

7222 

22  127 

0 

0758 

0759 

REF 

REF 

1 

402 

LAST 

7223 

0 7152 
52  150 

0 

922 

722'' 

1 

0760 

REF 

403 

LAST 

923 

7225 

52  145 

0 

0761 

REF 

61 

LAST 

864 

7226 

52  121 

1 

0762 

REF 

404 

LAST 

923 

7227 

3 0146 

1 

0763 

REF 

62 

LAST 

923 

7230 

54  122 

1 

0764 

REF 

5 

LAST 

923 

7231 

3 0126 

1 

EXTEND 

OXCH 

OOTRET 

SAVE  RETURN. 

TC 

DMPSUB 

DOT  X components. 

OXCH 

MPAC  *3 

position  y Component  of  mpac  for 

OXCH 

MPAC 

MULTIPLICATION  WHILE  SAVING  RESULT  IN 

OXCH 

BUF 

THREE  WORD  BUFFfR.  BUF. 

CA 

MPAC  *2 

TS 

BUF  *2 

CA 

DOTINC 

ADVANCE  ADDRWD  tO  Y COMPONENT  OF 

0765  REF  53  LAST  921  7232 

0766  REF  2 LAST  923  7233 

0767  REF  405  LAST  923  723^ 

0768  REF  63  LAST  923  723S 

0769  REF  406  LAST  923  7230 

0770  REF  64  LAST  923  7237 

0771  REF  65  LAST  923  7240 

0772  7241 

0773  REF  15  LAST  922  7242 

0774  REF  407  LAST  923  7243 

0775  rEF  408  LAsT  923  7244 

0776  REF  6 LAST  923  7245 

0777  REF  54  LAST  923  7240 

0778  REF  3 LAST  923  724? 

0779  REF  66  LAST  923  7250 

0780  REF  409  LAST  923  7251 

0781  REF  410  LAST  923  7252 

0782  REF  67  LAST  923  7253 

0783  REF  411  LAST  923  725^ 

0784  REF  6 LAST  923  7255 


26  106 

1 

ADS 

ADDRWD 

0 7152 

0 

TC 

DMPSUB 

52  146 

0 

OXCH 

MPAC  *1 

20  122 

1 

OAS 

BUF  ♦! 

6 0144 

0 

AD 

MPAC 

6 0120 

1 

AD 

BUF 

54  120 

1 7443 

0 

TS 

TCF 

BUF 

1 

♦ 2 

54  HI 

52  152 

1 

TS 

OVFIND 

0 

OXCH 

MPAC  +5 

52  145 

0 

OXCH 

MPAC 

3 0126 

1 

CA 

DOTINC 

26  106 

1 

ADS 

ADDRWD 

0 7152 

0 

TC 

DMPSUB 

52  122 

1 ENDDOT 

OXCH 

BUF  ♦ 1 

20  146 

0 

OAS 

MPAC  *1 

6 0144 

0 

AD 

MPAC 

6 0120 

1 

AD 

BUF 

54  144 

1 

TS 

MPAC 

0 0127 

0 

TC 

DOTRET 

OTHER  ARGUMENT. 

accumulate  partial  products. 


IF  overflow  occurs, 

MULTIPLY  Z COMPONENTS, 

LEAVE  FINAL  ACCUMULATION  IN  MPAC, 


0785 

REF 

16 

LAST 

923 

7256 

54  111  1 

0786 

REF 

7 

LAST 

923 

7257 

0 0127  0 

TS  OVFIND  on  overflow  HeRf. 

TC  DOTRET 
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L nTERPRETER  USER'S  OWN  PAGF  NO.  32  E3 

P0787  DOUBLE  PRECISION  POLYNOMIAL  EYALUAJOR 


R07B8  N N-1 

R0789  THIS  ROUTINE  EVALyATES  AX  ♦A  X ♦AX*A  LEAvINo  THE  Dp  RESULT  IN  MpAc  ON  EXIT. 

R0791  N N-1  10 

R0792  the  routine  HaS  TWO  ENTRIES 

R0793  1.  entry  thru  POWRSeRS,  I He  coefficients  May  Be  either  IN  fixed  or  erasable,  the  call  is  by 

R0795  TC  POWRSeRS,  AND  jHe  HeTURN  Is  TO  LOC(TC  POWRSERS)*!,  THe  ENTERING  DATA  MUSj  Be  AS  FOLLOWS 


A0797 

A 

SP 

LOC-3 

ADDRESS  FOR  ReFfReNCING  COEF  TABLE 

A07,98 

L 

SP 

N-1 

N IS  the  degree  of  tHe  power  series 

A0799 

MPAC 

DP 

X 

ARGUMENT 

A0800 

LDC-2N 

OP 

A(0) 

A0801 

• • • 

A0802 

LOC 

DP 

A(N) 

R0803 

2.  ENTRY  THRU  POLY.  THE  ^ALL  TO  POLY  AND 

1 the-  entering 

DATA  MUST  BE  AS  FOLLOWS 

A0805 

MPAC 

OP 

X 

ARGUMENT 

A0806 

LOC 

TC 

POLY 

A0807 

LOC+1 

SP 

N-1 

A0808 

LOC  + 2 

OP 

A (0) 

A0809 

• • • 

A0810 

L0C  + 2N''2 

OP 

AIN) 

RETURN  IS  TO  L0C*2N+A 

0811 

7260 

0 0006 

1 

POWRSERS  EXTEND 

0812 

0813 

REf 

REF 

1 

7261 

22  131 
5<t  107 

1 

oxch 

pOLyRET 

17  last  915 

7262 

0 

TS 

POLISH 

081A 

REF 

1 

7263 

22  130 

0 

lxch 

POLYCNT 

0815 

REF 

1 

726A 

1 7275 

1 

TCF 

POLYCOM 

RETURN  ADDRESS 
POWER  SERIES  ADDRESS 
N-1  TO  COUNTER 
SKIP  SET  UP  BY  POLY 


0816  REF  275  LAST  922  7265 

0817  7266 

0818  REF  2 LAST  92A  7267 

0819  7270 

0820  REF  276  LAST  92A  727l 

0821  REF  18  LAST  92A  7272 

0822  REF  17  LAST  827  7273 

0823  REF  2 LAST  92A  727^ 

082A  REF  1 7275 

0825  REF  55  LAST  923  7279 


50  002 

0 

POLY 

INDEX 

0 

3 0000 

1 

CAF 

0 

POLYCNT 

5‘t  I30 

1 

T S 

6 0000 

1 

DOUBLE 

6 0002 

0 

AD 

Q 

5<t  107 

0 

TS 

POLISH 

6 JfbO 

1 

AD 

FIVE 

5A  131 

0 

TS 

POLYRET 

3 5365 

1 

POLYCOM 

CAF 

LVBUF 

5A  106 

1 

TS 

ADDRWD 

N-1  TO  COUNTER 

L(A(N) )-3  TO  POl ISH 
STORE  RETURN  ADDRESS 

incoming  X WILL  Be  moved  to  vbuf,  so 

SET  ADDRWD  SO  DmPSUB  WILL  MPY  BY  VBUF, 


0826  7277  0 0006  1 EXTEND 

0827  REF  19  LAST  92A  7300  5 0i07  1 INDEX  POLISH 

0828  7301  3 OOOA  0 DCA  3 
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U niERPRETER  USER'S  OWN  PAGp  NO.  33  E3 


0829 

REF 

A12 

LAST 

923 

7302 

52  145 

0 

dxch 

MPAc 

load  A(n)  into  mPAC* 

0830 

REF 

32 

LAST 

809 

7303 

52  113 

0 

dxch 

VBUF 

SAVING  X IN  VBUf 

0831 

REF 

1 

730A 

1 7310 

0 

TCF 

P0LY2 

0832 

REF 

3 

LAST 

92A 

7305 

54  130 

1 

POLYLOOP  TS 

POLYCNT 

SAVE  decremented  LOOP  COUNTER 

0833 

REF 

9A 

LAST 

923 

7306 

4 7^54 

1 

CS 

TWO 

083A 

REF 

20 

LAST 

92A 

7307 

26  107 

0 

ADS 

POLISH 

regress  COEFFICIENT  POINTER 

0835 

REF 

4 

LAST 

923 

7310 

0 7152 
0 0006 
5 0107 

0 P0LY2 

TC 

EXTEND 

INDEX 

DMPSUB 

0836 

0837 

REF 

21 

LAST 

925 

731 1 

7312 

1 

1 

POLISH 

0838 

0839 

REF  413 

LAST 

925 

7313 

7314 

3 0002 
23  145 

0 

0 

DCA 

DAS 

1 

MPAC 

MULTIPLY  BY  X 


ADD  IN  NEXT  COEFFICIENT 

users  RESPONSIBILITY  TO  ASSURE  NO  OVFLOW 


0840 

REF 

4 

1 

3 

LAST 

925 

0841 

0842 

REF 

REF 

LAST 

924 

7315  10  130  1 CCS 

7316  1 7305  1 TCF 

7317  0 0131  1 TC 


POLYCNT 

POLYLOOP 

polyret  return  caller 
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L INTERPRETER  USER'S  OWN  PAGE  NO.  3**  E3 

P08A3  miscellaneous  MULT  I -^RECi S ION  ROUTINES  REQUIRED  IN  FIxED-FIxED  BUT  NOT  USED  BY  THE  INTERPRETER, 


0845 

7320 

0 0006 

1 

TPAGREE 

EXTEND 

0846 

REF 

68 

LAST 

923 

7321 

22  120 

1 

QXCH 

BUF 

0847 

REF 

1 

7322 

0 6/72 

0 

TC 

BRANCH 

0848 

REF 

1 

7323 

1 7327 

1 

TCF 

ARG4 

0849 

REF 

1 

7324 

1 7347 

1 

TCF 

ARGZERO 

O85O 

REF 

49 

LAST 

835 

7325 

4 7/35 

0 

cs 

POSMAX 

0851 

7325 

1 7330 

1 

TCF 

♦ 2 

0852 

REF 

50 

LAST 

926 

732/ 

3 7/35 

1 

ARG4 

CAF 

POSMAX 

0853 

REF 

69 

LAST 

926 

733O 

54  121 

1 

♦ 2 

TS 

BUF  ♦! 

085A 


7331  0 0^06  1 . 


EXTEND 


0855 

REF 

324 

LAST 

0856 

REF 

414 

LAST 

0857 

REF 

415 

LAST 

0858 

REF 

255 

LAST 

0859 

REF 

70 

LAST 

0860 

REF 

416 

LAST 

0861 

REF 

417 

LAST 

0862 

REF 

256 

LAST 

0863 

REF 

71 

LAST 

0864 

REF 

418 

LAST 

9l5 

925 

926 
922 
926 
926 
926 
926 
926 
926 


7332 

7333 

24  000 
6 0146 

1 

1 

7334 

54  146 

0 

7335 

3 7/61 

6 0121 

0 

7335 

0 

7337 

6 0145 

1 

734O 

54  145 

0 

734I 

3 7/6I 

0 

7342 

6 0121 

0 

7343 

6 0144 

0 

AUG 

A 

Ad 

MPAc  *2 

TS 

MPAC  *2 

CAF 

ZERO 

AD 

BUF  ♦ 1 

AD 

MPAC  ♦! 

TS 

MPAC  ♦! 

CAF- 

zero 

AD 

BUF  ♦! 

AD 

MPAC 

FORCE  SIGN  agreement  AMONG  THE  TRIPLE- 
PRECISION  contents  of  mpac,  returning 
WITH  THE  5IGNUM  OF  THE  INPUT  IN  A, 


IF  negative. 


forms  ♦-1,0, 


0865  REF  A19  LAST  926  73A<e 

0866  REF  A20  LAST  926  73A5 

0867  REF  72  LAST  926  73A6 

0868  REF  A21  LAST  926  73A7 

0869  rEF  1 7350 


5<*  1 ARGZER02  TS  MPAC 

5A  U5  0 TS  MPAC  ♦! 

0 0120  1 TC  BUF 

5A  U6  0 ArGZERO  TS  MPAC  *2 

1 7JAA  1 TCF  ArGZErOZ 


ALWAYS  SKIPPING  UNLESS  ARGZERO, 
RETURN, 

SET  ALL  THREE  MpAC  REGISTERS  TO  ZERO. 


Ro87o  shoRtmp  multiplies  the  t^  Contents  of  mpac  by  the  single  precision  number  arriving  in  a, 

10  LAST  921 


0872  REF 

0873 

0874  REF  422  LAST  926 


0875 

0876 

0877 

0878 

0879 

0880 
0881 
0882 

0883 

0884 


REF  423  LAST  926 
REF  257  LAST  926 
REF  424  LAST  926 

REF  11  LAST  926 
REF  425  LAST  926 
REF  426  LAST  926 

REF  12  LAST  926 
REF  427  LAST  926 


7351  54  125  0 SHORTMP  TS  MPTEMP 

7352  0 0006  1 EXTEND 

7353  7 0146  0 MP  MPAC  *2 


7354  5(» 

7355  3 

7356  56 
735^ 

7360 

7361 

7362 
73bi 
7364 


7365  20 


146 

7^61 

145 
0006 
0125 

146 

144 
0006 
0125 

145 


TS  MPAC  *2 

CAF  zero 

XCH  mpac  ♦! 

EXTEND 

MP  MPTEMP 

OAS  MPAC  ♦! 

XCH  MPAC 

EXTEND 

MP  MPTEMP 

OAS  MPAC 


SO  SUBSEQUENT  DfiS  WILL  WORK, 


SETTING  MPAC  TO  0. 


0885  REF  277  LAST  924  7366  0 0O02  0 


TC  0 


48895^A  YJL  system  FOR  AGC 5 NEW  PRO^JRAM  SMePATIN  BY  EYLES 


DEC  13,  I966  master  page  927 


L interpreter  USER'S  OwN  pAQF  NO,  35  E3 

PO886  DMPNSUB  multiplies  T^E  DP  FraCtIoN  ARRIVING  IN  MPAC  BY  THe  SP 

R0887  integer  arriving  IN  A,  THE  D^l  PRODUCT  DEPARTS  BqTH  IN  MPaC  AND  IN 

R0888  A and  l,  note  that  dmpnsub  normally  increases  the  Magnitude  of  the 

R0889  contents  oF  MPAC,  THe  CUSTOMER  MUST  INSURE  THAT  3(A)  X B ( MPAC ,MPAC* I ) 

R0890  and  B(A)  X B(MPAC)  ARE  LESS  THAN  i IN  MAGNITUDE,  WHERE  B,  AS  IS  OBVIOUS, 

R08905  INDICATES  THE  ARRIVING  CONTENTS, 


0891  REF  1 736T 

0892  737O 

0893  REF  A28  LAST  926  7371 

089A  REF  A29  LAST  927  7372 

0895  7373 

0896  REF  2 LAST  927  737^ 

0897  REF  163  LAST  922  737^ 

0898  REF  A30  LAST  927  737S 

0899  737T 

0900  REF  A31  LAST  927  7A00 

0901  REF  278  LAST  926  7A01 


5<,  A25.  0 DMPNSUB  TS  DMPNTEMP 

0 OUO6  1 EXTEND 

7 OI45  0 MP  MPAC  *1 

52  U5  0 DXCH  MPAC 

0 0U06  1 EXTEND 

7 Ol25  0 MP  DMPNTEMP 

3 0001  0 CA  L 

2b  144  1 ADS  MPAC 

0 0006  1 EXTEND 

3 0145  1 DCA  MPAC 

0 0002  0 TC  Q 


LOW  PRODUCT  TO  mPAC,  HIGH  FACTOR  TO  A 

COMPLETING  THE  PRODUCT  IN  MPAC 
BRINGING  THE  PRODUCT  INTO  A AND  L 


DEC  13,  1966  MASTER  PAGE  92b 


A8895AA  YJL  SYSTEM  FOR  AGC.  NEW  PROGRAM  S^EPATIN  BY  EYLES 
L INTERPRETER  USER’S  OwN  PAGE  NO.  36  E3 

Po902  miscellaneous  vector  operations.  Included  here  are  the  following; 


Ro9o3  1.  DOT  DP  VECTOR  DOT  PRODUCT. 

R090A  2,  VXV  DP  VECTOR  CROSS  pROoucT* 

R0905  3.  VXSC  DP  VECTOR  TIMES  SCALAR. 

R0906  A.  V/SC  DP  vector  DIVIDED  BY  SCALAR. 

R0907  5,  VPROJ  OP  VECTOR  PROJECTION.  ( (MPAC.XIMPAC  ). 

R0908  6,  VXM  DP  VECTOR  POST-MULT I PLI ED  BY  MATRIX, 

R0909  7.  MXV  DP  VECTOR  PRE-MULT  I PLI ED  BY  MATRIX, 


0910 

REF  1 

7a02 

0 

7<^17 

1 DOT 

TC 

PrEdOT 

0911 

REF  258 

LAST 

926 

7A03 

3 

7 761 

0 

CAF 

ZERO 

0912 

REF  7 

LAST 

910 

7 40  A 

1 

6ilA 

1 

TCF 

NEWMODE 

0913 

091A 

0915 

R£F 

REF 

REF 

95 

6 

1 

last 

last 

925 

16 

7Ao5 

7406 

7407 

3 7754 
54  130 

1 7‘’13 

0 

1 

1 

MXV 

CAF 

TS 

TCF 

TWO 

MATINC 

VXM/MXV 

0916 

REF 

8 

LAST 

876 

7410 

4 4P57 

0 

VxM 

CS 

ten 

0917 

0918 

REF 

REF 

7 

19 

LAST 

LAST 

928 

828 

7411 

7412 

54  130 
3 6276 

1 

1 

TS 

CAF 

• MATINC 
SIX 

DO  The  DOT  Product  and  exit*  changing 

THE  MODE  TO  DP  SCALAR. 


Set  up  matinc  and  dotinc  for  rou 

VECTORS, 

go  to  COMMON  portion. 


SET  MATINC  AND  dOTInC  TO  REFeR  TO  MATRIX 
AS  THREE  COLUMN  VECTORS, 


^8895<^A  YJL  system  FqR  A^C  ! NEW  Pro^RAM  SMEPatIN  BY  EYLEs 


DEC  13*  1966  Master  paGe  929 


L interpreter  USER*S  own  PAGf  no,  37  E3 

P0919  COMMON  PORTION  OF  MX(/  ANP  VXM, 


0920  REF  7 LAST  923  7Al3 

R09205  iTrACE  (2)  REFERS  TO 

0921  REF  1 7A1A 

0922  REF  1 7A1P 

0923  7A16 

092A  REF  33  LAST  925  7Al7 

0925  REF  432  LAST  927  7420 

0926  REF  13  LAST  889  7421 

0927  7422 

0928  REF  34  LAST  929  7423 

0929  REF  433  LAST  929  742^ 

0930  7425 

0931  REF  35  LAST  929  742<> 

0932  REF  434  LAST  929  7427 

0933  REF  8 LAST  928  7430 

0934  REF  56  LAST  924  7431 

0935  REF  2 LAST  929  7432 

0936  REF  36  LAST  929  7433 

0937  REF  435  LAST  929  743^ 

0938  REF  37  LAST  929  7435 

0939  REF  436  LAST  929  743^ 

0940  REF  38  LAST  929  743 ^ 

0941  REF  437  LAST  929  7440 

0942  REF  9 LAST  929  7441 

0943  REF  57  LAST  929  7442 


0944  REF  3 LAST  929  7443 

0945  REf  1A  last  929  744^ 

0946  REF  438  LAST  929  7445 

0947  REF  439  LAST  929  744P 

0948  REF  39  LAST  929  7447 

0949  REF  440  LAST  929  7450 

0950  REF  19  LAST  920  7451 


54  126  0 VxM/MXV 
"VXM/MXV". 

TS 

DOTINC 

0 7904 

1 

TC 

MPACVBUF 

0 7221 
0 0U06 

1 

TC 

DOTSUB 

1 

EXTEND 

3 0113 

1 

DCA 

VBUF 

52  145 

0 

DXCH 

MPAC 

52  124 

1 

OXCH 

BUF2 

0 0U06 

1 

EXTEND 

3 0115 

1 

DCA 

VBUF  .2 

52  150 

1 

DXCH 

MPAC  .3 

0 0U06 

1 

EXTEND 

3 0117 

0 

DCA 

VBUF  .4 

52  152 

0 

DXCH 

MPAC  .5 

3 0130 

0 

CA 

MATINC 

25  106 

1 

ADS 

ADDRWD 

0 7221 

1 

TC 

DOTSUB 

52  113 

0 

DXCH 

VBUF 

52  145 

0 

DXCH 

MPAC 

52  115 

0 

DXCH 

VBUF  +2 

52  150 

1 

DXCH 

MPAC  *3 

52  117 

1 

DXCH 

VBUF  .4 

52  152 

0 

DXCH 

MPAC  *5 

3 0130 

0 

CA 

MATINC 

25  106 

1 

ADS 

ADDRWD 

0 7221 

1 

TC 

DOTSUB 

52  124 

1 

DXCH 

BUF2 

52  145 

0 

DXCH 

MPAC 

52  152 

0 

DXCH 

MPAC  .5 

52  115 

0 

DXCH 

VBUF  +2 

52  150 

1 

DXCH 

MPAC  *3 

1 6115 

0 

TCF 

DANZIG 

SAVE  vector  in  mPAC  FOR  FURTHER  USE. 
GO  DOT  TO  Get  X component  of  answer. 


MOVE  MPAC  VECTOR  BACK  INTO  MPAC.  SAVING 
NEW  X COMPONENT  IN  BUF2. 


INITIALIZE  ADDRwD  FoR  NEXT  DOT  PRODUCT. 
FORMS  BASE  ADDRESS  OF  NEXT  COLUMN (ROW). 

MOVE  GIVEN  VECTOR  BACK  TO  MPAC.  SAVING  Y 

component  of  answer  in  VBUF  .2, 


FORM  address  of  LAST  COLUMN  OR  ROW, 


ANSWER  NOW  COMPi  ETE.  PUT  COMPONENTS  INTO 
proper  MPAC  REGISTERS, 


EXIT. 


488954A  yJL  SySIEM  FOR  AgC;  NEW  PROGRAM  S^EpATlN  BY  Eyl-ES 


L interpreter 

P0951  VXSC  - vector  TjMES  SCALAR. 


0952 

REF 

22 

LAST 

922 

0953 

REF 

1 

0954 

REF 

2 

LAST 

930 

0955 

REF 

5 

LAST 

925 

0956 

REF 

1 

0957 

REF 

441 

LAST 

929 

0958 

REF 

442 

LAST 

930 

0959 

REF 

443 

LAST 

930 

0960 

REF 

6 

last 

930 

930 

0961 

RtF 

2 

LAST 

0962 

REF 

444 

LAST 

930 

0963 

rEf 

445 

LAST 

930 

0964 

REF 

446 

LAST 

930 

0965 

REF 

7 

LAST 

930 

0966 

REF 

3 

LAST 

930 

0967 

REF 

447 

LAST 

930 

0968 

REF 

448 

LAST 

930 

0969 

REF 

449 

LAST 

930 

0970 

REF 

450 

LAST 

930 

7A52  10  153  1 VxSC 

7453  1 7P01  0 

7454  1 7501  0 

7455  0 7^52  0 VVXSC 

7456  0 7203  1 

7457  52  150  1 

7460  sa  145  0 

7461  52  150  1 

7462  0 7152  0 

7463  0 7203  1 

746A  52  152  0 . 

746P  52  1A5  0 

7466  52  152  0 

746T  0 7152  0 

7470  0 7203  1 

7471  52  145  0 VROTATEX 

7472  52  152  0 

7473  52  150  1 

747A  52  145  0 


0971  REF  20  LAST  929  747^  1 6115  0 


CCS 

TCF 

TCF 

TC 

TC 

OXCH 

OXCH 

OXCH 

TC 

TC 

OXCH 

OXCH 

OXCH 

TC 

TC 

OXCH 

OXCH 

OXCH 

OXCH- 

TCF 


DEC  13.  1966  master  pAQE  930 


USER'S  OWN  PAGE  NO.  38  E3 

MODE 

DVXSC 

DVXSC 

TEST  PRESENT  MOnE. 

SEPARATE  routine  WHEN  SCALAR  IS  IN  MPAC. 

DMPSUB 

VROUND 

MPAC  +3 

MPAC 

MPAC  *3 

COMPUTE  X COMPONENT 

AND  ROUND  IT. 

PUT  Y component  into  MPAC  SAVING  MPAC  IN 

MPAC  +3. 

DMPSUB 

VROUND 

MPAC  *5 

MPAC 

MPAC  *5 

DO  same  for  y ai\,d  z components. 

DMPSUB 

VROUND 

MPAC 

MPAC  *5 

MPAC  *3 

MPAC 

DANZIG 

EXIT  USED  TO  RESTORE  MPAC  AFTER  THIS 

TYPE  OF  rotation.  CALLED  BY  VECtOR  SHIFT 

RIGHT.  V/SC.  ETC. 

^8895^A  YJU  system  FOR  AGCS  NeW  PROGRAM  SHePatIN  BY  eYUeS 


L INTERPRtTER 

P0972  OP  vector  PROJECTiOvt  rou'ine. 

0973  REF  2 LAST  928  7A76  0 7<:i7  1 VPROJ  TC 

097A  REF  31  last  808  747?  4 7?53  0 CS 

0975  REF  58  LAST  929  7500  25  106  1 ADS 

R0976  VXSC  when  SCALAR  ARRIVES  IN  MPAC  AND  VECTOR  IS 


0977 

0978 

0979 

0980 

rBf  - 

REF 

REF 

451 

452 
8 

LAST 

LAST 

LAST 

930 

931 
930 

0981 

REF 

4 

LAST 

930 

0982 

REF 

96 

LAST 

928 

0983 

REF 

59 

LAST 

931 

0984 

0985 

REF 

453 

LAST 

931 

0986 

REF 

454 

LAST 

931 

0987 

ref 
^ ^ 

455 

LAST 

931 

0988 

REF 

9 

LAST 

931 

0989 

REF 

5 

LAST 

931 

0990 

REF 

97 

LAST 

931 

0991 

REF 

60 

LAST 

931 

0992 

REF 

456 

LAST 

931 

0993 

REF 

457 

LAST 

931 

0994 

REF 

458 

LAST 

931 

0995 

REF 

10 

LAST 

931 

0996 

REF 

6 

LAST 

931 

0997 

REF 

459 

LAST 

931 

0998 

REF 

460 

LAST 

931 

0999 

REF 

461 

LAST 

931 

1000 

REF 

176 

LAST 

9l8 

1001 

ref 

8 

last 

928 

7501  0 0^06  1 DVXSC  EXTEND 


7502  3 0145  1 OCA 

7503  52  150  1 DXCH 

750A  0 7152  0 TC 

7505  0 1 TC 

7506  3 7?54  0 CAP 

7507  25  106  1 ADS 

7510  0 0006  1 EXTEND 

7511  3 0150  0 DCA 

7512  52  145  0 DXCH 

7513  52  152  0 DXCH 

751A  0 7152  0 TC 

7515  0 7203  1 TC 

7516  3 7?54  0 CAF 

751?  25  106  1 ADS 

7520  52  150  1 DXCH 

7521  52  145  0 DXCH 

7522  52  150  1 DXCH 

7523  0 7152  0 TC 

752A  0 7203  1 TC 

7525  52  145  0 DXCH 

7526  52  152  0 DXCH 

752?  52  145  0 DXCH 

7530  4 7f55  0 CS 

7531  1 6114  1 TCF 


PREDOT 

Four 

ADDRWD 
AT  X, 


MPAc 
MPAC  *3 
DMPSUB 
VROUND 

TWO 

ADDRWD 

MPAC  +3 
MPAC 

MPAC  +5 

DMPSUB 

VROUND 

TWO 

ADDRWD 
MPAC  +3 
MPAC 
MPAC 
DMPSUB 

VROUND 

MPAC 
MPAC  +5 
MPAC 

ONE 

NEWMOdE 


Dec  1966  Master  paOe  93i 


USER'S  OWN  PAGf  NO.  39 


E3 


(MPAC.X)MPAC  IS  COMPUTED  AND  LEFT  IN 
MPAC,  DO  DOT  AND  FALL  INTO  DVXSC, 


SAVE  SCALAR  IN  MPAC  *3  AND  GET  X 
component  Of  answer. 


ADVANCE  ADDRWD  TO  Y COMPONENT  OF  X, 


PUT  SCALAR  BACK  INTO  MPAC  AND  SAVE 
X RESULT  IN  MPAC  *5, 


TO  z component, 

BRING  SCALAR  BACK,  PUTTING  Y RESULT  IN 
THE  PROPER  PLACf, 


PUT  Z COMPONENT  IN  PROPER  PLACE,  ALSO 
positioning  X, 


MODE  HAS  changed  TO  VECTOR 


48895AA  YJL  SYSTEM  FOR  AGC:  NeW  PROGRAM  SMePatIN  BY  eYLeS 


Dec  i3»  1966  Master  page  93<; 


L HTERPRETER  USER'S  OWN  PAGf  NO.  AO  E3 

PIOO2  the  VECTOR  CROSS  PRODUCT  ROUTINE  CALCULATES  (X  M -X  M ,X  M -X  M ,X  M >X  M ) WHeRE  M IS  THE  VECTOR  IN 

RIOOa  32  23  13  31  21  12 

R1OO6  M?AC  AND  X THe  VECTOR  AT  THE  51 VE^*  ADDRESS, 


1007 

1008 

REF 

462 

1009 

REF 

463 

1010 

REF 

■ 40 

1011 

REF 

11 

1012 

1013 

REF 

464 

lOlA 

REF 

465 

1015 

REF 

41 

1016 

REF 

12 

1017 

REF 

98 

1018 

REF 

61 

1019 

1020 

REF 

466 

1021 

REF 

467 

1022 

REF 

468 

1023 

REF 

13 

1024 

1025 

ref 

42 

1026 

REF 

469 

1027 

REF 

43 

1028 

REF 

14 

1029 

REF 

99 

1030 

REF 

62 

1031 

1032 

REF 

44 

1033 

ref 

470 

1034 

REF 

471 

1035 

1036 

1037 

REF 

10 

929 

931 


932 


7532 

7533 
753^ 
7533 
753P 

7537 

75A0 

7SA1 

75A2 

75A3 

75AA 

7543 

7546 

764^ 

7550 

7551 

7552 


7553 

7554 
7553 

7556 

7557 

7560 

7561 

7562 

7563 

7564 

7565 

7566 

7567 

757O 


0 0006  1 

3 0152  1 
52  145  0 
52  113  0 
0 7152  0 

0 0006  1 

4 0150  1 
52  145  0 
52  115  0 
0 7152  0 

3 7^54  0 
26  106  1 
0 0006 

4 0152 
52  145 
52  152 
0 7152 


VXV 


0 0006  1 
3 0113  1 
52  145  0 
52  117  1 
0 7152  0 


3 7^54 
26  106 


0 OOO6  1 


4 0113 
52  145 

20  152 


extend 

OCA 

OXCH 

OXCH 

TC 

extend 

DCS 

OXCH 

OXCH 

TC 

CAF 

ADS 

EXTEND 
DCS  ■ 
OXCH 
OXCH 
TC 


MPAC  *5 
MPAC 
VBUF 
DMPSUB 


MPAC  *3 
MPAC 
VBUF  +2 
DMPsUB 

TWO 

ADDRWD 

MPAC  +5 
MPAC 
MPAC  *5 
DMPSUB 


0 0006  1 
1 7371  1 
0 7072  0 


EXTEND 
DCA  VBUF 

OXCH  MPAC 

OXCH  VBUF  *4 

TC  DMPSUB 

CAF  Two 

ADS  ADDRWD 

extend 

DCS  VBUF 

OXCH  MPAC 

OAS  MPAC  *5 

EXTEND 

3ZF  *Z 

TC  OVERFLOW 


FORM  UP  M3X1,  LEAVING  Ml  IN  vBUF. 

BY  XI. 

CALCULATE  -X1M2,  SAVING  XIM3  IN  VBUF  *2# 

ADVANCE  ADDRWD  TO  X2. 

PREPARE  TO  GET  ■X2M3 . SAVING  -XlM2  IN 
MPAC  +5. 

get  X2m1'  saving  -X2M3  IN  VBUF  *4. 

ADVANCE  ADDRWD  TO  X3. 

GET  -X3MI1  adding  X2M1  TO  MPAC  +5  TO 
COMPLETE  The  z component  of  the  answer. 


^8895'*A  YJL  SYSTEM  ^OR  aGC!  NEW  PhO^RA,M  sHePatIN  BY  eYLeS 


L niERPRETER 


1038 

REF 

REF 

REF 

REF 

REF 

15 

45 

472 

473 

474 

LAST 

LAST 

LAST 

LAST 

LAST 

932 

757I 

1039 

lOAO 

lOAl 

1042 

10A3 

932 

932 

933 

933 

757^ 

7573 

7574 

7575 

757P 

757Y 

7600 

1044 

1045 

REF 

11 

LAST 

932 

1046 

REF 

16 

LAST 

933 

7601 

1047 

REF 

46 

LAST 

933 

7602 

1048 

REF 

1 

7603 

il049 

the 

MPACVBUF 

SUBRoUri 

1051 

7604 

1052 

REF 

475 

LAST 

933 

7605 

1053 

REF 

47 

LAST 

933 

7606 

1054 

760^ 

1055 

REF 

476 

LAST 

933 

7610 

1056 

REF 

48 

LAST 

933 

7611 

1057 

7612 

1058 

REF 

477 

LAST 

933 

7613 

1059 

REF 

49 

LAST 

933 

761^ 

1060 

REF 

279 

LAST 

927 

761B 

0 7152  0 
52  il5  0 
52  i50  1 
52  AA5  0 
2D  i50  1 

0 0^06  1 

1 7<301  0 

0 7072  0 

0 7152  0 
52  U7  1 

1 7037  0 


0 0006  1 
3 0AA5  I 


52  il3 
0 0006 
3 0J.50 
52  115 
0 0006 
3 0152  1 
52  117  1 
0 0002  0 


TC  DMPSUB 

DXCH  VBUF  *2 

DXCH  MPAC  *3 

DXCH  MPAC 

DAS  MPAC  +3 

EXTEND 
BZF  +2 

TC  OVERFLOW 

TC  DMPSUB 

DXCH  VBUF  *4 

TCF  ENDVXV 

tHe  Vector  in  mpac  in  vbuf 

MPACvBUF  extend 

DCA  MPAC 

DXCH  VBUF 

EXTEND 

DCA  MPAC  +3 

DXCH  VBUF  *2 

EXTEND 

OCA  MPAC  *5 

DXCH  VBUF  ♦A 

TC  Q 


Dec  i3»  1966  Master  page  933 


USER'S  own  page  no.  Al  E3 


MOVE  XIM3  TO  MPAC  *3  SETTING  UP  FOR  X3M2 
AND  ADD  -X3M1  Tn  MPAC  *3  TO  COMPLETE  THt 
Y COMPONENT  OF  tHE  RESULT. 


GO  ADD  -X2M3  TO  X3M2  TO  COMPLETE  THE  X 
component  (TAIL  END  OF  DAD). 

without  CLOBBERING  MPaC. 

CALLED  BY  Mxv  VXM.  AND  UNIT, 


RETURN  TO  CALLER 


^88954A  YJL  system  FOR  AGCi  NeW  PRO'jRAM  SMgPATlN  BY  eYLeS 


DeC  13*  1966  master  PAGe  ^3‘* 


n.TERPRtTER 


USER'S  OWN  PAGf  NO. 


E3 


’1061 

INTERPRE 

1063 

REF 

17 

LAST 

933 

1064 

ref 

21 

last 

930 

1065 

REF 

18 

LAST 

934 

1066 

REF 

1 

934 

1067 

REF 

22 

LAST 

1068 

932 

1069 

REf 

63 

LAST 

1070 

1071 

REF 

2 

LAST 

902 

1072 

iU  f 3 

ncf- 

O', 

UMO  1 

vat 

1074 

1075 

REF 

478 

LAST 

933 

1076 

REF 

73 

LAST 

926 

1077- 

REF 

259 

LAST 

928 

1078 

REF 

21 

LAST 

915 

1079 

REF 

4 

LAST 

841 

1080 

REF 

65 

LAST 

934 

1081 

REF 

13 

LAST 

912 

1082 

REF 

1 

1083 

REF 

260 

LAST 

934 

1084 

REf 

22 

last 

934 

1085 

REF 

1 

1086 

REF 

6 

LAST 

894 

1087 

REF 

23 

LAST 

934 

1088 

REF 

1 

76lP 

761Y 

7620 

7621 

7622 

7623 
762^ 
7623 
7626 


7627 

7630 

7631 

7632 

7633 
763^ 

7635 

7636 

7637 
76A0 

76Ai 

76A2 

76A3 

76A'* 

76A5 

7646 

7647 


0 0006 
5 0^06 
3 OOOl 
52  i45 
52  121 
3 7^61 
54  OOA 
1 2352 

3 0106 

54  156 
1 6117 

3 7^61 
54  004 
1 2172 

3 6130 


: 0 

DMPl 

TC 

DMPSUB 

I 0 

tcf 

danzig 

0 

DMPR 

TC 

DMPSUB 

0 

TC 

ROUNDSUB  *1 

0 

TCF 

DANZIG 

1 

DDV 

EXTEND 

i 0 

INDEX 

ADDRwD 

0 

DCA 

0 

1 

TCF 

BDDV  *4 

1 

BDDV 

EXTEND 

0 

INDEX 

ADDRWD 

0 

DCA 

0 

0 

DXCH 

MPAC 

1 

+ 4 

DXCH 

BUF 

0 

CAF 

ZERO 

1 

TS 

FBANK 

0 

TCF 

DDV/BDDV 

- 0 

SETPD 

CA 

ADDRWD 

1 

TS 

PUSHLOC 

1 

TCF 

NOIBNKSW 

0 

TSLC 

CAF 

zero 

1 

TS 

FBANK 

0 

TCF 

TSLC2 

0 

GSHIFT 

CAF 

LOW7 

1 

IS 

FBANK 

0 

TCF 

GENSHIFT 

DMP  INSTRUCTION. 


(CIA)  = *0). 


move  dividend  ImTO  bUF( 


MOVE  DIVISOR  INTO  MPAC  SAVING  MPAC*  THE 
DiVlOENDt  IN  bUF. 


DIVIDE  routines  IN  BANK  0. 

MUST  set  to  WORK  AREA,  OR  EBANK  TROUBLE. 
NO  FBANK  SWITCH  REQUIREO. 

shifting  routines  Located  in  bank  oo. 


used  as  mask  at  GeNSHIFT.  this  PROCESSES 
ANY  SHIFT  INSTRUCTION  (EXCEPT  TSLC)  WITH 
AN  ADDRESS  (ROUTINES  IN  BANK  0). 
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Pl089  the  following  IS  tHe  prologue  to  V/SC,  if  the  present  mode  is  vector,  It  saves  the  scalar  At  X IN  BUF 

R1091  AND  CALLS  THE  V/SC  ROUTlNp  IN  SAN^  0.  IF  THe  PReSeNT  MODe  IS  SCALAR,  It  MOVES  tHe  VeCtOR  AT  X INTO  MPAC,  SAVING 

R1093  the  SCALAR  IN  MPAC  IN  BUF  BEFORE  LaLLING  THE  V/SC  ROUTINE  IN  BANK  0. 


109A 

REF 

23 

LAST 

930 

1095 

REF 

1 

1096 

REF 

2 

LAST 

935 

1097 

1098 

REF 

66 

Last 

93A 

1099 

1100 

REF 

7A 

LAST 

93A 

1101 

REF 

261 

LAST 

93A 

1102 

REF 

2A 

LAST 

93A 

1103 

REF 

1 

IlOA 


1105 

REF 

67 

LAST 

935 

1106 

1107 

REF 

A79 

LAST 

93A 

1108 

1109 

REF 

68 

LAST 

935 

1110 

1111 

REF 

ABO 

LAST 

935 

1112 

REF 

177 

LAST 

931 

1113 

ref 

2A 

last 

935 

lllA 

1115 

1116 

REF 

69 

LAST 

935 

REF 

A81 

LAST 

935 

1117 

1118 

REF 

1 

7650  10  153  I 

7651  1 7962  0 

7652  1 7962  0 

7653  0 0006  1 

765H  5 0106  0 

7655  3 0001  0 

7656  52  121  1 

7657  3 7^61  0 

7660  5A  OOA  1 

7661  1 2916  0 

7662  0 0006  1 

7663  5 0106  0 

766^  3 0003  1 

7665  52  150  1 

7666  0 0006  1 

7667  5 0106  0 

7670  3 0005  1 

7671  52  152  0 

7672  A 7^55  0 

7673  5A  153  1 

767A  0 0006  1 

7675  5 0106  0 

7679  3 0001  0 

7677  52  1A5  0 

7700  1 7956  1 


V/SC  CCS  mode 

TCF  DV/SC  MOVE  VECTOR  INTn  MPaC. 

TCF  DV/SC 

VV/SC  EXTEND 

INDEX  ADDRWD 
DCA  0 

V/SCl  OXCH  BUF  IN  BOTH  CASES,  VECTOR  IS  NOW  IN  MPAC  AND 

CAF  zero  scalar  IN  BUF. 

T5  FBANK 
TCF  V/SC2 

DV/SC  extend 

INDEX  ADDRwD 
DCA  2 
DXCH  MPAC  +3 
EXTEND 

INDEX  ADDRWD 
DCA  A 
DXCH  MPAC  *5 

CS  ONE  CHANGE  MODE  TO  VECTOR. 

Ts  mode 

EXTEND 

INDEX  ADDRWD 
DCA  0 
DXCH  MPAC 

TCF  V/SCl  FINISH  PROLOGUE  AT  rOMMON  SECTION. 


488954A  YJL  SYSTEM  FOR  AGC;  NEW  PROGRAM  SMePATIN  BY 


L niERPRETER 

Pni9  SIGN  AND  Complement  instructions. 


1120 

REF 

70 

LAST 

935 

1121 

1122 

REF 

23 

LAST 

934 

1123 

LAST 

904 

1124 

REF 

2 

1125 

REF 

71 

LAST 

936 

1126 

1127 

REF 

24 

LAST 

936 

1128 

REF 

25 

LAST 

936 

7701  50  106  0 SIGN 

7702  10  000  0 

7703  I 6U5  0 

770^  1 7^06  0 

7705  I 7aA  0 

7706  50  106  0 
TlO!  10  001  1 

7710  1 6115  0 

7711  1 6115  0 


1129  REF  3 LAST  936 

1130  REf  26  last  936 

1131 

1132  REF  A82  LAST  935 

1133  REF  A83  LAST  936 


7712  1 7aA  0 

7713  1 6115  0 

7714  0 0006  1 Comp 

7715  4 0145  0 

7716  52  145  0 


1134 

REF 

25 

LAST 

935 

1135 

REF 

1 

1136 

REF 

2 

LAST 

936 

1137 

1138 

REF 

CD 

LAST 

936 

1139 

REF 

485 

LAST 

936 

1 140 

1141 

REF 

486 

LAST 

936 

1142 

REF 

487 

LAST 

936 

1143 

REF 

27 

LAST 

936 

1144 

REF 

488 

LAST 

936 

1145 

REF 

489 

LAST 

936 

1146 

REF 

28 

LAST 

936 

7717  10  153  1 

7720  1 7f31  1 

7721  1 7^31  1 

7722  0 0006  1 

7723  4 0150  1 

7724  52  150  1 

7725  0 0006  1 

7726  4 0152  0 

7727  52  152  0 

7730  1 6115  0 

7731  4 0146  0 DrOMP 

7732  54  146  0 

7733  1 6115  0 


DEC  I3f  1q66  master  PAGE  936 


USER'S  OWN  page  NO.  44 


E3 


INDEX 

ADDRWD 

CCS 

0 

TCF 

DANZIG 

TCF 

♦2 

TCF 

COMP 

INDEX 

ADDRWD 

CCS 

1 

TCF 

DANZIG 

TCF 

DANZIG 

TCF 

COMP 

TCF 

EXTEND 

danzig 

DCS 

MPAC 

DXCH 

MPAC 

CCS 

MODE 

TCF 

OCOMP 

TCF 

DCOMP 

EXTEND 

DCS 

MPAC  +3 

DXCH 

MPAC  +3 

EXTEND 

DCS 

MPAC  *5 

DXCH 

MPAC  *5 

TCF 

DANZ 1 G 

CS 

MPAC  *Z 

TS 

MpAc  *2 

TCF 

DANZIG 

CALL  COMP  instruction  IF  WORD  At  X IS 

negative  non-zero. 


DO  THE  complement. 


complement  dp  mpac  in  every  case, 

EITHER  COMPLEMENT  MPAC  +3  OR  THE  REST  OF 
The  vector  accumulator, 

VECTOR  COMPLEMENT, 


'♦8895AA  YJL  SYSTEM  FOR  AGCj  NEW  PROGRAM  SHePATIN  BY 


L INTERPRETER 

PuA7  constants 

11A8 

11A9 

U50  REF  51  LAST  926 

1151 

1152 

1153 
115A 

1155 

1156 

1157 

1158 

1159 


1160 

1161 

1162 

1163 

1164 

1165 

1166 

1167 

REF 

40 

LAST 

893 

1168 

REF 

51 

LAST 

813 

1169 

REF 

17 

LAST 

749 

1170 

REF 

28 

LAST 

771 

1171 

REF 

34 

LAST 

705 

1172 

1173 

REF 

6 

LAST 

825 

1174 

REF 

3 

LAST 

265 

1175 

REF 

4 

LAST 

266 

1176 

REF 

45 

LAST 

807 

1177 

1178 

REF 

2 

LAST 

899 

1179 

1180 

REF 

25 

last 

830 

1181 

REF 

1 

1182 

REF 

34 

LAST 

768 

1183 

REF 

68 

LAST 

895 

1184 

1185 

1186 

1187 

REF 

3 

LAST 

905 

1188 

REF 

9 

LAST 

808 

11885 

1189 

required  I n,  fixed-fixed. 


773^ 

37?77  1 

DPOSMAX 

7735 

37?77  1 

PDSMAX 

7736 

LIMITS 

7735 

57?77  1 

NEGl/2 

773? 

40000  0 

BIT15 

774O 

20000  0 

BIT14 

774I 

lOOOO  0 

BIT13 

7742 

04000  0 

BIT12 

7743 

02000  0 

BITll 

774^ 

OlOOO  0 

BITIO 

7745 

OO^'OO  0 

6IT9 

7745 

00200  0 

BIT8 

7747 

OOlOO  0 

BIT7 

7750 

00040  0 

BIT6 

7751 

00020  0 

BITS 

7752 

OOOlO  0 

BIT4 

7753 

00004  0 

BIT3 

775^ 

00002  0 

BIT2 

7755 

00001  0 

BITl 

7737 

negmax 

7740 

HALF 

7740 

PDSl/2 

7741 

QUARTER 

7743 

2< 

7756 

00013  0 

ELEVEN 

7756 

NDUTCON 

4557 

ten 

4517 

NINE 

7752 

EIGHT 

7757 

00O07  0 

SEVEN 

6276 

SIX 

7760 

00005  1 

FIVE 

7753 

FOUR 

6301 

THREE 

7754 

TWO 

7755 

OvjE 

7761 

OOOOO  1 

ZERO 

7762 

77777  0 

NEGO 

7763 

77(76  1 

NEGONE 

7763 

NEGl 

7763 

MlNUSl 

5355 

5355  77^75  1 NEG2 
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A5 


E3 


DCT  37777 
DCT  37777 
EQUALS  POSMAX  ♦! 

DCT  -20000  MUST  BE  TWO  LOCATIONS  AHEAD  OF  POSl/2. 

DCT  AOOOO  BIT  TABLE  FOLLOWS. 

DCT  20000 
DCT  10000 
DCT  OAOOO 
DCT  02000 
DCT  01000 
DCT  OOAOO 
DCT  00200 
DCT  00100 
DCT  OOOAO 
DCT  00020 

DCT  00010 
DCT  OOOOA 
DCT  00002 
DCT  00001 

equals  BIT15 
equals  BlTlA 
EQUALS  HALF 
EQUALS  BIT13 
equals  BlTll 
DEC  11 
= ELEVEN 

f BINCON 

= R2D1 

equals  BITA 
DCT  7 
EQUALS  REVCNT 
DCT  5 
EQUALS  BIT3 
EQUALS  0CTAL3 
equals  BIT2 
equals  BITl 

DCT  0 
DCT  77777 
DEC  -1 

= NEGONE 

EQUALS  NEGl 

BLOCK  02 

DCT  77775 
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1109S 


5356  Oim  1 UOWIO  OCT  1777 


1190 

1191 

1192 

1193  ref 
1199  REF 


16  LAST  751 
37  LAST  753 


5357 

77(79  0 

NEG3 

DEC 

-3 

5360 

00(77  0 

L0W9 

OCT 

777 

536l 

00017  1 

L0W9 

OCT 

17 

7757 

L0W3 

EQUALS 

SEVEN 

6301 

L0W2 

equals 

THREE 

1195 

1196 

1197 

REF 

91 

LAST 

937 

5362 

5363 

1198 

1199 

1200 

REF 

REF 

1 

50 

LAST 

933 

536A 

5365 

00032  0 CALLCODE  OCT  OOO32 

90O19  0 DLOADCOd  OCT  90019 

7737  VLOADCOD  EQUALS  BITlS 
90015  1 DLOAD*  OCT  90015 

6193  VLOAD*  EQUALS  0CT90001 
00112  0 LYBUF  ADRES  VBUF 


1201  REF  17  LAST  796  5226  BIT13-19  s PRI030 

R12011  there  are  four  possible  Settings  tor  channel  o7  (WNActV)  for  accessing  the  eventually  three  and  one-half 

R12013  presently  ONE  AND  ONE-HALF  SJSeRBANKS. 


12019 

120191  REF 
A120192 
A120193 
A120199 


91  last  590 


5365 


00060  1 SUPEROll  OCT  60 
7797  SUPERIOO  EQUALS  BIT7 


SJPERlOl  OCT 


A120195 

SUPERllO 

OCT 

A120196 

12015 

5367 

79OOO 

01900 

1 

HIGH9 

0CT1900 

OCT 

12016 

537O 

1 

OCT 

12017 

537I 

OOO55 

1 

0EC95 

OEC 

120 

190 


79000 

01900 

95 


BITS  FOR  SUPERBnK  SETTING  Oil 
BITS  FOR  SUPERBNK  SETTING  100 
(LAST  9K  OF  ROPE) 

BITS  FOR  SUPERBnK  SETTING  lOl 
(FIRST  8K  of  ACM) 

BITS  FOR  SUPERBnK  SETTING  110 

(LAST  8K  OF  ACM) 


E3 
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pi203  the  following  shoRT  shifi  Codes  require  no  address  words 


R120A 

1. 

SRI  TO  SRA 

R1205 

2. 

SRIR  TO  SRAR 

R1206 

3. 

SLl  TO  SLA 

R1207 

A, 

SLlR  TO  SLAR 

R1208 

5, 

VSRl  TO  VSR8 

R1209 

6, 

VSLl  TO  VSL8 

SLALAR  shift  right. 

SLaLAR  shift  ri&ht  and  round, 

SLALAR  shift  left. 

SLALAR  shift  left  and  round. 

VECTOR  shift  right  (ALWAYS  ROUNDS), 
VECTOR  shift  left  (NEVER  ROUNDS). 


R1210  the  following  codes  require  an  address  which  may  Be  indexed:* 


R12I1  1.  SR  SLaLAR  shift  RIgHT. 

R1212  2,  SRR  SLALAR  SHIFT  RIGHT  AND  ROUND, 

R1213  3.  SL  SLALAR  SHIFT  LEFT. 

R121A  A,  SLR  SLALAR  SHIFt  LEFT  AND  ROUND, 


R1215  5,  VSR 

R1216  6,  VSL 


VECTOR  SHIFT  RIGHT. 
VECTOR  SHIFT  left. 


R12IY  * IF  the  address  IS  INDeXeD.  and  the  index  modification  results  in  a negative  shift  count*  a SHIFT  OF  the 

R1219  A3SOLJTE  VALUE  OF  THE  COUNT  IS  DONE  IN  THe  OPPOSITE  DIRECTION. 


1220 

00*2017 

bank 

00 

1221 

REF 

20 

LAST 

928 

00,2017 

3 6276 

1 

SHORTT 

CAF 

SIX 

SCALAR  SHORT  SHiFTS  COME  HERE.  THE  SHIFT 

1222 

REF 

35 

LAST 

909 

00,2020 

7 0020 

1 

MASK 

CYR 

COUNT-1  IS  NOW  tN  BITS  2-3  OF  CyR.  THE 

1223 

REF 

21 

LAST 

878 

00,2021 

5A  021 

0 

TS 

SR 

ROUNDING  BIT  IS  IN  BITl  AT  THIS  POINT, 

122A 

REF 

36 

LAST 

939 

00,2022 

10  020 

1 

CCS 

CYR 

SEE  IF  RIGHT  OR  LEFT  SHIFT  DESIRED. 

1225 

REF 

1 

00,2023 

1 2101 

1 

TCF 

TSSL 

SHIFT  LEFT. 

1226 

00,202A 

0002A 

1 

SRDDV 

DEC 

20 

MPTEMP  SETTING  FOR  SR  BEFORE  DDV. 

1227 

REF 

22 

LAST 

939 

00,2025 

50  021 

1 

TSSR 

INDEX 

SR 

GET  SHIFTING  BIT, 

1228 

REF 

52 

LAST 

937 

00,2026 

3 7 (AO 

0 

CAF 

BlTlA 

1229 

REF 

13 

LAST 

926 

00,202  f 

5A  125 

0 

TS 

MPTEMP 

1230 

REF 

37 

LAST 

939 

00,2030 

10  020 

1 

CCS 

CYR 

SEE  IF  A ROUND  IS  DESIRED, 

1231 

REF 

1 

00,203l 

0 2050 

0 

RIGHTR 

TC 

MPACSRND 

YES  - SHIFT  RIGHT  AnD  ROUND. 

1232 

REF 

9 

LAST 

931 

00,2032 

1 6I1A 

1 

TCF 

NEWMODE 

SET  MODE  TO  DP  (C(A)  = 0), 

1233 

REF 

lA 

LAST 

939 

00,2033 

3 0125 

1 

MPACSHR 

CA 

MPTEMP 

DO  A TRIPLE  PRECISION  SHIFT  RIGHT. 

123A 

00,203A 

0 0006 

1 

extend 

1235 

REF 

A90 

LAST 

936 

00,2035 

7 0IA6 

0 

MP 

MPAC  .2 

1236 

REF 

A91 

LAST 

939 

00,2036 

5A  1A6 

0 

♦ 3 

TS 

MPAC  .2 

(EXIT  FROM  SORT  AND  ABVAL) . 

1237 

REF 

15 

LAST 

939 

00,2037 

3 0125 

1 

CA 

MPTEMP 

1238 

00,20A0 

0 0006 

1 

extend 

1239 

REF 

A92 

LAST 

939 

00,20Al 

7 OlAA 

1 

MP 

MPAC 

SHIFT  MAJOR  PART  INjO  A,L  AND  PLACE  IN 

^8895^A  YJL  SYSTEM  FOR  AGC;  NEW  PROGRAM  SHePATIN  BY  EYLES 


L interpreter 


1240 

REF 

493 

16 

LAST 

LAST 

939 

00, 

1241 

1242 

REF 

939 

UU  y 

00, 

1243 

REF 

164 

LAST 

927 

00, 

1244 

REF 

494 

LAST 

940 

00, 

1245 

REF 

29 

LAST 

936 

00, 

2042 

2043 

52  145 
3 0125 

0 

DxCH 

1 

CA 

204A 

2045 

0 0006 
7 ODOl 

1 

EXTEND 

1 

MP 

2046 

2D  146 

0 

DAS 

2047 

1 6115 

0 

TCF 

R12A6  MPAC  shift  RIGHT  AND  RDUND  SUBROUTINES. 

1247  REF  495  LAST  940  00,2050  3 0l46  1 MPACSRND  CA 


1248  00,2051  0 0006  1 EXTEND 

1249  REF  17  last  940  00,2052  7 0125  0 MP 

1250  REF  496  LAST  940  00,2053  56  145  1 XCH 

1251  00,205A  0 0006  1 EXTEND 

1252  REF  18  LAST  940  00,2053  7 0125  0 MP 

1253  REF  497  LAST  940  00,2055  56  145  1 XCH 

1254  REF  165  LAST  940  00,205F  6 OOOl  0 AD 


1255  00,2060  6 OOOO  1 VSHR2  DOUBLE 

1256  REF  498  LAST  940  00,2061  54  146  0 TS 

1257  00,2062  1 2064  0 TCF 

1258  REF  499  LAST  940  00,2063  26  145  0 ADS 

1259  REF  262  LAST  935  00,206<*  3 7^61  0 CAF 

1260  REF  500  LAST  940  00*2065  54  146  0 TS 

1261  REF  501  last  940  00,2066  56  144  0 XCH 

1262  00,2067  0 0O06  1 EXTEND 

1263  REF  19  LAST  940  00,2070  7 0125  0 MP 

1264  REF  502  LAST  940  00,2071  20  145  0 DAS 

1265  REF  280  LAST  933  00,2072  0 0002  0 TC 

1266  REF  20  LAST  940  00*2073  3 0125  1 VSHRRND  CA 

1267  00*207A  0 0006  1 EXTEND 

1268  REF  503  LAST  940  00,2075  7 0l45  0 MP 

1269  REF  504  LAST  940  00,2076  54  145  0 TS 

1270  REF  166  LAST  940  00,207F  56  OQl  0 XCH 

1271  REF  1 00,2100  i 2O6O  1 TCF 


MPAC 

MPTEMP 


L 

MPAC  *1 
DANZIG 


MPAC  *2 

MPTEMP 

MPAC  ♦! 

MPTEMP 
MPAC  *1 
L 


MPAC  *2 

♦2 

MPAC  +1 

ZERO 

MPAC  +2 
MPAc 

MPTEMP 

MPAC 

Q 

MPTEMP 

MPAC  ♦! 

MPAC  ♦! 
L 

VSHR2 
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MPAC,.l. 

ORIGINAL  C(MPAC  ♦!). 

GUARANTEED  NO  OVERFLOW, 


WE  HAvE  TO  DO  Al  L THREE  MULTIPLIES  SINCE 
MPAC  *1  AND  MPAr  *2  MIGHT  HAVE  SIGN 
DISAGREEMENT  WItH  A SHIFT  RIGHT  OF  1. 


TRIAL  MINOR  PART. 

(FINISH  VECTOR  COMPONENT  SHIFT  RIGHT 
AND  ROUND, 

GUARANTEED  NO  OVERFLOW. 


setting  to  ZERO  SO  fOllOwing  das  works, 
AGAIN  NO  OVERFLOW. 

ENTRY  TO  SHIFT  RIGHT  AND  ROUND  MPAC  WHEN 
MPAc  contains  a VECTOR  COMPONENT. 


GO  ADD  ONE  IF  NfCESSARY  AND  FINISH 
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P1272 

routine 

for  short  sc 

alAr  shift 

LEFT 

(And  maybe 

ROUND) • 

1273 

REF 

23 

EAST 

939 

00,2101 

3 0021 

1 

TSSL 

CA 

SR 

get  shift  count  for  SR, 

127A 

REF 

21 

LAST 

9A0 

00,2102 

54  125 

0 

♦ 1 

TS 

MPTEMP 

1275 

00,2103 

0 0006 

1 

♦ 2 

extend 

ENTRY  HERE  FROM  SL  FOR  SCALARS, 

1276 

REF 

505 

LAST 

9A0 

00,210A 

3 0146 

1 

DCA 

MPAC  ♦! 

SHIFTING  left  ONE  Pi  ACE  AT  A TIME  IS 

1277 

REF 

506 

LAST 

9A1 

00,2105 

20  146 

0 

DAS 

MPAC  ♦! 

FASTER  than  DOInG  THE  WHOLE  SHIFT  WITH 

1278 

REF 

507 

LAST 

9A1 

00,2106 

6 0144 

0 

AD 

MPAC 

MULTIPLIES  assuming  THAT  FREQUENCY  OF 

1279 

REF 

508 

LAST 

9A1 

00,2107 

6 0144 

0 

AD 

MPAC 

shift  counts  goes  Down  rapidly  as  a 

1280 

REF 

509 

LAST 

9A1 

00,2110 

54  144 

1 

TS 

MPAC 

FUNCTION  OF  THEtR  MAGNITUDE. 

1281 

00,2111 

1 2113 

1 

TCF 

♦2 

1282 

REF 

17 

LAST 

923 

00,2112 

54  111 

1 

TS 

OVFIND 

OVERFLOW,  (LEAVES  OvERFLOW-CORReCTED 

A1283 

RESULT  ANYWAY). 

1284 

REF 

22 

LAST 

9A1 

00,2113 

10  125 

0 

CCS 

MPTEMP 

LOOP  ON  decremented  SHIFT  COUNT. 

1285 

REF 

2 

LAST 

939 

00,211^ 

1 2102 

1 

TCF 

TSSL  *1 

1286 

REF 

38 

LAST 

939 

00,2115 

10  020 

1 

CCS 

cyr 

SEE  IF  ROUND  WAnTED. 

1287 

REF 

2 

LAST 

934 

00,2116 

0 7201 

0 

ROUND 

TC 

ROUNDSUB 

YES  . ROUND  AND  EXIT, 

1288 

REF 

30 

LAST 

940 

00,2117 

1 6115 

0 

TCF 

DANZIG 

SL  LEAVES  A ZERO  IN  CYR  FOR  NO  ROUND. 

1289 

REF 

31 

LAST 

941 

00,2120 

1 6115 

0 

TCF 

DANZIG 

NO  - EXIT  immediate 

^88954A  y-JL  SySTEM  FOR  AgCj  NEw  pROO^i^M  S^^EpATIN  BY  EyLES 


DEC  13,  1966  MASTER  pAQE 


L niERPRETER 


P1290 

vector 

shifting 

routines. 

1291 

REF 

1 

00,2121 

1292 

REF 

39 

LAST 

991 

00,212Z 

1293 

REF 

23 

LAST 

991 

00,2123 

1299 

REF 

90 

LAST 

992 

00,2129 

1295 

REF 

1 

00,2125 

1296 

00,2126 

1297 

REF 

29 

LAST 

992 

00,212? 

1298 

REF 

53 

LAST 

939 

00,2130 

1299 

REF 

25 

LAST 

992 

00,2131 

1300 

REF 

1 

00,2132 

1301 

REF 

510 

LAST 

991 

00,2133 

1302 

REF 

511 

LAST 

992 

00,2139 

1303 

REF 

,512 

LAST 

992 

00,2135 

1309 

REF 

2 

LAST 

992 

00,2136 

1305 

REF 

513 

LAST 

992 

00,2137 

1306 

REF 

519 

LAST 

992 

00,2190 

1307 

REF 

515 

LAST 

992 

00,2191 

1308 

1309 

REF 

REF 

3 

1 

LAST 

992 

00,2192 

00,2193 

3 7^57  0 SHORTY  CAp  LOW3 

7 0^20  1 viASK  CYR 

59  125  0 TS  MPTEMP 

13  020  1 CCS  CyR 

1 2195  1 TCF  VSSL 

00176  1 0CT176  OCT  176 

50  125  1 VSSR  INDEX  MPTEMP 

3 7<90  0 CAF  BITU 

59  125  0 TS  MPTEMP 

0 2073  1 TC  VSHRRND 


52  195  0 OXCH  MPAC 

52  150  1 OxCH  MpAC  *3 

52  I95  0 OXCH  MPAC 

0 2073  1 TC  VSHRRND 

52  I95  0 OXCH  MPAC 

52  152  0 OXCH  MPAC  +5 

52  I95  0 OXCH  MPAC 

0 2073  1 TC  VSHRRND 

1 7971  0 TCF  VROTATEX 


USER'S  OHN  PAGr  NO.  50  E3 

SAVE  3 BIT  SHIFT  COuNT  - 1 WITHOUT 
EDITING  CYR. 

SEE  IF  LEFT  OR  RIGHT  SHIFT. 

VECTOR  SHIFT  LEFT. 

USED  IN  PROCESSfD  SHIFTS  WITH  - COUNT. 

(ENTRY  FROM  SR).  PICK  UP  SHIFTING  BIT. 
MPTEMP  CONTAINS  THE  SHIFT  COUNT  - 1. 

SHIFT  X COMPONENT.  , 

SWAP  X AND  Y components, 

SHIFT  Y component. 

SWAP  Y AND  Z components. 

SHIFT  Z COMPONENT. 

RESTORE  components  TO  PROPER  PLACES. 


488954A  YJL  SYSTEM  FOR  AGCi  NEW  PRO^JRAM  SHePATIN  BY  EYLeS 


DtC  13,  1966  master  PAGE  9A3 


L interpreter 

Pl310  vector  shift  left  - done  one  3LACt  AT  A TIME. 


1311 

REF 

, REF 

26 

LAST 

9A2 

9A2 

1312 

1313 

5l6 

LAST 

131A 

REF 

517 

LAST 

9A3 

1315 

1316 

1317 

REF 

12 

LAST 

933 

1318 

1319 

REF 

518 

LAST 

9^3 

1320 

REF 

519 

LAST 

9A3 

1321 

1322 

1323 

REF 

13 

LAST 

9A3 

132A 

1325  REF  520  LAST  9A3 

1326  REF  521  LAST  9A3 

1327 


1328 

1329 

REF 

lA 

LAST 

9A3 

1330 

REF 

27 

LAST 

9A3 

1331 

REF 

2 

LAST 

9A2 

1332 

REF 

32 

LAST 

9A1 

00,21AA 

5A  125 

0 -1 

TS 

MPTEMP 

00.21A5 

0 0006 

1 VSSL 

EXTEND 

00.21A6 

3 OlA5 

1 

OCA 

MPAC 

00,21A7 

20  1A5 

0 

OAS 

MPAC 

00,2150 

0 0O06 

1 

EXTEND 

00,2151 

1 2153 

0 

♦ 2 

00,2152 

0 7D72 

0 

TC 

OVERFLOW 

00,2153 

0 0006 

1 

EXTEND 

00,215A 

3 0150 

0 

OCA 

MPAC  *3 

00,2155 

20  150 

1 

OAS 

MPAC  +3 

00,215«> 

0 0006 

1 

EXTEND 

00,2157 

1 2161 

1 

3ZF 

♦ 2 

00,2160 

0 7072 

0 

TC 

OVERFLOW 

00,2161 

0 0006 

1 

EXTEND 

00,2162 

3 0152 

1 

OCA 

MPAC  *5 

00,2163 

20  152 

0 

OAS 

MPAC  +5 

00,216A 

0 0006 

1 

EXTEND 

00,2165 

1 2167 

1 

32F 

♦ 2 

00,2166 

0 7072 

0 

TC 

OVERFLOW 

00,2167 

10  125 

0 

CCS 

MPTEMP 

00,2170 

1 21AA 

0 

TCF 

VSSL  -1 

00,2171 

1 6115 

0 

TCF 

DANZIG 

USER'S  OwN  pAGF  NO,  51 


SHIFTING  LOOP, 


LOOP  ON  decremented  shift  counter, 

EXIT, 


E3 


48895^A  YJL  SYSTEM  FOR  AGCJ  NEW  PROGRAM  SMePATIN  BY  eYUeS 


Dec  13,  1966  master  page  9AA 


L 

Pl333 

R1335 


1336 

1337 

1338 

1339 

1340 

1341 

1342 

1343 

1344 

1345 

1346 

1347 

1348 

1349 

1350 

1351 

1352 

1353 


INTtRPRETER  USER'S  OWN  PAGF  NO.  52  E3 

TSLC  - triple  shift  -eft  and  count,  shifts  mpac  left  until  greater  than  ,5  IN  magnitude.  Leaving 
the  complement  of  the  number  DF  shifts  REOUIReD  IN  X. 


REF 

28 

last 

943 

00*2172 

51 

» 125 

0 TSLC2 

TS 

MPTEMP 

Start  by  zeRoinc,  shift  count  (In  a now) 

REF 

2 

LAST 

926 

00,2173 

0 

6(72 

0 

TC 

branch 

Exit  ivITh  no  shifting  if  argument  zero. 

00,217^ 

1 

2176 

1 

TCF 

♦2 

REF 

1 

00,2175 

1 

2212 

0 

TCF 

ENDTSLC 

STORES  Zero  shift  count  in  this  case. 

REF 

8 

LAST 

694 

00,2176 

0 

7320 

1 

TC 

TPAGREE 

MAY  CAUSE  upshift  Of  ONE  EXTRA  PLACE. 

REF 

522 

LAST 

943 

00,217/ 

3 

Ol44 

0 

CA 

MPAC 

BEGIN  normalization  LOOP, 

REF 

1 

00,2200 

1 

2207 

1 

TCF 

TSLCTEST 

REF 

29 

LAST 

944 

00,2201 

00,2202 

REF 

523 

LAST 

944 

00,2203 

REF 

524 

LAST 

944 

00,2204 

REF 

525 

LAST 

944 

00,2205 

REF 

526 

LAST 

944 

00,2206 

00,2207 

00,2210 

REF 

1 

00,2211 

24  125  1 TSLCLOOP  INCR  MPTEMP 

0 0006  1 EXTEND 

3 0146  1 OCA  MPAC  *1 

20  146  0 OAS  MPAC  +1 

6 0144  0 AD  MPAC 

26  144  1 ADS  MPAC 

6 oooo  1 tslctest  double 

54  000  0 OVSK 

1 2';01  1 TCF  TSLCLOOP 


increment  SHIFT  COUNTER. 


SEE  IF  (ANOTHER)  SHIFT  IS  REQUIRED. 

YES  - increment  COUNT  AND  SHIFT  AGAIN. 


REF  30  LAST  944  00,2212  4 0125  0 ENDTSLC  CS  MPTEMP 

REF  1 00,2213  1 6^72  0 TCF  STOREl 


STORE  SHIFT  COUNT  AnD  RETURN  TO  DANZIG. 


^8895^A  YJL  SYSTEM  FOr  AGCJ  NEW  PrOGrAM  S^EPATin  BY  EYLEs 


DEC  13*  1966  master  PAGE  9AS 


L 

P135A 

R1356 

R1357 

R1358 

R1360 

R1361 

R1362 

R13625 

R13627 

R1363 


136A 

1365 

1366 

1367 

1368 

1369 

1370 

1371 

1372 

1373 
137A 

1375 

1376 

1377 

1378 

1379 

1380 

1381 


interpreter  USER'S  OWN  PAGp  NO.  53  E3 

THE  following  ROUTInES  PROCESSES  THE  GEnERAL  SHIFT  InSTrUCTiOnS  SR*  SRR*  SL*  A^D  SLR. 

the  sivln  address  is  Decoded  as  follows; 

bits  1-7  shift  Cojni  (subaddress)  Less  than  125  decimal. 

BIT  8 PsEUdO  slON  “IT  (DETECTS  CHANGE  IN  sIGN  IN  INDEXED  SHIFTs). 

BIT  9 0 FOR  Left  shift*  and  1 FOR  RIGHT  SHIFT. 

BIT  10  1 FOR  Terminal  round  on  scalar  shifts*  0 otherwise. 

BITS  11-13  0. 

BIT  lA  1. 

BIT  15  0. 

THE  ABOVE  ENCODING  IS  DONE  Dy  THE  YUL  SYSTEM. 


ref 

72 

Last 

936 

00.221A 

7 0106 

1 

genshift 

mask 

addrwd 

REF 

325 

LAST 

926 

00,2215 

10  000 

0 

CCS 

A 

REF 

1 

00,2219 

1 2Z2A 

0 

TCF 

GENSHFT2 

REF 

A6 

LAST 

809 

00*221' 

3 7fAA 

1 

CAF 

BlTlO 

ref 

73 

LAST 

9A5 

00*2220 

7 0106 

1 

mask 

ADDRWD 

REF 

326 

LAST 

9A5 

00,2221 

10  ooo 

0 

CCS 

A 

REF 

3 

LAST 

9A1 

00,2222 

0 7Z01 

0 

TC 

ROUNDSUB 

REF 

33 

LAST 

9A3 

00,2223 

1 6115 

0 

TCF 

DANZIG 

REF 

31 

LAST 

9AA 

00*222A 

5A  125 

0 

GENSHFT2 

TS 

MPTEMP 

ref 

32 

LAST 

891 

00,2225 

3 7(A6 

0 

CAf 

BITS 

00*2229 

0 0006 

1 

EXTEND 

REF 

7A 

LAST 

9A5 

00,2227 

7 0106 

1 

MP 

ADDRWD 

REF 

1 

00*2230 

7 6301 

1 

MASK 

LOW  2 

REF 

327 

LAST 

9A5 

00,2231 

50  000 

1 

INDEX 

A 

00*2232 

1 2Z33 

0 

TCF 

♦1 

ref 

1 

00*2233 

1 2332 

0 

TCF 

RIGHT- 

REF 

1 

00*223A 

1 23A1 

1 

TCF 

LEFT 

REF 

1 

00*2235 

1 2336 

1 

TCF 

left- 

GET  SHIFT  CoUnT  . TEsTinG  FOR  ZEro* 
(ARRIVES  WITH  C(A)  s L0W7). 

IF  NON-ZERO,  PROCEED  WITH  DECREMENTED  Cl 

ZERO  SHIFT  COUNT.  NO  SHIFTS  NEEDED  BUT 
WE  might  HAVE  To  ROyND  MPAC  ON  SLR  AND 
SRR  (SCALAR  ONLY). 


DECREMENTED  SHIFT  COUNT  TO  MPTEMP. 

TEST  meaning  Or  LOW  SEVEN  BIT  COUNT  IN 
MPTEMP  NOW. 

JUMPS  ON  SHIFT  DIRECTION  (BIT8)  AND 


ORIGINAL  SHIFT  DIRECTION  (BIT  9). 
negative  shift  count  for  sL  or  SLR. 
SL  OR  SLR. 

negative  shift  count  with  SR  OR  SRR. 


YJL  SYSTEM  FOR  AGC;  NEW  PROGRAM  SMePATIN  BY  EYLES 


L INTERPRETER 


P1382  GENERAL  SHIFT  RIGHT, 


1383 

REF 

26 

LAST 

936 

1384 

REF 

1 

1385 

REF 

2 

LAST 

946 

1386 

REF 

32 

LAST 

945 

1387 

REF 

1 

1388 

1389 

REF 

1 

1390 

REF 

4 

LAST 

937 

1391 

ref 

33 

LAST 

946 

1392 

REF 

263 

last 

940 

1393 

REF 

167 

LAST 

940 

1394 

REf 

527 

last 

944 

1395 

REF 

528 

LAST 

946 

1396 

REF 

1 

1397 

REF 

529 

LAST 

946 

A1398 

1399 

REF 

530 

LAST 

946 

1 400 

RcF 

531 

LAST 

946 

1401 

REF 

2 

LAST 

946 

1402 

REF 

532 

LAST 

946 

00,2236 

00,2237 

00,22A0 

00,22Al 

00,2242 

00,2243 

00,2244 

00»2246 

00,2246 

00,2247 

00*2250 

00,2251 

00,2252 

00,2253 

00,225'* 

00,2255 

00,2256 

00,225? 

00,2260 


10  153  1 
1 2477  0 
1 2477  0 

3 0125  1 
6 3676  0 
0 0006  1 
6 2127  1 

6 7?63  1 
54  125  0 
3 7?61  0 

54  001  1 
56  144  0 

55  145  1 
0 2472  1 
20  145  0 

5b  147  0 
5b  150  0 
0 2472  1 
20  150  1 


RIGHT 


VRIGHT2 


CCS 

MODE 

TCF 

GENSCR 

TCF 

GENSCR 

CA 

MPTEMP 

AD 

NEGI2 

EXTEND 

BZMF 

VSSR 

AD 

NEGONE 

TS 

mptemp 

CAF 

ZERO 

TS 

L 

XCM 

MPAc 

XCH 

MPAC  *1 

TC 

SETROUND 

DAS 

MPAC 

XCH 

MPAC  *3 

XCH 

MPAC  *4 

TC 

SETROUND 

DAS 

MPAC  *3 

I4O3 

REF 

REF 

REF 

REF 

533 

534 
3 

535 

LAST 

LAST 

LAST 

LAST 

946 

00*2261 

5b  151 

1 

XCH 

MPAC  +5 

1404 

1405 

1406 

946 

946 

946 

00  *226^ 
00*2263 
00,2264 

56  !52 
0 2272 

20  152 

1 

1 

0 

XCH 

TC 

DAS 

MPAC  *6 
SETROUND 
MPAC  *5 

1407 

REF 

34 

LAST 

946 

00,2265 

10  125 

0 

CCS 

MPTEMP 

1408 

REF 

35 

LAST 

946 

00,2266 

54  125 

0 

TS 

MPTEMP 

1409 

REF 

1 

00  *226  1 

1 2242 

0 

TCF 

VRIGHT2 

1410 

00,2270 

04604 

1 BIASLO 

DEC 

.2974  B- 

1411 

REF 

34 

LAST 

945 

00*227! 

1 6ll5 

0 

TCF 

DANZIG 

1412 

00*2272 

6 0000 

1 

SETROUND  DOUBLE 

1413 

REF 

536 

LAST 

946 

00,2273 

54  146 

0 

TS 

MPAC  +2 

1414 

REF 

264 

LAST 

946 

00,2274 

3 7?61 

0 

CAF 

ZERO 

1415 

1416 

REF 

REF 

168 

281 

LAST 

LAST 

946 

940 

00,2275 

00,2276 

56  yOl 
0 0002 

0 

0 

XCH 

TC 

L 

Q 

DEC  U,  I966  MASTER  PAGE  946 


USER'S  OWN  page  no.  54 


E3 


SEE  IF  VECTOR  Or  SCALAR, 


SEE  IF  SHIFT  COUNT  LESS  THAN  14D, 


IF  SO,  BRANCH  AND  SHIFT  IMMEDIATELY, 

IF  NOT*  reduce  mPTEmP  BY  A TOTAL  OF  U* 
AND  DO  A shift  RIgHT  AND  ROUND  BY  14, 
THE  ROUND  AT  THIS  STAGE  MAY  INTRODUCE  A 

ONE  BIT  error  in  a SHIFT  RIGHT  15D. 


X COMPONENT  NOW  SHIFTED*  SO  MAKE  UP  THE 
ROUNDING  quantity  (0  IN  A AND  0 OR  ♦-! 
IN  L). 

REPEAT  THE  ABOVE  PROCESS  FOR  Y AND  Z, 


NO  OVERFLOW  ON  THESE  ADDS. 


SEE  IF  DONE*  DOING  FINAL  DECREMENT. 


SORT  CONSTANT 


MAKES  UP  ROUNDING  QUANTITY  FROM  ARRIVING 
CCA) , L IS  ZERO  INITIALLY, 


return  and  do  The  DaS,  resetting  L to  0 


48895^A  YJL  SYSteM  aGC:  NEW  PRO^^A'^  SHePatIN  by  eYLeS 


Dec  u,  1966  Master  paGe  9^7 


L HTERpRETER 


P1417 

PROCESS  SR 

AND  SRR 

FOR 

SCALARS. 

1418 

REF 

REF 

36 

last  946 

00,2277 

3 

0125  1 GENSCR 

CA 

MPTEMP 

1419 

2 

LAST  946 

00 .2300 

6 

3®76  0 .1 

AD 

NEG12 

1420 

00.2301 

0 

0006  1 

EXTEND 

1421 

REF 

1 

00.2302 

6 

2S22  0 

3ZMF 

DOSSHFT 

USER'S  OwN  PAGF  NO.  55  E3 

SEE  IF  the  original  SHIFT  COUNT  WAS  LESS 
THAN  UD, 

DO  THE  SHIFT  IMMEDIATELY  IF  SO. 


1422  REF 

1423  REf 

1424  REF 

1425  REF 

1426  REF 

1427  REF 

1428  REF 

1429  REF 

1430  REF 

1431 

1432  REF 

1433  REF 

1434  REF 

1435  REF 

1436  REF 

1437  REF 

1438  REF 

1439  REF 

1440  REF 

1441  REF 

1442  REF 

1443  REF 

1444  REF 


5 LAST 

37  LAST 
265  LAST 

537  LAST 

538  LAST 

539  LAST 

38  LAST 

39  LAST 

3 LAST 

47  LAST 

75  LAST 

328  LAST 

4 LAST 
35  LAST 

40  LAST 
54  LAST 

41  LAST 

48  LAST 

76  LAST 

329  LAST 

1 

1 


946 

00.2303 

6 7^63 

1 

947 

00.230A 

54  125 

0 

946 

00.2305 

3 7761 

0 

946 

00.2306 

56  144 

0 

947 

00.2307 

56  145 

1 

947 

00.2310 

54  146 

0 

947 

00.2311 

ID  125 

0 

947 

00.2312 

54  125 

0 

946 

00.2313 

0 2300 

0 

00.231A 

22650 

1 

945 

00.2313 

3 7 744 

1 

945 

00.231P 

7 0106 

1 

945 

00.2317 

ID  Ooo 

0 

945 

00.2320 

0 7201 

0 

946 

00.2321 

1 6115 

0 

1 

947 

00*2322 

5D  125 

942 

00*2323 

3 7740 

0 

947 

00*232A 

54  125 

0 

947 

00*2323 

3 7744 

1 

947 

00*2326 

7 0106 

1 

947 

00*2327 

ID  000 

0 

00*2330 

1 2031 

0 

00*2331 

1 2033 

1 

♦4  AO  NeGONE 

TS  MPTEMP 

CAF  ZERO 

XCH  MPAC 

XCH  MPAC  +1 

TS  MPAC  +2 

CCS  MPTEMP 

TS  MPTEMP 

TC  GENSCR  ♦! 

SLOPEHI  dec  .5884 

CAF  BITlO 

MASK  ADDRWD 

■ CCS  A 

TC  ROUNDSUB 

TCF  DANZIG 

DDSSHFT  INDEX  MPTEMP 

CAf  BIT14 

TS  MPTEMP 

CAF  BITlO 

MASK  ADDRWD 

CCS  A 

TCF  RIGHTR 

TCF  MPACSHR 


IF  NOT*  decrement  ShIFT  COUNT  By  14D  AND 
shift  MPAc  right  14  PLACES. 


SEE  IF  FINISHED,  DO  FINAL  DECREMENT, 


SORT  constant. 

finished  with  ShIFT.  SEE  IF  ROUmD 

wanted. 


DO  SO  AND/OR  EXIT. 
PICK  UP  SHIFTING  BIT. 


SEE  IF  terminal  ROUND  DESIRED, 


YES. 

JUST  SHIFT  right. 


48895^A  YJL  SYSTEM  FOR  AGCi  NEW  PROGRAM  SHePATIN  BY  EYLeS 


Dec  U,  1966  master  page  94b 


L interpreter  USER'S  OWN  PAGF  NO.  56  E3 

PiAAs  process  the  right-  <3L(R»  with  a Negative  count),  left-,  and  left  options. 


1447 

ref 

42 

LAST 

947 

00,2332 

4 0125 

L.  O 1 5 X. 

0 

RIGHT- 

CS 

1448 

REF 

1 

00,2333 

6 c ^ ^0 

0 

AD 

1449 

REF 

43 

LAST 

948 

00,2334 

54  125 

0 

TS 

1450 

REF 

1 

00,2335 

1 21:36 

0 

TCF 

1451 

REF 

44 

LAST 

948 

00,2336 

4 0125 

0 

left- 

CS 

1452 

REF 

2 

LAST 

948 

00,233T 

6 2126 

0 

AD 

1453 

REF 

45 

LAST 

948 

00 ,2340 

54  125 

0 

T S 

1454 

REF 

27 

LAST 

946 

00,2341 

ID  153 

1 

left 

CCS 

MPTEMP  GET  ABSOLUTE  VAl UE  - I OF  SHIFT  COUNT 

0CT176  UNDERSTANDING  THAT  BIT8  (PSEUDO.SIGN) 

MPTEMP  WAS  I INITIALLY. 

RIGHT  DO  NORMAL  SHIFT  RIGHT, 

MPTEMP  SAME  PROLOGUE  Tn  LEFT  FOR  INDEXED  RIGHT 

0CT176  SHIFTS  WHOSE  NET  SHIFT  COUNT  IS  NEGATIVE 

MPTEMP 

mode  since  left  shifting  is  sone  one  place  at 


1455 

REF 

1 

00,2342 

1 

2A45 

0 

TCF 

1456 

REF 

2 

LAST 

948 

00,2343 

1 

2-»45 

0 

TCF 

1457 

REF 

3 

LAST 

943 

00,2344 

1 

2I45 

1 

TCF 

genscl  a time,  no  comparison  with  u Need  be 

GENSCL  DONE,  FOR  SCALArS,  SEE  IF  TERMINAL  ROUND 

VSSL  desired,  for  VECTORS,  SHIFT  IMMEDIATELY, 


1458 

REF 

49 

last 

804 

00,2345 

3 7f50 
0 0006 
7 0106 

1 Genscl 
1 

1 

1459 

1460 

REF 

77 

LAST 

947 

00 , 2346 
00,2347 

1461 

REF 

41 

LAST 

942 

00,2350 

54  020 

1 

1462 

REF 

3 

LAST 

941 

00,2351 

1 2103 

0 

CAF  BIT6  PUT  ROUNDING  BIT  (BlTlO  OF  ADDRwD)  INTO 

EXTEND  BIT  15  OF  CYR  WHERE  THE  ROUNDING  BIT  OF 

MP  ADDRWD  A SHORT  SHIFT  LEFT  WOULD  BE, 

TS  CYR 

TCF  TSSL  *2  DO  THE  SHIFT, 


^8895Aa 


L 

P1463 

R1A65 

1466 

1467 

1468 

1469 


1470 

1471 

1472 

1473 

1474 

1475 

1476 

1477 

1478 

1479 

1480 

1481 

1482 

1483 

1484 

1485 

1486 

1487 

1488 

1489 


1490 

1491 

1492 

1493 

1494 

1495 

1496 

1497 

1498 

1499 

1500 

1501 

1502 

1503 

1504 

1505 


YJL  SYSTEM  FOR  aGC!  nEW  Pro^^AM  SMEPaTIN  BY  EYLES 


imterpreter 

scalar  division  inSt?ijct*ons,  ddv  and  bddv,  are  executed  Here. 
AND  THE  DIVISOR  IN  BUF, 


ref  178  LAST  935 
REF  1 
REF  1 
REF  1 


REF  75.  LAST  935 
REF  1 


REF  1 


REF 

ref 

76 

77 

LAST 

LAST 

LAST 

LAST 

949 

949 

REF 

REF 

540 

541 

947 

949 

ref 

1 

REF 

78 

LAST 

949 

REF 

2 

LAST 

949 

REF 

2 

LAST 

949 

REF 

2 

LAST 

949 

REF 

52 

LAST 

937 

REF 

542 

LAST 

949 

REF 

1 

REF 

179 

LAST 

949 

REF 

1 

REF 

79 

LAST 

949 

REF 

80 

LAST 

949 

REF 

2 

LAST 

949 

REF 

543 

LAST 

949 

ref 

1 

REF 

1 

REF 

544 

LAST 

949 

REF 

2 

LAST 

949 

REF 

36 

LAST 

947 

REF 

2 

LAST 

949 

REF 

37 

LAST 

949 

ref 

545 

LAST 

949 

REF 

546 

LAST 

949 

00,2352 

00,2353 

4 7/55 

0 

DDV/BDDV 

CS 

TS 

ONE 

54  126 

0 

DVSiGN 

00,2354 

54  127 

1 

TS 

DVNORMCT 

00,2353 

54  130 

1 

TS 

MAXDVSW 

00,2356 

10  120 

0 

CCS 

BUF 

00,235/ 

1 2A06 

0 

TCF 

buf,. 

00,2360 

1 2362 

0 

TCF 

♦ 2 

00,2361 

1 2A02 

1 

TCF 

BUF- 

00,2362 

56  121 

0 

XCH 

BUF  *1 

00,2363 

56  120 

1 

XCH 

BUF 

00,236A 

55  I45 

1 

XCH 

MPAC  *1 

00,2365 

00,236P 

55  144 
0 0006 

0 

1 

XCH 

EXTEND 

MPAC 

00,2367 

1 2371 

1 

3ZF 

♦2 

00,2370 

1 2375 

0 

TCF 

DVOVF 

00,2371 

10  120 

0 

CCS 

BUF 

00,2372 

1 2‘'06 

0 

TCF 

BUF* 

00,2373 

1 2375 

0 

TCF 

DVOVF 

00,2374 

1 2‘'02 

1 

TCF 

BUF- 

3 ^ rap 

1 

wvuvr 

KU3MAA 

00,2376 

54  I44 

1 

TS 

MPAC 

00,237/ 

0 2572 

0 

TC 

FINALDV 

00,2400 

3 7/55 

1 

CAF 

ONE 

00*2401 

1 7I44 

0 

TCF 

SETOVF 

00,2402 

0 0006 

1 

BJF- 

EXTEND 

00,2403 

4 0121 

1 

ocs 

BUF 

00,2404 

52  121 

1 

OXCH 

BUF 

00,2405 

24  126 

1 

INCR 

DVSIGN 

00,2406 

10  144 

1 

BJF+ 

CCS 

MPAC 

00,2407 

1 2A23 

1 

TCF 

MPAc* 

00,2410 

1 2^12 

0 

TCF 

♦ 2 

00,2411 

1 2A17 

0 

TCF 

MPAC- 

00,2412 

10  145 

0 

CCS 

MPAC  *1 

00,2413 

1 2423 

1 

TCF 

MPAC* 

00,2414 

1 6115 

0 

TCF 

DANZIG 

00,2415 

1 2‘'17 

0 

TCF 

MPAC. 

00,2416 

1 6115 

0 

TCF 

DANZIG 

00*241 ^ 
00,2420 


00 


2421 


0 0D06  1 MPAC- 
4 0145  0 
52  145  0 


EXTEND 
DCS  MPAc 
DXCH  MPAC 


DEC  13*  1966  Master  page  949 

USER'S  OWN  PAGf  no.  57  E3 

AT  THIS  POINT,  tHe  DIVIDEND  IS  IN  MPAC 

INITIALIZATION. 

♦-1  FOR  POSITIVE  quotient  - *0  FOR  nEG. 
DIVIDEND  NORMALIZATION  COUNT. 

NEAR-ONE  DIVIDE  FLAG. 


force  BUF  POSITIVE  WITH  THE  MAJOR  PART 
NON-ZERO. 

SHIFT  dividend  aND  DIVISOR  LEFT  14. 

CHECK  FOR  OVERFlOW. 

TRY  AGAIN  ON  FORMER  MINOR  PART. 

OVERFLOW  ON  ZERO  DIuISOR. 

ON  DIVISION  overflow  OF  ANY  SORT,  SET 
SET  DP  MPAC  TO  .-POSMAX. 

SET  overflow  indicator  AND  EXIT, 

IF  BUF  IS  Negative,  complement  it  and 

MAINTAIN  DVsIGN  FOR  FINAL  QUOTIENT  SIGN. 
NOW  .0. 

FORCE  MPAC  positive,  CHECKING  FoR  ZERO 

dividend  in  The  prOcEss* 

EXIT  immediately  ON  ZERO  DIVIDEND, 

FORCE  MPAC  positive  AS  BUF  IN  BJF-* 


48895^A  YJL  system  FOR  AGCj  NEW  PROGRAM  SMEPATIN  BY  EYLES 


dec  13.  1966  MASTER  PAGE  950 


L INTERPRETER 


USER'S  OWN  page  NO.  58 


E3 


1506  REF  3 LAST  9A9 


00,2422  24  126  1 


INCR  DVSIGN 


NOW  *1  OR  -0 
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L INTESPRETER  USER'S  OWN  PAGf  NO.  59  ^3 


1507 

1508 

1509 

REF 

REF 

REF 

547 

6 

81 

LAST 

LAST 

LAST 

last 

949 

947 

949 

00,2423 

00,242A 

00,2425 

00,2426 

00,2427 

00,2430 

4 0144 
6 7'63 
6 0120 
10  ooo 

1 2^71 
60001 

1 

1 

1 

MPAC  + 

CS 

AD 

AD 

CCS 

TCF 

OCT 

MPAC 

NeGONE 

BUF 

CHECK  FOR  DIVISION  OVERFLOW,  IF  THE 
MAJOR  PART  OF  THE  DIVIDEND  IS  LeSS  IHAN 
THE  MAJOR  PART  OF  THE  DIVISOR  BY  AT 

1510 

1511 

1512 

REF 

REF 

330 

1 

947 

0 

0 

0 

-1/2*2 

A 

DVNORM 

60001 

least  TWO,  WE  Can  Proceed  immediately 
without  normalization  producing  a dvmax 
USED  IN  SURTSUB. 

1513 

00,243^ 

1 2432 

1 

TCF 

♦ 1 

IF  THE  ABOVE  DOfS  NOT  HOLD,  FORCE  SIGN 

15U 

REF 

18 

LAST 

937 

00,2432 

3 7^40 

0 

caf 

half 

agreement  in  numerator  and  denominator 

1515 

00,2433 

6 0000 

1 

-^UUbLt 

TO  facilitate  Overflow  and  near, one 

1516 

REF 

548 

LAST 

951 

00,243A 

6 0145 

1 

AD 

MPAC  *1 

checking. 

1517 

REF 

549 

LAST 

951 

00,2435 

54  145 

0 

TS 

MPAC  *1 

1518 

REF 

266 

LAST 

947 

00 ,2436 

3 7 '61 

0 

wAF 

ZERO 

1519 

REF 

53 

LAST 

949 

00,2437 

6 7T35 

1 

AD 

POSMAX 

1520 

REF 

550 

LAST 

951 

00,2440 

26  144 

1 

ADS 

MPAC 

1521 

REF 

19 

LAST 

951 

00,2441 

3 7^40 

0 

CAF 

HALF 

SAME  FOR  BUF. 

1522 

LAST 

951 

00,2442 

6 OOOO 

1 

DOUBLE 

1523 

REF 

82 

00 ,2443 

6 0121 

0 

□ Ur  ♦ 1 

152A 

REF 

83 

LAST 

951 

00,2444 

54  121 

1 

TS 

BUF  *1 

267 

LAST 

3 7(bl 

0 

1525 

REF 

951 

00 ,2445 

w AF 

ZERO 

1526 

REF 

54 

LAST 

951 

00,2446 

6 7T35 

1 

AD 

POSMAX 

1527 

REF 

84 

LAST 

951 

00,2447 

26  120 

0 

ADS 

BUF 

1528 

REF 

551 

LAST 

951 

00,2450 

4 0144 

1 

CS 

MPAC 

CHECK  MAGNITUDE  OF  SIGN-CORRECTED 

1529 

REF 

85 

LAST 

951 

00,2451 

6 0120 

1 

AD 

BUF 

OPERANDS, 

1530 

REF 

331 

LAST 

951 

00,2452 

10  000 

0 

CCS 

A 

1531 

REF 

2 

LAST 

951 

00,2453 

1 2^71 

0 

TCF 

DVNORM 

DIVIDE  OK  - WILI  NOT  BECOME  MAXoV  CASE. 

1532 

REF 

15 

LAST 

929 

00,245A 

00123 

1 

LBUF2 

ADRES 

BUF2 

1533 

REF 

3 

LAST 

9A9 

00,2455 

1 2375 

0 

TCF 

DVOVF 

DIVISOR  NOT  LESS  THAN  DIVIDEND  - OVF, 

1534 

REF 

2 

LAST 

949 

00,2455 

54  130 

1 

TS 

maxdvsw 

IF  THE  MAJOR  PARTS  OF  THE  DIVIDEND  AND 

1535 

REF 

552 

LAST 

951 

00,2457 

4 0145 

0 

CS 

MPAC  *1 

DIVISOR  ARE  EQUAL,  A SPECIAL  APPROXIMA- 

1536 

REF 

86 

LAST 

951 

00,2460 

6 0121 

0 

AD 

BUF  +1 

TION  IS  USED  (PROVIDED  THE  DIVISION  IS 

1537 

00 , 246 1 

0 0006 

1 

EXTEND 

POSSIBLE,  OF  COURSE) . 

1538 

REF 

4 

LAST 

951 

00,2462 

6 2375 

1 

3ZMF 

DVOVF 

1539 

REF 

3 

LAST 

951 

00,2463 

1 Z‘*7l 

0 

TCF 

DVNORM 

IF  NO  OVERFLOW, 

^8895^A  Y JL  SySTEM  fOK  AQCi  MEW  pROG^Av)  S^EpATIN  BY  EYLES 


L IvITERPRETER 


15A0 

00  »246A 

15AI 

REF 

2 

LAST 

949 

00,2465 

15A2 

00,2466 

1 5A3 

REF 

87 

LAST 

951 

UU  fCHO f 

154A 

REF 

88 

LAST 

952 

00,2470 

1 545 

REF 

89 

LAST 

952 

00 ,247 1 

1546 

00,2472 

1547 

REF 

00,2473 

1548 

1 

00,2474 

1549 

REF 

553 

LAST 

951 

00,2475 

1550 

REF 

3 

LAST 

952 

00*2476 

1551 

REF 

1 

00,2(i77 

1552 

REF 

554 

LAST 

952 

00,2500 

1553 

REF 

38 

LAST 

949 

00,2501 

0 0^06  1 bjfnOrm  Extend 

2A  i27  0 AUG  DVNORMCT 

0 0U06  1 EXTEND 

3 Oi2l  0 5CA  BUF 

2D  12X  1 DAS  BUF 

3 0X20  1 DVNORM  CA  BUF 

6 OUOO  1 DOUBLE 

5A  UOO  0 DVSK 

1 2‘*6A  1 rCF  BUFNORM 

52  0 DXCH  MPAC 

5D  X27  0.  INDEX  DVNORMCT 

0 2S27  0 TC  MAXTEST 

5A  XA6  0 TS  MPAC  *2 

1 6U5  0 TCF  DANZIG 


DEc  1A»  1966  master  pAGE  952 


USER'S  OHvN  PaGf  NO.  60  E3 

Add  -1  TO  augmEnT  shift  count  and  shift 
LEFT  ONE  place. 


SEE  IF  divisor  NORMALIZED  YET. 


NO  - SHIFT  Left  one  and  try  again, 
CALL  DIVIDEND  NORMALIZATION  SEQUENCE 
PRIOR  TO  DOING  THE  DIVIDE. 


RETURNS  WITH  DIVISION  DONE  AND  C(A)  = 0 
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Pl55A 


the  following  are  prdldgues  to  shift  the  dividend  arriving  in  a and  l Before  tme  divide. 


1556 

REF 

2A 

LAST 

9A1 

00,2502 

22  021 

1 

1557 

00*2503 

0 0006 

1 

1558 

REF 

20 

LAST 

951 

00*250^ 

7 7^A0 

1 

1559 

REF 

169 

LAST 

9A6 

00*2505 

56  OOl 

0 

1560 

REF 

25 

LAST 

953 

00*2506 

6 0021 

1 

1561 

REF 

170 

LAST 

953 

00*250  ! 

56  001 

0 

LXCH  SR 

extend 

MP  HALF 

XCH  L 

AD  SR 

XCH  L 


SPECIAL  prologue  FOR  UNIT  WHEN  THE 
length  of  the  Argument  was  not  Tess  than 
,5,  IN  THIS  CASf,  each  COMPONENT  MUST  BE 
SHIFTED  RIGHT  ONE  TO  PRODUCE  A hALF-UNII 
VECTOR, 


1562  REF 


00*2510  1 2533 


TCF  GENDDV  *1  WITH  DP  DIVIDEND  IN  A*L. 


1563 

00*2511 

20 

001 

1 

DDOUbL 

156A 

00*2512 

20 

20 

001 

001 

1 

DDOUBL 

1565 

00  *2513 

1 

DDOUBL 

1566 

00*251^ 

20 

001 

1 

DDOUBL 

1567 

00*2515 

20 

001 

1 

DDOUBL 

1568 

00*2516 

20 

001 

1 

DDOUBL 

1569 

00*2517 

20 

001 

1 

DDOUBL 

1570 

00*2520 

20 

001 

1 

DDOUBL 

PROLOGUE  wHILH  nORMaLIzES  THE  DIVIDEND 
WHEN  IT  IS  known  THaT  NU  DIVISIjN 
OVERFLOW  WILL  OCCUR, 


1571 

00*2521 

23 

OOl 

1 

1572 

00*2522 

23 

001 

1 

1573 

00*2523 

23 

001 

1 

157A 

00*252A 

23 

001 

1 

1575 

00*2525 

23 

001 

1 

1576 

REF  555  LAST  952  00*2525 

52 

1A5 

0 

DDOUBL 
ODOUBL 
DDOUBL 
ODOUBL 
DDOUBL 
DXCH  MPAC 


1577  REF  3 LAST 

1578 


951  00*2527 

00*2530 


10  130  1 MAXTEST 
06552  0 BIAShI 


CCS  maxdvsw 

dec  .A192  B-1 


0 IF  MAJORS  might  Be  =*  -1  OTHERWISE. 
SORT  constants 


1579  REF 


00*2531  1 2P0A 


TCF  MAXDV 


CHECK  TO  SEE  IF  THEY  ARE  NOW  EQUAL. 
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P1580  the  following  IS  A GENERAL  PURPOSE  DOUBLE  PRECISION  DIVISION  ROUTINE,  IT  DIVIDES  MPAC  BY  BUF  AND  LeAVeS 


Ri582  the  Result  in  mpac,  the  folld«;ing  conditions  must  be  satisfied? 

Rl583  1,  the  divisor  (BUF)  viuSt  BE  POSITIVE  AND  NOT  LeSS  THAN  ,5. 

R1584  2.  the  dividend  (MpaC)  MUSt  BE  POSITIVE  WITH  THe  MAJOR  PART  OF  MPAC  STRICTLY  i eSS  tHAN  tHAt  OF  BUF 

R1586  (A  SPECIAL  APPROXIMATION,  MAxOV,  IS  USED  WHEN  THE  MAJOR  PARTS  ARe  EQUAL), 

Rl588  understanding  THAT  A/B  s 0 ♦ S(RXB)  WHERE  S s 2(-lA)  AND  0 AND  R ARe  QUOTIENT  AND  beMAINDeR*  ReSPEC- 

R1590  TIVELy*  THE  FOLLOWING  AppROXI  viATlON  IS  OBTAINED  BY  MULTIpLylNG  ABOVE  AND  BELOw  By  C - So  AND  NEGLECTING  TERmS  OF 

R1592  order  S-SQUAReD  (POSSIBLY  iNyRODULlNG  ERROR  INTO  THe  LOW  TWO  BITS  OF  THE  RESULT).  SIGN  aGReeMeNT  IS  UNNECESSARY. 


R159A  A + SB  . (R  - 05)  A ♦ SB 

R1596  — = Q ♦ S(— --.)  where  Q AND  R ARE  QUOTIENT  AND  REMAINDER  OF RESPECTIVELY, 

R1598  C ♦ SD  ( C ) C 


1600  REF  556  LAST  953  00,2532  52  IA5  0 GENDDV  DXcH  MPAc 

1601  00.2533  0 0006  1 ♦!  EXTEND 

1602  REF  90  LAST  952  00,253^  10  120  0 DV  BUF 

1603  REF  557  LAST  95A  00,2535  52  iA5  0 OXCH  • MPAC 


WE  NEED  A AND  B ONLy  pOR  FIRST  DV. 
(SPECIAL  UNIT  PROLOr,UE  ENTERS  HeRE). 
A NOW  contains  0 AND  L,  R, 


1604 

REF 

558 

LAST 

954 

00.2536 

4 0l44 

1 

cs 

MPAC 

1605 

00.2537 

0 0D06 

1 

extend 

1606 

REF 

91 

LAST 

954 

00,2540 

7 0121 

1 

MP 

BUF  +1 

1607 

REF 

559 

LAST 

954 

00 .2541 

6 0145 

1 

AD 

MPAC  *1 

1608 

00.2542 

54  VOO 

0 

DVS< 

1609 

00.2543 

1 2550 

1 

TCF 

♦ 5 

FORM  DIVIDEND  FnR  MINOR  PART  OF  RESULT. 


OVERFLOW  AT  THIS  POINT  IS  POSITIVE  SINCE 
R IS  POSITIVE  IN  every  CASE. 


1610  00.25AA 

1611  REF  92  LAST  954  00,2545 

1612  REF  560  LAST  954  00,2546 

1613  REF  1 00,2547 

1614  00.2550 


0 0006  1 EXTEND 

60  120  1 SU  BUF 

24  144  0 INCR  mpac 

1 2552  0 TCF  .DOWN 

0 0006  1 45  EXTEND 


overflow  can  BE  REMOVED  BY  SUBTRACTING  C 
(BUF)  once  since  R IS  ALWAYS  LESS  THAN  L 
IN  THIS  CASE.  InCR  cOMPlNSATES  SUBTRACT. 
(SINCE  C(A)  IS  STILL  POSITIVE). 

C(A)  CAN  BE  MADE  LESS  THAN  C IN  MAGNI- 


1615  REF  1 00.2551  6 2562  1 3ZMF  -UP  TUDE  BY  DIMINIShING  IT  By  C (SINCE  C IS 

A1616  not  Less  than  ,s)  unless  C(A)  = 0. 
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1617 

1618 

1619 

1620 
1621 
1622 

REF 

93 

LAST 

954 

00,2552 

00,2553 

00,255A 

0 0U06 
60  120 

0 0U06 

1 2560 
0 0U06 
6 2566 

1 

1 

1 

♦ DOWN 

Extend 

su 

EXTEND 

BUF 

IF  POSITIVE,  REDUCE  ONLY  IF  NECESSARY 
SINCE  the  compensating  iNCR  MIGHT  CAUSE 

REF 

1 

00 ,2555 
00,2556 
00,2557 

1 

1 

0 

3ZF 

EXTEND 

3ZMF 

♦ 3 

ENDMAXDV 

OVERFLOW, 

DONT  SUBTRACT  UNLESS  RESULT  IS  POSITIVE 
OR  ZERO. 

1623 

REF 

561 

LAST 

954 

00,256® 

24  l44 

0 

♦ 3 

INCR 

MPAC 

KEEP  subtract  HfRE  AND  COMPENSATE. 

162A 

ref 

2 

last 

949 

00,2561 

1 2567 

0 

Tcf 

finaldv 

1625 

00,2562 

0 0U06 

1 

-JP 

EXTEND 

IF  Zero,  set  minor  part  of  result  to 

1626 

REF 

3 

LAST 

955 

00,2563 

1 2572 

1 

3ZF 

FINALOV  *3 

ZERO. 

1627 

00*256^ 

0 0U06 

1 

extend 

IF  NEGATIVE,  ADD  C TO  A*  SUBTRACTING  ONE 

1628 

REf 

562 

LAST 

955 

00,2565 

26  144 

1 

OIm 

MPAc 

TO  compensate,  dim  is  ok  here  SINCE  THE 

1629 

REF 

94 

LAST 

955 

00,2566 

6 0120 

1 

ENDMAXDV 

AD 

BUF 

MAJOR  PART  NEVE«  GOfS  NEGATIVE. 
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1630  00,2567  22  007  0 FINALDV  ZL 

1631  00,2570  0 0006  1 EXTEND 

1632  REF  95  LAST  955  00,257^  10  ^20  0 OV  BUF 

1633  REF  563  LAST  955  00,2572  5A  iA5  0 *3  TS  MPAC  +1 


163A  R£F  A LAST  950  00,2573  10  126  0 CCS  DVSIGN 


1635 

REF 

282 

LAST 

9A6 

00,257^ 

0 

0002 

0 

TC 

0 

1636 

REF 

283 

LAST 

956 

00,2575 

0 

0002 

0 

TC 

0 

1637 

REF 

28A^ 

LAST 

956 

00,2575 

0 

0002 

0 

TC 

0 

1638 

00,2677 

0 

0006 

1 

extend 

1639 

ref 

56A 

last 

956 

00,2600 

A 

01A5 

0 

ocs 

MPAc 

16A0 

REF 

565 

LAST 

956 

00,2601 

52 

1A5 

0 

dxch 

MPAC 

16A1 

REF 

268 

LAST 

951 

00,2602 

3 

7 ^61 

0 

CAF 

ZERO 

16A2  REF  285  LAST  956  00,2603  0 0002  0 TC  Q 


DEC  13,  1966  MASTER  PAGE  956 


USER'S  OWN  PAGF  NO,  6A  E3 

DO  DV  TO  OBTAIN  MINOR  PART  OF  RESULT, 


leave  result  positive  unless  C(DVSIGN)= 

-0, 


SO  WE  ALWAYS  RETURN  WITH  C(A)  s 0, 


^8895AA 


L 

Pl6A3 

R16A5 

R16A7 

Rl6<»9 

R1650 

R1651 


R1652 


165A 

1655 

1656 

1657 

1658 


1659 

1660 

1661 

1662 

1663 

A166A 


YJL  SYSTEM  FOR  AGC;  NEW  PROGRAM  S^EPATIN  BY  EYUES  DEC  13*  I966  MASTER  PAGE  957 


interpreter  USER'S  OWN  PAGE  NO.  65  E3 

IF  the  major  parts  O'i  THE  divisor  and  dividend  are  equal,  but  the  minor  parts  aRe  such  that  THe 
dividend  is  Strictly  less  tHan^  the  divisor  in  magnitude,  tHe  following  approximation  is  used,  tHe  assumptions 
ARE  the  same  as  tHe  GeNeRAL  RoJtI’^E  WITH  tHe  ADDITION  THAT  SIGN  AGReeMeNT  IS  NeCeSSARY  (B,  C,  6 D POSITIVE). 

C ♦ SB  . <C  ♦ B - D) 


37777  ♦ S(— ) 

C ♦ SD  ( C ) 


tHe  division  may  be  ^eRFurmed  immediately  since  b is  strictly  Less  than  d and  r is  not  less  than  .5, 


RtF 

566 

last 

956 

00,260A 

A OUA 

1 

MaXDV 

CS 

REF 

96 

LAST 

956 

00,2605 

6 0120 

1 

AD 

00,2606 

0 0006 

1 2611 

1 

1 

EXTEND 

00 ♦ 260 1 

3ZF 

REF 

2 

LAST 

953 

00,2610 

1 2532 

0 

TCF 

REF 

55 

LAST 

951 

00,2611 

3 7135 

1 

♦2 

CAF 

REF 

567 

LAST 

957 

00,2612 

5A  lAA 

1 

TS 

REF 

97 

LAST 

957 

00,2613 

A 0121 

1 

CS 

REF 

REF 

568 

2 

LAST 

LAST 

957 

955 

00,261'* 

00,2615 

6 01A5 

1 2566 

1 

1 

AD 

TCF 

mpac 

BUF 

SEE  IF  MAXDV  CAaL  STILL  HOLDS  AFTER 

normalization. 

♦ 2 

GENDDV 

MPAC  NOW  LESS  TmAN  BUF  - DIVIDE  AS  USUAL 

PUSMAX 

MPAC 

SET  MAJOR  PART  oF  RESULT. 

BUF  ♦! 

MPAC  ♦! 
ENDMAXDV 

FORM  DIVIDEND  OF  MINOR  PART  OF  RESULT. 

GO  ADD  C AND  DO  DIVIDE,  ATTACHING  SIGN 
before  EXITING. 

‘»8895^A  YJU  SVSteM  FOR  AGCi  NfW  SHePatIN  BY  e^LeS 


dec  i3t  1966  Master  page  958 


L n.TERPRLTER  USER'S  OrtN  PAGE  NO.  66  E3 

P1665  vector  divided  BY  SCALAR*  V/SC,  IS  EXECUTED  HERE,  THE  VECTOR  IS  NOW  IN  MPAC  WItH  SCALAR  IN  BUF, 


1667 

REF 

180 

LAST 

9A9 

00,2616 

1668 

REF 

A 

LAST 

952 

00,2617 

1669 

REF 

51 

LAST 

938 

00 ,262*^ 

1670 

REF 

98 

LAST 

957 

00,2621 

1671 

REF 

1 

00 ,262^ 

1672 

00,2623 

1673 

REF 

1 

00,262A 

167A 

REF 

99 

last 

958 

00,2625 

1675 

ref 

100 

LAST 

958 

00,2626 

1676 

REF 

569 

LAST 

957 

00,2627 

1677 

REF 

570 

LAST 

958 

00,2630 

1678 

00,2631 

1679 

00,2632 

1680 

REF 

5 

LAST 

951 

00,2633 

1681 

REF 

571 

LAST 

958 

00,263A 

1682 

ref 

572 

LAST 

958 

00,2635 

1663 

00 ,2636 

168A 

00,2637 

1685 

REF 

6 

LAST 

958 

00,26A0 

1686 

REF 

573 

LAST 

958 

00,26aI 

1687 

REF 

57A 

LAST 

958 

00,26A2 

1688 

00,26A3 

1689 

00,26AA 

1690 

REF 

7 

LAST 

958 

00,26A5 

1691 

REF 

101 

LAST 

958 

00,26A6 

1692 

REF 

2 

LAST 

958 

00,26A7 

1693 

REF 

8 

LAST 

958 

00,2650 

169A 

REF 

2 

LAST 

958 

00,2651 

1695 

REF 

9 

LAST 

958 

00,2652 

A 7755 
5A  127 

0 V/SC2 

1 

cs 

TS 

ONE 

DVNORMCT 

5 A 117 

1 

TS 

VBUF  *5 

ID  120 

1 2657 

0 

CCS 

BUF 

0 

TCF 

/BUF  ♦ 

1 2625 

0 

TCF 

♦ 2 

1 2653 

1 

TCF 

/BUF- 

5b  121 

0 

KCH 

BUF  *1 

5b  120 
5b  1A5 

1 

1 

XCH 

BUF 

kch 

MPAC  ♦! 

5b  lAA 

0 

XCH 

MPAC 

0 OOO6 

1 

extend 

1 263A 

0 

3ZF 

♦ 2 

1 2375 

0 

TCF 

DVOVF 

5b  150 

0 

XCH 

MPAC  lA 

5b  1A7 

0 

XCH 

MPAC  *3 

0 OOO6 

1 

EXTEND 

1 26A1 

1 

32  F 

♦ 2 

1 2375 

0 

TCF 

DVOVF 

5b  152 

1 

XCH 

MPAC  *6 

5b  151 

1 

xCH 

MPAC  +5 

0 OOO6 

1 

EXTEND 

1 26A6 

1 2375 

0 

3ZF 

♦ 2 

0 

TCF 

DVOVF 

ID  120 

0 

CCS 

BUF 

1 2657 

0 

TCF 

/BUF  + 

1 2375 

0 

TCF 

DVOVF 

1 2653 

1 2375 

1 

0 

TCF 

TCF 

/BUF- 

DVOVF 

INITIALIZE  DIVIDEND  NORMALIZATION  COUNT 
AND  DIVISION  sign  REGISTER. 

FORCE  DIVISOR  POSITIVE  WITH  MAJOR  PART 
NON-ZERO  (IF  POSSIBLE), 

shift  vector  and  scalar  left  IA. 

CHECK  FOR  OVERFi  OW  IN  EACH  CASE. 


ZERO  DIVISOR  - overflow. 


1696 

1697 

REF 

102 

LAST 

958 

00*2653 

00,265A 

1698 

REF 

103 

LAST 

958 

00,2655 

1699 

REF 

52 

LAST 

958 

00,2656 

0 0^06  1 /BUF-  EXTEND 

A 0121  1 DCS  BUF 

52  121  1 OXCH  BUF 

2A  117  0 INCR  VBUF  *5 


ON  Negative*  complement  buf  and  maintain 
DvSIgN  in  VBUF  ,5. 


488954A  YJL  system  POR  A^C:  NeW  S^ePaTIN  by  eYLeS 
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L ISTeRPRfTEP  USeRiS  own  PAGf  no.  67  E3 


1700 

1701 

1702 

REF 

REF 

REF 

REF 

REF 

21 

104 

105 
269 

56 

LAST 

LAST 

LAST 

LAST 

LAST 

953 

958 

00,2657 

00*2660 

00*2661 

3 7/40 
6 0000 
6 0121 
54  121 

3 7/6I 
6 7/35 

0 

1 

0 

/BUF* 

CAF  half 

double 

AD  BUF  +1 

force  sign  agreement  in  divisor. 

1703 

170A 

1705 

959 

956 

957 

00  f 2662 

00*2663 

00*266^ 

1 

0 

1 

1 3 

CAF 

AD 

our  ♦ i 

ZERO 

POSMAX 

1706 

REF 

106 

LAST 

959 

00*2665 

26  120 

0 

ADS 

BUF 

1707 

REF 

16 

LAST 

951  ' 

00,2666 

56  123 

1 

XCH 

BUFa 

leave  ABSIORIGInAL  DIVISOR)  IN  BUF2  FOR 

1708 

REF 

107 

LAST 

959 

00  *266  ^ 

3 0121 

0 

CA 

BUF  *1 

OVERFLOW  TESTING. 

1709 

REF 

17 

LAST 

959 

00,2670 

54  124 

1 

TS 

BUF2  *1 

1710 

REF 

1 

00,2671 

1 2577 

1 

TCF 

/NORM 

normalize  divisor  IN  BUF, 

l7il 

00*2672 

0 0006 

1 

/N0RM2 

extend 

IF  LESS  than  .5*  augment  DVNORMCT  AND 

1712 

ref 

5 

LAST 

958 

00,2673 

24  127 

0 

^UG 

DvNORmCT 

DOUBLE  DIvISOR, 

1713  ' 

00,267^ 

0 0006 

1 

EXTEND 

17U 

REF 

108 

LAST 

959 

00,2675 

3 0121 

0 

DCA 

BUF 

1715 

REF 

109 

LAST 

959 

00,2675 

20  121 

1 

DAS 

BUF 

l7i6 

REF 

110 

LAST 

959 

00*2677 

3 0120 

1 

/NORM 

CA 

BUF 

SEE  IF  DIVISOR  NORMALIZED* 

1717 

00*2700 

6 0000 

1 

double  • 

1718 

00*2701 

54  OOO 

0 

DVSK 

1719 

REF 

1 

00,2702 

1 2572 

1 

TCF 

/N0RM2 

DOUBLE  and  try  AGAIN  IF  NOT, 

1720 

REF 

1 

00,2703 

0 2/15 

0 

TC 

V/SCDV 

DO  X COMPONENT  DIVIDE, 

1721 

REF 

575 

Last 

958 

00*2704 

52  150 

1 

DXCH 

MPaC  *3 

supply  arguments  in  usual  sequence. 

1722 

REF 

576 

LAST 

959 

00*2705 

52  145 

0 

dxch 

MPAC 

1723 

REF 

577 

LAST 

959 

00,2706 

52  150 

1 

DXCH 

MPAC  ♦3 

1724 

REF 

2 

LAST 

959 

00*270/ 

0 2/15 

0 

TC 

V/SCDV 

Y COMPONENT, 

1725 

ref 

578 

last 

959 

00*2710 

52  152 

0 

DXCH 

MPAc  *5 

1726 

REF 

579 

LAST 

959 

00,2711 

52  145 

0 

DXCH 

MPAC 

1727 

REF 

580 

LAST 

959 

00,2712 

52  152 

0 

DXCH 

MPAC  +5 

1728 

REF 

3 

LAST 

959 

00*2713 

0 2/15 

0 

TC 

V/SCDV 

Z COMPONENT. 

1729 

ref 

2 

last 

942 

00*271^ 

1 7471 

0 

TCF 

VROTATEX 

GO  re-arrange  components  before  exit. 

DEC  i3»  1966  Master  page  96(j 


488954a  yJL  system  FOR  aGC:  NEW  PRO^R^M  SMePATIN  BY  EYLeS 

L interpreter  USER'S  OWN  PAGE  NO.  68  E3 

Pl730  subroutine  USED  BY  V//5C  10  DIVIDE  VECTOR  COMPONENT  IN  MPAC,*1  BY  THE  SCALAR  GIVEN  IN  BUF. 


1732  REF  53  LAST  958 

1733  REF  5 LAST  956 

1734  REF  581  LAST  959 

1735  REF  1 

1736 

1737  REF  1 

1738  REF  582  LAST  960 

1739  REF  2 LAST  960 

1740  REF  286  LAST  -956 

1741  REF  2 LAST  960 

1742  REF  287  LAST  960 

1743 

1744  REF  583  LAST  960 

1745  REF  584  LAST  960 

1746  REF  6 LAST  960 

1747  REF  181  LAST  958 

1748  rEF  4 last  953 


1749 

1750 

1751 

1752 

REF 

REF 

REF 

585 

18 

1 

LAST 

LAST 

960 

959 

1753 

REF 

586 

LAST 

960 

1754 

REF 

6 

LAST 

959 

1755 

REF 

2 

LAST 

952 

00,2715 

00,2715 

00,27W 

00,2720 

00,272l 

00,272iJ 

00,2723 

00,2724 

00,2725 

00,2726 

00,2727 

00*2730 

00,2731 

00,2732 

00,2733 

00,273^* 

00,2735 


3 0117  0 
54  126  0 

ID  144  1 
1 2Y34  1 
1 2^23  1 
1 2^30  0 

ID  145  0 
1 2^34  1 

0 0002  0 
1 2Y30  0 
0 0002  0 

0 0006  1 

4 0145  0 
52  145  0 
24  126  1 

4 7^55  0 
54  130  1 


V/SCDV 


/MPAC- 


/MPAC* 


00,2735  4 0144  1 

00,2737  6 0123  1 

00,2740  0 0006  1 

00,2741  6 2Y45  0 

00*2742  52  I45  0 DDVCALL 

00,2743  50  127  0 

00,2744  1 2527  1 


CA  VBUF  ,5 

TS  DVSIGN 

CCS  MPAC 

TCF  /MPAC+ 

TCF  +2 

TCF  /MPAC- 

CCS  MPAC  ♦! 

TCF  /MPAC* 

TC  Q 

TCF  /MPAC- 

TC  Q 

EXTEND 
DCS  MPAC 

DXCH  MPAC 

INCR  DVSIGN 

CS  ONE 

TS  MAXDVSW 


CS  MPAC 

AD  BUF2 

extend 

3ZMF  /AGREE 

DXCH  MPAC 

INDEX  DVNORMCT 

TCF  MAXTEST 


REFLECTS  SIGN  OF  SCALAR. 

FORCE  MPAC  positive,  EXITING  ON  ZERO, 


USUAL  complementing  AND  SETTING  OF  SIGN. 


INITIALIZE  NEAR-ONE  SWITCH. 

CHECK  POSSIBLE  OVERFLOW, 
UNNORMALIZED  INPUT  DIVISOR. 

CHECK  FOR  near-one  oR  OVERFLOW, 

CALL  PRE-DIVIDE  NORMALIZATION. 


^0095^A  yjl  system  for  AGC;  new  program  SMePATIN  by  EYLES 


L interpreter 


1756 

REF 

22 

LAST 

959 

00.27A5 

3 7(40 

0 

/AGREE 

CAF 

1757 

00  »27A6 

6 OOOO 

1 

DOUBLE 

1750 

REF 

507 

LAST 

960 

00,2747 

6 0145 

1 

AD 

1759 

REF 

588 

LAST 

961 

00,2750 

54  145 

0 

TS 

1760 

REF 

270 

LAST 

959 

00,2751 

3 7(61 

0 

CAF 

1761 

REF 

57 

LAST 

959 

0O,275ii 

6 705 

1 

AD 

1762 

REF 

589 

LAST 

961 

00,2753 

26  144 

1 

ADS 

1763 

REF 

590 

LAST 

961 

00*2754 

4 0144 

1 

CS 

176A 

REf 

19 

last 

960 

00,2755 

6 0123 

1 

^D 

1765 

REF 

332 

LAST 

951 

00,2756 

ID  000 

0 

CCS 

1766 

REF 

1 

00,275/ 

1 2(42 

0 

TCF 

1767 

00,2760 

32506 

0 

SLOPELO 

DEC 

1760 

REF 

10 

LAST 

958 

00,2761 

1 2575 

0 

TCF 

1769 

REF 

5 

LAST 

960 

00,2762 

54  130 

1 

TS 

1770 

REF 

591 

LAST 

961 

00,2763 

4 0145 

0 

CS 

1771 

REF 

20 

LAST 

961 

00,2764 

6 0124 

0 

AD 

1772 

00,2765 

0 0006 

1 

EXTEND 

1773 

REF 

11 

LAST 

961 

00,2766 

6 2575 

1 

3ZMF 

177A 

REF 

2 

LAST 

961 

00,2767 

1 2(42 

0 

TCF 

HALF 

MPAC  ♦! 
MPAC  *1 
ZERO 
POSMAX 
MPAC 


MPAC 

BUF2 

A 

DDVCALL 

.S32A 

DVOVF 

MAXDVSW 
MPAc  *1 
BUF2  +1 


DVOVF 

DDVCALL 


DEC  l3,  1966  MASTER  PAGE 


USER'S  OWN  PAGf  NO.  6^ 

FORCE  SIGN  agreement  IN  DIVIDEND 
(ALREADY  DONE  FnR  DIVISOR). 


CHECK  TO  SEE  IF  OVERFLOW  GONE  OR  IF 
NEAR-ONE  cAsE  Is  PRESENT. 

NOT  NEAR-ONE. 

NO  HOPE. 

SIGNAL  POSSIBLE  NEAR-ONE  CASE. 

SEE  II-  DIVISION  CAN  BE  DONE. 


GOING  TO  MAXDV 


A8895^A  yjL  SySTEM  pROti^Avi  SHEpATiN  BY  EyLES 


DEC  13*  1966  master  pAQE  96<: 


P1775 

1777 

1778 

1779 

1780 

1781 

1782 

1783 
178A 

1785 

1786 

1787 

1788 

1789 

1790 

1791 

1792 

1793 
179A 

1795 

1796 

1797 

1798 

1799 

1800 
1801 
1802 

1803 

180^ 

1805 


1806 

1807 

1808 

1809 

1810 
1811 

1812 

1813 

18U 

1815 

1816 


niERPRETER  USER'S  OWN  PAGe  NO.  70  E3 

THE  following  ROUTIvjE  EXECUTES  THE  UnIT  InSTrUCTiOn,  WHICH  TAKES  THE  UniT  OF  THE  VECTOR  IN  MPAc. 


REF  2 LAST  929 
REF  271  LAST  961 
REF  18  LAST  991 
REF  9 LAST  16 
REF  1 

REF  5 LAST  962 
REF  19  LAST  962 


REF  12  LAST  961 
REF  592  LAST  961 


00,2770 

0 

7609 

1 

00,2771 

3 

7(61 

1 1 1 

0 

00,2772 

56 

^ 1 1 

0 

00,2773 

59 

131 

0 

00,2779 

0 

3267 

1 

00,2775 

3 

0131 

1 

00,2776 

56 

HI 

0 

00,2777 

0 

0006 

1 

00,3000 

1 

3002 

1 

00,3001 

1 

2375 

0 

00,3002 

0 

0006 

1 

00,3003 

3 

0195 

1 

TC 

CAF 

MPACVBUF 

zero 

SAVE  THE  argument  IN  VBUF. 

MUST  sense  OVERFLOW  IN  FOLLOWING  DOT. 

xch 

TS 

TC 

OVF IND 

TEMl 

VSQSUB 

DOT  MPAC  WITH  ItSELf. 

CA 

XCH 

EXTEND 

TEMl 

OVFIND 

BZF 

TCF 

EXTEND 

DCA 

♦ 2 

DVOVF 

MPAC 

LEAVE  THE  SQUARE  OF  THE  LENGTH  OF  THE 

REF  90  LAST  9r5  00»3009  50  HO  1 INDEX  FIXLOC  ARGUMENT  IN  LVSoUARe. 

REF  1 00.3005  52  O43  i ^XCH  LVSOUARE 


REF 

1 

00,3006 

0 3313 

0 

TC 

REF 

593 

LAST 

962 

00,3007 

ID  lA9 

1 

CCS 

REF 

171 

LAST 

00,3010 

1 3015 

1 

TCP 

953 

00,3011 

59  001 

1 

TS 

REF 

91 

LAST 

962 

00,3012 

50  HO 

1 

INDEX 

REF 

3 

LAST 

689 

00,3013 

52  Oa5 

1 

DXCH 

REF 

13 

LAST 

962 

00»3019 

1 2375 

0 

TCF 

REF 

1 

00,3015 

9 31 16 

0 

cs 

ref 

96 

last 

998 

00,3016 

6 0125 

1 

AD 

REF 

333 

LAST 

961 

00,3017 

ID  OOO 

0 

CCS 

00 ,3020 

9 0000 

0 

COM 

REF 

REF 

1 

00,3021 

1 3077 

0 

TCF 

1 

00,3022 

1 3O3I 

1 

TCF 

REF 

1 

00,3023 

9 3H5 

0 

CS 

REF 

97 

LAST 

962 

00,3029 

59  125 

0 

TS 

SORTSUB  GO  take  THE  NORMALIZED  SQUARE  ROOT. 

MPAC  CHECK  FOR  UNIT  OVERFLOW. 

♦5  MPAC  IS  NOT  LESS  THAN  .5  UNLESS 

L 

FIXLOC 

,LV 

DVOVF  INPUT  TO  SQRTSUb  WAS  0. 

FOURTEEN  SEE  IF  THE  INPUT  WAS  SO  SMALL  THE  THE 

mptemp  first  two  registers  Of  the  Square  were  o 

A 

IF  so,  SAVE  THE  NEGATIVE  OF  THE  SHIFT 
SMALL  COUNT  -15D. 

LARGE  (THIS  IS  USUALLY  THE  CASE.) 

THIRTEEN  IF  THE  SHIFT  COUNT  WAS  EXACTLY  U*  SET 

MPTEmP  the  pRE-DIVIDE  mORm  COuNT  TO  -I3O. 


REF  599  LAST  962 
REF  172  LAST  962 
REF  272  LAST  962 
REF  1 


00 

00 

00 

00 


3025 

3026 
302  1 
3030 


3 0199 

0 

CA 

59  OOl 

1 SMALL2 

TS 

3 7(61 

0 

CAF 

1 3056 

0 

TCF 

MPAC 

L 

ZERO 

LARGE2 


shift  the  length  right  u Before  storing 
(SMALL  EXITS  TO  THIS  POINT). 

GO  TO  STORE  LENGTH  AND  PROCEED. 


REF  A8  LAST  962 
REF  1 


00,3031  ID  125  0 LARGE  CCS  MPTEMP 
00,3032  1 3OA0  1 TCF  LARGES 


MOST  ALL  CASES  COME  HERE. 

SEE  IF  NO  NORMAl IZAtION  WAS  REQUIRED  BY 


REF 

1 

00,3033 

A 

2029 

1 

cs 

SRDOV 

REF 

99 

LAST 

962 

00,3039 

59 

125 

0 

TS 

mptemp 

LAST 

00,3035 

0 

0006 

1 

extend 

REF 

595 

962 

00,3036 

3 

0195 

1 

REF 

2 

LAST 

962 

00,303( 

1 

3056 

0 

TCF 

LAR6E2 

SORT,  AND  IF  SO,  SET  UP  FOR  A SHIFT 

right  1 BEFORE  DIVIDING  TO  PRODUCE 
THE  desired  half  UNIT  VECTOR. 
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1817 

00.3040 

4 OOOO 

0 

LARGE3 

COM 

leave  negative  of  SHIFT  COUNT-1  FOR 

1818 

REF 

50 

LAST 

962 

00.3041 

54  125 

0 

TS 

mptemp 

predivide  Left  shiFt, 

1819 

00 .3042 

4 OOOO 

0 

COM 

PICK  UP  required  shifting  bit  TO  UNNORM' 

1820 

rEf 

334 

LAST 

962 

00.3043 

50  OOO 

1 

index 

A 

AlIZE  the  sort  result. 

1821 

REF 

55 

LAST 

947 

00.3044 

3 7^40 

0 

CAF 

BIT14 

1822 

REF 

111 

LAST 

959 

00.3045 

54  120 

0 

TS 

BUF 

1823 

00.3046 

0 0006 

1 

EXTEND 

Q C C 

596 

LAST 

962 

0 

MP 

1 82h 

Rtr 

UU  « 304  f 

7 0145 

MPAC  *1 

1825 

REF 

112 

LAST 

96S 

00.3050 

56  120 

1 

XCH 

BUF 

1826 

00.3051 

0 0006 

1 

extend 

(UNNORMALIZE  THf  SORT  FOR  LV), 

1827 

REF 

597 

LAST 

963 

00.3052 

7 0144 

1 

MP 

MPAC 

1828 

REF 

173 

LAST 

962 

00.3053 

56  Ool 

0 

XCH 

L 

1829 

REF 

113 

LAST 

963 

00.305A 

6 0120 

1 

AD 

BUF 

1830 

REF 

174 

LAST 

963 

00.3055 

55  OOl 

0 

XCH 

L 

1831 

REF 

42 

LAST 

962 

00.3056 

50  no 

1 

LAR&E2 

INDEX 

FIXLOC 

1832 

REF 

4 

LAST 

962 

00.3057 

52  0^,5 

1 

OXCh 

LV 

length  now  stored  in  work  area. 

1833 

REF 

182 

last 

960 

00.3060 

4 7^55 

0 

cs 

ONE 

1834 

REF 

6 

LAST 

961 

00.3061 

54  130 

1 

TS 

MAXDV5W 

NO  MAXDV  CASES  iN  UNIT, 

1835 

REF 

54 

LAST 

960 

00.3062 

52  113 

0 

DXCH 

VBUF 

PREPARE  X COMPONENT  FOR  DIVIDE.  SETTING 

1836 

ref 

598 

LAST 

963 

00.3063 

52  145 

0 

dxch 

MPAc 

length  of  vector  As  DIVIsOR  in  8UF. 

1837 

REF 

114 

LAST 

963 

00.306A 

52  121 

1 

OXCH 

BUF 

1838 

REF 

1 

00.3065 

0 3117 

0 

TC 

UNITDV 

1839 

REF 

55 

LAST 

963 

00.3066 

52  115 

0 

OXCH 

VBUF  +2 

DO  Y AND  Z IN  USUAL  FASHION  SO  wE  CAN 

1840 

REF 

599 

LAST 

963 

00.3067 

52  145 

0 

OXCH 

MPAC 

Exit  through  vRdtatex. 

1841 

REF 

600 

LAST 

963 

00.3070 

52  150 

1 

OXCH 

MPAC  *3 

1842 

REF 

2 

LAST 

963 

00.3071 

0 3117 

0 

TC 

UNITDV 

1843 

REF 

56 

LAST 

963 

00.3072 

52  117 

1 

OXCH 

VBUF  *4 

1844 

ref 

601 

LAST 

963 

00.3073 

52  145 

0 

OXCH 

MPAc 

1845 

REF 

602 

LAST 

963 

00.307A 

52  152 

0 

OXCH 

MPAC  +5 

1846 

REF 

3 

LAST 

963 

00.3075 

0 3117 

0 

TC 

UNITDV 

1847 

REF 

3 

LAST 

959 

00.3076 

1 7‘*71 

0 

TCF 

VROTATEX 

AND  exit. 
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L Interpreter  user's  own  pagp  no.  h e3 

P18A8  iF  The  length  of  the  Argument  vector  was  less  than  2(-28)»  each  component  must  be  shifted  left  at  leasi 

R1850  1A  places  BeFoRe  THe  DIVIDE*  NOTE  THAT  IN  THIS  CASE,  THe  MAjOR  PART  OF  EACH  COMPONENT  Is  ZERO. 


1852 

REF 

5l 

last 

963 

00*3077 

5(,  125 

0 

small 

TS 

mptemp 

1853 

REF 

273 

LAST 

962 

00,3100 

3 7^61 

0 

CAF 

ZERO 

1 85A 

REF 

57 

LAST 

963 

00 ,3101 

56  113 

1 

XCH 

VBUF  *1 

1855 

REF 

58 

LAST 

96A 

00,3102 

56  112 

0 

XCH 

VBUF 

1856 

REF 

59 

LAST 

96A 

00,3103 

56  U5 

1 

XCH 

VBUF  *3 

1857 

REF 

60 

LAST 

96A 

00,3104 

56  114 

0 

XCH 

VBUF  *2 

1858 

REF 

61 

LAST 

96A 

00,3105 

56  117 

0 

XCH 

VBUF  *5 

1859 

REF 

62 

LAST 

964 

00,3106 

56  116 

1 

XCH 

VBUF  *4 

1860 

REF 

52 

LAST 

964 

00,3107 

4 0125 

0 

CS 

MPTEMP 

1861 

REf 

335. 

LAST 

963 

00,31l0 

50  UOO 

1 

index 

A 

1862 

REF 

56 

LAST 

963 

00 ,31 1 1 

3 7 T40 

0 

CAF 

B1 T 14 

1863 

00,3112 

0 OUO6 

1 

EXTEND 

186A 

REF 

603 

LAST 

963 

00,3113 

7 OI44 

1 

MP 

MPAC 

1865 

REF 

1 

00 , 3 1 1 A 

1 3^26 

1 

TCF 

SMALL2 

1866 

1867 

00,3115 

00,3116 

OOU15 

00U16 

0 

0 

Thirteen 

FOURTEEN 

DEC 

DEC 

13 

14 

Negative  of  pre-divide  shift  cojnt* 

SHIFT  EACH  COMPONENT  LEFT  U. 
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P1868 

1869 

1870 

1871 

1872 

1873 

187^ 

1875 

1876 

1877 

1878 

1879 

1880 
1881 
1882 

1883 

1884 

1885 

1886 
1887 


hteRpReteR 


USeH'S  own  PAGf  no,  73 


E3 


REF  604  LAST  964 
REF  1 

REF  1 

REF  605  LAST  965 

REF  2 LAST  965 
REF  288  LAST  960 
REF  2 LAST  965 
REF  289  LAST  965 

REF  274  LAST  964 
REF  7 last  960 

REF  606  LAST  965 
REF  53  LAST  964 

REF  3 LAST  960 

REF  8 LAST  965 
REF  607  LAST  965 
REF  54  LAST  965 
REF  4 LAST  965 


NG  ROuTInj 

£ SE'S  1 

JP 

THE  call 

TO  the 

DIVIDE  routines. 

00,3117 

10  144 

1 

UNITDV 

CCS 

MPAC 

FORCE  MPAC  positive  IF  POSSIBLE,  SETTING 

00,3120 

1 3^36 

1 

TCP 

UMPAC* 

DVSIGN  ACCORDING  TO  THE  SIGN  OF  MPAC 

00,3l2l 

1 3I23 

0 

TCF 

♦ 2 

SINCE  the  DIVISnR  IS  ALWAYS  POSITIVE 

00,3122 

1 3I3O 

1 

TCF 

UMPAC- 

HERE, 

00,3123 

10  145 

0 

CCS 

MPAC  ♦! 

00,312A 

1 3136 

1 

TCF 

UMPAC* 

00,3l2i> 

0 0002 

0 

TC 

Q 

EXIT  IMMEDIATELv  ON  ZERO, 

00,3126 

1 3130 

1 

TCF 

UMPAC- 

00,3127 

0 0002 

0 

TC 

Q 

00*3130 

4 7T6I 

1 

UMPAC- 

CS 

zero 

IF  NEGATIVE*  SET  -0  IN  DVSIGN  FqR  FINAL 

00,3131 

54  126 

0 

TS 

DvSIgN 

complement. 

00,3132 

0 0006 

1 

EXTEND 

00,3133 

4 0145 

0 

DCS 

MPAC 

PICK  UP  ABSOLUTE  VAl UE  OF  ARG  AND  JUMP. 

00,313A 

50  125 

1 

INDEX 

MPTEMP 

00,3135 

1 2526 

0 

TCF 

MAXTEST  -1 

00,3136 

54  126 

0 

UMPAC+ 

TS 

DvSIqN 

SET  DvSIgN  for  positive  QUOTIENT. 

00,3137 

52  145 

0 

OXCH 

MPAC 

00,3140 

50  125 

1 

INDEX 

MPTEMP 

00,3141 

1 2526 

0 

TCF 

MAXTEST  -1 
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L interpreter 


USER'S  OWN  PAGE  NO.  7A  E3 


P1888 

MISCeLL/ 

1889 

REF 

1 

1890 

REF 

39 

LAST 

952 

1891 

REF 

28 

LAST 

948 

1892 

REf 

3 

last 

841 

1893 

REF 

4 

LAST 

966 

189A 

REF 

2 

LAST 

962 

1895 

REF 

29 

LAST 

966 

1896 

1897 

REF 

608 

LAST 

965 

1898 

REF 

43 

LAST 

963 

1899 

REF 

2 

LAST 

962 

1900 

REF 

2 

LAST 

962 

1901 

ref 

55 

last 

965 

1902 

1903 

REF 

40 

LAST 

966 

1904 

REF 

3 

LAST 

947 

miscellaneous  unary  3PER«TI0N5, 


1906 

1907 

1908 

1909 


REF  1 

REF  78  last  9A8 
REF  4 LAST  947 


00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 


00 

00 

00 

00 


3142 

3143 


0 3250  0 

1 6115  0 


DSC 


3147 

3150 

3151 

3152 

3153 
315^ 

3155 

3156 

3157 

3160 

3161 

3162 

3163 
316A 

3165 

3166 


0 3267  1 
22  153  0 

0 0006  1 
3 0145  1 

50  110  1 
52  043  1 

0 3313  0 
10  125  0 

1 3161  0 
1 6115  0 

6 3676  0 
0 0006  1 

6 3167  1 
22  007  0 
22  106  0 
1 2303  1 


ABVAL 


SORT 


TC 

TCF 


314A  10  I53  1 ABVALABS  CCS 

3145  1 3174  1 TCF 

3146  1 3174  1 TCF 


TC 

LXCH 

EXTEND 

DCA 

index 

OXCH 

TC 

CCS 

TCF 

TCF 

AD 

EXTEND 

3ZMF 

ZL 

LXCH 

TCF 


DSOSUB 

DANZIG 

MODE 

AbS 

ABS 

VSQSUB 

mode 


MPAC 

FIXLOC 

LVSQUARE 

SORTSUB 

MPTEMP 

♦ 2 

DANZIG 

NEG12 


SORTSHFT 

ADDRWD 
GENSCR  *4 


SQUARE  THE  DP  CONTENTS  OF  MPAC, 


ABVAL  OR  ABS  INSTRUCTION, 
DO  AbS  on  ScAlAR. 


DOT  MPAC  WITH  ItSELF. 

MODE  IS  NOW  DP  (L  ZERO  AFTER  DAS), 

STORE  SQUARE  OF  LENGTH  IN  WORK  AREA. 


TAKE  THE  SQUARE  ROOT  OF  MPAC, 

returned  normalized  square  root,  see  If 

ANY  un-normalization  REQUIRED  AjD  EXIT 
IF  NOT. 

A RIGHT  SHIFT  Of  MORE  THAN  I3  CoULD  BE 
REQUIRED  IF  INPuT  WAS  ZERO  IN  MpAc**l* 

GOES  HERE  IN  MOST  CASES. 

IF  A LONG  SHIFT  IS  REQUIRED,  GO  TO 
GENERAL  RIGHT  SHIFT  ROUTINES. 

ADDRWD  WAS  ZERO  TO  PREVENT  ROUND, 


1910 

REF 

56 

LAST 

966 

00,316^ 

1911 

ref 

42 

LAST 

938 

00,3170 

1912 

REF 

57 

LAST 

966 

00,3171 

1913 

REF 

275 

LAST 

965 

00,3172 

1914 

REF 

2 

LAST 

947 

00,3173 

50  125 

1 

SQRTSHFT  INDEX 

MPTEMP 

3 7T37 

0 

cAf 

B1T15 

5A  125 

0 

TS 

MPTEMP 

3 7^61 

0 

CAF 

zero 

1 2036 

1 

TCF 

MPACSHR  *3 

select  SHIFTING  BIT  AND  EXIT  THROUGH 

shift  routines, 

TO  ZERO  MPAC  .2  IN  THE  PROCESS. 


1915  REF  3 LAST  944 


00 


317A 


0 bnz  0 ABS 


TC 


BRANCH  TEST  SIGN  OF  MPaC  AND  COMPLEMENT  IF 


1916 

1917 

1918 


REF  A1  LAST 
REF  A2  last 
REF  4 LAST 


966 

966 

936 


3175 

3175 

3177 


1 6115  0 
1 6115  0 
1 7a4  0 


TCF  DANZIG 
TCF  DANZIG 
TCF  COMP 
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1919 

1920 

1921 

1922 

1923 
192A 

1925 

1926 

1927 

1928 

1929 

1930 

1931 

1932 

1933 

193A 

1935 

1936 

1937 

1938 

1939 
19A0 

1941 

1942 

1943 

1944 

1945 

1946 

1947 

1948 

1949 

1950 

1951 

1952 


1953 

1954 

1955 

1956 
19565 

1957 


I'JTERPRt.TER 


USER'S  OvJN  PAGf  no,  75 


E3 


rEF  32  LAST  931 
REF  14  LAST  934 

REF  336  LAST  964 

REF  609  LAST  966 


REF  15  LAST  967 

REF  610  LAST  967 
REF  183  LAST  963 
REF  10  LAST  939 

REF  3 LAST  966 
REF  276  LAST  966 
REF  11  LAST  967 


REF  611  LAST  967 
REF  16  LAST  967 


REF  30  LAST  966 
ref  5 last  912 
REF  17  LAST  967 

REF  31  LAST  967 
REF  1 

REF  43  LAST  966 


REF  612  last  967 
REF  18  LAST  967 


REf  613  last  967 
REF  19  LAST  967 

REF  44  LAST  967 


REF  614  LAST  967 
REF  2 LAST  9ll 

REF  44  LAST  966 
REF  3 LAST  914 
REF  22  LAST  925 
REF  5 LAST  915 


00 

00 

00 

00 

00 

00 

,3200 

,3201 

,3202 

,3203 

,3204 

,3203 

4 7'53 
25  156 
0 0006 

5 0000 
3 0003 
52  150 

0 

1 

1 

vdef 

cs 

ADS 

EXTEND 

four 

PUSHLOC 

1 

1 

1 

INDEX 

OCA 

DXCH 

A 

2 

MPAC  *3 

00 

,3206 

0 0006 

1 

EXTEND 

00 

,3207 

,3210 

5 0156 
3 0001 

0 

INDEX 

PUSHLOC 

00 

0 

OCA 

0 

00 

,3211 

52  152 

0 

OXCH 

MPAC  *5 

00 

,3212 

,3213 

4 7<55 

1 6114 

0 

CS 

ONE 

00 

1 

TCF 

NEWMODE 

00 

,321'* 

0 3‘:67 

1 

VSQ 

TC 

VSQSUB 

00 

,3213 

3 7^61 

0 

CAF 

ZERO 

00 

,32lP 

,3217 

1 6114 

0 0006 

1 

PUSH 

TCF 

NEWMODE 

00 

1 

extend 

00 

,3220 

3 0145 

1 

DCA 

MPAC 

00 

,3221 

50  156 

0 

INDEX 

PUSHLOC 

00 

,3222 

52  001 

1 

DXCH 

0 

00 

,3223 

50  153 

0 

INDEX 

MODE 

00 

,3224 

3 6300 

1 

CAF 

no.wdb 

00 

,3223 

25  156 

1 

ADS 

PUSHLOC 

00 

,3226 

10  153 

1 

CCS 

MODE 

00 

,3227 

1 3242 

1 

TCF 

TPUSH 

00 

00 

,3230 

,3231 

1 6115 

0 0006 

0 

1 

TCF 

EXTEND 

DANZIG 

00 

,3232 

3 0150 

0 

OCA 

MPAc  +3 

00 

,3233 

50  156 

0 

INDEX 

PUSHLOC 

00 

00 

,323A 
• 3233 

51*  f75 
0 0006 

0 

1 

OXCH 

EXTEND 

0 -4 

00 

,3236 

3 0152 

1 

OCA 

MPAc  *5 

00 

,3237 

50  156 

0 

INDEX 

PUSHLOC 

00 

,3240 

51*  m 

1 

OXCH 

0 -2 

00 

,3241 

1 6115 

0 

TCF 

DANZIG 

00 

,3242 

3 0146 

1 

TPUSH 

CA 

MPAC  42 

00 

,3243 

1 6623 

1 

TCF 

ENDTPUSH 

00 

,3244 

50  110 

1 

RVQ 

INDEX 

FIXLOC 

00 

,3245 

3 0052 

0 

CA 

QPRET 

00 

,3246 

54  107 

0 

TS 

POLISH 

00 

,3247 

1 6^21 

1 

TCF 

GOTO  44 

vector  define  - essenTjAlly  Treats 
SCALAR  IN  MPAC  aS  X COMPONENT t PUSHES  UP 
FOR  Y AND  then  aGAIN  FOR  2, 


MODE  IS  NOW  VECTOR, 

DOT  MPAC  WITH  ItSELF. 

MODE  IS  NOW  DP, 

PUSH  DOWN  MPAC  LEAVING  IT  LOADED, 

PUSH  DOWN  FIRST  TWO  REGISTERS  In  EACH 
increment  PUSHDnWN  POINTER, 


PUSH  DOWN  MPAC  *2, 

DONE  FOR  DP, 

ON  VECTOR  I PUSH  DOWN  Y AND  Z COMPONENTS, 


RVQ  - RETURN  IVA  QPRET, 


(ASSUME  QPRET  POINTS  TO  FIXED  ONLY,) 
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Pl958  the  following  SUBROUTINE^  ARe  USeD  IN  SQUARING  MPAC,  IN  BOTH  THE  SCALAR  AND  VECTOR  SeNSe,  THeY  ARE 

R1960  special  CASES  OF  DMPSUB  AND  DUTSUB,  PUT  IN  TO  SAVE  SOME  TIMe. 


1961 

REF 

615 

LAST 

967 

00.3250 

3 

1962 

00.3251 

0 

1963 

00.3252 

7 

1964 

REF 

616 

LAST 

968 

00.3253 

5 

1965 

REF 

277 

LAST 

967 

00.325A 

3 

1966 

REF 

617 

LAST 

968 

00.3255 

5 

1967 

00.3256 

0 

1968 

REF 

618 

LAST 

968 

00,3257 

7 

1969 

00.3260 

2 

0145 

0006 

0000 

1 DSQSUB 

1 

0 

CA 

extend 

SQUARE 

MPAC 

♦1 

4 146 

0 

t s 

MPAC 

*2 

Ifbl 

0 

CAF 

ZERO 

6 145 

1 

XCH 

MPAC 

♦ 1 

OOO6 

1 

EXTEND 

0144 

1 

MP 

MPAC 

0 OOl 

1 

ODOUBL 

SQUARES  THE  SCAl  AR  CONTENTS  OF  ^iPAC 

FORM  2 (CROSS  TERM)  , 

AND  MAYBE  OVERFi  OW, 


1970 

1971 

1972 

1973 

REF 

ref 

619 

620 

LAST 

LAST 

968 

968 

1974 

REF 

621 

LAST 

968 

1975 

REF 

290 

LAST 

965 

1976 

1977 

ref 

8 

last 

923 

1978 

REF 

2 

LAST 

966 

1979 

REF 

622 

LAST 

968 

1980 

REF 

623 

LAST 

968 

1981 

REF 

115 

LAST 

LAST 

963 

1982 

REF 

624 

968 

1983 

REF 

116 

LAST 

968 

198A  REF  3 LAST  968 


1985 

REF 

625 

LAST 

968 

1986 

REF 

117 

LAST 

968 

1987 

REF 

626 

LAST 

968 

1988 

REF 

118 

LAST 

968 

1989 

REF 

119 

LAST 

968 

1990 

1991 

ref 

20 

LAST 

962 

1992 

REF 

627 

LAST 

968 

1993 

REF 

628 

LAST 

968 

1994 

REF 

4 

LAST 

968 

1995 

REF 

1 

00.3261 

00.3262 


3263 

326A 

3263 

3266 


20  146  0 
56  144  0 
0 0006  1 
7 0000  0 
20  145  0 
0 0002  0 


00 

00 

00 

00 

00 


3267 

3270 

3271 

3272 

3273 


0 0006  1 VSQSUB 
22  127  0 
0 3250  0 
52  150  1 
52  145  0 


00 

00 

00 


327A 

3275 

3276 


52  121  1 
3 0146  1 
54  122  I 


00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 


3277 

3300 

3301 

3302 

3303 

3304 

3305 

3306 

330/ 

3310 

3311 

3312 


0 3250  0 
52  146  0 
20  122  1 
6 0144  0 

6 0120  I 
54  120  0 

1 3307  I 
54  HI  1 

52  152  0 
52  145  0 

0 3250  0 

1 7250  0 


OAS  MPAC  *l 

XCH  MPAC 

EXTEND 

SQUARE 

OAS  MPAC 

TC  Q 

extend 

QXCH  DOTRET 

TC  DSQSUB 

OXCH  MPAC  +3 

OXCH  MPAC 

OXCH  BUF 

CA  MPAC  *2 

TS  BUF  .2 

TC  DSQSUB 

OXCH  MPAC  ♦! 

OAS  BUF  *1 

AD  MPAC 

AD  BUF 

TS  BUF 

TCF  *2 

TS  OVFinD 

OXCH  MPAC  *5 

OXCH  MPAC 

TC  DSQSUB 

TCF  ENDDOT 


AND  SET  A TO  NET  OVERFLOW, 


DOTS  THE  VECTOR  IN  MPAC  WITH  ITSELF 

square  the  X component. 


SO  WE  CAN  END  Ini  DOTSUB. 


SQUARE  Y COMPONENT. 


IF  overflow. 


SQUARE  Z component. 
END  AS  IN  DOTSUB. 


E3 
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L INTERPRETER  USeR»S  OWN  PAGf  NO.  11  E3 

Pl996  double  precision  SQJ'ARE  ^OOT  routine.  TA<E  the  SuUaRe  Root  of  tHe  TRIPL-E  precision  (MPAC  *2  USfrD  ONLY 

R1998  IN  normalization)  COnTEnTS  OF  vi3aC  AnD  LEAVE  THE  NORMALIZED  RESULT  IN  MPAC  (C(MPAC)  GREATER  THAN  OR  EQUAL  TO 

Rzooo  .5).  thl  right  shift  Count  (tD'  unnormalize)  is  LeFt  in  mptemp. 


2001 

REF 

278 

last 

968 

00,3313 

3 7(61 

0 

SQRtSUB  caf 

2002 

REF 

58 

LAST 

966 

00,331'* 

5A  125 

0 

TS 

2003 

REF 

629 

LAST 

968 

00*3315 

10  lAA 

1 

CCS 

200A 

ref 

1 

00,3316 

1 335A 

1 

TCF 

2005 

00,3317 

1 3321 

0 

TCF 

REF 

1 

T f'C 

2006 

1 

00 , 332D 

1 33A3 

1 

2007 

REF 

630 

LAST 

969 

00*3321 

55  1A6 

1 

xch 

2008 

REF 

631 

LAST 

969 

00,332Z 

55  1A5 

1 

XCH 

2009 

REF 

632 

LAST 

969 

00,3323 

5A  lAA 

1 

TS 

2010 

REF 

17 

LAST 

938 

00,332'* 

3 7^57 

0 

CAF 

2011 

REF 

59 

LAST 

969 

00,3325 

5A  125 

0 

TS 

2012 

REF 

633 

LAST 

969 

00,332P 

10  lAA 

1 

CCS 

2013 

REF 

2 

LAST 

969 

00,332  1 

1 335A 

1 

TCF 

20U 

00,3330 

1 3332 

1 

TCF 

REF 

2015 

1 

00,3331 

1 33A6 

1 

TCF 

2016 

REF 

63A 

LAST 

969 

00*3332 

55  145 

1 

XCH 

2017 

REF 

635 

LAST 

969 

00,3333 

54  I44 

1 

TS 

2018 

REF 

18 

LAST 

969 

00,333** 

3 7i'57 

0 

CAF 

2019 

REF 

60 

LAST 

969 

00,3335 

25  125 

0 

ADS 

2020 

REF 

536 

LAST 

969 

00*3335 

10  144 

1 3354 

1 

CCS 

TCF 

202 1 

REf 

3 

LAST 

969 

00,3337 

1 

2022 

REF 

291 

LAST 

968 

00,3340 

0 0002 

0 

TC 

2023 

REF 

2 

LAST 

969 

00,3341 

1 3346 

1 

TCF 

2024 

REF 

292 

LAST 

969 

00,3342 

0 0002 

0 

TC 

ztRo  Start  by  zeroing  rigHt  shift  count* 

MPTEMP 


MPAC  CHECK  FOR  POSITIVE  ARGUMENT*  SHIFTING 

SMPAc*  first  significant  MpAc  REGISTER  INTO 

♦2  MPAC  ITSELF. 

SORTNEG  SEE  IF  MAG  OF  ARGUMENT  LESS  THAN  10 (-A). 

MPAC  *Z  MPAC  IS  ZERO  - SHIFT  LEFT  lA. 

MPAC  *1 
MPAC 

SEVEN  augment  RIGHT  SHIFT  COUNTER. 

MPTEMP 

MPAC  SEE  IF  MPAC  NOW  PNZ. 

SMPAC* 

♦Z 

ZEROANS  negative  but  less  than  10 (-A)  IN  MAG. 

MPAC  *1  ZERO  - SHIFT  LEFT  lA  AGAIN. 

MpAC 

SEVEN  augment  RIGHT  SHIFT  COUNTER. 

MPTEMP 


MPAC 

SMPAC* 

Q SQRT(O)  s 0. 

ZEROANS 

Q 


2025 

2026 

REf 

REF 

337 

1 

last 

967 

00,3343 

00,3344 

13  000 

1 3352 

0 

1 

SaRTNEG 

CCS 

TCF 

2027 

REF 

637 

LAST 

969 

00*3345 

ID  I45 

0 

CCS 

2028 

REf 

279 

last 

969 

00,3346 

3 7^61 

0 

ZEROANS 

CAF 

2029 

REF 

1 

00,3347 

1 3422 

1 

TCF 

2030 

REF 

2 

LAST 

969 

00,3350 

1 3352 

1 

TCF 

2031 

REF 

2 

LAST 

969 

00,3351 

1 3422 

1 

TCF 

2032 

REF 

6 

LAST 

665 

00,3352 

0 6^00 

1 

SORTABRT 

TC 

2033 

00,3353 

01302 

1 

OcT 

A argument  Is  negative*  but  see  If  sIgN- 

SORTABRT  CORRECTED  ARGUMENT  IS  LESS  THAN  10 (-A) 

MPAC  *1  IN  MAGNITUDE.  IF  SO.  CALL  ANSWER  ZERO. 

ZERO  FORCE  ANSWER  TO  ZERO  HERE. 

FIXROOT 

SQRTABRT 

FIXROOT 

abort 

1302 


a8895^a  yjL  System  pOR  agc!  new  program  shepatin  by  eyles 


L IvITERPRETER 

203A  rEF  I 00 

2035  00 

2036  REF  1 00 

2037  REF  638  LAST  96^  00 

2038  REf  26  LAST  953  00 

2039  00 

20A0  REF  23  LAST  961  00 

20A1  REF  639  LAST  970  00 

20<V2  REF  27  LAST  970  00 

20A3  REF  6A0  LAST  970  00 

20A4  REF  1 00 

20A5  00 

, 20A6  ref  6A1  last  970  00 

2047  REF  I 00 

2048  REF  120  LAST  968  00 

2049  REF  642  LAST  970  00 

2050  00 

2051  00 

2052  REF  121  LAST  970  00 

2053  00 

2054  REF  24  LAST  970  00 

2055  REf  122  lAsT  970  00 

2056  00 

2057  REF  25  LAST  970  00 

2058  REF  643  LAST  970  00 

2059  00 

2060  REF  123  LAST  970  00 

2061  REF  124  LAST  970  00 

2062  REF  280  LAST  969  00 

2063  REF  175  LAST  963  00 

2064  00 

2065  REF  125  LAST  970  00 

2066  REF  176  LAST  970  00 

2067  REF  126  LAST  970  00 

2068  REF  644  LAST  970  00 

2069  00 

2070  REF  1 00 

2071  REF  58  LAST  961  00 

2072  REF  645  LAST  970  00 

2073  REF  646  LAST  970  00 


3354  6 2430  1 SMPAC*  AD 

3355  0 0006  1 EXTEND 

3356  6 3425  1 3ZMF 

335^  52  A45  0 OXCH 

3360  22  021  1 LXCH 

3361  0 0006  1 EXTEND 

3362  7 7^40  1 

3363  52  i45  0 5XCH 

3364  56  021  1 XCH 

3365  26  U5  0 ADS 

3366  3 2314  0 ARGHI  CAF 

3367  0 0006  1 EXTEND 

337O  7 0144  1 MP 

337!  6 2530  0 AD 

3372  54  l20  0 *4  TS 

3373  3 0i44  0 CA 

3374  22  007  0 2L 

3375  0 0006  1 EXTEND 

3376  10  120  0 OV 

3377  0 0006  1 EXTEND 

3400  7 7^40  1 VIP 

3401  26  120  0 Ads 

3402  0 0006  1 EXTEND 

3403  7 7^40  1 VIP 

3404  52  145  0 OXCH 

3405  0 0006  1 extend 

3406  10  120  0 OV 

3407  54  121  1 TS 

3410  3 7^61  0 CAF 

3411  55  OOl  0 XCH 

3412  0 0006  1 EXTEND 

3413  10  120  0 DV 

3414  54  OOl  1 TS 

3415  3 0121  0 CA 

3416  20  I45  0 DAS 

3417  0 0006  1 EXTEND 

3420  1 3424  1 3ZF 

3421  3 7^35  1 CAF 

3422  54  I44  1 FIXROOT  TS 

3423  54  145  0 TS 


2074  REF  293  LAST  969  00,3424  0 0002  0 TCOBNKOO  TC 


-1/2*2 


SRTEST 

MPAC 

SR 

HALF 

MPAC 

SR 

MPAC  *1 
SLOPEHI 


MPAC 
B I ASH  I 

BUF 

MpAC 


BUF 


HALF 

BUF 


HALF 

MPAC 

BUF 

BUF  *1 

ZERO 

L 


BUF 

L 

BUF  *1 
MPAC 


TCOBNKOO 
POSMAX 
MPAC 
MPAC  *1 

Q 


DEc  U,  1966  MASTER  pAGE  970 
USER'S  OWN  PAGf  NO.  78  E3 

SEE  IF  Argument  greater  than  or  equal  tu 

.5. 

IF  SO,  SEE  IF  LfSS  THAN  ,25. 

WE  WILL  TAKE  THE  SQUARE  ROOT  OF  MPAC/2, 
shift  right  1 And  go  to  THE  SORT  ROUTINE 


GUARANTEED  NO  Ov/ERFLOW, 

ARGUMENT  BETWEEN  ,25  AND  ,5,  GET  A 
LINEAR  APPROXIMATION  FOR  THIS  RANGE, 
XO/2  = (MPAC/2) (SLOPEHI)  ♦ BIASHl/2. 
XO/2  (ARGLO  enters  HERE)* 

single-precision  throughout, 

(MPAC/2) / (XO/2) 

XI  5 XO/2  * ,5(mPAC/2)/(X0/2). 

FORM  UP  Xl/2. 

SAVE  AND  BRING  OUT  ARGUMENT, 
take  dp  quotient  with  XI, 

SAVE  MAJOR  PART  OF  QUOTIENT, 

FORM  MINOR  PART  OF  QUOTIENT  USING 
(REMAINDER, 0) . 

IN  PREPARATION  FOR  DAS, 

X2  = Xl/2  * (MPaC/2)X1 
overflows  if  ARG,  near  POSMAX. 


return  TO  CALLER  TO  UNNORMALIZE,  ETC 
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2075 

REF 

1 

00 

3a25 

6 7^41 

1 

SRTEST 

AD 

quarter 

argument  was  LEAS  THAN  ,5,  SEE  IF  LESS 

2076 

00 

3A26 

0 0006 

1 

EXTEND 

THAN  ,25. 

2077 

REF 

1 

00 

3A27 

6 3^*51 

1 

3ZMF 

sqrtnorm 

IF  SO,  begin  normalization. 

2078 

REF 

6A7 

LAST 

970 

00 

343° 

52  I45 

0 

OXCH 

MPAC 

IF  BETWEEN  .5  AND  .25*  6H1FT  RIGHT  1 AND 

2079 

ref 

28 

LAST 

970 

00 

3A3l 

22  021 

1 

LXCH 

SR 

START  AT  ARgLO, 

2080 

00 

3A32 

0 0006 

1 

EXTEND 

2081 

REF 

26 

LAST 

970 

00 

3433 

7 7^40 

1 

MP 

half 

REF 

6A8 

LAST 

HA 

CO  1 A C 

OXCH 

2U8£ 

97 1 

uu 

343^ 

54 

0 

MPAC 

2083 

REF 

29 

LAST 

971 

00 

343s 

56  021 

1 

XCH 

SR 

208A 

REF 

6A9 

LAST 

971 

00 

3436 

26  145 

0 

ADS 

MPAC  ♦! 

NO  overflow. 

.2085 

REF 

1 

00 

343  I 

3 2^60 

1 

ARGLO 

CAF 

SLOPELO 

(NORMALIZED)  ARGUMENT  BETWEEN  .125  AND 

. 2086 

00 

3440 

0 0006 

1 

EXTEND 

.25 

2087 

REF 

650 

LAST 

971 

00 

3441 

7 0144 

1 

MP 

MPAC 

2088 

REF 

1 

00 

3442 

6 2270 

0 

AD 

BIASLO 

2089 

REF 

1 

00 

3443 

1 3572 

0 

TCF 

ARGHI  *4 

begin  square  root. 

2090 

00 

3444 

0 0006 

1 

S3RTNM2 

extend 

SHIFT  LEFT  2 ANn  INCREMENT  RIGHT  SHIFT 

2091 

REF 

651 

LAST 

971 

00 

3445 

3 0146 

1 

OCA  . 

MPAC  *1 

COUNT  (FOR  TERMINAL  UNNORMALIZAT ION) . 

2092 

REF 

652 

LAST 

971 

00 

3446 

20  146 

0 

OAS 

MPAC  *1 

2093 

REF 

653 

LAST 

971 

00 

3447 

6 0144 

0 

AD 

MPAC 

209A 

REF 

65A 

LAST 

971 

00 

345O 

26  144 

1 

ADS 

MPAC 

(NO  OVERFLOW). 

2095 

REF 

61 

LAST 

969 

00 

3451 

24  125 

1 

SSRTNORM 

INCR 

MPTEMP 

FIRST  TIME  THROUGH,  JUST  SHIFT  LEFT  1 

2096 

00 

3452 

0 0006 

1 

EXTEND 

(pUTS  IN  effective  oIgHT  SHIFT  SINCE 

2097 

REF 

655 

LAST 

971 

00 

3453 

3 0146 

1 

OCA 

MPAC  +1 

WE  WANT  MPAC/2). 

2098 

REF 

656 

LAST 

971 

00 

345^ 

20  146 

0 

OAS 

MPAC  ♦! 

2099 

REF 

657 

LAST 

971 

00 

3453 

6 0144 

0 

AD 

MPAC 

2100 

REF 

658 

LAST 

971 

00 

345‘' 

26  144 

1 

ADS 

MPAC 

(AGAIN  NO  OVERFLOW). 

2101 

00 

345  I 

6 OOOO 

1 

DOUBLE 

2102 

REF 

18 

LAST 

290 

00 

3460 

54  022 

0 

TS 

CYL 

2103 

REF 

19 

LAST 

971 

00 

3461 

10  O22 

0 

NoRMTEST 

CCS 

CYL 

SEE  IF  argument  NOW  NORMALIZED  AT 

210A 

REF 

20 

LAST 

971 

00 

3462 

10  022 

0 

CCS 

CYL 

GREATER  THAN  .125. 

2105 

REF 

1 

00 

3463 

1 3444 

1 

TCF 

SQRTNM2 

NO  - SHIFT  LEFT  2 MoRE  AND  TRY  AGAIN, 

2106 

REF 

2 

LAST 

971 

00 

3464 

1 3366 

0 

TCF 

ARGHI 

YES  . NOW  BETWEfN  ,5  AND  .25. 

2107 

REF 

1 

00 

3465 

1 3437 

0 

TCF 

ARGLO 

ARGUMENT  NOW  BETWEEN  .25  AND  .125. 
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P2108  trigonometric  FUNCTION  PACKAGE. 


R2109 

the 

FOLLOWING 

TRIGONDMetHIC  functions  ARe  available  as  INteRPReTIVe  operations: 

R2111 

1. 

SIN 

COMPUTES  (1/2)SInE(2  PI  MPAC). 

R2112 

2. 

COS 

COMPUTES  (I/2)C0SINE(2  PI  MPAC). 

R2U3 

3* 

ASIN 

COMPUTES  (1/2PI)ARCSINE(2  MPAC). 

R211A 

9. 

AcOS 

COMPUTES  (I/2PI)ARCC0SINE(2  MPAc) . 

R2115 

SIN-ASIN  AND 

COS-ACOS 

ARE  MUtJALLY  INVERSE,  IE  SIN(ASIN(X))  s X. 

2116 

REF 

9 

last 

966 

00,3966 

2117 

2118 
2119 

REF 

REF 

1 

2 

last 

972 

00 ,3967 
00,3970 
00,3971 

2120 

2121 

REF 

659 

LAST 

971 

00,3972 

00,3973 

2122 

REF 

660 

LAST 

972 

00,3979 

2123 

REF 

2 

LAST 

971 

00,3975 

2129 

ref 

661 

last 

972 

00,3976 

0 bUZ  0 COSINE  Tc  bRANcH 

1 1 TCF  *3 

I 3^75  0 TCF  PRESINE 

1 3*'75  0 TCF  PRESINE 

0 0006  I *3  EXTEND 

9 OlA5  0 DCS  MPAC 

52  1A5  0 OXCH  MPAC 

3 7^A1  1 PRESINE  CAF  QUARTER 

26  lAA  1 AdS  MpAc 


finds  cosine  uSiNg  the  identity 

COS(X)  = SlN(PI/2  - ABSIX)). 


PI/2  scaled. 


2125  REF  662  LAST  972  00»3A7^ 

2126  00,3500 

2127  00,3501 

2128  00,350a 

2129  00,3503 

2130  00,350A 


52  195 

0 SINE 

DXCH 

MPAC 

2D  001 

1 

DDOUbL 

59  OOO 

0 

DVSK 

1 3505 

0 

TCF 

♦ 3 

0 OOO6 

1 

EXTEND 

9 0001 

1 

DCOM 

double  argument- 

see  IF  OVERFLOW  PRESENT. 

IF  NOT,  ARGUMENT  OK  AS  IS. 

IF  SO,  WE  LOST  (OR  GAINED)  Pi,  SO 
complement  MPAC  USING  THE  IDENTITY 


A2131 

2132 

REF 

663 

LAST 

972 

2133 

REF 

669 

LAST 

972 

2139 

2135 

REF 

177 

LAST 

970 

2136 

REF 

1 

SIN(X-(+)PI)  = SIN(-X), 

00,3505  52  1A5  O *3  DXCH  MPAC 

00,3506  3 OlAA  0 CA  MPAC  SEE  IF  ARGUMENT  GREATER  THAN  .5  IN 

00,3507  6 OOOO  1 DOUBLE  MAGNITUDE.  IF  Sn,  REDUCE  IT  TO  l ESS  THAN 

00,3510  5A  OOl  1 TS  L .5  (♦-PI/2  SCALfD)  AS  FOLLOWS; 

00,3511  1 3522  0 TCF  SNl 


2137 

REF 

338 

LAST 

969 

00,3512 

50 

2138 

REF 

5 

LAST 

592 

00,3513 

3 

2139 

2190 

2191 

REF 

665 

LAST 

972 

00,3519 

00,3515 

00,3516 

6 

0 

60 

000  1 INDEX  A 

0 CAF  NEGI/2  ♦! 

OOOO  I DOUBLE 

0006  1 EXTEND 

lAA  0 SU  MPAC 


IF  POSITIVE,  FORM  PI  - X,  IF  NEGATIVE 
USE  -PI  - X, 

GUARANTEED  NO  OvERFlOW. 


21A2  REF  666  LAST  972  00,35lT  5A  1 
2U3  REF  667  LAST  972  00,3520  A OiA5  0 
21AA  REF  668  LAST  972  00,3521  59  195  0 


TS  MPAC 

CS  MPAC  ♦! 

TS  MPAC  ♦! 
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L IMTERPRETER 


21A5  00,3522  0 0006 

2U6  REF  669  LAST  972  00,3523  3 0U5 

21A7  REF  21  LAST  961  00,352A  52  i2A 

2U8  REF  5 LAST  968  00,3525  0 3<:50 


21A9  REF  5 LAST  876  00,3526  0 7^65 

2150  00,3527  00003 

2151  00,3530  lA'+Al 


C2151 

2152 
C2152 

2153 

C2153 

215A 

C215A 

2,155 

C2155 

2156  REF  1 


2157 

REF 

19 

LAST 

93A 

2158 

2159 

REF 

670 

LAST 

973 

2160 

REF 

671 

LAST 

973 

2161 

REF 

672 

LAST 

973 

2162 

REF 

673 

LAST 

973 

2163 

216A 

REF 

67A 

LAST 

973 

2165 

REF 

675 

LAST 

973 

2166 

REF 

676 

LAST 

973 

2167 

REF 

677 

LAST 

973 

2168 

REF 

A5 

LAST 

967 

00,3531 

00,3532 

00,3533 

00,353^ 

00,3535 

00,3536 

00,3537 

00,35A0 

0O,35Al 

00,35A2 

00,35A3 

00,35AA 

00,35A5 

00,35A6 

00,35A7 

00,3550 

00,3551 

00,3552 

00,3553 

00,355^ 

00,3555 

00,3556 


37325 

53250 

60T6A 
I2U6 
21276 
75‘*66 
71'*71 
00236 
32T57 
3 2‘*5A 

0 7151 

0 0006 
3 OU6 
20  U6 
6 OlAA 
26  UA 
0 0006 
3 01A6 
20  1A6 
6 OlAA 
26  IAA 

1 6115 


1 SNl 

1 

1 

0 

EXTEmD 

OCA 

OXCH 

TC 

MPAC 

BUF2 

DSQSUB 

1 

TC 

POLY 

1 

DEC 

3 

0 

2DEC 

♦.3926990796 

1 

0 

2DEC 

-.6A59637111 

1 

1 

2DEC 

♦.318758717 

1 

1 

2DEC 

-.07A7802A9 

0 

0 

2DEC 

♦.00969A988 

0 

0 

CAF 

LBUF2 

0 

TC 

DMPSUB  -1 

1 

EXTEND 

1 

OCA- 

MPAC  ♦! 

0 

DAS 

MPAC  ♦! 

0 

AD 

MPAC 

1 

ADS 

MPAC 

1 

EXTEND 

1 

DCA 

MPAC  ♦! 

0 

DAS 

MPAC  ♦! 

0 

AD 

MPAC 

1 

ADS 

MPAC 

0 

TCF 

DANZIG 

USER'S  OWN  page  NO.  81  E3 

SET  UP  TO  evaluate  hAsTInGS  POLYNOMIAL 

SQUARE  MPAC. 

evaluate  fourth  order  polynomial. 


MULTIPLY  BY  ARGUMENT  AND  SHIFT  LEFT  2. 


neither  SHIFT  OVERFLOWS. 
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P2169  ARCSIN/ARCCOS  ROUTJNS. 


2170 

2171 

REF 

1 

00*3557 

00*3560 

2172 

REF 

1 

00*3561 

2173 

REF 

1 

00,3562 

2174 

REF 

5 

LAST 

972 

00*3563 

2175 

REF 

1 

00*3564 

2176 

REF 

1 

00*3565 

2177 

00*3569 

2178 

REF 

678 

LAST 

973 

00*3567 

2179 

2180 

REF 

REF 

679 

1 

LAST 

974 

00*3570 

00*3571 

3 3000  1 ARCSIN  CAP  LASINEX 

1 3=62  1 TCP  +2 

3 3*’<>2  0 ARCCOS  CAP  LDANZIG 

54  i26  0 TS  ESCAPE 

0 bnz  0 TC  BRANCH 

1 3P74  0 TCP  ACOSST 

1 3974  0 TCP  ACOSZERO 

0 0006  1 EXTEND 

4 0145  0 DCS  MPAC 

52  145  0 DXCH  MPAC 

3 3977  1 CAP  TCSUBTR 


COMPUTE  ARCSIN  bY  USING  THE  IDENTITY 
ARCSIN(X)  = PI/7  - aRCCOSIX). 

(EXITS  IMMEDIATfUY) . 

TEST  SIGN  OP  INPUT, 

start  immediately  IF  POSITIVE. 

ARCCOS(O)  = PI/2  = ,25. 

IF  negative.  USE  the  IDENTITY 
ARCCOS(X)  = PI  _ ARCCOS(-X),  FORCING 
ARGUMENT  POSITIVE. 

SET  EXIT  TO  DO  ABOVE  BEFORE 


2181 

REF 

2 

last 

974 

00*3572 

56  126 

1 

2182 

ref 

1 

00*3573 

54  127 

1 

2183 

REF 

27 

LAST 

971 

00*357'* 

4 7(40 

1 

ACOSST 

2184 

REF 

680 

LAST 

974 

00,3575 

6 0144 

0 

2185 

REF 

339 

LAST 

972 

00,3579 

ID  000 

0 

2186 

REF 

1 

00*3577 

1 3970 

1 

2187 

REF 

1 

00*3600 

1 3956 

0 

LASINEX 

XCH  ESCAPE  ARCSIN/ARCCOS  CoNSI DERA f IONS, 

Ts  ESCAPE2 

CS  HALF  TEST  MAGNITUDE  OF  INPUT. 

AD  MPAC 

CCS  A 

TCP  ACOSOVP  THIS  IS  PROBABLY  AN  OVERFLOW  CASE. 

TCP  ASINEX 


2188 

REF 

1 

00*3601 

2189 

REF 

681 

LAST 

974 

00*3602 

2190 

REF 

261 

LAST 

970 

00*3603 

2191 

REF 

1 

00*3604 

2192  REF  2 LAST  974  00*3605 


2193 

REF 

682 

LAST 

974 

00*3606 

2194 

REF 

683 

LAST 

974 

00,3607 

2195 

REF 

3 

LAST 

974 

00*36lO 

2196  00*3611 


2197 

REF 

664 

LAST 

974 

00*3612 

2196 

REF 

28 

LAST 

974 

00*3613 

2199 

REF 

685 

LAST 

974 

00*361'* 

2200 

REF 

22 

LAST 

973 

00*3615 

2201 

REF 

3 

LAST 

966 

00*3619 

2202 

REF 

62 

LAST 

971 

00,3617 

2203 

REF 

1 

00*3620 

1 3911 

0 

TCF 

AC0SST2 

ID  145 

0 

CCS 

MPAC  *1 

3 7(61 

0 

CAF 

zero 

1 3906 

0 

TCF 

ACOSsO 

NO  OVERFLOW  - PROCEED. 

IF  MAJOR  part  Is  .5.  CALL  ANSWER  0 
UNLESS  MINOR  PArT  NEGATIVE. 


1 s'*!!  0 


TCF  AC0SST2 


54  145  0 ACOSsO  TS  MPAC  *1 

54  144  1 TS  MPAC 

0 0126  1 TC  ESCAPE 

0 0006  1 AC0SST2  EXTEND 


4 0145  0 
6 7(40  0 
52  145  0 
52  124  1 


DCS  MPAC 
AD  HALF 
DXCH  MPAC 
DXCH  BUF2 


NOW  that  argument  IS  IN  proper  range* 

BEGIN  COMPUTATION,  uSE  HASTINGS 
APPROXIMATION  ARCCOSIX)  = SORT ( 1 -X ) P (X ) 
IN  A scaled  version  WHERE  P(X)  IS  A 
SEVENTH  ORDER  POLYNOMIAL, 


0 3:113  0 


TC 


SORTSUB 


RETURNS  WITH  NORMALIZED  SQUARE  ROOT. 


ID  125  0 
1 3963  0 


CCS 

TCF 


MPTEMP 

ACOSSHR 


SEE  IF  UN-NORMAl  IzAtION  REQUIRED, 
IF  SO. 


488954A  YJL  SYSTEM  FOR  AGCi  NEW  PRQGRAM  sMePATIN  BY 


L 

220A 

2205 

2206 

2207 

2208 

2209 
C2209 

2210 
C2210 

2211 

C2211 

221,2 

C2212 

2213 
C2213 

2214 
C2214 

2215 
C2215 

2216 
C2216 

2217 

2218 

2219 

2220 

2221 

2222 

2223 

2224 

2225 

2226 

2227 

2228 

2229 


interpreter 

REF  686  LAST  974 
REF  23  LAST  974 
REF  687  LAST  975 

REF  6 LAST  973 


REF  2 LAST  973 
REF  20  LAST  973 
REF  4 LAST  974 


REF  688  LAST  975 

REF  29  last  974 
REF  689  LAST  975 
REF  2 LAST  974 


REF  690  LAST  975 
REF  3 LAST  972 
REF  691  LAST  975 
REF  46  LAST  973 


00,362l 

52  N45 

0 

00,3622 

52  124 

1 

00,3623 

52  145 

0 

00,362^* 

0 7^65 

1 

00,3625 

00006 

1 

00,3626 

13240 

0 

00,3627 

23630 

0 

00,3630 

74^21 

0 

00,3631 

47175 

1 

00,363ii 

02440 

0 

00,3633 

20237 

0 

00,363^ 

75O67 

1 

00,3635 

70142 

1 

00,3636 

03''36 

0 

00,3637 

26156 

1 

00,3640 

74O37 

0 

00,3641 

57640 

1 

00,3642 

03046 

0 

00,3643 

07143 

0 

00,364^ 

76654 

1 

00,3645 

42244 

0 

00,3646 

3 2454 

0 

00,364^ 

0 7151 

0 

00,3650 

0 0126 

1 

00,3651 

0 0006 

1 

00,3652 

4 0145 

0 

00,3653 

6 7140 

0 

00,365^ 

52  U5 

0 

00,3655 

0 0127 

0 

00,3656 

0 0006 

1 

00,365/ 

4 0I45 

0 

00,3660 

6 7141 

1 

00,3661 

52  145 

0 

00,3662 

1 6115 

0 

AC0S3 


SJBTR 

A5INEX 

LDANZIG 


dec  13,  I966  MASTER  PAGE  975 


USER'S  O^N  pAGF  NO.  83  E3 


5XCH 

OXCH 

OXCH 

MPAC 

BUF2 

MPAC 

SET  UP  FOR  polynomial  EVALUATION, 

TC 

POLY 

DEC 

6 

2DEC 

♦,353553385 

COEFFICIENTS  ARF  C 2 ( ♦ I ) /P I SORT ( 2 ) WHERE 

2DEC* 

-.0483017006 

B^l#  I 

ZDEC* 

♦.0200273085 

B^24  WHERE  C STANDS  FOR  ORIGINAL  COEFFS. 

2DEC» 

-.0112931863 

B^34 

20EC4 

♦.00695311612 

B^4« 

2DEC'' 

-.00384617957 

B^5« 

2DEC# 

♦.001501297736  B^6» 

2DEC» 

-.000284160334  B^74 

CAF 

LBUF2 

DO  FINAL  MULTIPIY  AND  GO  TO  ANY 

TC 

DMPSUB  -1 

EPILOGUE  SEQUENCES, 

TC 

ESCAPE 

EXTEND 

EPILOGUE  for  negative  INPUTS  TO  ARCCOS, 

OCS 

MPAC 

AD 

HALF 

FORMS  PI  - ARCCoS(-X)  = ARCCOS(X), 

OXCH 

MPAC 

TC 

ESCAPE2 

GO  TO  POSSIBLE  ARCSIN  EPILOGUE, 

EXTEND 

DCS 

MPAC 

ARCSIN  EPILOGUE  - GeT  ARCSIN(X) 

AD 

quarter 

= PI/2  - ARCCOS(X), 

OXCH 

MPAC 

TCP 

DANZIG 

488954A  Y JL  SySTEw  pOR  Aqc!  pROQRA.v)  S^^EpATlN  BY  EyLES 


2230 

2231 

2232 

2233 
223A 

2235 

2236 


2237 

2238 

2239 
22A0 

22A03 

22406 


niERPRETER 

rEF  340  LAST  974 
REF  57  last  964 

REF  63  LAST  974 
REF  4 LAST  942 
REF  1 


REF  2 LAST  974 

REF  7 LAST  969 

REF  4 LAST  975 

REF  3 LAST  976 


REf  1 


00,3663 

53  UOO 
3 7740 

54  125 

1 

acosshr 

index 

CAF 

TS 

00 ,366^ 

00,3665 

0 

0 

00 ,3666 

0 2073 

1 

TC 

00,3667 

1 3621 

0 

TCF 

00,3670 

0 OOO6 

1 

ACOSOVF 

EXTEND 

00,3671 

1 3606 

0 

32F 

00,3672 

0 6000 

1 

ACOSABRT 

TC 

00,3673 

01301 

1 

OCT 

00,367A 

3 7^41 

1 

ACOSZERO 

CAF 

00,3675 

1 3607 

1 

TCF 

00,3676 

77^63 

0 

NEG12 

DEC 

00,3677 

1 3651 

1 

TCSubTR 

TCe 

A 

BIT14 

MRTEMP 

VSHRRND 

AC0S3 


ACOSsO 


ABORT 

1301 

quarter 

ACOS=0  *1 

-12 

SuBTR 


DEc  l3»  1966  master  rAqE  976 


USER'S  OWN  PAGE  NO,  84  E3 

THE  SHjFT  RIGHT  IS  LESS  THAn  14  SINCE 
THE  INPUT  WAS  NoN-ZERO  DP. 


DP  SHIFT  RIGHT  aND  ROUND, 

PROCEED, 

IF  major  part  was  only  I more  than  .5, 

CALL  answer  zero. 


ACOS(O)  = PI/2. 

SET  MPAC  AND  EXIT  VIA  ESCAPE, 


A8895AA  YJL  SYSTEM  FOR  AGCj  NEh  PROGRAM  SHEPATIN  BY  EYLES 


dec  13,  1966  master  PAGE  977 


L niERPRETER  USER'S  OWN  PAGf  NO.  85  E3 

P22A1  the  following  INSTRUCTIONS  ARE  A^/AILABLE  FOR  SETTING,  MODIFYING,  AND  BRANCHING  ON  INDEX  REGISTERS; 


R22A3  1.  AXT 

R22AA  1.  AXC 

R22A5  3,  LXA 

R22A6  A.  LXC 

R22A7  5,  SXA 

R22A8  6,  XCHX 


ADDRESS  TO  INDEX  TRUE. 
address  to  INDEX  COMPLEMENTED. 

LUAD  INDEX  FROM  ERASABLE. 

LUAD  INDEX  complemented  FROM  ERASABLE. 

SIORE  index  in  ERASABLE. 

exchange  index  reIgster  with  erasable. 


R22A9  7,  inCR  INCREMENT  INDEX  REGISTER. 

R2250  8.  XAD  ERASABLE  ADD  TO  INDEX  REGISTER. 

R2251  9.  XSU  ERASABLE  SUBTRACT  FROM  INDEX  REGISTER. 


R2262 


10.  TlX 


BRANCH  ON  INDEX  REGISTER  AND  DECREMENT. 


2253  01»2557  SANK  01 


225A 

RcF 

1 

01*2557 

0 265A 

1 

AXT 

TC 

TAGSUB 

select  appropriate  index  register. 

2255 

REF 

23 

LAST 

967 

01,2560 

3 0107 

1 

CA 

POLISH 

2256 

REF 

A 

LAST 

897 

01 ,256l 

50  120 

1 

XSTORE 

INDEX 

INDEXLOC 

CONTAINS  C(FIXLOC)  OR  CiFIXLOC),!. 

2257 

REF 

22 

LAST 

907 

01,2562 

5A  Oa6 

1 

TS 

XI 

2258 

REF 

A7 

LAST 

975 

01,2563 

1 6115 

0 

TCF 

DANZIG 

2259 

REF 

2 

LAST 

977 

01*256^ 

0 265A 

1 

AXC 

TC 

TAGSUB 

2260 

ref 

2A 

LAST 

977 

01,2565 

A 0107 

0 

cs 

POLISH 

2261 

REF 

1 

01,2566 

0 2561 

1 

TC 

XSTORE 

2262 

REF 

1 

01.2567 

0 26A2 

0 

LXA 

TC 

15ADRERS 

LOAD  INDEX  REGISTER  FROM  ERASABLE. 

2263 

ref 

25 

last 

977 

01,2570 

50  107 

1 

index 

POLISH 

226A 

01,2571 

3 OOOO 

1 

CA 

0 

2265 

REF 

2 

LAST 

977 

01,2572 

1 2561 

0 

TCF 

XSTORE 

2266 

REF 

2 

LAST 

977 

01*2573 

0 26A2 

0 

LXC 

TC 

15ADRERS 

LOAD  NDX  REG  FROM  ERASABLE  COMPLEMENTED. 

2267 

ref 

26 

last 

977 

01  ,257A 

50  107 

1 

index 

POLISH 

2268 

01*2575 

A 0000 

0 

cs 

0 

2269 

REF 

3 

LAST 

977 

01,2576 

1 2561 

0 

TCF 

XSTORE 

2270 

REF 

3 

LAST 

977 

01*2577 

0 26^,2 

0 

SXA 

TC 

15ADRERS 

STORE  index  register  IN  ERASABLE. 

2271 

ref 

5 

last 

977 

01,2600 

50  120 

1 

INqEx 

indexloc 

2272 

REF 

23 

LAST 

977 

01,2601 

3 00A6 

0 

CA 

XI 

22725 

REF 

27 

LAST 

977 

01,2602 

50  107 

1 

MSTOREl 

INDEX 

POLISH 

5A  OOO 

2273 

0 i 1 2 60  ^ 

0 

TS 

0 

22735 

REF 

A8 

LAST 

977 

01,260A 

1 6115 

0 

TCF 

DANZIG 

* 

'•88954A  YJL  SYSTEM  FOR  AGC; 


L 

nTERPRLTER 

227A 

REF 

A 

LAST 

977 

2275 

REF 

28 

LAST 

977 

2276 

2277 

REF 

6 

LAST 

977 

2278 

REF 

2A 

LAST 

977 

2279 

REF 

1 

2280 

REF 

5 

LAST 

978 

2281 

REF 

29 

LAST 

978 

2282 

2283 

REF 

7 

LAST 

978 

228A 

REF 

25 

LAST 

,978 

2286  R£F  3 LAST  977 

2287  REF  30  LAST  978 

228(J  REF  1 

2289  REF  6 LAST  978 

2290  REf  31  last  978 

2291 

2292  REF  2 LAST  978 


2293 

REF 

A 

LAST 

978 

229A 

REF 

8 

last 

978 

2295 

REF 

36 

LAST 

875 

2296 

REF 

9 

LAST 

978 

2297 

REF 

26 

LAST 

978 

2298 

2299 

REF 

50 

LAST 

978 

2300 

REF 

10 

LAST 

978 

2301 

ref 

27 

LAST 

978 

23012 

REF 

6 

last 

967 

PROGRAM  SMePATIN  BY  eYLes 


,2605  0 2&A2  0 XCHX  TC 

,2606  50  107  1 INDEX 

,2607  3 0^00  1 CA 

,2610  60  120  1 INDEX 

,26li  56  0A6  0 XCH 

,2612  1 2602  0 TCF 

,2613  0 26A2  0 XAD  TC 

,261A  50  107  1 INDEX 

,2615  3 OOOO  1 CA 

,2616  50  120  1 XAD2  INDEX 

,261/  26  0A6  1 ADS 

,2620  1 6115  0 TCF 

,262l  0 265A  1 ImCR  TC 

,2622  3 0107  1 CA 

,2623  I 2616  0 TCF 

,262A  0 26A2  0 XSU  TC 

,2625  50  107  1 index 

,2626  A OOOO  0 CS 

,2627  I 2P16  0 TCF 


,2630  0 265A  1 TjX  TC 

,2631  50  120  1 INDEX 

,2632  A 0050  0 CS 

,2633  50  120  1 INDEX 

,263A  6 0OA6  0 AD 

,2635  0 0006  1 EXTEND 

,2636  6 6115  1 3ZMF 

*263/  53  120  1 DOTIXBR  INDEX 

,26A0  56  0A6  0 XCH 

,26Al  1 6/15  0 TCF 


NEW 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 


Dec  U,  1966  MASTER  PAGE  978 


U5ER»S  OWN  page  NO,  86  E3 

15ADRERS 

POLISH 

0 

INDEXLOC 

XI 

MSTOREl 

EXCHANGE  INDEX  REGISTER  WITH  ERASABLE, 

15ADRERS 

POLISH 

0 

INDEXLOC 

ADD  erasable  TO  INDEX  REGISTER. 

XI 

DANZIG 

IGNORING  OVERFLOWS, 

TAGSUB 

POLISH 

XAD2 

increment  index  ReGISTE^^* 

15ADRERS 

POLISH 

0 

XAD2 

SUBTRACT  ERASABi E FROM  INDEX  REGISTER. 

TAGsUB 

INDEXLOC 

SI 

INDEXLOC 

BRANCH  and  decrement  ON  iNDEx. 

XI 

DANZIG 

NO  OPERATION  IF  DECREMENTED  INDEX  IS 
NEGATIVE  OR  ZERO, 

INDEXLOC 

XI 

Ignoring  overflows. 

Goto 


Do  the  branch  USING  tHE  CADR  IN  POLISH 


^8895^A  YJL  SySTEM  pOR  AGC5  NEW  pROG^Av)  S^EPATIN  BY  EYLES 


dec  13.  1966  master  pAQE  979 


P23013 

23015 

23016 

23017 

23018 

23019 

2302 

23021 

23022 

23023 
2302A 

R2303 

2305 

2306 


2307 

2308 

2309 

2310 


Interpreter  user's  own  page  no.  87  e3 

subroutine  to  conVE:it  An  Erasable  address  (ii  bitsi  to  an  ebank  setting  anD  subaddress. 


REF 

REF 

REF 

REF 

32 

LAST 

LAST 

LAST 

LAST 

978 

907 

976 

967 

01. 2642 

01.2643 

01.2644 

01.2645 

4 0107 

6 5371 
10  000 
3 OHO 

0 

1 

0 

1 

15ADRER5 

CS 

AD 

CCS 

CA 

POLISH 

2 

3A1 

A5 

DEC45 

A 

fixloc 

DOES  THE  address  POINT  TO  THe  WORK  AREA? 
YES,  ADD  FIXLOr,  EBANK  OK  AS  IS. 

01  ,2646 

1 2653 

1 

TCF 

♦5 

REF 

7 

LAST 

907 

01,2647 

3 5370 

0 

CA 

OCTUOO 

NO,  SET  EbANk  6 MAicE  UP  SUbADDRESS, 

REF 

33 

LAST 

979 

01,2650 

55  107 

1 

XCH 

POLISH 

REF 

65 

LAST 

915 

01  ,2651 

54  003 

0 

TS 

ebank 

15 

1 Act 

7 4553 

MASK 

K Cr 

LM  jT 

915 

Ui »265fc 

1 

LOWS 

REF 

3A 

LAST 

979 

01,2653 

25  107 

0 

♦ 5 

ADS 

POLISH 

FALL  INTO  TAGSUB,  AND  RETURN  VIA  Q. 

subroutine 

WHICH  SET: 

1 the  address  of  the 

: SPEC 

ifieO  index 

IN  INDEXLOC.  (ACTUALLY,  THE  ADDRESS  -38D.) 

REF 

A6 

LAST 

979 

01,2654 

3 OHO 

1 

TAGSUB 

CA 

FIXLOC 

REF 

11 

LAST 

978 

01,2655 

54  120 

0 

TS 

INDEXLOC 

REF 

A2 

LAST 

9A8 

01,2655 

10  020 

1 

CCS 

CYR 

BIT  15  SPECIFIES  INDEX. 

REF 

12 

LAST 

979 

01,2657 

24  120 

1 

INCR 

INDExLOC 

0 MEANS  USE  X2. 

REF 

29A 

LAST 

970 

01,2660 

0 0002 

0 

TC 

0 

REF 

295 

LAST 

979 

01,2661 

0 0002 

0 

TC 

Q 

1 for  X1, 

^88954a  YJL  system  FOr  aGC!  NEW  PrOQ^aM  SMEPaTin  3Y  EYLEs 


DEC  13*  1966  MAsTEr  PaGE  980 


L 

P2311 


R2313 

R2315 

R2317 

R2319 

R2321 

R2322 

2323 

232A 

2325 


2326 

2327 

2328 

2329 

2330 

2331 

2332 

2333 

2334 

2335 

2336 

2337 

2338 


Interpreter  user's  own  pagf  no.  88  e3 

Miscellaneous  operation^  '•odes  with  direct  addresses,  included  here  are: 


1.  ita  siore  qpRet  (Return  address)  in  erasable. 

2.  call  call  a subroutine,  leaving  return  in  QPRET. 

3.  RTB  RETURN  TO  BASIC  LANGUAGE  AT  THE  GIVEN  ADDRESS. 

4.  BHIZ  branch  if  THE  HIOH  ORDER  OF  MPAC  IS  ZERO  (SINGLE  PRECISION). 

5.  BOV  branch  on  overflow. 

6.  GOTO  SIMPLE  SEQUENCE  CHANGE. 


REF  43  LAST  979  01*2662  10  ^20  1 RTB/BHIZ  CCS 


REf  35  last  979  01,2663  3 0l07  1 RTB  CA 

REF  13  last  370  0l,266A  1 5^46  0 TCF 


REF  692  last  975  01*2665  lO  l44  i BHIZ  CCS 

REF  51  LAST  978  01,2666  I 6115  0 TCF 

REF  7 LAS!  978  01,2667  1 6(15  0 TCF 

REF  52  last  980  01,2670  1 6115  0 TCF 

REF  8 LAST  980  01,267l  1 6(15  0 TCF 

REF  21  last  968  01,2672  10  HI  1 BOV(B)  CCS 

01,2673  1 2«>75  0 TCF 

REF  53  LAST  980  01,267^  1 6115  0 TCF 

REF  22  LAST  980  01,2675  54  HI  1 TS 

REF  44  LAST  980  01,2676  10  020  1 CCS 

REF  I 01,2677  1 2663  1 TCF 

01,2700  00360  1 B5TOB8  OCT 

REF  9 LAST  980  01,2701  1 6(15  0 TCF 


CYR 

POLISH 

bankjump  call  basic  routine. 


MPAC 

DANziG 

GOTO 

Danzig 

GOTO 

OVFIND  BRANCH  ON  OVERFI  OW  TO  BASIC  OR  INTERP. 

♦ 2 

DANZIG 

OVFIND 

CYR 

RTB  IF  basic. 

360 

GOTO 


48895<VA  YJL  system  FOR  AGC ; NEW  PROGRAM  SHePATIN  BY  eYUeS 


L interpreter 


2339 

REF 

REF 

REF 

REF 

REF 

REF 

A5 

LAST 

LAST 

LAST 

LAST 

LAST 

LAST 

980 

01,2702 
01  ,2703 
01,270A 

01.2705 

01.2706 

01  ,270T 

10  020 

0 6T72 

1 6115 

1 6^5 

1 6115 

10  020 

1 

BZE/GOTO 

CCS 

23AO 

23A1 

23A2 

23A3 

23AA 

6 

5A 

10 

55 

A6 

97A 

980 

980 

981 

981 

0 

0 

0 

0 

1 

BPL/BMN 

TC 

TCF 

TCF 

TCF 

CCS 

23A5 

REf 

1 

01 ,2710 

1 2 f 16 

1 

TCF 

23A6 

01,2711 

12000 

1 

5310 

OEC 

23A7 

REF 

7 

LAST 

981 

01 ,2712 

0 6T72 

0 

TC 

23A8 

REF 

56 

LAST 

981 

01,2713 

1 6115 

0 

TCF 

23A9 

REF 

57 

LAST 

981 

01 ,271'^ 

1 6115 

0 

TCF 

2350 

REF 

11 

LAST 

981 

01,2715 

1 6a5 

0 

TCF 

2351 

REF 

8 

LAST 

981 

01,2716 

0 bHZ 

0 

BPL 

TC 

2352 

REf 

12 

LAST 

981 

01,2717 

1 6a5 

0 

TCF 

2353 

REF 

13 

LAST 

981 

01,2720 

1 6a5 

0 

TCF 

235A 

REF 

58 

LAST 

981 

01,2721 

1 6115 

0 

TCF 

2355 

REF 

at 

LAST 

981 

01,2722 

10  020 

1 

CALL/ITA 

CCS 

2356 

REf 

1 

01,2723 

1 6T07 

0 

TCP 

2357 

REF 

22 

LAST 

761 

01,272A 

0 A^25 

0 

TC 

2358 

REF 

7 

LAST 

978 

01,2725 

0 26A2 

0 

TC 

23585 

REF 

A7 

LAST 

979 

01,2726 

50  HO 

1 

INDEX 

2359 

REF 

A 

LAST 

967 

01,2727 

3 0052 

0 

CA 

2360 

REF 

2 

LAST 

978 

01  ,2730 

1 2602 

0 

TCF 
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USER'S  OWN  PAGF  NO.  89  £3 

CYR 

BRANCH 

DANZIG 

SEE  WHICH  OP-CODE  IS  DESIRED, 

DO  BZE, 

GOTO 

DANZIG 

CYR 

BPL 

DO  GOTO, 

5 B*10 

SHIFTS  OP  CODE  IN  SWITCH  INSTRUCTION  ADR 

branch 

DANZIG 

DANZIG 

DO  BMN, 

GOTO 

ONLY  IF  NNZ, 

BRANCH 

GOTO 

GOTO 

DANZIG 

CYR 

CALL 

If  POSITIVE  OR  7ER0. 

CCSHOLE 

15ADRERS 

FiXLOC 

QPRET 

MSTOREl 

STORE  QPRET,  (TaGSUB  AFTER  IsADRERS  IS 
SLOW  IN  THIS  CASE,  BUT  SAVES  STORAGE,) 

488954A  YJL  SYSTEM  FOR  AGC;  NEW  PRO<^9AM  SHePAtIN  BY  eYLeS 
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L interpreter  USER'S  OWN  PAGF  NO.  90 

P2361  the  following  OPERATIONS  ARe  AVAILABLE  FOR  ALTERING  AND  TESTING  INTeRPRETIVe  SwItCHeS: 


R2363 

R236A 

R2365 

R2366 

R2367 

R2368 

R2369 

R2370 

R2371 

R2372 

R2373 

R237A 

R2375 

R2376 


00 

01 

BONSET 

SETGO 

02 

03 

04 

05 

06 

bofset 

SET 

BONINV 

INVGO 

BOFINV 

07 

INVERT 

10 

BONCLR 

1 1 

CLRGO 

12 

BOFCLR 

13 

CLEAR 

14 

15 

BON 

BOFF 

SET  A SWITCH  AND  OO  A GOTO  IF  IT  WAS  ON. 

StT  A SWITCH  AND  OO  A GOTO, 

SET  A SWITCH  AND  OO  A GOTO  IF  IT  WAS  OFF 

StT  A SWITCH. 

invert  a switch  and  branch  if  it  WAS  ON. 
INVERT  A SWITCH  AND  DO  A GOTO. 

INVERT  A switch  AND  BRANCH  IF  IT  WAS  OFF 
INVERT  A SWITCH. 

clear  a switch  ANO  branch  if  IT  WAS  ON. 

clear  a Switch  ano  do  a goto. 

cLear  a switch  ano  Branch  if  it  was  off. 
clear  a switch. 

BRANCH  IF  A SWITCH  WAS  ON. 
branch  if  a switch  WAS  OFF. 


E3 


R2377  THE  ADDRESS  SUPPLIED  WITH  THE  SWITCH  INSTRUCTION  IS  INTERPRETED  AS  FoLLqWSS 

R2379  BITS  1-A  SWITCH  BIT  NUMBER  (1-15). 

R2380  BITS  5-8  SWITCH  05ERAII0N  NUMBER. 

R2381  BITS  9-  SWITCH  WORD  NUMBER  (JP  TO  64  SWITCH  WORDS). 

R2382  the  address  itself  is  MADe  up  by  the  YUL  system  assembler,  the  BRANCH  INSTRUCTIONS  REQUIRE  TWO 

R2384  ADDRESSES,  THE  SECOND  TAKEN  AS  THE  DIRECT  (OR  INDIRECT  If  IN  ERASABLE)  ADDRESS  Op  THE  BRANCH. 


2386 

REF 

3 

LAST 

748 

01 12731 

2387 

REF 

36 

last 

980 

01,2732 

2388 

REF 

342 

LAST 

979 

01,2733 

2389 

REF 

43 

LAST 

966 

01,2734 

2390 

REF 

1 

01.2735 

2391 

REF 

42 

LAST 

938 

01 ,2736 

2392 

LAST 

01,2737 

2393 

REF 

37 

982 

0 1 ,2740 

2394 

REF 

1 

01 ,2741 

3 5S61  0 SWITCHES  CAF  LOW4 

7 0i07  0 mask  polish 

50  DOO  1 INDEX  A 

3 0 CAF  BIT15 

54  i21  1 TS  SwBIT 

3 7(47  1 CAF  BIT7 

0 0V06  1 EXTEND 

7 0107  0 MP  POLISH 

54  120  0 TS  SWWORD 


leave  the  switch  bit  in  SWBIT  . 
(NUMBER  FROM  LEFT  TO  RIGHT.) 

LEAVE  the  Switch  number  in  swword. 


2395  01,2742  0 0U04  0 

2396  REF  343  LAST  982  01,2743  50  UOO  1 

2397  REF  32  LAST  630  01,2744  3 0U74  1 


INHINT  DURING  SWITCH  CHANGE  SO  RUPT  CAN  USE  TOO 

INDEX  A LEAVE  THE  SWITCH  WORD  ITSELF  IN  L. 

CA  state 


2398  REF  296  LAST  979  01,2745  54  002 


TS  0 


Q WILL  BE  used  flS  A CHANNEL 


^88954A  YJL  SYSTEM  FOR  AGC;  NEW  PROGRAM  S^EPATIN  BY  EYLES 


L interpreter 


2399 

REF 

35 

LAST 

937 

01 ,27A6 

3 

7/A3 

0 

CAF 

BITll 

2A00 

01 ,27A7 

0 

0006 

1 

EXTEND 

2A01 

REF 

38 

LAST 

982 

01,2750 

7 

0i07 

0 

MP 

POLISH 

2A02 

1 

3OII 

MASK 

B3TOBA 

REF 

01 ,2751 

7 

0 

2A03 

REF 

3AA 

LAST 

982 

01,2752 

50 

000 

1 

INDEX 

A 

2A0A 

01,2753 

1 

2 /5A 

1 

TCF 

♦ 1 

2A05 

REF 

2 

LAST 

982 

01  ,275'' 

3 

0121 

0006 

0 

♦ 1 

CA 

SWBIT 

2A06 

0 1 ,275s 

0 

1 

extend 

2A07 

REF 

297 

LAST 

982 

01,275s 

OA 

002 

1 

ROR 

Q 

2A08 

REF 

1 

01,275/ 

1 

2/66 

0 

TCF 

SWSTORE 

2A09 

REF 

3 

LAST 

983 

01,2760 

3 

0121 

0 

♦ 5 

CA 

SWBIT 

2A10 

01,2761 

0 

0006 

1 

EXTEND 

2AII 

REF 

298 

LAST 

983 

01,2762 

06 

002 

0 

RXOR 

Q 

2A12 

REF 

2 

LAST 

983 

01,2763 

1 

2 /66 

0 

TCF 

SWSTORE 

2A13 

REF 

A 

LAST 

983 

01  ,276'* 

A 

0121 

1 

♦ 9D 

CS 

SWBIT 

2A1A 

REF 

299 

LAST 

LAST 

983 

982 

01.2765 

01.2766 

7 

50 

0002 

120 

1 

SWSTORE 

MASK 

index 

0 

SWWORD 

2A15 

REF 

2 

1 

2A16 

REF 

33 

LAST 

982 

01,276/ 

5A 

07A 

0 

TS  ■ 

state 
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USER'S  OWN  page  NO,  9l 


E3 


DISPATCH  SWITCH  BIT  OPERATION  AS  IN  BITS 
7-8  OF  POLISH. 

GETS  AX2-8IT  COnE, 


00  - set  switch  in  question. 


01  - invert  switch. 


10  - CLEAR. 


NEW  SWITCH  WORD. 


48895^A  YJL  system  fOr  AGC:  nEW  PrOG^^aM  SHEPaTin  by  EYLEs 


2417 

2418 

2419 

2420 

2421 

2422 

2423 

2424 

2425 

2426 

2427 

2428 

2429 

2430 

2431 

2432 

2433 

2434 


2435 


2436 

2437 


IMTERPRETER 


01,2770 

REF  29  LAST  937  01,2771 

01,2771! 

REF  39  LAST  983  01,277^ 

REF  2 LAST  983  01,2774 

REF  345  LAST  983  01,277^ 

01,277<> 

REF  300  LAST  983  01,277/ 

REF  5 LAST  983  01,3000 

REF  346  LAST  984  01,3O0l 

REF  1 01,3002 

REF  1 01,3003 

REF  2 LAST  984  01,3004 

REF  23  LAST  981  01,3003 

REF  24  LAST  984  01,3006 

REF  301  LAST  984  01,3007 

REF  1 01,3010 

01,3011 


0 0P03  1 +130  RElinT 

3 7/41  1 CAF 

0 0006  1 EXTEND 

7 0107  0 MP 

7 3OII  0 MASH 

50  OOO  1 INDEX 

1 2/77  0 TCF 

4 0002  1 ♦!  CS 

7 0121  1 TEST  mask 

10  000  0 CCS 

1 3OI2  0 TCF 

1 6/64  0 *5  TCF 

1 3012  0 TCF 

0 4/25  0 TC 

0 4/25  0 TC 

3 0002  0 +90  CA 

1 3OOO  0 TCF 


00014  1 B3T0B4  OCT 


REF  30  LAST  916  01*3012  24  154  1 St^SKIP  INCR 

REF  1 01*2731  S/I/  EQUALS 

REF  59  LAST  981  01,3013  1 6115  0 *130  TCF 


BIT13 


POLISH 

B3T0B4 

A 

♦ 1 

Q 

SWBiT 

A 

SWSKIP 

SWBRANCH 

SWSkIP 

CCSHOLE 

CCSHOLE 

Q 

TEST 

14 


LOC 

SWITCHES 

DANZIG 


dec  13,  1966  master  PAGE  984 


USER'S  OWN  PAGf  NO.  92  E3 

11  - nOOP. 

DISPATCH  SEQUCE  CHANGING  OR  BRANCHING 
CODE. 

ORIGINALLY  STORrD  IN  BITS  5-6. 

00  - branch  IF  ON. 


01  - GO  TO. 

HERE  ONLY  ON  bIT  15. 


10  - BRANCH  IF  OFF. 


11  - NOOP 


<f88954A  YJL  SYSTEM  FOR  AGC:  NeW  PRO^^AM  SHePAtIN  BY 


L single  precision  subroutines 


0001 

R0002 

SINGLE 

PRECISION 

0003 

REF 

30 

LAST 

975 

OOOA 

REF 

1 

0005 

REF 

1 

0006 

REF 

2 

LAST 

985 

0007 

0008 

REF 

3 

LAST 

985 

0009 

REF 

1 

0010 

ref 

4 

last 

985 

0011 

REF 

5 

LAST 

985 

0012 

REF 

4 

LAST 

547 

0013 

OOIA 

REF 

6 

LAST 

985 

0015 

REF 

7 

LAST 

985 

0016 

REF 

2 

LAST 

985 

0017 

ref 

1 

0018 

0019 

REF 

8 

LAST 

985 

0020 

ref 

1 

0021 

0022 

REF 

1 

REF 

002  3 

1 

002A 

0025 

REF 

2 

LAST 

985 

0026 

REF 

1 

0027 

0028 

REF 

9 

LAST 

985 

0029 

0030 

REF 

10 

LAST 

985 

0031 

REF 

302 

LAST 

984 

0032 

ref 

347 

last 

984 

0033 

REF 

5 

LAST 

985 

003A 

REF 

303 

LAST 

985 

0035 

0036 

0037 

5372 


NE  AND  COSINE 

5372 

6 7^40 

0 

SPCOS 

5373 

55*127 

0 

SPSIN 

537A 

1 5376 

1 

5375 

4 1127 

0 

5375 

6 OOOO 

1 

SPT 

5377 

55*127 

0 

5400 

1 5411 

1 

5401 

57*127 

1 

5402 

51*127 

1 

5403 

6 706 

1 

540A 

4 0000 

0 

5405 

6 1127 

1 

5405 

55*127 

0 

5407 

1 5411 

1 

5410 

1 5427 

1 

5411 

0 0006 

1 

POLLEY 

5412 

7 1127 

0 

5413 

55*130 

0 

541A 

0 0006 

1 

5415 

7 5434 

0 

5415 

6 5433 

0 

541  ( 

0 OOO6 

1 

5420 

7 1130 

0 

5421 

6 5432 

1 

5422 

0 0006 

1 

5423 

7 1127 

0 

5424 

20  001 

1 

5425 

55*127 

0 

5425 

0 0002 

0 

5427 

50  OOO 

1 

ARG90 

5430 

4 706 

0 

5431 

0 0002 

0 

5432 

31103 

1 

Cl/2 

5433 

65552 

0 

C3/2 

5434 

01124 

1 

C5/2 
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USER'S  OWN  page  no.  1 


BLOCK  02 


AD  half  arguments  SCALED  AT  PI 

TS  TEMK 

TCF  SPT 

CS  TEMK 

DOUBLE 

TS  TEMK 

TCF  POLLEY 

XCH  TEMK 

INDEX  TEMK 

AD  LIMITS 

COM 

AD  TEMK 

TS  TEMK 

TCF  POLLEY 

TCF  ARG90 

EXTEND 
MP  TEMK 

TS  SQ 

EXTEND 
MP  C5/2 

AD  C3/2 

EXTEND 
MP  SQ 

AD  Cl/2 

EXTEND 
MP  TEMK 

ODOUBL 

TS  TEMK 

TC  Q 

INDEX  A 

CS  LIMITS 

TC  0 

DEC  .785313A 

DEC  -,3216U6 

DEC  ,0363551 


RESULT  SCALED  AT  1 


48895<fA  YJL  SYSieM  FOR  AGC}  NeW  PRO^RA.'^  SI^ePATIN  BY  E^LeS 
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U single  precision  subroutine^  USER'S  OWN  page  no.  I 

R0038  emteR  with  argument  in  a,  e^it  wiih  root  in  a.  if  given  a negative  argument,  the  Return  skips  with  CCS  result. 

ROOAO  MINUS  zero  RETURNS  LIKE  PLU^'  ZERO* 

ROOAl  MAXIMUM  error  IN  ANSWER  IS  No  GREATER  THAN  2 BITS, 

Rooa2  Interrupt  programs  using  sprdot  must  save  and  restore  sr. 


0043 

ref 

1 

0044 

REF 

348 

LAST 

985 

0045 

REF 

1 

0046 

REF 

304 

LAST 

985 

0047 

REF 

305 

LAST 

986 

0048 

REF 

306 

LAST 

986 

00A9 


0050 

REF 

2 

LAST 

23 

0051 

REF 

2 

LAST 

562 

0052 

0053 

REF 

1 

0054 

REF 

2 

LAST 

986 

0055 

REF 

3 

LAST 

986 

0056 

REF 

30 

last 

971 

0057 

REF 

31 

LAST 

986 

0058 

REF 

2 

LAST 

23 

0059 

REF 

2 

LAST 

159 

0060 

ref 

349 

last 

986 

0061 

REF 

1 

0062 

0063 

REF 

1 

0064 

REF 

36 

LAST 

983 

0065 

0066 

REF 

4 

LAST 

986 

0067 

REF 

1 

0068 

REF 

2 

LAST 

986 

0069 

REF 

3 

LAST 

986 

0070 

REF 

350 

LAST 

986 

0071 

REf 

4 

last 

986 

0072 

REF 

1 

0073 

0074 

REF 

5 

LAST 

986 

0075 

0076 

REF 

a cc 

24 

LAST 

848 

Ktr 

6 

LAST 

986 

0077 

0078 

REF 

32 

LAST 

986 

0079 

0080 

REF 

3 

LAST 

986 

0081 

0082 

REF 

33 

LAST 

986 

5A36  55'T31  1 SPROOT 

5A36  13  000  0 

5A37  1 5‘'A3  0 

5AaO  0 0002  0 
5Aa1  2A  002  0 

5AA2  0 0002  0 


5AA3  0 0006  1 POSARG 
SAAA  23'130  1 
5AAS  6 5522  1 
54A6  5A  Ooo  0 
54A/  1 5511  0 

5450  57*131  0 

5451  55*131  1 SPR00T3 

5452  54  021  0 


5453  56  021  1 

5454  55*127  0 

5453  6 5520  0 

5456  13  Ooo  0 

5457  6 5521  1 

5460  0 5‘*65  0 

5461  1 5462  0 

5462  3 7T43  0 

5463  6 1131  0 

546A  6 OOOO  1 

5465  0 5500  1 HIGUESS 

5466  0 5500  1 


5467  57*130  1 

5470  10  OOO  0 

5471  57*130  1 

5472  0 5A76  1 

5473  57'130  1 

5474  0 0006  1 

5475  7 7742  0 

547P  51*130  1 ROOTBCK 

5477  0 OOOl  0 


TS 

SQRARG 

CCS 

A 

TCF 

POSARG 

TC 

Q 

INCR 

Q 

EXTEND 


3XCH 

ROOTRET 

AD 

63/64+1 

DVSK 

TCF 

SPR00T2 

XCH 

SORARG 

TS. 

SORARG 

TS 

SR 

XCH 

SR 

TS 

HALFY 

AD 

-1/8 

CCS 

A 

AD 

5/8*1 

TC 

HIGUESS 

NOOP 

CAF 

BiTll 

AD 

SORARG 

DOUBLE 

TC 

SPROOTl 

TC 

SPROOT 1 

XCH 

ROOTRET 

CCS 

A 

XCH 

ROOTRET 

TC 

ROOTBCK 

XCH 

ROOTRET 

EXTEND 

MP 

BIT12 

index 

ROOTRET 

TC 

1 

5500  56  021  1 SPROOTl  xCH  SR 

5501  4 1127  0 CS  HALFY 

5502  22  007  0 ZL 

5503  0 0006  1 EXTEND 

5504  13  021  0 DV  SR 


Enter  with  cia)  = y 
IF  PNZ,  continue 

RETURN  with  0 FnR  *0 

return  with  0 FOR  -0 


WILL  be  calling  SPRoOT 1 
B(A)  E Y - 1 


arq  juggling 


C(A)  s Y 

(LOSE  1 BIT) 

HALFY  = Y/2 

FORM  Y/2  - 1/8 

TEST  for  first  gUESS 

Y ,G,  1/4*  X = y/2  ♦ 1/2 

♦0  IMPOSSIBLE  From  addition 

Y .LE.  1/4.  X/2  = Y ♦ 1/16 
1/16 

SORARG  = Y 
X FROM  X/2 

ITERATE  twice 

SAVE  ANSWER  AND  GET  0 

NO  shift  NEEDED 

0 NEG,  SHIFT  RIGHT  THREE 

EXP  -3 

ROOTRET  s Q - 1 
RETURN*  CIA)  s SQRT(Y) 

SR  = X/2 

NEWTON  ITER  X c X/2  ♦ (Y/2  / X/2) 


C(SR)  = X/2  DV  DOES  NOT  EDIT 


/ 2 
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L single  precision  subroutine^ 


0083 

REF 

34 

LAST 

986 

5505 

0084 

5506 

0085 

REF 

35 

LAST 

987 

5507 

0086 

REF 

307 

LAST 

986 

5510 

0087 

REF 

7 

LAST 

986 

5511 

0088 

REF 

8 

LAST 

987 

5512 

0089 

REF 

43 

LAST 

982 

5513 

0090 

55lA 

0091 

REF 

5 

LAST 

986 

5515 

0092 

REF 

178 

LAST 

972 

5516 

0093 

REF 

I 

551^ 

0094 

5520 

0095 

552i 

0096 

5522 

56  021 

1 

XCH 

SR 

0 0006 

1 

EXTEND 

60  021 

1 

SU 

SR 

0 0002 

0 

TC 

0 

1130 

0 

SPROOT2 

CS 

ROOTRET 

551130 

0 

TS 

ROOTRET 

3 7(47 

1 

CAF 

BIT7 

0 0006 

1 

EXTEND 

7 1131 

1 

MP 

SQRARG 

3 OOOl 

0 

CA 

L 

0 5A51 

1 

TC 

SPROOT3 

73777 

1 

-1/8 

OCTAL 

73777 

24O01 

0 

5/8*1 

octal 

24001 

37‘'01 

0 

63/64*1 

OCTAL 

37401 

USER'S  own  page  no.  3 

CIA)  = X (NEXT) 

SET  RETURN  0 NEfi.  AS  FLAG 

SHIFT  FOR  SIGNIfCANCE 

B(A)  s 0 
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L EXECJTUE 


USER'S  OWN  PAGf  NO.  1 


0001  5523  block  02 

R0002  TO  enter  A JOB  ReQUeST  RtOUIRING  NO  VAC  AREA; 


0003 

0004 

0005 

REF 

REF 

4 

308 

LAST 

LAST 

752 

987 

5523 

5524 

5525 

0006 

5526 

0007 

REF 

1 

552/ 

0008 

REf 

1 

5530 

0009 

REF 

25 

LAST 

935 

553I 

0010 

RcF. 

1 

5532 

0011 

REF 

1 

5533 

54  V63 
0 0006 
5 0002 
3 OOOl 

0 NDVAC 

1 

0 

TS 

EXTEND 

INDEX 

newprio 

Q 

0 

DCA 

0 

52  066 

0 

DXCH 

NEWLOC 

3 5P13 

0 

CAF 

EXECBANK 

55  004 

0 

XCH 

FBANK 

54  061 

1 

TS 

EXECTEMl 

1 3036 

0 

TCF 

N0VAC2 

SAVE  priority  Of  nEw  JOB. 

0 WILL  BE  undisturbed  THROUGHOUT, 
2CADR  OF  JOB  ENTERED. 


ENTER  EXECUTIVE  BANK, 


Rooi2  to  enter  a job  Request  requiring  a vac  area  - e.g.*  all  (partially)  interpretive  jobs. 


0014 

0015 

0016 

REF 

REF 

5 

309 

LAST 

LAST 

988 

988 

0017 

0018 

REF 

2 

LAST 

988 

0019 

REF 

2 

LAST 

988 

0020 

REF 

26 

LAST 

988 

0021 

REF 

1 

553A  54  063  0 FiNDvAC 

5535  0 0006  1 

5536  5 0002  0 
553/  3 0001  0 
5540  52  066  0 

55Al  3 5R13  0 
55Ai;  56  004  0 
55A3  1 3014  0 


TS  NEWPRIO 

EXTEND 
INDEX  0 

DCA  0 

DXCH  NEWLOC 

CAF  EXECBANK 

XCH  FBANK 

TCF  F1NDVAC2  OFF 


TO  EXECUTIVF  SWITCHED-BANK. 


R00211  TO  enter  a FINDVAC  WITH  THE 


PRIORITY  IN  NEWPRIO  TO  THE  2CADR  ARRIVING  IN  A AND  L) 


00213  rEf  310  last  988  55AA  55  002  0 SPVAC  XCH  Q 

0021A  REF  4 LAST  390  5545  6 5^55  1 AD  NEG2 

00215  REF  311  LAST  988  5546  56  D02  0 XCH  Q 

00216  REF  32  LAST  856  554/  1 5540  1 TCF  FINDVAC  *4 

ROO22  TO  suspend  a basic  job  so  a higher  priority  JOB  MAY  BE  SERVICED: 


002^ 

0025 

0026 

0027 

0028 
0029 

R0030 

0031 
R00315 

0032 

0033 

00335 


REF 

REF 

3 

179 

LAST 

LAST 

988 

987 

5550 

5551 

3 5?l3  0 
54  OOl  1 

CHANGl 

CAF 

TS 

EXECBANK 

L 

REF 

312 

LAST 

988 

5552 

3 0002  0 

CA 

Q 

REF 

25 

LAST 

916 

5553 

22  006  1 

LXCH 

BBANK 

5554 

0 0004  0 

♦ 4 

INHINT 

REF 

1 

5555 

1 3il4  1 

TCF 

CHANJOB 

TO 

suspend 

AN  interpretive  JOB: 

REF 

4 

LAST 

988 

5556 

3 5913  0 

CHANG2 

CAF 

EXECBANK 

1 1 It; 

REFERS  TQ 

" CH^NG2 " . 

REF 

26 

LAST 

988 

5557 

54  006  0 

TS 

BBANK 

REF 

31 

LAST 

984 

5560 

4 0154  0 

CS 

LOC 

REF 

10 

LAST 

916 

556l 

22  155  0 

LXCH 

BANKSET 

0034  REF  7 LAST  7II 


5562  1 5554  1 


TCF  CHANGl  *4 


negative  loc  shows  job  = interpretive. 

BANKSET.  not  BBfiNK,  HAS  RIGHT  CONTENTS, 


488954A  VJL  system  FOR  aGC;  NEW  PrqGraM  sMePatIN  BY  eYLeS 
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Po035 

0037 

0038 

0039 
OOAO 

Rooai 


00A2 

00A3 

OOAA 

00A5 

00A6 

00A7 

ROOA8 

00^9 

0050 

0051 

0052 

0053 
005A 
0055 

R0056 

0057 

R0058 

0059 

0060 
0061 

0062 

0063 

006A 

0066 


EXECUTIVE 


USER'S  OWN  page  NO,  2 


TO  Voluntarily  susPemo  a job  until  the  completion  of  some  anticipated  event  (I/o  event  etc.): 


REF 

32 

LAST 

988 

5563 

5‘t  15A 

0 

JOBSLEEP 

TS 

LOC 

REF 

5 

LAST 

988 

556A 

3 5613 

0 

CAP 

EXECBANK 

REF 

27 

LAST 

988 

5565 

5A  OQA 

1 

TS 

F8ANK 

REF 

1 

5565 

1 3175 

0 

TCF 

JOBSLPl 

TO 

awaken 

A 

JOB  PUT 

TO  sleep  in 

1 the  above  fashions 

REF 

3 

LAST 

988 

556T 

5A  V65 

0 

jobwake 

TS 

newloc 

REF 

100 

LAST 

932 

557° 

A 7T5A 

1 

CS 

TWO 

REF 

313 

LAST 

988 

5571 

26  002 

1 

ADS 

0 

REF 

6 

LAST 

989 

55712 

3 5613 

0 

CAF 

EXECBANK 

REF 

28 

LAST 

989 

5573 

56  OOA 

0 

XCH 

FBANK 

REF 

1 

557A 

1 3<206 

1 

TCF 

J0BWAKE2 

TO 

CHANGE 

THE  PRIORI 

TY  OF  A 

JOB 

1 currently  under  execution 

O OOOA 

PRIOCHNG 

inhint 

5575 

0 

REF 

6 

LAST 

988 

5575 

5A  063 

0 

TS 

NEWPRIO 

REF 

7 

LAST 

989 

5577 

3 5613 

0 

CAF 

EXECBANK 

REF 

27 

LAST 

988 

5600 

56  006 

1 

XCH 

BBANK 

REF 

11 

LAST 

988 

5601 

5A  155 

1 

TS 

BANKSET 

REF 

31A 

LAST 

989 

56012 

3 0002 

0 

CA 

0 

REF 

1 

5603 

1 3-255 

1 

TCF 

PRI0CH2 

TO 

free  the 

display 

3EF0HE  ENDOFJOB: 

REF 

lA 

LAST 

398 

560^ 

0 Ari3 

0 

EJFREE 

TC 

FREEDSP 

TO 

REMOVE 

A 

JOB  FROM 

EXECUTIVE 

CONSIDERATIONS; 

REF 

8 

LAST 

989 

5605 

3 5613 

0 

ENDOFJOB 

CAF 

EXECBANK 

REF 

29 

LAST 

989 

5606 

5A  OOA 

1 

TS 

FBANK 

REF 

1 

560  T 

1 3-266 

1 

TCF 

ENDJOBl 

REF 

2 

LAST 

988 

5610 

3 0061 

0 

ENDFIND 

CA 

exectemi 

REF 

30 

last 

989 

5611 

5A  OOA 

1 

TS 

fbank 

REF 

5 

LAST 

277 

56112 

1 7010 

0 

TCF 

0*2 

REF 

2 

LAST 

988 

5613 

03O1A 

1 

EXECBANK 

CADR 

FINDVAC2 

EXIT  IS  VIA  FINnVAC/NOVAC  PROCEDURES. 


NEW  PRIORITY  ARRIVES  IN  A.  RETURNS  TO 
CALLER  AS  SOON  AS  New  JOB  PRIORITY  IS 
highest,  prepare  for  possible  Basic- 
style  change-jor. 


return  to  caller  after  job  entry 
complete. 


488954A  YJL  SySTEm  pOR  AGC! 
L EXECUTI\(E 

P0067  locate  An 


0068 


0069 

REF 

3 

LAST 

989 

0070 

REF 

4 

LAST 

146 

0071 

ref 

1 

0072 

REF 

3 

LAST 

146 

0073 

REF 

2 

LAST 

990 

0074 

REF 

3 

LAST 

146 

0075 

REF 

3 

LAST 

990 

0076 

REF 

3 

LAST 

146 

0077 

REF 

4 

LAST 

990 

0078 

REF 

3 

LAST 

146 

0079 

REF 

5 

LAST 

990 

0080 

REF 

8 

LAST 

976 

0081 

0082 

REF 

101 

LAST 

989 

0083 

0084 

REF 

351 

LAST 

986 

0085 

LAST 

0086 

REF 

7 

989 

0087 

REF 

282 

LAST 

974 

0088 

REF 

9 

LAST 

278 

0089 

REF 

1 

0090 

REF 

1 

0091 

REF 

10 

LAST 

990 

0092 

REF 

8 

LAST 

85 

0093 

REF 

1 

0094 

0095 

REF 

2 

LAST 

990 

A0096 


PROCjRAv)  SMEPATIN  BY  EYLES 


LABLt  yAC  Area. 

01'301A  BANK 

,301A  5<t  061  1 FINDVACa  TS 

*3015  ID  **31  0 CCS 

*3016  1 3O31  1 TCF 

*301/  ID  S05  0 CCS 

*3020  1 3O3I  1 TCF 

*3021  ID  661  1 CCS 

*302ii  1 3O3I  1 TCF 

*3023  ID  635  0 CCS 

*302A  1 3O3I  1 TCF 

.3025  ID  ai  1 CCS 

*3026  1 3O3I  1 TCF 

.302/  0 6000  1 TC 

.3030  Ol'iOl  0 DCT 

,3031  6 7^5A  0 VACFOUNO  AD 

*303*;  22  007  0 ZL 

*3033  50  000  1 INDEX 

*303'*  21*  tn  0 LXCH 

*3035  26  063  0 ADS 

,3036  3 7^61  0 N0VAC2  CAF 

,3037  5A  064  1 TS 

,3040  3 3045  0 CAF 

*304l  54  062  1 N0VAC3  TS 

*3042  50  064  0 INDEX 

*3043  ID  157  0 CCS 

*304'*  1 3105  1 TCF 

*3045  00006  1 NO. CORES  DEC 

*3046  1 3105  1 TCF 


NEW 

AvAl 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 


DEc  13*  1966  master  pAGE  990 


USER'S  OWN  page  NO.  3 

01 

EXECTEMl 

VACiUSE 

vacfouNd 

VAC2U5E 

VACFOUND 

VAC3USE 

VACFOUND 

VAC4USE 

VACFOUND 

VAC5USE 

VACFOUND 

(SAVE  CALLER'S  BANK  FIRST.) 

ABORT 

1201 

NO  VAC  areas. 

TWO 

A 

0 -1 

NEWPRIO 

RESERVE  THIS  VAc  AREA  BY  STORING  A ZERO 
IN  ITS  VAC  USE  REGISTER  AND  STORE  THE 
ADDRESS  OF  THE  fIRSt  WORD  OF  IT  IN  THE 
LOW  NINE  BITS  Op  THe  PRIORITY  WORD. 

ZERO 

NOVAC  ENTERS  HERE.  FIND  A CORE  SET. 

LUCCTR 

NO. CORES 
EXECTEM2 

SEVEN  SETS  OF  El  EVEN  REGISTERS  EACH. 

LOCCTR 

PRIORITY 

NEXTCORE 

EACH  PRIORITY  RfGISTER  CONTAINS  -0  IF 

THE  CORRESPONDING  CoRE  SET  IS  AVAILABLE. 

6 

NEXTCORE 

AN  ACTIVE  JOB  HAS  A POSITIVE  PRIORITY 

BUT  A DORMANT  JnB'S  PRIORITY  IS  NEGATIVE 

^88954A  YJL  SYSteM  FOR  AGCj 


L 

EXECUTIVE 

0097 

REF 

8 

LAST 

990 

0098 

REF 

11 

LAST 

990 

0099 

REF 

9 

LAST 

990 

0100 

REF 

5 

last 

151 

0101 

REF 

12 

LAST 

991 

0102 

REF 

20 

LAST 

967 

0103 

R.EF 

13 

LAST 

991 

OlOA 

REF 

1 

0105 

REF 

23 

LAST 

980 

0106 

REF 

21 

-LAST 

991 

0107 

REF 

A8 

LAST 

981 

0108 

REF 

9 

LAST 

89A 

0109 

ref 

2 

last 

991 

0110 

REF 

25 

LAST 

98A 

0111 

REF 

26 

LAST 

991 

0112 

REF 

10 

LAST 

991 

0113 

REF 

A 

LAST 

989 

OIU 

REF 

33 

LAST 

989 

0115 

REF 

1 

0116 

REF 

5 

last 

991 

0117 

REF 

lA 

LAST 

991 

0118 

REF 

3A 

LAST 

991 

0119 

REF 

11 

LAST 

991 

0120 

REF 

10 

LAST 

991 

0121 

REF 

9 

LAST 

991 

0122 

0123 

REF 

2 

LAST 

991 

012A 

REF 

15 

LAST 

991 

0125 

REF 

12 

LAST 

991 

0126 

REF 

3 

LAST 

991 

0127  REF  1 


0128 

REF 

16 

LAST 

991 

0129 

REF 

2 

LAST 

990 

0130 

REF 

1 

0131 

REF 

9 

LAST 

990 

0132 

PRO^jRAX  SHePatIN  BY  eYLeS 


30AT 

3050 

3051 

3 0063 
50  06A 
5‘»  157 

1 

0 

0 

CORFOUND 

CA 

index 

TS 

3052 

7 5360 

0 

mask 

3053 

50  06A 

0 

index 

305A 

5A  156 

1 

TS 

3055 

10  06A 

1 

CCS 

3055 

1 3072 

0 

TCF 

3057 

5A  All 

1 

TS 

3060 

3 0156 

0 

CA 

3061 

5 A 11,0 

0 

TS 

3062 

10  067 

1 

SPECTEST 

CCS 

3063 

1 3072 

0 

TCF 

306A 

0 AT25 

0 

TC 

3065 

0 AT25 

0 

TC 

3065 

5A  067 

1 

TS 

3067 

52  066 

0 

OXCH 

307O 

52  155 

1 

OXCH 

3071 

1 5510 

1 

TCF 

3072 

52  066 

0 

setloc 

OXCH 

3073 

50  06A 

0 

INDEX 

307A 

52  155 

1 

OXCH 

3075 

50  067 

0 

INDEX 

3075 

A 0157 

0 

CS 

3077 

6 0063 

1 

AD 

3100 

0 OOO6 

1 

EXTEND 

3101 

6 5510 

0 

3ZMF 

3102 

3 OO6A 

0 

CA 

3103 

5A  067 

1 

TS 

310A 

1 5510 

1 

TCF 

3105 

3 3216 

1 

NEXTCORE 

CAF 

3105 

26  06A 

1 

ADS 

3107 

10  062 

1 

CCS 

3110 

1 3OAI 

0 

TCF 

3111 

0 6000 

1 

TC 

3112 

01202 

0 

OCT 

New 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 


Dec  13,  1966  Master  paoe  991 


USER'S  OwN  PAGF  NO,  A 

NeWPRIO 

LOCCTR 

PRIORITY 

L0W9 

LOCCTR 

SET  the  priority  OF  THIS  JOB  IN  THE  CORE 
SET'S  PRIORITY  REGISTER  AND  SET  THE 

JOB'S  PUSH-DOWN  POINTER  AT  THE  BEGINNING 
OF  THE  WORX  AREA  ANq  OvERrlOw  INDICATOR 

PUSHLOC 

OFF  TO  prepare  FOR  INTERPRETIVE  PROGRAMS 

LOCCTR 

StTLOC 

OVFIND 

PUSHLOC 

FIXLOC 

IF  CORE  Set  Zero  is  being  loaded,  set  up 

OVFIND  AND  FIXLnC  IMMEDIATELY  , 

NEWJOB 

SETlOC 

CCSHOLE 

CCSHOLE 

see  if  any  active  jobs  waiting  (RARE)* 
MUST  BE  Awakened  but  unchanged  job. 

NEWJOB 

NEWLOC 

LOC 

ENDFIND 

♦0  SHOWS  ACTIVE  JOB  ALREADY  SET, 

NEWLOC 

LOCCTR 

set  up  the  Location  registers  for  this 

LOC 

NEWJOB 

PRIORITY 

NEWPRIO 

THIS  INDEX  INSTRUCTION  INSURES  THAT  THE 
HIGHEST  ACTIVE  PRIORITY  WILL  BE  COMPARED 
WITH  THE  NEW  PRIORITY  TO  SEE  IF  NEWJOB 
SHOULD  be  set  TO  SIGNAL  A SWITCH. 

ENDFIND 

LOCCTR 

NEWJOB 

ENDFIND 

LOCCTR  IS  left  SET  AT  THIS  CORE  SET  IF 
THE  CALLER  WANTS  TO  LOAD  ANY  MPAC 
REGISTERS,  ETC, 

COREINC 

LOCCTR 

EXECTEM2 

N0VAC3 

ABORT 

1202 

NO  CORE  SETS. 

‘V88954A  YJL  SYSTEM  FOR  AGCi  NEW  PROGRAM  S^ePATIN  BY  eYLeS 


Dec  13.  1966  Master  pace  99^ 


L 

P0133 

0135 

0136 

0137 

0138 

0139 
OUO 
OlAl 
0U2 
01A3 
OlAA 

01A5 

01A6 

0U7 

01A8 

01A9 

0150 

0151 

0152 

0153 
015A 

0155 

0156 

0157 

0158 

0159 

0160 

0161 

0162 

0163 

016A 

0165 

0166 

0167 

0168 

0169 

0170 

0171 

0172 

0173 
017A 
0175 


0176 

0177 


EKECJTIVE 


USER'S  OWN  page  NO.  5 


the  following  routine  swaps  core  set  0 with  that  whose  relative  AODReSS  is  in  NEWJOB. 


REF 

35 

last 

991 

REF 

13 

LAST 

991 

REF 

36 

LAST 

992 

REF 

37 

LAST 

992 

REF 

693 

LAST 

980 

ref 

lA 

last 

992 

REF 

69A 

LAST 

992 

REF 

695 

LAST 

992 

REF 

696 

LAST 

992 

REF 

15 

LAST 

992 

REF 

697 

LAST 

992 

ref 

698 

last 

992 

REF 

699 

LAST 

992 

REF 

16 

LAST 

992 

REF 

700 

LAST 

992 

REF 

701 

LAST 

992 

REF 

702 

LAST 

992 

REF 

17 

LAST 

992 

REF 

703 

LAST 

992 

REF 

70A 

LAST 

992 

REF 

283 

LAST 

990 

REF 

2A 

LAST 

991 

REF 

22 

LAST 

991 

REF 

23 

LAST 

992 

REF 

2A 

LAST 

992 

REF 

18 

LAST 

992 

REF 

25 

LAST 

992 

REF 

26 

LAST 

992 

REF 

6 

LAST 

991 

REF 

11 

LAST 

991 

REF 

A9 

LAST 

991 

REF 

27 

LAST 

992 

ref 

28A 

LAST 

992 

REF 

1 

REF 

28 

LAST 

992 

REF 

29 

LAST 

992 

REF 

18A 

LAST 

967 

REF 

25 

LAST 

992 

REF 

19 

LAST 

992 

REF 

38 

LAST 

992 

3113 

311A 

3115 

3115 


52  155  1 

53  V67  0 
52  155  1 
52  155  1 


-1  3XCH 

CHANJOB  INOEX 
DXCH 
DXCH 


LOC 

NEWJOB 

LOC 

LOC 


01,3117 

52 

iA5 

0 

01,3120 

5D 

067 

0 

01,312l 

52 

1A5 

0 

01,3122 

52 

iA5 

0 

01,3123 

52 

iA7 

1 

01 ,312A 

5D 

067 

0 

01,3125 

52 

iA7 

1 

01,3126 

52 

iA7 

1 

01,3127 

52 

is  1 

0 

01,3130 

53 

067 

0 

01,313l 

52 

i51 

0 

01,3132 

52 

i51 

0 

01,3133 

52 

i53 

1 

01  ,313A 

50 

067 

0 

01,3135 

52 

153 

1 

01,3135 

52 

153 

1 

OXCH  MPAC 

INoEx  NEWJOB 
DXCH  MPAC 

DXCH  MPAC 

DXCH  MPAC  *2 

index  NEWJOB 

DXCH  MPAC  *2 

DXCH  MPAc  *2 

DXCH  MPAC  *4 

INDEX  NEWJOB 
DXCH  MPAC  ♦A 

DXCH  MPAC  ♦A 

DXCH  MPAC  *6 

INDEX  NEWJOB 
DXCH  MPAC  *6 

DXCH  MPAC  *6 


01*313T  3 7^61  0 

01t31A0  56  ill  0 
01»31A1  0 0V06  1 
01.31A2  1 3iA5  0 
01,31A3  a 0i56  1 
01,31AA  5A  i56  1 

01,31A5  52  i57  0 
01,31A5  50  W67  0 
01,31A7  52  i57  0 
01,3150  52  i57  0 


CAF 

ZERO 

XCH 

EXTEND 

OvFIND 

3ZF 

♦ 3 

CS 

PUSHLOC 

TS 

PUSHLOC 

DXCH 

PUSHLOC 

index 

NEWJOB 

DXCH 

PUSHLOC 

DXCH 

PUSHLOC 

3151 

3152 

3153 


3 5360  1 
7 Oi57  0 
5A  ilO  0 


CAF  L0W9 

MASK  PRIORITY 
TS  FIXLOC 


01»315A  10  156  1 

01,3155  3 7^61  0 

01,3155  1 3i63  1 

01,3157  A Oi56  1 

01.3160  5A  156  1 

01.3161  3 7f55  1 

01.3162  56  ill  0 

01.3163  5A  067  1 


CCS  PUSHLOC 

CAf  ZERO 

TCF  ENDPRCHG 
CS  PUSHLOC 

TS  PUSHLOC 

CAF  ONE 

XCH  OVFIND 

TS  NEWJOB 


3l6^ 

3165 


0 0003  1 ENDPRCHG  RELINT 
52  155  1 DxCH  LOC 


LOC  ARRIVES  IN  A ANO  BBANK  IN  L, 

SWAP  MULTI-PURPnSE  ACCUMULATOR  AREAS. 


make  PUSHLOC  negAtive  if  OvFIND  NZ. 


-1 


SWAPS  PUSHLOC  AND  PRIORITY. 

SET  FIXLOC  TO  BASE  OF  VAC  AREA. 

SET  OVERFLOW  INDICATOR  ACCORDING  TO 


basic  JObS  HAvE  positive  addresses,  so 


488954A  yJL  SySTEM  FOR  AgCj  NEW  pROGRi\,vi  SFlEpATiN  BY  Eyl-ES 


DEC  l3i  1966  master  pAQE  993 


L EKECLITIYE 


USER’S  OWN  PAGf  NO.  6 


0178 

0179 

0180 


01.3166  0 0006  1 

01.3167  6 3171  0 

01.3170  52  006  0 


extend 
BzMF  *l 
OTCB 


DISPATCH  with  a DTCb. 

IF  interpretive,  set  up  ebank.  etc 


488954A  YJL  SYSTEM  fOR  AGC;  NEW  PrOOri^.M  sMEPATIN  BY  EYLES 


DEC  13,  1966  MASTER  PAGE  99A 


L EXECUTIVE 


0181  01,3171  <•  0000  0 COM 

0182  REF  185  LAST  992  01,3172  6 7^55  1 AD 

0183  REF  39  LAST  992  01,3173  5A  i5A  0 TS 

0186  REF  1 01,317‘*  1 6112  1 TCF 

R0187  complete  JOBSLEEP  PR EP ARAT I ONS , 

0188  01,3175  0 OOOA  0 JOBSLPl  INHINT 

0189  REF  12  last  992  01,3176  A 0157  0 CS 

0190  REF  13  LAST  99A  01,317^  5A  157  0 TS 

0191  REF  7 LAST  93A  01,3200  3 6l30  0 CAF 

0192  REF  28  LAST  989  01,3201  7 0006  0 MASK 

0193  REF  12  LAST  989  01,3202  5A  155  1 TS 

019A  REF  285  LAST  992  01,3203  A 7^61  1 CS 

0195  REF  127  LAST  970  01,320^  SA  121  1 J0BSLP2  TS 

0196  REF  I 01,3205  1 3276  0 TCF 


ONE 

LOC 

INTRSM 


PRIORITY 

PRIORITY 

L0W7 

BBANK 

BANKSET 

ZERO 
BUF  ♦! 
EJSCAN 


USER'S  OWN  PAGf  NO.  7 
EPILOGUE  TO  JOB  CHANGE  FOR  INTERPRET lyE 

RESUME. 

NN2  PRIORITY  SHOWS  jOB  AslEEp, 

HOLDS  - highest  PRIORITY, 

SCAN  FOR  highest  PRIORITY  ALA  ENDOFJOB, 


^88954A 


L 

P0197 

R0199 

R0201 

0202 

0203 

020A 

0205 

0206 

0207 

0208 

0209 

0210 
0211 

0212 

0213 

021A 

0215 

0216 

0217 

0218 

0219 

0220 
0221 
0222 
0223 

022A 

0225 

0226 

0227 

0228 

0229 

0230 

0231 

0232 

0233 

023A 

0235 

0236 

0237 

0238 

0239 

0240 


YJL  SYSTEM  FOR  AGC:  NEW  PROGRAM  SHePATIN  BY  EYLES 


DEC  lA,  1966  MASTER  PAGE  995 


EXECJTIVE 


USER'S  OwN  PAGE  NO,  8 


TO  wake  up  a job,  each  cure  Set  is  found  to  locate  all  jobs  which  are  asleep.  tF  the  FCADR  in  the 
L3C  Register  of  any  such  job  viatches  that  supplied  by  the  caller,  that  job  is  awakened,  if  no  job  is  found, 
locctr  is  Set  to  -i  and  no  further  action  takes  place. 


REF 

4 

LAST 

990 

01,3206 

54  061 

1 

J0BWAKE2 

TS 

RcF 

286 

LAST 

994 

01,3207 

3 7^61 

0 

caf 

REF 

17 

LAST 

991 

01,3210 

54  064 

1 

TS 

REF 

2 

LAST 

990 

01,3211 

3 3O45 

0 

CAF 

REF 

3 

LAST 

991 

01,3212 

54  062 

1 

JOBWAKE4 

TS 

REF 

18 

LAST 

995 

01,3213 

50  064 

0 

INDEX 

REF 

14 

LAST 

994 

01,321H 

10  157 

0 

CCS 

REF 

1 

01,3215 

1 3220 

0 

TCF 

01,3215 

00014 

1 

COREINC 

DEC 

REF 

1 

01,3217 

1 3227 

1 

TCF 

REF 

2 

LAST 

991 

01,322° 

3 32I6 

1 

JOBWAKE3 

CAF 

ref 

19 

last 

995 

01,3221 

26  064 

1 

Ads 

REF 

4 

LAST 

995 

01,3222 

10  062 

1 

CCS 

REF 

1 

01,3223 

1 3212 

1 

TCF 

4 7^55 

Ktr 

186 

L A o T 

994 

01,3224 

0 

kS 

REF 

20 

LAST 

995 

01,3225 

54  064 

1 

TS 

REF 

4 

LAST 

991 

01,3226 

1 5510 

1 

TCF 

REF 

6 

LAST 

991 

01,3227 

4 0065 

0 

WAKETEST 

CS 

REF 

21 

LAST 

995 

01,3230 

50  064 

0 

INDEX 

REF 

40 

LAST 

994 

01,3231 

6 0154 

1 

AD 

01,3232 

0 0006 

1 

extend 

01,3233 

1 3235 

1 

3ZF 

REF 

2 

LAST 

995 

01 ,323‘t 

0 

CM 

M 

C^ 

0 

TCF 

REF 

22 

LAST 

995 

01,3235 

50  064 

0 

index 

REF 

15 

LAST 

995 

01,3236 

4 0157 

0 

CS 

REF 

10 

LAST 

991 

01,3237 

54  063 

0 

TS 

REF 

23 

LAST 

995 

01,324° 

50  064 

0 

INDEX 

REF 

16 

LAST 

995 

01,3241 

54  157 

0 

TS 

REF 

1 

01,3242 

4 6331 

1 

CS 

REF 

7 

LAST 

995 

01 ,3243 

7 0065 

0 

MASK 

REF 

3 

LAST 

914 

01 ,324H 

6 7^43 

0 

AD 

REF 

8 

LAST 

995 

01,3245 

56  065 

1 

XCH 

REF 

2 

LAST 

995 

01,3246 

7 6331 

1 

MASK 

REF 

24 

LAST 

995 

01,3247 

50  064 

0 

index 

REF 

13 

LAST 

994 

01,3250 

6 0155 

0 

AD 

REF 

9 

LAST 

995 

01,3251 

54  066 

0 

TS 

REF 

25 

LAST 

995 

01,3252 

10  064 

1 

CCS 

REF 

3 

LAST 

991 

01,3253 

1 3072 

0 

TCF 

REF 

1 

01,325H 

1 3O62 

1 

TCF 

EXECTEMl 

ZERO 

LOCCTR 
NO. CORES 
EXECTEM2 
LOCCTR 
PRIORITY 
J0BWAKE3 
12 

WAKETEST 

COREINC 

LOCCTR 

EXECTEM2 

J0BWAKE4 

ONE 

LOCCTR 

ENDFIND 

NEWLOC 

LOCCTR 

LUC 


♦ 2 


J0BWAKE3 

LOCCTR 

PRIORITY 

NEWPRIO 

LOCCTR 

PRIORITY 

FBANKMSK 

NEWLOC 

2K 

NEWLOC 

FBANKMSK 
LOCCTR 
BANK5ET 
NEWLOC  ♦! 

LOCCTR 

SETLOC 

SPECTEST 


BEGIN  CORE  SET  sCAN. 


ACTIVE  JOB  - CHECK  NEXT  CORE  SET, 

12  registers  per  core  set, 

SLEEPING  JOB  - SEE  IF  CADR  MATCHES. 


EXIT  IF  sleeping  JOB  NOT  FOUND, 


IF  match, 

EXAMINE  NEXT  CORE  SET  IF  NO  MATCH. 

re-complement  Priority  to  show  job  awake 


MAKE  UP  THE  2CADR  OF  THE  WAKE  ADDRESS 
USING  the  CADR  in  NeWLOC  AND  THE  EBANK 
HALF  OF  BBANK  SAVED  IN  BANKStT. 


SPECIAL  TREATMENT  Ic  THIS  JOB  WAS 
ALREADY  IN  THE  RUN  (0)  POSITION, 


A8895^A  YJL  system  FOR  AGCj  NEW  PROGRAM  SMePATIN  bY  EYLES 


dec  13,  I966  MASTER  PAGE  996 


L EKECJTIVE  USER'S  OWN  PAGf  NO.  'i 

P02A1  PRIORITY  CHANGE.  CHANGE  'HE  CONTENTS  OF  PRIORITY  AND  SCAN  FOR  THe  JOB  OF  HIGHEST  PRIORITY, 


02A3  REF  Al  LAST  995 

02AA  REf  287  last  995 

02A5  REF  128  LAST  99A 

02A6  REF  7 LAST  992 

02A7  REF  17  last  995 

02A8  REF  11  LAST  995 

02A9  REF  18  LAST  996 

0250 

0251  REF  1 


01.3255  5A  15A  0 PRI0CH2  TS 


01.3256  3 7'61  0 cAF 

01,325Y  5A  120  0 TS 

01.326D  3 5P6O  1 CAF 

01.3261  7 0157  0 MASK 

01.3262  6 0U63  1 AD 

01.3263  5A  A57  0 TS 

01.326A  A 0000  0 COM 

01.3265  1 3KOA  0 TCP 


LOC 

ZERO 

BUF 

LOW9 

PRIORITY 

NEWPRIO 

PRIORITY 

J0BSLP2 


SET  flag  to  TEli  ENdJOB  SCANNER  IF  THIS 
JOB  IS  STILL  highest  PRIORITY. 


AND  TO  EJSCAN 


A88954A  YJL  SYSte^  FOR  AGCi  NeW  PRO^RA'^  SH^PatIN  BY  e^CeS 


13,  1966  Master  paGe  991 


L 

P0252 


ekecjt ive 


USER'S  OWN  PAGf  no,  10 


025A 

01 ,326t> 

0 0004 

0 

0255 

REF 

288 

LAST 

996 

01,3267 

4 7^61 

1 

0256 

REF 

129 

LAST 

996 

01,3270 

54  121 

1 

0257 

REF 

19 

LAST 

996 

01,3271 

56  157 

1 

0258 

REF 

8 

LAST 

996 

01,327i: 

7 5360 

0 

0259 

REF 

352 

LAST 

990 

01,3273 

13  000 

0 

0260 

0261 

REF. 

353 

LAST 

997 

01,327^ 

53  000 

54  000 

1 

0 

01 ,3275 

0262 

REF 

20 

LAST 

997 

01.3276 

01.3277 

13  173 
0 3343 

0 

0263 

REF 

1 

0 

0264 

REF 

27 

LAST 

991 

01,3300 

0 4^25 

0 

0265 

01,3301 

1 3302 

1 

0266 

REF 

21 

LAST 

997 

01,3302 

13  207 

0 

0267 

REF 

2 

LAST 

997 

01  ,3303 

0 3343 

0 

0268 

REF 

28 

LAST 

997 

01,3304 

0 4^25 

0 

0269 

01,3305 

1 3306 

0 

0270 

REF 

22 

LAST 

997 

01,3306 

ID  223 

0 

0271 

REF 

3 

LAST 

LAST 

997 

997 

01,3307 

0 3343 

0 

1 

0272 

REF 

23 

01 ,33l0 

67  620 

0273 

01,3311 

1 3312 

0 

0274 

REF 

24 

LAST 

997 

01,3312 

13  237 

0 

0275 

REF 

4 

LAST 

997 

01,3313 

0 3343 

0 

0276 

REF 

29 

LAST 

997 

01,331'' 

0 4^25 

0 

0277 

01,3315 

1 3316 

1 

0278 

REF 

25 

LAST 

997 

01 ,3316 

13  253 

1 

0279 

REF 

5 

LAST 

997 

01,331  ( 

0 3343 

0 

0280 

REF 

30 

LAST 

997 

01,3320 

0 4^25 

0 

0281 

01,3321 

1 3322 

0 

0282 

REF 

26 

LAST 

997 

01,3322 

10  267 

0 

0283 

REF 

6 

LAST 

997 

01,3323 

0 3343 

0 

0284 

REF 

31 

LAST 

997 

01,3324 

0 4^25 

0 

0285 

01,3325 

1 3326 

1 

ENDjOBl 


EJSCAN 


•CCSPR  - 


.CAN  for  tHe  job 

OF  HI 

INHINT 

CS 

ZERO 

TS 

BUF  4 1 

XCH 

PRIORITY 

MASK 

LOW9 

CCS 

A 

INDEX 

A 

TS 

0 

CCS 

TC 

PRIORITY 

♦ 12D 

E J 1 

TC 

CCSHOLE 

TCF 

♦ 1 

CCS 

PRIORITY 

♦ 24D 

TC 

EJl 

TC 

CCSHOLE 

TCF 

♦ 1 

CCS 

PRIORITY 

♦ 36D 

TC 

EJl 

.CCS 

PRIORITY 

TCF 

♦ 1 

CCS 

PRIORITY 

+ 48D 

TC 

EJl 

TC 

CCSHOLE 

TCF 

♦ 1 

CCS 

PRIORITY 

+ 6OD 

TC 

EJl 

TC 

CCSHOLE 

TCF 

♦ 1 

CCS 

PRIORITY 

♦ 72D 

TC 

EJl 

TC 

CCSHOLE 

TCF 

♦ 1 

EXAMINE  EACH  PRIORITY  REGISTER  TO  FIND 
THE  JOB  OF  HIGHfST  ACTIVE  PRIORITY. 


4a8954A  YJL  SYSTEM  FOR  AGCi  NEW  PROGRAM  SMePATIN  BY  eYUeS 


L EKECJTIVE 

P0286  EVALUATE  THE  RESULTS  OF  I HE  SCAN. 


0287 

REF 

130 

LAST 

997 

01 

0288 

REP 

32 

LAST 

997 

01 

0289 

REF 

33 

LAST 

998 

01 

0290 

01 

0291 

REP 

4 

LAST 

80 

01 

0292 

REF 

131 

LAST 

998 

01 

0293 

01 

0294 

REP 

2 

LAST 

992 

01 

0295 

REP 

354 

LAST 

997 

01 

0296 

01 

0297 

ref 

1 

01 

LAST 

0298 

RcF 

20 

992 

01 

0299 

REF 

2 

LAST 

988 

01 

0300 

REF 

132 

LAST 

99e 

01 

0301 

REp 

133 

last 

998 

01 

0302 

REF 

355 

LAST 

998 

01 

0303 

REF 

134 

LAST 

998 

01 

0304 

REF 

1 

01 

0305 

01 

0306 

REF 

315 

LAST 

989 

01 

0307 

01 

0308 

REF 

135 

LAST 

998 

01 

0309 

01 

0310 

REF 

136 

LAST 

998 

01 

0311 

REF 

137 

LAST 

998 

01 

0312 

01 

332S  13  121  1 CCS 

332'  0 4'25  0 TC 

3330  0 A'25  0 TC 

3331  1 3R33  0 TCP 

3332  1 5PU  0 TCP 

3333  13  120  0 CCS 

333A  1 3^36  0 TCP 

3335  1 3I6A  0 TCP 

3336  53  000  1 INDEX 

3337  2»7'77  0 CAP 

33A0  6 3RIO  0 AD 

33Al  5A  067  1 TS 

33A2  1 3113  0.  TCP 

3343  54  I22  1 EJl  TS 

3344  6 0121  0 Ad 

3345  10  000  0 CCS 

3346  t,  0122  1 CS 

3347  1 3353  0 TCP 

3350  1 3351  1 NOOP 

3351  53  002  0 INDEX 

3352  0 0002  0 TC 

3353  54  121  1 EJ2  TS 

3354  0 OOO6  1 EXTEND 

335&  22  120  1 OXCH 

3356  53  120  1 INDEX 

3357  0 0002  0 TC 


Dec  13*  1966  master  page  99b 


USER'S  OwN  page  NO,  U 

BUF  *1 

CCSHOLE 

CCSHOLE 

SEE  IF  THERE  ARF  ANY  ACTIyE  JOBS  WAITING 

♦ 2 

DUMMYJOB 

BUF 

♦ 2 

ENDPRCHG 

BUF  IS  ZERO  IF  THIS  IS  A PRIOCHNG  AND 
CHANGED  PRIORITY  IS  STILL  HIGHEST, 

A 

0 -1 

-CCSPR 

NEWjOB 

CHANJOB  -1 

OTHERWISE,  SET  NEWJOB  TO  THE  RELATIVE 
ADDRESS  OF  THE  NEW  JOB'S  CORE  SET. 

BUF  *2 

BUF  *1 

A 

- OLD  high  priority. 

BUF  .2 

EJ2 

NEW  high  priority. 

Q 

2 

BUF  .1 

PROCEED  WITH  SEARCH. 

BUF 

BUF 

2 


FOR  locating  CCS  PRIORITY  ♦ X InSTR 


'V8895^A  YJL  SYSTEM  EOR  AGCj  NEW  PHO^RAM  SMePATIN  BY  EYLeS 


Dec  u,  1966  master  page  999 


P031A 

R0316 

0317 

0318 

0319 

0320 

0321 

0322 

0323 
032A 

0325 

0326 

0327 

0328 

0329 

0330 

0331 

0332 

0333 
033A 

0335 

0336 

0337 

0338 

0339 
03A0 
03A1 
03A2 
03A3 
03AA 
03A5 

03A55 

03A6 


EKECJTIVE  USER'S  OWN  PAGf  NO.  U 

IDLING  AND  COMPUTE^  ACTIVITY  (GReeN)  LIGHT  MAINTENANCE,  THE  IDLING  ROUTINE  IS  mOT  A JOB  IN  ITSeLF, 
BJT  rather  a subroutine  OF  THE  EXECUTIVE, 


R£F 

2 

LAST 

85 

REF 

289 

LAST 

997 

ref 

21 

LAST 

998 

REF 

102 

LAST 

990 

ref' 

13 

LAST 

298 

REF 

1 

RcF 

3 

LAsT 

999 

REF 

22 

LAST 

999 

REF 

1 

REF 

103 

LAST 

999 

REF 

1 

REF 

1 

REf 

29 

last 

994 

REF 

4 

LAST 

999 

REF 

14 

LAST 

999 

REF 

42 

LAST 

996 

REF 

104 

LAST 

999 

REF 

15 

LAST 

999 

REF 

9 

LAST 

989 

REF 

31 

LAST 

989 

REF 

3 

LAST 

998 

REF 

5 

LAST 

999 

REf 

2 

last 

87 

561A 

E2 


5623  0 OUO6  1 

562A  23*356  0 

5625  10  067  1 

5625  1 55A0  1 

562Y  3 7^5A  0 

5630  1 553A  1 

5631  3 5547  1 

5632  54  006  0 

5633  0 1356  0 

5634  0 0006  1 

5635  05  011  1 

5635  52  i55  1 

563/  52  006  0 

5640  3 7/54  0 

5641  0 0006  1 

5642  05  011  1 

5643  3 5513  0 

5644  5<^  004  1 

5645  0 0004  0 

5645  1 3113  0 

E2 

564/  76062  1 


5614  4 7/5i  I 

5615  54  067  1 

5615  0 0003  I 

561Y  4 7/54  I 

5620  0 0O06  1 

5621  03  011  1 

5622  1 5625  1 


BLOCK 

02 

EBANK= 

selfret 

self-check  storage  in  ebank. 

DUMMYJOB 

CS 

zero 

SET  NEWJOB  TO  -0  FOR  IDLING. 

TS 

NEwjOb 

relint 

CS 

TWO 

TURN  OFF  the  ACTIVITY  LIGHT. 

EXTEND 

WAND 

DSALMOUT 

TCF 

CHECKNJ  *Z 

CHECKNJ 

EXTEND 

SPECIAL  NEWJOB  TEST  FOR  SELF-CHeCK. 

OXCH 

SELFRET 

WHICH  runs  under  executive  control* 

♦ 2 

CCS 

NbWJOB 

BUT  DOES  NOT  HAVE  A JOBS  CORE  REGISTERS, 

TCF 

NUCHANGE 

NEW  JOB  REQUIRING  A CHANGE  JOB. 

CAF 

TWO 

new  job  already  In  position  for 

TCF 

NUDIRECT 

EXECUTION. 

ADVAN  ' 

CAF 

Selfbank 

(SIMULATOR  ADVAN  IF  NEWJoB  = 77777). 

TS 

bbank 

TC 

SELFRET 

NUDIRECT 

EXTEND 

TURN  THE  GREEN  I IGHT  BACK  ON. 

WOR 

DSALMOUT 

OXCH 

LOC 

JOBS  started  in  this  FASHION  MUST  BE 

DTCB 

BASIC. 

NUCHANGE 

CAF 

TWO 

EXTEND 

WOR 

DSALMOUT 

CAF 

execbank 

SWAP  CORE  SETS. 

TS 

FBANK 

inhint 

CHANGE  JOBS 

TCF 

CHANJOB  -1 

EBANKs 

SELFRET 

selfbank 

BBCON 

selfchk 

DEC  13*  1966  master  PAGEIOOO 


A8895AA  YJL  SYSTEM  TOR  AGC:  NeW  PRQGRIWI  SHgPATIN  BY  eYLeS 

L EXECUTIVE  USER*S  OWN  PAGf  NO,  13 

P03A7  priority  CONSTANTS  (MOTE  IN  FIXED-FIXED). 


0348 

REF 

0349 

REF 

0350 

0351 

REF 

0352 

0353 

0354 

REF 

0355 

0356 

0357 

REF 

0358 

0359 

0360 

0361 

0362 

0363 

REF 

0364 

0365 

0366 

0367 

REF 

0368 

0369 

0370 

0371 

REF 

0372 

0373 

0374 

0375 

0376 

0377 

0378 

A9  LAST  947 
37  LAST  986 

25  LAST  986 

30  LAST  984 
1 - 


58  LAST  976 

I 

1 


7744 

PRIOl 

PRI02 

PRI03 

PRI04 

EQUALS 

EQUALS 

DCT 

EQUALS 

BITIO 

5650 

7743 
03000  1 
7742 
05OO0  1 
06000  1 
07000  0 

BlTll 

03000 

BIT12 

565l 

565<i 

5653 

PR105 

PRI06 

PRI07 

PRIOIO 

PRIOll 

PRI012 

DCT 

DCT 

DCT 

05000 

06000 

07000 

5654 

7741 
llOOO  1 
5252 

EQUALS 

DCT 

BIT13 

11000 

BNKJUP+4 

5655 

13000  0 

PRI013 

DCT 

13000 

5656 

I4OOO  1 
15000  0 

PRI014 

PRI015 

DCT 

14000 

565  ! 

DCT 

15000 

5660 

16000  0 

PRI016 

DCT 

16000 

5661 

17000  1 

PRI017 

PRI020 

DCT 

17000 

7740 

EQUALS 

BIT14 

5662 

21000  1 

PRI021 

DCT 

21000 

5663 

22OOO  1 
23000  0 

PRI022 

PRI023 

DCT 

22000 

5664 

. DCT 

23000 

4260 

PRI024 

NUFAZ+10 

5665 

25000  0 

PRI025 

DCT 

25000 

5666 

26000  0 

PRI026 

DCT 

26000 

5667 

27000  1 

PRI027 

DCT 

27000 

5226 

PRI030 

• 

BNKCAL+2 

5670 

31O00  0 

PRI031 

DCT 

31000 

5671 

32000  0 

PRI032 

DCT 

32000 

5672 

33OOO  1 

PRI033 

DCT 

33000 

5673 

34000  0 

PR1034 

DCT 

34000 

5674 

35000  1 

PRI035 

DCT 

35000 

5675 

36O00  1 

PR1036 

DCT 

36000 

5670 

37000  0 

PRI037 

DCT 

37000 

R0379  E3ANK  CONSTANTS  IN  FIXED-FIXeO 


0380 

0381 

0382 

0383 

0384 


REF 

8 

LAST  979 

REF 

38 

LASTIOOO 

567^ 

REF 

4 

LAST  784 

57UW 

5370  EBANK3 
7743  EBANK4 
02'*00  1 EBANK5 
5650  EBANK6 
03‘*00  0 EBANK7 


EQUALS  0CT1400 
EQUALS  BlTll 
octal  02400 
EQUALS  PR103 
OCTAL  03400 


E2 


^8895^A  YJL  SYSjeM  FOR  AGC ! NeW  PRO^RAX  SH^PatIN  BY  eYI-ES 


^e;c  i3*  1966  master  pageiooi 


L 

ROOOOOl 

R000003 

ROOOOO5 

R000007 

ROOOOO8 

R0OOOO9 

ROOOOll 

R000013 

ROOOOU 

R000016 

R000017 

R000018 

R000019 

R00002 

R000021 

ROOOO22 

ROOOO23 

R00002A 

R000025 

R000026 

R000027 

R000028 

R000029 

R00003 

R000031 

R000032 

R000033 

R00003A 

R000035 

ROOOO36 

ROOOO37 

R000038 

RO00039 

ROOOOA 

ROOOOAl 

R0000A2 

R0OOOA3 

ROOOOAA 

ROOOOA5 


waitlist 


USER'S  OWN  page  no.  I 


PROGRAM  DESCRIPTION  DATE  - 10  OCTOBER  1966 

MOO  NO  - 2 LOG  SECTION  . WAITLIST 

MOD  BY  - miller  (DTNAX  INCREASE*^  TO  162,5  SEO  ASSEMBLY  SUNBURST  REV  5 


FUNCTIONAL  DESCRIPTION- 

part  of  a Section  oF  programs, -waitlist,  taskoveR,  tsRUPt,  used  to  call  a program,  (called  a task), 
WHICH  IS  TO  Begin  in  C(A)  CeNtISeCoNDS,  waitlist  updates  times,  LSti  and  LST2.  the  meaning  of  THeSe  lists 

follow. 


C(TIME3)  = 1538A  -(Tl-T)  CENT  I SECONDS , (TePRESENT  TIME,  Tl-TIME  FOR  TASkD 


C'lLSll)  = -(T2-Tl)*l 
C(LSl I ♦!)  = -(T3-T2) ♦! 
CTLSI I *2)  = -(TA-T3) *1 


C'(LSl  I +6)  = -(T8-T7)  *1 
CTLSU  +7)  = -(T9-T8)*l 


:'(Lbl2)  = 2CADR  OF  TASKl 

C>(LSl2  *2)  = 2CADR  oF  TASK2 


t 

:'(LSI2  *14)5  2CADR  OF  TASK8 
:'(LSl2  +16)=  2CADR  OF  TASK9 


WARNINGS- 


1)  1 <=  C(A)  <=  I625VD  (1  CENTISECONO  TO  162.5  SEC) 

2)  9 TASKS  MAXIMUM 

3)  TASKS  called  UNOeR  INTERRUPT  INHIBITED 
A)  TASKS  END  BY  IC  T«SKOVER 

CALLING  sequence- 


L-2 

L-1 

L 

CAF 

INHINT 

TC 

DELITAT  (TIME  IN 

Waitlist 

CENTISECONDS  to  task  START) 

L*l 

2CADR 

Desired  task 

L + 2 

(MINOR 

OF  2CADR) 

L*3 

RELINT 

(RETURNS 

HERE) 

normal  EXIT  MOOES- 

AT  L*3  OF  CALLlNS'  SE^IUENCE 
ALARM  OR  ABORT  EXIT  MODES- 


488954A  YJL  SYSTEM  FOR  AGC!  NEW  PROGRAM  SMePATIN  BY  EYLeS 
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L 

R0000A6 

ROOOOA? 

R0OOOA8 

R0000A9 

R00005 

R000051 

R000052 

R000053 


ROOOO^A 

ROOOOSS 

R000056 

R0OOO57 

ROOOO59 

ROOOO6 

R000061 

R000062 

ROOOO63 

R00006A 

R000066 

R0OOO67 

ROOOO68 

ROOOO69 

R000071 

Ro00072 

R00007A 

R000076 


0002 

0003 

OOOA 

0005 

0006 

0007 

0008 

0009 

0010 

0011 

0012 

R0013 


waitlist 

TC  ABORT 

OCT  1203  <WAITLiST  OVERFLOW  - TOO  MANY  TASKS) 

erasable  initialization  requireo- 

ACCOMPLISHED  BY  FRESM  START . —LST2 , LST2  *16  sENDTASK 

LSTlt.,.i  LSTl  *7  sNEGl/2 


OJTPJT  — 

OEBRIS- 


LSTl  AND  LST2  UPDATEL*  WITH  NEW  TAS<  AND  ASSOCIATED  TIME. 


USER'S  OWN  page  NO, 


2 


CENTRALS-  A»Q»L 

other  ” WAITExIT.  WAITAdR*  WAITTEmP*  *\;AITBANk 
DETAILED  ANALYSIS  OF  TIMING- 

CONtROL  will  not  BE  R'TJRHeD  to  the  specified  address  (2CADR)  IN  EXACTLY  DELTA  T CENtISeCONDS. 
the  approximate  time  may  be  calculated  as  follows 

LET  TO  s THE  TIME  OF  THE  TC  WAITLIST 

LET  TS  s TO  +1470'  ♦ LQUNTER  INCREMENTS  (SET  UP  TIME) 

LET  X s TS  .(100T5)/100  (VARIANCE  FROM  COUNTERS) 

LET  Y = Length  of  time  of  inhibit  interrupt  after  t3RUPt 

LET  Z s length  Of  TImE  to  process  tasks  which  are  Due  this  T3RuPT  but  DISpATCHED  EARLIER. 

(Z=0*  USUALLY) 

LET  DELTD  s the  ACTUAL  TIME  TAKEN  TO  GIVE  CONTROL  TO  2CADR 
THEN  DELTD  ? TS  + OELTA  T -X  .Y  .Z  ♦l.OSMSj'  .COUNTERS# 

#-the  time  taken  by  waitlist  I (Self  and  the  counter  ticking  during  this  waitlist  timf. 


IN  SHORT,  the  actual  t I Me  TO  RETURN  CONTROL  TO  A 2CADR  IS  AUGMENTED  BY  THe  TIME  TO  SET  UP  THe  TASKJS 
interrupt,  all  counters  ticking,  the  T3RUPT  PROCESSING  TIME,  THE  WAITLIST  PROCESSING  TIMf  AND  THE  POSSIBILITY 
OF  other  tasks  inhibiting  the  interrupt. 


ref  31  LAST  762 


5701 

E3 


BLOCK  02 
EBANK=  LSTl 


REF  316  LAST  998 
REF  1 

REF  356  LAST  998 

REF  1 
REF  1 

REF  30  LAST  999 
REF  1 


5701 

570Z 

5703 

570A 

5705 

5706 

5707 

5710 

5711 


56  U02  0 Waitlist  xch  q 


5A  061  1 

0 OOO6  1 
5 OUOO  1 
3 OOOl  0 
5A  063  0 

3 5/16  1 DLY2 

56  O06  1 

1 3360  0 


TS  WAITEXIT 

extend 

INDEX  A 

OCA  0 

TS  WAITADR 

CAF  WAITBB 

XCH  BBANK 

TCF  WAIT2 


RETURN  TO  caller  AFtER  T«5K  INSERTION: 


TASK  LISTS  IN  SWITCHED  E BANK. 

SAVE  delta  T In  0 AND  RETURN  IN 
WAITEXIT, 


PICK  UP  2CADR  OF  TASK, 

bbcon  will  Remain  in  l, 

entry  from  fixdfLay  and  VARDeLAy, 


'taegS^A  YJL  system  for  AGCj  new  PROCjRAM  SHEPATIN  by  eyles 
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L waitlist 


USER'S  OWN  PAGf  NO 


E3 


OOIA 

REF 

1 

5712 

3 0062  0 

LVWTLIST 

CA 

WAITBANK 

0015 

REF 

31 

LAST1002 

5713 

5A  006  0 

TS 

BBANK 

0016 

REF 

2 

LAST1002 

571'' 

50  061  0 

INDEX 

WAITEXIT 

0017 

5715 

0 0002  0 

TC 

2 

00175 

REF 

32 

LAST1002 

E3 

ebank= 

LSTl 

0018 

REF 

2 

LAST1002 

5716 

02003  0 

WAITBB 

BBCON 

WAIT2 

R0019 


RETURN  TO  caller  *2  AFTE^<  WAITING  DT  SPECIFIED  AT  CALLER  ♦!. 


0020  REF  317  LAST1002 

0021 

0022  REF  318  LAST1003 


5717  50  U02  0 FIXDELAY  INDEX  0 

5720  3 0000  1 CAF  0 

5721  2A  002  0 INCR  0 


BOTH  ROUTINES  MUST  BE  CALLED  UNDER 
WAITLIST  CONTROi  AND  TERMINATE  THE  TASK 
IN  WHICH  they  Were  called. 


R0023 


RETURN  TO  CALLER  *l  AFTE^  WAITING  THE  Dt  AS  ARRIVING  IN  A. 


002A  REF  319  LAST1003  5722 

0025  REF  2 LA5T1002  5723 

0026  REF  32  LAST1003  572A 

0027  REF  180  LAST  988  5725 

0028  REF  1 5725 

0029  REF  3 LAST1003  572/ 

0030  REF  I 5730 

0031  REF  129  LAST  861  5731 


55  002 

0 

vardelay 

xCH 

0 

5A  063 

0 

TS 

WAITADR 

3 OOO6 

1 

CA 

BBANK 

5E  001 

1 

TS 

L 

3 5731 

1 

CAF 

DELAYEX 

5«>  061 

1 5 707 

1 

TS 

WAITEXIT 

0 

TCF 

DLY2 

1 5 7A3 

0 

delayex 

TCF 

TASKOVER 

DT  TO  0.  task  AnRES  TO  WAITADR. 
BBANK  IS  SAVED  nURiNG  DELAY, 

GO  TO  TASKOVER  AFTER  TASK  ENTRY, 
RETURNS  TO  TASKnVER 


488954A  YJL  SYSTEM  FOR  AGC?  NeW  PROGRAM  SMePAtIN  BY  eYLeS  DeC  13.  1966  MASTER 

L waitlist  USER'S  OWN  PAGf  NO.  4 

R0032  E'JDTASK  must  BE  ENTERED  IN  FUeD-FIXeD  SO  IT  IS  DISTINGUISHABLE  BY  ITS  ADReS  ALONE. 


00335  REF  33  LAST1003 

003A  5732 

C003A  REF  3 LAST  290  5733 

0035  REF  25  LAST  771  573'* 

00351  REF  130  LAST1003  5735 

00352  REF  131  LASTIOOA  5736 

00353  5737 

0035'*  REF  A last  806  57A0 

00355  REF  33  LAST  806  57Al 

003555  REF  7 LAST-  809 

00356  57A2 

C00356  REF  1 57A3 

00357  REF  132  LASTIOOA  57A'* 


E3  EBANK=  LSTl 

72DA3  0 ENDTASK  -2CADR  SvCT3 
73T7A  1 

10  D76  1 SVCT3  CCS  FLAGWRD2 

1 5TA5  0 TCF  TASKOVER 

1 5TA5  0 TCF  TASKOVER 

1 5TAO  0 TCF  *1 

3 567A  1 CAF  PRI035 

0 5523  0 TC  NOVAC 

E3  EBANKs  NBDX 

03503  1 ■ 2CADR  NBDONLY 

2AD03  1 

1 5TA5  0 TCF  TASKOVER 


DRIFT  FLAG 


compensate  For  nbd  coefficients 

ENABLE  EVERY  81.93  SECONDS 


PAGeiOOA 

E3 


ONLY 
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L WAITLIST  USER'S  OWN  PAGE  NO.  S E3 


P00S6 

BEGIN  task 

INSERTION 

. 

0037 

01.3360 

bank 

01 

00S8 

REF 

REF 

2 

LAST1003 

LAST  388 

01.3360 

01.3361 

5A  062  1 WAIT2 

«t  0026  1 

TS 

WAITBANK 

BBANK  OF  CALLING  PROGRAM, 

00S9 

3 

CS 

times 

OOAO 

REF 

33 

LAST  9A5 

01,3362 

6 7(A6  0 

AD 

BiT8 

BIT  8 = OCT  200 

OOAl 

REF 

357 

LASTI002 

01,3363 

10  OOO  0 

CCS 

A 

TEST  200  - C(TIN;E3).  IF  POSITIVE, 

A00A2  IT  means  that  TIMES  OVERFLOW  HAS  OCCURRED  PRIOR  TO  CS  TIMES  ANO  THAT 


AOOAS  C(TIMES)  = T - Til  INSTEAD  OF  1.0  - (T1  - T).  tHE  FOLLOWING  FOUR 

A00A4  orders  Set  CU)  = TD  - T1  ♦ i in  either  case. 


00A5 

REF 

2 

LAST  938 

01 .336A 

6 6IA3 

1 

AD 

OCTAoOOl 

OVERFLOW  HAS  OCCURRED.  SET 

II 

0 

00A6 

REF 

358 

LAST1005- 

01,336R 

A 0000 

0 

CS 

A 

T - T1  ♦ 1.0  - pOl 

R0047 

NORMAL  1 

CASE  (C(A) 

NNZ)  yields 

SAMt  Cl 

lA) ; 

-(  -(1.0-(T1 

-T))  ♦ 200)  - 1 

00A8 

REF 

1 

01.3366 

6 3PlA 

1 

AD 

0CTA0201 

00A9 

REF 

320 

LAST1003 

01,3367 

6 0002 

0 

AD 

0 

RESULT  s TD  - Tl  ♦ 

1. 

0050 

REF 

359 

LAST1005 

01,3370 

10  000 

0 

CCS 

A 

TEST  TD  - Tl  ♦ 1 

0051 

REF 

3A 

LASTIOOA 

01,3371 

6 IHOO 

1 

AD 

LSTl 

IF  TD  - Tl  POS,  GO 

TO  WTLST5 

WI  TH 

0052 

REF 

1 

01,3372 

1 3A34 

0 

TCF 

WTLST5 

C(A)  s (TO  - TH  ♦ 

C(LSTl)  = 

TD-T2*1 

0053 

01.3373 

1 3A7A 

0 

NOOP 

005A 

REF 

321 

LAST1005 

OI.337A 

A 0002 

1 

CS 

0 

Rooss  NDTE  that  ThIS  PROGRAM  SECTIDN.  IS  NEVER  ENTERED  WHEN  T-Tl  G/E  -1. 

R0056  SINCE  TD-Tl  + 1 = (TD-T)  ♦ (T-Tl  + D*  AND  DELTA  T = TD-T  G/E  +1  . (G/E 

Roost  symbol  means  greater  than  or  edjal  jo).  thus  there  need  be  no  con- 

R0058  cern  over  a previous  or  imminent  UVERFLOW  of  times  here. 


0059 

REF 

1 

01.3375 

6 7(a0 

0 

AD 

POSl/2 

WHEN  TD  IS  NEXT.  FORM  QUANTITY 

0060 

REF 

2 

LAST1005 

01,3376 

6 7 (AO 

0 

AD 

POSl/2 

1.0  - DELTA  T s 1.0  - (TD  - T) 

0061 

REF 

A 

LAST1005 

01.3377 

56  D26 

0 

XCH 

TIMES 

0062 

REF 

10 

LAST  629 

01,3aOO 

6 7(37 

0 

AD 

negmax 

0063 

REF 

322 

LAST1005 

01,3a01 

6 OUO2 

0 

AD 

0 

1,0  - DELTAT  T NOW  COMPLETE, 

006A 

01 ,3a02 

0 0006 

1 

EXTEND 

ZERO  INDEX  Q, 

0065 

01,3A03 

22  007 

0 

3XCH 

7 

(ZO) 

^88954A  yJL  SySTEM  FOR  AqC; 


L WAITLIST 


0066 

rEF 

35 

LAST1005 

0067 

REP 

36 

LAST1006 

0068 

REF 

37 

LA5T1006 

0069 

REF 

38 

LAST  1006 

0070 

REf 

39 

LAST1006 

0071 

REF 

40 

LAST1006 

0072 

REF 

41 

LAST1006 

0073 

REF 

42 

LAST1006 

0074 

REF 

3 

LAST1003 

0075 

REF 

323 

LASTIOO5 

0076 

0077 

REF 

19 

LAST  85 

0078 

REF 

20 

LAST1006 

0079 

RcF 

21 

LAST1006 

0080 

REF 

22 

LAST1006 

0081 

REF 

23 

LAST1006 

0082 

REF 

24 

LAST1006 

0083 

REF 

25 

LAST1006 

0084 

REF 

26 

LAST1006 

0085 

REF 

27 

LAST1006 

0086 

REF 

3 

LAST  85 

A0087 

0088 

0089 

REF 

1 

0090 

REF 

1 

pROCjRAvi  S^EpATIN  BY  EyLES 


.3AOA  57»‘*00  1 WTLSTA  XCH 

.3A05  57'‘*01  0 XCH 

,3A06  57'‘*02  0 XCH 

*3407  57''*03  1 XCH 

*3410  57»‘*04  0 XCH 

*3411  57*‘»05  1 XCH 

*3412  57*‘*06  1 XCH 

*3413  57'‘*07  0 XCH 

*341^  3 0063  1 CA 

.3413  50  002  0 INDEX 

,34l<>  1 3‘»17  1 TCP 


*3417  SS'**!!  0 OXCH 

*3420  53*413  1 OXCH 

*3421  1 OXCH 

*3422  0 OXCH 

*3423  53*‘*21  0 OXCH 

*342A  53'‘*23  1 OXCH 

*3425  1 OXCH 

*3426  63'‘*27  0 OXCH 

*3427  53''*31  1 OXCH 

*3430  6 5732  1 AD  , 


*3431  0 0006  1 EXTEND 

*3432  1 5712  1 BZF 

*3433  1 3507  1 TCP 


NEW 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01- 

01- 

01- 

01- 

01- 

01- 

01- 

01 

01- 

01. 

01. 

01. 


dec  l3,  1966  master  pAGE1006 


LSTI 

LSTl  +1 

LSTl  *2 

LSTl  *3 

LSTl  *4 

LSTl  *5 

LSTl  +6 

LSTl  *7 

USER'S  OWN  page  NO.  6 £3 

WAITADR 

0 

♦ 1 

(MINOR  PART  OF  TASK  CADR  HAS  bEEN  IN  L, 

LST2 

LsT2  +2 

LST2  *4 

LST2  *6 

LST2  *80 

LST2  *100 
LST2  +120 
LST2  *140 

AT  END.  check  THAT  C(LST2*10)  Is  STD 

LST2  +160 
ENDTASK 

END  ITEM*  AS  CHECK  FOR  EXCEEDING 

LVWTLIST 

wtabort 

the  LENGTH  OF  THE  LIST. 

DUMMY  TASK  ADRES  SHOULD  BE  IN  FIXED- 
FIXED  SO  ITS  ADRES  ALONE  DISTINGUISHES 
IT. 

^8895^A  YJL  system  FoR  aGC!  NeW  Pho^RAM  SHePatIN  BY  eYLeS 


L ^AITLlSl 

0091  REF  360  LAST1005 

0092  REF  A3  LAST1006 

0093 

009A  REF  187  LAST  995 

0095  REF  I 

0096 

0097  REF  361  LA5T1007 

0098  REF  AA  LAST1007 

0099 

0100  REF  188  LAST1007 

0101  REF  2 LAST1007 

0102 

0103  REF  362  LAST1007 

OlOA  REF  A5  LAST1007 

0105 

0106  REF  189  LAST1007 

0107  REF  3 LAST1007 

0108 

0109  REF  363  LAST1007 

0110  REF  A6  LAST1007 

0111 

0112  REF  190  LAST1007 

0113  REF  A LAST1007 

OllA 

0115  REF  36A  LAST1007 

0116  REF  A7  LAST1007 

0117 

0118  REF  191  LAST1007 

0119  REF  5 LAST1007 

0120 

0121  REF  365  LAST1007 

0122  REF  A8  LAST1007 

0123 

012A  REF  192  LAST1007 

0125  REF  6 LAST1007 

0126 


*3A3A 

*3a3P 

«3a36 

»3A3/ 

10  000 
6 l‘*01 

1 3‘*A2 

0 

0 

1 

WTLST5 

CCS 

AD 

TCF 

6 7^55 

1 

AD 

.3AA0 

0 3515 

0 

TC 

*3AAl 

OOOOl 

0 

OCT 

10  000 

0 

♦ A 

CCS 

*3AA3 

6 1^02 

0 

AD 

*3AAA 

1 3‘*50 

1 

TCF 

*3AAB 

6 7'55 

1 

AD 

♦ 3AAP 

0 3515 

0 

TC 

*3AAY 

00002 

0 

OCT 

*3A50 

10  ooo 

0 

♦A 

CCS 

.3A5l 

6 1A03 

1 

AD 

.3A52 

1 3A56 

1 

TCF 

.3A5B 

6 7F55 

1 

AD 

• 3A5A 

0 3515 

0 

TC 

.3A55 

00003 

1 

OCT 

*3A5P 

10  000 

0 

♦ A 

■ CCS 

*3a5Y 

6 l^OA 

0 

AD 

*3A60 

1 O'tSA 

0 

TCF 

t3A6l 

6 7F55 

1 

AD 

*3A62 

0 3515 

0 

TC 

♦ 3A63 

OOOOA 

0 

OCT 

.3A6A 

10  Ooo 

0 

♦A 

CCS 

*3A65 

6 1A05 

1 

AD 

*3A66 

1 3'*72 

1 

TCF 

*3A67 

6 7'55 

1 

AD 

♦ 3A70 

0 3515 

0 

TC 

.3A71 

00005 

1 

OCT 

*3a72 

10  Ooo 

0 

♦ A 

CCS 

*3A73 

6 I'tOS 

1 

AD 

*3a7A 

1 3500 

0 

TCF 

*3A7i> 

6 7f55 

1 

AD 

*3A7P 

*3A77 

0 3515 
00006 

0 

1 

TC 

OCT 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 


Dec  13*  1966  Master  paGeioot 


USER'S  OwN  PAGE  NO,  7 E3 

A 

LSTl  *1 
♦ A 

ONE 

WTLST2 

1 

TEST  TD  - T2  ♦ 1 

A 

LSTl  ♦2 
♦ A 

ONE 

WTLST2 

2 

TEST  TD  - T3  ♦ 1 

A 

LSTl  *3 

♦ A 

ONE 

WTL5T2 

3 

TEST  TO  - Ta  ♦ 1 

A 

LSTl  ♦A 

♦ A 

ONE 

WTLST2 

A 

TEST  TO  - T5  ♦ 1 

A 

LSTl  *5 
♦ A 

ONE 

WTLST2 

5 

TEST  TD  - T6  ♦ 1 

A 

LSTl  *6 
♦ A 

ONE 

WTLST2 

TEST  TD  - T7  ♦ 1 

6 


YJL  system  for  AGCJ  new  program  SMePATIN  by  eYLeS 


L *jaitljst 


0127 

REF 

366 

LAST1007 

0128 

REF 

49 

LAST1007 

0129 

0130 

REF 

193 

LAST1007 

0131 

REF 

7 

LAST1007 

0132 

0133 

REF 

367 

LAST1008 

0134 

REF 

10 

LAST  991 

0135 

0136 

REF 

194 

last  1008 

0137 

REF 

8 

LAST  1008 

0138 

0139 

*3500 

*3501 

ID  000 
6 I'tOT 

0 

♦ 4 

CCS 

0 

AD 

* 3502 
*3503 

1 3606 

0 

TCF 

6 7^55 

1 

AD 

*350A 

0 3615 

0 

TC 

*3505 

00007 

0 

DCT 

*3506 

ID  000 

0 

+ 4 

CCS 

*350T 

0 6000 

1 

wtabort 

TC 

*3510 

01203 

1 

DCT 

*3511 

6 7^55 

1 

AD 

*3512 

0 3615 

0 

TC 

*3513 

OOOlO 

0 

DCT 

*351'* 

40201 

0 

0CT40201 

DCT 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 

01 
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USER'S  OWN  PAGF  NOt  8 E3 

A 

LSTl  *7 

♦ 4 

ONE 

WTLST2 

7 

A 

ABORT  NO  ROOM  IN  THE  iNN, 

1203 

ONE 

WTLST2 

10 

40201 
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L waitlist 


POIAO 

THE  ENTRY  TO  WTLST2 

jJST  PREC 

EOINU  OCT  N IS 

FOR  T LE 

TD  LE  T -1 

ROlAl 

N 

N*1 

R01A2 

(LE  means  less  than 

OR  equal 

TO),  at 

ENTRY,  C 

(A)  s _{TC 

» - T *1) 

R01A3 

Ntl 

ROIAA 

THE  LSTI  entry  -(T 

- T *1) 

IS  td  be 

replaced 

BY  -(TD  - 

• T ♦ 1)  , AND 

R01A5 

N41  N 

N 

R01A6 

THE  entry  -(T  - TC 

1 ♦ 1)  IS 

TO  Bt  inserted  immediately 

FOLLOWING. 

ROl  AT 

N+1 

0148 

REF  1 

01.3515 

54  D64 

1 WTLST2 

TS 

WAITTEMP 

0149 

REF  324  LA5T1006 

01,3516 

50  002 

0 

INDEX 

0 

0150 

01.3517 

3 0000 

1 

caf 

0 

0151 

REF  325  LAST1009 

01,3520 

54  002 

1 

TS 

0 

0152 

REF  195  LAST1008 

01.3521 

3 7?55 

1 

CAF 

ONE 

, 0153 

REf  2 LAST1009 

01.3522 

6 0064 

0 

AD 

WAITTEMP 

0154 

REF  326  LAST1009 

01,3523 

50  002 

0 

INDEX 

0 

0155 

REF  50  LAST1008 

01,3524 

27'A77 

1 

ADS 

LSTI  -1 

0156 

REF  3 last  1009 

01,3525 

4 0064 

1 

CS 

WAITTEMP 

0157 

REF  327  LAST  1009 

01.3526 

50  002 

0 

INDEX 

0 

0158 

REF  1 

01,352? 

1 3404 

0 

TCF 

WTLST4 

R0159 

C(TIME3)  = 1.0  - (T1 

- T) 

R0160 

C(LSTl  ) = - (T2  - 

Tl)  ♦ 1 

R0161 

C(LSTUl)  s - (T3  - 

T2)  ♦ 1 

R0162 

C(L5T1+2)  = - (T4  - 

T3)  ♦ 1 

R0163 

C(LST1*3)  = - (T5  - 

T4)  ♦ 1 

R0164 

C ( LST  1*4)  s •"  (T6  - 

T5)  ♦ 1 

R0165 

C(LST2  ) s 2CADR 

TASKl 

R0166 

C(LST2*2  ) B 2CADR 

TASK2 

R0167 

C(LST2*4  ) = 2CADR 

TASK3 

R0168 

CtLST2^6  ) B 2CADR 

TASK4 

R0169 

C(LST2*e  ) B 2CADR 

TASK  5 

R0170 

C(LST2+10)  s 2CADR 

TASKS 

USER'S  OWN  page  no.  9 


C(A)  s -(TO  - T ♦ 1) 
INDEX  value  into  Q. 

C(A)  = -(TD  - T ) ♦ 1. 

N 


PAGE1009 

E3 


'♦8895AA  YJL  SySTEM  pOR  AGC!  ^EW  pROGRA.v)  S^^EpATIN  BY  EYLES 


DEc  I3t  1966  master  pAQElOlO 


L h/AITLIST 

P0171  enters  here  On  T3  rj3iT  t^  Dispatch  waiti  isted  task. 


0172 

0173 

REF 

18 

LAST 

554 

01.3530 

01.3531 

0174 

REF 

16 

LAST 

554 

01,353i: 

5A  <J16  1 T3RUPT  TS  BANKRUPT 

0 0006  1 EXTEND 

22  012  1 OXCH  ORUPT 


0175 

REF 

6 

51 

LAST  972 

01,3533 

0176 

REf 

last  1009 

01 ,353A 

0177 

REF 

52 

LASTIOIO 

01,3535 

0178 

REF 

53 

LASTIOIO 

01,3538 

0179 

REF 

54 

LASTIOIO 

01,3537 

0180 

REf 

55 

UASTlOlO 

01,3540 

0181 

REF 

56 

LASTIOIO 

01,3541 

0182 

REF 

57 

LASTIOIO 

01,354ii 

3 Hit  1 T3RUPT2  CAP  NEGl/2 

57*‘?07  0 XCH  LSTI  *7 

57»‘^06  1 XCH  LSTl  +6 

57'A05  1 XCH  LSTl  *5 

57'‘*OA  0 XCH  LSTl  *4 

1 XCH  lSTI  *3 

57»‘*02  0 XCH  LSTl  *2 

57'‘*01  0 XCH  LSTl  *1 


0183  rEF  58 

0184  REF  59 

0185  REF  5 

0186  REF  4 

0187  REF  290 

0188  REF  5 


LAsTlOlO  01 
LAST  970  01 
LAST1005  01 
LAST  184  01 
LAST  999  01 
LAStIOIO  01 


3543  ST'^^OO  1 
354A  6 7^35  1 

3545  26  026  1 

3546  55*076  0 

3547  4 7761  1 

3550  55*076  0 


XCH  LsTl 

AD  POSMAX 

ADS  TIME3 

TS  RUPTAGN 

CS  ZERO 

TS  RuPTAgN 


0189 

01,3551 

0 OOO6 

1 

0190 

REF 

4 

LAST1006 

01,3551: 

4 5733 

1 

0191 

REF 

28 

LAST1006 

01,3553 

53*931 

1 

0192 

ref 

29 

LASTIOIO 

01,355A 

53*927 

0 

0193 

REF 

30 

LASTIOIO 

01,3555 

53*925 

1 

0194 

REF 

31 

LASTIOIO 

01,3558 

53*923 

1 

0195 

REF 

32 

LASTIOIO 

01,3557 

53*921 

0 

0196 

REF 

33 

LASTIOIO 

01  ,356*3 

53*917 

0 

0197 

REF 

34 

last  1010 

01 ,3561 

53*915 

1 

0198 

REF 

35 

LASTIOIO 

01 ,356i: 

53*913 

1 

0199 

REF 

36 

LASTIOIO 

01,3563 

53*911 

0 

EXTEND 

DCS  ENDTASK 
OXCH  LST2  ♦ISD 

OXCH  LsT2  *14D 

DXCH  LST2  ♦IZD 

DXCH  LST2  *10D 

OXCH  LST2  ♦SD 

OXCH  LST2  +6 

OXCH  LST2  *4 

OXCH  LsT2  +2 

OXCH  LST2 


0200 


01,356A  52  006  0 oTCB 


USER*S  OWN  page  NO,  10 


E3 


DISPATCH  waitlist  TASK. 


1.  MOVE  UP  LSTi  contents*  ENTERING 
A vAlUE  Op  1/2  *1  AT  THE  BOTTOM 
FOR  T6-T5.  rORRESPONDING  TO  THE 
interval  81.91  SEC  FOR  ENDTASK. 


2.  SET  T3  = 1,0  - T2  -T  USING  LIST  1, 
SO  T3  WONT  TICK  DURING  UPDATE. 


SETS  RUPTAGN  TO  ♦!  ON  OVERFLOW. 
dispatch  TASK. 


^8895^A  YJL  SYSTEM  F^R  Aqc  ! PrOG^A.V)  sHErATIN  bY  EYLEs 


L »JiMTL157 


P0202 

return*  After 

execution  Up  ■ 

73 

overflow 

TAski 

0203 

57A5 

BLOCK 

02 

020A 

REF 

6 

LASTIOIO 

57A5 

11*^76 

0 

TaSKOVER 

CCS 

RUPTAGN 

0205 

REF 

2 

LAST1002 

57A6 

3 5a6 

1 

CAF 

WAITBB 

0206 

REF 

33 

LAST1003 

57A7 

5A  UO6 

0 

TS 

BBANK 

0207 

REF 

1 

575O 

1 3P33 

0 

RESUME 

TCF 

T3RUPT2 

0208 

575I 

0 0U06 

1 

EXTEND 

0209 

REF 

17 

LASTIOIO 

575<: 

22  ^12 

1 

OXCH 

QRUPT 

0210 

REF 

19 

LASTIOIO 

575S 

3 OUI6 

0 

noorsm 

CA 

BANKRUPT 

0211 

REF 

3A 

LASTlOll 

575A 

5<t  U06 

0 

TS 

BBANK 

0212 

REF 

11 

LAST  55 

5755 

52  Uii 

b 

NOOBRSM 

dxch 

ARUPT 

0213 

5756 

50  U17 

1 

^TESUME 

OEc  13*  1966  MAsTEr  rAgEIOU 


USER'S  OWN  page  no.  11 


E3 


IF  ♦!  RETURN  TO  TsRUPT,  IF  -0  RESUME, 

DISPATCH  NEXT  TASK  IF  IT  WAS  DUE. 
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L 

PlOOO 


Riooi 

R1003 

Rioos 

R1007 

A1008 

A1009 

AlOlO 

AlOll 

R1012 

1013 

lOlA 

1015 

1016 

1017 

1018 

1019 

1020 
1021 

1022 

10225 

1023 

C1023 

R102A 

1025 

1026 

1027 

1028 

1029 

R10291 

1030 

1031 

1032 

1033 
103A 

A1035 

A1036 

A1037 

A1038 

A1039 


WAITLIST  USER'S  OWN  PAGE  NO.  U E3 

LDNGCALL 


LDNGCALL  IS  CALLED  WITH  THE  DELTA  TIME  ARRIVING  IN  A,L  SCALED  AS  TIME2»TIMEI  WITH  THE  2rADR  OF  THE  TASK 
immediately  FOLLOWING  ThE  TC  .ONGLAll.  FOR  EXAMPLE.  IT  MIGhT  BE  DONE  As  FOLLOWS  WHERE  tIMElOC  Is  ThE  NAME  OF 
A DP  Register  containing  a d^.ta  iime  and  wheRe  tasktodo  is  the  name  of  the  location  at  which  lungcall  is  to 

START 


extend 

DCA  TIMELOC 

TC  LONGCALL 

2CA0R  TASKTODO 

the-  following  is  to  Be  In  fixed-fixed  and  unswitched  ERRASIBLE  *** 

5757  block  02 

REF  59  LASTlOlO  E3  EBANKs  LSTl 

REF  7 LAST  65  5757  53*153  0 LONGCALL  DXCH  LONGTIME  OBTAIN  THE  DELTA  TIME 


REF  328  LA5T1009 
REF  1 


5760  0 0006  1 extend  OBTAin  ThE  2CADr 

5761  5 0002  0 NOX  0 

5762  3 0001  0 OCA  0 

5763  53*151  1 OXCH  LONGCADR 


REF 


1 


576A 

5765 


0 0006  1 
3 5T70  1 


EXTEND  NOW  GO  TO  THE  APPROPRIATE  SWITCHED  BANK 

OCA  LGCL2CDR  FOR  THE  REST  OF  LONGCALL 


5766  52  006  0 DTCB 


REF  60  LAST1012  E3  EBANK=  LSTl 

576 T 03R65  1 LGCL2C0R  2CADR  LNGCALL2 
REF  1 5770  02O03  0 

THE  FOLLOWING  MAY  BE  IN  A SWUCHED  BANK,  INCLUDING  ITS  ERASABLE  *** 

01*3565  BANK  01 

REF  1 01,3565  23*‘*35  1 LNGcAll2  lXCH  LONGEXIT  *1  SAVE  ThE  CORRECT  BB  FOR  RETURN 

REF  105  LAST  999  01,3566  3 7^5A  0 CA  TWO  OBTAIN  THE  RETURN  ADDRESS 

REF  329  LAST1012  01,3567  26  002  1 ADS  Q 

REF  2 LAST1012  01,3570  55*A3A  1 TS  LONGEXIT 

*****  WAITLIST  TASK  LOnGCYOL  ****** 

01,3571  0 0006  1 LONGCYCL  EXTEND  CAN  WE  SUCCESFUl  LY  TAKE  ABOUT  1.25 

REF  1 01,3572  A 3‘>03  0 DCS  DPBITIA  MINUTES  OFF  OF  LONGTIME 

REF  8 LAST1012  01,3573  21*153  0 DAS  LONGTIME 

REF  9 LAST1012  01,357^  11*153  0 CCS  LONGTIME  ♦!  THE  REASOnIBG  BEHIND  THIS  PArT  IS 

REF  1 01,3575  1 361a  0 TCF  MUCHTIME  INVOLVED,  TAKING  INTO  ACCOUNT  THAT  THE 

WORDS  MAY  NOT  BE  Slr.NED  CORRECTED  (DP 
BASIC  instructions 

DO  NOT  SIGN  CORRECT)  AND  THAT  WE  SUBTRAC 
TED  BITIA  (1  over  Half  THE  POS.  VALUE 
REPRESENTIBLE  in  single  WORD) 


'V8895'tA  YJL  SYSTEM  FOR  AGC;  NEW  PRO^JRAM  S*^EPATIN  BY  EYLES 
L WAITLIST 


lOAO 

01  .357<> 

1 3377 

0 

NOOP 

lOAl 

01 ,3577 

1 3900 

0 

TCF 

♦ 1 

1042 

REF 

10  LAST1012 

01,3600 

11*152 

1 

CCS 

longtime 

1043 

REF 

2 LAST1012 

01,3601 

1 3914 

0 

TCF 

MUCHTIME 

1044 

01,3602 

ooooo 

1 

DPBIT14  OCT 

OOOOO 

1045 

01,3603 

20OOO 

0 

OCT 

20000 

A10A6 


1047 

REF 

59 

LAST  1000 

01 ,360A 

3 7740  0 

lasttime 

CA 

BIT14 

1048 

REF 

11 

LAST1013 

01,3609 

2 7' 153  0. 

ADS 

LONGTIME 

1049 

REF 

143 

LAST  861 

01,3606 

0 5'01  1 

TC 

WAITLIST 

10495 

ref 

61 

LAST1012 

E3 

EBANKs 

LSTl 

1050 

01,3607 

03921  1 

2CADR 

GETCADR 

C1050 

REF 

1 

01,3610 

02003  0 

1051 

REF 

1 

01,36li 

3 3923  0 

LONGRTRN 

CA 

TSKOVCDR 

D C C 

53*435  0 

1052 

Ktr 

3 

LAbT 1012 

01,361* 

l/ACH 

LUNGEX I T 

1053 

01,3613 

52  006  0 

DTCB 

1054 

REF 

60 

LAST1013 

01,361A 

3 7TAO  0 

muchtime 

CA 

BIT14 

1055 

REF 

144 

LAST1013 

01,3619 

0 5f01  1 

TC 

WAITLIST 

10555 

REF 

62 

LAST1013 

E3 

ebank* 

LSTl 

1056 

01,3619 

03=71  1 

2CADR 

LONGCYCL 

C1056 

REF 

1 

01,3617 

02003  0 

1057 

REF 

1 

01,3620 

1 3911  0 

TCF 

LONGRTRN 

R10571 

""X  WAITLIST 

TASK  3 

etcadr  *** 

1058 

rEF 

2 

LAsTlOU 

01,3621 

53'151  1 

GETCADR 

dxch 

LONGCADR 

1059 

01,3622 

52  006  0 

DTCB 

1062 

REF 

133 

last  1004 

01,3623 

05'45  1 

TSKOVCDR 

oENADR 

TASKOVER 

End  of  revision  lo  of  subroutine  Master  by  reichert 


dec  U,  I966  master  PAGE1013 

USER'S  OWN  PAGf  NO.  13  E3 

CANiT  GET  Here 


LONGCALL 

get  back  the  correct  delta  tfor  waitlisi 


THE  entry  to  our  LONGCADR 

set  it  up  so  that  only  the  first  exit 
TO  the  caller  Of  LONGCALL 
THE  REST  ARE  TO  TASKOVER 


WE  HAVE  OVER  OUr  ABOUT  1,25  MINUTES 

SO  set  up  for  Another  cycle  through  herl 


NOW  EXIT  PROPERl Y 

GET  the  LONGCALL  THAT  WE  WISHED  TO  sTArI 
AND  TRANSFER  CONTROl  TO  IT 


Last  assembled  on  dfc  t*  i966 


48895^A  YJL  SVsTEM  fOR  AGC5  NEW  pRO&Ri\\l  sHEPATIN  BY  EYLEs 


L A5C  BLOCK  TaO  SELF-CHeCK 


0001 


37*2000  bank  37 


0002 

REF 

69 

LAST  937 

0003 

REF 

35 

LAST  937 

OOOA 

REF 

26 

LAST  937 

0005 

REF 

A6 

LAST  937 

0006 

REF 

3A 

LAST  905 

0007 

REF 

50 

LAST  9A8 

0008 

REF 

AA 

LAST  987 

0009 

REF 

3A 

LAST1005 

0010 

REF 

23 

LAST  806 

0011 

REF 

50 

LASTIOOO 

0012 

REF 

39 

last  1000 

0013 

REF 

26 

LASTIOOO 

001 A 

REF 

31 

LASTIOOO 

0015 

REF 

6 1 

wAoT  LOl 3 

0016 

REF 

AA 

LAST  982 

7755 

SBITl 

EQUALS 

BITl 

775A 

SBIT2 

EQUALS 

BIT2 

7753 

SBIT3 

EQUALS 

BIT3 

7752 

SBITA 

EQUALS 

BlTA 

7751 

5BIT5 

EQUALS 

BIT5 

7750 

SB  I T6 

EQUALS 

B I T6 

77A7 

SBIT7 

EQUALS 

BIT7 

77A6 

SBIT8 

EQUALS 

BIT8 

77A5 

SBIT9 

EQUALS 

BIT9 

77AA 

SBITIO 

EQUALS 

BITlO 

77A3 

SBITll 

EQUALS 

BITII 

77A2 

SBIT12 

EQUALS 

B 1 T 1 2 

77A1 

SB1T13 

EQUALS 

BIT13 

77AO 

SB  I T 1 A 

EQUALS 

Bi  T lA 

7737 

SBIT15 

EQUALS 

B1T15 

0017  REF  291  LASTlOlO 


0018 

REF 

0019 

REF 

0020 

REF 

0021 

REF 

0022 

REF 

70  lASTIOIA 
36  LASTIOIA 
38  LAST  938 
33  LAST  967 
18  LAST  92A 


7761 

S+ZERO 

EQUALS 

zero 

7755 

S*1 

EQUAlS 

BITl 

775A 

5 + 2 

EQUALS 

B1T2 

6301 

S*3 

EQUALS 

THREE 

7753 

S + A 

equals 

FOUR 

7760 

5*5 

equals 

five 

0023 

REF 

21 

LAST 

939 

002A 

REF 

19 

LAST 

969 

0025 

REF 

16 

LAST 

979 

0026 

0027 

nn5Q 

0029 

0030 

0031 


0032 

REF 

16 

LAST 

915 

0033 

003A 

REF 

2 

LAST 

163 

6276 

S*6 

EQUALS 

SIX 

7757 

S + 7 

EQUALS 

seven 

A553 

sbbits 

Equals 

LOWS 

37.2000 

OOU50  1 

CNTRCON 

OCTAL 

00050 

37.2001 

OOD61  0 

ERASCONl 

OCTAL 

00061 

37.2002 

0137A  0 

ERASC0N2 

OCTAL 

0137A 

37.2003 

OlAOO  1 

ERASCONb 

OCTAL 

OlAOO 

37.200A 

01‘'61  0 

ERASCON3 

OCTAL 

01A61 

37.2005 

01T7A  1 

ERASCONa 

OCTAL 

0177A 

5356 

SlOBITS 

EQUALS 

LOWlO 

5652 

SBNK03 

EQUALS 

PRI06 

37.2006 

00060  1 

SIXTY 

OCTAL 

00060 

0035 

37.200T 

0036 

0037 

0038 

37  *20lO 
37.2011 
37.2011! 

0039 

OOAO 

OOAl 

37 .2013 
37.201A 
37.2015 

00A2 

00A3 

OOAA 

REF 

REF 

2 LAST 
A LAST 

899 

757 

37  *2015 

60017 

1 

SJPRCON 

OCTAL 

60017 

17T77 

0 

S13BITS 

OCTAL 

17777 

25‘:52 

0 

CONC+Sl 

OCTAL 

25252 

37T37 

0 

OVCON 

OCTAL 

3 7737 

37  T76 

0 

DVCON 

OCT  AL 

37776 

52AOO 

1 

C0NC*S2 

OCTAL 

52A00 

76T77 

1 

ERASC0N5 

OCTAL 

76777 

nno 

1 

S-7 

OCTAL 

77770 

61A6 

S-A 

EQUALS 

NEGA 

5357 

S-3 

EQUALS 

NtG3 

00A5 

REF 

5 

LAST 

988 

00A6 

ref 

7 

LAST 

951 

00A7 

REF 

3 

LAST 

718 

00A8 

REF 

63 

LAST1013 

5355 

5-2 

EQUALS 

NEG2 

7763 

S-l 

equals 

negone 

7762 

S-ZERO 

EQUALS 

NEGo 

E3 

EBANK= 

LSTl 

DEc  13»  1966  SElFChEc  PA&EIOIA 


USER'S  OWN  PAGf  NO.  1 


00377 

USED  IN  CNTRCHK 
USED  IN  ERASCHK 
USED  IN  ERASCHK 
USED  IN  ERASCHK 
USED  IN  ERASCHK 
USED  IN  ERASCHK 
01777*  USED  IN  fRASCHK 
06000.  USED  IN  rOPECHK 


USED  IN  ROPECHK 

USED  IN  CYCLSHFt 
USED  IN  RUPTCHK 


USED  IN  CYCLSHFT 


48895^A  YJU  system  FOR  AGCj  NEW  PROGRAM  SHePATIN  BY  EYUES 


dec  13,  1966  SELFCHEC  PAGEIOIS 


L Aoc  Block  t^o  self-check  user's  own  pagf  no.  k e3 


00A9 

0050 

0051 

REF 

REF 

REF 

1 

36 

3 

LAST  987 
LAST  999 

37 

37 

37 

.2017 

.2020 

.2021 

01^71 

00021 

02102 

0 

1 

0 

ADRSl 

SRADRS 

SELFADRS 

ACRES 

ACRES 

ACRES 

SKEEPl 

SR 

selfchk 

selfchk  return  address,  should  be  put 

A0052 

IN  selfret  when  going  from  selfchk  to 

A0053 

SHOWSUM  AND  PUT  IN  SKEEPI  WHeN  GOING 

A005A 

FROM  SHOWSUM  TO  SELF-CHECK. 

0055 

REF 

330 

LAST1012 

37 

.2022 

3 0002 

0 

ERRORS 

CA 

Q 

0056 

ref 

. 5 

LAsT  708 

37 

.2023 

55*361 

0 

TS 

SFAIl 

SAVE  0 FOR  failure  lOcATION 

0057 

REF 

2 

LAST  320 

37 

.202A 

25*362 

1 

INCR 

ERCOUNT 

KEEP  TRACK  OF  NUMBER  OF  MALFUNCTIONS, 

0058 

REF 

36 

LAST  768 

37 

.202S 

0 A^AA 

1 

TC 

ALARM 

0059 

37 

.2026 

01102 

0 

OCT 

01102 

SELF-CHECK  MALFUNCTION  INDICATOR 

0060 

REF 

3 

last  282 

37 

.2027 

11*357 

0 

CCS 

SMODE 

0061 

REF 

1 

37 

.2030 

3 7 761 

0 

CA 

S+ZERO 

0062 

ref 

A 

last  1015 

37 

.2031 

55*357 

0 

TS 

SMOdE 

0063 

REF 

A 

LAST1015 

37 

.2032 

0 2102 

0 

TC 

SELFCHK 

GO  TO  IDLE  LOOP 

006A 

REF 

6 

LAST1015 

37 

.2033 

0 1361 

1 

TC 

SFAIL 

CONTINUE  WITH  SfLF-CHECK 

0065 

REF 

368 

LAST1008 

37 

.203A 

A 0000 

0 

♦OCHK 

cs 

A 

0066 

REF 

369 

LAST1015 

37 

.2035 

10  000 

0 

-OCHK 

CCS 

A 

0067 

REF 

1 

37 

.2036 

1 2022 

1 

TCP 

ERRORS 

0068 

REF 

2 

LAST1015 

37 

.2037 

1 2022 

1 

TCF 

ERRORS 

0069 

REF 

3 

LAST1015 

37 

.20a0 

1 2022 

1 

TCF 

ERRORS 

0070 

REF 

331 

LAST1015 

37 

.20Al 

0 0002 

0 

TC 

Q 

0071 

REF 

370 

LAST1015 

37 

.20A2 

A OOOO 

0 

♦ICHK 

CS 

A 

0072 

ref 

371 

last  1015 

37 

.20A3 

10  000 

0 

-ICHK 

CCS 

A 

0073 

REF 

A 

LAST1015 

37 

.20AA 

1 2022 

1 

TCF 

ERRORS 

007A 

REF 

5 

LAST1015 

37 

.20A5 

1 2022 

1 

TCF 

ERRORS 

0075 

REF 

372 

LAST1015 

37 

.20A6 

10  000 

0 

CCS 

A 

0076 

REF 

6 

LAST1015 

37 

.20A7 

1 2022 

1 

TCF 

ERRORS 

0077 

REF 

332 

LAST1015 

37 

.205° 

0 0002 

0 

TC 

Q 

0078 

37 

.2051 

0 0006 

1 

SMODECHK 

EXTENC 

0079 

ref 

2 

LA5T1015 

37 

.2052 

23*371 

0 

OXCH 

SKEEpl 

0080 

REF 

2 

last  999 

37 

.2053 

0 5623 

0 

TC 

CHECKNJ 

CHECK  FOR  NEW  JoB 

0081 

REF 

5 

LAST1015 

37 

.205A 

11*357 

0 

CCS 

SMODE 

o c c 

.2055 

0 2062 

TC 

0Uo2 

Kfcr 

1 

37 

1 

SOPTIONS 

0083 

ref 

1 

37 

.2056 

0 2053 

0 

TC 

SmODEcHK  *2 

TO  BACKUP  idle  i OOP 

008A 

REF 

2 

LAST1015 

37 

.2057 

0 2062 

1 

TC 

SOPTIONS 

0085 

REF 

1 

37 

.2060 

25*366 

0 

INCR 

SCOUNT 

0086 

REF 

3 

LAST1015 

37 

.2061 

0 1371 

0 

TC 

SKEEPl 

CONTINUE  WITH  SFLF-CHECK 

0087 

REF 

1 

37 

.2062 

6 2016 

1 

SOPTIONS 

AO 

S-7 

0088 

37 

.2063 

0 0006 

1 

EXTEND 

0089 

37 

.206A 

6 2066 

0 

BzMF 

♦ 2 

FOR  OPTIONS  BELnW  NINE, 

0090 

REF 

1 

37 

.2065 

0 35A7 

1 

BNKOPTN 

TC 

SBNXOPTN 

FOR  OPTIONS  ABOVE  EIGHT 

0091 

REF 

2 

LAST1015 

37 

.2066 

25*366 

0 

INCR 

SCOUNT 

FOR  OPTIONS  BELOW  NINE, 

0092 

REF 

1 

37 

*2067 

6 7757 

0 

AD 

S*7 

488954A  YJL  SYSTEM  FOR  AGCS  NeW  PROGRAM  SHePATIN  BY  eYLeS 


13»  1966  SeLFCHeC  PAGEIOI** 


L A3C  BLOCK  T/.0  SELF-CHECK 

0093  REF  373  LA5T1015  37*2070  50  OQO  1 INDEX  A 

009A  REf  1 37.2071  0 2072  0 Tc  SOpTIONl 


0095 

REF 

1 

37*2072 

0096 

REF 

1 

37  *2073 

0097 

REF 

1 

37*2079 

0098 

REF 

1 

37*2073 

0099 

REF 

1 

37*2076 

0100 

REF 

. 9 

LAST1015 

37*2077 

0101 

REF 

5 

LAST1016 

37*2100 

0102 

REF 

6 

LA5T1016 

37*2101 

0103 

REF 

2 

LA5T1015 

37*2102 

0 

2103 

1 

SDPTIONl 

TC 

TC+TCF 

0 

2fb7 

0 

S0PT10N2 

TC 

IN-OUTl 

0 

3U93 

0 

50PTION3 

TC 

CQUNTCHK 

0 

3I37 

1 

SOPTION9 

TC 

eraschk 

0 

3313 

0 

SOPTION5 

TC 

ROPECHK 

0 

1371 

0 

S0PTI0N6 

TC 

SKEEPl 

0 

1371 

0 

SOPTION7 

TC 

SKEEPl 

0 

1371 

0 

SDPTONlO 

TC 

SKEEPl 

0 

2O5I 

1 

selfchk 

TC 

SMODECHK 

Roioa 

R0105 

R0106 


TC+TCF  CHeC<S  ALL  OF  THE  PULS£S  0^  TCF  AND  ALL  OF  THE  PULSES  OF  TC 
except  ABILITY  TO  TC  TO  ERA^ASLE. 


0107 

0108 

REF 

1 

37*2103 

37*2109 

0 

0 

2105 

2112 

1 

1 

0109 

37*2105 

1 

2107 

1 

0110 

REF 

7 

LAST1015 

37*2106 

0 

2O22 

0 

0111 

REF 

1 

37*2107 

9 

6301 

1 

0112 

REF 

333 

LAST1015 

37*2110 

0 

0002 

0 

0113 

REF 

8 

LAST1016 

37*2111 

0 

2O22 

0 

Rons 

0116 

0117 

0118 

0119 

0120 
0121 
0122 
0123 
0129 

0125 

0126 

0127 

0128 

0129 

0130 

0131 

0132 

0133 
0139 

0135 

0136 

0137 

0138 

0139 


TC+TCF 


R0119  CCSCH<  CHECKS  ALL  OF  CCS  EXCe^T  Rt>  WG, 


ALSO  CHECKS  TS  ERASABLE 


REF 

379 

LAST1016 

37*2112 

REF 

9 

LAST1016 

37*2113 

REF 

10 

LAST1016 

37.211A 

37*2115 

REF 

11 

LA5T1016 

37*2116 

REF 

375 

LA5T1016 

37*2117 

37*2120 

REF 

12 

LAST1016 

37*2121 

REF 

13 

LAST1016 

37.2122 

REF 

19 

LAST1016 

37*2123 

REF 

7 

LAST1016 

37*212^ 

REF 

8 

LAST  1016 

37*2125 

37*2126 

R£F 

15 

LAST1016 

37*2127 

REF 

16 

LAST1016 

37*2130 

REF 

17 

LAST1016 

37*2131 

REF 

376 

LAST1016 

37*2132 

REF 

18 

LA5T1016 

37*2133 

37*213'* 

REF 

19 

LAST1016 

37*2135 

REF 

20 

LAST1016 

37*2136 

REF 

377 

LAST1016 

37*2137 

REF 

378 

LAST1016 

37.219O 

REF 

21 

LAST1016 

37.2191 

C5 


SC’* 

10 

0 

0 

0 

0 


and  cs 
000  0 
2022 
2022 
2U7 
2022 


10  000 
0 2i29 
0 2022 
0 2022 


0 2022 
55*071 
11*071 
0 2l32 
0 2022 
0 2022 
0 2022 
10  000 
0 2022 
0 2*37 
0 2022 
0 2022 


erasable 

CCSCHK 


9 0000  0 

10  OOO  0 
0 2022  0 


TC 

TC 

TCF 

TC 

CS 

TC- 

TC 


MEMORYi 

CCS 

TC 

TC 

TC 

TC 

CCS 

TC 

TC 

TC 

TC 

TS 

CCS 

TC 

Tc 

TC 

TC 

CCS 

TC 

TC 

TC 

TC 

CS 

CCS 

TC 


♦ 2 

CCSCHK 

+ 2 

ERRORS 

S*3 

0 

ERRORS 


A 

ERRORS 

ERRORS 

♦2 

ERRORS 

A 

♦ 9 

ERRORS 

ERRORS 

ERRORS 

SKEEPl 

SKEEPl 

♦9 

ERRORS 

ERRORS 

ERRORS 

A 

ERRORS 

♦3 

ERRORS 

ERRORS 

A 

A 

ERRORS 


USER'S  OWN  PAGf  NO.  3 E3 


CONTINUE  WITH  SfLF-CHECK 
CHARLEY*  COME  IN  HERE 


$ TCF  FIXED  MEMORY 

$ CS  FIXED  MEMORY 
$ 


$ CCS  SC.  C(A)  = -3 


$ C(A)  = ♦2,  RESULT  OF  CCS  -NUMBER 


$ TS  ERASABLE 

$ CCS  erasable.  C(A)  = *1,  Result  of 
CCS  ♦number 


$ C(A)  = +0.  RESULT  OF  CCS  ♦!,  CHECKS  Cl 


$ CS  SC 

$ C(A)  * -0,  RESULT  OF  CCS  +0 


yjl  System  for  agC;  new  program  s^^eratin  by  eyues 


L AoC  block  Two  SeLE-CHeCK 


ouo 

ref 

22 

LAST1016 

37,2142 

0 

2022 

0 

TC 

Errors 

OlAl 

REF 

23 

LAST  1017 

37 ,2143 

0 

2O22 

0 

TC 

ERRORS 

01A2 

REF 

379 

LAST1016 

37,214A 

10  000 

0 

CCS 

A 

0143 

REF 

24 

LAST1017 

37,2145 

0 

2022 

0 

TC 

ERRORS 

0144 

37,2146 

0 

2151 

0 

TC 

♦ 3 

0145 

REF 

25 

LAST1017 

37,2147 

0 

2O22 

0 

TC 

ERRORS 

0146 

REF 

26 

LAST1017 

37,2150 

0 

2O22 

0 

TC 

ERRORS 

LAST1016 

37,2151 

1571 

0147 

REF 

9 

4 

1 

wS 

SKEEPl 

0148 

REF 

1 

37,2152 

0 

2O43 

1 

TC 

-ICHK 

R0149 

bzmfchk 

CHECKS  ALL 

PULSES  OF 

3ZMF* 

R0150 

Also 

CHECKS  CA  FIXED  MEMORY. 

7T45 

BZMFCHK 

0151 

REF 

1 

37 ,2153 

3 

0 

CAF 

SB1T9 

0152 

37,215A 

0 

0006 

1 

EXTEND 

0153 

REF 

1 

37,2155 

6 

2176 

0 

BZMF 

ERRBZMF 

0154 

REF 

380 

LAST  1017 

37,2156 

4 

0000 

0 

CS 

A 

0155 

37,2157 

0 

0006 

1 

EXTEND 

0156 

37,2160 

6 

2i62 

0 

BZMF 

♦ 2 

0157 

REF 

27 

LAST1017 

37,2161 

0 

2022 

0 

TC 

ERRORS 

0158 

REF 

1 

37,2162 

3 

3'*55 

0 

CA 

S + MAX 

0159 

REF 

1 

37,2163 

6 

7 (55 

1 

AD 

S.l 

0160 

37,216A 

0 

0006 

1 

EXTEND 

0161 

REF 

1 

37,2165 

6 

2177 

1 

BZMF 

ERRBZMF2 

0162 

REF 

2 

LAST1015 

37,2166 

3 

7(61 

0 

CA 

S.ZERO 

0163 

37,2167 

0 

0006 

1 

EXTEND 

0164 

37,2170 

6 

2172 

1 

BZMF 

♦ 2 

0165 

REF 

28 

LAST1017 

37,2171 

0 

2O22 

0 

TC 

ERRORS 

0166 

REF 

381 

LAST1017 

37,2172 

4 

0000 

0 

CS 

A 

0167 

37,2173 

0 

0006 

1 

EXTEND 

0168 

37,217A 

6 

2200 

1 

BZMF 

♦ 4 

0169 

REF 

29 

LAST1017 

37,2175 

0 

2022 

0 

TC 

ERRORS 

0170 

ref 

30 

LAST1017 

37,2176 

0 

2022 

0 

errbzmf 

TC 

ERRORS 

0171 

REF 

31 

LAST1017 

37,2177 

0 

2O22 

0 

ERRBZMF2 

TC 

ERRORS 

R0172  RESTOREI  and  2 CHECKS  INSTRUCT  I ON^*  (WITH  STAR)  ABILITY  TO  READ  BACK 
R0173  erasable  memory.  NOT  NORmALLy  INTERESTED  IN  CONTENTS  Op  A REGISTER. 
R0174  first  time  MANY  INSTRUCTIONS  i\Re  UStp, 

R0175  RESTOREI  ALSO  CHECKS  INDEX  (WITTOUT  EXTRACODE)  ERASABLE.  CA  ERASABLE 
R0176  AND  mask  ERASABLE. 


0177 

REF 

1 

37,2200 

3 2O2O 

1 

RESTOREI  CAF 

SRADRS 

0178 

REF 

3 

LAST  81 

37,2201 

55*577 

1 

TS 

SKEEP7 

0179 

REF 

1 

37,2202 

3 4553 

0 

CA 

S8BITS 

0180 

REf 

4 

LAST1017 

37,2203 

51*577 

0 

NDx 

SkEEp7 

0181 

37,220A 

54  OOO 

0 

TS 

0000 

0182 

REF 

37 

LAST1015 

37,2205 

10  021 

0 

CCS 

SR 

0183 

REF 

5 

LASTIOI7 

37,2206 

51*577 

0 

NDX 

SKEEP7 

018<t 

37,2207 

4 0000 

0 

CS 

0000 

0185 

REF 

38 

LAST1017 

37,2210 

6 0021 

1 

AD 

SR 

0186 

37,2211 

0 0006 

1 

EXTEND 

0187 

REF 

39 

LAST1017 

37,2212 

20  021 

0 

MSU 

SR 

DEC  13,  1966  SeLFCHEC  rAgEIOU 
USER'S  OWN  PAGp  NO.  h E3 

$ RESULT  OF  CCS  -0 


$ CS  erasable,  ALSO  CHECKS  BACK  INTO 
ERASABLE  SEQUENCE. 

$ CA  FIXED  memory 


S 


$ ♦ OVERFLOW,  Check  oi-oooo 


s 


$ 


from  bzmf  with  .non-zero 

OVERFLOW  WITH  .n 


into 


address  of  SR 


00377 

$ INDEX  erasable 

TS  SR,  C(SR)  » n0177 

C(SR)  = 00077 

CHECKS  C(SKEEP7)  CORRECT 

C(SR)  5 00037 

C(SR)  E 00017 


C(SR)  = 00007 


488954A  YJL  SYSTEM  TOR  AGCj  NEW  PHO^iRA.M  SHePATIN  3Y  EYLeS 


37*2213  0 0^06  1 


EXTEND 


REF  AO  LAST1017 
REF  A1  LAST1018 
rEF  A2  LaStIOIB 
REF  I 

REF  A3  LAST1018 

REF  AA  LAST1018 
REF  AS  LAST1018 
REF  2 LASTIOU 


37.221'* 

37.2215 

37.2216 
37.221 f 

37.2220 

37.2221 

37.2222 

37.2223 
37.222A 
37.2225 


63  021  1 
3 0021  1 
7 0021  0 
0 20A2  0 
0 0006  1 
7 0021  0 
0 0006  1 
10  021  0 
3 0021  1 
0 20A2  0 


5U 

CA 

Mask 

TC 

EXTEND 

MP 

EXTEND 

DV 

CA 

TC 


SR 

SR 

SR 

♦ICHK 

SR 

SR 

SR 

♦ iCHK 


REST0RE2  ALSO  CHECKS  XCH  ERASABLE ’ I NDeX  (WITH  EXtRACqDe)  ERASABLE  AND 


FIXED  memory.  DCS  ERASABLE. 


REF 

REF 

REF 

ref 

REF 

REF 

REF 

REF 


1 

1 

1 

10 

382 

11 

1 


LA5T1017 

LASTIOIT 

LASTIOIS 


2 LAST1018 


REF  2 LASTlOle 

REF  2 LASTIOIT 
REF  181  LAST1003 
REF  3 LASTIOIS 


REF 


3 LA5T1018 


REF  a LASTIOIS 
REF  182  LASTIOIS 


2226 

2227 

2230 

2231 
223ii 
2233 
223'* 

2235 

2236 

2237 
22A0 
22A1 
22A2 
22A3 
22AA 
22A5 
22A6 
22A7 

2250 

2251 

2252 


:a  sc.  and 
3 2017  0 
55*376 
3 7^63 
55*371 
A 0000 
57*371 
57*372 
0 0006 
5 1376 


DCA  erasable. 

REST0RE2  CAF  ADRSl 

TS  SKEEP6 

CA  S-1 

TS  SKEEPI 

CS  A 

XCH  SKEEPI 

XCH  SKEEP2 

extend 

NDx  SkEEP6 


0001  0 
0006  1 
2017  0 
0001  1 
20a3  1 
0001  0 
20A2  0 
0006  1 
1376  1 
OOOl  0 
20A2  0 
0001  0 


DCA  0000 

EXTEND 

NDX  ADRSl 


0000 

-ICHK 

L 

♦ ICHK 


DCS 
TC 
CA 
TC 
EXTEND 

NDX  SKEEP6 

DCA  0000 

TC  tlCHK 

CA  L 


0 20A3  1 


TC 


-ICHK 


restores  checks  ability  to  Restore  instructions  back  into  erasable 


MEMORY,  IT  IS  ONLY  NECESSARY  10  RESTORE 

G register  does  not  change. 

ALSO  CHECKS  TC  TO  ERASABLE  MEMORY* 

REF  1 37,225**  3 7^37  0 

REF  12  LAST1018  37,2255  55*371  1 

REF  1 37.2256  3 7(5A  0 

REF  2 LAST1018  37,2257  55*372  1 


OviE  INSTRUCTION  BECAUSE  THE 


RESTORES 


CA 

TS 

CA 

TS 


SBIT15 

SKEEPI 

S^2 

SKEEP2 


L A3C  block  TWO  SELF-CHECK 

0188 

0189 

0190 

0191 

0192 

0193 
019A 

0195 

0196 

0197 

0198 

R0199 

R0200 
0201 
0202 
0203 
020A 

0205 

0206 

0207 

0208 

0209 

0210 
0211 
0212 
0213 
021A 

0215 

0216 

0217 

0218 

0219 

0220 
0221 

0222  REF  3 LASTIOU  37,2253 

R0223 
R022A 
R0225 
R0226 

0227 

0228 

0229 

0230 


0231 

REF 

2 

LASTIOIT 

37,226° 

0232 

REF 

13 

LASTIOU 

37,2261 

0233 

REF 

4 

LAST1018 

37,2262 

0234 

REF 

14 

LASTIOIS 

37,2263 

0235 

REF 

1 

37,226'* 

3 7^55  1 CA  5+1 

0 1371  0 TC  SKEEPI 

0 2UA3  1 TC  -iCHK 

0 1371  0 TC  SKEEPI 

0 2^35  0 TC  -OCHK 


DEC  13,  1966  SELFCHEC  PAGE1018 
USER*S  OWN  PAGf  NO.  5 E3 


C(SR)  = 00003  * 
$ C(SR)  ? ♦!,  ClA)  s *3,  CA  ERASABLE  ** 
S B(SR)  = C(SR)  = *1.  mask  EraSaBLE  *• 


$ CA  erasable 

makes  sure  mask,  MP,  and  DV  DO  NOT  EDIT. 


address  of  SKEEPI 


-1 

$ XCH  ERASABLE,  C(SkEEPI)  = ♦! 

$ XCH  erasable,  C(SxEEP2)  = .1 

$ NDx  erasable  ** 

DCA  ERASABLE  ** 

$ NDX  FIXED  MEMORY  * 

$ DCS  erasable  memory  ** 

MAKES  SURE  DCS  fRASABLE  OK 
$ CA  SC 


MAKE  SURE  C(SKEFP6)  IS  STILL  CORRECT 
$ DCA  erasable 


CS 

40000 
TC  0 


♦ 1 

$ TC  erasable 

FIRST  TIME  BACK  FROM  ERASABLE. 


SECOND  TIME  BACK  FROM  ERASABLE 


^8895^A  yJL  System  for  aqC:  new  program  smepatin  by  eyues 


L A3C  block  Two  SELF-CHECK 


R0236 

BzFCH< 

CHECKS  ALL 

PULSES  OF 

3ZF 

9 

0237 

REF 

1 

37*2265 

3 

TbO 

1 

BZFCHK 

CAF 

S*5 

0238 

37*2266 

0 

0006 

1 

EXTEND 

0239 

REF 

1 

37*2267 

1 

2312 

1 

3ZF 

ERRBZFl 

0240 

REF 

383 

LAST1018 

37*2270 

4 

0000 

0 

CS 

A 

0241 

37*2271 

0 

0006 

1 

EXTEND 

0242 

REF 

1 

37*2272 

1 

2313 

0 

BZF 

ERRBZF2 

0243 

ref 

2 

LAST  1017 

37*2273 

3 

3‘*55 

0 

CA 

s*max 

0244 

REF 

3 

LAST1018 

37*227A 

6 

7 '55 

1 

AD 

S*1 

0245 

37*2275 

0 

0006 

1 

EXTEND 

0246 

REF 

1 

37*2276 

1 

2314 

1 

BZF 

ERRBZF3 

0247 

REF 

384 

LAST1019 

37*2277 

4 

0000 

0 

CS 

A 

0248 

37*2300 

0 

0006 

1 

EXTEND 

0249 

REF 

1 

37*2301 

1 

2315 

0 

BZF 

ERRBZF4 

0250 

REF 

3 

LAST  1017 

37*2302 

3 

7 '61 

0 

CAF 

S^ZERO 

0251 

37*2303 

0 

0006 

1 

EXTEND 

0252 

37*2304 

1 

2306 

1 

BZF 

+ 2 

0253 

REF 

32 

LAST1017 

37*2305 

0 

2022 

0 

TC 

ERRORS 

0254 

REF 

385 

LAST1019 

37*2306 

4 

0000 

0 

CS 

A 

0006 

EXTEND 

0255 

37 « 230  f 

0 

1 

0256 

37*2310 

1 

2316 

0 

BZF 

♦ 6 

0257 

REF 

33 

LAST1019 

37*2311 

0 

2022 

0 

TC 

ERRORS 

0258 

REF 

34 

LAST1019 

37*2312 

0 

2022 

0 

ERRBZFl 

TC 

ERRORS 

0259 

REF 

35 

LAST1019 

37*2313 

0 

2022 

0 

ERRBZF2 

TC 

ERRORS 

0260 

REF 

36 

LAST1019 

37*231A 

0 

2022 

0 

ERRBZF3 

TC 

ERRORS 

0261 

REF 

37 

LAST1019 

37*2315 

0 

2022 

0 

ERRBZF4 

TC 

ERRORS 

R0262 

R0263 

0264 

0265 

0266 

0267 

0268 

0269 

0270 

0271 

0272 

0273 

0274 

0275 

0276 

0277 

0278 

0279 

0280 
0281 
0282 

0283 

0284 


DKCH+DIM  CHECKS  ALL 

Also  checks  ts  with 


REF 

3 

LAST  1019 

REF 

2 

LAST1018 

REF 

15 

LAST1018 

REF 

38 

LAST1019 

REf 

386 

LAST1019 

REF 

3 

LAST1018 

REF 

4 

LAST1019 

REF 

183 

LAST1018 

REF 

387 

LAST1019 

REF 

16 

LAST1019 

REF 

5 

LAST1018 

REF 

184 

LAST1019 

REF 

5 

LAST1018 

REF 

17 

LAST1019 

REf 

4 

LAST1019 

REF 

5 

LAST1019 

RIF 

5 

LAST1019 

REF 

6 

LAST  1019 

REF 

6 

LAST1019 

PULSES  OF 
OVERFLOW* 
37*2316 
37*2317 
37*2320 
37»232l 
37*2322 
37*2323 
37*232A 
37*2325 
37*2326 
37*2327 
37*2330 
37*2331 

37*2332 

37*2333 

37*233A 

37*2335 

37*2336 

37*2337 

37*2340 

37*2341 

37*2342 


DKCH  AND  DIM. 

TS  5c*  cA  Sc*  and  AD  ERASABLE. 


3 3^55 

0 

DXCH+DIM  CA 

StMAX 

6 7'54 

0 

AD 

S + 2 

55*371 

1 

TS 

SKEEPl 

0 2022 

0 

TC 

ERRORS 

4 OOOO 

0 

CS 

A 

55*372 

1 

TS 

SKEEP2 

4 3‘*55 

1 

CS 

S + MAX 

54  OOl 

1 

TS 

L 

4 0000 

0 

CS 

A 

53*372 

1 

DXCH 

SKEEPl 

0 2042 

0 

TC 

♦ ICHK 

3 OOOl 

0 

CA 

L 

0 2043 

1 

TC 

-iCHK 

0 0O06 

1 

EXTEND 

27*371 

1 

DIM 

SKEEPl 

0 0O06 

1 

EXTEND 

27*372 

1 

DiM 

SKEEP2 

3 3455 

0 

CA 

S*MAX 

6 1372 

0 

AD 

SKEEP2 

0 2042 

0 

TC 

♦ ICHK 

4 3455 

1 

CS 

S^MAX 

dec  U*  1966  SeLFCHEC  PAgE1019 


USER'S  OWN  PAGf  NO*  6 


$ 


i 

01-00000 

$ 


$ 


s 


$ 

♦NON-ZERO 

-non-zero 

01-00000 

10-37777 


OVERFLOW  WITH  +1 
$ TS  WITH  OVERFLOW*  ♦! 


$ TS  SC*  40000 
37777 

$ DXCH  ERASABLE 
$ CA  SC 


$ DIM  erasable*  dim  ♦ NUMBER*  37776 
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TC 

♦ ICHK 

R0477 

NDX*SJ 

FINISHES  CHECKING  BOTH 

1 NDtX 

INSTRUCTIONS 

. ALSO 

CHECKS  ALL  OF 

SU 

R0478  EXCEPT  RB  WS. 
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0A79 

OA80 

OA81 

0A82 

OA83 

OA8A 

0985 

0986 

0987 

0988 

0989 

0990 

R0991 

0992 

0993 
0999 

0995 

0996 

0997 
R0998 

0999 

0500 

0501 

0502 

0503 

0509 

0505 

0506 

0507 

0508 
R0509 

0510 

0511 

0512 

0513 
0519 
0515 

R0516 

R0517 

0518 

0519 

0520 

0521 

0522 

0523 

0529 

0525 

0526 


AoC  BLOCK  TftO  SEUF-CHECK 


USER'S  OWN  PAGf  no,  11 


E3 


REF 

11 

LAST1023 

37.2630 

3 7^55 

1 NDX.su 

CA 

S.l 

ref 

210 

LAST1023 

37.2631 

59  OOl 

1 

TS 

L 

REF 

28 

LAST1023 

37.2632 

55'371 

1 

TS 

SKEEPl 

REF 

909 

LAST1023 

37 .2633 

50  000 

1 

NDX 

A 

37.263A 

6 OOOO 

1 

AD 

0000 

37.2635 

0 0006 

1 

EXTEND 

REF 

29 

LAST1029 

37.2636 

61*371 

0 

SU 

SKEEPl 

REF 

19 

LAST1023 

37.2637 

0 2O92 

0 

TC 

♦ICHK 

REF 

37.2690 

0 0006 

1 

EXTEND 

211 

LAST  1029 

37 .2691 

5 OOOl 

0 

NDX 

L 

37.2692 

60  OOO 

1 

SU 

0000 

REF 

19 

LAST1023 

37.2693 

0 2093 

1 

TC 

-ICHK 

D— SC  Checks  dcs  sc-»  oxc 

REF  5 LAST1023  37 

REF  212  LAST1029  37 

REF  12  LAST1029  37 

37 

REF  910  LAST1029  37 

REF  20  LAST1029  37 

AFTER  DXCH  C(A)  = BO) 
REF  213  LAST1029  37 

REF  6 LAST1022 

REF  390  LAST1023 

REF  20  LAST1029 

REF  219  LAST1029 

REF  6 LAST1023 

REF  3 LAST1020 

REF  391  LAST1029 

REF  911  LAST1029 


after  oca  C(A)  = 
REF  215  LAST1029 
rEF  392  LAST1029 
REF  7 LAST  1029 

REF  21  LAST1029 
REF  216  LAST1029 
REF  21  LAST1029 


37 

37 

37 

37 

37 

37 

37 

37 

37 

C(L)  5 

37 

37 

37 

37 

37 

37 


H S^' 
269A 

2695 

2696 

2697 

2650 

2651 
♦ 3* 

2652 

2653 
265^* 

2655 

2656 

2657 
2660 
2661 
2662 
2663 
C(Q) 
266A 

2665 

2666 


D — LCHK  checks  THAT  OVERFLOW 

also  checks  That  q will  holo 

REF  2 LAST1020 
LAST1029 


REF  393 
REF  1 
REF  399 
REF  395 
REF  912 


LAST1029 
LAST  1029 
LAST1029 


37»267-i 

37.2673 

37.267A 

37.2675 

37.2675 

37.2677 


AMD  DCA  SC. 
3 709  0 D 
59  001  1 
3 705  1 
0 0006  1 
9 OOOl  1 

0 2O93  1 

CTL)  = B(A) 
52  002  1 
55*373  0 
6 0002  0 
0 2092  0 

3 0001  0 

0 2039  1 

3 703  1 
59  002  1 
9 0000  0 
0 0006  1 
= 3(0)  s -1, 
3 0002  0 
6 0002  0 
6 1373  1 


— SC  CA  S*2 

TS  L 

CA  S*1 

EXTEND 
DCS  A 

TC  -ICHK 

♦ 0.  CO)  s B(L)  t -1, 
DXCH  L 

TS  SKEEP3 

AD  Q 

TC  tlCHK 

CA  L 

TC  .OCHK 

CA  S-1 

TS  0 

CS  A 

EXTEND 


2667  0 2O92  0 

2670  3 0001  0 

2671  0 2093  1 


DCA 

AD 

AD 

TC 

CA 

TC 


L 

Q 

SkEEP3 

♦ iCHK 
L 

-ICHK 


$ NDX  SC 
AD  L.  *2 

$ SU  ERASABLE 


$ NDX  SC 
$ SU  SC.  SU  L 


♦ 2 

$ DCs  SC.  C(i)  3 -2 
$ DXCH  SC 


$ DCA  sc 


15  LUST 

16  BUS 
3 5355 
59  002 
3 3‘'56 
26  002 
9 0002 
59  000 


IN  PROCESS  OF  Going  through  l reg. 


D— LCHK 


CA 

TS 

CA 

ADS 

CS 

TS 


S-2 

0 

S-MAX 

Q 

0 

A 


REF  91  LAST1023 
REF  217  LAST1029 


37.2700  0 2022  0 

37.2701  0 0006  1 

37.2702  3 0002  0 


TC  ERRORS 

EXTEND 

DCA  L 
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A3C 

BLOCK  T'.O  self 

-check 

0527 

RtF 

Al3  LAsT102A 

37,2703 

5A 

000 

0 

Ts 

0528 

37,270A 

0 

2 F06 

1 

TC 

0529 

REF 

A2  LAST102A 

37,2703 

0 

2022 

0 

TC 

0530 

REF 

22  LAST102A 

37,2706 

0 

20A3 

1 

TC 

USER'S  OWN  PaGf  NO.  U E3 

A 

*Z 

ERRORS 

-ICHK 


R0531  checks  overflow,  underflow, en3'>around-Carry,  and  sign  change  of  adder, 
R0532  Also  checks  Ads  SC  with  OVERF.OW  ^ND  Ts  a with  underflow 

‘ ^ SBITIA 

0 
Q 
0 
A 

errors 

Q 

+ 1CHK 


0533 

REF 

A 

LAST1022 

37,2707 

3 7FA0 

0 ADDRCHK 

CA 

053A 

REF 

3A6 

LASTI02A 

37*2710 

5A  002 

1 

TS 

0535 

REF 

3A7 

LA5T1025 

37,2711 

26  002 

1 

ADS 

0536 

REF 

3A8 

LAST  1025 

37,2712 

26  002 

1 

ADS 

0537 

REF 

AlA 

LAST1025 

37,2713 

5A  000 

0 

TS 

0538 

REF 

A3 

LAST1025 

37,271A 

0 2022 

0 

TC 

0539 

REF 

3A9 

LAST1025 

37,2715 

26  002 

1 

ADS 

05A0 

REF 

22 

LAST102A 

37,2715 

0 20a2 

0 

TC 

20000 


$ ADS  SC,  OVERFLOW 
UNDERFLOW 

$ TS  SC  WITH  underflow 


ROSAI  RJPtCHK  checks  that  interrupt  ODEi>  NOT  OCCUR  WHILE  OVERFLOW  OR  UNDERFLOW 
R05A2  is  in  the  a REGISTER.  ALSO  ORrCKS  THAT  iNHINT  RELINT  WORK  PROPERLY, 


05A3 

37*2717 

0 

OOOA 

0 

RUPTCHK 

INHINT 

05AA 

REF 

5 

LAST1023 

37*2720 

3 

7T6I 

0 

CA 

S+ZERO 

TS 

ZRUPT 

05A5 

REF 

1 

37,2721 

VIP 

1 

05A6 

37,2722 

0 

0003 

1 

relint 

05A7 

REF 

A 

LAST  93 

37,2723 

6 

0027 

1 

AD 

TIMEA 

05A8 

REF 

30 

LAST102A 

37*272A 

55'371 

1 

TS 

SKEEPl 

05A9 

REF 

31 

LAST1025 

37,2725 

A 

1371 

1 

tenms 

CS 

SKEEPl 

0550 

REF 

5 

LAST1025 

37,2726 

6 

0027 

1 

AD 

TIMEA 

0551 

37,2727 

0 

0006 

1 

EXTEND 

0552 

REF 

1 

37,2730 

1 

2 T25 

1 

3ZF 

TENMS 

0553 

37,2731 

0 

OOOA 

0 

INHINT 

055A 

REF 

2 

LAST1025 

37,2732 

3 

0015 

0 

CA 

ZRUPT 

0555 

37,2733 

0 

0006 

1 

EXTEND 

0556 

37,273A 

1 

2T36 

0 

3ZF 

♦ 2 

0557 

REF 

1 

37,2735 

0 

2a7 

1 

TC 

RUPTCHK 

0558 

REF 

13 

LAST102A 

37,2736 

3 

7T55 

1 

CAF 

S+1 

0559 

REF 

1A5 

LAST  1013 

37,2737 

0 

5T01 

1 

TC 

WAITLIST 

0560 

REF 

6A 

LASTIOIA 

E3 

ebank® 

LSTl 

0561 

37,27A0 

02T63 

1 

2CA0R 

TSKADRS 

C0561 

REF 

1 

37,27A1 

76063 

0 

0562 

REF 

lA 

LAST1023 

37,27A2 

3 

3A55 

0 

CA 

S.MAX 

0563 

REF 

1 

37,27A3 

6 

2012 

0 

AD 

OVCON 

056A 

37,27AA 

0 

0003 

1 

relint 

0565 

REF 

A15 

LAST1025 

37,27A5 

A 

0000 

0 

WAIT 

CS 

A 

n c ^ z. 

D CC 

CCS 

UPoo 

K tr 

‘*16 

LAST  1025 

37 ,27A6 

i ^ vyu 

0 

A 

0567 

REF 

1 

37,27A7 

0 

2T53 

1 

TC 

INHNTCHK 

0568 

REF 

1 

37,2750 

02T57 

0 

RUPTCON 

ADRES 

C(BRUPT) 

0569 

REF 

6 

LAST102A 

37,2751 

6 

7T5A 

0 

AD 

S*2 

0570 

REF 

1 

37,2752 

0 

2TA5 

0 

TC 

WAIT 

0571 

37,2753 

0 

OOOA 

0 

INHNTCHK 

INHINT 

0572 

REF 

A 

LAST1021 

37,275A 

55*375 

0 

TS 

SKEEP5 

0573 

REF 

AA 

LAST1025 

37*2755 

0 

2022 

0 

TC 

ERRORS 

WAIT  FOR  NEXT  TTMEA  INCREMENT 


NO  INTERRUPT, 

there  was  an  interrupt,  start  again, 

2 1/2  MS  UNTILE  NEXT  T3  INTERRUPT, 


CONTROLS  time  SPENT  IN  OF-UF  LOOP 


T3  RUPT  SHOULD  BE  WAITING 
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L AoC  BLOCK  TaO  SELF-CHECK 


USER'S  OWN  PaGF  N0«  13 


0574 

37.2756 

0 

0003 

1 

RELINT 

0575 

REF 

3 

LAST1025 

37.2757 

A 

0015 

1 

C(BRUPT) 

CS 

zrupt 

INTERRUPT  SHOULD  HAPPEN 

HERE 

0576 

37.2760 

0 

0006 

1 

EXTEND 

DID  HAPPEN 

0577 

REF 

45 

LAST  1025 

37.2761 

1 

2022 

1 

3ZF 

errors 

MAKES  SURE  AN  KTERRUPT 

0578 

37,2762 

0 

2 T67 

0 

TC 

♦ 5 

END  OF  RUPTCHK 

0579 

REF 

A 

LAST1026 

37,2763 

A 

0015 

1 

TSKADRS 

CS 

ZRUPT 

0580 

REF 

1 

37.2764 

6 

2 T50 

1 

AD 

RUPTCON 

0581 

REF 

23 

LAST1025 

37.2765 

0 

2043 

1 

TC 

-ICHK 

0582 

REF 

13A 

LAST1013 

37.2766 

0 

5TA5 

1 

TC 

TASKOVER 

R0583  n-OJTl  CHECKS  ALL  PULSES  oF  WRIJt  AND  READ 
058A  rEf  a LAST102A  37.2767  3 7^63  1 IN-OUTl  CA  S-l 

0585  37.2770  0 0006  1 WRITECHK  EXTEND 


0586 

REF 

350 

LAST1025 

37*2771 

0587 

REF 

351 

LAST1026 

37.2772 

0588 

REF 

2A 

LAST1026 

37.2773 

0589 

37.2774 

0590 

REF 

218 

LAST102A 

37,2775 

0591 

REF 

25 

LAST1026 

37,2775 

0592 

REF 

219 

LAST1026 

37,2777 

0593 

REF 

26 

LAST1026 

37.3000 

01  002  1 WRITE  Q 

22  002  0 LXCH  Q 

0 20A3  1 TC  -ICHK 

0 0006  1 READCHK  EXTEND 

00  Ool  0 READ  L 

0 20A3  1 TC  -iCHK 

3 0001  0 CA  L 

0 20A3  1 TC  • -ICHK 


R059A  IN-0UT2  CHECKS  ALL  PULSES  oF  ROR  AND  WOR 


PUT  CIQ)  IN  L 
C(L)  = 77776 


0595 

REF 

A 

LAST1021 

37.3001 

4 

6301 

1 

0596 

REF 

220 

LAST1026 

37.3002 

54 

OOl 

1 

0597 

REF 

6 

LAST1022 

37.3003 

3 

2013 

1 

0598 

37.3004 

0 

0006 

1 

0599 

REF 

221 

LAST1026 

37,3005 

04 

001 

1 

0600 

REF 

27 

LAST1026 

37.3006 

0 

2O43 

1 

0601 

REF 

7 

LAST1026 

37.3007 

3 

2013 

1 

0602 

37.3010 

0 

0006 

1 

0603 

REF 

222 

LAST1026 

37.3011 

05 

001 

0 

0604 

REF 

28 

LAST1026 

37.3012 

0 

2O43 

1 

0605 

REF 

223 

LAST1026 

37.3013 

3 

OOOl 

0 

0606 

REF 

29 

LAST1026 

37,3014 

0 

2O43 

1 

IN-0UT2  CS  S+3 

RORCHK  TS  L 7777A 

CA  DVCON  37776 

EXTEND 

ROR  L $ ROR,  -1 

TC  -ICHK 

WORCHK  CA  DVCON  C(L)  STILL  77774 

EXTEND 

WOR  L $ WOR.  -1 

TC  -ICHK 

CA  L 

TC  -ICHK 


R0607  IN-0UT3  CHECKS  Al 

0608  REF  8 LAST1026 

0609  REF  224  LAST1026 

0610  REF  3 LAST1022 

0611 

0612  REF  225  LAST1026 

0613  REF  23  LAST1025 

0614  REF  4 LAST1026 

0615 

0616  REF  226  LAST1026 


PULSES  oF  RAND*  WAND 
37.301^  A 2013  0 

37.3016  5A  OOl  1 

37.3017  3 2010  1 

37.3020  0 0006  1 

37.3021  02  001  1 

37.3022  0 2042  0 

37.3023  3 2010  1 

37.302A  0 0006  1 

37.3025  03  OOl  0 


. AND  RXOR 

IN-0UT3  CS  DVCON 

RANDCHK  TS  L 

CA  S13BITS 

EXTEND 
RAND  L 
TC  ♦ICHK 

WANDCHK  CA  S13BITS 

EXTEND 
WAND  L 


40001 

17777 

$ RAND.  ♦! 

C(L)  STILL  40001 
S WAND.  ♦! 


0617 

REF 

24 

LAST1026 

37.3026 

0 

2042 

0 

0618 

REF 

2 

LA5T1019 

37,3027 

4 

7760 

0 

0619 

REF 

227 

LAST1026 

37.3030 

56 

OOl 

0 

0620 

REF 

25 

LAST1026 

37,3031 

0 

2O42 

0 

TC  ♦ICHK 

CS  S^5 

XCH  L ALSO  PUT  -5  IN  I FOR  RXORCHK 

TC  ♦ICHK 


E3 


488954A  YJL  SYSTEM  TOR  AGC;  NEW  PROGRAM  SMePATIN  BY  EYLES 


DEC  13,  1966  5ELFCHEC  PAGElOZf 


L AoC  BLOCK  Two  SELF-CHECK 


USER'S  OWN  page  NO.  lA 


0621 

REF 

1 

37*3032 

3 6276 

1 

RXORCHK 

CA 

S + 6 

0622 

37.3033 

0 0006 

1 

EXTEND 

0623 

REF 

228 

LAST1026 

37.3034 

06  001 

0 

RXOR 

L 

062A 

REF 

7 

LAST1025 

37.3035 

6 7^54 

0 

AD 

S*2 

0625 

REF 

30 

LAST1026 

37.3036 

0 2043 

1 

TC 

-ICHK 

0626 

REF 

229 

LAST  1027 

37.3037 

3 0001 

0 

CA 

L 

0627 

REF 

1 

37.3040 

6 7^53 

1 

AD 

S + 4 

0628 

REF 

31 

LAST1027 

37.3041 

0 2043 

1 

TC 

-ICHK 

0629 

REF 

3 

LAST1016 

37*3042 

0 2051 

1 

TC 

SMODECHK 

R,0630 

CDUNTCHk 

. COUNTS  UP  14  bIT  NUMjE^'  '"'ITh'SIGN. 

R0631 

takes  approximately 

8.7  SECONDS. 

R0632 

»»  PUT  IN  CCS  NEWJOB 

FOR  ROPE 

• 

0633 

37.3043 

0 OOO6 

1 

COUNTCHK 

EXTEND 

063A 

REF 

15 

LAST1025 

37.304A 

3 3^56 

0 

DCA 

S*MAX 

0635 

REF 

9 

LAST1021 

37.3045 

53*377 

1 

OXCH 

SKEEP6 

0636 

REF 

10 

LAST1027 

37*3046 

3 1376 

1 

♦ LOOP 

CA 

SKEEP6 

0637 

REF 

352 

LAST1026 

37.3047 

56  002 

0 

XCH 

Q 

0638 

37.3050 

0 0006 

1 

EXTEND 

0639 

REF 

230 

LAST1027 

37.3051 

4 0002 

1 

DCS 

L 

06A0 

REF 

A17 

LAST1025 

37.3052 

ID  000 

0 

CCS 

A 

06A1 

REF 

1 

37.3053 

0 3062 

0 

TC 

-NMBR 

06A2 

REF 

1 

37.305A 

0 3067 

0 

TC 

ENDCOUNT 

06A3 

REF 

11 

LAST1027 

37.3055 

55»376 

0 

TS 

SKEEP6 

06AA 

REF 

6 

LAST1017 

37.3056 

6 1377 

0 

AD 

SKEEP7 

06A5 

REF 

32 

LAST1027 

37.305T 

0 2O43 

1 

TC 

-ICHK 

06A6 

REF 

7 

LAST1027 

37.3060 

25*377 

0 

INCR 

SKEEP7 

06A7 

ref 

1 

37.3061 

0 3046 

0 

TC 

♦ LOOP 

06A8 

REF 

231 

LAST1027 

37.3062 

6 0001 

0 

-NMBR 

AD 

L 

06A9 

REF 

33 

LAST1027 

37.3063 

0 2O43 

1 

TC 

-ICHK 

0650 

REF 

3 

LAST1015 

37.306A 

0 5623 

0 

TC 

checknu 

0651 

REF 

12 

LAST1027 

37.3065 

4 1376 

0 

CS 

SKEEP6 

0652 

REF 

2 

LAST1027 

37.3066 

0 3047 

1 

TC 

♦LOOP  ♦! 

0653 

REF 

a 

LAST1027 

37.3067 

3 1377 

0 

ENDCOUNT 

CA 

SKEEP7 

065A 

REF 

13 

LA5T1027 

37.3070 

6 1376 

1 

AD 

SKEEP6 

0655 

REF 

7 

LAST1022 

37.3071 

0 2O35 

0 

TC 

-OCHK 

R0656 

O-UFLOW 

COUNTS  DOWN 

OVERFLOW 

AND  Underflow  numbers. 

R0657 

TAKES  approximately 

10.8  seconds 

0658 

REF 

2 

LAST  1024 

37.3072 

3 3A56 

0 

O-UFLOW 

CA 

S-MAX 

0659 

REF 

5 

LAST1025 

37.307^ 

55*375 

0 

TS 

SKEEP5 

0660 

REF 

L18 

LAST1027 

37.3074 

4 OOOO 

0 

CS 

A 

0661 

37.3075 

0 0004 

0 

ofloop 

INHINT 

0662 

REF 

16 

LAST1027 

37.3076 

6 3^55 

0 

AD 

S + MAX 

0663 

REF 

lA 

LAST1025 

37,3077 

6 7^55 

1 

AD 

S + 1 

066A 

REF 

353 

LAST1027 

37.3100 

56  002 

0 

XCH 

0 

0665 

REF 

35A 

LAST1027 

37.3101 

ID  002 

1 

CCS 

Q 

0666 

REF 

1 

37.3102 

0 3117 

0 

TC 

-NMBRS 

0667 

REF 

A6 

LAST1026 

37.3103 

0 2022 

0 

TC 

ERRORS 

$ RXOR,  -3 


PUT  37777  IN  SKFEP6  AND  AOOOO  I 


CHECK  FOR  NEW  JoB 


-0 

SKEEP6  SHOULD  BF  *0 


AOOOO 


CAN  PUT  IN  constant 


E3 


iM  SKEEP7 
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L 

0668 

0669 

0670 

0671 

0672 

0673 

0674 

0675 

0676 

0677 

0678 

0679 

0680 
0681 
0682 

0683 

0684 

0685 

0686 

0687 

0688 

0689 

0690 

0691 

0692 

0693 

0694 

R0695 

R0696 

R0697 

R0698 

R0699 

R0700 

R0701 

R0702 

0703 

0704 

0705 

0706 

0707 

0708 

0709 

0710 

0711 


0712 

0713 

0714 


Aoc  Block  two  self-check 


r£f 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REp 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 

REF 


8 LAST1024 
47  LAST1027 

9 LAST1028 
6 LAST1027 

34  LAST1027 

4 LAST1027 

6 LA5T1022 

7 LAST1028 
1 

7 last  1028 
1 

8 LAST1028 

8 LAST1028 

35  LAST1028 

9 LA5T1028 
3 LA5T1027 

5 LA5T1026 
2 LAST1028 

10  LAST1028 

8 LA5T1027 

9 LAST1028 
9 LAST1026 


37 

37 

37 

37 

37 

37 
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COMPLEMENT  OF  ADDREsS  OF  X AND  X*1 
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LAST1036 

37.3673 

5A  321 

0 

107A 

REF 

AO 

LAST1036 

37.367^ 

3 6301 

0 

1075 

REF 

10 

LAST1036 

37.3675 

5A  307 

1 

1076 

REF 

2 

LAST1036 

37.3676 

0 3630 

1 

TC  DSKYWAIT 

CS  ZERO 

TS  SKEEP3 

CA  S + 1 

TS  SKEEP2 

inhint 

CS  ♦-ZERO 

TS  DSPTAB  ♦! 

TS  DSPTAB  ♦A 

TS  DSPTAB  *6 

CAF  THREE 

TS  NOUT 

TC  DSKYWAIT 


1077  REF 

1078  REf 

1079 

1080  REF 


19  LAST1036 
27  LASTIOIA 

1 


37.3677 

37.3700 


37.3701 

37.3702 


55*^72  1 NODSPLAY  TS  SKEEP2 

A 7^A2  0 CS  B1T12 

0 OOOA  0 INHINT 

0 3613  0 TC  SBLANKS 


♦ 0 

blanks 

PUTS  BLANKS  IN  ALL  DISPLAYS 


1081 

1 n Q 0 

REF 

2 

LAST1036 

37*3703 

A 3575 
0 0006 

03  011 

1 litesout 

1083 

REF 

17 

last  1036 

37 .37OA 

37.3705 

1 

1 

108A 

REF 

136 

LAST1036 

37.3706 

0 5TA5 

1 

CS  SllCHAN 

extend 

WAND  DSALMOUT  TURN  OFF  COMPUTER  ACTIVITY  LIGHT. 

TC  TASKOVER  END  OF  DSKYCHK 


E3 
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SYMBOL  table  LISTING*  INCLUDING  PAGE  NUMBER  OF  DEFINITION*  AND  NUMBeR  OF  ReFeReNCeS  WItH  FIRST  AND  LAST  PAGE  NUMBERS 

symbol  Mi  Definition  References  f,  ■ symbol  h definition  References  f 


002CEK 

oobcek 

005CEK 

007CEK 

O2ICEK 

OBOCEk 

OEBANK 

0,00125 

O.OOlA 

0,00167 

o,ooaaa 

0,05 

0.1 

0,B1250 

0,B125 

0,B5356 

0.3DEGD3 

0,AA 

0,62170 

0,625 

0,70711 


BB 

BB 

BB 

BB 

BB 

BB 

B7 

20 

20 

16 

20 

20 

20 

16 

20 

26 

20 

20 

16 

20 

20 


0,88975  16 


lOOCS 

lOOMRUPT 

IOOMSCAli 

lOOMSPTO' 

105SEC 

lOANG 

10AT16 

lOPERTHR 

lOSECSll 

10SECS9 

lOSECS 

udEc 

IIDEC, 

IIDSPIN 

110CT16 

110CT6A 

IIOCT75 

llStCS9 

120MRUPT 

120MS 


2463 

246A 

2A65 

2466 

2467 
2470 
3141 

3302 

3303 

2330 

3304 

3305 

3306 
2333 

3307 
2610 
2116 

3310 

2331 

3311 

3312 


662 

662 

662 

662 

663 

663 

1028 

575 

575 

467 

575 

575 

575 

467 

575 

540 

457 

575 

467 

575 

575 


1 659 
1 661 
1 662 
1 657 
1 656 
1 660 

1 571 
1 571 

1 457 

2 572  574 
1 572 

1 457 

1 578 
1 456 
1 571 

1 465 

2 571  57A 
2 573 


3602  488  1 472 


2640 

4264 

3374 

1650 

2365 

3337 

2344 

2472 

2222 

3304 

2570 

3661 

3574 

3301 

3325 
3322 

3326 

3305 
2107 
3070 


860 

90 

512 

50 

642 

429 

467 

663 

697 

692 

202 

389 

1035 

268 

3O4 

304 

304 

692 

93 

117 


1 858 
1 90 

1 503 
1 50 

1 639 
1 418 

1 467 

2 661  689 

1 686 

1 202 
1 380 
11035 
5 231  272 
1 30a 
1 304 
1 304 
1 686 
1 93 


120SECS9 

128/164 

12SEC 

12SECS13 

12SFCS 

135ANG 

135SEC5 

13DEC 

13- 11.1 

13*14,15 

13,7*2 

140SEC5 

14C 

14- TJMIN 
14-TQRMN 
15ADRERS 
15BITADR 
15/16 
160ANG 
16/25 
16/25KF 

16/32400 

170ANG 

17DEC 

17DECML 

17T020 

180ANG 

180DEC 

180MS 

182LMP 

18R 

19DECML 

lANG 

1.2SP0T 

I.BSPOT 

lUACC 

lUACCQ 

IJACCR 

IjACCU 

lUACCV 

ILMP 

1LMP*DT 

1/100 


27 

16 

17 

01 

07 

23 

16 

20 

17 

23 

14 

35 

37 

23 

24 
16 
33 
11 
35 
23 


06 

06 

E6 

E6 

E6 

E6 

E6 


33II 

3534 

2363 

3252 
2571 
3336 
2336 
2117 
3521 
3012 
4422 

3253 
0014 
3577 
2570 

2642 

6306 

3635 

3340 
3603 
3107 

2565 

3343 

3662 

3402 
3426 

3341 
3634 
2340 

2747 

2475 

3403 
3331 


2006 
2006 
1612 

1613 

1614 

1615 

1616 
5073 

5114 

31*2377 


692 

568 

642 

7O7 

2O2 

429 

701 

457 

299 

145 

157 

707 

414 
488 
5OI 
979 
900 
744 
429 
488 
■ 552 

5OI 

429 

389 

451 

1032 

429 

414 

467 

687 

200 

451 

429 

57 

57 

49 

50 
50 
50 

50 

746 

747 

760 


1 568 

1 639 

2 2O2 

2 4l7  418 
1 693 
1 457 
1 298 
1 131 
1 157 


2 704 

6 399  416 
1 476 

3 500  501 

7 977  981 
1 906 

1 736 
1 418 
1 468 
1 551 

1 494 
1 417 
1 368 
1 447 

1 417 

1 465 
1 686 
1 200 


57  59 

59 

50  577 

539  584 

540  578 
578  588 
578 

20  639  756 
58  645  710 
1 760 


symbol  h 

Definition 

1/12TH 

32 ,7660 

860 

l/2Ap 

16*3144 

480 

1/2AQ 

21,3732 

594 

1/2AR 

21,3731 

594 

I/2JETSU 

E6,1701 

52 

1/2JETSV 

E6,1705 

52 

1/2UTSP 

E6,i441 

46 

1/2JT5Q 

£6,167° 

52 

1/2UTSR 

E6 , 1674 

52 

I/2SECX 

35,3404 

45I 

1/3DP 

22,3570 

848 

1/6 

10,3331 

186 

1/ACCQ 

E6 , 1 7l  1 

51 

1/ACCR 

E6,1712 

51 

1/AMINQ 

E6,1713 

5l 

1/AMINR 

E6,1714 

51 

1/AMINU 

E6,i7l5 

51 

1/AmINv 

E6,l 716 

51 

1/AQ 

2 1 ,3733 

594 

1/AR 

21,3734 

594 

I/DVl 

E4,1560 

35 

1/DV2 

E4 , 1 562 

35 

1/GYRO 

12,3435 

808 

1/NET*1U 

E6,l 700 

51 

1/NET+lV 

E6,1 704 

51 

1/NET+2Q 

E6 , 1 67O 

51 

1/NET*2R 

E6 , 1 674 

51 

1/NET>2U 

E6,l701 

51 

1/NET+2V 

1 .Mt-T  /.  f'\ 

E6,1 705 

51 

51 

1 /NET  *40 

E6 , 1 67 1 

1/NET*4R 

E6,1675 

51 

1/NETACC 

0066 

52 

1/NETACS 

E6,1700 

51 

1/NET-lU 

E6,l702 

51 

C 1 

1/NET-lV 

E6 , 1 706 

0 i 

l/NET-20 

E6,1672 

5l 

1/NET-2R 

E6,1 676 

5l 

1/NET-2U 

E6,i 703 

51 

1/NET-2V 

E6,1 707 

5l 

1/NET-4U 

E6,1 673 

51 

1/NET-4H 

E6,1 677 

51 

1/NUETAC 

n066 

52 

1/NJTSq 

E6 , 1 640 

50 

1 854 

1 479 

1 591 

1 592 

4 515  540 

2 515  5l6 
12  473  578 

2 540 
2 540 
1 451 
1 842 


1 185 
8 5i  586 
1 583 
5 51  584 

510  513 

511  588 
511  512 
591 
593 

862  863 


3 862  863  s 
3 806  809 

2 51  540  = 

1 540  = 

23  51  586 

3 52  583  s 

2 52  540  = 

2 52  540  5: 

4 539  586  = 

1 539  = 

9 52  528  = 

1 528  = 

1 540  = 

1 540  = 

6 539  586  s 
1 539  = 

1 540  = 

1 540  s 

4 539  586  = 

1 539  = 

5 497  516  ? 

3 50 


KeY:  SYMBOLS  DeHNeD  BY  eDUALS  ARe  FLAGGeU  =,  OTHERS  ARe  NORMALLY  DeFINeD  E^CePT  THoSe  FLAGGeD: 

u undefined  e failed  leFtoyer  erase  m multiply  defined  t wrong  Memory  tvPe  mm  multiple  errors 

N Nearly  Defined  by  = u failed  leFtoveR  word  0 oversize-  or  ill-defined  c conflict  in  memory  x misc,  trouble 
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SYMBqL  TA3Le  1-ISTtNS*  INCLUDING  PaGe  oF  DEFINITION’  AND  NUMBER  qF  ReFe^ENCeS  WlyH  FlRSj  aND  LASj  PaGe  NUMBERS 


symbol  hi 

Definition 

Reference^ 

■ 

symbol  h 

Definition 

References 

F ■ 

symbol  h 

definition 

References 

1/NjTSR 

E6  • 1641 

50 

- 

- 

- 

■ 

27T030 

37,3434 

1033 

- 

- 

- 

■ 

2/4JET-R 

17 

,3253 

510 

- 

- 

- 

1/NJTSU 

f X 

50 

• 

• 

• 

S 

» 

28SECS 

07,2166 

714 

I 

719 

■ 

2/PI 

30 

,7637 

784 

1 

786 

l/NJTSV 

E6tl643 

50 

• 

. 

= 

■ 

2*U.RATE 

17,3444 

513 

1 

496 

B 

2SEC 

25 

,7756 

675 

• 

1/PIPAl 

12*3227 

80a 

1 

804 

• 

2+V.RATE 

17,3350 

512 

1 

497 

■ 

2SECS11 

36 

*2407 

702 

- 

- 

- 

1/PIPA 

12,3220 

804 

2 

434 

768 

■ 

2BLANK 

04,2557 

236 

5 

230 

270 

■ 

2SECS13 

27 

,3251 

707 

1/PIPADT 

1163 

24 

7 

24 

8l0 

$ 

■ 

2DPS2/3 

22,3574 

848 

1 

826 

z m 

2SECS 

07 

,2172 

714 

1 

720 

I/PIPAGT 

35*3401 

451 

1 

451 

■ 

2EBANK 

37,3155 

1029 

11030 

m 

2SECSDAP 

20 

*3316 

575 

2 

458 

573 

1/VE 

E4,1424 

34 

3 

857 

863 

B 

ZENTRy 

14,3356 

383 

1 

384 

m 

2SEC(l6) 

32 

,2654 

860 

1 

857 

ISECll 

36,2311 

699 

3 

693 

69V 

■ 

2FMAX 

30,3517 

801 

1 

800 

m 

2SEC(17) 

30 

,3136 

789 

1 

789 

1SEC13 

27,32S0 

707 

.. 

• 

B 

2,11SP0T 

06,2025 

57 

• 

- 

• 

■ 

2SEC(18) 

32 

,7652 

860 

1 

853 

1SEC9 

33*3301 

692 

- 

- 

- 

B 

2.2SPOT 

06,2006 

57 

1 

59 

= ■ 

2SEC(9) 

30 

*3314 

793 

2 

790 

792 

ISEC 

31,2106 

750 

1 

749 

B 

2,3SpOT 

06,2014 

57 

1 

59 

■ 

2STARTSB 

01 

,7l6l 

8l 

1 

81 

754 

199 

06,2017 

I5 

,3610 

343 

340 

15Ev.4  1 

5223 

2 

754 

B 

2 • 50rU 1 

57 

• 

• 

■ 

2Vx5TU2o 

4 

ISECRUPT 

1 6 1 3630 

488 

1 

488 

B 

2,7SP0T 

06,2022 

57 

• 

• 

• 

■ 

2,10-our 

17 

,7601 

501 

• 

• 

• 

ISECTM 

30,2457 

778 

1 

778 

B 

2-U.RATE 

17,3307 

511 

1 

497 

ISECX 

24,3707 

4l5 

1 

391 

a 

2-V.RATE 

17,3417 

5I3 

1 

496 

■ 

30BUF0 

E4 

,1650 

40 

2 

360 

ISECXT 

1ST02S 

1T02SUB 

1,9-OUT 

E5 , 1744 
15,3567 
I5,36l7 
17,2604 

42 

343 

343 

501 

3 

2 

6 

391 

372 

343 

45I  * 

387 

• 2J3RE/J2 

■ 2JETS+0 

■ 2JETS+R 

■ 2JETS+U 

07,3651 

17,3504. 

17,3470 

17,3446 

744 

514 

5I4 

513 

2 

3 

3 

1 

736 

493 

493 

513 

737 

514 

514 

• 2JcTo+V 

17 ,3352 

512 

1 

512 

200CS 

27,2362 

642 

2 

639 

641 

• 2JET5-0 

17,3331 

511 

3 

493 

511 

200DEC 

30,2154 

768 

2 

766 

767 

■ 2JETS-R 

17,3270 

511 

3 

493 

510 

206BEGIN 

35,3536 

812 

- 

• 

» 2JETS-U 

17,3311 

511 

1 

511 

20BIAS 

04*2657 

250 

2 

249 

• 2JET5-V 

17,3421 

513 

1 

513 

ZOmRUPT 

12,2151 

94 

1 

93 

■ 2JET5M+U 

17,3443 

513 

1 

513 

20PCTHR 

36,2342 

701 

1 

697 

• 2JETSM+V 

17,3347 

512 

1 

512 

20SECS9 

33*3306 

692 

1 

687 

» 2JETSM-J 

17,3306 

511 

1 

511 

210CT64 

26,2135 

306 

1 

306 

■ 2JET5M-V 

17,3416 

513 

1 

513 

210CT75 

26,2324 

309 

1 

305 

■ 2K 

7743 

937 

3 

897 

995 

21/22RE3' 

0105 

15 

2 

227 

232  s 

• 2K*3 

4645 

294 

1 

294 

2IXCTALM1 

26,2426 

3IO 

2 

305 

3O6 

• 2LMP 

5065 

746 

4 

639 

710 

225AN(b 

23,3342 

429 

1 

417 

■ 2Lmp+DT 

5106 

7A7 

37 

645 

710 

228LMP 

33,3234 

691 

1 

687 

■ 2MIN 

06,2777 

354 

1 

354 

22.5SECS 

36,2337 

701 

1 

694 

■ 2MUERTH9 

33,3277 

692 

1 

69l 

22SECS11 

36,2341 

701 

1 

697 

• 2PHSCHNG 

4127 

71 

8 

647 

751 

250ms 

06,3211 

359 

1 

359 

■ 2RNDEND 

04,3112 

261 

• 

• 

25.5SEC5 

36,2340 

701 

- 

- 

- 

■ 2R0UND 

04,3102 

260 

4 

258 

260 

25/32 

16,3610 

488 

2 

473 

483 

■ 2/3 

07 ,3661 

744 

1 

736 

25/32, 3Hi 

17,2561 

501 

1 

497 

■ 2/3DP 

22,3574 

848 

1 

848 

25/320R 

17,3560 

515 

1 

519 

• 2/4JET+3 

17,3474 

5l4 

1 

512 

270DEG 

15,3135 

333 

- 

• 

• 

• 2/4JET*R 

17,3453 

513 

1 

513 

2TOSECS 

07,2170 

714 

1 

7i6 

• 2/4JET-3 

17,3321 

511 

- 

- 

- 

3OBUFI 

E4 , 1 644 

40 

2 

360 

30mRUPT 

12,7l50 

94 

1 

92 

3OMSGMSK 

11,?710 

205 

1 

2O4 

30RDMSK 

12,3042 

117 

1 

98 

30SEC 

14  , :)667 

389 

1 

363 

30SECS9 

33,3307 

692 

2 

687 

33,75ANG 

23,3332 

429 

- 

- 

33PASTE 

11,2512 

201 

2 

201 

33RDMSK 

4660 

117 

2 

IO4 

342SECS 

27,3254 

707 

1 

706 

340CT 

31,7414 

76l 

1 

752 

36SECSD9 

33*3261 

692 

1 

686 

37511ALM 

14,3117 

379 

1 

379 

38,5MAT4 

17,3553 

515 

1 

517 

38.7AT16 

16,3571 

488 

1 

481 

399ODEC 

24*3635 

414 

1 

393 

3ENTRY 

1 4 ,3363 

38H 

2 

384 

3,2SP0T 

06,7006 

58 

1 

59 

R U 

1 

59 

3 , 35PUT 

06  f 2 OOo 

i 

3/16 

07,3625 

744 

1 

743 

3/4 

07,3637 

744 

1 

736 

3/8 

07,3623 

744 

1 

736 

688 


3SEC21  26»7AA0  310  1 3O8 

3SEC  23,33A6  A29  - 

3SECS  A311  12A  1 U5 

35EC5M  a311  U5  - 


Keys  symbols  DETINED  by  equals  are  FlAGSeU  =,  others  are  normally  defined  except  those  flagged. 
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symbol  hi  Definition  reference^  • 


AOSEC 

A5ANG 

ASDEG 

A*6BITS 

AENTRy 

A.2SPOT 

A.BSPOT 

AJETS*Q 

AjETS*R 

AJETS-3 

AJETS-R 

AjETTORCl 

AJTORK 

ASECS9 

ASECS 

ASECSD9 


25 
23 
2A 
23 
lA 
06 
06 
17 
17 
17 

17 

E6 

26 
33 

33 


536SEC 

5B10 

SBLANKI 

BbLANk 

5DEGS 

5.IISPOT 

5,13spOT 

5,15SPOT 

5.17SPOT 

5.21SP0T 

5,23SpOT 

5,25SP0T 

5,27SPOT 

5.2SPOT 

5.31SP0T 

5.3SPOT 

5,4,SP0T 

5,5DEgS 

5,5SPOT 

5.6SPOT 

5.7SPOT 

5M15S 

5/128 

5/8*1 

5SECS9 

5 1 6 * 7 ♦ 8 


06 

06 

06 

06 

06 

06 

06 

06 

06 

06 

06 

06 

06 

06 

06 

33 

07 

33 

16 


2757 

3333 

3655 

33a7 

3365 

2006 

2006 

3502 

3A66 

3327 

3266 

1A55 

2750 

3302 

A310 

3257 


675 

a29 

AlA 

A29 

38A 

58 

58 

51a 

51A 

511 

510 

A6 

579 

692 

12A 

692 


1 670 
2 A17  Al8 

2 397 

2 A18  <,25 


60 

60 

A96  51A 
A97  51^ 
A97  5ll 

A97  5ll 
A65  539 


1 578 


688 

102  127 


1 689 


2536 

2711 

2535 

251A 

A36A 

2063 

2066 

2071 

207A 

2077 

2102 

2105 

2110 

2030 

2113 

2052 

2036 

A363 

2055 

20AA 

2060 

3263 

36a7 

5521 

3303 

3252 


668 

981 

235 

235 

156 

59 

59 

59 

59 

59 

59 

59 

59 

58 

59 

58 

58 

156 

58 

58 

58 

692 

7aA 

987 

692 

A81 


2 667 


3 23A  272 


1 60 

1 60 
1 156 


1 68A 
1 736 
1 986 
1 690 
1 A81 


symbol  h Definition  References  f 


6OOMS 

6ODEC 

60SEC 

63DEC 

63/6A* 1 

6AUPDAT 

65UPDAT 

66UPDAT 

67UPDAT 

69DEC 

6,2SP0T 

6,3SP0T 

6,6AT16 

6L0W 

6SECS 


70UPDAT 

71ANG 

71UPDAT 

72DEC 

72UPDAT 

73UPDAT 

7Ak 

7AUPDAT 

75SEC 

75UPDAT 

76UPDAT 

77DECML 

7/12 


8192AUG 

82DEGS 

87LMP 

89TEST 

8B00LS 

8*5 


9OANG 

90DEG 

90mRUPT 

90SEC 

90SECS9 


lA 

*3663 

389 

lA 

*3670 

389 

lA 

*366A 

389 

5522 

987 

11 

*3273 

30A 

11 

*32A7 

3O3 

11 

,3253 

303 

11 

*3261 

303 

lA 

*3665 

389 

06 

*2006 

59 

06 

*2006 

59 

16 

,23A5 

A67 

23 

*33AA 

a29 

10 

«32A0 

183 

11 

*3265 

303 

23 

*333A 

A29 

11 

*3267 

3O3 

lA 

*3666 

389 

11 

*3275 

3OA 

11 

*3257 

303 

A266 

90 

11 

*3251 

303 

27 

*236A 

6A2 

11 

*3306 

3OA 

11 

*3301 

30A 

35 

*3351 

A50 

07 

*36A3 

7AA 

13 

*2630 

lAO 

A365 

156 

33 

*3150 

690 

OA 

*2061 

228 

27 

.3070 

683 

AA23 

157 

23 

,3335 

A29 

27 

*2376 

6a2 

A263 

9y 

13 

*30l6 

1A5 

33 

,3310 

692 

1 131 
1 382 

1 362 

2 380  381 
2 562  986 
1 187 

1 187 

1 187 

2 187  303 

1 380 
1 60 
1 60 

1 a26 
1 182 


1 187 

2 Al7  A18 
2 187  3O3 

1 371 

2 187  boa 

1 187 


1 92 

1 187 

1 6A0 

2 187  3OA 
A 187  30A 

3 A32  AA6 


1 736 


1 lAO 

1 156 

1 690 

2 227 

1 677 
1 157 


1 A17 
1 638 
1 90 

1 132 
1 685 
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■ 

90SECS 

12, 

■ 

925PCTHR 

■ 

92PERTHR 

33, 

■ 

9/16 

07, 

■ 

9*6 

01 1 

■ 

♦ OCHK 

37, 

♦ICHK 

37  # 

• 

♦1.5C5p 

16, 

• 

♦ 90MS 

17, 

■ 

♦decsgn 

OA* 

a 

♦DiF 

11  * 

a 

♦ DOWN 

00  « 

a 

♦-ZERO 

37, 

a 

♦ LOOP 

37, 

♦Ml NIMP 

1 6 V 

a 

♦ ON 

OA, 

a 

♦/-XTRAN 

20, 

a 

♦SENSTAB 

20, 

a 

♦ SIGN 

37* 

a 

♦T6TJMIN 

17, 

a 

♦TJMINT6 

17, 

a 

♦XJETSON 

27* 

a 

♦xorulge 

17, 

a 

♦XPOLICY 

20, 

a 

♦XSELECT 

20, 

a 

♦XSENSE 

20, 

a 

♦XTRANSL 

20, 

a 

♦ X,A 

17, 

♦ X tB 

17, 

a 

AOFS 

22, 

AOXS 

AIFS 

A2CNTRAL 

A2FS 

A3FS 

A 

A*B 

A*B/A-B 

AbCLOAD 

ABDELV 

ABDVCONV 


7735 

2A73 

36a5 

7532 


117 

701 

663 

7<,A 

87 


2 101 

1 697 

2 661  689 
1 736 

1 81 


203A  1015  61020102A 
20a2  1015  2510181026 
3575  A88  3 A81  A83 
2576  501  - 


7172 

3076 

2552 

3573 

3OA6 

7511 

2301 

7316 

2515 

3663 

2560 

3551 

2A00 

7AAA 

2323 

2260 

7266 

726A 

7602 

7603 


229 

209 

955 

1035 
1027 

A7O 

231 

525 

530 

1036 
501 
515 

6A2 

A99 

525 

523 

523 

523 

501 

501 


1 229 
3 209 
1 95a 
21036 
21027 

1 A7n 

3 231  266 

2 A99  527 

1 523 
IIO36 

2 A9‘*  500 
1 518 

1 6A0 

2 A98  A99 

1 521 
1 523 
1 521 


3A52  8A6  - 


3A23 

3501 

0072 

3510 

3537 

nooo 

1510 

3235 

2535 
153A 
1 56A 


8A5  1 8A<, 

8a6  - - - 

Ab  lA  560  561 
8A7  1 8A9 

eA7  - 
10  A23 
A7  3 
5l0 
253 
AA 

35 


61103A 
510  512 


1 239 
A 689  769 
3 790  862 
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symbol  h. 

Definition 

ReFeRenceS 

■ 

symbol  h 

Definition 

ReFeRences 

F 

symbol  h 

Definition 

References 

F 

AbLOAD 

05 

.2572 

253 

1 

239 

■ 

■ 

ADDINDRF 

35 

.2575 

AAO 

1 

439 

A-b 

E6 

,1511 

A7 

3 

5lO 

5l3 

ablock 

33 

.2A7A 

663 

1 

658 

■ 

ADDRCHK 

37 

.27O7 

1025 

• 

A-B/ONLY 

17 

.3237 

510 

1 

512 

• 22A5 

695 

ADDRESS 

6137 

a7A7 

300 

ABMON 

36 

698 

2 

690 

895 

• 

— 

— 

ALARM2 

301 

1 

ABORT2 

6OO3 

302 

1 

300 

■ 

ADDRWD 

0106 

15 

78 

8A9 

966 

ALARM 

aZaa 

301 

36 

891015 

Abort 

6000 

302 

10 

lAAlOOB 

■ 

ADDT6JTS 

E6 

,1A73 

A7 

7 

A6A 

500 

alarms 

2^ 

,2AA2 

397 

5 

395 

A02 

abortadt 

16 

ADDTIME 

11 

ALBITS 

u 

389 

.3O3I 

A78 

1 

A77 

■ 

.3230 

213 

1 

213 

. S6A6 

1 

385 

ABORTJET 

20 

.22A3 

522 

2 

A78 

527 

■ 

ADDTLT6 

E6 

.1A7A 

A7 

10 

A6A 

501 

ALCGKK 

35 

.2153 

A3A 

1 

A3  A 

ABORTNDX 

E3 

.1760 

28 

A 

6A2 

6a3 

■ 

ADDTOFV 

07 

♦ 3382 

737 

2 

735 

ALDK 

E5 

.1666 

A2 

3 

A3a 

A36 

S 

AbORTrRT 

33 

.2017 

655 

1 

65A 

■ 

ADIAX 

E3 

.1AA7 

26 

2 

283 

805 

ALFDk 

35 

,3113 

AA7 

1 

A3a 

ABORTRET 

27 

.?A57 

6A3 

1 

6A2 

i 

ADIAY 

E3 

.1A50 

26 

1 

e05 

ALFLTl 

35 

,7lA0 

A3A 

1 

59 

ABORTRTN 

27 

.2a25 

6A2 

1 

6A3 

■ 

ADIAZ 

E3 

.1A51 

26 

1 

805 

ALFLT2 

35 

.2I7O 

A3A 

2 

A34 

ABRT23GD' 

OA 

.2053 

228 

1 

227 

1 

ADROFSER 

36 

.2362 

701 

2 

696 

702 

ALFLT 

35 

,2126 

A3A 

1 

A33 

ABRT2AGD' 

oa 

.2056 

228 

1 

227 

1 

ADRPCHNz 

AI6I 

72 

1 

72 

ALGORTHM 

21 

.3100 

560 

1 

559 

n 0 

■J  1 J / 

966 

ADRSl 

37 

,2017 

1015 

35 

,22a2 

A35 

1 

935 

ABS 

UU 

. 3 i f A 

966 

A 

8A0 

■ 

AL  I Lp 

i 

ABSMIN 

36 

.2553 

869 

3 

869 

87l 

■ 

ADRS*1 

37 

,3AlO 

1032 

• 

* 

f* 

ALINS 

Ea 

,1  60A 

33 

7 

33 

838 

= 

ABSOLMIN 

36 

.3A70 

88A 

1 

869 

■ 

ADRSCHK 

37 

.3370 

1032 

210311032 

ALINTIME 

11 

,2303 

196 

1 

187 

AbTSTgI 

25 

.2A25 

652 

1 

652 

• 

Ads 

22 

.3A23 

8AA 

A 

825 

837 

alk 

E5 

.1602 

A2 

7 

935 

990 

; 

ABTSTGDM, 

25 

.2A15 

652 

3 

6A7 

652 

■ 

ADSRAX 

E3 

,1A52 

26 

2 

283 

805 

ALKCG2 

35 

.2161 

A3A 

1 

93  a 

ABVAL 

00 

.31A7 

966 

- 

- 

. 

■ 

ADSRAY 

E3 

.1a53 

26 

1 

805 

ALKCG 

35 

.2156 

A3A 

- 

- 

- 

ABVALABS 

00 

.3IAA 

966 

1 

90a 

i 

ADSRAZ 

E3 

. 1a5a 

26 

1 

805 

ALKLP 

35 

.2251 

A35 

1 

A36 

ACCAOR2X 

7752 

A5A 

1 

525 

■ 

ADSUM 

37 

.3357 

1032 

310311032 

ALL.XJTS 

17 

.2600 

501 

- 

- 

- 

ACCDOTLG' 

21 

.3017 

558 

- 

i 

ADTTFNU 

22 

.2172 

821 

5 

8l8 

8l9 

ALLCOAST 

20 

,2057 

A56 

1 

A6A 

ACCDOTD 

E6 

.1531 

A8 

7 

As 

567 

■ 

ADUM 

OOAO 

33 

3 

836 

8A2 

= 

ALLDC/OC 

05 

.2676 

255 

2 

253 

ACCDOTR 

E6 

.1533 

A8 

2 

A66 

■ 

ADVAN 

5631 

999 

- 

ALLDONE 

12 

,2273 

97 

2 

96 

ACCDOTSM, 

21 

.3O32 

559 

1 

558 

■ 

AFC 

EA 

.1556 

33 

2 

33 

827 

= 

ALLOOPl 

35 

.2070 

A33 

1 

59 

ACCEpTU^ 

13 

.357A 

216 

1 

216 

■ 

AFCCALC 

22 

.25A3 

827 

1 

838 

ALL00P3 

35 

,2063 

A33 

» 

- 

- 

ACCEPTWD 

05 

.202A 

237 

1 

237 

• 

AFCS 

EA 

.1550 

33 

9 

33 

838 

= 

ALLOOP 

35 

.2O6O 

A33 

1 

AA  A 

ACCFIFTY 

20 

,3326 

581 

A 

589 

1 

AFLITE 

22 

,3A1A 

8AA 

1 

83A 

allread 

10 

,2637 

17A 

1 

175 

accljob 

30 

,3A22 

797 

1 

796 

B 

i 

aftrim 

22 

.3A20 

8AA 

1 

83A 

allrjets 

20 

,2A36 

528 

1 

527 

ACCOMP2 

O7 

,3060 

732 

3 

732 

735 

■ 

AFULLG 

22 

.3A10 

8AA 

1 

833 

ALMCADR 

13A2 

25 

6 

283 

302 

ACCOMP 

07 

.3051 

732 

- 

- 

. 

■ 

AGSBUFF 

E7 

.1550 

A3 

. 

ALMOSTl 

32 

.3037 

86A 

1 

86A 

ACCUROT 

15 

.2655 

327 

- 

- 

- 

■ 

AGSINITZ 

11 

.256A 

202 

1 

202 

ALM/END 

11 

.2O66 

188 

8 

187 

202 

ACCWD 

E5 

. 16A6 

A2 

3 

A2 

A36 

1; 

■ 

AGSINIT 

11 

.2531 

202 

1 

187 

ALOAD 

05 

.2620 

25A 

1 

239 

ACENTRAl 

006A 

A8 

7 

559 

56l 

e 

i 

AGSJOB 

11 

,25A6 

202 

1 

202 

ALPHAM 

EA 

,155A 

30 

11 

72a 

737 

= 

ACOS3 

00 

.3621 

975 

1 

976 

t 

AGSLIST 

15 

.2001 

312 

2 

202 

313 

= 

ALPHAQ 

E6 

.1A20 

A5 

6 

A6a 

567 

= 

ACOScO 

00 

.3606 

97A 

3 

97A 

976 

• 

AgSmON 

30 

.2233 

768 

- 

. 

5 

ALpHAR 

E6 

.1  A22 

A5 

3 

A6A 

555 

s 

ACOSABRT 

00 

.3672 

976 

- 

1 

AGSWORD 

0A12 

20 

5 

79 

202 

ALPHAV 

EA 

.iA52 

30 

19 

731 

793 

= 

ACOSOVF 

00 

.3670 

976 

1 

97A 

i 

AHEAD5 

6A73 

9O7 

1 

907 

ALSK 

35 

,3360 

A50 

1 

936 

ACOSSHR 

00 

,3663 

976 

1 

97A 

B 

aimed 

32 

.262A 

860 

1 

860 

alt 

0351 

19 

8 

95 

920 

ACOSST2 

00 

.3611 

97A 

2 

97A 

B 

AIMER 

32 

.25A7 

859 

1 

858 

ALTA 

27 

,2667 

680 

1 

680 

ACOSST 

00 

.357A 

97A 

1 

97A 

B 

AIMING 

32 

.261A 

860 

1 

860 

ALTASK 

lA 

.3506 

385 

2 

386 

ACOSZERD' 

00 

.367A 

976 

1 

97A 

B 

AINGYRO 

35 

,3353 

A50 

1 

AA2 

ALTB 

27 

,2713 

680 

1 

680 

ACS 

Ea 

. 15a2 

33 

A 

33 

837 

B 

AINLA 

E5 

.1570 

Al 

37 

A2 

= 

ALTCALC 

3A 

.2226 

607 

1 

607 
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ALTE 
ALTIm 
ALTIMS 
ALTM 
ALTMET 
ALTOuT 
ALTRATE 
ALTRMET 
ALTROUT 
ALTSAVE 
ALT*R*VN 

ALWAYS 
■ ALWAYSG 
ALXIS 
ALXXX2 
AM 

AmEMORy 
ANGLREAD 
ANGLTIME 
ANGX 
ANGY 

ANGZ 
ANNNNNN 
ANYTRANS 
AOFC 

AORbSyST 
AOSJOB 
AOSU 

AOSQTERM, 
AOSR 

AOSRTERM. 
AOSTASX 
AOSU 

AOSV 
AOTANGCCI  U 
AOTAZ  E3 
AOTCADR 
AOTEL  E3 
AOTMARX  13 
AOTNB  15 
AOTNBIMJi  U 
AOTSm  15 
AOTSTALL  13 


3A 

E5 

E5 

U 

12 

U 

12 

II 

lA 

35 

E5 

35 

E3 

EA 

10 

3A 

E5 

E5 

E5 

35 

26 

20 

E6 

E6 

Eb 

E6 

20 

E6 

E6 


3152 

I66A 

1665 

0060 

3526 

2152 

0353 

3553 

2217 

0363 

3105 

3A73 

2517 

1600 

3352 

1642 

1400 

2712 

3512 

163A 

1632 

1626 

3014 

0071 

2432 

7751 

3327 

1652 

1656 

1653 

1657 
3112 

1654 

1655 
3564 
1467 
0370 

1472 

3017 

3161 

2000 

3306 

2760 


621 

42 

42 

11 

386 

95 
19 

386 

96 
19 

209 

385 

439 

42 

450 

27 

30 

176 

626 

42 

42 

42 

445 

52 

3IO 

454 

581 

51 

51 

51 

51 

571 

51 

51 

387 
26 
19 
26 

146 

334 

36I 

337 

144 


1 621 
3 433 
433  434 
95  38^ 

383  38^ 

94 

95  420 
383 

94 

95  209 
208 


4 

130 


385 

435  439 


1 
2 

6 432  45O 
1 432 
606  625 
30  713 


1 625 
4 436  442 
3 438  442 


3 439 
2 432 
5 499 

1 305 

2 477 

573 
51 
51 
509 

489 
458 

573 


442 

44O 

525 


57A 

586 

573 

573 

573 

573 

689 


1 573 
1 197 
8 55  153 

1 19 

1 148 

2 364 

2 364  365 
2 197  379 


1 144 


APSGOING 

ApSOFF 

APSVEX 

ARATE 

ARCCOS 

ARCSIN 

ARCSINH 

ARCTRIG 

AREARATE 

ARG90 

ARG+ 

ARGHI 

ARGLO 

ARGZER02 

ARGZERO 

ARITH 

ARTHINSF 

ARTOA 

ARTOUTSF 

ARUPT 

ASCDAPl 

ASCDAP 

ASCENGOn 

ASCENT 

ASCJOB 

ASCRET 

ASFTEST 

A5INEX 

ASPRT 

ASTbFmI 

ASWTVLOm 

AT 

ATMAG4 

ATMAG 

ATMAGAD 

ATMEAS 

ATTCADR 

ATTCK2 

ATTSTALL 

ATTSTEER 

AUG2 

AUG3 

AURLOKON 


7746 

32t27ll 

30,3322 

34,3502 

00*3561 

00,3557 

36,3071 

15,2543 

E5,l553 

5427 

7327 


00 

00 


24 

04 

12 

04 

20 

20 

26 

32 
20 
E4 
21 
00 
E4 
26 
36 
E4 

33 

32 

27 

E4 

11 

13 

17 

13 

13 

11 


3366 

3437 

7344 

7347 

2734 

3011 

2302 

2660 

0010 

2165 


454 

861 

793 

626 

974 

974 

876 

324 

38 

985 

926 

970 

971 
926 
926 
4OI 
259 

97 

250 

10 

459 


5 ^56  583 
1 861 
1 79I 
3 625  626 
1 904 
1 9O4 

8 322  387 
3 792 
1 985 
1 926 


2 971 
1 971 
1 926 
1 926 

3 4OI 
1 258 
1 95 
1 249 

11  541011 
1 458 


,2120 

458 

* 

*2477 

538 

3 

538 

,2120 

853 

4 

658 

863 

*3414 

584 

1 

583 

*1450 

34 

5 

657 

860 

s 

*3046 

559 

1 

559 

*3656 

975 

1 

974 

*1534 

33 

5 

33 

838 

*2437 

310 

3 

305 

306 

,2422 

703 

1 

697 

,1422 

34 

6 

658 

863 

= 

*2542 

664 

1 

661 

,2713 

862 

2 

664 

707 

,3263 

707 

1 

7O6 

,1430 

34 

2 

658 

851 

s 

O3Y2 

19 

1 

86 

*2620 

203 

3 

203 

419 

*2754 

144 

6 

660 

712 

,2620 

503 

2 

493 

494 

*2643 

140 

1 

140 

*2621 

140 

1 

140 

*2765 

207 

2 

194 

379 

AUTORHLD 

AvEgIIAD 

AVEG13AD 

AVEGADDR 

AVEGADRS 

AvEgkILL 

AVEGON 

AVEGOUT 

AVEMIDAD 

AVERAGEG 

AVETOMID 

AVGENADR 

AVGEND 

AVGEXIT 

AVGOUTF 

AVGXTEMP 

AvmIDRTN 

AVOUTCAD 

AVRAGEG7 

AWAY 

AXC 

Axis 

AXISCNTR 

AXI5D 

AXISFILT 

AXISgENI 

AXISGEN2 

AXISGEN3 

AXISGEN 

AXISROTI 

AXISROT 

AXT 

AZO 

AZANG 

AZGR 

AZIMUTH 

A(X) 


36 

27 

30 

27 

07 

07 

30 

30 

30 

07 

33 

30 


E4 

E4 

30 

25 

30 

01 

E4 

E4 

30 

15 

15 

15 

15 

15 

15 

01 

27 

E3 

E3 

E5 

07 


7740 

2347 

3256 

2230 

2360 

2052 

2335 

2107 

7315 

2233 

2OT3 

7526 

2274 

1072 

1O74 

1405 
1630 
2113 
7 167 
3406 
2564 

1 640 
n06l 
1632 
7TO4 
3012 
3041 
3064 
3OO6 

7710 

2646 

7557 

2370 

1 475 

1 763 
1 506 
7726 


B12.1 

B12T14 

BU*B2 

B3T0B4 

B5T0B8 


4552 
5673 
10*7466 
01,3011 
01  ,2700 


xbY!  symbols  Defined  by  equals  are  flagged  =,  others  are  normally  defined  except  those  flaggeDi 


U undefined 
N Nearly  defined  by  = 


E failed  LeFtDVeR  erase 
J failed  leftover  word 


M multiply  defined 
0 oversize-  ok  ill-defined 


T wrong  Memory  tyPe 
c conflict  in  memory 


454  2 455  = 

701  1 702 

70 J 1 705 

77O  1 769 

64.1  2 634,  64,2 

89  1 89 

719  1 7I9 

767  1 767 

773  1 773 

772  11  641  770 

713  1 773 

663  2 659  688 

773  1 767 

22  26  88  829 

22  1 22 

32  4 32  828  = 

36  6 713  773 

767  1 767 

675  1 670 

796  1 796 

977  1 9O3 

36  11  766  786 

52  7 506  508  = 

36  4 689  832 

785  - 

330  1 330 

330  1 331 

331  1 331 

33O  2 365  409 

327  1 327 

321  6 325  326 

977  1 9O3 

64.2  1 637 

26  1 287  = 

28  2 637 

40  r 368  A14 

729  1 723 


29O  - 

9OI  1 9O5 

169  1 169 

984  2 983  984 

980  - 


MM  multiple  ePRQRp 
X Misc.  trouble 
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Symbol  table  listing*  including  page  number  of  Definition*  and  number  of  ReFeRenCeS  with  first  and  last  page  numbers 


symbol  hi 

OeFINI 

rioN 

References 

?l 

■ 

symbol  h 

Definition 

ReFeRences 

F 

■ 

symbol  h 

Definition 

References 

F 

BACkI 

1A*333A 

383 

3 

384 

386 

■ 

BiTll 

7743 

937 

39 

1021014 

■ 

boostadr 

27*?36l 

641 

1 

640 

BADCHAR 

27*2450 

643 

1 

642 

■ 

B1T12 

7742 

937 

27 

711036 

• 

BOOSTMON 

30*7214 

769 

1 

641 

BADDES 

10*2454 

169 

1 

169 

• 

BIT12-13 

21*2371 

548 

« 

• 

■ 

BORTENT 

4751 

301 

1 

302 

BADEND 

13*2726 

143 

3 

142 

619 

• 

BIT13 

7741 

937 

31 

1051014 

■ 

BOTHSGN 

04*7265 

23I 

1 

231 

badphase 

31*2431 

762 

1 

751 

■ 

BIT13-14 

5226 

938 

4 

384  574 

s 

■ 

BOV (B) 

01,2672 

980 

1 

9O3 

BADRAD 

10*2725 

176 

4 

176 

179 

i 

B1T14 

77<,0 

937 

Si 

781014 

■ 

BPL 

01 *27i6 

981 

1 

98i 

bankcall 

5224 

888 

134 

67 

808 

i 

tjl  T 14C0vi 

06  ♦2437 

74 

I 

74 

BPL/BMN 

01 *7707 

98 1 

9O3 

bankjump 

5246 

888 

13 

67 

98D 

■ 

BIT15 

7737 

937 

44 

711014 

m 

BRANCH 

(^772 

9I6 

8 

926 

981 

bankmas<i 

6331 

9OI 

3 

901 

9IA 

• 

BIT! 

7755 

937 

70 

1131014 

m 

BRATE 

E3*1634 

28 

4 

625 

628 

= 

bankrupt 

• 0016 

10 

19 

901011 

9 

i 

BIT2 

7754 

937 

36 

951014 

■ 

BRIGNl 

0000 

8i9 

1 

820 

bankset 

0155 

17 

13 

891 

995 

i 

BIT3 

7753 

937 

26 

1501014 

■ 

BRIgN2 

n002 

819 

1 

827 

= 

basvac 

0002 

154 

7 

148 

« 

• 

BIT4 

7752 

937 

46 

811014 

■ 

BRLING 

OOOl 

819 

1 

824 

72 

B1T5 

7751 

937 

34 

04*7556 

235 

1 

235 

BB 

UOU(> 

' 73 

5 

tc 

m 

bbank 

0006 

10 

34 

541011 

9 

■ 

BIT6 

7750 

937 

50 

801014 

• 

BRTTFNU 

OOOl 

818 

1 

82l 

= 

bbankset 

20*2454 

528 

1 

528 

• 

BIT6H 

32*2764 

863 

1 

862 

■ 

BRUPT 

nOl7 

10 

- 

• 

bbbb 

14*3130 

380 

1 

380 

■ 

BIT7 

7747 

937 

44 

721014 

■ 

bRxend 

0005 

818 

1 

828 

= 

bblock 

33*2502 

663 

1 

658 

B 

BITS 

77A6 

937 

34 

721014 

• 

BRXMID 

0003 

819 

1 

828 

= 

604 

627 

BIT8*9 

17*2566 

501 

0123 

975 

BCDU 

c3 « o32 

cl 

7 

1 

495 

oUr  C 

i ^6 

bddv 

7627 

934 

2 

902 

93A 

B 

BIT9 

7745 

937 

23 

801014 

tB 

BUF 

nl20 

16 

137 

16 

998 

bdsu 

7120 

919 

1 

902 

B 

BITS364 

13*3007 

145 

3 

125  127 

■ 

BUF* 

00*7406 

949 

2 

949 

BEGDES 

10*2422 

169 

2 

160 

166 

B 

BITS465 

12*3056 

117 

3 

98  116 

■ 

BUF- 

00*2402 

949 

2 

949 

BEGIN206 

35*3524 

812 

1 

78 

B 

BIT5466 

13*3010 

145 

2 

125 

■ 

BUFNORM 

00,7464 

952 

1 

952 

BELOWl 

06*2410 

73 

1 

75 

B 

BITS4-6 

13*3011 

145 

1 

132 

■ 

BUMP 

04*3343 

271 

2 

239 

272 

BELOW2 

06*2425 

74 

2 

74 

B 

BITS66I5 

12*3065 

117 

1 

116 

« 

BURGZERO 

17*3357 

512 

1 

510 

BELOW3 

06*2441 

74 

1 

74 

B 

BITS668 

20*2455 

528 

1 

521 

■ 

BURN 

22*7041 

818 

1 

701 

BELOWA 

06  *2444 

74 

2 

74 

B 

BITS768 

l2*3n6l 

117 

1 

101 

■ 

BURNADR 

36*2350 

701 

1 

696 

BESTP0L5 

20*2223 

521 

1 

522 

B 

BITS8*9 

16*3613 

488 

2 

472 

■ 

BVECTOR 

E4  * 1 466 

30 

• 

• 

a 

betam 

E4*1556 

30 

2 

732 

73A 

9 

B 

BITS9*10 

06*3114 

357 

3 

356  357 

■ 

BVSU 

707A 

919 

1 

9O2 

BETAv 

E4* 1460 

30 

9 

731 

73^ 

9 

B 

BITSET 

12*2303 

97 

1 

95 

■ 

BZE/GOTO 

01*2702 

981 

1 

9O3 

BGIM23 

16*2321 

467 

1 

467 

B 

BLANKCOn 

04*2572 

236 

2 

236  249 

■ 

BZFCHK 

37*2265 

1019 

• 

- 

- 

BGIM2A 

17*2615 

502 

1 

505 

B 

blankret 

0104 

15 

•• 

= 

■ 

BZFHOLE 

4725 

300 

- 

- 

- 

BGIM 

21*3376 

564 

1 

564 

B 

BLOAD 

05*2631 

254 

1 

239 

• 

BZMFCHK 

37*2153 

1017 

- 

- 

- 

BGIMBALS 

07*2051 

89 

1 

88 

B 

BMAGX 

0042 

10 

- 

- 

■ 

BIX) 

07*27<*5 

729 

1 

728 

BHIZ 

01*2665 

980 

- 

- 

B 

BMA&Y 

0043 

10 

• 

s 

BIASCOM 

04*2607 

249 

2 

249 

25O 

B 

BMA6Z 

0044 

10 

• 

• 

= 

■ 

COY 

27*3044 

683 

1 

680 

BIASHI 

00*2530 

953 

1 

970 

B 

BMEMORY 

E5*1570 

42 

7 

58  769 

= 

■ 

CIMP 

E3,1621 

27 

2 

623 

625 

BIASLO 

00*2270 

946 

1 

971 

B 

BNKCAL*2 

5226 

888 

11000 

■ 

ClPP 

E3*i617 

27 

4 

S23 

625 

BIbIbI AS 

30*2011 

766 

2 

634 

766 

B 

bnkchk 

37*3475 

1033 

- 

- 

■ 

Cl/2 

5432 

985 

1 

985 

BIGNO 

36*3456 

884 

1 

877 

B 

BNKJUP+4 

5252 

888 

11000 

■ 

ClY 

27*3046 

683 

1 

680 

BINS 

6301 

184 

2 

176 

9 

B 

BNKOPTN 

37  *2065 

1015 

• 

• 

• 

C2MP 

E3* )6l5 

27 

2 

523 

625 

bincon 

4557 

290 

3 

233 

937 

B 

BODyFLAg 

0006 

13 

* 

- 

a 

■ 

C2pp 

E3*1613 

27 

7 

623 

625 

BINROUNO 

04*3021 

259 

2 

258 

259 

B 

BODYVECT 

33*2514 

663 

5 

659  852 

■ 

C2SQM 

E3*1611 

27 

2 

623 

= 

BITIO 

7744 

937 

51 

6IIO3S 

B 

BOOP 

35*2330 

436 

1 

437 

■ 

C2SQP 

E3,1607 

27 

3 

623 

KEY!  SYMBOLS  DEFINED  BY  EQUALS  ARE  FlAGSEU  c,  OThERs  ARe  NORMALLY  DEFINED  EXCEPT  ThOsE  FLAGGED! 

U undefined  E failed  leftover  erase  M multiply  defined  T wrong  memory  TvPE  mm  MULTIPLE  errors 

N Nearly  oefined  by  s j failed  leftover  word  o oversize-  or  ill-oefineo  c conflict  in  memory  x misc.  trouble 
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SYMBOL  TA3LE  LIStINGi  INCLUDING  PaGE  NJMBtR  OF  DEFINITION*  AND  NUMBeR  OF  REFERENCES  WITH  FIRST  AND  LAST  PAGe  NUMBERS 

SYM0OL  H Definition  Reference^  f ■ symbol  h definition  References  f ■ symbol  h definition  references  f 


C33JMP 

C33TEST 

C3/2 

C5/2 

CADAVER 

CADRl 

CADR2 

CADR3 

CADRa 

CADRSTORi 

CADRTAB 

CAGESUB2 

CAqESUB 

cagetest 

CAGETSTJ 

CAGETST3I 

CALCDIR 

CALCGAl 

CALCGA 

CALCGRAY 

CALCgTA 

CALCPHI 

CALCRATE 

calcrvg 

CALCSFE 

CALCTGO 

CALL 

CALLCODE 

CALL/ITA 

CAM 

CATCHFIN 

cblock 

CBMCALC 

CBXPNDR 

CCALL 

cccc 

CCSCHK 

CCSHOLE 

CDRvE 

CDU2DOT 

CDU3DOT 

CDU 

CDuANg 


12,3044 

117 

12,2507 

104 

5433 

985 

5434 

985 

07,2044 

89 

35,3534 

812 

35,3545 

8l3 

35,3556 

813 

35,3563 

813 

0327 

18 

06,2001 

57 

12*3024 

116 

12*3012 

116 

13*2705 

142 

13*2717 

142 

13*2712 

I42 

E5  * 1614 

41 

15*2760 

329 

15*2722 

328 

30*3043 

788 

15*2472 

322 

34*2754 

6l7 

23*3050 

422 

30  * 3077 

788 

24,2710 

401 

33,3111 

689 

6707 

914 

5362 

938 

01,2722 

981 

E3,1644 

27 

11*3153 

211 

33*2516 

663 

34,3114 

621 

27,2540 

666 

6675 

914 

14,3143 

380 

37,2112 

1016 

4725 

3OO 

12,2056 

92 

0063 

49 

E6,1567 

49 

0072 

49 

E5,1677 

41 

1 105 

6 101  103 
1 985 
1 985 
1 88 


8 85  27T 


1 63 

1 IO3 
101  111 
128  IAO 
125  135 
125  13A 
398  Al6 

1 329 

2 366  a05 

3 77a  789 
3 366  AA2 


I 617 

1 A18 

2 772  829 

I 689 
1 981 
I 906 
1 903 
5 28  621 

1 211 

1 658 

1 621 

2 667 
1 902 

1 380 
11016 

33  230  998 

2 92 

8 5A3  5A6 
2 5A3  5AA 
8 5a3  5a6 
2 A22 


CDUCHECic 

CDUDANG 

CDUUOT 

CDUFAD 

CDUFLAg 

CDUINC 

CDUIND 

CDUJOBAD 

CDULIMIT 

CDuLOgIC 

CDUNDX 

CDURATE 

cdurladf 

CDUREADI 

CDUTEMP 

CDUTIMEF 

CDUTImEI 

CDUTODCM 

CDUX 

CDUXCMD 

CDUXD 

CDUY 

CDUYCMD 

cduyd 

CDUYFIL 

CDUZ 

CDUZCMD 

CDUZD 

CDUZFIL 

CDUZOTST 

CGOTO 

CGTH 

CH12BIT5 

CH3ODSPY 

CH30WAKE 

CH5MASK 

CH6MASK 

CHANllD 

CHAN12 

CHAN12D 

CHAN13 

CHANIA 

CHAN33 


2A»2300 

E5.157A 

0061 

32*2117 

E5*1615 

15*36A7 

E3*1A60 

33*25A7 

E5*1577 

15*352A 

E5*l672 

23*3025 

E5*1575 

E5*1576 

13A2 

E5*1572 

E5*1570 

3A*2A6A 

0032 

0050 

0766 
0033 

0051 

0767 
E6* 1552 

003A 

0052 
0770 

E6,155A 

2A,265A 

6752 

36*2736 

1A,3650 

23*313A 

23,3356 

E6,1502 

E6*1503 

1A*3aOO 

0012 

1A*3a12 

0013 

OOIA 

0033 


395 

Al 

A9 

852 

Al 

3A5 

26 

66A 

Al 

3A2 

Al 
A22 
Al 
Al 
25 
Al 
Al 
613 
10 
10 
20 
. 10 

10 

20 

A9 

10 

11 

20 

A9 

AOO 

915 

873 

389 

a25 

a29 

A7 

A7 

38A 

53 

38A 

53 

53 

53 


1 

395 

7 

543 

1 

852 

3 

398 

6 

192 

12 

128 

1 

661 

4 

422 

15 

171 

15 

39O 

3 

418 

4 

422 

3 

422 

13 

781 

2 

422 

2 

422 

3 

604 

36 

79 

3 

111 

14 

20 

23 

79 

1 

111 

8 

321 

4 

543 

20 

79 

1 

111 

6 

210 

2 

547 

3 

399 

1 

902 

1 

868 

2 

384 

2 

425 

2 

427 

12 

464 

12 

465 

1 

383 

1 

128 

1 

383 

3 

233 

1 

131 

- 

” 

CHANsD 

CHAN6D 

CHAN 

CHANDSP 

CHANGl 

CHANG2 

CHANGVB 

CHANJOB 

CHANLOAO 

CHAR 

CHARALRM 

CHARIN 

CHCNTR 

CHECKB 

CHECKGl 

CHECKG3 

CHECKG5 

CHECKG 

CHECKLDl 

CHECKLD2 

CHECkLD 

CHECKM 

CHECKMAX 

CHEcKMM 

CHECKNJ 

CHECKP 

CHEKALL6 

CHEkAVEg 

CHEKBITS 

CHEKORIV 

CHEKSTIK 

CHk2 

CHK5 

CHK6 

CHk7 

CHKBITIO 

CHKCOMED 

CHKCORS 

CHkDELvX 

CHKFAILI 

CHKFAIL2 

CHKFAILS 

CHkSUPR 


1A*335A 
14,3372 
E5*1577 
05*?A36 
5550 
5556 
13*3A15 
01,3114 
05 ,30a4 
0107 

04,3313 
0a*2002 
EA,1655 
4230 
2A,?775 
2a  * 3OAO 
2A,30A3 
24,7773 
14,7575 
14*2577 
14*7556 
24*3025 

34*2214 

4121 

5623 

24*3012 

16*2525 

30*2066 

16*2104 

21*7750 

17*2162 

23*7615 

23*7654 

23*2726 

23,7755 

17,7117 

35,3421 

l3*2l56 

30,7613 

4756 


383 

384 
41 

24T 

988 

988 

153 

992 

257 

15 

269 

227 

40 

75 

403 

4O3 

403 

403 

372 

372 

372 

403 

607 

67 

999 

403 

470 

767 

463 

557 

494 

417 

418 
420 
420 

493 

45I 

I3O 

783 

301 

301 

522 

1032 


1 383 
1 383 
3 383 
1 247 
8 2111032 
I 894 

I 153 

3 988  999 
I 257 
5 227  229 


14  227  643 
I 215 
8 360 
I 72 

1 405 

2 4O3 
I 403 

4 363  396 
I 372 

1 372 

4 371  372 

2 4O3 


606 

305  445 
9991032 
403 


1 47o 

2 464  468 

1 557 
I 493 
1 418 

1 4I9 

I 420 
I 420 
1 492 

3 434  444 

1 130 

1 783 

I 301 
I 522 
11032 


keY!  symbols  Defined  by  equals  are  flaggeu  =,  others  are  normally  defined  except  those  flagged: 

u undefined  e failed  Leftover  erase  m multiply  defined  t wrong  memory  tvPe  mm  multiple  errors 

n nearly  Defined  by  = j failed  leftover  word  0 oversize-  or  ill-defined  c conflict  in  memory  x misc,  trouble 
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SYMBOL  TA3Le  LlSjINGi  INCLUDING  PaGe  OF  DEFINITION*  AND  nUMBeR  OF  ReFeReNCeS  WItH  FIRSt  aND  LASt  PA^E  NUMBeRS 


symbol 

def ini t Ion 

References 

F, 

i 

symbol  r 

Definition 

ReFeRenCes 

F 

• 

symbol  h 

Definition 

References 

F 

CHkTEMx 

30 

• 2626 

783 

1 

783 

■ 

■ 

COGAMN 

0026 

88A 

1 

870 

■ 

■ 

C0RSCHK2 

13 

2I7O 

130 

2 

130 

CHKTIME 

11 

*31A5 

211 

1 

211 

• 

COGAVAIL 

E3 

♦ 1675 

28 

A 

869 

871 

■ 

COS22.5 

17 

3372 

512 

3 

510 

512 

CHKUPDEX 

31 

*2277 

757 

3 

757 

760 

■ 

cogdsovf 

36 

• 31A6 

877 

1 

875 

■ 

C0S27 

32 

7O7I 

852 

1 

851 

CHKVISFZ 

16 

*2A5a 

a69 

1 

a67 

■ 

COGDSTOR 

36 

*3007 

875 

1 

877 

■ 

COSCDU 

EA 

1 Sa6 

A 

786 

787 

chkx 

23 

*2716 

Al9 

1 

A19 

■ 

COLDSKl 

27 

*3032 

682 

- 

- 

- 

■ 

COSFN 

36 

3035 

875 

1 

876 

CHNL12 

■ 0066 

56A 

3 

56A 

V 

■ 

COLDSOA< 

27 

*2655 

680 

2 

678 

711 

■ 

COSINE 

00 

3A66 

972 

1 

9OA 

CHNLTEST 

21 

*3673 

593 

2 

593 

■ 

C0MADR5 

37 

*3326 

1031 

21032 

■ 

COSMG 

E6 

1 A57 

A6 

6 

122 

CHOIcEl 

30 

*3170 

791 

- 

- 

. 

■ 

command 

E3 

*1A55 

26 

13 

12A 

lAO 

= 

■ 

COSOBL 

27 

3052 

683 

3 

681 

CHOICE2 

30 

,3200 

79l 

1 

791 

■ 

COMMEQS 

26 

*26AA 

577 

1 

577 

■ 

COSTH 

n020 

AO 

10 

322 

387 

9 

CHRPRIO 

5226 

290 

A 

215 

298 

t 

■ 

COMMFX 

37 

*3320 

1031 

21033 

■ 

COUNT 

0133 

16 

17 

228 

272 

3 

CKDOTIME 

06 

*31A6 

358 

1 

358 

■ 

COMMONQR 

26 

*2561 

5A0 

- 

- 

- 

■ 

COUNTCHK 

37 

30a3 

1027 

11016 

CKSGNAN2 

3A 

*3371 

62A 

1 

62A 

■ 

comneg 

13 

*2210 

131 

1 

129 

■ 

COUNTFC 

EA 

1 A03 

32 

3 

32 

835 

5 

CLEARI 

OA 

*2501 

23A 

1 

23A 

• 

COMNEXIT 

16 

*20A7 

A55 

1 

A55 

■ 

COUNTFCT 

EA 

1 AOA 

32 

A 

32 

83A 

= 

n A 

227 

r"  nM  D 1 *5 

3A 

608 

iM  T D 1 

1 

393 

AO7 

out  AR 

23A 

1 

LUnr i £ 

, 2 3D6 

608 

1 

V.UUN  I r L 

E5 

1676 

Hi 

8 

CLEARASC 

20 

*2100 

a57 

1 

a57 

■ 

COMP 

7nA 

93S 

A 

90A 

966 

■ 

CPHI 

E3 

1631 

2 7 

7 

6O4 

682 

CLOAD 

05 

• 26A6 

25A 

1 

239 

■ 

COmpCHK 

12 

*3501 

808 

1 

807 

■ 

CpSI 

E3 

1633 

27 

2 

6O5 

630 

CLOG2/32 

32 

,3035 

86A 

1 

86A 

■ 

COMPGS 

35 

*2553 

A39 

1 

A39 

■ 

CPT6/2 

EA 

1 756 

37 

7 

3O9 

832 

3 

CLPASHI 

Oa 

*2A6a 

23A 

1 

23A 

■ 

COMPICK 

05 

*2AA3 

2A7 

2 

2A7 

■ 

CRIT 

30 

?A60 

778 

1 

778 

275 

compmatx 

3A 

*202A 

60A 

1 

605 

^ n T T jki 

OA 

220A 

230 

229 

LLpASS 

U3(J6 

18 

1 2 

86 

■ 

■ 

CRIT  CON 

1 

CLR5 

OA 

,250a 

23A 

1 

23A 

■ 

COMPNUMB 

EA 

*1722 

37 

5 

305 

309 

a 

CRS2 

EA 

1 526 

33 

A 

33 

82a 

= 

CLT/2 

EA 

,1A11 

32 

9 

32 

827 

P 

■ 

COMPOS 

13 

*2136 

129 

1 

129 

■ 

C5PAT1 

20 

3110 

552 

1 

552 

CMEMORY 

115a 

2A 

8 

2A 

• 

COMPTEST 

05 

*2376 

2A6 

8 

2A6 

25a 

m 

CSPATIP 

16 

3^15 

A88 

1 

A68 

cmpxi 

E5 

*1601 

A2 

2 

A35 

V 

i 

COmpTOR< 

E7 

*1610 

A3 

A 

320 

AAO 

m 

CSpERDAY 

27 

3066 

683 

1 

680 

CNGL 

3A 

*2AA1 

612 

2 

620 

621 

• 

COMPTSTl 

05 

*2A00 

2A6 

- 

. 

. 

m 

CSPINKF 

20 

3111 

552 

1 

551 

CNTRCH< 

37 

*3260 

1030 

- 

- 

■ 

COMPUT 

2A 

*3252 

a07 

1 

396 

m 

CSPSO 

16 

3707 

A89 

1 

A89 

CNTRCON 

37 

*2000 

lOlA 

11030 

■ 

COMZERO 

13 

*2220 

131 

2 

129 

131 

m 

CSRET 

OlAA 

680 

- 

- 

- 

= 

CNTRL003 

37 

*3261 

1030 

11030 

■ 

CONI 

A200 

72 

1 

72 

m 

CTHETA 

E3 

1 632 

27 

1 

630 

387 

06 

CTR 

n066 

COAROF I N 

0005 

13 

6 

361 

9 

• 

C0N2 

*2A53 

7A 

1 

72 

■ 

52 

3 

A77 

* 

COARSl 

13 

*2101 

128 

1 

128 

i 

C0N2ADR 

A213 

72 

1 

72 

■ 

CTRABS 

31 

233A 

759 

2 

759 

COARS2 

13 

*212A 

129 

2 

129 

13l 

■ 

CONc+Sl 

37 

• 2011 

lOlA 

11030 

■ 

ctrad 

31 

2337 

759 

2 

759 

C0AR5 

13 

*207A 

128 

1 

128 

i 

C0NC*52 

37 

*201A 

lOlA 

11030 

■ 

CURT9 

33 

?706 

686 

1 

686 

COARSER^ 

13 

*2201 

130 

2 

130 

■ 

CONORBIT 

27 

*2A0A 

6A2 

2 

228 

6A2 

m 

CURTAINS 

A732 

300 

7 

660 

708 

COARSTOL 

13 

*2207 

130 

1 

130 

• 

CONST 

32 

*2531 

859 

1 

858 

m 

CURTBB 

a7A3 

300 

1 

300 

COAR2ERO' 

23 

,3256 

A27 

A 

A17 

A19 

• 

C0NTBL2 

06 

,2262 

63 

2 

65 

m 

CURTJOB 

27 

3267 

708 

2 

699 

705 

COASTASC 

20 

,3275 

57A 

1 

571 

• 

CONTINU 

37 

,3A01 

1032 

A1032 

■ 

cutoff 

33 

3133 

690 

1 

690 

COASTINT 

07 

*2A27 

721 

1 

719 

• 

CONTMANU 

3A 

*36A7 

629 

2 

628 

■ 

CVEXl 

30 

332A 

793 

1 

792 

CODE 

OllA 

15 

13 

228 

272 

9 

i 

CONumNOR 

05 

*2756 

256 

1 

256 

■ 

CVEX2 

30 

3325 

793 

1 

792 

COEFFAl 

20 

*3l62 

572 

1 

67A 

■ 

CONVSW 

007A 

13 

1 

871 

= 

■ 

CVEX3 

30 

3326 

793 

1 

792 

coeffa 

0062 

52 

5 

571 

57A 

9 

■ 

COPYCYCL 

30 

*22A1 

772 

1 

772 

■ 

CVEXA 

30 

3327 

793 

1 

79z 

COEffAST 

20 

*3132 

571 

1 

57A 

■ 

CORcTTH 

11 

*3221 

213 

1 

21A 

■ 

CVEX5 

30 

3330 

793 

1 

792 

COF 

E3 

,1623 

27 

53 

60A 

625 

■ 

COREINC 

01 

*3216 

995 

2 

991 

995 

■ 

cyclshft 

37 

3267 

1030 

- 

- 

. 

COFMAXGO' 

3A 

*2273 

608 

- 

- 

- 

• 

CORFOUND 

01 

.30A7 

991 

■ 

CYL 

0022 

10 

23 

2291030 

= 

cofskew 

E3 

,163A 

27 

7 

27 

609 

• 

CORRECT 

2A 

,2577 

399 

1 

AOl 

■ 

CYLTIMES 

EA 

,1A71 

39 

3 

353 

= 

KEY!  SYMBOLS  DEFINED  BY  EQUALS  ARE  FLAGGED  =,  OThERs  ARE  NORMALLY  DEFINED  EXCEPT  ThOsE  FLAGGED! 


u undefined 
N Nearly  defined  by  = 


E failed  leftover  erase 
J failed  leftover  word 


M multiply  defined  t wrong  Memory  tvPe 

0 oversize-  or  ill-deFined  c conflict  in  Memory 
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symbol  H'  Definition  Reference^  ^ ■ symbol  h definition  references  f ■ symbol  h definition  references  f 


CYR 

0020 

37,2757 

10 

50 

63IO3O  f 

• DDDDl 

1A*3175 

38O 

380 

C(BRUPT) 

1026 

X 1 

i UDDD 
■ nnv/ 

14 1 3 1 6^ 

D1/102A 

36,3AA0 

88A 

3 

87A 

876 

• DDVCALL 

00,27A2 

96O 

Dl/2 

36,3450 

884 

A 

69a 

876 

» DDV/BDDV 

00*2352 

9A9 

Dl/32 

36  f 

88A 

2 

863 

87^ 

■ DECIOOO 

27.3A33 

712 

Dl/A 

36,3AA6 

88A 

3 

868 

875 

■ DEC12000 

27,2522 

27*3A70 

667 

712 

D1/6A 

36 , 3AA2 

88A 

z 

668 

879 

■ UuLipUU 

D2l 

E3,1603 

27 

2 

620 

b2l  f 

■ DEC17 

2A,36A2 

AlA 

D2CDUYFL' 

E6,1562 

A9 

6 

5A3 

555 

» DEC200 

27*3A62 

712 

D2CDUZFL 

E6*i564 

A9 

A 

5a7 

555 

» DECaS 

5371 

938 

1 381 

1 382 
1 902 

2 961 
A 830 
1 712 

1 667 
1 712 

2 392 

1 712 

2 907 


• 

■ 

DELCOMP 

3A.7603 

■ 

DELDCDul 

0772 

• 

DELDCDU2 

0773 

■ 

DELDCDU 

0771 

93A 

■ 

DELDEP 

E3*17a2 

■ 

DELFROLL 

3A,3763 

■ 

DELINDEP 

E3,l 7AA 

■ 

DELLOAD 

1 1 ,7202 

AO9 

m 

DELM 

E5,170A 

■ 

DELMLP 

35,7211 

979 

■ 

DELQ 

0062 

DAD 

DANZIG 

DAPBOOLS 

DAPIDLER 

DApL0W6 

DAPTA 

DAPTAS 

DAPTIME 

DAREATM3 

DAS** 


703A 

6115 

0077 

16*2136 

16.3612 

12,3201 

12,3176 

E6,15A2 

E5,i557 

37,2357 


917  1 

89A  59 

13  60 

a6a  a 
A88  1 

121  1 
121  3 

A9  3 
38  A 
1020  - 


902 

332  98^ 
209  712  f 
87  493 
A70 
121 

9A  121 
5A2  5A7 
llZ  19Z  c 


DEC56 

DEG585 

DEC6000 

DECBRNCH 

DECDSP3 

DECDSP 

DECEND 

DECISION! 

DEC-399 

DECON 


DAS*INCR  37*2356  1020 
DAS*-  37*2367  1020 


DASAmpL 

DAS-* 

DATACALL 

rs  A T A rN  c 

10,3062 

37,2A15 

5257 

178 

1020 

889 

1 

1 

1 

1 

2 

180 

26A 

- 

datadsp 

DATAFAIU 

datald 

n A T A m 

2 A *27a2 
10,31A5 
2A,3067 

A02 

181 

A05 

AO2 

177 

393 

396 

UA 1 APL 

E 5 , 1 62  6 

A1 

2A 

392 

A06 

DATAWAI T 

AA75 

276 

_ 

DATWAITl 

7006 

277 

1 

277 

db 

E6,1A15 

A5 

11 

A5A 

518 

DBAUTO 

20,2167 

A59 

1 

A59 

DBMINIMP 

E6 , 1625 

50 

5 

50 

518 

dbmNmp 

16,2337 

A67 

- 

_ 

DBSELECT 

77A7 

A5A 

2 

A5A 

DCDUY 

E6,1A17 

A3 

2 

778 

779 

DCDUYFIL 

E6,i556 

A9 

6 

5A3 

555 

DCDUZ 

E6,1A21 

A3 

3 

778 

779 

DCDUZFIU 

£6,1560 

A9 

A 

5A7 

555 

DCMTOCDJ' 

3A,2727 

617 

3 

60A 

682 

DCOMP 

7731 

936 

2 

936 

• DECOUNT 

■ DECRET 

i DECROUND 

■ DECTEM 

» DECTOBIN 

• DEGCOM 

■ DEgCONI 

■ DEGC0N2 

» ■ DEGINSF2 

■ DEGINSF 

s • DEGOUTSF 

• DEg/SEC 

• degtab 

• DEGTTF-1 

■ DEL 

? » DELAREA 
5 ■ DELAY 

• DELAYCTR 
« • DELAyEX 

■ DELCDUX 

• DELCDUY 

■ DELCDUZ 


2A,365A 
2A,36A3 
27*2503 
0271 
05*2522 
05  * 2 AA5 
0A.2160 
07*2317 
20*3313 
0A,2211 

0107 

0105 

OA.3172 

0112 

OA,2125 

0A.26A3 

OA,300A 

OA,3O06 

0A,2752 

0A,27‘tl 

0A*2573 

23*3362 

0A,2653 

22*3551 

0065 

E5,1551 

EA,l6lA 

1007 

5731 

0771 

0772 

0773 


AlA  2 393  396 

AlA  2 393  '♦08 

667  1 667 

18  16  228  257 

2A8  2 2A8 

2A7  1 239 

229  2 229 

7I9  1 7IA 

575  1 571 

230  1 229 

15  2a  2A1  260  = 

15  2 256  257  = 

265  1 265 

15  3 2A8  = 

229  1 228 

250  1 2A9 

259  1 258 

259  1 260 

258  1 260 

258  1 258 

2A9  2 2A9 

A29  1 A22 

250  2 250 

8A8  - - - 

A8  3 561  562  = 

38  10  6A7  792  = 

39  1 358  = 

21  8 55  a9a 

1003  11O03 

21  5 21  50A 

21  3 28  50A  = 

21  2 28  a55  = 


DELR  EA,1A52 
DELTADOT  16,233A 
DELTAP  0062 
DELTAQ  Ea*i576 
DELTAR  n063 
DELTAT9  33,3275 
DELTAV  1236 
DELTEST  21,s257 
DELTIME  36*3217 
DELV  0A03 

DELVEL  EA.1A60 
DELVX  OAO3 
DELVY  0A05 
DELVZ  OA07 
DELYOFF  2A,36A5 
DENOM  E6,iaa7 
DEpCRIT  36,3A7A 
DEPVAR  E3,l736 
DERCLOOP  22,32A6 
DERCOF*!  olA3 
DERCOF-1  OlAl 
DERCOF-2  OlAO 

DERCOF-3  0137 
DERCOF-a  0136 
DERCOF-5  0135 
DERCOF-6  013A 
DERCOF-7  0133 
DERCOF-8  0132 
DERCOFN  01A2 
DERPTR  0131 
DERTABLL  22,3332 
DES  26*27o5 


Key:  symbols  defined  by  equals  are  flagged  e.  others  are  NORMALLY  Defined  except  those  flagged. 


u undefined  e Failed  leFtdver  erase  m multiply  defined  t wrong  memory  tvPe 

N nearly  Defined  by  s j failed  leftover  word  o oversize-  or  ill-defined  c conflict  in  memory 


615  2 60i,  625 

28  1 630  s 

28  1 630  s 

28  5 6O7  630  = 

28  3 87o  882 

631  2 630 

28  9 870  882 

192  1 192 

A2  6 A35  A36  s 

A35  2 A35 

47  - - - = 

30  5 287  785  = 

A67  1 A66 

A6  2 A69  = 

31  1 288  = 

A7  - - - = 

692  1 689 

25  7 307  721  = 

562  2 562  563 

879  1 870 

22  5 768  829  = 

3O  3 287  = 

20  20  22  805 

A2  11  321  805  = 

a2  10  321  805  = 

AlA  1 395 

a6  2 A82 

88'*  1 870 

28  3 870  881 

8A0  1 8A0 

1 7 - - - s 

17  - - - J 

17  - - - = 

17  - - - = 

17  - - - = 

1 7 - - - = 

17  - - - = 

16  - - - = 

16  - - - = 

17  1 8A1  s 

16  3 8A0  = 

8Al  1 839 

578  1 578 


MM  MULTIPLE  ERRORS 
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symbol  h. 

definition 

References 

F 

B 

symbol  h 

Definition 

References 

F 

B 

symbol  h 

Definition 

References 

DESANGLE 

2A 

«363l 

AlA 

2 

AOO 

■ 

DISINDT 

nv  T p f K 1 1 1 K 1 

11*301A 

208 

1 

198 

■ 

DODLOAD 

4520 

909 

1 

906 

9O9 

DESCADR 

I 7 

«26l6 

502 

1 

505 

• 

D1 SINDUN 

1 1 *3065 

2O9 

1 

2O9 

B 

dodload** 

6200 

897 

2 

906 

DESCBITS 

11 

*271A 

205 

1 

151 

1 

DISINLUp 

11*30A5 

2O9 

2 

208 

209 

B 

DODOWNTM 

15*2117 

31A 

2 

54 

55 

DESCDAP 

20 

• 2162 

A59 

- 

- 

- 

• 

DISPDRIV 

21*2550 

553 

2 

5A1 

551 

B 

D0FCST5T 

11*?A07 

198 

1 

187 

DESCOASr 

20 

*2056 

A56 

_ 

_ 

■ 

DISPLACE 

05*2753 

256 

2 

255 

256 

B 

dofstart 

01*2021 

78 

3 

82 

83 

DESCOUNT 

0A30 

20 

3 

166 

169 

■ 

DISPLACT 

E6*151A 

A7 

3 

A6a 

553 

B 

DOIT 

30*a510 

800 

- 

- 

DESLOOp 

10 

• 2A27 

169 

1 

169 

B 

DISTEm 

0112 

15 

3 

2A6 

s 

B 

DOmSG 

1 1 *27A7 

206 

2 

206 

DESLOTSX 

E3 

.1A75 

26 

1 

287 

? 

B 

0— LCHK 

37*2672 

102A 

. 

- 

- 

B 

DONBRD 

10*2507 

171 

1 

170 

DESLOTSY 

E3 

*1A75 

26 

1 

287 

s 

B 

D— SC 

37*26AA 

102A 

- 

- 

8 

DONECAD 

30*2635 

783 

1 

783 

DESRET 

0A27 

20 

7 

20 

207 

B 

DLCDUIDX 

E6  * 16A5 

50 

6 

503 

50A 

B 

donedid 

12*2276 

97 

2 

95 

96 

DESRETRN 

10 

.23A5 

166 

A 

166 

339 

B 

DLOAD 

6530 

9IO 

1 

9O2 

B 

DONESW 

0075 

13 

A 

851 

871 

DETCODE 

037A 

15A 

5 

1A7 

1A8 

s 

B 

DLOADCOD 

5363 

938 

1 

909 

B 

DOPIF 

30*3A76 

800 

3 

799 

800 

DETENTCCI 

16 

*2537 

A71 

1 

A70 

B 

DLOAD** 

536A 

938 

1 

897 

B 

DOPROC 

0A*3A70 

278 

2 

277 

293 

DETVB2I 

13 

*3133 

1A7 

5 

1A7 

1A8 

B 

DLOOP 

16  * 3656 

489 

1 

489 

B 

DOQRSKIP 

17*2502 

500 

1 

500 

DF2CADR 

16 

*2325 

A67 

1 

A66 

B 

DLOOPBGN 

16*3655 

A89 

1 

A89 

B 

DOROLL 

3A*3727 

630 

1 

630 

DFICAL 

27 

*327A 

708 

1 

705 

B 

DLOOPCH< 

16*3702 

A89 

1 

A89 

B 

DORREPOS 

10*2051 

160 

1 

120 

DFITMCAL 

27 

*2211 

639 

3 

303 

712 

B 

DLY2 

5707 

1002 

11003 

B 

DORROUT 

10*2630 

173 

1 

173 

DFITMCLl 

27 

*2220 

639 

1 

639 

B 

DMPl 

7616 

93A 

1 

902 

B 

DORSAMP2 

10  * 33OA 

185 

- 

- 

- 

DFITmCL2 

27 

*2232 

639 

1 

639 

B 

dmp 

71A6 

921 

10 

229 

836 

B 

DORSAMP 

10,3300 

185 

A 

185 

201 

DFITMTSG 

27 

*2206 

639 

1 

686 

B 

DMPNSUB 

7367 

927 

A 

821 

8A0 

B 

DORSTART 

01*2315 

83 

1 

83 

DFORAXIS 

16 

*3711 

A90 

1 

A88 

B 

DMPNTEMP 

0125 

16 

2 

927 

B 

DOSPROOT 

21*3277 

562 

1 

562 

DFRNT 

OA 

*3261 

268 

- 

- 

- 

B 

DMPR 

7620 

93A 

1 

902 

B 

D0S5HFT 

00*2322 

9a7 

1 

947 

DGBF 

16 

*2335 

A67 

2 

A66 

B 

dmpsub 

7152 

921 

20 

923 

975 

B 

DOSTORE 

6A21 

905 

1 

894 

DGBITS 

10 

*2706 

175 

2 

175 

178 

B 

dmyadres 

0007 

311 

2A 

312 

313 

s 

B 

D0T6RUPT 

16*2077 

A6l 

1 

461 

DGCHEC<2 

10 

*3063 

178 

2 

180 

B 

DMYECADR 

0007 

311 

5A 

312 

313 

s 

B 

DOT 

7AO2 

928 

1 

902 

DGCHEC< 

10 

*3126 

181 

2 

177 

178 

B 

ONDPI-1 

15*2351 

318 

1 

3lA 

B 

DOTERM 

O4  * 3466 

278 

1 

277 

DGTS 

21 

*2536 

551 

1 

5A8 

B 

DNDP2-1 

15*2352 

318 

1 

31A 

B 

DOTIMES 

EA  * 1 606 

39 

3 

358 

359 

DGTSFADR 

21 

*2375 

5A8 

1 

5A7 

B 

DNLINCR 

15*2353 

318 

1 

31A 

B 

DOTINC 

nl26 

16 

7 

U 

929 

DIDFLG 

0350 

19 

6 

85 

A20 

B 

DNLSTADR 

OAll 

20 

5 

86 

31A 

B 

DOTIXBR 

01 *2637 

978 

- 

- 

- 

DIDRESET 

12 

*230A 

97 

1 

97 

B 

DNPHASEl 

15*212A 

31A 

2 

86 

31A 

B 

DOTJMIN 

17*3660 

518 

1 

518 

DIFEqO 

07 

*3A17 

738 

1 

7a1 

B 

DNQ 

E7*1a03 

A3 

8 

315 

317 

B 

DOTORQUE 

16*2370 

468 

1 

A68 

DIFEq+O 

07 

*3A5A 

7A0 

1 

737 

B 

DNSNAp 

15*2230 

316 

1 

31A 

B 

DOTRET 

0127 

16 

8 

16 

968 

DIFEO*! 

07 

*3A60 

7A0 

1 

737 

B 

DNSNAP-1 

15*2231 

316 

1 

315 

B 

DOTSUB 

7221 

923 

3 

929 

DIFEQ+2 

07 

*3A71 

7A0 

1 

737 

B 

DNSNAP-2 

15*2232 

316 

1 

315 

B 

DOUBLK 

0A*2553 

235 

2 

234 

235 

difeqcnt 

Ea 

*1605 

31 

lA 

717 

7a2 

B 

B 

DNTMl 

OO3A 

53 

2 

315 

316 

3 

B 

D0V67 

31  *P226 

756 

1 

3O8 

DIFEqCOvi 

07 

*3563 

7A2 

2 

7A0 

B 

DNTm2 

0035 

53 

1 

316 

s 

B 

DOvTO 

31*2201 

755 

1 

308 

DIFEQTA3I 

07 

*3357 

737 

1 

737 

B 

DNTMBUFF 

E7*1A0A 

A3 

A 

55 

316 

B 

D0V71 

31*2204 

755 

1 

308 

DIFFANG 

E5 

*1531 

AA 

- 

- 

- 

B 

B 

DNTMEXIT 

15*2256 

316 

5 

315 

317 

B 

D0V72 

31*2203 

755 

1 

309 

dino 

lA 

*3335 

383 

1 

383 

B 

dntmfast 

12*2751 

llA 

1 

117 

B 

D0V73 

31*2210 

756 

1 

3O9 

[•Y  T D AnDC" 

1 y.  ^ 

■5 

E7*1a01 

A3 

10 

8A 

^ f\r\ 

1 

^ n -a 

U i KHUK  L j 

895 

c 

9U9 

B 

DNTMGOT  0 

317 

B 

DUV7A 

07  *200U 

89 

1 

^ U 3 

DIRECT 

0071 

35 

3 

658 

855 

B 

DOALARM 

07*2063 

300 

1 

81 

B 

DOVLOAD 

6523 

909 

1 

906 

DIRECTN 

2A 

*2566 

399 

3 

399 

AOl 

B 

DOCURTN 

36*2277 

699 

1 

695 

B 

DOVLOAD** 

6526 

909 

1 

9O6 

DISINDAT 

12 

*2225 

96 

2 

95 

96 

B 

DODES 

10*2A67 

170 

1 

169 

B 

DOW*. 

07  * 3603 

7a3 

1 

7a1 

Keys  SYMBDLS  defined  by  equals  are  FLAGSeQ  s,  others  are  normally  defined  except  those  FLAGGED; 

u undefined  E failed  LeFTDVeR  erase  M multiply  defined  T wrong  memory  TvPe  mm  multiple  errors 

N nearly  defined  by  = J failed  LEFTDVER  word  0 oversize-  or  ill-defined  c conflict  in  memory  X MISC,  trouble 
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symbol  H; 

Definition 

DPO 

33 

*2516 

852 

DPIOUTSF 

OA 

*2665 

250 

DPl/10 

30 

*3130 

789 

DPl/12 

15 

,3302 

336 

DPI/2 

07 

* 3655 

7aA 

Dpl/3 

07 

*3631 

7AA 

DPI/A 

07 

*3627 

7AA 

DP1/8TH 

30 

*3126 

789 

DP20UTSr 

OA 

*2672 

251 

Dp2/3 

07 

*3661 

7AA 

DP2/3H 

32 

*266A 

861 

DP2 (-3) 

30 

*31A0 

789 

r\  ^ 1 1 T c 

DP3UU I Sr 

*t67A 

251 

DP3/80 

32 

*2650 

860 

DPA 

33 

*3265 

692 

dpb 

33 

*3267 

692 

DpBlTlA 

01 

*3602 

1013 

DPC 

33 

*3271 

692 

DPD I FF 

E6 

* 1 5AA 

A9 

DPINCOM 

OA 

*3056 

260 

DPINORM 

OA 

*306A 

260 

DPINSF2 

OA 

*3066 

260 

DPINSF 

OA 

*30A1 

260 

OPIPAY 

E5 

*1656 

A2 

DPIPAZ 

E5 

*1662 

A2 

DP. 25 

32 

*2662 

860 

Dp. 5 

33 

*?51A 

852 

DPOSMAX 

773A 

937 

DPOUT 

OA 

*2677 

251 

DPOUTCOM, 

OA 

*2710 

251 

DpOUTNOR 

OA 

*2720 

251 

DP51E0U1 

33 

*320A 

691 

DPS1E0U2 

33 

*26A1 

685 

DPS1E0U3 

33 

*3101 

689 

DPS2ADR 

36 

*2352 

701 

DPSTART 

36 

*2123 

695 

DPTESTl 

05 

*2250 

2A2 

DpTEST 

05 

*2236 

2A1 

DPZERO 

07 

*3657 

7AA 

DPZEROX 

20 

*331A 

575 

DPZEROY 

17 

*3165 

509 

DpzRO 

27 

*3056 

683 

DOTEST 

21 

*3705 

593 

References  - 


A 658  85a 
1 2A9 
1 788 
1 335 
A 725  738 
I 725 
5 72A  7AA 
1 788 

1 2a9 

2 7AO  7AA 

3 e5A  863 

I 2A9 
1 e5A 
1 685 
1 685 
11012 
1 685 
7 5A5  5A6 
1 260 
I 260 
1 258 


3 258  260 
3 A3A  A39 
I A3A 
1 85^ 

5 B5A  858 
3 213  612 
3 250  25l 
1 251 

1 251 

2 685  692 

1 692 
1 692 
1 693 


3 2A2 
A 2A1  257 
2 738  739 
1 57A 

1 507 

2 638  68l 
1 593 


07*3627 

7AA 

2 

733 

12.3A22 

807 

1 

810 

E5.16A0 

A2 

2 

392 

A37 

E5.1636 

A2 

2 

39A 

A37 

12*3A02 

807 

3 

805 

E5.1576 

A2 

A 

391 

A38 

2A.2A16 

397 

593 

1 

397 

593 

21 *37lA 

2 

0011 

53 

17 

2161036 

OlOA 

15 

3 

267 

268 

symbol  n Definition  references  f 


dquarter 

DRFTSUB2 

DRIFTI 

DRIFTO 

DRIFTSUB 

DRIFTT 

DRIVRAD 

DRTEST 

DSALMOUT 

DSExIT 

D5KYCHK 

DSKYCODE 

DSKYRSET 

DSKYWAIT 

DSLV 

DSMAG 

DSmSK 

DSP2BIT 

D5P2DEC 

DSPA 

DSPAB 

DSPABC 

DSPALARM 

DSPB 

DSPC 

DSPCNT 

DSpCOMl 

DSPC0M2 

DSPC0M3 

DSPCOUNT 

DSpDCEND 

DSPDCGET 

DSPDCPUT 

dspdcwdi 

DSPDECWD 

DSPDPDEC 

DSPFMEM 

DSpINl 

DSPIN 

DSPLAY 

DSPLAYC 

DSpLIST 

DSPLOCK 


37 

37 

12 

37 

OA 

OA 

05 

OA 

05 

05 

05 

OA 

05 

05 

05 

05 

05 

05 

05 

05 

OA 

OA 

OA 

05 

OA 

OA 

12 

12 


3576 

3561 

2023 

3630 

3273 

0132 

3275 

3255 

3173 

23AO 

2333 

2326 

3315 

23A5 

2352 

03A5 

23A3 

2357 

2365 

0270 

2513 

2A5A 

2A6A 

31A5 

3117 

2722 

321a 

32AA 

3217 

2115 

2126 

0333 

0303 


1035 

1035 

90 

1035 

268 

16 

268 

267 
266 
2A6 
2A6 
2A6 

269 

2A6 

2A6 

18 

2A6 

2A6 

2A6 

18 

2A8 

2A8 

2A8 

265 

265 

251 

26a 

268 
267 

93 

93 

18 

18 


1103A 

11035 

1 9A 
21036 

2 268 

2 268 

3 268  272 
3 2A3  277 
1 252 

1 239 
1 239 
1 239 

11  239  270 
1 239 

1 239 

7 85  93 

3 2A6  2A7 

2 2A6 

1 2A6 

55  86  296 

2 2A9  250 
1 2A8 

1 2A8 

2 265  266 
1 2A8 

1 239 
239  266 
267  269 
228  272 

93 
92 

86  295 
86  295 


symbol  h definition  References  f 


DSPLv 

DSPMMl 

DSPMM 

DSPMMEND 

DSPMMJOB 

DSpmmTEm 

DSPMSK 

DSPOCTIN 

DSPOCTWD 

DSpOFF 

DSPOUT 

DSPRTRN 

DSpSCAN 

DSPSFNOR 

DSPTAB 

DSPTEMl 

DSpTEM2 

DSPY30 

DSPYCH30 

DSQ 

DSQSUB 

D5REL 

DSRUPTEM 

DSRUPTSW 

DSU 

DTllTEMP 

DT2TEMP 

DT2TEMPD 

DT 

DTA 

DTASCl 

DTASC 

DTCALC 

DT-DFITM 

DT-LETJT 

DT-LIFT 

DTPRD 

DT/2 

DT/2MAX 

DT/2MIN 

DT/TAU 

DTw 

DUMMYFIL 


05.-^252 

05*3A03 

05*7001 

05,3A13 

35*7011 

0130 
7757 

0A,3307 
05. ,222 
01,2A35 

12*7066 

Ei:,*l602 

12*7100 

05*2507 

0313 

0337 

03A2 

23*3250 

23*3253 

00.31A2 

00*3250 

0131 


0073 

03A7 
7062 
1663 
1662 
1 663 
1 5A1 
2662 
2767 
7666 


EA 

EA 

EA 

E6 

21 

32 

32 

21 

E3 

E3 

E3 

36 

EA 

07 

07 

3A 

21 

16 


2052 

1 760 
1 76l 
1 756 
2715 
1 562 
7212 
220A 
3617 
2661 
3631 


267 
277 
23  7 
277 
67 
16 
267 
269 
266 
85 

93 

3l 

93 

2A8 

18 

18 

18 

A27 

A27 

966 

968 

18 

12 

19 

918 

38 

36 

36 

A9 

556 

863 

86l 

5A2 

28 

28 

28 

872 

30 

715 

715 

628 

556 

Ae8 


2 67  237 

2 80  298 

1 29? 

1 67 

2 277 
1 266 
1 267 

3 238  28A 

1 85 

2 92 


63 


2 93 

1 2A8 
781036 
A8  196  A28 
28  1A8  A22 
1 A27 
1 A29 
1 90^, 

5 966  973 
A 287  288 


5 

5 

1 

3 

A 

5 

36 


93 

86  388 
9O2 

694  695 
36  672 
36  672 

87  591 
2 555 

2 863 
1 85A 

1 5A1 

2 28  63A 
1 6A0 

1 63a 
1 868 

6 7lA  7A2 

2 7lA 
2 7lA 

1 627 

2 555 

2 A67  557 
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SYMBoU  TA3Le  LISTING*  INCLUDING  PaGE  viJMBtR  OF  DEFINITION*  AND  NUMBeR  OF  ReFeReNCeS  WItH  FIRSt  AND  LASt  PAGe  NUMBERS 


symbol  h 

Definition 

ReFeReNCeS 

► 1 

■ 

symbol  h 

Definition 

ReFeReNCeS 

F 

■ 

symbol  h 

Definition 

ReFeReNCeS 

DUMMYJ03 

&6IA 

999 

A 

57 

998 

• 

■ 

EbANK6 

5650 

1000 

A 

ASA 

A55 

3 

■ 

ENDExTvb 

11,2056 

188 

8 

18s 

193 

DUMPDUM3 

07,26A3 

727 

- 

- 

- 

■ 

EBANK7 

5700 

1000 

- 

- 

- 

■ 

ENDFIND 

8610 

989 

A 

991 

995 

DV** 

37*2507 

1022 

•• 

* 

m 

EBANK 

0003 

10 

72 

• 

ENDoToAL 

J 5 ♦ ?60 1 

aaO 

• 

• 

• 

DV*- 

37*2525 

1022 

- 

- 

• 

■ 

ecei 

23*2665 

a19 

1 

A19 

■ 

ENDIDLE 

AA6A 

276 

38 

1A7103A 

DvCHk 

37,2A75 

1022 

• 

■ 

ECE2 

23*2670 

Al9 

1 

A29 

■ 

endimu 

13,2675 

1A2 

A 

102 

132 

DVCNTR 

E5,1511 

A3 

15 

58 

OD 

» 

B 

ECE2CADR 

23*3357 

AZ9 

2 

Al9 

■ 

ENDINST 

aA7A 

276 

6 

231 

27O 

DVCON 

37*2013 

lOlA 

91021102*^ 

B 

EDOP 

0023 

10 

8 

8911030 

3 

■ 

endjobi 

01*3266 

997 

1 

989 

769 

A5 

33 

A5 

712 

DvExIT 

30^^211 

769 

1 

tUOT 

to  ♦ i4U7 

t /Ho  1 

65^ 

65)0 

DV-* 

37*253A 

1022 

• 

• 

• 

B 

EDOTGEN 

E6*1a37 

A6 

« 

- 

« 

■ 

ENDJ0BC2 

27*2A6l 

6A3 

1 

6A2 

DV-*** 

37*25AA 

1022 

. 

• 

• 

B 

EDOTMAX 

17*30A2 

507 

1 

506 

■ 

ENDMANU 

3A,2777 

619 

1 

6O7 

DV— 

37*251A 

1022 

- 

- 

- 

B 

EDOTNEG 

17*30a7 

507 

1 

506 

■ 

ENDMARKS 

13*3231 

iav 

1 

1A9 

DvmIN 

32*2765 

863 

1 

862 

B 

EDQTP 

E6*1A23 

A5 

3 

A3 

A5 

■ 

ENDMAXDv 

00,2566 

955 

2 

958 

957 

DVMNEXIT 

107A 

22 

7 

88 

769 

B 

EDOTO 

E6,1A2A 

A5 

12 

A5 

592 

z 

■ 

ENDMODE 

13,2750 

1a3 

1 

1A3 

05,3207 

26A 

DVMNK I LL 

30*2226 

769 

1 

769 

EDOTR 

E6 « 1425 

45 

9 

45 

593 

- 

cMDMOinOU 

264 

1 

DVNORM 

00*2A71 

952 

3 

951 

B 

EDOTSTOR 

17*3001 

506 

2 

507 

■ 

ENDNMTST 

0a*21a2 

229 

2 

229 

dvnormct 

0127 

16 

6 

9A9 

960 

t 

B 

edotugen 

17*3561 

516 

2 

A96 

A97 

■ 

ENDNUM 

0A,2152 

229 

1 

229 

DVOVF 

00,2375 

9A9 

13 

9A9 

962 

B 

EDOTVGEN 

17*3565 

516 

2 

A96 

A97 

• 

endnvbsy 

0A,3535 

29^ 

1 

295 

DVQXCH< 

37*255a 

1022 

- 

- 

- 

B 

ED0T(2) 

E6*1A12 

A5 

10 

A3 

518 

z 

■ 

ENDOFJOB 

5605 

989 

115 

61 103A 

37*3130 

1028 

Oy/oQ 

?662 

935 

2 

935 

tuOT  <2)3 

Eof  1412 

45 

• 

• 

- 

tINUUr  U' 

i. 

DVSELECT 

1322 

25 

12 

88 

771 

s 

B 

EDOT (2) R 

E6*1a1A 

A5 

• 

= 

• 

endpaste 

AA31 

26A 

- 

• 

• 

DVSIGN 

0126 

16 

8 

9A9 

965 

z 

B 

EDOT (R) 

E6*1A10 

A5 

3 

508 

513 

3 

■ 

ENDPRCHG 

01,3l6A 

992 

2 

992 

998 

dvtotal 

E5,l506 

A3 

8 

63A 

772 

z 

B 

EEEE 

1A*3231 

381 

1 

382 

■ 

ENDRADAR 

10*32a1 

18A 

3 

158 

169 

DVXSC 

7501 

931 

2 

930 

B 

eghth 

27*3062 

683 

1 

680 

B 

ENDRCSFL 

5751 

537 

2 

535 

536 

DWNRPTB3 

A061 

55 

1 

5A 

B 

eight 

7752 

937 

2 

51A 

772 

5 

■ 

ENDRMODF 

AA2A 

157 

1 

26A 

DXCH*DIM 

37,2316 

1019 

.. 

• 

• 

B 

EJl 

01*33A3 

998 

6 

997 

■ 

ENDROLL 

3A,3710 

630 

3 

630 

631 

DXCRIT 

OllA 

15 

2 

CD 

0 

8Al 

z 

B 

EJ2 

01*3353 

998 

1 

998 

■ 

ENDRQDAT 

05*7273 

2A2 

1 

2A2 

DxCRIT*! 

0115 

15 

- 

- 

• 

z 

B 

EJFREE 

560A 

989 

13 

197 

376 

■ 

endrqwt 

05*33A3 

271 

1 

275 

DZERO 

36,3075 

876 

2 

69A 

87l 

B 

EJSCAN 

01,3276 

997 

1 

99A 

■ 

ENDRSTRT 

01 ,2115 

80 

1 

83 

B 

ELANG 

E3*1A75 

26 

1 

287 

5 

■ 

ENDRTOUT 

05*2535 

2A9 

1 

253 

E13A5673 

37,3150 

1028 

11030 

B 

eleven 

7756 

937 

6 

297 

937 

■ 

ENdRTST 

11*2523 

201 

1 

2O1 

El 

E3*1557 

27 

6 

621 

625 

z 

B 

ELIPLMTS 

36*266A 

871 

1 

869 

■ 

ENDRUTIN 

05*3077 

258 

1 

262 

E2 

E3,1565 

27 

8 

622 

625 

z 

B 

ELRCODE 

13,3562 

216 

1 

216 

■ 

ENDSCALE 

0A,277A 

259 

5 

259 

260 

E2DPS 

ea,iaoo 

32 

A 

32 

8A8 

z 

B 

EMPllJOB 

EA,1662 

693 

2 

8A8 

3 

■ 

ENDSPOCT 

0A*3312 

269 

* 

• 

- 

E2DPSL 

22*35A5 

8a8 

1 

829 

B 

EMSD 

0055 

11 

• 

3 

■ 

ENDSTATE 

07*3533 

7aI 

1 

7A0 

EALOAD 

EA,1751 

37 

8 

37 

B 

enable 

2A,25A7 

399 

1 

390 

■ 

ENDSUMS 

37*3A53 

1033 

1 

1032 

593 

END2DEC 

0A,3216 

266 

1 

267 

12,3220 

535 

b 

t6  1 14 1 1 

45 

34 

43 

B 

■ 

tlNL)T4o 

• 

• 

EARRTCOMi 

1A,2210 

365 

2 

36A 

365 

B 

END2DPST 

22,3625 

8A9 

• 

•• 

■ 

ENDTASK 

8732 

lOOA 

A 

8A1010 

EARTHR 

1A*2A2A 

370 

8 

362 

aaa 

B 

ENDALL 

0a*2156 

229 

1 

229 

■ 

ENDTESTl 

2A*22a5 

39A 

18 

391 

l06 

EARTHTA3 

07*3671 

7A5 

5 

71A 

7A5 

B 

ENDCOUNT 

37*3067 

1027 

11027 

■ 

ENDTEST 

1A,27A7 

376 

26 

361 

AAA 

EARTTPRD 

35*2750 

AAA 

1 

AAA 

B 

ENDDISIN 

11  *30A1 

208 

3 

208 

209 

• 

ENDTN0N2 

12,2A3l 

102 

1 

101 

7250 

923 

J 

1 n 1 

<1  i i 

646 

ciNDDU  1 

1 

906 

EBANKa 

77a3 

1000 

8 

63A 

775 

z 

B 

ENDDPDEC 

OA,27aO 

252 

1 

258 

■ 

ENDTPUSH 

6621 

911 

2 

911 

967 

EbANkS 

5677 

1000 

5 

AA6 

698 

B 

ENDDPUSH 

6617 

911 

1 

911 

• 

ENDTSLC 

00,2212 

9AA 

1 

9Aa 

KEY!  SYMBOLS  DEFINED  BY  EQUALS  ARE  FLAGGED  =.  OTHERS  ARe  NORMALLY  DeFINeD  EXCEPT  THOSE  FLAGGED: 
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ENDTST03  23*2770  420  11  418  42^ 


ENDUP 

31,2373 

760 

4 

310 

75P 

ENDV73 

31,2206 

755 

1 

756 

ENDVBFAN 

05,2175 

240 

- 

- 

ENDVEX 

30*3301 

792 

2 

791 

ENDvLOAO 

6560 

9IO 

2 

912 

ENDVPUSH 

6607 

911 

- 

- 

- 

ENDVXV 

7037 

917 

1 

933 

ENDWATCH 

24*2677 

401 

2 

400 

enema 

07*2015 

88 

2 

642 

652 

ENGlNEON 

6054 

771 

7 

648 

705 

' ENGINOFl 

6074 

771 

5 

647 

705 

ENgINOFF 

6071 

771 

7 

88 

861 

ENGNOM 

ENGOFF 

ENGONTM 

ENGRESET 

ENqRST 

ENGSET 

ENGSTART 

ENGSTEP 

ENJOBCAD 

enter 

ENTERJM3 

ENTEXIT 

ENTPASO 

ENTRET 

ENTSET 

EOTUM 

EQ 

EOUIADR 

EQU2ADR 

E0U3ADR 


32 

32 
06 
06 
06 
06 
06 
E4 

01 

OS 

04 

05 

05 

30 

E6 

33 
33 
33 


2075 

2675 

2737 

2721 

2756 

2750 

2707 

1470 

2140 

2003 

2051 

0126 

2031 

0126 

3363 

2A5A 

1411 

3251 

3247 

3250 


852 

861 

353 

353 

35A 

354 
353 

39 

80 

237 

228 

237 

237 

16 

275 

778 

45 

692 

692 

692 


1 851 
1 857 
1 353 

1 354 

1 354 
1 354 
1 349 

13  353  354 

1 78 

1 228 
1 227 

10  238  273 
3 237  275 
7 231  275 

1 275 

1 777 
3 508  515 
1 688 
1 685 
1 685 


ERCNT 

ERCOm 

ERCOMP 

ERCON 

ERCOUNT 

ERCTRAN5 

ERECTIME 

ERESTORE 

ERFINAL 

ERmINuS 

EROPTN 

ERPLUS 

errbzfi 

ERRBZF2 

ERRBZF3 

ERRBZF4 

ERRBZMF2 

ERRBZMF 

ERRMASK 

ERROR 

ERRORS 

ERRORSUM 

ERTHRVSE 

ERTHSFER 

ERUNITS 

ERVECTOR 

ESCAPE2 

ESCAPE 

E5CPSW 

ESTIMS 

ETHETA 

ETHROT 

ETHROTL 


04 

E5 

04 

23 
E5 

14 

04 

E5 

04 

37 

37 

37 

37 

37 

37 

24 
04 

37 


E5 

14 

36 

24 

E5 


0107 

2427 

1771 

2442 

1362 

2772 

1746 

1355 

2047 

2421 

1512 

2424 

2312 

2313 

2314 

2315 
2177 
2176 
2315 
2355 
2022 


1523 
2407 
3310 
3646 
'1513 
0127 
0126 
0101 
35*2014 
0071 
E5il557 
30,3355 


15 
233 

42 

233 

25 

421 

42 
25 

362 

233 

40 

233 

1019 

1019 

1019 

1019 

1017 

1017 

395 

232 

1015 

43 
370 
880 
414 

40 

16 
16 
13 

432 

48 

38 

794 


7 233  297 
1 233 
6 37O  440 

1 233 

2 3201015 

1 4I9 

5 432  445 
4 811029 

3 362  378 


6 361  426 

1 233 
11019 
11019 
11019 
11019 
11017 
11017 

2 395 

1 227 

4710151028 


3 361  445 
1 880 
1 408 
370 

974  975 
974  975 
869  879 
392  39a 
558  560 
38  848 


1 790 


EXITADR 

Exitem 

EXQDLIN 

extvbact 


33*?53A 

nl04 

22,?721 

0336 


FAIL3 

FAILCTR 

FAILDISP 

FAILREG 

FAILSW 

FAILTEMP 

FAKESTRT 

FAlNEI 

FALNE 

FALTOF 

FALTON 

FBANX 

FBANKMSk 

FBIASSUU 

FBR3 

FBRANCH 

FC 

FCCALC 

FCNTR 

FCOLD 

FCS2 

FCS3 

FCSCNTR 

FCSSTART 

FCSTESTl 

FCSTEST 

FCTl 

FEEDREST 


4766 

0061 
07,7067 

1 363 
E6,l 500 

0062 

07,7055 
24,3142 
24,3126 
a564 
4560 
0004 
6331 
3552 
7477 
1570 


12 

07 

Ea 


1562 
3A22 
lAOA 
1561 
2473 
7471 
1400 
7467 
7513 
2515 
1 445 

3343 


ER 

E6 

1413 

45 

ERASCHX 

37 

3137 

1028 

ERASCONl 

37 

2001 

1014 

ERASC0N2 

37 

2002 

1014 

ERASC0N3 

37 

2004 

1014 

ERASC0N4 

37 

2005 

1014 

ERASC0N5 

37 

2015 

1014 

ERASC0N5 

37 

2003 

1014 

ERASL003 

37 

3167 

1029 

ERASZERO' 

0007 

311 

13  43  592 

• evAl 

30,2440 

778 

3 

778 

■ 

FEEoTEsT 

27,5306 

11016 

» EVEN 

36,3173 

878 

1 

878 

■ 

FI  FT Y 1 

20  ,^634 

11029 

■ EVEX 

E5,1544 

38 

9 

38 

788  = ■ 

FIFTYIR 

20,3346 

11029 

• EXECBAN< 

5613 

989 

9 

988 

999  ■ 

FIFTY2 

20,3636 

11028 

■ exectemi 

0061 

12 

4 

988 

995  = ■ 

F1FTy2R 

20,3361 

11029 

■ EXECTEM2 

0062 

12 

4 

990 

995  = « 

FIFTY3 

20,3640 

11030 

• EXFlNAL 

22,2733 

832 

1 

8l9 

■ 

FIFTY3R 

20,3434 

3IO28IO3O 

• EXIGEND 

22*2645 

83O 

1 

818 

■ 

FIFTY4 

20,3642 

410281030 

• exIgmid 

22,2615 

829 

1 

8l9 

■ 

FIFTy4R 

20,3574 

4 311  5 

• EXIT 

7012 

9I6 

1 

894 

■ 

FILCOUNT 

16,2776 

keY!  symbols  Defined  by  equals  are  flagseu  =.  others  are  normally  defineD  except  those  flagged: 

u undefined  e failed  leFtdveR  erase  m multiply  defined  t wrong  Memory  tvPe 

N Nearly  defined  by  = j failed  leftover  word  o oversize-  or  ill-deFineD  c conflict  in  memory 


66a  a 659  690 

15  7 255  256  = 

832  8 8l8  8l9 

18  6 86  188 


301  1 301 

A7  3 535  536  = 

300  1 30n 

25  17  78  320  s 

AT  - - - 

47  2 536  = 

89  1 81 

406  - - - 

406  3 391  399 

29O  - 

29O  5 188  760 

10  31  276  999  5 

901  2 995  = 

810  3 809 

723  1 738 

3l  3 738  7a2  = 

38  9 320  800  s 

797  1 797 

39  5 351  = 

38  3 798  800  s 

348  1 348 

348  1 348 

39  - - - = 

348  1 193 

348  1 348 

348  - 

46  6 481  482  = 

710  2 706 

709  1 706 

589  1 581 

581  1 589 

589  1 582 

582  1 589 

589  1 584 

584  1 589 

589  1 58b 

588  1 589 

477  1 477 


MM  MULTIPLE  ERRORS 
X Misc.  trouble 
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symbol  h 

DeF INItION 

ReFeRENCeS 

ft 

■ 

symbol  h 

Definition 

References 

F 

• 

symbol  h 

definition 

References 

F 

FILDELv 

E5  * 1 6AA 

42 

7 

439 

44O 

9 

■ 

FLASHON 

4611 

291 

17 

1471034 

■ 

FSTRSAMP 

11,2411 

199 

1 

198 

FILDUMMY 

20.3011 

551 

491 

55T 

30 

*34  10 

800 

17,3026 

2 

■ 

r LATUU 1 

1 

799 

■ 

PTEST 

506 

1 

5O7 

FILFIRST 

21,2316 

547 

1 

541 

i 

FLPASSO 

E4 

,1402 

32 

5 

32 

828 

= 

• 

fullcsp 

20,3040 

552 

1 

551 

FILSTART 

21,2033 

541 

1 

541 

■ 

FLTYAXU 

21 

,2113 

543 

1 

543 

■ 

fulldspi 

05,3456 

291 

1 

297 

FIlTAxIS 

21,2260 

546 

• 

• 

■ 

FLTzAxIs 

21 

,2105 

543 

1 

542 

■ 

FULLDSP 

05,3455 

297 

1 

297 

FILTEND 

32,2762 

863 

1 

862 

■ 

FLUSHLOC 

01 

,2134 

80 

1 

80 

■ 

FUNCT2 

21,3164 

56l 

1 

561 

541 

0375 

21,3172 

FILTER 

9 ^0 i ^ 

1 

548 

■ 

r LUSHRcG 

19 

8 

78 

654 

■ 

PUNCT3 

56l 

m 

* 

• 

FILTINI T 

21,2000 

541 

1 

502 

■ 

FLVELVN 

11 

,3104 

209 

1 

208 

■ 

FUNCTION 

E6 , 1 520 

48 

21 

560 

563 

FINALDV 

00,2567 

956 

3 

949 

955 

■ 

FMlO/11 

20 

,Z736 

536 

1 

536 

• 

FV 

E4,1 502 

30 

10 

734 

743 

= 

19 

209 

287 

FM13^15 

20 

,2750 

FVACCADR 

06,2003 

F I NAL 1 

0354 

3 

636 

1 

536 

57 

1 

6 1 

FINDCDUO 

30*2643 

784 

5 

664 

852 

■ 

FM14/18 

20 

*2755 

536 

1 

536 

• 

FXADRS 

37,3352 

1031 

21032 

FINDkLy 

13*3266 

150 

1 

150 

■ 

FmI/3 

20 

,2767 

536 

1 

536 

■ 

FXFX 

37,3336 

1031 

11033 

364 

537 

r i NUNAv  D 

i‘t,2135 

3 

361 

38  t 

rrl2/H 

cV 

f 30U 1 

1 

536 

rCrZ 

c 6 % 3304 

42b 

1 

429 

FINDSIGN 

16,33  15 

483 

2 

481 

483 

■ 

FM5/8 

20 

,2774 

537 

1 

536 

■ 

FZF2CADR 

23,3360 

429 

. 

• 

• 

FINDTIME 

06,2207 

62 

2 

62 

• 

FM6/7 

20 

*2762 

536 

1 

536 

■ 

FZFDSP 

23,3320 

428 

1 

428 

FINDvACZ 

01*3014 

990 

2 

988 

989 

■ 

FM9/12 

20 

*2743 

536 

1 

536 

FINDVAC 

5534 

988 

32 

57 

988 

• 

FMAGTEST 

21 

*3272 

. 562 

1 

561 

■ 

G21 

E3,1605 

27 

2 

620 

FINEALGN 

23*3124 

424 

1 

428 

• 

FMINCALC 

17 

*3053 

507 

2 

507 

■ 

GAIN 

32,2366 

857 

4 

658 

855 

FINEkZ 

11*2223 

193 

1 

195 

• 

FNZEROFN 

23 

,3272 

428 

4 

417 

418 

■ 

GBIASX 

E3,l444 

26 

1 

283 

= 

FINETIME 

5015 

390 

6 

211 

422 

■ 

FOLD 

E5 

,1557 

38 

2 

797 

800 

s 

■ 

GCOMPl 

12,3466 

808 

1 

80a 

FINEZERO 

23,3217 

426 

2 

418 

■ 

FOLDCALC 

30 

,3430 

797 

1 

797 

■ 

GCOMP 

E3,1455 

26 

28 

26 

810 

FINISH 

24*2236 

394 

1 

413 

• 

FORGETIT 

07 

,2000 

88 

5 

89 

762 

■ 

GCOMPER 

16,3106 

479 

1 

480 

FIRSTADR 

21*2013 

541 

1 

541 

• 

fortytwo 

07 

,2333 

719 

2 

717 

• 

GCOMPSUB 

12,3353 

806 

6 

805 

FIRSTCOG 

36 ,2644 

870 

1 

869 

■ 

FORVEL 

0357 

19 

4 

96 

420 

m 

GCOMPSW 

E3,1463 

26 

9 

8O4 

810 

FIRSTIME 

12,2240 

96 

- 

- 

* 

■ 

FOUNDR 

E4 

,1430 

30 

1 

730 

S 

m 

GCOMPUTE 

21,3550 

59I 

1 

592 

FITHCMD 

36,2237 

698 

1 

697 

■ 

FOUNDV 

E4 

,1436 

30 

1 

730 

= 

m 

GCOMPUTR 

21,3627 

592 

1 

593 

FITHGCMO 

36,2255 

698 

1 

698 

■ 

FOUR 

7753 

937 

33 

1351014 

- 

m 

gcompzer 

12,3602 

810 

1 

432 

FIVE 

7760 

937 

18 

871014 

• 

fourteen 

00 

,3116 

964 

1 

962 

m 

gdeselct 

13,2672 

141 

1 

137 

FIXCLPAS 

04,2270 

231 

- 

- 

* 

■ 

FPOR 

E6 

,1442 

46 

8 

506 

507 

GDOTMl 

E4 , 1 6 1 2 

33 

3 

8I7 

834 

S 

FIXDELAY 

5717 

1003 

59 

129 

707 

■ 

FPQRMIN 

E6 

,1460 

46 

7 

506 

507 

■ 

GDTl/2 

1064 

22 

2 

788 

853 

FIXLOC 

0110 

15 

49 

346 

992 

i 

FREDSPDD 

04 

,3543 

296 

1 

296 

■ 

GDT/2 

1024 

22 

3 

774 

789 

FIxLSTCA 

15,2314 

317 

1 

317 

■ 

FREEDSP 

4713 

295 

14 

188 

989 

■ 

gdum 

0032 

33 

2 

834 

843 

FIXLSTCL 

15,2320 

317 

1 

317 

■ 

FREE-R 

33 

,2247 

658 

1 

658 

■ 

GDUMCL 

22,3363 

843 

2 

834 

836 

FIXRANGE 

04,2632 

250 

1 

249 

i 

FREERET 

0134 

17 

2 

295 

= 

■ 

GDUMPRES 

E4,1604 

33 

2 

834 

= 

FIXROOT 

00*3422 

970 

2 

969 

i 

FREEWAIT 

04 

,3536 

296 

1 

295 

■ 

geaddr 

6172 

896 

1 

896 

FLAGIDwN 

6036 

770 

14 

89 

778 

■ 

FROLLNEg 

34 

,3743 

630 

1 

630 

■ 

geff 

E4,l5l0 

34 

4 

658 

859 

s 

FLAGIUP 

6020 

770 

4 

329 

778 

■ 

FROLLPOS 

34 

,3734 

630 

• 

• 

• 

u 

GENDDV 

00,2532 

954 

2 

953 

957 

FLAG2DWN 

6045 

771 

12 

88 

766 

• 

FRSTTIME 

36 

,3347 

881 

1 

881 

m 

GENPL 

E5,l 570 

41 

46 

41 

408 

FLAG2UP 

6027 

770 

7 

628 

773 

■ 

FSTEPl 

30 

,3331 

793 

1 

793 

m 

genpladi 

14,3672 

389 

» 

* 

FLAGWRDl 

0075 

13 

17 

216 

777 

S 

• 

FSTEP2 

30 

*3335 

793 

* 

• 

m 

GENPLAD 

24,3650 

414 

1 

395 

FLAGwRDZ 

0076 

13 

25 

304100A 

9 

• 

FSTEp3 

30 

,3341 

793 

* 

. 

. 

■ 

GENpLADR 

14,3673 

389 

• 

• 

- 

FLAGWRDA 

0100 

13 

- 

- 

• 

■ 

FSTEP4 

30 

,3345 

793 

. 

■ 

GENSCL 

00,2345 

948 

2 

948 

FLASHOFF 

4615 

291 

5 

194 

426 

■ 

FSTEP 

30 

,3325 

793 

1 

79I 

= 

m 

GENSCR 

00,2277 

947 

4 

946 

966 

KEY!  SYMBOLS  DEFINED  BY  EQUALS  ARE  FLAGGED  f=.  OThERs  ARE  NORMALLY  DEFINED  EXCEPT  ThOsE  FLAGGED: 

U undefined  E failed  leftover  erase  M multiply  defined  T wrong  memory  type  mm  MULTiPlE  errors 

N Nearly  oefined  by  * u failed  leftover  word  0 oversize-  or  ill-deFined  c conflict  in  memory  x misc.  trouble 
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symbol  ta3Le  listing*  including  Page  'jJMBtR  OF  Definition,  and  number  of  References  with  first  and  last  page  numbers 
symbol  h Definition  reference^  f ■ symbol  h definition  References  f ■ symbol  h definition  References  f 


GENSHFT2 

GENSHIFT 

GEOBAVR 

GEOBNDI 

GEOBND 

GEOCOMP5 

GEOCONSl 

GEOCONS2 

GEOCONS3 

GEOCONS9 

GEOIMUTT 

GEOmTRX 

GEORGEB 

GEORGEC 

GEORGED 

GEORgEJ 

GEORGE< 

GEORGES 

GEOSAVED 

GEOSTRTA 

GETCADR 

GETDET 

GETINREL 

GETMKS 

GETNEWNM. 

GETNEWX 

GETPART2 

GETPRIO 

getrandy 

GIMANGSl 
GIMBAL 

gl+noatt 

GLAMPTST 

GLINVERT 

GLOCKCHCI 

GLOCKMON 

GLOCKO< 

GMERgE 

GMLCKCHCI 

GMLOCKCCI 

GMODEIO 


00 

00 

3S 


E5 

35 

35 

35 

35 

2A 

E5 

29 

29 

35 

35 

29 

E5 

35 

01 

13 

09 

13 

07 

06 


2229 

2219 

2737 

5677 

5370 

1792 

3371 

3373 

3375 

3377 

2005 

1797 

3729 

3716 

3710 

3369 

3366 

3512 

1716 

2730 

3621 

3127 

2213 

3066 

9220 

2653 

2197 

9219 

2769 

2292 

2572 

2776 

1560 

2999 

2616 

2607 

2559 

2597 

3203 

2551 

2791 

3125 

3293 


995 

995 
993 

996 
996 

92 

951 

951 

951 

951 

391 

92 

9l5 

9l5 

915 

951 

951 

911 

92 

993 

1013 

197 

230 

197 

72 

727 

61 

72 

730 

365 

559 

329 

30 

233 

107 

107 

106 

106 

117 

139 

376 

905 

735 


1 995 
1 939 

1 993 

• - - t 

3 996  s 

8 391  95l  F 

2 939 

1 939 

2 990 
1 990 
1 951 

9 913  992  t 
1 392 

1 392 

1 392 

2 936  992 

3 938  939 

2 933  s 

1 59 

11013 
1 197 
9 228  235 


196  197 
72 


75 


9 
1 

1 727 
57 
72 
727 

369  365 
596 
1 328 
1 726 


1 232 
1 107 

1 107 

2 106 
1 109 

5 107  ll7 

1 191 

2 361  377 

1 733 


GMODEll 

GM0DE12 

GMODE 

GOAGN 

gObb 

GODAPGO 

GODSPALM 

GOLOADLV 

GOLOC 

GOMASS 

GONXTBNC 

GOOdENo 

GOODKALC 

GOODMANJ 

GOODRAD 

GOON 

GOPROG 

GOO 

GOQTRIMG 

GOSHOSUM 

GOTO 

GOTOERS 

GOTOGE 

GOTOGTS 

GOyfILTR 

GPGLOCK 

GPMATRIX 

GRABDSP 

GRAbLOC< 

GRABUSYl 

GRABU5Y 

GRABUSYB 

GRABWAIT 

grrplace 

GSELECT 

GSHIFT 

GTABLE 

GTS2CADR 

GTS 

GlSCpSS 

GTSFIN 

GTSFINLC 

GTSFOUT 


07,3229 

735 

1 

733 

07,31 75 

739 

1 

733 

£9,1572 

31 

2 

731 

733 

12.2260 

96 

1 

96 

9059 

55 

1 

59 

77A3 

959 

5 

963 

673 

05,2329 

293 

10 

237 

255 

11.2262 

199 

9 

187 

0111 

66 

28 

6 1 

65 

30,2193 

768 

1 

768 

37.3995  1033  310321033 


13.2731 
33.2725 
39,3715 
10.2771 
01.2007 
01,2192 
05,2712 
21*2770 
11.2905 
6715 
6731 
■ 67A9 

17.2612 

21.2110 

20,2093 

20,2000 

9621 

0330 

09,3972 

9631 

09.2000 
9633 

27.2000 
13,2509 

7695 

07,3172 

21,2900 

21*2561 

35,3905 

23,2095 

05,3092 

23*2037 


193 

686 

630 

177 

78 

81 

255 

558 
198 
9I9 
915 
9I5 

502 

593 

123 

122 

293 

18 

293 

293 

227 

293 

633 

138 

939 

733 

598 

559 

951 

282 

257 

282 


5 192  630 
1 686 
1 6l9 
1 178 
1 78 

3 59  89 

1 256 
1 563 
1 187 

13  9I5  981 
1 919 
1 9I5 

1 505 

1 596 
1 122 
1 121 
3OO  9O2 
86  296 

1 227 
1 293 

1 293 

16  I9l  A27 

1 303 
3 137 
1 9O2 

1 733 

2 596  597 
1 598 

1 197 
1 257 
1 258 
1 298 


2 

11 


GTSFOUTL 

GTSOPNDZ 

GT5QAXIS 

GTSkAXIS 

GTSTEST 

GTSWTLST 

GUDENTRY 

GUESSl 

guess 

GUES5W 

guidance 

GWAkE2 

GWAKE 

GYROAGRE 

GYROBUSY 

GYROCMD 

GYROCTR 

GYROD 

GYRODPL 

GYROEXIT 

GYROFRAC 

GYRSFTSl 

GYTOBETQ 


05.2511 
E5.1 793 

21,7772 

21*2^65 
2 1 ,7663 
E5,1795 
29,2972 
29.7220 
29,2053 
0077 
33,7915 

13,2372 
13,7933 
13,2905 
13.7926 
0097 
0097 
E5,152l 
29.9851 
13,7610 
13,2673 
29,7997 
E5 , 1 6 16 


296 

92 

558 

558 

556 

92 

398 

399 

392 

13 

66l 

135 

136 
135 
138 

10 

10 

90 
919 

190 

191 
398 

91 


1 298 

1 558 
1 556 
1 559 
3 932  999 
1 398 


9 851  869  s 


1 136 
1 136 
1 135 
1 135 
5 111  190 
3 900  9l6 
1 9l9 

1 190 

2 139  lAl 

1 197 

2 390  916 


Hi 

H 

half 

HALFA 

HALFCIRC 

HALFDP 

HALFY 

HBRANCH 

HC 

HDAP 

HIIO 

HI5 

HIFSTEP 

HIGH9 

HIGH9 

higuess 

HISCALAR 

HISLOPE 

HISPMAX 


E9,1532 
E9 , 1 56A 
7790 
39,2913 
36,3050 
I5,3l9l 
1127 
E9,l57l 
0073 

E6,l995 

13,3623 

9597 

30.3351 
5367 
6330 
5965 
0003 

30.3352 

1 1 .7976 


39 

30 

937 
612 
876 
333 

23 

31 
35 

96 

217 

29O 

799 

938 
901 
986 

53 

79A 

200 


3 856  857 

8 723  7A2 
30  160  985 
15  6O9  625 

1 875 
3 329  390 
3 23  986 

9 730  7A1 
5 658  858 

7 96  519 

1 216 
7 811033 

3 897  9IA 
1 897 
1 986 
1 390 

1 199 


keYj  symbols  Defined  by  eouals  are  flagge*^  <=.  others  are  normally  defined  except  those  flagged. 


u undefined 
N Nearly  defined  by  = 


E failed  leftover  erase  m multiply  Defined 

j Failed  leftover  word  o oversize-  or  ill-defined 


T WRONG  Memory  tyPe 
C CONFLICT  IN  MEMORY 


MM  multiple  errors 
X MISC,  trouble 
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symbol  tasle  listing*  including  paGe  numbeR  of  Definition*  and  numBeR  of  ReFeRenceS  witF*  first  and  last  paGe  numbers 


symbol  h 

OEt iNiT Ion 

Reference^ 

i 

symbol  h 

Definition 

ReFeRences 

F 

■ 

symbol  h 

Definition 

References 

f 

HIVXSTE3 

30*3353 

794 

* 

• 

• 

IMUCAGE 

12*2673 

111 

1 

117 

■ 

INERCTRx 

E6*1620 

50 

6 

577 

578 

holdr 

32*2233 

855 

1 

855 

■ 

IMUCOARK 

11*2132 

191 

1 

188 

■ 

INERPOLY 

26*2611 

571 

- 

holdrate 

l6*203A 

455 

2 

455 

65  T 

i 

IMUCOARS 

13*2065 

128 

7 

I9I 

427 

■ 

INHNTCHK 

37*2753 

1025 

11025 

HYPTRIG 

36*3053 

876 

1 

875 

■ 

IMUCOARV 

11*2153 

l9l 

2 

l9l 

19a 

• 

INIT2DPS 

22*2000 

817 

1 

817 

i 

IMUFAIL 

12*2763 

116 

1 

117 

s 

■ 

INITOSp 

5605 

61 

1 

61 

= 

3O9 

13*2251 

132 

193 

424 

5O2 

1 

26*2317 

• 

5 

■ 

1 IN  1 I r 1 L 1 

1 7 • ?6 1 7 

1 

1=2 

2S*23A7 

309 

1 

309 

■ 

IMUFINEd 

13*2270 

132 

2 

132 

137 

■ 

INITINT 

07*2267 

717 

3 

713 

718 

IMUFINE< 

11*2204 

193 

1 

187 

10*2653 

175 

174 

1 s3 

60  %COcl 

309 

• 

• 

• 

0 

I=A 

26*2361 

3O9 

1 

309 

1 

imufiney 

11*2233 

193 

1 

193 

■ 

INITV 

36*3405 

883 

1 

871 

ibnkcall 

5307 

890 

50 

102 

712 

■ 

IMUGOOD 

13*2702 

142 

• 

• 

■ 

IN.OUTl 

37*2767 

1026 

11016 

ICDUFAIL 

12*2763 

116 

1 

117 

% 

■ 

IMUMONl 

12*2315 

98 

1 

98 

■ 

IN-OUT2 

37*:»001 

1025 

- 

- 

- 

ICORk2 

11*2141 

191 

2 

192 

i 

imumon 

12*2305 

98 

2 

94 

m 

IN-0UT3 

37*3015 

1026 

- 

• 

- 

ICSDEL 

11*2154 

192 

1 

191 

■ 

IMUOP2 

12*2723 

112 

1 

112 

■ 

INLINK 

o0a5 

10 

2 

85 

216 

28l 

IMUOP 

12*2712 

112 

1 

117 

16 

22 

228 

235 

I UAU  1 1 t 

0140 

i7 

4 

241 

i NKbu 

nl27 

1DAD2TEM1 

OUl 

17 

2 

281 

■ 

IMUPULSE 

13*2381 

135 

5 

193 

808 

■ 

inreltab 

0a*2217 

23O 

2 

230 

234 

IDAD3TEM 

0142 

17 

- 

- 

- 

■ 

IMUSE 

0007 

13 

- 

- 

- 

= 

■ 

INTB15+ 

0104 

15 

3 

I5 

IDADDTA3 

23*2406 

287 

2 

281 

■ 

IMUSEFLG 

7746 

145 

7 

102 

376 

■ 

INTBIT15 

0105 

15 

7 

15 

897 

IDADDTEMi 

0132 

16 

• 

- 

* 

6 

■ 

IMUSTALL 

13*2762 

144 

30 

190 

808 

■ 

INTGRATE 

07*3410 

738 

1 

738 

IDLEADR 

01  *253A 

87 

1 

81 

■ 

IMUTEST 

24*2000 

391 

1 

197 

■ 

INTLZE 

12*2254 

96 

1 

96 

IDLEADRO' 

17*2115 

493 

1 

493 

i 

IMUZER02 

13*2045 

127 

1 

125 

■ 

intmctbs 

05*2100 

238 

2 

238 

. IDLERADH. 

16*2303 

467 

2 

467 

488 

■ 

IMUZER03 

13*2055 

127 

- 

. 

■ 

INTOUT 

07*2474 

722 

1 

716 

lERASTST 

6161 

896 

1 

896 

■ 

IMUZERO 

13*2000 

125 

10 

190 

426 

■ 

INTPRET 

6103 

893 

IO9 

168 

914 

IFAILINHI 

01*2514 

86 

1 

83 

■ 

IMUZEROA 

13*2010 

125 

1 

125 

■ 

INTRSM 

6112 

893 

1 

99<, 

IFAILJMP 

12*3036 

117 

1 

99 

• 

imuzero< 

11*2110 

190 

1 

188 

■ 

INTRTN 

36*2022 

693 

• 

• 

- 

IFAILOK 

13*2272 

132 

2 

79 

132 

■ 

INCLOOP2 

11*2170 

192 

1 

192 

■ 

INTVAL 

35*3341 

45O 

3 

43? 

435 

IG 

E3*1634 

27 

5 

620 

622 

S 

• 

INCLOOP 

11*2163 

192 

1 

192 

■ 

INTVEC 

E5  * 1646 

42 

3 

439 

440 

= 

IGC 

E5  * 1502 

40 

2 

322 

329 

i 

INCORPEX 

E4*1603 

31 

- 

- 

- 

■ 

INTY 

E5  * 1 624 

42 

9 

4? 

437 

= 

IqNALg 

22*2033 

818 

1 

848 

■ 

INCR 

01*2621 

978 

1 

903 

■ 

INTZ 

E5*l630 

42 

2 

437 

S 

IGNALGL 

22*3546 

848 

1 

817 

■ 

INCRCDUS 

15*3633 

345 

■ 

INVACC 

20*^644 

59O 

6 

581 

588 

IGNITNI 

22*2750 

833 

1 

819 

■ 

INCRCHK 

37*2410 

1020 

- 

- 

■ 

INVLOOP 

20*:,330 

581 

1 

583 

IGNITN2 

22*3041 

835 

1 

619 

• 

INCRDCDj 

34*3542 

627 

2 

627 

628 

■ 

INvRATE 

34*3764 

631 

1 

631 

IGN-2SE: 

07*2364 

720 

1 

719 

■ 

INDEP 

E3*1732 

28 

10 

870 

882 

■ 

INZ0NE4 

17*3646 

51  ! 

1 

51  T 

IGNTEST 

33*2357 

660 

1 

660 

■ 

INDERASE 

6242 

897 

1 

897 

■ 

IRIGl 

12,3350 

806 

2 

0 

CO 

806 

IM3OINIF 

01*2527 

87 

1 

79 

■ 

INDEX2 

6220 

897 

1 

897 

■ 

IRIGCOMP 

12*3271 

805 

- 

- 

- 

IM30INI H 

01*2530 

87 

1 

83 

■ 

INDEX 

6202 

897 

1 

895 

■ 

IRIGX 

12*3273 

805 

- 

- 

- 

IM33INIT 

01*2531 

87 

1 

86 

■ 

INDEXLOC 

0120 

16 

12 

897 

979 

■ 

IRIGY 

12*3307 

805 

- 

IMEDIATE 

06*2226 

62 

4 

62 

64 

■ 

INDJUMP 

6333 

902 

6 

896 

899 

■ 

IRIGZ 

12,3323 

805 

• 

- 

IMODES30 

0355 

19 

61 

79 

a63 

■ 

INDPCT 

36*2211 

697 

1 

697 

■ 

ISSUP 

12*2444 

102 

- 

• 

IMODES33 

0366 

19 

21 

86 

401 

■ 

INDWORK 

6240 

897 

1 

897 

• 

ISSWOFF 

12,2776 

115 

• 

IMUATTCCI 

11*2573 

203 

1 

187 

■ 

INERCONA 

26*2736 

579 

1 

577 

■ 

ISSWON 

12,3006 

115 

1 

115 

IMUBACK 

24*2024 

391 

1 

197 

■ 

INERCONB 

26*2727 

579 

1 

577 

• 

ISWCALL 

5313 

890 

- 

• 

- 

imubad 

13*7703 

142 

4 

102 

142 

1 

INERCONC 

26*2720 

578 

1 

577 

■ 

ISwRETRN 

5322 

89O 

1 

639 

IMUCADR 

0367 

19 

2 

86 

142 

5 

• 

INERCTR 

E6*1617 

50 

4 

577 

578 

• 

ITEMPl 

O06l 

12 

100 

12 

813 

Key;  symbols  defined  by  equals  are  flaggeQ  =•  others  are  normally  Defined  except  those  flagged: 

u undefined  E failed  LeFTDvER  erase  m multiply  defined  t wrong  memory  type  mm  multiple  errors 

n Nearly  defined  by  = j failed  leftover  word  0 oversize-  or  ill-deFined  c conflict  in  memory  x misc,  trouble 
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symbol  H‘  Dehnition  References 


ITEMP2 

1 temp 3 

ITEMPA 

ITEMP5 

ITEMP6 

ITERATOR 

ITERSW 

ITRO 

ITRIO 

ITRll 

ITR12 


0062 

0063 

006A 

0065 

0066 
36*3316 

0076 

6A30 

6176 

6236 

6170 


ITR13 
ITRU 
ITR15 
ITRl 
ITR7 

ITSAJ0B2  06*23A3 


ITSAJOB 

ITSATBL 

ITSAVAR 

ITSAwAIT 

ITSEVEN 

ITSINDIR 

ITSLGCLl 

ITSL6CL2 

ITSLIKE3 

ITSLNGCL 

ITSWTLST 

ITURN0N2 

I TURNON 

I XX 

IXXTASX 

IXXTIME 

lYY 

lYYTASX 

lYYTiME 

IZZ 

IZZTAS< 

IZZTIME 


12 

12 

12 

12 

12 

881 

13 

905 

896 

897 
896 

898 

899 
896 


6247 
6273 
6157 
6A16  905 

6315  900 

65 
63 

63 
61 
62 

65 
62 

64 

64 
63 

65 
65 

110 
109 

46 
538 
538 


06*2243 

06*2246 

06*^157 

06*2176 

06*2347 

4064 

4073 

06*2304 

06*2230 

06*2331 

06*2338 

12*2666 

12*2643 

E6*1452 

26*2441 

26*2474 


12  772 

12  593 
12  593 
12  54  ^ 


46 
23 

15 
20 

14  47  568 

1 870 
3 868  88l 


1 897 


63 
62 
61 
61 
62 

63 
62 

64 

64 

61 

61 

64 

109  112 
117 

458  578 
458  538 


65 


1 538 


E6*1453  46  7 458  578 


26*2452 
26*2475 
E6* 1454 
26*2463 
26*2476 


538 

538 

46 

538 

538 


3 458  538 
1 538 
7 458  578 
3 458  538 
1 538 


.075DEC  16*2341  467  - 

.166...  15*3157  333  1 328 

.IDPS  16*3574  488  2 4b3 


JMBtR  OF  DeFINITI 

■ symbol  H De 

■ 

■ 

.1-.05K 

.1-.05K) 

• 

21 « 

■ 

.58FMAX 

30* 

■ 

.5ACCMIN 

1 6 9 

■ 

.5ACCMNE 

E6* 

• 

.5ACCmNo 

E6* 

■ 

.5ACCMNR 

E6* 

• 

.5ACCMNU 

E6* 

■ 

.5ACCMNV 

E6* 

■ 

.5-.5COF 

■ 

#64 

2 1 9 

■ 

.66667 

21* 

• 68387 

1 6 9 

1 

.6DEG/SC 

17* 

■ 

.707 

17* 

B 

.707BK26 

26* 

B 

.707GTS 

21* 

B 

.707P 

16* 

B 

-OCHK 

37* 

B 

-15DEGS 

12* 

B 

-ICHK 

37* 

i 

-1.5CSP 

17* 

• 1 • 6C5P 

17  9 

B 

-1/12 

07* 

B 

-1/2*2 

00* 

*1/8 

B 

-2JETLIM 

E6* 

B 

-2MIN256 

21* 

B 

-2M1NWL 

21* 

B 

-35AT16 

16* 

B 

-45DEG5R 

10* 

B 

-50DEGSR 

10* 

B 

-5DEG*1 

16* 

B 

-70DEGS 

12* 

B 

-80DEGSR 

10* 

B 

-90MS 

17* 

B 

-A2jTLIvi 

16* 

B 

-ARATEDB 

16* 

a 

-BITIO 

12* 

B 

-BIT12 

B 

-CCSpR 

01* 

B 

-COMMAX 

13* 

0061 

3535 

3522 

2336 

1627 

1630 

1631 

1632 

1633 
0062 
2370 


52 

568 

801 

467 

50 

50 

50 

50 

50 

52 

548 


572  574 

567 

799 

481  482 
50  519 


3160  561 

2332  467 

3557  515 

3575  516 

2605  540 

3227  562 

2322  467 


3 572 

1 5A2 

2 561 
1 465 

1 519 

2 515  516 

1 540 

2 562 


2035  1015 
2622  107 


2043 

2557 

3550 

2724 

2430 

5520 

1477 

3533 

3532 

3567 

2137 

2140 

3570 

2621 

2141 
2575 

3606 

3607 
3066 
5520 
3310 
3013 


1015 

501 

515 

728 

951 

987 

47 

568 

568 

488 

161 

161 

488 

107 

161 

501 

488 

488 

117 

159 

997 

145 


810181028 
1 106 

4110171033 

1 500 

2 517  519 
1 737 

1 970 

2 159  986 
7 472  497 

1 568 

2 568 
1 481 
1 161 
1 161 


1 106 
1 161 

1 472 
1 472 
1 113 
1 159 

1 998 

2 129  131 


-COMMAX- 

.D2JTLIM 

-DIF 

-DRATEOB 

■ELR 

-ENDERAS 

-ENOVAC 

-FMAX 

-GYROMIN 

.,02R/S2 

-.04266 

-.04438 

-.08882 

..IFMAX 

-.52FMAX 

-.88975 

-LOkONFg 

-maxdelv 

-MINIMP 

-mkrej 

-MS35AT4 

-MUDT 

-NMBR 

-NMBRS 

-OCTIO 

-ON 

-PHASEl 

-PHA5E2 

-PHASE3 

.PHASE4 

-PHASE5 

.PHASE6 

-RATBD+1 

-RATEDB 

-RATLM*! 

-RRLIMIT 

-SENSTAB 

-SICjN 

.TAN22.5 

-TGBND+l 

-TJMIN16 

•TjmINqR 

.TJMINT6 


13*^014 

16*3605 

11*3102 

16*3604 

01*2525 

6332 

6305 

30*3520 

13*2571 

20*3325 

21*2764 

21*3055 

21*3056 

30*3524 

30*3523 

17*2572 

11*3013 

30*2152 

16*2513 

01*2526 

17*3554 

30*3134 
37*3062 
37*3117 
6256 
04*2321 
1077 
1 101 
1 103 
1 105 
1 107 
1 111 
21*2717 


145 

488 

209 

488 

87 

901 

900 

801 

139 

58l 

558 

559 
559 
801 
801 
501 
207 
768 
47O 

87 

515 

789 

1027 

1028 
899 
231 

23 

23 

23 

23 

23 

23 

556 


47 

505 

163 

530 


E6*1476 
17*2753 
10*2222 
20*2535 

37*3646  1036 
17*3375  512 

21*2716 
17*3552 
17*3552 
16*3611 


Key:  symbols  OEHNeD  by  equals  are  FlASGeD  =.  others  are  normally  defined  eXCePT  those  FLAGGED: 


2 

129 

131 

1 

472 

2 

2O9 

1 

472 

1 

81 

1 

896 

2 

896 

915 

3 

791 

799 

2 

139 

141 

6 

581 

588 

1 

558 

2 

558 

2 

559 

4 

798 

800 

1 

799 

2 

495 

1 

207 

1 

768 

1 

470 

1 

82 

1 

517 

1 

788 

11027 

11027 

1 

899 

3 

231 

266 

74 

79 

79 

79 

79 

79 


89 

89 

89 

89 

89 


2 556 


556 

515 

515 

488 


11  471  A97 

2 50s 
2 163 

1 523 
11036 

2 510 

2 556 

3 5is  519 

1 474 


u undefined 
N Nearly  oeFinel  by  = 


E failed  leftover  erase 
j Failed  leFtdver  word 


M multiply  defined 
0 oversize-  or  ILL-DeFINeD 


T WRONG  Memory  tvPe 
c conflict  in  Memory 


MM  multiple  errors 

X MISC.  rRQQBLE 
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symbql  ta3Le  listing*  including  PaGe  nJmbeR  of  Definition*  and  number  of  ReFeRenCeS  with  first  and  last  paGe  numbers 


symbol  Hi  Definition  references  f 


-UP 

-XBND*'! 

-XPOLICY 

-XSENSE 

-XTRANS 

.X,A 

-X*B 


J0FS2 

J0XS2 

J2FS2 

j2REqS0 

J4REQ/J3 

JACCEST?- 

JACCESTDi 

jACCESTRI 

JDS2 

JDUM 

JETAbORT 

JETCMD 

JETENTRY 

JETLWADR 

JETOFF 

JETOFFTMi 

JETON 

JETONTM 

JETPON 

JETRATE 

JETRATED' 

JETRATER 

JETS*X 

JETSOFF 

JETSTART 

jETSTEp 

JETTORXl 

JETTORXL 

JETTORX 

JETTSUB 

JF3 

JFAILI 

JFAIL 

JFAILCX 

JFBUF 


00 

t2562 

955 

17 

*275L 

5O5 

20 

*2325 

525 

20 

*2271 

523 

17 

*2LL6 

L99 

17 

,2605 

501 

17 

*2606 

501 

22 

*3L7L 

8L6 

22 

,3LL5 

8L5 

22 

*3532 

8l7 

07 

*36L1 

7LL 

07 

,3653 

7LL 

26 

,250L 

539 

26 

*2520 

539 

26 

*25L1 

539 

22 

*3LL5 

8LL 

002L 

33 

07 

*2070 

300 

21 

,372L 

59L 

L737 

300 

16 

*3617 

a88 

06 

*2566 

350 

EL 

, 1L60 

39 

06 

,2611 

351 

EL 

*1L30 

39 

16 

,312L 

L80 

E6 

,1603 

L9 

E6 

* 160L 

49 

E6 

*1605 

L9 

25 

*2766 

675 

16 

,3051 

L78 

06 

*255l 

350 

EL 

,IL07 

39 

26 

,2607 

5L0 

E6 

,IL56 

L6 

26 

,2606 

5lO 

20 

,3050 

552 

06 

,262L 

351 

06 

*2632 

351 

06 

,2650 

351 

06 

*2617 

351 

EL 

,1L03 

39 

1 95A 

2 505 

1 525 
1 521 

1 A98 


1 

BLL 

1 

737 

2 

736 

1 

538 

1 

538 

1 

538 

1 

825 

3 

833 

1 

522 

L 

593 

1 

300 

1 

1 

351 

351 

1 

350 

1 

350 

2 

Leo 

L 

L9 

L92 

L 

L 

L92 

3 

6L6 

13 

L70 

1 

3L8 

2L 

3L8 

2 

539 

3 

L65 

1 

539 

2 

551 

1 

351 

1 

351 

1 

351 

2 

351 

737 


8a2 

59A 


A69 

552 

552 

672 

A83 

357 

539 

552 


• 

symbol  h 

Definition 

References 

F 

■ 

symbol  h 

DepINItION 

References 

F 

■ 

JLINS 

EL 

,1612 

33 

3 

33 

837 

- 

■ 

kepsilon 

07,a621 

7LL 

1 

727 

• 

jobaxes 

OILL 

52 

26 

581 

589 

= 

■ 

XEYCOM 

13,3515 

215 

1 

216 

• 

JOBSLEEP 

5563 

989 

IL 

136 

712 

■ 

XEYRPTBB 

l057 

55 

2 

5L 

55 

■ 

JOBSLPl 

01 

,3175 

99a 

1 

989 

■ 

XEYRUPTI 

13,^5o6 

215 

2 

5l 

55 

■ 

J0BSLP2 

01 

,320L 

99L 

1 

996 

■ 

XEYTEMPl 

n073 

12 

7 

55 

217 

- 

■ 

JOBWAKE2 

01 

,3206 

995 

1 

989 

■ 

XEYTEMP2 

1076 

22 

2 

216 

217 

z 

i 

JOBWAKE3 

01 

*3220 

995 

2 

995 

■ 

xillcad 

07 ,20l6 

89 

1 

88 

■ 

jObwAkEl 

01 

*3212 

995 

1 

995 

■ 

XILLmON 

05,3153 

263 

2 

263 

ft 

JOBWAKE 

5567 

989 

12 

137 

712 

■ 

XILMONON 

aL55 

276 

2 

271 

27L 

ft 

JOEY 

16 

*2651 

L72 

2 

L71 

• 

XKKX 

1L,367A 

389 

1 

382 

ft 

JSTEPADR 

06 

*25L3 

3L9 

1 

3L8 

■ 

XLMNFLTR 

2l*2l2T 

5lL 

- 

- 

ft 

jSwITCH 

0001 

13 

3 

738 

7L1 

; 

■ 

XODU 

2L,3303 

L08 

1 

LOa 

ft 

JTLST 

16 

*3Ll5 

Le5 

2 

L85 

501 

■ 

XONENOW 

20,3261 

57A 

1 

571 

ft 

JTLSTADR 

17 

,2607 

501 

1 

501 

ft 

XPIPl 

30,3l2L 

789 

1 

789 

ft 

JTOP 

06 

*2577 

350 

1 

350 

ft 

XPIP 

30*3122 

789 

1 

790 

ft 

jTpOLADR 

17 

,2L57 

L99 

1 

L99 

ft 

XQ2 

E6,1526 

L8 

1 

L66 

= 

ft 

JTSAREON 

17 

*2BL2 

501 

1 

500 

ft 

XQ 

E6,l525 

L8 

5 

L3 

558 

■ 

JTSATCHG 

E6 

*1L72 

l7 

11 

a78 

527 

ft 

XRl 

El* 1 L35 

3L 

3 

65b 

860 

s 

ft 

JTSBAT6 

16 

,3553 

L87 

1 

L87 

ft 

XRIEST 

33,2510 

663 

1 

658 

ft 

JTSFIRST 

16 

,3L6L 

L86 

1 

L86 

ft 

XR2 

E6,l 530 

L8 

1 

L66 

5 

ft 

JTSONNOW 

E6 

,1L71 

L7 

13 

L78 

526 

ft 

XR 

EL,iL3L 

3L 

1 

859 

Z 

ft 

JUMPLOAO 

2L 

*2073 

392 

1 

392 

ft 

XRDAP 

E6,i527 

l8 

1 

L66 

= 

ft 

justout 

16 

*2623 

L72 

1 

L72 

ft 

XREST 

33,2506 

663 

- 

» 

- 

ft 

JZERO 

3L 

*3L26 

625 

1 

625 

ft 

XT 

32,26L2 

860 

1 

857 

ft 

J(RE)SQ 

30 

*3132 

789 

1 

788 

ft 

XTIMEN+1 

07,2602 

726 

1 

727 

ft 

K1 

E3 

*1601 

28 

5 

27 

620 

ft 

L 

0001 

10 

238 

67103L 

ft 

X2 

E3 

*1607 

28 

L 

27 

620 

= 

ft 

LABNBA2 

2L,3667 

LIL 

- 

• 

- 

ft 

K2CNTRAL 

0062 

L8 

2 

559 

560 

= 

ft 

labnbver 

2L  * 3701 

LIL 

- 

- 

- 

a 

X2THETA 

0070 

L8 

7 

560 

563 

ft 

LAgSLIST 

11,2572 

202 

1 

202 

a 

K3 

E3 

*1615 

28 

L 

27 

620 

= 

ft 

LAMBERT 

36,2L30 

868 

1 

861 

ft 

K3S1 

3L 

,2L31 

612 

2 

622 

ft 

LAMBSET 

32,2672 

86l 

1 

856 

ft 

XL 

3L 

*2L33 

612 

1 

623 

ft 

LAMPREP 

32*2250 

855 

1 

855 

■ 

KASq 

3L 

,2L35 

612 

1 

622 

ft 

LAmpRIO 

EL,1L51 

3L 

3 

851 

856 

ft 

X 

0061 

52 

3 

571 

572 

= 

ft 

LAMPTEST 

12,30L7 

117 

2 

IO7 

108 

• 

XALCLAD 

33 

*25L6 

664 

1 

657 

ft 

landmark 

E3,1 500 

26 

2 

283 

ft 

XALCMAN3 

3L 

*2067 

605 

L 

60L 

Til 

ft 

LARGE2 

00*3056 

963 

2 

962 

ft 

XALCROLL 

3L 

*3722 

630 

1 

630 

ft 

LARgE3 

00,30L0 

963 

1 

962 

ft 

XCENTRAL 

0061 

L8 

6 

558 

560 

s 

ft 

LARGE 

00,3031 

962 

1 

962 

ft 

XCOEFCTR 

E6 

* 16lL 

50 

9 

l57 

57l 

ft 

LARMLARM 

07,?061 

3OO 

1 

301 

ft 

KEEpgOIN 

32 

,2L31 

857 

1 

861 

ft 

LASINEx 

00,3600 

97L 

1 

97l 

ft 

XEL 

E3 

,1557 

28 

11 

60L 

627 

= 

ft 

LAST30 

E7,l 60L 

l3 

3 

20L 

ft 

XEPLER 

07 

,2513 

72L 

- 

- 

- 

ft 

LASTBIAS 

12,3571 

810 

2 

58 

766 

KEY!  SYMBOLS  DEFINED  BY  EQUALS  ARE  FLAGGED  =.  OThERs  ARe  NORMALLY  DEFINED  EXCEPT  ThOsE  FLAGGED: 

u undefined  e failed  leFtdver  erase  m multiply  defined  t wrong  Memory  tvPe  mm  multiple  errors 

N Nearly  Defined  by  = j failed  leFtdyeR  word  0 oversize-  or  ill-defineo  c conflict  in  memory  x misc.  trouble 
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SYMBOL  table  LISTING*  INCLUDING  PaGE  MUMBeR  oF  DEFINITION*  AND  NUMBeR  OF  ReFeReNCeS  WItH  FIRSt  AND  LASt  PAGe  NUMBeRG 

symbol  mi  Definition  reference^  -i  • symbol  h definition  References  f ■ symbol  h definition  references  f 


LASTFAILI 

LASTGTS 

LASTLRDT 

LASTPER 

LASTqER 

LASTRER 

LASTSEG 

LASTTEST 

lasttime 

LASTXCM3 

LASTYCMD 

LATAZCH<i 

LATErjET 

LATITUDE 

LATVEL 

LAX  IS 

LBUF2 

LDANZIG 

LDATALSr 

LDNPHASl 

LDNTMGO 

LDSKYRS 

lefts 

LEFT7C0M: 

LEFT 

LEFT- 

LEGALTST 

LEmLAbI 

LEMLAB 

LEMMASSl 

LEMMASS2 

LEMONM 

LENGTHOT 

LESCHK 

LGCL2C0R 

LGCLCADR 

LgCOmP 

LGWAKE 

LGYRO 

LGYROBIN 

LIFTOFF 

LIGHTSET 

LIMITS 


E6,1501 
3S*2606 
10,3230 
E6  * 1463 
E6  * 1464 
E6,1465 
13*2601 
16*33SA 
01*3604 
0362 

0361 
14*2532 
20*2412 
E5*1510 
0360 
E4* 1470 
00*2454 

00*3662 

E7*1400 

01*2515 

01*2516 

12*2146 

4530 

04*3075 

00*2341 

00*2336 

04*2506 

14*3016 

14*2762 

E5*1540 

E5*1542 

0056 

E5*1527 
01 *2520 
5767 
06*2002 
12*3457 

13*2443 

0356 

11*2301 

27*2240 

01*2202 

7736 


47 

440 

183 

46 

46 

46 

140 

483 

1013 

19 

19 

372 

527 

40 

19 

34 

951 

975 

43 

86 

86 

94 

289 

260 

948 

948 

234 

377 

377 

38 

38 

11 

40 

87 

1012 

57 

808 

136 

19 

195 

639 

81 

937 


2 535 

1 451 
1 182 
1 46a 
1 464 
1 464 
1 140 
1 462 

5 96  34? 


96  347 
361  398 
525  526 
370  392 
96  420 
854  859  = 
973  975 
1 97a 
7 31A  318 
1 84 

1 84 

1 93 


5 2471033 
1 260 
1 945 

1 945 

2 234 

1 377 

2 361  427 
5 647  673 

3 650  699 


13  392  445 
1 86 
11012 

1 65 

3 804  8l0 

2 136  137 

14  86  44O 

1 193 

1 634 


5 344  985 


LIMOMG 

LINCR 

LINGOF 

LINGIF 

LINg2F 

LING3F 

LINGUID 

LINSET 

LITESOUT 

LLMPRS2 

LLMPRS 

LMPBBAN< 

LMPCMD 

LMPEXIT 

LMPGROUP 

LMPIN 

LMPOUT 

LMPOUTT 

lmpphase 

LMPRESET 

LMPRET 

LMPRST 

LMPRUPT 

LMPTBASE 

LN2/128 

LNGCALL2 

LN0RMT4 

LOADFLAg 

LOADGTSM 

LOADIC 

LOADIT 

LOADLVl 

LOADLV 

LOADM 

LOADSTAT 

LOADSTDT 

loadtime 

LOADXSM 

LOC 

LOCCTR 

lock 

lockangl 

LOCSKIRT 


30*2641 

0102 

22*2055 

22*2063 

22*2077 

22*2105 

22*3171 

22*3162 

37*3703 

01*2521 

12*2147 

1146 

1132 

5134 

0002 

1142 

1143 

1144 
1102 

12*2013 

1145, 

5136 

01*2230 

1115 

36*3462 

01*3565 

4265 

24*2642 

24*3614 

24*2321 

24*2740 

05*2002 

05*2663 

35*2663 

0305 

35*3061 

15*3521 

35*3100 

0154 

006a 

24*3117 

34*2a43 

34*3024 


784 

318 

818 
818 

819 
8l9 
837 
837 

1036 

87 

94 

23 

23 

747 

746 

23 

23 

23 

746 
90 
23 

747 

82 

746 

884 

1012 

90 

400 
413 
395 

401 
237 

255 

442 

18 

446 
342 

447 
17 
12 

405 

612 

620 


1 

1 

785 

3I8 

- 

— 

— 

• 

> 

- 

•» 

1 

8l9 

1 

837 

11036 

1 

82 

1 

92 

2 

747 

22 

79 

746 

1 

747 

” 

~ 

• 

6 

79 

747 

9 

79 

92 

6 

78 

92 

2 

87 

94 

3 

747 

1 

747 

1 

82 

• 

• 

• 

1 

877 

11012 

4 

79 

90 

1 

400 

3 

1 

392 

445 

395 

• 

«• 

1 

19a 

7 

237 

257 

1 

AA2 

5 

255 

277 

2 

A3A 

446 

5 

370 

857 

3 

A12 

447 

42 

143 

999 

25 

137 

995 

1 405 


605 

6O7  6O9 


loctheta 

15* 

LODMIXNN 

23* 

LODNLV 

23* 

LODNNLOC 

05  * 

LODNNTAb 

23* 

LODSAMPT 

logsub 

32* 

lokonflg 

LOKONSW 

longbase 

E3* 

LONGCADR 

LONGCALL 

LONGCLCL 

06* 

LONGCYCL 

01* 

longer 

11  * 

LONGEXIT 

E3* 

longgyro 

13* 

longjob 

33* 

longrtrn 

01* 

LONGTIME 

LOOKCDUP 

24* 

LOOKLOOP 

06* 

LOOKTOp 

06* 

LOOP 

36  * 

LOOPCTR 

LOOPSIN 

34* 

LOOPTEST 

21* 

LOOpTOp 

17* 

LOOSE 

35* 

LOPDELOP 

24* 

lopty 

15* 

LOSO 

27* 

LOSl 

E5* 

L0S2 

E5* 

LOSCALAR 

LOSR 

27* 

LOSVEC 

LOWIO 

E5* 

LOW  11 

L0W2 

L0w3 

L0W4 

LOWS 


4574 

2771 

7751 

0012 


1150 

5757 

2324 

3571 

3I34 

1434 

2614 

2152 

3611 

1152 

2620 

3216 

3212 

2577 

o064 

2473 

2670 

2726 

2303 

3264 

3752 

3OAO 

1 600 
1 606 
0004 

3O42 

1530 

5356 

4552 

6301 

7757 

5361 

4545 


345 

28l 

281 

23« 

28l 

291 

864 

164 

13 

25 

24 

1012 

65 

1012 

211 

25 
140 
657 

1013 

24 

400 

360 

360 

870 

52 
613 
556 
505 
436 
408 
347 
683 

41 

41 

53 

683 

40 

938 

29O 

938 

938 

938 

290 


1 345 
1 281 
1 281 
8 238  25a 
1 238 
3 215  263 

1 858 

3 173  207 

2 6a  7a 

210121013 
7 57  7O6 

2 6A 
IIOI3 
2 211 
310121013 
1 139 

1 657 
11013 

11  6a1013 

3 399  400 

1 360 

2 349  360 

4 869  870 
6 52l  527 
1 6l3 

1 556 
1 505 
1 436 
1 408 

1 347 
1 680 


3 364  387 
3 365  387 
3 390 
1 680 

2 393  394 
16  2811014 

10  92  905 

1 945 

1 942 

3 197  982 

11  2I5  267 


keyi  Symbols  defined  by  equals  are  flagge*^  =.  others  are  normally  defined  except  those  fla&ged* 

u undefined  e failed  Leftover  erase  m multPLy  defined  t wrong  memory  tvPe  mm  multiple  errors 

N Nearly  defined  by  = j failed  leftover  word  0 oversize-  or  ill-defined  c conflict  in  memory  x misc.  trouble 
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SYMBOL  table  LISTING*  INCLUDING  PaGE  'lUMBtR  OF  DEFINITION*  AND  NUMBeR  OF  ReFeReNCeS  WItH  FIRST  AND  LASj  PAGe  NUviBeRS 


symbol  H! 

Definition 

References  - 

• symbol  h 

Definition 

ReFeRenCeS 

F 

■ 

symbol  h 

Definition 

References 

F 

LOW6 

05 

f3A01 

275 

3 

262 

275 

■ LTHvACA 

01,2523 

87 

A 

85 

B 

B 

MASSMON 

30 

1 A6 

790 

1 

768 

LOW? 

6130 

89A 

7 

66 

99A 

■ LTIMEON 

06,2766 

35A 

2 

35A 

B 

MASSMULT 

30 

3356 

795 

3 

791 

797 

LOW7*Z< 

6327 

9OI 

1 

900 

■ LV 

OOAA 

11 

A 

685 

963 

S 

B 

MASSTEMP 

E5 

1 561 

38 

2 

772 

793 

= 

LOW8 

A553 

29O 

16 

135101A 

• lvbuf 

5365 

938 

1 

92A 

B 

MATING 

0130 

16 

9 

l6 

929 

L0W9 

5360 

938 

8 

1a8 

997 

« LVELBIAS 

10*3156 

181 

1 

177 

B 

MATRXJOb 

27 

2067 

63T 

- 

- 

30 

.3316 

• LvSquARE 

00A2 

966 

365 

LOwrCRI T 

793 

I 

791 

1 1 

2 

962 

• 

MATxDET 

14 

223A 

• 

LOWFOUR 

2A 

*3653 

AlA 

1 

395 

• LVWTLIST 

5712 

1003 

11006 

B 

MAXANG 

3A 

7AI 1 

6U 

1 

6O7 

LOWIDCOO 

I5 

*2000 

311 

1 

315 

• LXA 

01  *2567 

977 

1 

903 

B 

MAXDV 

00 

76OA 

951 

1 

953 

LOwVERB 

05 

*2030 

237 

1 

238 

• LXC 

01,2573 

977 

1 

903 

B 

MAxDvSw 

nl30 

16 

6 

9A9 

963 

= 

LPOOHB 

01 

.i556 

88 

1 

88 

■ L,PVT-CG 

E6,1A51 

A6 

3 

A66 

578 

B 

MAXINDEP 

n032 

28 

3 

881 

882 

= 

LOPL 

1 1 

*2A0A 

198 

1 

I97 

MAXP 1 Jt 1 

16 

3233 

A8  1 

2 

48  1 

482 

lralt 

10 

*2636 

17a 

1 

186 

• Mil 

E6,140A 

A5 

15 

55 

778 

B 

MAXRATE2 

17 

3556 

5l5 

1 

518 

LRCyCLE 

11 

t2A6A 

200 

1 

200 

• M21 

E6,1A05 

A5 

5 

122 

778 

B 

maxrate 

17 

3555 

515 

2 

518 

519 

LRESC 

26 

,2711 

578 

1 

577 

■ M22 

E6,1A01 

A5 

8 

122 

778 

= 

B 

MAXTEST 

00 

2527 

953 

A 

952 

965 

LRHEIGHT 

10 

,3010 

177 

1 

176 

• M31 

E6,1A06 

A5 

5 

122 

778 

B 

MAXTHR9 

33 

3O7I 

689 

• 

» 

• 

LRPOS2 

10 

*3161 

182 

1 

190 

■ M32 

E6,1403 

a5 

7 

122 

778 

= 

B 

MAXTHRST 

33 

2A02 

661 

- 

- 

• 

LRPOSZK 

11 

*2126 

190 

1 

187 

■ M8RAD0N 

27,2607 

678 

B 

MAXTJET 

17 

3632 

517 

1 

519 

LRPOSCALI 

11 

*2501 

200 

2 

199 

• MA0FP2 

22,3A76 

8A6 

• 

• 

• 

B 

MAXTRIES 

10 

2350 

l66 

1 

166 

LRPOSCAN 

10 

*3236 

183 

1 

182 

• MA0XP2 

22*3AA7 

8a5 

1 

B 

MAYNOJET 

17 

376A 

519 

1 

519 

LRpOSCHCI 

10 

,2736 

176 

- 

» 

• 

• MA2FP2 

22,353A 

8A7 

• 

- 

- 

a 

MBYPASS 

31 

2152 

751 

1 

751 

lrposnxt 

10 

,3203 

182 

2 

182 

183 

■ MADP2 

22,3AA7 

8AA 

1 

827 

= 

B 

MCHKST 

31 

2O2I 

7A8 

»• 

• 

- 

lrratio 

10 

,3155 

181 

2 

180 

• MAGSUB 

A312 

155 

11 

156 

757 

B 

MCOMPT 

16 

3576 

A88 

1 

A76 

lrtstdex 

11 

*2A52 

199 

1 

199 

• MAGVTAN 

36,3A2A 

883 

1 

883 

B 

MCOMPTQR 

17 

2567 

501 

1 

501 

LRUPT 

0011 

10 

• 

- 

• S 

• mainbrch 

17,3711 

518 

1 

517 

B 

MCOPY 

31 

20A7 

7A9 

1 

7A9 

LRVELX 

10 

,26AA 

17A 

1 

186 

■ MAJ  + 

13,25AO 

139 

1 

138 

a 

MCOUNT 

31 

2011 

7A8 

1 

7A3 

LRVELY 

10 

,26A2 

17A 

1 

186 

• MAJ- 

13,2653 

lAl 

1 

138 

B 

MDl 

a556 

29O 

1 

277 

lrvelz 

10 

,26^0 

174 

1 

186 

■ MAKECADR 

5253 

889 

A 

lAA 

370 

B 

MDAVADR 

36 

2360 

701 

1 

69, 

LSENDCHA 

15 

,2313 

317 

1 

316 

■ MAkESERv 

30,2076 

767 

1 

767 

B 

mdone 

5220 

75A 

6 

75a 

759 

LSENDDPA 

15 

,2267 

316 

1 

316 

• MAKEXSMD 

1A,2325 

368 

1 

361 

a 

MDUE 

31 

2107 

751 

1 

7A8 

LSENDDSA 

15 

*23A3 

317 

1 

317 

• MANUCALL 

3A*3656 

629 

1 

629 

8 

MDUETEMP 

1207 

2A 

6 

A55 

752 

LSENDSN3 

15 

,2233 

316 

I 

315 

» manuoff 

3A,3606 

628 

1 

628 

B 

measmode 

EA 

1600 

31 

7 

288 

720 

= 

LSETEVN 

22 

,31A0 

837 

2 

818 

819 

■ MANUSTAL 

3A,36ll 

628 

1 

629 

B 

MEASQ 

EA 

1 57A 

31 

2 

282 

287 

= 

LSETODD 

22 

,3155 

837 

2 

8l8 

819 

■ MANUSTAT 

3A,3620 

628 

1 

627 

B 

MENTABS 

5170 

753 

1 

753 

LSTl 

E3 

,1A00 

25 

66 

551035 

• MANUSTOP 

3A*3673 

630 

1 

628 

B 

MENTERED 

31 

2015 

7a8 

1 

75i 

LST2 

E3 

,1A10 

25 

36 

8AIOIO 

■ mAp2 

EA,1506 

33 

3 

33 

827 

s 

B 

mentryt 

5157 

753 

3 

753 

13,3233 

150 

11 

272A 

2O5 

t & i ic 

439 

1 

439 

■ nftKiKKUrT 

2 

54 

55 

rltboAy  t 

LST2CON 

05 

,2131 

239 

1 

239 

» MARKSTAT 

0373 

19 

A2 

86 

365 

B 

METERADD 

lA 

3352 

383 

1 

386 

LST2FAN 

11 

,2000 

187 

1 

239 

• MASKCHK 

37*2621 

1023 

- 

- 

- 

B 

METEROUT 

12 

2212 

95 

1 

96 

LSTBNKCH' 

37 

,3A7A 

1033 

11032 

• MASKREG 

E5,1670 

A1 

3 

396 

_ 

B 

METHOOl 

3A 

2337 

608 

1 

608 

LSTEMPTY 

OA 

,3552 

296 

1 

296 

■ MASS 

1332 

25 

13 

577 

795 

s 

B 

METH0D2 

3A 

2313 

608 

- 

• 

LSTFULL 

OA 

*3554 

296 

3 

293 

29A 

» MASSADR 

33*2530 

663 

1 

656 

B 

METHOD3 

3A 

2363 

609 

2 

608 

LSTPTR 

013A 

17 

A 

293 

s 

• masscrit 

30,3317 

793 

1 

791 

B 

mfi 

E3 

1557 

2 f 

15 

606 

621 

= 

LTHD*2 

11 

,2203 

192 

1 

192 

■ MASSES 

E5,15A0 

38 

5 

38 

698 

= 

B 

MFISYM 

E3 

1601 

27 

12 

607 

609 

= 

Key:  symbols  defined  by  equals  are  flagged  =.  others  are  normally  Defined  except  those  flagged: 

u undefined  e failed  leftover  erase  m multiply  defined  t wrong  Memory  tyPe  mm  multiple  errors 

N Nearly  oefined  by  = j failed  leftover  word  o oversize-  or  ill-deFined  c conflict  in  memory  x misc.  trouble 


'*8095^A  YJL  SYSTEM  TOR  AGC • NEW  PrO^JRAM  SHePATIN  BY  EYLES 


DEC  1^1  I966 


PAGElOSb 


symbol  table  listing*  including  Page  number  of  definition*  and  number  of  references  with  first  and  last  page  numbers 


MFS 

MG2 

MGC 

MGETUP 

MID5 

MID6 

MIDAVE2: 

MIDAVEAD 

MIDtXIT 

MIDFLA5 

MIDSIX 

MIDTOAVE 
MIN  + 

Ml  NANG 

MINCHEC<1 

MINH 

MINHIBIT 

MINImP 

MINIMPDB 

MINIMSTD' 

MININDEP 

MIN- 

MINRA 

MINRASa 

MINTADR 

MINTJET 

MINUSI 

MINUS2 

MINUSU 

MINUSV 

Mis 

MISALIGN 

MISCJUM5 

MISSROOT 

MIXAD 

MIXBR 

MIXCON 

mIxnni 

MIXNN2 

MIXNOUN 

MIXTEMP 

MKALARm 

MKCHEK 


E3*I557 

13.2772 

ES.ISOa 

31,23A7 

a5a6 

05.3A02 

25,2762 

27.2A53 

Ea*1602 

0002 

AA32 

07.230A 
13*2535 
3A,2a07 
36*3361 
1212 
31*2101 
11*3106 
E6  f 1626 

20*2072 

0026 

13*2650 
E6.1AA3 
E6  * 1 AAA 
17,2571 
17*2155 
7763 

5355 

17*327A 
1 7 *3A0a 
E3,1535 
1A,3125 
6373 

16*3350 

05*2235 

0130 

23*2036 

05*2211 

05*2223 

05,2176 

0115 

13*3121 

13*3110 


27 
lAA 

AO 

760 

290 

275 

675 

6A3 

31 

13 

26A 

718 

139 

612 

882 

2A 

7a9 

209 

50 

A57 

28 

lAl 

A6 

A6 

501 

a9a 

937 

66 

511 

512 
27 

380 

903 

A83 

2A1 

16 

281 

2A1 

2A1 

2A1 

15 

IA7 

1A7 


6 27  608 

1 lAA 

2 322  328 
1 308 

1 255 

2 275  277 
1 670 

1 7OA 

2 717  73A  ; 

2 26A  27^* 

A 6A3  718 
1 138 
1 606 
1 881 

3 7A8  751 
1 7a9 

6 A57  518  5 
1 A56 

3 881  882  * 
1 138 


1 A93 
1 501 

1 139  s 

1 61  s 

1 510 

21  60A  7OA 

1 371 
1 900 

I A82 
1 2A1 

13  238  28l  A 
1 281 
1 2A1 
1 2A1 
1 238 

3 23A  2Al  s 
1 IA7 


MKDEX 

MKJOB 

MKOUT 

MXREJ 

MKRELEAS 

mkruptbb 

MKVAC 

MKVACFND 

MKVB53 

MLOOP 

MMAINT 

MMCHANG 

MNKEYIN 

MNTRCS 

MODABORT 

M0DE2CH< 

MODE 

MODEA 

MODEB 

MODECADR 

MODEEXIT 

MODEGOOD 

MODESLP 

MODREG 

MODROUTB 

MONBACK 

MONBUSY 

MONDEL 

MONDO 

MONITI 

MONITOR 

MONMASK 

MONREPOS 

MONREO 

MONSAVEl 

MONSAVE 

MONSTART 

MOONFLA5 

MOONPOS 

MOONSW 

MOONVEC 

MOREDES 

MOREIDLE 


0073 

13*3A05 

13*3220 

13,3A33 

13*3060 

A050 

13*3027 

13,30A3 

13*3102 

31*2002 

31,2000 

05*3267 

0015 

12*3216 

13*3005 

A351 

0153 

0A23 

0A25 

0367 

13*20A3 

13*2775 

13*3001 

0302 

0A,33l5 

05*3211 

05*3212 

05*3157 

05,3160 

05*3101 

05,3077 

05,3210 

12,3162 

05,313A 

0312 

0311 

1A*2065 

0003 

07,3663 

0101 

07*3671 

10*2A60 

) A . 3 ific; 


15a 

153 

1A9 

153 

1A6 

55 

1A6 

1A6 

1A7 

7A8 

7A0 

269 

53 

535 

lAA 

156 

17 
20 
20 
19 

126 

lAA 

lAA 

18 

270 
26a 
■26A 
263 
263 

262 
262 
26A 
120 

263 
18 
16 

382 

13 

7A5 

13 

7a5 

169 

A67 


3 153 
1 153 
1 1A8 
1 150 
3 36A  376 
1 5A 
1 1A6 
5 1A6 
1 1A7 

1 7A8 

2 7A9  75A 

1 2A0 
1 215 

1 535 

2 lAA 
1 156 

31  792  967 
165  3A0 
20  3A0 
19  IAA 
125  1a6 


A 

A 

10 

10 


1 IAA 
1 IAA 
8 67  305 

1 269 
1 26a 
1 263 
1 263 
1 263 

7 239 
1 263 
1 120 


2 262  263 
7 86  276 

7 86  26A 

1 382 

2 717  735 
1 73A 

6 13  883 

1 7a5 

2 169 
5 A63 


• 

symbol  h 

de 

■ 

■ 

MOREURG 

17* 

■ 

mornum 

OA* 

• 

MOST  PASS 

21  * 

■ 

MOVEPERM 

07* 

■ 

movetemp 

07* 

■ 

MOvEwGTS 

21  , 

■ 

MP03J0B 

25* 

B 

MPO7DELT 

25  * 

B 

MP07JOB 

25* 

B 

MPIIJOB 

36* 

B 

MPllOUT 

36, 

B 

MPllTASK 

MtO  « 1 T CD  kX 

36* 

B 

1 1 TtKM 

38* 

B 

MPllTMAD 

36, 

B 

MP11T013 

Ea, 

B 

MP13*5AA 

27, 

B 

MPI3JOB 

27, 

B 

MP130UT 

27, 

B 

MP13TERM 

27, 

B 

MP13TMAD 

27, 

B 

MP16JOB 

27* 

B 

MP2BBSET 

27* 

B 

MP2BBS-1 

27* 

B 

MP2J0B 

27* 

B 

MP3-AADR 

27* 

B 

MP4IGN 

33* 

B 

MPAIgN*3 

33, 

B 

mpajob 

33, 

a 

MPASEP 

TCDkJl 

33, 

B 

MH4T  cKM 1 

33* 

B 

MPATmIAD 

33* 

B 

MP6A 

27* 

B 

MP6B 

27* 

B 

MP6J0B 

27* 

B 

MP6T07 

E3, 

a 

MPeJOB 

27* 

B 

MP8TASK 

27* 

B 

MP8T09 

E3, 

B 

MP9CALL 

27* 

B 

MP9-IIDT 

EA* 

B 

MP9J0B 

33* 

B 

MP9TERM1 

33* 

B 

MP9TMIAD 

33* 

3IOI 

?201 

2OIA 

2256 

22a5 

2O7A 

?000 

2760 

?A67 

7000 

7307 

2A01 
2301 
7356 
1 753 
3217 
3071 
3227 
3221 
3261 
3AOA 

702A 

2023 

7056 

7AAA 

2382 

7375 

7OOO 

2072 

2A23 

7532 

250A 

2523 

?A63 
1 77A 
2555 
2575 
1 775 
2636 
1752 
78IA 
3137 
3253 


507 

230 

5Al 

717 

717 

5A2 

6A5 

675 

670 

693 

699 

702 

699 

701 

3T 

7O6 

70A 

706 

706 

707 
711 

635 

63A 

635 

6A3 

660 

66l 

65A 
656 
661 
66A 
66  I 
667 

666 

29 

677 

677 
29 

678 
37 

68A 

690 

692 


1 507 

2 229 

1 5A7 

3 7l6  7l8 
3 7U  721 
1 5A2 

1 6A3 
1 670 
1 761 
1 761 
1 699 

1 693 
1 70i 
1 702 

1 700 
1 706 
1 76i 
1 706 
1 707 
1 705 


1 63  a 
1 635 
1 A52 
1 6A3 

I 661 
1 6A3 

1 664 

1 659 

2 667 
2 667 

1 769 
8 666  668 
1 761 
1 677 
1 679 
1 678 
1 691 
1 761 
1 692 
1 688 


Key:  symbols  Defined  by  equals  are  fl<\g3eu  =,  others  are  normally  defined  except  those  flagged: 

u undefined  e failed  Leftover  erase  m multiply  defined  t wrong  memory  tvPe  mm  multiple  eRRo^^ 

N nearly  Defined  by  s j failed  leftover  word  0 oversize-  or  ill-defined  c conflict  in  memory  x misc.  trouble 
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SYMBOL  TA3Le  LISTING*  INCLUDING  PaGe  NJMBeR  OF  DEFINITION*  AND  NUMBER  oF  ReFe^eNCe^  WIjH  FIRSj  aND  I ASt  PAGe  NU'IBeRS 


symbol  hi 

Definition 

Reference^  fi 

■ symbol  h 

Definition 

ReFeReNCeS 

F 

■ 

symbol  h 

DEf INItION 

References 

MP*  + 

37*2AA3 

1021 

- 

- 

- 

■ MSTATEO< 

31  ♦20AI 

7A9 

2 

7A8 

■ 

NDx*SU 

37*2630 

102A 

- 

- 

MP  + - 

3 1 , 2AA6 

1021 

• 

• 

■ M5T0REI 

01 ,2602 

977 

2 

978 

981 

■ 

NDXBR 

EA , 1 aoi 

3^ 

5 

32  828 

MPAC 

ClAA 

17 

705 

I6IO3A 

• MSUCHK 

37,2577 

1023 

• 

• 

■ 

NDXCTR 

E5,1537 

AO 

26 

362  AO5 

MPAC  + 

00*2A23 

951 

2 

949 

• MTABLEl 

31  *2a01 

761 

1 

761 

■ 

NEARERTH 

36,n270 

879 

1 

879 

MPAC- 

00,2A17 

9A9 

2 

9A9 

■ MTABLE 

31 ,235A 

761 

A 

751 

752 

- 

• 

NEARI 

36,3A5A 

88A 

2 

876  880 

MPACSHR 

00,2033 

939 

2 

9A7 

966 

■ MTIMERl 

1172 

2A 

2 

78 

89 

■ 

NEARONE 

15*330A 

336 

1 

33a 

MPACSRND 

00,2050 

9A0 

1 

939 

■ MTIMER2 

1171 

2A 

3 

78 

319 

■ 

nearzerq 

36,3A52 

88A 

1 

870 

MPACVBUF 

760A 

933 

2 

929 

962 

• MTIMER3 

1170 

2A 

2 

78 

89 

■ 

NEGO 

7762 

937 

3 

93101a 

MPCHK 

37*2A3A 

1021 

- 

- 

- 

■ MTIMERA 

1167 

2A 

18 

58 

760 

■ 

NEG12 

00*n676 

976 

3 

9<V6  966 

MPDT08 

EA,1752 

37 

1 

67A 

s 

■ MTImERAT 

1177 

2A 

3 

7A8 

751 

B 

NEg180 

0A,7776 

259 

1 

259 

MPENTRY 

51A1 

753 

5 

668 

700 

■ MTIMERUp 

31,231A 

759 

2 

755 

B 

NEGl 

7763 

93T 

9 

2A9  937 

MPHASEl 

1176 

2A 

2 

78 

8V 

■ MU 

36,3A66 

88A 

1 

883 

B 

NEGl/2 

7736 

937 

6 

84IOIO 

MPHASE2 

1175 

2A 

3 

78 

31^ 

• MUCHTIME 

01  *36lA 

1013 

210121013 

B 

NEG2 

5355 

931 

5 

6hl0lA 

MPHASE3 

117A 

2A 

2 

78 

8V 

• MUEARTH 

30,31A2 

789 

2 

823 

8A3 

B 

NEg3 

5357 

938 

A 

lAOlOlA 

MPHASEA 

1173 

2A 

9 

78 

757 

■ MULTEXIT 

A777 

301 

3 

301 

302 

B 

NEGA 

6lA6 

895 

2 

899IOI A 

mphaseat 

• MULTFAIL 

5007 

NEG5 

238 

1203 

24 

1 

7A8 

3O  1 

I 

3O  1 

Ot)  tZO  f 1 

23ti 

1 

mphAseu= 

31,22A5 

757 

1 

755 

• MULTFLA5 

E6,1517 

A8 

5 

562 

563 

B 

NEg 

7010 

916 

A 

9l6 

16,32A7 

.A8l 

A8l 

21,3A70 

5 7 f 

IO4  i 

• 

• 

• MULTIJtT 

1 

NtCjALrn 

567 

i 

567 

MP  — 

37,2A62 

1021 

- 

• 

. 

■ MUMOON 

30,31AA 

789 

• 

• 

B 

NEGANEGB 

17,5A26 

513 

1 

512 

mplegal 

31,2263 

757 

1 

757 

■ MXM3 

35*3aA2 

610 

3 

60A 

627 

B 

NEGAP05B 

17*3316 

511 

1 

51n 

mpretrn 

EA,1662 

36 

7 

693 

710  s 

■ MXV 

7A05 

928 

1 

902 

B 

NEGBURG 

17,3376 

512 

1 

510 

mptemp 

0125 

16 

63 

16 

976 

■ MYNDX 

E3*165a 

28 

* 

- 

- 

B 

NEGCSPl 

16 , n600 

A88 

1 

A68 

MR12 

E6*1A00 

A5 

A 

122 

563 

B 

NEGCSP2 

17,2577 

501 

- 

• » 

MR13 

E6,1A02 

A5 

3 

123 

56A 

■ NARROWDB 

16*2075 

A55 

1 

A5A 

B 

NEGD 

21,37A1 

59A 

6 

591  593 

MR13STOR 

20,205A 

123 

1 

122 

■ NAVKEYIN 

0016 

53 

5 

150 

s 

B 

NEGDP 

16,31A3 

A80 

3 

A79  A80 

MR2Z 

E6,1A01 

A5 

2 

A5 

56A 

• NBD2 

12,3513 

8O9 

1 

810 

B 

NEGDRIVE 

21,3326 

563 

1 

563 

MR23 

E6,1A03 

A5 

2 

A5 

56A 

■ NBD3 

12,3522 

809 

1 

809 

B 

negfncti 

21,3153 

560 

1 

560 

mrateadd 

1A,3353 

383 

1 

386 

■ NBDONLY 

12,3503 

809 

llOOA 

B 

NEGHDAP 

17,3662 

518 

1 

517 

MRETURN 

1221 

2A 

3 

753 

757 

■ NBDX 

E3*1AAA 

26 

7 

26100A 

B 

NEG. 2 

0A,3010 

259 

1 

259 

MSlOO 

16,2327 

A67 

1 

A66 

• NBDY 

E3,1AA5 

26 

2 

805 

809 

B 

negmax 

7737 

937 

10 

1231005 

MS20120 

20*3006 

551 

1 

551 

» NBDZ 

E3*1AA6 

26 

2 

805 

809 

B 

NEGONE 

7763 

937 

7 

A8i  lOlA 

MS20F 

21,2373 

5A8 

2 

5A1 

• nbpos 

E5,1536 

AO 

A 

398 

A12 

B 

NEgOpT 

0A,2615 

2A9 

1 

2A9 

MS200R 

17,2562 

501 

- 

. 

. 

■ NBPOSPL 

2A,33A6 

AO9 

3 

391 

399 

B 

NEGP 

1 6 f 3 1 4 1 

A80 

1 

A80 

MS30F 

21 ,237A 

5A8 

2 

551 

55A 

• NBRANCH 

07,3350 

737 

2 

^35 

7A3 

B 

negpjet 

16,3127 

A80 

1 

A80 

MS3OP 

16*3601 

a88 

1 

A68 

■ NBSM2 

15*2625 

326 

- 

- 

- 

B 

NEGO 

21*3712 

593 

1 

593 

MS30oR 

17*2563 

501 

1 

A91 

■ NbSm 

15,2622 

326 

9 

338 

786 

B 

negoeror 

17*2277 

A96 

1 

A95 

MS50QR 

17,256A 

5OI 

- 

- 

• 

■ NBSMBIT 

OOOA 

13 

3 

325 

327 

; 

B 

NEGQT 

21 ,3735 

59A 

1 

593 

MSGBUSY 

11,2761 

206 

1 

206 

■ NCDU 

E3,1601 

28 

3 

627 

s 

B 

NEGR 

21,3721 

593 

1 

593 

MSGCNT 

E7*1607 

A3 

8 

20A 

205 

■ ndi 

A555 

290 

A 

231 

270 

B 

NEgRT 

21,37A0 

59A 

1 

593 

MSGSCAN 

11*26A7 

20A 

3 

20A 

205 

• NDCMPTST 

05*2A17 

2A7 

1 

2A7 

B 

NEGSFE 

2A,2726 

AOI 

1 

AOl 

MSGVN 

11*276A 

206 

1 

206 

■ NDPl 

0033 

318 

1 

318 

= 

B 

NEGSGN 

0A,2262 

231 

1 

227 

MSTART 

5175 

75A 

1 

88 

■ NDP2 

0033 

318 

1 

318 

s 

B 

NEGSIZ 

2A,2A70 

398 

1 

398 

MSTATECCI 

31  *202A 

7a8 

1 

7a8 

■ NDX2DPS 

Ea*1aOO 

32 

8 

32 

825 

S 

B 

NEGUQ 

E6,i 522 

aB 

8 

(V8  568 

KeY;  symbols  DEFINED  BY  EQUALS  ARE  FlaGGeF*  s.  OTHERS  ARE  NORMALLY  DEFINED  EXCePT  THOSE  FLAGGED; 

u undefined  e failed  leftover  erase  m multiply  defined  t wrong  Memory  type  mm  multiple  eRROR^ 

N nearly  Defined  by  = j failed  leftover  word  0 oversize-  or  ill-defined  c conflict  in  memory  x misc,  trouble 
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SYMBOL  TA3Le  LiSTINof  INCLUDING  PaGE  nUMBeR  QF  DEFINITION*  AND  NUMBeR  OF  ReFeRenCeS  WljH  FIRST  AND  LASj  PaGe  NU'-iBeRS 


symbol  h 

Definition 

Reference^ 

NEGUR 

E6,1524 

48 

3 

548 

56A 

NEGUSUM 

21,3316 

563 

• 

• 

• 

NEGVEX 

E5,1555 

38 

5 

791 

792 

NEGXDV 

£5,1537 

44 

1 

767 

NETACgET 

20,2445 

528 

2 

527 

528 

NETACNDX 

0061 

52 

10 

514 

528 

NETZERO 

6155 

896 

- 

- 

- 

NEWDAT  A 

12*2207 

95 

1 

95 

NEwDELHI 

34,3514 

627 

2 

626 

629 

NEWDELTA 

36,3333 

881 

1 

882 

NEWDLTAV 

E4* 14l4 

- 30 

- 

- 

- 

. NEwJOb 
NEWLOC 
NEWMODE 
NEWMODEY 
NEwMTImE 
NEWNUV 
NEWOPS 
NEWPHASE 
NEWPRIO 
NEWTIMET 
NEXDLCDJ 

NEXT 

NEXTCDU 

NExTCOL 

NEXTCORE 

NEXTCYLT 

NEXTIME 

NExTNExT 

NEXTSET 

NEXTTHRT 

NEXTTIME 

NEXTTRIM. 

NGUBGH 

NIL 

NINE 

NJ*0 

NJ*R 

NJ*U 

Nj*v 

NJET 

NJ-Q 

NJ-R 


0067 

0065 

611A 

A105 

1210 

EA,1A22 

612A 

A23A 

0063 

1211 

17,2625 

2AI3301 
13*2UA 
07,3525 
01,3105 
EA,1A7A 
E3*160a 
30,3A3A 
06,2550 
06,3120 
Ea*  U20 

06,3000 
2A,3A30 
3A*2A15 
A517 
E6,l660 
E6,1662 
E6, 166a 
E6 , 1 666 
E6,1A61 
E6,1661 
E6 , 1663 


12 

12 

89A 

67 

24 

30 

89A 

77 

12 

24 

503 

4O8 

129 

7A1 

991 

39 

28 

797 

350 

358 

39 

355 

410 

612 

937 

51 

51 

51 

51 

A6 

51 

51 


24  851033 

9 988  995 
11  343  967 
28  197  711 
3 749  75^ 


4 893  9OP 
4 433  63^ 
11  643  998 
2 749 
1 504 


1 408 

4 129  I3I 

2 740  7^^! 

2 990 

1 353  = 

3 628  629  s 


2 350 
2 358  359 
1 350 


2 355 

1 410 

3 607  62l 

2 389  445 

1 51  588 

1 514 

3 513  589 
1 512 

6 470  48l 
511  587 


1 5ii 


symbol  r Definition  references  f 


Nj-U 

NJ-V 

njplace 

NNADTAB 

NNADTEM 

NNTYPTAB 

NNTYPTEM 

NOATTOFF 

NObACKUP 

NOBITS 

NOCHORLO 

N0DE5NB 

N0DES5M 

NODSPLAY 

NODSPOUT 

NODv 

NOEBANK 

NOEND 

NOERR 

NOgImLOC 

NOGIMRUN 

NOGO 

NOIBNKSW 

NOIMUMON 

NOINT 

NO, CORES 

NO.PJETS 

NO.QJETS 

NO.RJETS 

NO.WDS 

NOJET 

NOKILL 

NOMASS 

NOMDNLST 

NOMINIMP 

NOmORE 

NOMSG 

NOMTMLST 

NOOBRSM 

NOOJETS 

NOORON 

NOQRSM 

NORESET 


E6 , 1 665 

51 

E6  * 1667 

5 1 

0145 

52 

23*2052 

282 

0136 

17 

23,2152 

283 

0137 

17 

13*2323 

133 

16,3145 

480 

E5,1576 

41 

35*3004 

445 

10,2412 

168 

10,2361 

167 

37,3677 

1036 

12*2070 

93 

30,2203 

769 

37*3162 

1029 

10,3000 

177 

24*2312 

395 

34,3455 

625 

12,2571 

106 

34,3017 

619 

6117 

894 

12*3203 

117 

07*2243 

716 

01,3045 

990 

E6,1651 

50 

E6,l606 

49 

E6,1607 

49 

6300 

899 

21,3723 

594 

37*3527 

1034 

30,3312 

793 

15,2354 

319 

11*3114 

2IO 

10,2723 

176 

11,2705 

205 

01,2517 

86 

5755 

1011 

17,2272 

496 

C 1 

17 ,2535 

i 

5753 

1011 

13*2501 

137 

3 511  589 
1 513 

11  584  589 
1 281 
8 238  281 
1 281 
5 247  281 
3 102  132 
1 479 
8 383  386 


1 441 
1 168 
1 167 
11036 

1 93 

1 769 
11030 

1 177 

2 395 

4 620  621 
2 106 


1 6l9 
1 934 


716 

990  995 
469  478 
49  552 
518  552 
899  967 
593 


2IO33IO34 

1 790 
1 86 


176  181 
204 
86 
55 

495  496 
500 

55  489 
137 


symbol  h Definition  references  f 


NORM 

34,3307 

623 

1 

624 

NORMALO 

17,2077 

49^ 

2 

467 

492 

NORMGAM 

E4 , 1 605 

31 

- 

. 

- 

NORMLIZE 

30*2317 

774 

3 

58 

774 

NORmLOp 

35,2141 

434 

2 

434 

NORMLPOL 

20,2475 

529 

1 

521 

NORMQADR 

17*2076 

492 

1 

492 

NORMRETN 

17  * j461 

500 

3 

517 

519 

N0RMT4 

12,2006 

9O 

1 

90 

NORMTEST 

00,3461 

971 

- 

- 

- 

normurg 

17,3074 

507 

2 

507 

NOROOT 

17,3756 

519 

1 

518 

NORRGMON 

NOSAVEl 

NOSAVE2 

NOSOL 

NOSTCHG 

N0TBITI2 

NOTRANS 

NOTRHC 

NOTUMBL 

NOULLAGE 

NOUN 

NOUNADD 

NOUNCADR 

NOUNREG 

NOUNTEM 

NOUT 

NOUTCON 

N0VAC2 

N0VAC3 

NOVAC 

NREAD 

NSAMP 

NSBUGD 

NSFLAGD 

NSNAP 

NTIMES 

NTLZPASS 

NUCHANqE 

NUDIRECT 

NUFAZ+10 

NULLFILT 


12,4176 
07,3043 
07,3218 
36,2661 
5751 
04,2445 
17  ,?526 
11,2700 
33,2057 
16,2030 

04*2256 

0135 

0310 
0273 
0112 
0307 
7756 
01,3036 
01  ,3041 
5523 

24,3054 

0425 

24*3447 

24,3445 

0014 

E4,t410 

22*2l2T 

5640 

5634 

4260 

17,2000 


121 

731 

734 

871 

537 

234 

500 

204 

655 

455 

231 

IT 

18 

18 

15 

18 

937 

99O 

990 

988 

404 

20 

410 

410 

316 

39 

820 

999 

999 

77 

491 


7 94  120 
1 731 

1 734 
1 870 

1 535 

2 233 
1 500 

1 655 
9 649  706 

1 227 

24  241  289 

8 238  289 
86  261 

241 

86IO38 
86 
1 98a 
1 991 

6 7IO34 


13 

3 

10 

1 


34 


3 175  177 
5 4I 1 4I2 

4 315  316 
4 350 

3 821  837 
1 999 

1 999 
11000 
1 491 
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symbol  Hi 

Definition 

References 

• 

• 

symbol  h 

Definition 

References 

F 

■ 

symbol  h 

Definition 

References 

NUM 

OA,2070 

228 

9 

227 

22B 

■ 

0C40010 

12,3055 

117 

2 

116 

■ 

0CT73 

11 

*3316 

304 

1 

303 

NUMBALTS 

20,2215 

521 

2 

523 

■ 

OCTlOOOl 

12*3123 

118 

2 

118 

• 

OCT75 

12 

*3060 

117 

2 

ll6 

82 

ei 

OCT1107 

01,2314 

,3324 

NUMGRPS 

7 T60 

87 

2 

9 

• 

83 

1 

83 

■ 

OCT  76 

1 1 

1 

3O4 

NUMSTEP 

06,3021 

355 

. 

• 

m 

■ 

OCTll 

4517 

389 

1 

384 

s 

■ 

0CT77 

01 

,?264 

83 

1 

82 

NUMTIMES  • 

EA*15i1 

39 

3 

355 

S 

■ 

0CT12 

4557 

389 

1 

384 

5 

■ 

0CT7 

7757 

73 

3 

61 

73 

NUV 

12AA 

25 

7 

307 

721 

S 

■ 

OCT14000 

5656 

73 

2 

72 

73 

= 

■ 

0CTAL3 

6301 

899 

1 

937 

NVBNKTEHi 

0332 

18 

1 

27A 

• 

0CT1400 

5370 

938 

8 

611000 

■ 

OCTBACK 

05 

,3250 

267 

1 

269 

0CT140 

13*3500 

154 

150 

♦2431 

3O6 

NVCUOt 

L4  * loO 1 

31 

* 

1 

Uv»  1 1 0 

20 

310 

1 

NvCOm 

0A,22A6 

230 

1 

231 

■ 

OCT15000 

5657 

117 

1 

115 

s 

■ 

ODD 

36 

*3171 

878 

w 

• 

NVOTEM 

0331 

18 

3 

27A 

275 

• 

0CT15 

12,3054 

117 

1 

115 

■ 

OFFGIMO 

21 

*3367 

564 

1 

557 

OCTI7OO 

12,3063 

OFFGIMR 

21 

*3372 

564 

557 

NVSBBdNv' 

AAA6 

274 

I 

274 

117 

1 

111 

1 

nvsbendli 

04*3325 

269 

2 

269 

271 

■ 

OCT1720 

12*3052 

117 

1 

113 

■ 

OFFTIME 

E4 

*1502 

39 

1 

353 

NvSBwAIT 

4646 

294 

51 

147 

428 

■ 

0CT176 

00,2126 

942 

2 

948 

• 

offtimer 

E4 

,1505 

39 

1 

354 

NVSBWTl 

4653 

294 

294 

73 

71 

i 

UL 1 1 7770 

4227 

2 

73 

E4 

, 1 406 

39 

H 

35  3 

NVSUBl 

05*3344 

275 

2 

237 

27A 

■ 

0CT177 

6130 

66 

1 

63 

5 

■ 

OFLOOP 

37 

,3075 

1027 

21028 

NVSUB 

4433 

274 

5 

I53I03A 

■ 

OCTl/2 

22*3651 

850 

1 

850 

■ 

OGC 

E5 

* 1 500 

40 

13 

187 

450 

NVSUBB 

05,2000 

237 

1 

274 

■ 

0CT1/2L 

22,3653 

850 

1 

849 

■ 

OGCADR 

14 

,3671 

389 

• 

a. 

NVSUBCOHi 

4442 

274 

1 

275 

i 

0CT20002 

12,3175 

120 

1 

120 

■ 

OGCECADR 

23 

,3361 

429 

- 

• 

- 

NVSUBENO 

4453 

9OI 

899 

OGCPL 

24 

406 

275 

4 

469 

276 

4554 

1 

• 

H 1 H 

i 

NVSUBMON 

4447 

275 

3 

196 

26A 

■ 

0CT27 

1A,3644 

388 

1 

388 

■ 

OGCZERO 

14 

,2731 

376 

3 

361 

445 

NVSUBSYI 

04*3514 

294 

1 

227 

■ 

OCT3O 

23*33A5 

429 

1 

425 

■ 

OGF 

E3 

* 1 6l5 

27 

6 

62l 

nvsubsyb 

04*2001 

227 

1 

294 

■ 

OCT312 

01*2137 

80 

• 

• 

- 

■ 

O-uFLOw 

37 

,3072 

1027 

- 

• 

- 

NVSUBUSY 

4643 

29A 

4 

206103A 

■ 

0CT31 

35*3370 

451 

1 

433 

■ 

0KC2 

34 

,3360 

624 

2 

624 

NVTEMP 

0113 

15 

8 

153 

29A 

Z 

• 

0CT32002 

12,317A 

120 

1 

120 

■ 

OKDESNB 

10 

,2371 

168 

1 

168 

NXTBNK 

37*3416 

1032 

2IO33IO3A 

• 

OCT34 

13*3477 

154 

1 

150 

■ 

OKDESSM 

10 

*7330 

165 

1 

167 

NXTFL33 

12,2545 

105 

7 

113 

llA 

■ 

0CT37737 

12,2623 

107 

1 

107 

■ 

Okg21 

34 

*3104 

621 

1 

620 

NXTIBT 

12,2533 

105 

3 

105 

• 

0CT37776 

06,2173 

61 

1 

62 

■ 

okphi 

34 

,2775 

618 

1 

6l8 

NXTIFAIU 

12,2350 

99 

12 

108 

112 

i 

OCT3 

6301 

154 

2 

147 

148 

= 

B 

0KT30 

11 

,2713 

205 

2 

204 

211 

nxtifbit 

12,2336 

99 

3 

99 

■ 

0CT40001 

6143 

895 

2 

9381005 

8 

oktheta 

34 

*2755 

617 

1 

617 

587 

131 

131 

34 

cU  • 1 

1 

585 

ULT40Ui0 

13  9 2250 

3 

133 

0KU12 

f 2333 

609 

1 

6U9 

nxtnmbr 

37*3637 

1036 

210351036 

• 

0CT40201 

01,351A 

1008 

11 

005 

B 

0KU21 

34 

,2327 

608 

1 

60a 

nxtonoff 

06*2703 

353 

2 

353 

• 

OCT4O4OO 

6006 

3O2 

1 

3OI 

B 

OKU3I 

34 

*2377 

609 

1 

609 

NxTRCSpR 

20,2715 

535 

3 

535 

536 

■ 

0CT50K 

11,2636 

203 

1 

203 

B 

OLDATAqD 

0427 

20 

4 

175 

181 

NXTRRIAX 

10,2161 

162 

1 

162 

■ 

0CT54 

12,3057 

117 

1 

102 

B 

OLDBTl 

1 163 

24 

1 

773 

NXTRST 

01  ,2270 

83 

2 

82 

83 

■ 

OCT55000 

05,3523 

299 

1 

298 

B 

OLDDATA 

12 

,2167 

95 

1 

95 

NXTSUPR 

37*3443 

1033 

11033 

1 

OCT60000 

06*2436 

74 

1 

73 

B 

OLDPRIO 

4175 

72 

1 

75 

NzACCDOT 

0062 

568 

2 

567 

568 

z 

i 

0CT67 

11*3317 

304 

1 

303 

B 

OLDwFORq 

E6 

,1623 

50 

3 

50 

572 

• 

OCT7OOOO 

21*2560 

553 

1 

553 

B 

OLDWFORR 

E6 

,1624 

50 

2 

458 

572 

obeyqrrc 

17*2264 

495 

1 

494 

■ 

0CT70 

11*3320 

3O4 

1 

303 

B 

OLDXFORP 

E6 

*1426 

45 

6 

45 

469 

OBEYRApE 

16,2662 

473 

- 

- 

- 

■ 

0CT70K 

11*2640 

203 

1 

203 

B 

oldyforp 

E6 

*1427 

45 

2 

469 

OBEYRATE 

16,2653 

A73 

1 

A72 

■ 

OCT71000 

12,3064 

117 

1 

111 

B 

OLDYFORU 

E6 

,1430 

46 

4 

465 

556 

oblate 

07,3253 

736 

• 

• 

■ 

0CT71 

11,3321 

304 

1 

303 

B 

OLDZFORO 

E6 

,1431 

^6 

2 

491 

oblatest 

07*3250 

735 

1 

734 

■ 

0CT72 

11*3323 

3O4 

1 

3O4 

B 

OMEGA 

E6 

*1423 

43 

11 

641 

784 

F 
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SYMBOL  table  LISTING*  INCLUDING  PAGE  NUMBER  OF  DEFINITION*  AND  NUMBER  OF  ReFeReNCeS  WItH  FIRST  AND  LAST  PAGE  NUMBERS 

symbol  h Definition  References  - • symbol  h definition  References  f ■ symbol  h definition  refeRfnces  f 


OMEGA. K 

OmEGAP 

OMEGAPD 

OMEGAO 

OMEGAOD 

OmEGAR 

OMEGARD 

OMEG/MS 

ONE 

ONEORT^jD' 

ONEREV 

ONESEK 

ONETOTWD' 

oneyr 

ONTIME 

OPCHKl 

OPCHK2 

OpCHK 


0061 

E6,1416 

077A 

E6,1417 

0775 
E6*1A21 

0776 
U,3703 

7755 

A163 

27*3060 

3 A * 36 A3 
21*2303 
27*306A 
EA,1A77 
2A,23Al 
2A*23A2 
2A,22A7 


a8 

A5 

21 

A5 

21 

A5 

21 

389 


8 560  561 
18 
12 
20 
6 
19 
7 
2 


937  195 
72  1 

683  2 


A5  785 
21  630 
A3  785 
A55  63O 
A3  785 
A55  630 
370  39O 

621009 

73 

680  68l 


628 

5a6 

683 

39 

396 

396 

395 


628  629 
5a5  55A 
680 


A 
3 
3 

1 35A 


1 396 

2 197  395 


OPCHKP05 

0P0EGIN2 

OPDEGOUT 

2A,3526 
0a,3O31 
oa  *2601 

A12 

259 

2A9 

1 

1 

AO9 

2A9 

- 

0PJUMP2 

6303 

900 

1 

89A 

0PJUMP3 

6317 

901 

1 

900 

ii  1 Aj  rN 

89a 

Or JUMP 

6133 

1 

B94 

OpONLY 

12,2A65 

102 

1 

101 

0PPSGNC2 

3A,3356 

62A 

1 

62A 

oprtrdly 

23,3176 

A26 

6 

AI7 

426 

OP/INERT 

11*2076 

188 

2 

188 

OpTCADR 

0370 

19 

2 

66 

365 

OPTCOARV 

11,2153 

19A 

1 

19A 

OPTDATA 

1A,2503 

371 

3 

361 

37S 

OPTDEGIN 

0a*302A 

259 

1 

258 

OpTNREG 

E5,1617 

A1 

2 

390 

398 

OPTRDRI N 

1A,2526 

371 

1 

379 

OPTSTALL 

13,2760 

lAA 

2 

36A 

365 

OPTX 

0036 

10 

1 

159 

OPTXCMD 

005a 

11 

1 

96 

OpTY 

0035 

10 

9 

120 

3A7 

OPTYCMD 

0053 

11 

2 

96 

163 

OPTYHOLO 

0A17 

20 

2 

176 

185 

ORBINTAO 

33*2536 

664 

2 

657 

688 

0RbINTJ3 

33,3006 

687 

1 

687 

OURRCBI  r 

7755 

45A 

- 

- 

- 

OUTO 

OuTCyCLE 

OUTLIN< 

OUTNEG 

OUTPLUS 

OUTSIDE 

OVCON 

OVERFLOW 

OVERMANU 

Override 

OVFIND 


0010 

3A,337A 

0057 

2A,2650 

2A*263T 

36,3a22 

37*2012 

7072 

3A*36a5 

20,3503 

0111 


53 

62A 

11 

aoo 

aoo 

883 

lOlA 

9I8 

629 

585 

15 


3 90  93 

1 62A 

1 AOO 
1 AOO 

1 883 

11025 

lA  917  9A3 

2 628 
1 58A 

25  66  992 


P16CLS 

P16MXDB 

P16WAKE 

P21 

P37BLAT 

P37bLONg 

PAC 

PACTIVE 

PARE 

PASS 

PASTEVB 

PAXADIDL 

PAxbNK20 

PAXFILT 

PAXISl 

PAXIS 

pAxISADR 

PAX/FILT 

PBIASX 

PBIASY 

PBIASZ 

PBODY 

PCDUX 

PCDUY 

PCDUZ 

pCLOOp 

PCNTF 

PCNTFAD 

PCNTFMAO 

PCNTFmAx 

PCNTJOB 


27,3463  712 

27*3AA7  712 

27*3A32  712 

E3,l601  27 

27*237a  6a2 

27,2372  6A2 

E5*1A76  AO 
01,2276  83 

0002  818 


1 712 

1 712 

2 712 

2 620  621 
2 637 

1 637 


0072 

AA2A 

16*2323 

20,3007 

16,2a50 

EA,1aOO 

16,23A6 

21,2377 

21,2071 

E3,1A36 

E3*1AA0 

E3,1AA2 

EA,1627 

E6,1A11 

E6,1A12 

E6,U13 

01,22A1 

1335 

36,235A 

33*25aO 

30,3367 

30,3A10 


35 
26A 

467 
551 
A69 

3A 

468 
5A8 
5A2 

26 

26 

26 

36 
A3 
A3 
A3 
82 
25 

701 

664 

796 

797 


1 83 

1 820 

A 658  855  = 


A 36  735 
1 779 
1 779 
1 779 
82 

653  797 
696  697 
661  689 
653  701 


1 796 


PCOM 

pCONS 

PDA 

PDDL 

PDUM 

PDvL 

PERCENT 

PERFORM 

PERROR 

pFAlL0|c2 

PFAILOK 

PFCLITE 

PFCTRIM 

PFCuLLg 

PFILTADR 

PFRPTLST 

PGNCSMON 

PGNSCADR 

PHAS16A 

PHAS168 

PHASCHNG 

PHASEl 


E6,i A32 
EA,i512 
0026 
6572 
0006 
6626 
36,3A60 
06 ,3065 
E6 , 1 a66 
13,7302 
13,2307 

22,:\A12 

22*BA16 

22,3A06 

E6,l57l 

E6,1573 

30,7156 

6070 

27,3A3A 

27,3AAl 

aIaT 


PHSBB2 

PHSBBB 

PHSBBA 

PHSBB5 

PHSBB6 

PHSCHNG2 

pHSNAMEl 

PHSNAME2 

PHSNAME3 

PHSNAMEa 

PHSNAME5 

PHSNAME6 


Key:  symbols  defined  by  eQlials  are  flaggep  =.  others  are  normally  Defined  except  those  flagged: 


46 

3A 

AO 

911 
33 

912 
88A 
356 

a6 

132 

132 

8AA 

84A 

8AA 

A9 

A9 

768 

771 

7U 

712 

71 


E3,i 521 
E3,l 523 

E3,1525 
E3,1 527 
E3,l 531 
06,7365 
E3,l 516 
E3,l520 
E3,l 522 
E3*1 S2A 
E3,1 526 
E3,1530 


1 283 

2 859 


I 902 

8 833  8a2 

1 902 
A 869  871 
1 356 

A A64  a80 

1 133 
1 102 


88 


1100  23 


1 

26A 

PHASE2 

1 102 

23 

3 

1 

466 

PHASE3 

1 lOA 

23 

2 

1 

551 

PHASEA 

1 106 

23 

2 

- 

856  = 

PHASE5 

1110 

23 

3 

7 

658 

PHASE6 

1 112 

23 

2 

A 

467 

551 

PHASENUM 

o765 

20 

9 

- 

- 

pHIv 

EA,1A66 

30 

5 

3 

5A1 

5A7 

PH52CADR 

06,2000 

57 

1 

1 

26 

PHSBBl 

E3,1517 

27 

- 

1 83a 
1 83A 

1 833 

A A66  556 
10  5A1  5A7 

2 89  771 

I 771 

I 712 

1 712 

7l  835 

73  88 

79  7A6 
79  89 

79  89 

79  767 
79  89 

86  773 

5 7A0 
61 


1 72 

A 61  75 


u undefined 
n Nearly  defined  by  s 


E failed  leftover  erase 
J failed  LeFtOVeR  word 


M multiply  defined 
0 oversize-  or  ILL-DeFINeO 


T WRONG  Memory  tvPe 
c conflict  in  Memory 


27 

27 

27 
27 
2 7 

73 

27 
2 7 
27 
27 
27 
27 


MM  multiple  errors 
X MISC.  trouble 
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SYMBOL  TABLe  LISTING*  INCLUDING  PaGE  NJMBeR  OF  DEFINITION*  AND  NUMBER  oF  ReFeReNCeS  WItH  FIRSt  aND  I ASt  PAGe  NUMBeRS 


symbol  hi 

Definition 

ReFeReNCeS 

P 

i 

symbol  h 

DeFINIt 

I ON 

ReFeRences 

F 

• 

symbol  h 

Definition 

References 

PHSPART2 

06*2360 

65 

1 

57 

■ 

PIPTIME 

1320 

25 

15 

694 

838 

s 

■ 

POSl/2 

7740 

937 

21005 

PHSPRDTl 

IIU 

23 

5 

62 

75 

■ 

PIPTIMET 

£4,1444 

32 

4 

32 

829 

s 

■ 

POSl/4 

07 

3627 

744 

1 

728 

PHSPRDT2 

1116 

23 

. 

. 

■ 

PIPUSE 

13*2330 

134 

• 

- 

• 

P0S2 

14 

2617 

373 

1 

373 

PHSPRDT3 

1120 

23 

- 

- 

- 

i 

PI/4 

22*3577 

848 

4 

823 

875 

■ 

P0S3 

14 

2635 

373 

1 

373 

PHSPRDTA 

1122 

23 

* 

• 

PIT 

14,3435 

384 

1 

385 

■ 

P0S4 

14 

2656 

37A 

1 

373 

PHSPRDT5 

U2A 

23 

- 

. 

■ 

PITCHBTS 

16,3705 

489 

1 

489 

■ 

P0S5 

14 

2710 

375 

1 

373 

PHSPRDT6 

1126 

23 

- 

■ 

P-RHCCTR 

0043 

46 

4 

472 

495 

= 

■ 

POSANEGB 

17 

3401 

512 

- 

- 

- 

PICKAXI5 

3A,20a2 

604 

1 

60A 

• 

PJETSLEC 

16,2730 

476 

3 

47O 

483 

■ 

POSAPOSB 

17 

3250 

510 

- 

• 

• 

PICKX 

3A*2064’ 

605 

1 

605 

■ 

PJUMPAOR 

E6,16a6 

50 

4 

465 

483 

■ 

POSARG 

5443 

986 

1 

986 

pIESw 

0100 

13 

3 

868 

869 

s 

■ 

PLENTY 

10,2730 

176 

1 

176 

■ 

posbuRg 

17 

3245 

510 

- 

- 

- 

PIF 

£5*1564 

38 

6 

797 

eoo 

= 

i 

PLUSD 

21,3605 

592 

1 

591 

■ 

POSDRIVE 

21 

3330 

563 

1 

563 

PIGNALG 

22,3566 

848 

1 

829 

■ 

PLUSDP 

16,3131 

480 

1 

479 

■ 

P05FNCT1 

21 

3151 

560 

1 

560 

PINACT 

01*2303 

83 

1 

83 

■ 

PLUSDR 

21*3664 

593 

1 

592 

POSGMBL 

24 

3IOI 

405 

3 

391 

399 

PINGSmON 

07*2050 

89 

1 

88 

■ 

PLUSU 

17*3431 

513 

• 

- 

POSGN 

04 

2275 

231 

1 

227 

PIPl 

14,2106 

362 

2 

362 

363 

■ 

PLUSV 

17*3335 

5ll 

1 

511 

■ 

POSITON 

£5 

1 544 

41 

15 

361 

426 

PIP2 

14,2111 

362 

1 

363 

i 

PLUSXDVA 

30,2153 

768 

1 

769 

B 

P05L0AD 

14 

2015 

36l 

- 

- 

- 

PIP2ADR 

14*2134 

363 

3 

362 

363 

i 

PLUSXDVD 

30*2155 

768 

« 

- 

- 

B 

POSMAX 

7735 

937 

59 

8^1010 

PIPZcADR 

30*2105 

767 

2 

766 

767 

■ 

PMBR 

16*3302 

482 

1 

481 

B 

POsNlO 

24 

3555 

412 

1 

409 

PIPABI AS 

£3*1436 

26 

1 

804 

• 

■ 

PMEMORY 

1222 

24 

20 

24 

25 

B 

POSNll 

24 

3566 

412 

1 

4O9 

PIPACHK 

24,2110 

392 

1 

391 

i 

P0INT=90 

21,2372 

548 

1 

547 

B 

POSNl 

24 

3424 

410 

1 

4O9 

PIPAGE 

1160 

24 

3 

767 

783 

s 

• 

POINTER 

0146 

66 

7 

63 

65 

= 

B 

P0SN2 

24 

3433 

410 

1 

4O9 

PIPANO 

£5,15^0 

40 

6 

403 

■ 

POINTVSM 

E3  * 1655 

28 

5 

604 

852 

B 

POSN3 

24 

3A40 

410 

1 

409 

PipASC 

35,3354 

450 

1 

435 

■ 

POLADR 

17*3513 

514 

1 

514 

B 

P0SN4 

24 

3A52 

410 

1 

4O9 

PIPASCF 

£3,1437 

26 

1 

804 

; 

■ 

POLFOUND 

20,2276 

523 

1 

522 

a 

P0SN5 

24 

3A62 

410 

1 

4O9 

PIPASCFX 

£3,1437 

26 

1 

26 

• 

POLISH 

0107 

15 

39 

15 

984 

B 

P0SN6 

24 

3A72 

411 

1 

409 

PIPASCFY 

£3*1441 

26 

- 

- 

■ 

POLLEY 

5411 

985 

2 

985 

B 

P0SN7 

24 

3502 

411 

1 

409 

PIPASCFZ 

£3*1443 

26 

• 

POLRELOC 

0063 

52 

6 

521 

527 

B 

P0SN8 

24 

3515 

411 

1 

409 

PIPASR 

30*2506 

780 

2 

767 

783 

■ 

POLTABLE 

20,2553 

532 

1 

522 

B 

P0SN9 

24 

3544 

412 

1 

409 

PIPAX 

0037 

10 

19 

134 

78l 

s 

1 

POLTEST 

£6,1515 

47 

- 

_ 

B 

POSNJUMP 

14 

2600 

373 

2 

361 

377 

PIPAY 

0040 

10 

9 

134 

78l 

■ 

POLTYPE 

17,3507 

514 

15 

511 

514 

B 

POSNV 

£5 

165A 

42 

2 

A36 

PIPAZ 

OO4I 

10 

10 

134 

781 

= 

■ 

POLTYPEP 

20*2170 

521 

1 

514 

B 

POSP 

16 

3142 

48O 

1 

480 

pIpCHECCI 

30,2116 

768 

1 

768 

■ 

P0Ly2 

7310 

925 

1 

925 

B 

POSQ 

21 

3736 

59A 

1 

593 

PIPCTR 

£5,1512 

43 

2 

768 

z 

• 

POLY 

7265 

924 

6 

729 

975 

B 

POSOEROR 

17 

2330 

496 

1 

495 

PIPEBAN<I 

07,2127 

714 

- 

_ 

■ 

polycnt 

0130 

16 

4 

924 

925 

= 

B 

POSR 

21 

3737 

59^ 

1 

593 

PIPFAIL 

12*2730 

113 

1 

117 

• 

POLYCOM 

7275 

924 

1 

924 

B 

POSSFE 

24 

2730 

401 

1 

4O1 

pIpFREEZ 

13*2342 

134 

1 

134 

• 

POLyLOOp 

7305 

925 

1 

925 

B 

pOSTAND 

11 

3l7A 

213 

1 

187 

PIPFREE 

13,2345 

134 

- 

- 

_ 

• 

POLYRET 

0131 

16 

3 

924 

925 

= 

B 

POSTJUMP 

4243 

888 

36 

88 

752 

PIPINDEX 

£5,1541 

41 

17 

362 

411 

■ 

POLYTEST 

22,3607 

849 

- 

- 

- 

B 

POSTKALC 

33 

2710 

686 

1 

685 

PIPLOOP 

30,2132 

768 

2 

768 

■ 

P00h2 

01,2550 

88 

2 

58 

88 

B 

POsTlET 

27 

2316 

640 

1 

640 

PIPNDx 

E5,1542 

41 

6 

362 

374 

i 

P00H3 

01,2061 

79 

1 

88 

B 

POSTPFIL 

21 

2402 

548 

3 

547 

554 

PIPRETRN 

1316 

25 

3 

780 

783 

z 

i 

POOH 

4261 

88 

2 

679 

773 

B 

POSTQRFL 

21 

2743 

557 

1 

556 

PIPSDONc 

30,2061 

767 

1 

783 

i 

POSl 

14,2612 

373 

1 

373 

B 

POSTRUE 

07 

3027 

73I 

1 

73a 

PIPSTRTS 

35*2111 

433 

1 

59 

i 

POSl/16 

07*3633 

744 

1 

728 

B 

POWRSERS 

7260 

92A 

2 

841 

Key:  symbols  defined  by  equals  are  flagged  =.  others  are  normally  defined  except  those  flagged; 

U undefined  E failed  LEFTD^/ER  ERASE  M MULTIPLY  DEFINED  T WRONG  MEMORY  TvPE  MM  MULTIPLE  ERRORS 

N nearly  defined  by  = J failed  leftover  word  0 OVERSIZE-  OR  ILL-DEFINED  C CONFLICT  IN  MEMORY  X MISC.  TROUBLE 
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symbol  ta3Le  listing*  including  Page  number  o^  Definition*  and  number  of  references  with  first  and  i ast  page  nu-ibeRs 


symbol  hi 

Definition 

References 

PPHMl 

22,3400 

844 

1 

834 

PPHMICS 

22,3402 

844 

1 

838 

PPOLTABLI 

16,3033 

478 

3 

477 

478 

PRAPS 

32,2053 

852 

1 

851 

PRATE 

E4*1530 

34 

4 

858 

859 

pRATECOvi 

E6,1436 

46 

3 

472 

473 

PRATEDIF 

E6,l462 

46 

4 

473 

PRDTTAB 

06,2000 

57 

3 

64 

65 

r\r5CAr>-««A  ^ 

27,3257 

707 

1 

7 A y 

PRtAP2 AD 

f 

pREApS2 

32,2000 

851 

1 

707 

PREAVEG 

36,2364 

702 

1 

695 

PREBJUM2 

preburn 

4116 

22,2000 

67 

817 

1 

701 

- 

PRECOI 

PREDFITM 

PREDOT 

PREFORCE 

PREGBSY 

PREIGN 

PREKALCA 

PRELmTRK 

PRELTERM. 

PRELTERN 

PREMTRXC 

PRENVBSY 

PREREAD 

PREROOT 

PRESINE 

PRESTAND 

PRESTORE 

PRETINIT 

PREVDEP 

pRIOlO 

PRIOll 

PRIO12 

PRIOIB 

PRIOU 

PRI015 

PRIO16 

PRIOIT 

PRIOl 

PRIO2O 

PRIO21 


33f^l55 

27*2204 

7217 

E5.1545 

4626 

32,2103 

33*22S2 

£5,1720 

35,3426 

35,3431 

E5,1717 

4640 

30,2000 

17,3746 

00*3475 

11,3126 

6461 

22,3373 

E3*1740 


657 
638 
923 

38 

293 
852 

658 
42 

451 

452 

42 

294 
765 
519 
972 
211 
907 
843 

28 


5654 
5252 

5655 

5656 

5657 

5660 

5661 
7744 
7740 

5662 


1 634 

2 928  93I 
8 791  792 
2 293  402 
1 851 

1 664 

2 42  447 
1 451 

1 441 


3 441  451  ? 

1 294 

6 58  705 

1 519 

2 972 
1 187 

1 907 

5 817  832 

2 870  881 


7741  1000  1 678 


1000 

1000 

1000 

1000 

1000 

1000 

1000 

1000 

1000 

1000 


61  73 

117  813 
117  29B 
147  852 

I94  8l3 
362  851 


symbol  h Definition  references  f 


PR1022 

PRI023 

PRI024 

PRI025 

PRIO26 

PRIO27 

PRI02 

PRI030 

PRIO3I 

PRI032 

PRI033 

PRI034 

PRI035 

PRI036 

PRI037 

PRIO3 

PRI04 

PRI05 

PRI06 

PRI07 

PRI0CH2 

PRIOCHNG 

PRIOKM 

PRI0R30 

PRIORITY 

PROCTNOn 

PR0G44 

PROG 

PROgLAR^i 

PRT2CADR 

PSIV 

PSKIPADR 

PSTORE 

PTBAD 

PTDTRDE 

PTITRDE 

PTJETLA(J 

PTJMINT6 

PULSEIMJ 

PULSES 

PURGENCY 

PURGEOFF 

PUSH 


5663 

5664 
4260 

5665 

5666 

5667 

77^*3 

5226 

5670 

5671 

5672 


1000 

1000 

1000 

1000 

1000 

1000 

1000 

1000 

1000 

1000 

1000 


5673  1000 

5674  1000 

5675  1000 

5676  1000 

5650  1000 
7742  1000 

5651  1000 

5652  1000 

5653  1000 

01,3255  996 

5575  989 

7740  677 


5226 

0157 

12,2365 

36,2203 

36,2461 

4774 

06,2001 

E4,1474 

16,3616 

36,2611 

01,2310 

14*3451 

14,3424 

16,3174 

16,3573 

15,3674 

7744 

16,3056 

27,2337 

00*321^ 


1 

162 

3 

452 

574 

3 

185 

796 

1 

169 

6 

206 

687 

11034 

7 

67 

938 

2 

660 

810 

3 

146 

766 

3 

84 

901 

4 

3561004 

9 

81 

762 

4 

1541000 

772 

17 

101 

697 

868 

301 

57 

30 

488 

870 

83 

385 

384 

480 

488 

346 

454 

479 

641 

967 


748 

1631014 


1 989 

2 682  711  = 


1 771 

26  85  997 

1 101 
1 696 
1 868 
1 301 

1 63 

2 740 
1 483 


3 82 

2 383 

1 383 

4 480 

3 470  483 

2 367  370 


2 469  471 
1 640 
1 904 


symbol  h Definition  References  f 


PUSHLOC 

PUSHUP 

PUTADD 

PUTC0M2 

PUTCOM 

PUTDCSF2 

PUTDECSF 

PUTDPCOM 

PUTINLST 

PUTNORm 

PUTPOSX 

PUTSFNOR 

putxy 

PUTXYZ 

PWRCNT 

PWRPTR 


0156 

6251 

05,2307 

05,3040 

05,?762 

05,306A 

05,3051 

05,3014 

04,3510 

05,3023 

14,2247 

05*3063 

05,2602 

05,2550 

0130 

0107 


Q 

0+10000 

0*1 

0*2 

Q+NORJTS 

QACCDOT 

QAXIS 

QDIFF 

QERRCALC 

QERROR 

Q-NORJTS 

0-RHCCTR 

QJUMPADR 

OPLAC 

QPLACE 

QPLACES 

QPRET 

ORATEDIF 

QRAXIS 

QRCNTR 

QREADY 

QRERA5 

QR.ISTOq 

ORJOB 

QRJPFILT 

ORNDXER 


n002 
5251 
7006 
7010 
17,2337 
E6,l 532 

E4,l406 
E6,1467 
17,2660 
E6,l467 
17,2306 
0042 
E6 , 1 647 
E5,l 545 
E5 , 1546 
E5,)547 

0O52 

E6 , 1 424 
17,2002 
OO66 
E4,1573 
0066 
E6 , 1 650 
20,3415 
21,2744 
0061 


17 

29 

843 

992 

899 

1 

895 

242 

3 

242 

257 

4 

257 

259 

256 

8 

253 

254 

258 

1 

250 

257 

2 

257 

257 

1 

257 

293 

2 

293 

294 

257 

1 

256 

366 

2 

361 

377 

258 

1 

258 

253 

- 

- 

- 

253 

• 

• 

• 

16 

2 

840 

l5 

4 

839 

■ GO 

■ ^ 
1 0 

10 

355 

67 

1032 

888 

1 

891 

916 

496 

48 

34 

48 

504 

46 

496 

46 

50 

41 

41 

41 

11 

45 

491 

48 

31 

565 

50 

584 

557 

568 


67  989 
496  497 
489  568 


7 657  856 

8 505  558 

1 503 

5 48  557 

3 496 

4 472  495 
3 492  500 

15  372  428 
62  197  427 

6 370  447 


689  981  = 
494  496  s 
490  528 


22  505  563  s 

6 565  = 

1 587 
1 556 

9 567  568  = 


KeY;  SYMBOLS  DEFINED  BY  EQUALS  ARe  FlAGoeU  a,  OTHERS  ARE  NORMALLY  DeFINeD  E^CePT  THOSe  FLAGGED- 


u undefined  e faileD  Leftover  eRase  m multiply  defined  t wrong  memory  tvPe  mm  multiple  eRRorg 

N nearly  defined  BY  = J FAILED  LeFtDVeR  WORD  0 OVeRSIZe-  OR  ILL-DEFINED  C CONFLICT  IN  MEMORY  X MISC.  TROUBLE 
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symbql  lisjIng*  incuudino  Pa^e  nDmber  qf  Definition*  and  numb^ir  qF  ReFeRenCeS  wijH  firsj  and  last  pa^e  ndmbeRS 


symbol  h 

Definition 

References 

F ■ 

symbol  h 

DeF I NITION 

ORUPT 

0012 

10 

17 

921011 

■ 

RATEMAx 

16,3565 

488 

QTEMP 

1154 

772 

2 

775  776 

S I 

RATEMAX* 

16,3564 

487 

otransf 

21,3420 

565 

3 

554  555 

1 

RATER 

32,2507 

858 

QTSN45 

15,3137 

333 

1 

324 

• 

ratesmal 

17,2220 

494 

OTSTpOLy 

22,3647 

850 

1 

849 

■ 

RATIO 

E6,1450 

46 

OUADOF 

22,2047 

818 

- 

- 

■ 

RAVEGON 

E4 , 1 5 14 

30 

ReFeRences  F 

■ SYMbOL  FI 

Definition 

1 

482 

■ 

■ RECALl 

04,3446 

277 

1 

483 

■ RECAL2 

04,3457 

278 

1 

858 

• RECAL3 

04,3464 

278 

1 

494 

■ recaltst 

04*3440 

277 

> 

• 

■ rectify 

07*3426 

739 

6 

58  774  = 

■ RED03.3 

31,2046 

749 

OUADOX 

22*2041 

22,2071 

34,2425 

7741 

17,3035 

E4,1654 

818 

1 

818 

0UAD2F 

QUARTA 

QUARTER 

8 1 6 
612 
937 
507 
40 

5 

4 

606 

971 

507 

360 

625 

976 

UU I V.KUK  o' 
GlUlTLOO<l 

z 

2 

K V r 0 

846 

ROVEC 

E3*1710 

28 

2 

868 

872 

ROXS 

22,3431 

845 

1 

844 

RlDl 

4516 

289 

9 

232 

272 

RIVEC 

E4* 1764 

37 

7 

309 

872 

R2D1 

4517 

289 

4 

232 

93F 

R2FS 

22,3516 

847 

- 

• 

R3D1 

4520 

289 

3 

232 

242 

R 

E4  * 1460 

32 

8 

32 

834 

R+Q*CH<7! 

17,2345 

497 

1 

496 

R + Q-CHK7I 

17,2314 

496 

1 

496 

R*,CHKD3 

17*2357 

497 

1 

496 

RACCDOT 

E6*i534 

48 

2 

564 

RACTCADR 

01,2313 

83 

1 

83 

621 

RAD 

E3  f 1 646 

27 

5 

620 

RC 

Rcalc 

RCO 

RCOM  . 
RCOV 

RCRIT 

rcscntrl 

D ^ C C II  IM  0 

E4*1510 

21,3615 

E4,l774 

E6,1433 

E4*l540 

33,2524 

21,2720 

33 
592 

37 

46 

34 
663 
556 

8 

2 

9 

2 

1 

3 

33 

591 

309 

856 

657 

556 

849 

592 

858 

868 

9 

REDO 

REDOcTR 

REDOMDUE 

REDYTORK 

REFLECT 

REFRCV 

REFRRECT 

DCTCCMMA  T 

11*2332 
1360 
31,2156 
14,3705 
16, 3156 
1252 

1 222 

197 

25 

75Z 

39O 

480 

25 

24 

KLor  JUrlr 

20,2  726 

536 

1 

536 

KtF  oMMA 1 

1274 

25 

rcsmntr 

20*2677 

535 

1 

535 

REFTC 

1266 

25 

RCSmONIT 

12,3203 

535 

1 

117 

REFTCV 

1 266 

25 

RCSPURGE 

27,2306 

640 

1 

640 

REFTOSMl 

07,2412 

721 

RCSVEX 

30*3320 

• 793 

1 

791 

REFTOSM 

07,2403 

721 

RCv 

E4,1430 

30 

5 

713 

739 

5 

Refvcv 

1260 

25 

RD 

E4,1741 

37 

3 

3l9 

REFVRECT 

1230 

25 

ROBADEND 

10,3255 

184 

5 

168 

184 

REFXKEP 

1272 

25 

RDES 

E3*1465 

28 

3 

162 

REGRSAMP 

11*2415 

199 

rdesgain 

10,2635 

173 

1 

172 

REqSLEEp 

13,7431 

136 

RDIFF 

E6,1470 

48 

4 

554 

558 

5 

REGUP 

6267 

899 

ROOT 

E4,1546 

34 

6 

658 

858 

9 

REJALARM 

13,3450 

154 

RDOTBIAS 

10*3157 

181 

1 

178 

REJECT2 

13*3466 

154 

RDOTD 

E4,1440 

34 

7 

658 

857 

5 

REJECT 

13,3453 

154 

RDRl 

14,3072 

379 

1 

389 

REJIN 

13,3444 

154 

RADAREAD 

RAdCAoR 

RADCK 

RADECNT^ 

RADIN 

radmodes 

RADNOOP 

RADSAMP 

RADSTALLI 

RANDCH< 

RATEDIF 

RATEDONE 

RATEDSp 

RATEINDX 

RATEMAX2 


10*2707  176 

0371  19 

2A,2A0A  397 

23,3001  421 

10*3047  178 

0413  20 

10,3223  182 

10,3260  185 

13*2756  144 

37,3016  1026 

£6,1440  46 

16,2566  471 

23,3073  423 

E3,1652  28 

16,3566  488 


1 55 
1 86 
1 409 
1 420 

1 178 

76  55  34O 

2 164  182 
2 185  20O 
8 185  420 


6 496  516 
3 471 
1 423 

11  625  761 
1 482 


RDR37511 

rdrdfree 

RDRINIT 

RDRLOCS 

RDRPTBB 

RDRRETN 

RDS 

RDSP 

ROUM 

READACCS 

READCDU< 

READCDUS 

READCHK 

READOUT 

READPIPS 


14,3064 

379 

1 

362 

■ 

REL 

0065 

52 

11*2447 

199 

. 

. 

. 

m 

REldspi 

4700 

295 

14,3122 

379 

1 

198 

■ 

RELDSP2 

4670 

295 

10,3337 

186 

1 

186 

■ 

RELDSP 

2655 

295 

4062 

55 

1 

54 

■ 

RELDSPON 

2570 

290 

14,3676 

389 

1 

379 

■ 

RELRET 

0134 

17 

22,3431 

844 

2 

825 

826 

s ■ 

RELTABll 

2302 

9l 

E5,1570 

41 

_ 

_ 

_ 

= ■ 

reltab 

2267 

9O 

0010 

33 

5 

833 

843 

= ■ 

remark 

13*^367 

153 

30,2047 

767 

2 

766 

767 

■ 

REmODE 

10,2115 

161 

34,2457 

613 

2 

604 

605 

• 

RENDRAD 

10,3014 

177 

15,3540 

342 

2 

165 

170 

• 

REPEATI 

30,-?030 

787 

D C rv  T rv  1 

^ 0 1 

it tcilH 

1026 

• 

• 

■ 

ntpi pi 

30 , 7520 

f 0 i 

24,2357 

396 

1 

396 

■ 

REPIPIB 

30,2527 

78l 

15,3547 

342 

1 

342 

■ 

REP1P2 

30,7531 

78l 

KEY!  SYMBOLS  DEFINED  BY  EQUALS  ARE  FlAGSED  =.  OThERs  ARE  NORMALLY  DEFINED  EXCEPT  ThOsE  FLAGGED: 

u undefined  e failed  leftover  erase  m multiply  defined  t wrong  Memory  tvPe  mm 

N Nearly  oefined  by  = j failed  leftover  word  0 oversize-  or  ill-defined  c conflict  in  memory  x 


References 

F 

2 

277 

2 

278 

1 

277 

2 

255 

271 

2 

719 

738 

2 

197 

4 

78 

320 

s 

1 

57 

i 

399 

1 

480 

4 

307 

721 

= 

5 

307 

717 

= 

22 

637 

721 

2 

308 

1 

25 

= 

1 

721 

1 

719 

4 

307 

721 

s 

3 

307 

s 

2 

308 

= 

1 

187 

1 

136 

3 

899 

1 

153 

3 

153 

15a 

1 

154 

1 

153 

10 

477 

478 

s 

2 

262 

278 

3 

295 

6 

228 

271 

2 

26a 

294 

3 

295 

s 

1 

92 

4 

93 

266 

5 

151 

154 

1 

I69 

1 

176 

1 

787 

1 

783 

1 

783 

1 

783 

multiple  errors 
MISC.  trouble 
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SYMBOL  table  LISTING*  INCLUDING  PAGE  'TUMBtR  OF  DEFINITION*  AND  NUMBER  OF  ReFeReNCeS  WITH  FIRST  AND  LAST  PAGe  NUMBeRS 

symbol  hi  definition  References  ■ symbol  h definition  references  f ■ symbol  h definition  references  f 


REPIP2B 

REpIpB 

REP1P3B 

REPIPA 

REPIPASH 

REpOSRpT 

REQADD 

REQCOM 

REODATX 

REqDAT  y 

REOOATZ 

REOEXI 

REqExlOC' 

REQMM 

REORET 

REOUESTC' 

REREADAC' 

rerrcal: 

RERROR 

resample 

RESET 

RESETDV 

RESHIFT 

RESTAIER 

restarts 

RESTESTl 

RESTEST3 

RESTOREl 

RESTORE2 

RESTORES 

RESTORE 

RESTOREA 

RESTORSHi 

RESTRTCS 

RESULTCT 

RESUME 

RETBURN 

RETBURNLI 

RETIGNI 

RETIGN2 

RETNON 

RETNTLZ 

RETPREB 


30 

30 

30 

30 

30 

10 

05 

05 

05 

05 

05 

05 

05 

05 

05 
30 
17 
E6 
10 
30 

30 

ZI 

35 

06 
35 

35 
37 
37 
37 
2A 
2A 
13 

E3 

E5 

36 
22 
22 
22 
12 
Ea 
36 


2535 

2537 

25A3 

25A5 

2571 

207A 

2055 

2257 

2252 

225A 

2256 


781 

781 

781 

781 

783 

160 

238 

2A2 

2A2 

2A2 

2A2 


2677 

1A70 

3001 


2166 

3266 

2615 

2132 

2637 

2652 


3065 

3605 

1600 

1673 


355A 

216A 

2571 

2a07 

1A06 


1 783 
1 783 
1 783 
3 783 


1 162 

1 238 

2 2A2 

3 253  25A 
3 253  25A 
3 238  25A 


3321  270 

2166  239 

3302  270 

C30A  18 
3325  270 

2566  783 


50A 

A6 

177 


2A61  778 


769 

562 

AAO 

61 

AAl 

AAl 


1 270 
1 269 

10  86  752 

1 271 

3 58 

A A8  557 
1 181 

2 777 

1 769 
1 563 
1 59 


83 

59 

59 


2200  1017 
2226  1018 
225A  1018 
3057  AOA 


a05 

217 

28 

A1 


2 AOA  a05 
8 A03 
2 216 


5751  1011 
2172  696 


8A8 

820 

827 

101 

32 


A AA6 

lA  392  A05 
55  59A 

1 8Ae 
1 832 
3 819  835 
7 819  83S 
1 102 
3 32  821 


A6 


2025  69A  1 8A8 


RETPREBL 

RETROOT 

RETSAVE 

RETTHRT 

RETTTFNJ 

retxigM 

REVCNT 

RFAILCNT 

RFAILS2 

RFAILS 

RGOODEND 

RHCACTIY 

RHcmON 

RHCMONVN 

RHCMOVED 

RHCP 

RHCR 

RHCY 

RIDEOVER 

RIGHT5 

right 

rightgts 

RIGHT- 

RIGHTR 

RIG-25EC 

RIGNTIOn 

R-OfCHKR 

R-Q-CHKR 

R-RHCCTR 

R-,CHKDB 

RLENGTH 

RMAG 

RMODINIT 

RMODINV 

RNl 

RN 

RNRAD 

ROADBACC 

ROLL 

ROLLRATE 

ROLLSTAL 

ROOTl/2 

ROOTISO 


22*3552 
0122 
00A7 
EA.IAIO 
22*2207 
EAf  1A07 
6276 
E7*1A37 
05*3522 
0A*2AA3 

10,3250 

17*2231 

11*2717 

11*2723 

16*2600 

00A2 

OOAA 

00A3 

20,3606 

a521 

00,2236 

35,2771 
00,2332 
00*2031 
EA*1530 
EA , 1 AOO 
17*2352 
17*2321 
OOAA 
17*2370 
EA , 1 A66 
10a6 
01,2533 

10,21A2 

1050 

1010 

00A6 

10,2302 

E3,1A75 

3A*3762 

3A,3751 

2A,3656 

2A,3657 


8A8 

16 

36 

32 

821 

32 

899 

A3 

299 

233 

18A 

A95 

205 

205 

A71 

10 

10 

10 

588 

289 

9A6 

AAA 

9A8 

939 

30 

30 

A97 

A96 

A6 

A97 

32 

22 

87 

161 

22 

22 

10 

16A 

26 

631 

630 

AlA 

AlA 


1 

831 

2 

839 

891 

s 

2 

785 

787 

s 

1 

32 

= 

3 

818 

819 

3 

32 

836 

s 

2 

899 

937 

2 

185 

199 

1 

298 

1 

233 

9 

177 

189 

1 

A9A 

1 

205 

1 

971 

1 588 
5 255  275 
1 9A8 

1 AAA 
1 9A5 
1 9a7 

1 720 

2 721  775 
1 A96 

1 a96 
A A72  A95 
1 A96 

13  32  827 

7 658  858 
1 86 


7 161  168 
A 772  829 
15  321  851 
A 177  178 
5 16A  183 

2 630 
1 630 
5 All  A12 
1 A12 


R00T2SQ  2A 
R00T3SQ  2A 
ROOTBCK 
ROOTLOOP  22 
ROOTMU  36 
ROOTNExT  16 
ROOT  PS 
ROOTPS+l 
ROOTPSRS  22 
ROOTRET 
ROOTSTOR  22 


ROPECHK 

RORcHK 

R0T180 

ROTANGLE 

ROTRAXIS 

R0TVB2A 

ROUND 

ROUNDSUB 

RP2 

RP 

RPCHKFIN 

RR1AX2 

RRIAXIS 

RRANqLES 

RRATEDIF 

RRAUTCHK 

RRCDUCHK 

RRDESOUN 

RRDESK2 

RRDESNB 

RRDESNBK 

RRDESSm 

RRECT 

RRETURN 

RRGIMON 

RRImuDIF 

RRINDEX 

RRLIMCHK 

RRLIMOK 

RRNb 

RRNBSW 

RROFF 


37 

37 

3A 

30 

17 

13 

00 

ea 

EA 

37 

10 

10 

15 

E6 
12 
12 
10 
1 1 
10 
11 
10 

Ea 

EA 

12 

11 

E3 


15 


12 


^660 
3661 
6A76 
3265 
3A6A 
33A0 
0116 
nll7 
321A 
\ 130 
3325 


AlA 

AlA 

986 

8A0 

88a 

A82 

15 

15 

839 

23 

8A1 


1 Al2 
1 A12 

1 986 

2 8A1 
1 878 
1 A83 

5 890  891 


1 8A9 
8 23  987 

3 891 


3313  IO3I  310161033 


?05l 

7739 

3656 

3202 

7116 

7201 
1 509 


3596  1039 
7163  162 


1026 

- 

- 

- 

609 

1 

60a 

786 

1 

785 

1 

517 

lAe 

3 

1A8 

9Al 

1 

90a 

922 

9 

93a 

997 

32 

5 

33 

823  = 

37 

3 

309 

691  ; 

7155 

3922 

1925 

3071 

3132 

7616 

2256 

7363 

2239 

2306 

1 AOO 
1 AA6 
3152 
2107 
1 A66 
a323 
A361 
3A75 
0011 
3l2A 


162 

339 

A5 

118 

119 
173 

199 

168 

19A 

165 

30 

39 

120 
189 

26 

156 

156 

39i 

13 

118 


11033 
1 162 
1 162 
1 165 

8 999  997  = 

3 118 
1 173 
1 19A 
3 19a  920 
1 188 

1 379 

19  713  739  = 

2 851  852  = 
1 119 

1 188 

3 162 

5 120  168 
1 156 
1 168 

3 165  170  = 
1 ll8 


key:  SYMBOLS  DEFINED  BY  EQUALS  ARE  FlAGSEU 


others  are  normally  defined  except  Those  flagged: 


u undefined 
N Nearly  defined  by 


E failed  leftover  erase 
J failed  leftover  word 


M multiply  defined 
0 oversize-  or  ILL-DeFINeD 


T WRONG  Memory  tvPe 

C CONFLICT  IN  MEMORY 


MM  MULTIPLE  ERRORS 
X MISC.  trouble 
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SYMBqL  TA3Le  LIStINS*  including  PaCE  NJMBtR  oF  DEFINITION*  AND  NUMBER  OF  ReFeReNCeS  WIjH  FIRSj  AND  LASj  PA^E  NUMBERS 


symbol  hi  Definition 

RROPRDLY  23,3171  A26 
RROUT2  10,2215  163 
RROUT  10,2213  163 
RROUTLIM,  10,22A1  163 


RRRANgE  10,2650  17A 
RRRATFPS  23,3006  A21 
RRRDOT  10,2646  174 
RRRET  E3,1464  26 
RRSCALU3  10*2557  ’ i72 
RRSIm2  15,3703  347 
RRSIM  15,3701  347 
RRSIMG  15,3753  347 
RRSONLY  10,2153  162 
RRSPGAIM  10*2212  I62 
RRTARgET  0415  20 
RRTONLY  10,2150  162 


RRTURNON. 

RRUSE 

RRUSEFL3 

RRZ2 

RRZERO 

RRZEROK 

RRZEROS3 

RS 

RSAMPDT 

RSAMPTST 


10*2000 

0010 

7747 

10,2304 

10,2247 

11*2117 

10,2013 

E4,1512 

E7,1436 

11*2417 


158 
13 

164 

164 

164 

190 

159 
33 
43 

199 


RSEMIAUT  11,2502  201 
RSO  E3,l650  27 
RSTACK  E7,ia40  43 
RSTGTSI  35,2016  432 
RSTKLIST  11,2500  200 
RSTKLOC  E7,1435  43 
RTB  01*2663  980 
RTb/bHIZ  01*2662  980 
RTEMP  E4,1512  33 
RTJETADH  17,2611  501 
RTJETIME  17,2401  a97 
RTN  E3,l671  28 

RTNHOLD  E5,1566  38 
RTRANSF  21*3430  565 
RTRNCADHI  06,2005  57 
RTSPLOSH  1162  24 
RTSTBASE  E7,1434  43 


Reference^ 

P 

■ 

symbol  h 

Definition 

References 

F 

■ 

symbol  h 

Definition 

References 

F 

2 

420 

• 

RTSTDEx 

E7,l432 

43 

6 

l85 

201 

■ 

SllCHAN 

37*^575 

1035 

21036 

163 

37*?010 

1 

■ 

RT5TL0C 

E7  9 1435 

43 

4 

43 

I99 

■ 

513BITS 

1014 

510221033 

2 

162 

173 

■ 

RTSTMAX 

E7,1433 

43 

3 

185 

200 

■ 

SI 

0O5O 

11 

36  165  978 

= 

1 

163 

■ 

RTSTNV 

11,2477 

200 

1 

199 

a 

S2 

OO5I 

11 

17  322  741 

= 

1 

186 

1 

RUN 

E5,1550 

41 

16 

371 

428 

a 

S8BITS 

4553 

1014 

21OI7IO33 

- 

1 

420 

• 

RUPTAGN 

1076 

22 

6 

221011 

a 

S*1 

7755 

1014 

2510171036 

s 

37,2717 

1025 

1014 

710181027 

1 

186 

■ 

KUPTQ.HS 

1 

a 

542 

7754 

• 

11 

155 

182 

■ 

RUPTCON 

37*2750 

1025 

11026 

a 

S*3 

6301 

1014 

410161026 

1 

172 

■ 

RUPTREGl 

0070 

12 

72 

48 

826 

a 

S*4 

7753 

1014 

11027 

= 

• 

• 

• 

RUPTREG2 

0071 

12 

35 

48 

775 

a 

S*5 

7760 

1014 

2101q1026 

s 

2 

347 

• 

RUPTREG3 

0072 

12 

15 

48 

890 

a 

S*6 

6276 

1014 

11027 

= 

2 

347 

RUPTREG4 

OO73 

12 

13 

12 

890 

a 

S*7 

7757 

1014 

2IOI5IO23 

= 

2 

160 

16l 

■ 

RUPTSTOR 

0063 

12 

8 

150 

151 

= 

a 

S*MAX 

37*3455 

1033 

I6IOI7IO27 

1 

162 

• 

RUTINIT 

22*3626 

849 

1 

849 

a 

S*ZERO 

7761 

1014 

1410151034 

= 

4 

165 

379 

P 

• 

RUTmXTAb 

23*2475 

288 

1 

281 

a 

SAC 

E5*1474 

40 

. . • 

3 

160 

16l 

■ 

RUTMXTEM 

0143 

17 

2 

255 

281 

a 

SAMEASKl 

34 , 1^363 

624 

1 624 

1 

118 

■ 

RUTPREC 

22*3644 

.850 

• 

a 

SAMODCHK 

23*7556 

417 

1 197 

22*3642 

850 

850 

23*3237 

427 

• 

• 

• 

w 

1 

1 IN 

1 i f 6 

4 

158 

376 

P 

■ 

RUTTABLL 

22,3645 

850 

1 

849 

a 

SAMPLIM 

0414 

20 

9 86  182 

1 

164 

• 

RUTTE5T 

22*3601 

849 

a 

SAMPLSUM 

0415 

20 

6 20  185 

4 

190 

419 

■ 

RV33 

11*2530 

201 

2 

201 

207 

a 

SAMPSUM 

0415 

20 

• . • 

= 

1 

188 

■ 

RVO 

00*3244 

967 

1 

904 

a 

SAMPTIME 

0013 

10 

3 287  291 

2 

158 

164 

i 

RVSTOR 

22,2466 

825 

1 

826 

a 

SAuTLOCS 

14*3340 

383 

1 383 

9 

33 

849 

r 

■ 

RVUPDADR 

33,3255 

692 

1 

685 

a 

SAUTOIFS 

14,^326 

383 

1 197 

5 

185 

20I 

i 

RVUPDATE 

07,2301 

718 

2 

692 

701 

a 

SAVDT 

1147 

23 

3 747 

1 

199 

■ 

RWAITK 

11*2122 

190 

2 

190 

194 

a 

SAVE 

E5*  1620 

41 

15  398  401 

1 

199 

■ 

RXORCHK 

37,3032 

1027 

a 

SAVED! 

E3,1754 

28 

*•  » • 

« 

• 

• 

i 

RY 

E4,1550 

34 

2 

854 

s 

a 

SAVERASE 

E5*l 506 

43 

14  38  44 

= 

17 

185 

287 

a 

SAX  IS 

E4* 1414 

34 

7 65$  856 

= 

1 

58 

■ 

/ACF/ 

1334 

25 

2 

797 

827 

s 

a 

sbitio 

7744 

1014 

. • • 

= 

1 

199 

■ 

/AFC/ 

E4,1564 

33 

8 

33 

836 

z 

a 

SBITll 

7743 

1014 

210311032 

5 

19 

185 

209 

s 

• 

/AFC/CR 

22,3404 

844 

1 

836 

a 

SBIT12 

7742 

1014 

11031 

55 

1 

980 

■ 

/AFC/OLD 

E4*1566 

33 

4 

33 

836 

z 

a 

SBIT13 

7741 

1014 

• » • 

s 

1 

903 

• 

/AF/ 

1336 

25 

3 

790 

797 

z 

a 

SBIT14 

7740 

1014 

410221025 

5= 

2 

834 

= 

i 

/AGREE 

00,2745 

961 

1 

960 

a 

SB1T15 

7737 

1014 

210181032 

= 

1 

495 

• 

/BUF  + 

00,2657 

959 

2 

958 

a 

SBITl 

7755 

1014 

• . - 

= 

1 

501 

■ 

/BUF- 

00*2653 

958 

2 

958 

a 

SBIT2 

7754 

1014 

- - - 

s 

1 

865 

■ 

/MPAC+ 

00*2734 

960 

2 

960 

a 

SBIT3 

7753 

1014 

... 

* 

3 

796 

s 

■ 

/MPAC- 

00,2730 

960 

2 

960 

a 

SBIT4 

7752 

1014 

11030 

3 

55a 

555 

• 

/N0RM2 

00*2672 

959 

1 

959 

a 

SBIT5 

7751 

1014 

* » - 

= 

5 

61 

65 

• 

/norm 

00*2677 

959 

1 

959 

a 

SBIT6 

7750 

1014 

... 

= 

- 

- 

- 

P 

a 

SBIT7 

7747 

1014 

11033 

= 

3 

185 

200 

■ 

SIOBITS 

5356 

1014 

21028 

= 

a 

SBIT8 

7746 

1014 

- - - 

key;  SYMBOLS  DEFINED  BY  EQUALS  ARE  FlAGoEU  =.  OTrERs  ARE  NORMALLY  DEFINED  EXCEPT  ThOsE  FLAGGED: 


U undefined  E failed  leftover  erase  M multiply  defined  T wrong  memory  TvPE  mm  multipie  errors 

N Nearly  oefineo  by  = u failed  leftover  word  o oveRsIZe-  or  ill-deFined  c conflict  in  memory  x misc.  trouble 


A88954A  YJL  SYSTEM  FOR  AGC • NEW  PRO<jRAM  SHEPATIN  BY  EYLES 


DEC  I966 


PAOElObb 


SYMBOL  TASLe  LISTING*  INCLUDING  PaGE  viJMBER  OF  DEFINITION*  AND  NUMBeR  OF  ReFeReNCeS  WItH  FIRSt  AND  LAST  PaGe  NUMBeRS 


symbol  h Definition  Reference^  -■ 


SbIT9 

SBLANKS 

SBNK03 

sbnkoptn 

SbORbIO 

SBORBll 

SBORB12 

SBORB13 

SbORbIA 

SBORBl 

SBORB2 

SbORb3 

SB0RB4 

SBORB5 

SB0RB6 

SBORB7 

SbORbB 

SB0RB9 

SBORBA 

SBORBB2: 

SBORBB 

5bORbBJ3 

SBUSY 

SCADR 

SCALADj 

SCALCHN3' 

SCALDELT 

SCALEA 

SCALEB 

SCALEBND 

SCALECHO 

SCALEDOT 

SCALEDT 

SCALEDT3 

SCALEFAC 

SCALER 

SCALFTR 

SCALSAv 

SCALTJET 

SCAXIS 

SCHZEROS 

SCLRAvmD 

SCLRMDA>/ 


77A5 
37*3613 
5652 

3547 

2336 
2352 
2362 
2373 
2403 
2015 


25 

25 

25 

25 

25 

25 

25 

25 

25 

25 

25 

25 

37 

37 

10 

10 

07 

E4 

E4 

17 

10 

16 

07 

16 

30 

07 

14 

E3 

16 

E3 

35 

07 

07 


2032 

2177 

2212 

2226 

2236 

2247 

2271 

2323 

2156 

2463 

2302 

2453 

3544 

3A77 

3100 

3066 

2164 

1606 

1607 
3164 

3037 

3164 

2165 
2376 
3526 
2163 

3701 

1510 

3344 

1663 

3333 

2202 

2206 


1014 

1035 

1014 

1034 

651 

651 

651 

651 

652 
- 6A5 

645 

6A8 

6A8 

649 

649 

649 

649 

650 
647 

653 
650 
653 

1034 

1033 

180 

178 

714 

31 

31 

509 

178 

480 

714 

468 

801 

714 
389 

27 

483 

28 
450 

715 
715 


2IOI7I03O 
11036 
11031 
11015 
1 650 
1 651 
1 651 
1 651 

1 651 

2 645 

1 645 
1 648 
1 646 
1 648 
1 649 
1 649 
1 57 

1 650 
1 57 

1 652 

2 652  653 
1 653 

11034 
IIO34 
1 178 
1 178 


3 731  734 
6 731  735 

4 508  509 
1 177 

1 480 


1 468 
1 795 

1 371 
4 211  213 

1 481 

10  604  852 

2 409  445 
1 713 

4 719  721 


symbol  h 

Definition 

SCLvAvMD 

07 

,2210 

715 

SCLVMDAV 

07 

,2214 

715 

SCNBAZ 

24 

,3663 

414 

SCNBVER 

24 

*3675 

4I4 

SCOmP 

15 

*3213 

334 

SCOUNT 

1366 

25 

SCOUTEND 

04 

*2663 

250 

SD 

34 

• 2427 

612 

SDISpLAy 

37 

*3524 

1034 

SDSPTAB 

37 

*3607 

1035 

5ECAD 

34 

*2117 

605 

SElEcTX 

23 

*2537 

416 

SELECT Y 

23 

*2543 

416 

SELECTZ 

23 

*2547 

416 

SELFADRS 

37 

*2021 

1015 

SELFBAN< 

5647 

999 

SELFCHK 

37 

*2102 

1016 

SELFERAS 

1355 

25 

SELFRET 

1356 

25 

SELPOSN 

24 

*3402 

' 409 

SENDCH 

15 

*2270 

3I8 

SENDCHA 

15 

*2310 

317 

SENDCHB 

C Cfci r\ r\Ci 

15 

*2275 

*2234 

317 

Qt.ND[)r 

1 5 

318 

senddpa 

15 

*2264 

316 

SENDDPB 

15 

*2245 

316 

SENDDSA 

15 

*2340 

317 

SENDDSB 

15 

*2331 

317 

SENDDSTb 

15 

*2324 

317 

SENDID 

15 

*2150 

314 

SENDIT 

11 

*2553 

202 

SENDPULS 

13 

*2224 

131 

SENDSNAp 

15 

*2216 

315 

SENDTIME 

15 

*2344 

317 

SERVEXIT 

30 

*2312 

773 

SERVICER 

30 

*2115 

768 

SETADR 

01 

♦ 2536 

87 

SETAUG 

04 

,2625 

250 

SETCOARS 

13 

,2231 

131 

SETEl 

34 

,3147 

621 

SETEBANX 

4512 

289 

SETgLOC< 

12 

,2574 

107 

SETIDLE 

16 

*3620 

488 

1 4O9 

2 4O9 
2 334 
310151031 
4 250  251 
1 621 
11033 
11036 


1 416 
1 416 
1 416 
21034 

1 999 

6 871034 

7 861034  = 

2 314 
1 317 

1 317 

2 3l4 
1 316 
1 316 
1 317 

1 317 

2 314 

1 314 

2 202 
1 129 

1 316 

1 314 

6 89  707 

2 58  767 

1 79 

1 249 

2 106  128 
1 621 

2 241  251 
4 106 
1 87 


symbol  H DEfiNiTlON  ReFeReNCeS  F 


SETISSW 

SETLOC 

SETMAXD8 

SETMINDB 

SETNADD 

SETNCADR 

SET0VF2 

SETOVF 

SETpD 

SETRATE 

SETROUND 

setrrctr 

SETRRECR 

SETTIME4 

SETTIME5 

SETTRKF 

SETUPOSp 

SETUPERl 

SETUPER 

SETUPMSG 

SETUPRCK 

SETvAC 

SEVEN 

SFl 

SF2 

SFAIL 

SFCOM 

SFCONSTl 

SFCONST 

SFCONUM 

SFINTAB 

SFINTABR 

SFOUTAb 

SFOUTABR 

SFRETl 

SFRET 

SFRUTMIX 

sfrutnor 

SFTEMPl 

SFTEMP2 

SGNAGREE 

SgNCOM 

SGNOFF 


12*2763 

01 ,3072 
16*2012 
16*?000 
4510 

4502 

7215 

7144 

7637 

16*7034 

00*7272 

10,7224 

10,2106 

12,7133 

16,2300 

4366 

35,2000 

35,2703 

35,3027 

11,2641 

26*2234 

05,3336 

7757 

0072 

0073 
1 36l 

23,2043 

E5,l623 

24,3632 

05,7734 

23,7252 

05,3067 

23,7330 

05,2525 

05,2733 

05,7751 

05,7721 

05,2713 

nll3 

0114 

15,3565 

04,7310 

0113 


115 

99l 

454 

454 
289 
289 

92^ 

920 

934 

455 

946 

163 

160 

93 

466 

157 

67 

442 

445 

204 

30a 

270 

937 

48 

48 

25 

282 

41 

414 

256 

285 
258 

286 
249 

255 

256 
255 
255 

15 

15 

343 

231 

15 


7 IO2  134 
3 991  995 
10  646  7O6 

5 647  677 
2 238  257 

6 238  289 
1 9l8 

1 949 

1 902 

2 647  673 


3 

946 

1 

163 

2 

1 60 

166 

2 

92 

93 

1 

467 

4 

119 

181 

1 

67 

1 

439 

2 

432 

443 

1 

187 

1 

30  7 

1 

270 

19  731014 

6 558  560 

5 558  560 

6 831015 
1 282 

2 399  4OI 

1 393 

2 248  257 
1 282 

1 258 

1 282 
1 248 


4 241  258 
4 247  258 
16  246  282 
2 260 
9 2I3  714 
I 232 
3 231  232 


KEY!  SYMBOLS  DEFINED  BY  EQUALS  ARE  Fla53£U  =,  OTHERS  ARE  NORMALLY  DEFINED  EXCEPT  THOSE  FLAGGED: 


u undefined 
N Nearly  defined  by  = 


E failed  leftover  erase 
j Failed  leftover  word 


M multiply  defined 
0 oversize-  or  ILL-DeFINeD 


T WRONG  Memory  tvPe 
c conflict  in  Memory 


MM  multiple  errors 
X MISC,  trouble 
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SYMBOL  table  LISTING*  INCLUDING  PaGE  NU'^BeR  QF  DEFINITION*  AND  NUMBeR  OF  ReFeReNCeS  WItH  FIRSt  aND  LASj  PaGe  NUMBERS 


SGNON 

SGNTAB 

SGNTOl 

SGNT5T1 

SqOT 

SHAFTA 

SHJUMPl 

sholts 

SHORTMP 

SHORTT 

SHORTV 

SHOTImE 

SHOWIl 

SHOW12 

SHOWl 

SHOW? 

SHOW 

showed 

SHOWSUM 

SHOWVB 

SIGN 

SIGNANSW 

SIGNFIX 

SIgNmpAC 

signret 

signtag 

signtest 

silver 

SIN22.5 

SIN27 

SINbLANci 

SINCDU 

SINCOSCD 

SINE 

SINObL 

sinth 

SISZ 

SIVBl 

SIVB2 

SIVB3 

SIVB4 

SIVB5 

SIVBSEP 


09 

O9 

09 

15 

E5 

E9 

05 

00 

00 

27 

27 

29 

27 

29 

29 

37 

13 

39 

09 

39 

E6 

09 

23 

17 

32 

09 

E9 

30 
00 
27 

15 

25 

25 

25 

25 

25 

25 


0112 

2331 

3000 

2350 

3220 

1566 

1662 

3962 

7351 

2017 

2121 

9729 

2301 

2339 

3602 

2065 

3600 

3571 


15 

232 

259 

232 

339 

91 

36 

298 

.926 

939 

992 

295 

690 

691 
913 
635 

913 

912 


7701 

3350 

2762 

2995 

0115 

1710 

2339 

2520 

3373 

2073 

2550 

1659 

3029 

3977 

3050 

0022 

3203 

2550 


3 231  232  s 

2 231  232 

1 259 

3 232 
1 339 


3 685  691 

1 297 

12  229  877 

2 901 

1 901 
1 295 
1 690 
1 691 
1 913 


3507  1039 
3921  153 


936 

629 

259 

612 

15 

51 

232 

916 

512 

852 

235 

36 

787 

972 

683 

90 

339 

671 


2631  672 

2697  672 

2729  679 

2735  679 

2533  670 


391  908 
391  913 


198 
153 
902 

1 629 

2 258 

19  607  623 


980  983 

231 

399 


1 512 
1 851 
1 235 

10  789  78? 
1 786 
1 909 
1 681 

12  322  387 
1 339 
1 671 

1 57 

1 672 
1 679 

1 679 

2 670 


Six 

SIXTY 

SIZCHK 

SIZETAB 

SIzLOOk 

S-1 

S-2 

S-3 

S-9 

S-7 

S-MAX 

S-zERO 

SXEEPl 

SXEEP2 

SKEEP3 

S<EEP9 

SXEEP5 

SXEEP6 

SXEEP7 

SKIppAXS 

SXIPQRAO 

SKIPORAX 

SLAPl 

SLEEpIE 

SLEFT5 

SL0AD2 

SLOAD 

SLOpEl 

SL0PE2 

SLOPE3 

SL0pE9 

SLOPE 

SLOPEHI 

SLOPELO 

SLOpEMP 

SLOPEMQ 

SLOPEMR 

SMA 

SMALAXIc, 

SMALL2 

SMALL 

SmANgLS^ 

SMAR 


6276  937 

37*2006  1019 
29,3633 
06*2116 
29*2<,69 


9I9 

59 

398 


7763  1019 

5355  1019 
5357  1019 
6196  1019 
37*2016  1019 
37*3956  1033 
7762  1019 

1371 

1372 

1373 
1379 


25 

25 

25 

25 


1375 

1376 

1377 
16*2951 
17,2501 
17*2073 
01*2000 
35,2791 

9537 

6533 

6550 

30,3332 

30*3336 

30*3392 

30,3396 

30,3326 

00,2319 

00,2760 

7735 

21,3727 

21,3730 

3S*3151 

20,2933 

00,3026 

00*3077 

0101 

36*2751 


25 

25 

25 

969 

500 

992 

78 

999 

290 

9IO 

910 

793 

793 

793 

793 

793 

997 

961 
980 
599 
599 

878 

528 

962 
96a 

13 

879 


21  961019  s 

11033 

2 9OI 

2 63  65 

1 398 

610181033  s 

210201029  = 
11020  = 

210151023 
310291028 
210221031  = 
9110151039  = 
1910181036  = 
2710201036  s 
2310201033  s 

l6  811032  s 
1810181039  = 
27  811033  = 

1 988 
1 500 
1 

3 

6 932  995 
1 267 
6 392  910 
1 902 
1 793 


1 791 
1 970 
1 971 
1 979 
3 591 
3 592  593 
1 870 


500 
81  388 


1 527 
1 969 

1 962 

2 868  879  - 
1 870 


symbol  h 

Definition 

SMARSTOR 

36  * ?769 

879 

SMCDURES 

30,2760 

786 

onDLAUv 

19,2263 

366 

SMD/EREF 

15,^110 

332 

SmNbI 

15,2601 

325 

SMNB 

15,7576 

325 

SMODE 

135? 

25 

SmODECHk 

37,7051 

1015 

SMPAC* 

00,3359 

970 

smtorefi 

07,7110 

713 

SMTOREF 

07,2109 

713 

SNl 

00,3522 

973 

SNAPLOOP 

15,2171 

315 

snapshot 

I5,2l69 

315 

SN6LCD 

39*793? 

612 

SOmEERRR 

35*7773 

999 

SOMEKEY 

13,3305 

150 

S0MERR2 

35,2776 

999 

SOMETIME 

1A*3509 

385 

SOpTIONl 

37,7072 

1016 

S0PTI0N2 

37,7073 

1016 

S0PTI0N3 

37,?079 

1016 

SOPTION9 

37,2075 

1016 

SOpTIONB 

37,7076 

1016 

S0PTI0N6 

37*2077 

1016 

S0PTI0N7 

37,2100 

1016 

SOPTION 

3?  , :5A60 

1033 

SOpTIONS 

37,7062 

1015 

SOPTONIO 

37*7101 

1016 

SOPTONll 

37*1(555 

1039 

SOUPLY 

35*3395 

950 

southpr 

E5,1552 

91 

SP3/9 

22,3576 

898 

SP3/8 

22*3572 

898 

SP9/16 

22,3573 

898 

111 

SPARE 

n007 

3 1 i 

SPCOS 

5372 

985 

SPDPMULT 

21*3301 

563 

SPECPLSl 

07*7392 

719 

SPECSTS 

35,7121 

933 

SPECTEST 

01*3062 

991 

Speedy 

36*7712 

871 

SPLOC 

E3,i 677 

28 

2 362  378 

1 37a 

6 165  785 

8 791039 

510151031 

3 969 
1 713 

1 972 

1 315 

2 319 
1 620 


1 150 
1 992 
1 385 
11016 


11032 

21015 


5 392  399 

1 825 

2 825 

1 825 

6 319  320 

3 12?  397 

2 562 


Key:  symbols  defined  by  equals  are  flagged 


others  are  normally  defined  except  those  flagged: 


U undefined 
N nearly  OeFINeD  BY  = 


E failed  Leftover  erase 
J failed  LEf'TOVcR  WORD 


M multiply  defined 
0 oversize-  or  ill-defined 


T WRONG  Memory  tvPe 
C CONFLICT  IN  MEMORY 


1 719 
1 59 

1 995 
3 870  879 
17  856  878 


MM  MULTIPl  E errors 

X Misc.  trouble 
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SYMBOL  table  LI&tING*  INCLUDING  PaGE  \iJMBtR  OF  DEFINITION*  AND  NUMBER  oF  ReFeReNCeS  WItH  FIRST  AND  l AST  PAGe  NUMBERS 
symbol  H'  Definition  references  f ■ symbol  h definition  References  f ■ symbol  h definition  references  f 


SPNDX 

£3*1653 

28 

SpROOTl 

5500 

986 

SPR00T2 

5511 

987 

SPR00T3 

5451 

986 

SPROOT 

5435 

986 

SPSBACU3 

7737 

954 

spsbaku= 

17*3576 

516 

SPSIN 

5373 

985 

SPSRCS 

21,3536 

591 

SPSRCSAO- 

17,3601 

516 

SPT 

5376 

985 

8 

627 

■ STARTSW 

01*2002 

78 

2 

986 

• STATE 

0074 

13 

1 

986 

■ STATECRI 

5222 

754 

1 

987 

■ STATECTR 

1213 

24 

4 

482  563 

■ STATEINT 

07*2216 

7I6 

- 

s • STATENV 

26*2326 

3O9 

1 

505 

• statime 

1340 

25 

2 

122 

■ statorn 

O7 ,2461 

722 

1 

516 

■ STBUFF 

£4,1677 

37 

1 

516 

« STCOUNT 

E4,1715 

37 

1 

985 

■ 5TCTR1 

26,2629 

577 

5PVAC 

5544 

1 1 2 A 

988 

So 

1 1 JU 

2 3 

SORARG 

1131 

23 

SQRESCAL 

21,3293 

562 

SORT 

00*3155 

966 

sortabrt 

00*3352 

969 

SORTNEG 

00*3393 

969 

S0RTNM2 

00,3999 

971 

SORTNORMi 

00,3951 

971 

SORTSHFT 

00,3167 

966 

SORTSUB 

00,3313 

969 

SR 

0021 

10 

SRADRS 

37*2020 

1015 

SRDDV 

00,2029 

939 

SRGHT5 

13,3611 

217 

SRS2 

E9 , 1 530 

33 

SRTEST 

00*3425 

971 

SSp 

6667 

912 

ST  ADR 

6413 

9O5 

STALL 

13,2763 

199 

STAR 

E5 , 1966 

90 

STARAD 

E5,1999 

90 

3 693  752 
2 985 
5 986  987 
I 562 

1 909 

2 969 

I 969' 

1 971 
1 971 
1 966 


STCTR 

STDESIG 

STEERADR 

STEPDLYT 

STEPEXIT 

5TILL00< 

STILLRCS 

STODLCDJ 

STOPRATE 

stoptest 


3 962  974 

50  631033  s 

11017 

1 962 

2 216 

4 33  823  s 
1 970 

1 902 
1 904 
3 144 

39  330  909 


STORASE 

STORCDUY 

STORCDUZ 

STORCOM 

STOREl 

ST0RE2 

STORE 

STOREDTa 

STOREEl 

STOREPL 

ST0RETA3 

ST0RE*1 


26*2621 
10*2931 
E6*1593 
E9*1525 
E9* 1609 
24,2622 
17*2755 
17*2653 
16*2057 
24*2762 

1161 

£6,1537 

E6,1540 

5077 

6672 

34,3166 

6962 

35,3090 

34,3157 

E5,1551 

36*3174 

6454 


577 

169 

49 

39 

31 

400 

505 

504 

955 

902 

29 

99 

99 

746 

912 

622 

907 

446 

621 

41 

878 

907 


- 

- 

- 

SUBTR 

00,3651 

975 

1 

976 

33 

13 

983 

suhalfa 

34,7752 

617 

1 

6I7 

2 

749 

754 

suhalfap 

39,2772 

618 

1 

618 

3 

748 

754 

SUMRATEU 

E6,: 621 

50 

5 

50 

573 

1 

748 

SUMRATER 

E6 , T 622 

50 

4 

458 

573 

= 

2 

305 

SUMTJ 

16,3393 

482 

1 

483 

6 

321 

826  = 

SUNpOS 

07,3665 

745 

1 

735 

1 

722 

SUNVEC 

O7 ,367^ 

745 

1 

745 

s 

52 

303 

320 

SUPDACAL 

6263 

889 

11031 

6 

305 

320 

SUPEROll 

Ciipspni  A/s 

5366 

938 

- 

- 

- 

1 

578 

oUPcRlOO 

7747 

938 

• 

• 

1 

577 

1 A 0 

SUPERBNK 

Cl  1 rv  C 0 0 1 1 

0007 

“a  C 7 

53 

5 

889 

892 

= 

2 

i 0 i 

169 

6UPER6W 

892 

3 

541 

547 

SUPRCON 

37,2007 

1019 

11033 

1 

355 

: 

SVCT3 

6734 

1009 

3 

2901004 

3 

717 

741  = 

SVEXI3AD 

27,3265 

707 

1 

705 

1 

400 

SVEXADRS 

27,2455 

642 

2 

639 

= 

6 

504 

557 

SVEXITAD 

27,7455 

643 

2 

642 

706 

CVir^CW  T T 

675 

670 

1 

509 

5VREXI T 

25 f 276^ 

1 

8 

969 

706 

SWBIT 

0121 

IS 

5 

982 

989 

= 

2 

900 

401 

SWBRANCH 

6764 

915 

1 

989 

••  s 

SWCALL 

5230 

888 

3 

83 

383 

9 

542 

547 

SWINIT 

01*7590 

87 

1 

78 

3 

595 

547 

Switch 

E5  * 1 536 

44 

• 

• 

— 

• 

3 

746 

747 

SWITCHES 

01,7731 

982 

1 

989 

1 

944 

SWITNJS 

20,3526 

586 

1 

585 

8ll 

1 

621 

SWRETURN 

52.51 

888 

7 

57 

6 

906 

SW/ 

01*7731 

989 

1 

903 

= 

2 

434 

446 

SWSgN 

09*3405 

272 

1 

272 

1 

621 

SWSKIP 

01 ,3012 

984 

2 

989 

13 

362 

424 

SWSTORE 

01*2766 

983 

2 

983 

1 

878 

5WTAB 

O9  * 3434 

273 

4 

272 

277 

1 

9O6 

SwwQRD 

nl20 

16 

2 

982 

983 

= 

STARM 

CTADmA^ 

0090 

40 

- 

- 

- 

0 1 AKT 

1 6 ,2 192 

464 

STARTDES 

10*2331 

166 

1 

168 

STARTDTl 

35*3550 

813 

1 

812 

STARTDT2 

35,3552 

813 

1 

812 

STARTEB 

01,2524 

87 

1 

84 

STARTSB2 

STARTSIM, 

01,2326 

84 

1 

88 

0 1 ,2003 

78 

STARTSTO* 

6474 

908 

- 

- 

. 

STARTSJ3 

01,2322 

84 

2 

78 

8l 

STORE, 2 

C T ^ f 1 1 1 1 M n 

6957 

9O7 

1 

906 

SI  OR JUMP 

6932 

9O6 

1 

9O5 

STORRSLT 

19*2456 

371 

3 

362 

363 

STRExIT 

E5*1533 

99 

> 

- 

- 

STRTGYR2 

13,2450 

137 

9 

138 

U1 

STRTGYRD 

13,2444 

137 

2 

135 

140 

STRTWACH 

29,2572 

399 

- 

- 

• 

STSHOSUM 

37,3315 

1031 

11039 

STUP2DP5 

22,2233 

822 

•* 

• 

• 

SUBABORT 

27,2901 

692 

1 

228 

SXA  01,7577  977  1 9O3 
SYSTEST  11,2327  197  1 187 
S(X)C(X)  07,?677  72B  1 726 


T2  32,2670  86l  I 858 

T3  32,7656  860  1 858 

T3RPTBB  9056  55  1 59 

T3RUPT2  01,8533  lOlO  11011 

T3RUPT  01,3530  1010  2 59  55 

T9DAP  12,3034  116  2 98  116 


Key:  symbols  defined  by  equals  are  flagsed  =,  others  are  normally  defined  except  those  flagged: 

u undefined  e Failed  leftover  erase  m multiply  defined  t wrong  memory  tvPe  mm  multiple  errors 

N nearly  Defined  by  = j failed  leftover  word  o oversize-  or  ill-defined  c conflict  in  memory  x misc.  trouble 
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SYMBOL  TABLt  LISjlNSt  INCLUDING  PaGe  NJMBfcR  OF  DEFINITION*  AND  NUMBeR  OF  ReFeReNCeS  WItH  FIRSj  aND  LASt  PAGe  NUmBeRS 


symbol  h 

Definition 

References 

• 

symbol  h 

Definition 

References 

F 

B 

symbol  h 

Definition 

References 

F 

TAJUMP 

12,213A 

9A 

- 

- 

- 

■ 

TbRL 

0003 

818 

- 

- 

- 

3 

B 

TEMPP2 

0072 

73 

5 

71 

74 

= 

taloc 

03A6 

19 

8 

79 

93 

i 

TBRLING 

22,2123 

8l9 

A 

8l8 

8I9 

B 

TEMPP 

0062 

73 

6 

72 

74 

- 

talocrst 

01,2236 

82 

1 

82 

i 

TBROUAD 

22,2117 

8l9 

3 

8l8 

819 

B 

TEMPPHS 

OlAA 

66 

9 

61 

65 

* 

TaRPTBB 

A063 

55 

1 

5a 

■ 

TBUP 

EA  * 1 426 

34 

5 

857 

863 

= 

B 

TEMPPR 

0070 

73 

2 

72 

74 

= 

TARUPT 

12,2000 

90 

1 

5A 

■ 

TCILMP 

31 ,22AA 

756 

1 

756 

B 

TEMPSW2 

0066 

73 

4 

71 

74 

- 

TARUPTA 

12,2030 

92 

2 

55 

9O 

i 

TC 

EA , 1 AAA 

30 

5 

713 

741 

= 

B 

TEMPSW 

0065 

73 

7 

71 

74 

= 

T5ADR 

1000- 

21 

20 

5A 

556 

i 

T C+TCF 

37,2103 

1016 

liUAb 

B 

TEMPsWCH 

0147 

66 

3 

6 1 

65 

T6ADR 

S037 

A'61 

1 

5a 

■ 

TCFENDUP 

31*2207 

755 

1 

756 

B 

TEMPTIME 

E5,l561 

41 

2 

37o 

T6j0b 

50A5 

A6l 

1 

A85 

1 

TCFINDVC 

A551 

290 

1 

270 

B 

TEmTrREL 

1 154 

24 

2 

452 

635 

z 

A6l 

A6l 

562 

TCNOVAC 

57AI 

T C M V 

13 

24 

785 

T 6 JOBCH  \l 

SOAl 

9 

■ 

290 

1 

270 

B 

1 tMX 

1 15A 

24 

• 

T6NEXT 

1002 

21 

23 

A6l 

AST 

» 

TCO 

EA,1A52 

34 

A 

853 

862 

= 

B 

TEMXY 

1 157 

24 

6 

781 

783 

S 

T6NEXTJT 

lOOA 

21 

17 

A61 

487 

■ 

TC0*15 

33*2AA6 

662 

- 

- 

- 

B 

TEMY 

1 155 

24 

5 

66(, 

783 

= 

TC0*5 

33,2436 

662 

662 

temz 

7 ^ 

7 

781 

783 

T 6NXT :♦ 

1 6 , BS22 

A87 

1 

A86 

■ 

1 

B 

1 1 56 

S 

T6NZER0 

S055 

A6l 

1 

A6l 

■ 

TCOUNTFC 

22,3065 

835 

1 

835 

B 

TEN 

4557 

937 

9 

851 

035 

= 

T60FFN0W 

16,3A23 

A86 

1 

A85 

■ 

TCO 

7011 

67 

3 

67 

295 

= 

B 

TENMS 

37,2725 

1025 

11025 

T60NN0W 

16,3AA1 

A86 

2 

A85 

■ 

TCOBNKOO 

00*3424 

970 

1 

970 

8 

TEPHEM 

E3*i771 

29 

2 

637 

680 

T6RPTBB 

A055 

55 

_ 

* 

■ 

TCSUBTR 

00,3677 

976 

1 

974 

B 

TERMA 

E6,1 512 

47 

21 

481 

519 

T A D 1 fcl  T LJ 

5735 

290 

12 

482 

519 

T AdUN I H 

1 2 , 2 lOS 

93 

1 

93 

• 

1 LTblsUvR 

• 

• 

• 

B 

1 EKMb 

E6 , 1 5 1 A 

H ( 

TABLTTF 

EA,1A33 

32 

8 

32 

8A8 

z 

■ 

TCWAIT 

4550 

290 

1 

271 

B 

TERMEXTV 

11,2055 

188 

8 

191 

203 

TABLTTFL 

22*3550 

8a8 

- 

- 

- 

■ 

TDEC 

EA*1566 

30 

121 

57 

775 

5 

B 

TEST 

01,3000 

984 

1 

98(, 

tabplace 

01A6 

52 

18 

581 

586 

5 

■ 

TDECADR 

33,2527 

663 

3 

656 

664 

B 

TESTCADR 

11,2362 

197 

1 

197 

TAD 

7133 

920 

1 

902 

■ 

TDELTAV 

EA , lAl A 

30 

5 

713 

741 

S 

B 

TESTCALL 

24,2453 

398 

4 

39a 

402 

TAGS 

E3,1672 

28 

2 

868 

872 

■ 

TDI 

EA,1665 

36 

A 

684 

685 

B 

TESTLODX 

22,3321 

841 

1 

84l 

TAGSUB 

01 *265a 

*7  H 

1770 

25 

307 

722 

T c c T 1 

07  ,?130 

C 

716 

720 

9(9 

A 

9(1 

9 f ° 

■ 

TE 

2 

• 

B 

TEST  LUUH 

714 

TANG 

0A23 

20 

23 

20 

A20 

■ 

temi 

0131 

16 

5 

16 

962 

B 

TESTNN 

05,2037 

236 

1 

264 

TANOBL 

27*305A 

683 

2 

681 

1 

TEM2 

0132 

16 

8 

16 

347 

B 

TESTNO 

E5,1563 

41 

15 

398 

420 

TARl 

1A,2356 

368 

1 

369 

■ 

TEM3 

0133 

16 

1 

16 

B 

TESTNV 

11,5403 

198 

1 

197 

TAR/EREF 

1A*2350 

368 

3 

365 

379 

■ 

TEM4 

0134 

16 

3 

17 

B 

TESTOFUF 

04*3113 

261 

4 

258 

265 

35,355A 

813 

0135 

17 

1 

17 

16,3000 

477 

A77 

T A 5K  1 

1 

812 

• 

TEm5 

B 

TEST  pUL 

J 

TASK2 

35,3561 

813 

1 

813 

■ 

TEMK 

1127 

23 

10 

985 

B 

TESTSIGN 

16,2746 

477 

1 

476 

TASKAOUT 

25,2776 

675 

_ 

_ 

_ 

■ 

TEMP2G 

0145 

66 

9 

61 

65 

= 

B 

TESTTIME 

24,3637 

414 

1 

391 

TASKOVER 

5745 

1011 

136 

96103^ 

■ 

TEMP 

E5,1575 

Al 

8 

383 

386 

= 

B 

TESTVB 

05*2033 

237 

- 

- 

- 

TASkSETR 

33,2550 

66A 

3 

660 

688 

■ 

TEmpACC 

0150 

52 

5 

581 

583 

5 

B 

testxact 

11,2040 

187 

8 

190 

203 

TAU 

EA,1560 

30 

1 

723 

S 

■ 

TEMPADD 

E5,l57A 

Al 

5 

385 

386 

= 

B 

TET 

E4,1446 

30 

8 

282 

817 

= 

tavegon 

EA,1510 

30 

2 

7l9 

77A 

z 

■ 

TEMPAOS 

0147 

52 

3 

582 

583 

= 

B 

TEVENT 

E4,i 723 

37 

7 

320 

771 

tazeli 

E5,1553 

A1 

A 

368 

371 

■ 

TEMPBB 

006a 

73 

1 

72 

s 

B 

TF 

E3*i673 

28 

2 

868 

870 

TbASEI 

1113 

23 

A 

62 

77 

• 

tempbbcn 

0073 

73 

6 

72 

74 

s 

B 

TFACT 

36,3472 

884 

1 

868 

s 

TBASE2 

1115 

23 

2 

7A6 

7A7 

• 

TEMPERR 

0062 

52 

- 

- 

- 

= 

B 

TFL 

E4,1566 

35 

2 

856 

868 

= 

TBASE3 

1117 

23 

- 

- 

■ 

TEMPG2 

0071 

73 

3 

71 

74 

- 

■ - 

TGENTRY 

21,2746 

557 

1 

557 

Td A cCA 

1 1 '7  1 

*7  “i 

1 

7 7 

T/- A 

1 7 

22 

^ S a 

861 

i I C 1 

C 0 

1 EMPG 

UU&  i 

f 3 

i 1 

f C 

f r 

3 

i 

CH ♦ 1 r H f 

J 1 

0 7 0 

TBASES 

1123 

23 

- 

- 

i 

TEMPNET 

0151 

52 

9 

581 

590 

s 

B 

TGOEST 

33,2512 

663 

1 

658 

TBASE6 

1125 

23 

- 

- 

i 

TEMPNM 

0063 

73 

3 

72 

75 

= 

B 

TGOFFCAL 

21,3441 

567 

2 

557 

TBRIGAL 

22,2113 

8l9 

1 

818 

■ 

TEMPOK 

12,2635 

108 

2 

108 

B 

TGOFFNOW 

21,3525 

568 

3 

567 

568 

KEY!  sYMBDLs  DEFINED  BY  EQUALS  ARE  FLAGGED  OThERs  ARE  NORMALLY  DEFINED  EXCEPT  ThOsE  FLAGGED: 

u undefined  e failed  leftover  erase  m multiply  defined  t wrong  Memory  tvPe  mm  multiple  eRR0R^> 

N nearly  Defined  by  = j failed  leftover  word  o oversize-  or  ill-defineD  c conflict  in  mek.ory  x misc,  trouble 
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SYMBqL  TA3Le  1-ISTlNGt  INCLUDING  PaGE  sUMBtR  QF  DEFINITION*  AND  NUMBER  qF  ReFe^ENCeS  WIjH  FIRSt  aND  LAST  PAGe  NUMBERS 

symbol  H'  definition  References  f . symbol  r definition  References  f ■ symbol  h definition  references  f 


TGRR 

THBUF 

THCOMMl 

THCOMM2 

THETA 

THETAADR 

THETAD 

THETADLD 

THETAN  ■ 

THETASM 

THETAX 

THIRTEEN 

THISPI 

THISpOLY 

THLDI 

THRICOMM: 

THRITIME 

THR2COMMi 

THREE 

THREE/8 

THROTADD 

THROTAS<i 

THROTCOLI 

THROTCON 

THROTONl 

THROTON 

THRSbITS 

THRSHLD* 

THRSTADRl 

THRSTART 

THRSTCmD 

THRSTLOC 

THRTSTEP 

THRUST 

THRUSTLD 

TIGU 

TIG1U26 

TlGll-15 

TiGll-lS 

TIGll-23 

TIG11-3D 

TIG13 

TIg13-33 


E3 

,1746 

28 

E4 

,1405 

39 

E4 

,1630 

39 

E4 

*1636 

40 

0024 

40 

14 

389 

23 

0400 

20 

,3104 

424 

E5 

,1624 

42 

38 

*3305 

880 

E5 

,l6l6 

42 

00 

,3115 

964 

38 

*2747 

873 

0065 

52 

23 

,3112 

424 

06 

,3164 

359 

E4 

,1622 

39 

06 

*3136 

358 

6301 

937 

07 

,3623 

744 

14 

,3351 

383 

14 

*3462 

385 

22 

,3556 

848 

30 

,3377 

796 

06 

,3156 

359 

06 

*3174 

359 

14 

,3647 

389 

30 

,2231 

770 

33 

,2531 

664 

06 

*3124 

358 

E6 

,1523 

48 

25 

,2465 

653 

E4 

*l605 

39 

0055 

11 

30 

,2171 

769 

36 

,2152 

696 

36 

,2161 

696 

38 

*2142 

695 

38 

,2136 

695 

36 

,2133 

695 

^ 0 

^ciUc 

695 

27 

*3174 

705 

27 

,3142 

705 

I7  A52  68^ 

2 359 

1 359 
1 358 
7 32A  389 
1 387 

28  128  427 
11  417  4IB 
13  439  445 
1 879 


2 440 
1 962 
1 873 
8 522  526 
1 424 
1 359 

1 359 

1 359 

0 651036 

2 733  74A 

1 385 

2 384  38S 


2 832 
1 848 

1 358 

2 358  359 

1 769 
1 660 
1 349 
9 466  689 
1 653 

13  358  359 
4 359  800 
1 769 


1 694 
1 704 


TIG4-15 

TIG4-16 

TIG4-30 

TIG4"34 

TIG4-36 

TIG4-37 

TIG4-41 

T1G4-48 

TIG4-49 

T1G4-51 

TIG4-7.5 

TIG9-0 

TIG9-36 

TIG9-4 

TIG-30 

TIG-7.5 

TIGN 

TILT 

TImAR 

TIMEl 

TIME2 

TIME3 

TIME4 

TIME5 

TIME6 

TIME 

TImECONv 

TIMEDIFF 

TIMEHOLO 

TIMELONG 

TImEOFFd 

TIMEOFFR 

TIMER 

TIMESAV 

TImESTEp 

TIMETEST 

TIMEWACH 

TINT 

TIpTOE 

TIX 

TJETADR 

TJETLAW 

TJETSCAL 


33,2342 

33,2336 

33,2331 

33*2321 

33,2306 

33,2300 

33,2265 

33,2137 

33,2134 

33*2063 

33,2346 

33,3055 

33*2767 

33,3045 

25,2770 
36,2146 
E4,1667 
E3*1  T65 
E3,1512 

0025 
0024 

0026 

0027 

0030 

0031 
E4*1506 
36,2651 
E3,l5l4 

0421 

36*3313 

E6,1535 
E6 , 1 536 

E5*l624 

E3*1506 

07,3376 

06,2202 

24,2631 

E4*1772 

30,3473 

01,2630 

0062 

17,3603 

17,3752 


660 

660 

660 

660 

659 

659 

659 
657 
657 
656 

660 
688 

687 

688 
675 
695 

36 
28 
27 
10 
10 
10 

10 

10 

10 

34 

871 

27 

20 

880 

48 

48 

41 

27 

738 

62 

400 

37 
800 
978 

52 

517 

519 


1 659 

1 657 


1 688 
1 686 
1 688 
2 672 


6 

2 

9 

I9 

33 

5 


685  775 
638 

211  213 
55  812 
64  781 
841010 


841025 
84  554 
11  461  487 
A 857  859 
2 870  871 
2 213 
8 175  672 
1 880 


5 

11 


2 400 
5 211  213 
2 714 
1 65 

1 400 
4 309  856 
1 799 

1 903 

4 493  528 

2 a88  502 


1 517 


TjETSIGN 

TJSR 

TJSUM 

TKNOWN 

TLIFTOFF 

TLIM 

TLOAD 

TM 

TMALM 

TMANUCHK 

TMARK 

TMESTORE 

TMEXITL 

TMFAILI 

TMFAIL2 

TMFI 

TMINAT16 

TMINDEX 

tmis 

TMTSK 

TNONTEST 

TNUV 

T0C0N2 

TOFJTCHQ 

TOJTLST 

TOOBAD 

TORK 

TORKJETl 

TORKJET 

TORKTABL 

TORKVEC 

TORKX 

TORKY 

TORKZ 

TORqgYRS 

TORQGYRV 

TOROINCH 

TORQNDX 

torque 

TORQUEV 

TOSMODE 

TP 

tpagree 


E6,1435 
E6 , 1 5 1 6 
17,3751 
33*2232 

E3,1750 

12,2624 

6537 

E3,1644 

575I 

34*3570 

E5,l 564 
36,3300 
15,7261 
13,3603 
13,3576 
E3,1601 
16,3572 
E7,i402 
E3,1601 
30,2411 

12,7352 

E4*1422 

4210 

E6,1475 

17.2552 
3A*3007 
23,2530 
26,7746 
26,2744 
20,2456 
16,3407 

23.2553 

23*7554 

23*2555 

11,7266 

11,2302 

35,2717 

E5,i574 

24,2077 

17,2462 


46 

48 
519 
658 

28 

108 

910 

28 

217 

628 

41 
880 
315 
216 
216 

27 

488 

43 

27 

777 

100 

30 

72 

47 
501 
619 
416 
579 
579 
529 
483 
416 

416 

416 

195 

195 

442 

42 
392 
500 

1034 

49 
926 


8 470  483 


1 519 

1 857 

2 639  640 

1 99 

2 6l3  902 
4 626  628 


1 216 


8 364  452 
5 879  880 
1 315 


13 


217 

606  607 


2 
9 

2 482  483 
12  315  317 

27  606 
1 779 
1 
4 


98 

713  741 


1 73 

19  470  501 
3 5O0  501 

2 605 

1 416 

2 577  578 

1 577 

2 523 
1 478 
1 416 

1 416 
1 416 
1 187 
1 195 
1 442 
6 391  444 

1 443 

2 494  497 
210341035 

14  49  483 

8 135  944 


KeY!  symbols  Defined  by  equals  are  flaggeu  s.  others  are  normally  deFined  e^CePt  those  flagged: 

u undefined  e failed  LEf'TOVER  eRASe  M MULTIPLY  DEFINED  T WRONG  MeMORY  TVPe  MM  MULTIPLE  ERRORS 

N nearly  Defined  by  = j failed  leftover  word  0 oversize-  or  ill-defined  c conflict  in  memory  x misc.  trouble 
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SYMBOL  table  LISTING*  INCLUDING  PaGE  NUMBER  OF  DEFINITION*  AND  NUMBeR  OF  ReFeReNCeS  WItH  FIRSt  aND  LAST  PAGe  NUMBERS 


symbol  Hi  Definition  References 


symbol  h Definition  References  f 


symbol  h 


TPDvL 

TRIP 

TPIPOLD 

TPLEFT7 

TpmODE 

TPRELTER 

TPSLl 

TPUSH 

TqORESTMi 

TOR 

TORGTTMI 

TRl 

TRACEl 

TRACEIS 

tranajet 

TRANCNT3 

TRANCONT 

TRANNEXT 

TRANONLY 

TRANOROT 

TRANPOLY 

TRANSAVE 

TRANSLAT 

TRANSMl 

TRANSNOW 

TRANSP05 

TRANSPSE 

TRANSTOR 

TRANTOSM, 

TRANUSEO 

TREF 

TRESumE 

TRIGl 

TRIG2 

TRIGFNS 

TRIMCODE 

TRImIND 

TRIMMASCI 

TRIMOFF 

TRIMOFFT 

TRImONI 

TRIMON 

TRIMONT 


6657 

912 

1 

912 

■ 

1 

trimset 

06*3031 

355 

1 

355 

EA 

*1AA6 

32 

8 

32 

838 

¥ 

■ 

TRIMSTEP 

EA*1510 

39 

12 

355 

356 

EA 

*1A50 

32 

5 

32 

835 

S 

■ 

TRIMTOP 

06*300a 

355 

1 

3A9 

OA 

*3072 

260 

2 

251 

260 

■ 

TRKFLCDJ 

12*3151 

119 

- 

- 

- 

IS 

*3606 

3A3 

1 

637 

• 

TRkFLON 

AA05 

157 

2 

157 

E3 

*1752 

28 

2 

635 

637 

■ 

TRKOFF 

10,2625 

173 

2 

173 

A600 

291 

A 

258 

260 

■ 

trnreset 

20*2A07 

527 

1 

527 

00 

*32A2 

967 

1 

967 

i 

TrnsPSPD 

35*3501 

610 

2 

606 

610 

3S 

*3002 

AA5 

1 

AA3 

• 

TRS2 

EA*1532 

33 

3 

33 

823 

E6 

*1-611 

A9 

16 

A6A 

552 

9 

• 

TRSLTMN2 

17*2517 

500 

_ 

_ 

17 

*2A7l' 

500 

1 

500 

■ 

TRST9OPC 

25*2AA3 

653 

2 

6A9 

06 

*3106 

357 

1 

356 

i 

TRUNA 

E5*i567 

A1 

» 

- 

- 

OA 

*3150 

265 

- 

- 

- 

■ 

trycount 

10*2715 

176 

- 

OA 

*3161 

265 

- 

- 

■ 

TRYGIMBL 

775A 

A5A 

3 

A56 

556 

20 

,2355 

526 

1 

526 

• 

TRYSWN 

10,2A02 

168 

1 

168 

20 

*2373 

526 

1 

525 

■ 

TRYSWS 

10*2351 

167 

1 

165 

20 

*2375 

526 

3 

525 

526 

■ 

TSCALE 

77A2 

8A8 

3 

821 

835 

20 

*2335 

525 

1 

527 

■ 

TSCALINV 

22,3560 

8A8 

1 

830 

52 

A99 

11*2351 

197 

0070 

3 

523 

9 

T5ELEC 1 

197 

2 

39a 

20 

*2357 

526 

1 

526 

■ 

TSkADRS 

37*2763 

1026 

1 

1025 

20 

*25A5 

531 

1 

525 

■ 

TSKOVCDR 

01*3623 

1013 

11013 

0073 

52 

5 

A99 

526 

9 

■ 

TSLC2 

00,2172 

9AA 

1 

93A 

20 

*2A0A 

527 

2 

526 

527 

i 

TSLC 

76  A2 

93A 

1 

902 

E5 

*1720 

A2 

A 

392 

A3S 

S 

■ 

TSLCLOOp 

00,2201 

9AA 

1 

9AA 

0072 

52 

7 

A99 

527 

9 

■ 

TSLCTEST 

00,2207 

9AA 

1 

9AA 

35 

*3A72 

610 

1 

605 

i 

TSSL 

00,2i0l 

9AI 

3 

939 

9A8 

15 

*3076 

332 

2 

37a 

■ 

TSSR 

00*2025 

939 

- 

- 

- 

20 

*2363 

526 

1 

525 

i 

TSTAB 

0A*2A11 

233 

1 

233 

07 

*2AA6 

721 

1 

722 

■ 

TSTCONl 

05*3A57 

297 

1 

297 

20 

*2A11 

527 

2 

526 

1 

TSTC0N2 

05,3A60 

298 

1 

297 

Ea 

*IA5a 

3A 

2 

858 

859 

9 

■ 

TSTC0N3 

05*3A61 

298 

1 

298 

EA 

*1512 

30 

- 

- 

- 

S 

• 

TSTFORDp 

05*2A20 

2A7 

1 

2A6 

15 

*2556 

32A 

1 

32A 

■ 

TSTLOAFC 

22*3062 

835 

1 

835 

15 

*2567 

32A 

1 

32A 

■ 

TSTLTSl 

05*3A32 

297 

1 

297 

36 

,2766 

875 

1 

870 

■ 

TSTLTS2 

05,3A63 

298 

1 

297 

06 

*311A 

357 

1 

356 

9 

■ 

TSTLTS3 

05*3470 

298 

1 

298 

EA 

*1571 

39 

1 

356 

9 

■ 

TSTmPAC6 

01*2305 

83 

- 

- 

- 

06 

*3115 

357 

2 

355 

356 

■ 

TSTORE 

651A 

9O8 

1 

908 

06 

*3016 

355 

1 

356 

■ 

TSTUPLOK 

13*3570 

216 

2 

216 

Ea 

*1555 

39 

1 

356 

9 

■ 

TTEMP 

£3*1605 

28 

9 

627 

631 

06 

*3052 

356 

2 

356 

357 

i 

TTFINCR 

22,2210 

821 

6 

818 

837 

06 

*3037 

356 

2 

356 

1 

TTF/A 

EA,1a52 

32 

18 

32 

837 

EA 

*15A1 

39 

1 

355 

- 

• 

TTF/ACL 

22,2A13 

825 

2 

8l9 

TTF/ACR 

TTF/aNOF 

TTF/aNOX 

TTF/aNUI 

TTF/ANU2 

TTF/aNUB 

TTF/ANU 

TTf/ATmP 

TTGO 

TTHRUST 

TULLG 

TUMBl 

TUMBCHk 

TUMBLCHK 

TUMTASK 

TUPBUSY 

TWEEKIT 

TWENTYMS 

TWO 


UIPOS 

U2POS 

U3POS 

U 

UCOAST 

UJOB 

ULLAGE 

ULLAgER 

ULL/+X 

ULOW 

ULOWR 

UMPAC* 

UMPAC- 

UNAFC/2 

UNAFC/20 

UNAJUMP 

UNIT 

UNITOV 

UNITR 
UNITVG 
UNI  Iw 
UNKNOWN 
UNNORM 


Definition  reFeRenceS  f 


OOOA 

818 

1 

828 

- 

22,3A51 

8A6 

• 

• 

. 

22,3A22 

8A5 

1 

8A4 

22*a500 

8a6 

- 

- 

• 

22,3507 

8A7 

* 

• 

• 

22,3536 

8A7 

- 

- 

- 

22*3422 

8AA 

1 

821 

5 

EA,)A54 

32 

10 

32 

835 

s 

EA,17A7 

37 

3 

37 

689 

EA , 1 663 

36 

2 

685 

9 

Ea  , 1 A56 

32 

3 

32 

830 

= 

25  *2065 

6a6 

1 

646 

25*2056 

6A6 

1 

6A6 

33,2050 

655 

1 

655 

30,2A02 

777 

2 

6A1 

6A3 

31  *2327 

759 

2 

759 

E3,l 73A 

28 

A 

868 

881 

16,3710 

A89 

1 

A88 

775A 

937 

106 

55103A 

3A,73A5 

609 

1 

608 

3A,2321 

608 

1 

608 

3A*2371 

609 

1 

609 

E6*1AA6 

A6 

- 

- 

16,3137 

A80 

1 

A79 

20,3557 

588 

1 

589 

16,702A 

A5A 

9 

6A6 

705 

7750 

ASA 

3 

ABA 

523 

= 

20,2207 

521 

• 

• 

21,3576 

59I 

1 

591 

21*3655 

593 

1 

592 

00*3136 

965 

2 

965 

00,3130 

965 

2 

965 

EA,1 570 

33 

9 

33 

836 

s 

EA,1576 

33 

3 

33 

833 

= 

901 

00  f ?000 

^04 

1 

00,2770 

962 

1 

90a 

00*3117 

965 

3 

963 

1032 

22 

15 

658 

859 

Ea*i671 

36 

3 

685 

691 

1 OAO 

22 

2 

788 

0007 

311 

w 

» 

- 

= 

E3,l72A 

28 

2 

853 

883 

KEY!  SYMBOLS  DEFINED  BY  EQUALS  ARE  FlAGGEU  =.  OThERs  ARE  NORMALLY  DEFINED  EXCEPT  ThOsE  FLAGGED! 


u undefined  e failed  leftover  erase  m multiply  defined  t wrong  Memory  tvPe  mm  multiple  errors 

N Nearly  oefineD  by  = u failed  leftover  word  0 oveRsize-  or  ill-deFined  c conflict  in  memory  x misc.  trouble 
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SYMBOL  table  LISTINGi  INCLUDING  PaGE  'DUMBER  OF  DEFINITION*  AND  NUMBeR  OF  ReFeReNCeS  WItH  FIRST  AND  LAST  PAGE  NUMBERS 

symbol  h-  Definition  references  • ■ symbol  h definition  references  f ■ symbol  h definition  refeRi-nces  f 


UNRl 

UNZ2 

UPAOFTPI 

UPCOAST 

UPDATI 

UPDATIME 

UPDATKILI 

UPDATNN 

UPDATRET 

UPDATVB 

UPDNLIST 

UPDOAGN 

UPDT 

UPDTCALL 

UPEA 

UPEND6A 

UPEND67 

UPEND70 

UPEND71 

UPEND72 

UPEN073 

UPENd75 

UPEND76 

UPERROR 

UPGET 

UPHERE 

UPIN 

UPINDEX 

UPINHINT 

UPLMPIN 

UPM 

UPNO33 

UPNVCALU 

UPOK 

UPOLDMOD 

UPPART2 

UPPHASE 

UPOUIT 

UPRANGE 

UPRAUb 

UPRETuRN 

UPRPTl 

UPRPTBB 


E3*1702 

12,2A36 

2&,2A36 

20,2065 

05,2322 

11.2312 
31*2173 

05*2275 

0107 

05,2315 

15*2001 

26,22A1 

1215 
3A,3666 
26*2430 
26,2250 
26,2257 
26,2263 
26,2271 
26,2277 
26,2307 

26.2313 
26,2137 
31,2375 

1217 

26,2062 

26,2045 

1216 
26,2246 

5101 

16,3614 

26,2026 

26,2405 

13,3555 

E4,1716 

26,2000 

1214 

26,2403 

26,2415 

26,2425 

26,2115 

13*3540 

4057 


28 

102 

310 

456 

243 

196 

752 

242 

15 

243 
3l3 

308 

^4 

629 

310 

308 

308 

308 

308 

308 

309 

309 
306 
760 

24 

3O6 

305 

24 

308 

746 

488 

305 

310 

216 

37 

305 

24 

310 

310 

310 

306 
216 

55 


5 872  883 
1 103 
1 306 

1 243 

1 751 

2 275 

242  243 
234  752 


3 
9 

1 200 


1 308 
5 308  759 
1 629 
1 305 
1 306 
1 306 
1 306 
1 306 
1 306 
1 306 


1 306 


l7  756  760 
2 306  760 
1 3O6 
4 305  306 


14  308  757 


1 

308 

2 

305 

- 

3 

305 

306 

3 

305 

310 

1 

304 

5 

308 

757 

6 

308 

310 

2 

305 

306 

2 

310 

2 

306 

308 

1 

54 

UPRUPT 

UPSTORE 

UPTEMPl 

UPTEMP 

UPTEST 

UPTMFAST 

UPVERB 

URCO 

URGENCYD 

URGENCYR 

URGFUDGl 

URGFUDGE 

URGLIMIT 

URGLIMS 

URGLMl 

URgLm2 

URGLOOP 

URGMULT 

URGPLANE 

URGRATl 

URGRAT2 

URGRAT3 

URGRATA 

URGRATQ 

URGRATQM 

URGRATR 

URQRATRm 

URGSCALE 

URGSCALD 

URGSCALR 

URTEST 

USEMAXDT 

USEPRET 

USPRCADR 

UT 

UVEDOTl 

UVEDOT 

UVJOS 

UVXFORM 

UXFORM 

UZERO 

UZEROR 


13 

26 

E4 

E4 

13 

12 

E4 

E4 

E6 

E6 

17 

17 

17 

17 

17 

17 

17 

17 

20 

20 

20 

20 

E6 

17 

E6 

17 

17 

17 

17 

21 

07 


3526 

2077 

1720 
1717 

3620 

2756 

1721 
1552 
1504 
I5O6 

3206 

3177 

0066 

3175 

3152 

3163 

2765 

3075 

3215 

3453 

3467 


216 

306 

37 

37 

217 

114 

37 

34 

47 

47 

509 

5O9 

47 

509 

509 

509 

506 

507 
5O9 

585 

585 


3513  586 


3535 
1 117 
3150 
1720 
3155 
3125 
3167 
3116 
3701 
2156 
5326 


586 

51 

5O9 

51 

509 

508 

509 

508 

593 

714 

891 


1 54 

1 306 

3 306  310 
7 305  310 

2 2l6 

1 117 

4 305  320 

3 856  857 

23  507  593 
22  5O8  593 

2 509 
1 508 

14  508  514 
1 508 
1 509 
1 508 
1 508 

1 507 

2 509 

1 585 


1 586 
7 51  586 

1 5O9 

2 457  509 
1 509 

1 508 
1 508 
1 509 
1 593 
1 714 
1 849 


5336  891  5 830  841 

E4,1456  34  3 659  860 

17*3544  515  2 5l5 

17*3543  515  1 515 

20,3556  588  1 586 

17*3525  515  1 515 

17*3523  515  4 511  513 

21,3613  592  1 591 

21*3672  593  1 592 


VOINIOX 

V01N25k 

VOIN3OD 

V01N30E 

VO4NOIK 

V04N30D 

VO5N3OE 

V05N30x 

V06N03E 

V06N20X 

VO6N4OX 

V06N66E 

V06N66X 

VOFS 

VOVEC 

VOXS 

V16N20S 

V16N405 

V1ST02S 

V21N02K 

V21N30E 

\/21N30k 

V21N43E 

V24N30E 

V24N42E 

V25N22E 

V2FS 

V33N00X 

V43K 

V47K 

V50IC 

V 

VACl 

vaciadrc 

VACIUSE 

VAC2 

VAC2U5E 

VAC3 

VAC3U5E 

VAC4 

VAC4u5E 

VAC5 

VAC5USE 


23 

06 

14 

U 

06 

14 

14 

23 

14 

23 

23 

14 

23 
22 
E3 
22 

24 
24 

15 
06 
24 

06 

13 

14 

13 

14 
22 
23 
11 
06 
06 
E4 


:»350 

U16 

3651 

3653 
7546 
3645 

3654 

3351 

3655 

3352 

3353 

3656 

3354 
3466 
l7l6 
3437 

3640 

3641 

3573 

7544 
3630 

7545 

3501 

3657 

3502 
366O 
3524 

3355 
2637 
?547 
3117 
1470 
0432 


01,2522 

0431 

0506 

0505 

0562 

056l 

0636 

0635 

0712 

0711 


429 

357 

389 

389 

349 

389 

389 

429 

389 

429 

429 

389 

429 

846 

2a 

845 

414 

414 

343 

349 

414 

349 

154 

389 

154 

389 

847 
429 
203 

349 

357 

32 

20 

87 

20 

20 

20 

20 

20 

20 

20 

20 

20 


1 425 

1 356 

2 364 
1 34d 
1 384 
1 371 
1 428 
1 387 
1 426 
1 426 

1 382 

1 423 

2 856  883 
1 844 

1 395 

1 397 

5 329  787 
1 348 

1 398 

1 348 
1 147 
1 361 
1 148 
1 374 

1 426 
1 203 

1 348 
1 356 

6 32  834 


1 85 

4 85  990 

3 85  990 

3 85  990 

3 85  990 

3 85  990 


KEY!  SYMBOLS  DEFINED  BY  EQUALS  ARE  FLAGGED  =.  OThERs  ARe  NORMALLY  DEFINED  EXCEPT  ThOsE  FLAGGED: 


u undefined 
N Nearly  defined  by  s 


E failed  leftover  erase 
J failed  leftover  word 


M multiply  defined 
0 OVeRsIZe-  or  ill-defined 


T WRONG  Memory  tvPe 

c conflict  IN  Memory 


MM  MULT  I Pi  E eRR0R3 
X MISC.  trouble 
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SYMBqL  TA3Lt  LISTING*  INCLUDING  PaGE  ^JMBtR  DEFINITION*  AND  NUMBER  qF  ReFeRenCeS  WItH  FIRSt  aND  LASt  PaGe  NUviBeRS 


symbol  hi  Definition  references 


symbol  h Definition  references  f 


symbol  h Definition  references  f 


VACFOUNO 

01 

*3031 

990 

5 

990 

1 

VEXDEX 

E5,15AA 

38 

5 

791 

s 

■ 

VSHR2 

00,7060 

151 

30,320a 

791 

00,2073 

VACSTOR 

13 

*3336 

1^1 

1 

1 

V tXr  1 Ni-'A 

• 

• 

m 

VDHKRInU 

VAD 

7016 

917 

1 

902 

• 

VEXFINDD 

30,3210 

791 

1 

791 

■ 

vso 

00,321A 

VALMIS 

2A 

*2225 

39a 

1 

AA3 

■ 

VEXFINDR 

30*317a 

791 

• 

• 

- 

■ 

VSQSUB 

00,3267 

varadar 

10 

,3332 

186 

1 

185 

■ 

VEXLOOP 

30,3212 

79I 

1 

791 

m 

VSSL 

00,?1A5 

VARDELAY 

5722 

1003 

6 

101 

7A7 

■ 

VEXNOM 

E5,15A7 

38 

3 

79I 

792 

s 

m 

VSSR 

00,7127 

VAVEGON 

EA 

*1522 

30 

1 

69a 

■ 

VEX3TEP 

30*3327 

793 

1 

791 

= 

m 

V5T0RE 

6503 

\/B06N66 

2A 

,3636 

' AlA 

2 

A02 

A13 

■ 

VFACT 

36*3A72 

88A 

2 

883 

88A 

m 

vsu 

7OAA 

VB21N30E 

13 

,350A 

15A 

1 

153 

■ 

VGCNTR 

E5*1522 

A3 

• 

• 

• 

m 

VTAILOFF 

33,3273 

VB50 

13 

,3505 

15A 

1 

153 

■ 

VGVECT 

EA,1733 

37 

A 

3l9 

691 

■ 

VTEMP 

Ea,1 520 

VB51 

13 

*3A27 

153 

1 

1A7 

■ 

VIGNTIOn 

EA*1A06 

30 

- 

- 

- 

■ 

VTO 

32*26a6 

VB53 

13 

,3503 

15A 

1 

1A7 

1 

ViNj 

32,26AA 

860 

1 

855 

■ 

VV/SC 

7653 

*2073 

187 

VISNORMO 

16,23A2 

A67 

7A55 

vdCOAR< 

1 i 

188 

1 

z 

HOD 

Ho9 

V V adl 

VBFANDIR 

05 

,2133 

239 

1 

239 

■ 

VIZPHASE 

77A5 

A5A 

1 

A69 

■ 

VXFORM 

17,3515 

VBPROC 

OA 

*3328 

271 

2 

2A0 

271 

i 

VJOBTEST 

20*3631 

589 

1 

589 

■ 

VXM 

7A10 

VBRELDSR 

OA 

*3336 

271 

1 

227 

■ 

VL 

EA,1A76 

32 

5 

32 

823 

= 

■ 

VXM/MXV 

7A13 

VBRQEXEC 

05 

*331A 

270 

1 

239 

■ 

VLAUN 

E5*16AA 

. A2 

7 

A2 

A36 

s 

■ 

VXSC 

7A52 

VBROWAI r 

05 

*33A0 

271 

1 

239 

■ 

VLAUNS 

E5*1616 

A2 

3 

A2 

A35 

s 

■ 

VXSTEPl 

30,3333 

VBSPILD 

05 

*2673 

255 

2 

253 

i 

VLOAD 

655A 

910 

1 

902 

■ 

VXSTEP2 

30*3337 

VBSP2LD 

05 

,267A 

255 

2 

253 

i 

VLOADCOD 

7?37 

938 

1 

909 

s 

■ 

VXSTEP3 

30,33A3 

VBSP3LD 

05 

*2675 

255 

1 

253 

■ 

VLOADA 

61A3 

938 

1 

909 

; 

■ 

VXSTEPA 

30,33A7 

VBTERM 

OA 

,3333 

271 

3 

2A0 

752 

■ 

VMESSAGE 

11*2731 

206 

1 

20A 

■ 

vxv 

7532 

VBTSTLTS 

05 

*3A1A 

297 

1 

2A0 

■ 

VNl 

1056 

22 

2 

789 

829 

VBUF 

0112 

15 

62 

15 

96A 

■ 

VN 

1016 

22 

18 

321 

85A 

■ 

wo 

E6,l 5A7 

VBZERO 

11 

,2070 

188 

1 

187 

• 

VNCON 

37*3A73 

1033 

1103A 

■ 

W1 

E6*1550 

VCONOM 

32 

,2111 

852 

1 

851 

■ 

VNLDRCDJ 

11,2255 

19A 

1 

19A 

■ 

W2 

E6,i 551 

VCV 

EA 

,1A36 

30 

3 

72A 

739 

e 

■ 

VNlOdCDJ 

11*2152 

191 

2 

191 

203 

■ 

W 

EA*1 630 

VDl 

A55A 

290 

7 

86 

9OI 

■ 

VNLODDT 

11*2326 

196 

1 

196 

■ 

WACTTHTD 

33,25AA 

VDEF 

00 

,3200 

967 

1 

9OA 

• 

VNLODGYR 

11*2232 

193 

2 

193 

195 

• 

WAIT2 

01,3360 

VDS 

22 

,3A37 

8AA 

2 

825 

826 

S 

■ 

VPATCHER 

30*23A7 

775 

A 

657 

851 

■ 

WAIT 

37,27A5 

VDUM 

0016 

33 

5 

833 

8^2 

s 

• 

VPATLOOP 

30,2357 

775 

1 

775 

• 

WAITADR 

n063 

VDVECT 

Ea 

*1725 

37 

A 

319 

691 

■ 

VPDVL 

66a2 

912 

•• 

- 

■ 

waitbank 

n062 

VECmODE 

15 

,3563 

3A3 

2 

3A5 

638 

■ 

VPROJ 

7A76 

931 

1 

902 

■ 

waitbb 

5716 

VEC0FAN3- 

3A 

,2776 

6l8 

2 

618 

t 

VR 

E5,15l3 

A3 

• 

- 

5 

• 

waiter 

1A,3652 

VECPOINT 

3A 

,2001 

60A 

A 

659 

7OA 

i 

VRECT 

EA,1A06 

30 

6 

721 

739 

5 

■ 

waitexit 

n06l 

VECTAB 

Ea 

*1510 

30 

A 

731 

7a3 

■ 

VRIGHT2 

00*22A2 

9a6 

1 

9a6 

m 

WAITFIVE 

2a*?5aA 

velchk 

10 

*27A7 

176 

1 

176 

■ 

VROTATEx 

7A71 

930 

3 

9A2 

963 

■ 

waitlist 

5701 

VELSC 

35 

*3356 

A50 

1 

A35 

■ 

VROUND 

7203 

922 

6 

930 

931 

■ 

WAITLOOP 

2A,3207 

VERB 

OA 

,22A3 

230 

1 

227 

■ 

V/SCl 

7656 

935 

1 

935 

■ 

WAITLPl 

2A,3212 

VErBFAN 

05 

*2116 

239 

7 

238 

2Al 

■ 

V/SC2 

00,2616 

958 

1 

935 

■ 

WAITLP2 

2A,3231 

verbreg 

0272 

18 

18 

86 

26A 

■ 

v/sc 

7650 

935 

2 

8A9 

902 

■ 

WAITLP3 

2A,3235 

VERBTAB 

05 

,2136 

239 

1 

239 

• 

V/SCDV 

00,2715 

960 

3 

959 

■ 

WAITTEMP 

n06A 

VERTDRFT 

2A 

,2171 

393 

- 

- 

- 

1 

VS 

EA,1520 

33 

17 

33 

8A9 

= 

• 

WAKETEST 

01,3227 

9A0 

9A0 

967 

96B 

9A3 

9A2 

9o8 

918 

692 

33 

860 

935 

930 

515 

938 

929 

930 
793 
793 

793 

79A 

932 


A9 

A9 

A9 

36 

66H 

1005 

1025 

12 

12 

1003 

389 

12 

399 

1002 

A07 

AO  r 
AO? 
AO? 
12 
995 


1 9A0 
A 9A2  976 
1 90a 
3 962  967 

3 9A2  9A8 
1 9A6 

1 902 

1 689 

2 83A 
1 857 


A 512  513 
1 902 
1 928 

1 902 
I 793 


1 902 


A A9  5A5 
3 A9  5A5  s 
3 5A3  5A6  = 

A 7A0  7A1  = 
1 65A 

210021003 

11025 

310021006  = 
2IOO3IOO5  = 
210021011 
3 38A  386 
310021003  = 

1 399 

1A7  571035 

A 393  399 

2 AO7 

A 393  399 
1 AO7 

31009  = 

I 995 


KEY!  symbols  DEFINED  BY  EQUALS  ARE  FlAGSEU  =.  OThERs  ARE  NORMALLY  DEFINED  EXCEPT  THOsE  FLAGGED: 


u undefined  e failed  leftover  erase  m multiply  defined  t wrong  Memory  tvPe  mm  multiple  errors 
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^8895^A  YJL  system  FOR  AGC i NEW  PROGRAM  SMePATIN  BY  EYLES 


OEC  13«  I966 


PAGE1076 


symbol  ta3le  listing*  including  Page  number  of  definition*  and  number  of  References  with  first  and  last  page  numbers 
symbol  h Definition  References  f . symbol  h definition  References  f ■ symbol  h definition  References  f 


WANDCH< 

WANGI 

WANGO 

WANGT 

WARESCALI 

WATEROFF 

WCALC 

WCENTRAL 

WCHAN&E  . 

WCHANGER 

WDAGAIN 

WDcNT 

WDRET 

WEARTH 

WFORP 

WF0Rp0R<l 

WFORQR 

WHERETO 

WHICHONE 

whimper 

WIDEDB 

WKSEARCM! 

WLARgE 

WMATFLA3' 

WORCHK 

WPLATI 

WPLATO 

WPOINTERi 

WRCHNI2 

WRDRET 

WRITECH<I 

WRITEjTS 

WRITER 

WRITEPOL 

WRI TEoR 

WSFTEST 

WTABORT 

WTGTSMPL 

WTLISTNT 

WTLPCADR 

WTLST2 

WTLSTa 

WTLSTS 


37*3023 

ES,1572 

E5,1570 

E5*1574 

21,3057 

27*2353 

3A,3A57 

0063 

20,2106 

20,3322 

05*3230 

0127 

0105 

27*2366 
E6  * 1 63a 
16,23AA 
E6*1635 
30,3A50 
16*2a75 
6007 
16*2076 
A703 

21*3070 

0000 

37*3007 

E5,171A 

E5*1620 

E6,15A6 

21*3377 

0105 

37*2770 

6010 

6012 

16*30U 

6015 

21,3022 

01*3507 

35*2764 

35,2752 

24,3234 

01,3515 

01*3404 

01,3434 


1026 

42 

42 

42 

559 

641 
625 

48 
457 
576 

266 

16 

15 

642 
50 

467 

50 

799 

470 

302 

455 

295 

559 

13 

1026 

42 

42 

49 

564 

15 

1026 

462 

462 

478 

462 

558 

1008 

444 

444 

407 

1009 

1006 

1007 


5 392  438 

4 392  438 

2 42  438 

1 559 

1 641 
1 625 

5 558  560 
1 576 

1 465 


267 

265  267 
265  267 
637 

50  574 
1 465 
7 457  574 
1 798 
1 470 

1 302 

2 454  488 

2 295  296 

2 559 

4 717  741 

2 438 

3 437  439 

5 542  547 
3 557  56^ 


2 461 

2 478 

2 477 

3 462  50l 

1 559 
11006 

1 444 

2 59  444 
2 407 
810071008 
11009 
11005 


WTLTCADR 

06*2004 

57 

3 

62 

65 

WVECTOR 

21,2404 

549 

2 

542 

XI 

0046 

11 

27 

346 

978  = 

X2 

0047 

11 

7 

36 

907  = 

XACTO 

11,2060 

188 

2 

188 

I94 

XACTOQ 

11,2065 

188 

2 

188 

XACT  1 

1 1 *2044 

188 

• 

• 

• 

XACTALm 

11*2053 

188 

4 

187 

310 

XAD2 

01,2616 

978 

2 

978 

XAD 

XCHX 

XDC 

XEEDLLMT 

XEEDULMT 

XJBUF 

XJETMAS< 

XJETS 

XKEP 

XMKRUPT 

XNB 

XREG 

XRE&LP 

XROT 

XSM 

XSMADR 

XSMADRX 

XSTORE 

XSU 

XTRANS 

XTRANSOn 

XTRDUMST 

XTRIGNl 

XTRTPIP 

XUNIT 

XYMARK 


01,2613 

01,2605 

E5,1422 

36,3400 

36,3373 
E4,1401 
06,2673 
E4 , 1440 
E4* 1450 
13*3317 
E5,1422 

0274 

0277 

34,2060 

E5,1400 

24,3662 

14*3700 

01*2561 

01,2624 

17*2416 

33*2471 

22,3333 

22,3124 

22*3205 

15*3147 

0374 


978 

978 

40 

882 

882 

39 

352 

39 
30 

151 

40 
18 

18 

605 

40 

4l4 

389 

977 

978 
498 
663 
842 

836 

838 

333 

19 


1 903 

1 903 

I7  40  442 

2 882 
2 881 

4 351  = 

1 351 

1351  = 

13  725  739  5 
1 150 

6 328  377  = 
3 248  256 


74 


3 229  256 
1 605 

40  447 
1 4O9 
1 368 
3 977 

1 903 

12  493  519 
1 656 

1 836 

3 834 

2 817  835 
2 332  377 
8 146  283 


Y3D0T 

YCOm 

YCONS 

YDC 

YDOT 

YDOTD 


E6*1566 
E6*1434 
E4* 1464 
E5,1430 
E4* 1466 
E4,1442 


49 

46 

34 

40 

34 

34 


5 543  564 

2 859  s 

6 323  406  = 
A 658  857  = 

3 855  857  = 


YISZ 

YMKRUPT 

YNB 

YREG 

YREGLP 

YSM 

YUNIT 

YV 

YZJBUF 

YZJETMSK 

YZJETS 


E5 

15 

E4 

E4 

06 

E4 


Z3D0T 

Z 

ZAXIS 

ZDATA2 

ZDC 

ZDOT 

ZDOTD 

zernjnxt 

ZERO 

ZEROANS 

ZEROCOEF 

ZEROOATA 

ZERODP 

ZEROERAS 

ZEROICDU 

ZEROINqI 

ZEROING 

ZEROLOOP 

ZEROLPl 

ZEROLP 

ZEROMAIIN 

zeromode 

ZERONDx 

ZERONEG 

ZEROPOS 

ZEROURG 

ZEROvEC 

ZNB 

Z0NE4 

Z0NE5 

Z0NE8 


E6 

E4 

12 

E5 

E4 

E4 

20 

00 

20 

12 

15 
14 

24 

24 

07 

14 

14 

23 

23 

E5 

22 

22 

17 

07 

E5 

16 
16 
16 


:(210 
3323 
1 430 
0275 
0300 
1406 
3145 
1613 
1402 
2663 

1450 


1570 

n005 

1476 

2165 
1 436 
1 504 
1 444 
3625 
7761 
3346 

5255 

2277 

3151 
3615 

4303 

3242 

3240 

3450 

3636 

3622 

3162 

3152 
1 777 
3563 
3561 
3070 
2174 
1436 
3364 
3262 
3267 


334 

1 

33a 

I5I 

1 

150 

40 

2 

328 

377 

S 

18 

- 

• 

• 

18 

. 

- 

40 

31 

328 

413 

5 

333 

2 

332 

377 

31 

9 

738 

742 

s 

39 

4 

351 

352 

1 

351 

39 

1 

351 

= 

49 

3 

548 

564 

10 

37 

67 

852 

34 

4 

85a 

860 

= 

95 

1 

97 

40 

4 

32t 

406 

= 

34 

4 

658 

857 

= 

34 

4 

855 

857 

s 

589 

1 

589 

937  292 
969  2 


621036 

969 


574 

9/ 

333 

388 

124 

407 

407 

739 

388 

388 

425 

425 

42 

848 

848 

507 

714 

40 

483 

482 

482 


1 571 
1 95 

6 322  380 

1 198 

2 10?  127 
1 407 

4 368  432 

1 739 

1 388 

2 388 


4I7  427 

417  428 
368  432 


817  829 
507 


4 
2 

1 713 
4 328  377 
1 481 
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symbol  H' 

Definition 

ReFeReNCeG  •! 

• 

symbol  h 

Definition 

References  f 

■ 

symbol  h 

Dee INITION 

References  f 

Z0NES6,7 

16,3270 

482 

1 482 

■ 

ZSM 

E5,1414 

40 

27  329  413  = 

■ 

■ 

(l-K)/8 

E6 , 1 637 

50 

4 464  571  s 

ZOOM 

36,2621 

870 

1 871 

■ 

ZSMAZ 

E3,l767 

28 

1 638 

■ 

(l-K)S 

20,3317 

575 

1 457 

ZPRIME 

0026 

40 

7 322  323  s 

■ 

zunit 

15,3143 

333 

2 332  377 

■ 

(l.K) ,QR 

17,2573 

501 

« a.  • 

ZREG 

0276 

18 

1 238 

i 

ZV 

E4*1<>zi 

31 

5 738  7a2  = 

« 

(l-<Q)/8 

17 ,7574 

501 

« • 

ZREGLP 

ZRUPT 

0301 

0015 

18 

10 

410251026  : 

■ 

(1-K) 

E6,l636 

50 

9 50  574 

■ 

(2/3) 

21,3440 

565 

- - • 

KeY!  symbols  Defined  by  equals  are  flaGoei^  =.  others  are  normally  defined  except  those  flagged: 
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erasable  S e^JIYALeNCe  CRoSS-ReFeRe^^E  TAPLe,  SHO^/ING  SYM30L 


SYMBOL  HI 

DeFINI 

TiON 

SYMBOL  H 

5eFINItI0N 

SYMBOL  H 

A 

0000 

10 

DSALMOUT 

OOll 

53 

NDPl 

BRIGNl 

0000 

819 

LRUPT 

oou 

10 

NDP2 

WMATFLAo' 

0000 

13 

RRNBSW 

OOH 

13 

CDUZ 

BRLING 

0001 

8l9 

CHAN12 

0012 

53 

DNTMl 

BRTTFNU 

0001 

8l8 

LOKONSW 

0012 

13 

DNTM2 

JSWITCH 

0001 

13 

ORUPT 

0012 

10 

OPTY 

L 

0001 

10 

CHAN13 

0013 

53 

OPTX 

BRIGN2 

0002 

819 

SAMPTIME 

0013 

10 

PIPAX 

BASVAC 

0002 

16A 

UC 

OOlA 

Al  A 

ADUM 

LMPGR0J3 

0002 

7A6 

CHANIA 

OOlA 

53 

pipay 

MIDFLAG 

0002 

13 

NSNAP 

OOlA 

316 

STARM 

PARL 

0002 

818 

MNKEYIN 

0015 

53 

PIPAZ 

0 

0002 

10 

ZRUPT 

0015 

10 

BMAGX 

brxmid 

0003 

819 

bankrupt 

0016 

10 

lvsouare 

EBANK 

0003 

10 

NAYKEYIN 

00l6 

53 

0-RHCCTR 

H I SCALAR 

0003 

53 

VDUM 

0016 

33 

RHCP 

MOONFLAo 

0003 

13 

BRUPT 

00l7 

10 

BMAGY 

818 

r'O  C T U 

AO 

TdRL 

0003 

LUb  1 H 

00^0 

r»KnLLT  ^ 

FBANK 

OOOA 

10 

CYR 

oozo 

10 

RHCY 

LOSCALAR 

OOOA 

53 

SR 

OOZl 

10 

BMAGZ 

NBSMBIT 

OOOA 

13 

CYL 

OOZ2 

10 

LV 

ttf/acr 

OOOA 

818 

SINTH 

OOC2 

AO 

RHCR 

BRXEND 

0005 

818 

EDOP 

00^3 

10 

R.RHCCTR 

COAROFINI 

0005 

13 

JDUM 

OO^A 

33 

INLINK 

Z 

0005 

10 

THETA 

ooaa 

AO 

RNRAD 

BB 

0006 

73 

TIME2 

OOZA 

10 

XI 

n D A M 1/ 

10 

T T MC  1 

10 

VD  u r\ 

ddainn 

0006 

1 1 ’'Ht  i 

00^5 

oYKULMD 

BODYFLAo' 

0006 

13 

COGAMN 

00'^6 

88A 

GYROCTR 

PDUM 

0006 

33 

MININOEP 

00^6 

28 

retsave 

DMYADRE5 

0007 

311 

PDA 

OOC6 

AO 

X2 

DMYECADR 

0007 

311 

TIME3 

0026 

10 

CDUXCMD 

ERASZERO' 

0007 

311 

2PRIME 

00Z6 

AO 

SI 

IMUSe 

0007 

13 

timea 

00Z7 

10 

CDUYCMD 

SPARE 

0007 

311 

TIME5 

OOBO 

10 

52 

SUPERBNC' 

0007 

53 

TIME6 

OOJl 

10 

CDUZCMD 

UNKNOWN 

0007 

311 

CDUX 

00^2 

10 

qpret 

ARUPT 

0010 

10 

GDUM 

00^2 

33 

OPTYCMD 

outo 

0010 

53 

MAXINDEP 

OOA2 

28 

OPTXCMd 

RDUM 

0010 

33 

CDUY 

00A3 

10 

emsd 

, Definition,  and  page  of  definition 

definition  SYMBOL  H DEFINITION  SYMBOL  H DEFINITION 


0033 

0033 

003A 

003A 

318 

318 

10 

53 

lemonm 

OUTLINK 

altm 

AXISCNTR 

0056 

0057 
0060 
0061 

11 

11 

n 

52 

LQOPCTR 

LOCCTR 

Tempbb 

WaITTEMP 

006A 

006A 

006A 

OO6A 

52 

U 

73 

12 

0035 

53 

CDUDOT 

0061 

A9 

DEL 

0065 

Ab 

0035 

0036 

10 

FAILCTR 

0061 

A? 

ITEMP5 

0065 

12 

12 

10 

EXECTEMl 

006 1 

12 

NeWLOC 

0065 

0037 

10 

I TEMPI 

0061 

12 

REL 

0065 

52 

OO4O 

33 

.I-.O5K 

0061 

52 

tempsw 

0065 

73 

OOAO 

10 

K 

0061 

52 

TmISpOlY 

0065 

52 

OOaO 

AO 

kcentral 

0061 

As 

1/NETACC 

0066 

52 

OOAl 

10 

NETACNDX 

0061 

52 

1/NJETAC 

0066 

52 

00a2 

10 

OMEGA. K 

0061 

A8 

CHNL12 

0066 

56A 

00A2 

11 

QRNDXER 

0061 

568 

CTR 

0066 

52 

00A2 

A6 

TEMPO 

0061 

73 

ITEMP6 

OO66 

12 

00A2 

10 

WAITEXIT 

0061 

12 

qrcntr 

0066 

Ab 

00A3 

10 

COEFFA 

0062 

52 

qreras 

0066 

565 

00A3 

A6 

DELQ 

0062 

A7 

TEMPSW2 

0066 

73 

00A3  , 

, 10 

DELTAP 

0062 

A^s 

urglimit 

0066 

A7 

OOAA 

10 

FAILTEMP 

0062 

A7 

newjob 

0067 

12 

ooaa 

11 

EXECTEM2 

0062 

I2 

K2THETA 

0070 

Ab 

OOAA 

10 

ITEMP2 

0062 

12 

Ruptregi 

0070 

12 

OOAA 

A6 

.5-.5COF 

0062 

52 

TEMPPR 

0070 

73 

00A5 

10 

K2CNTRAL 

0062 

A8 

tranonly 

0070 

52 

00A6 

10 

NZACCDOT 

0062 

56s 

anytrans 

OO7I 

52 

00A6 

11 

TEMPP 

0062 

73 

Direct 

OO7I 

35 

00A7 

10 

TEMPERR 

0062 

52 

EtHETA 

0071 

Ab 

00A7 

10 

TJETADR 

0062 

52 

RUPTREG2 

0071 

12 

73 

00A7 

36 

WAI TBANK 

0062 

I2 

TEMPG2 

OO7I 

00A7 

11 

CDU2D0T 

0063 

Aq 

A2CNTRAL 

0072 

Ab 

0050 

10 

DELTAR 

0063 

A7 

CDU 

0072 

A9 

0050 

11 

ITEMP3 

0063 

12 

PASS 

0072 

35 

0051 

10 

newprio 

0063 

12 

RiiPTREG3 

0072 

12 

0051 

11 

POLRELOC 

0063 

52 

SFl 

0072 

Ab 

0052 

11 

RUPTSTOR 

0063 

12 

TEMPP2 

0072 

73 

0052 

11 

TEMPNM 

0063 

73 

TRANSNOW 

0072 

52 

0053 

11 

WAITADR 

0063 

12 

DSRUPTEM 

0073 

12 

005A 

11 

WCENTRAL 

0063 

As 

HC 

0073 

35 

0055 

11 

ACENTRAL 

006A 

A8 

KEYTEMPI 

0073 

12 
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symbol  h 

Definition 

symbol  h 

Definition 

symbol  H 

definition 

symbol  h 

Definition 

SYMbOL  h 

Definition 

RUPTREQA 

0073 

12 

SGNON 

0112 

15 

TEMl 

0131 

16 

MODE 

0153 

17 

LGYRO 

0356 

19 

SF2 

0073 

A8 

VBUF 

0112 

15 

DERC0F,8 

0132 

16 

LOC 

OUA 

l7 

FORVEL 

0357 

19 

tempbbcn 

0073 

73 

NVTEMP 

0113 

15 

DSMAG 

0132 

16 

BANKSET 

0155 

I7 

LATVEL 

0360 

19 

TRANSAVE 

0073 

52 

SFTEMPl 

0113 

15 

IDADDTEM 

0132 

16 

PUSHLOC 

0156 

17 

LASTYCMD 

0361 

19 

CONVSW 

007A 

13 

SGNOFF 

0113 

15 

TEM2 

0132 
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SBNX03 

NJ*R 

E6«1662 

51 

dntmbuff 

E7*1404 

43 

OcT14OO0 

NJ-R 

E6«1663 

51 

rtstdex 

£7*1452 

43 

OCT15000 

NJ*U 

E6,16&A 

51 

RTSTMAX 

£7*1453 

43 

33RDMSK 

NJ-U 

£6*1665. 

51 

RTSTBASE 

£7*1454 

43 

B12T14 

NJ*V 

E6*1666 

51 

RTSTlOc 

£7*1455 

43 

geobnoi 

NJ-V 

E6*l667 

51 

RSKLOC 

£7*1455 

43 

TCTSXOVR 

1/2JTSO 

E6,1670 

52 

RSAMPDT 

£ 7 , 1456 

43 

TCNOVAC 

I/NET*2> 

E6*l6'?0 

5I 

RFAILCNT 

£7*1457 

43 

ENDRCSFL 

1/NET*A3i 

E6tl671 

51 

rstack 

E7*14‘*0 

43 

nostchg 

l/NET-23' 

E6,1672 

51 

AGSBUFF 

£7*1550 

43 

TMALM 

l/NET-43' 

£6,1673 

51 

LAST30 

£7*1604 

43 

0CT177 

1/2JTSR 

E6* I67A 

52 

MSGCNT 

E7»l607 

43 

VLOADt 

1/NET+2R 

E6,167A 

51 

COMPTORk 

£7*1610 

43 

S-4 

I/NET+AR 

E6,1675 

51 

UPRPTBB 

4057 

55 

S«6 

WNET-2R 

E6,1676 

51 

PRI024 

4250 

1000 

SIX 

I/NET-AR! 

E6*1677 

51 

3SECSM 

4311 

145 

BIN3 

l/NET*l  Ji 

£6,1700 

51 

ENORMODF 

442a 

157 

L0W2 

1/NETACS 

£6,1700 

51 

NINE 

45I7 

937 

0CT3 

1/2JETSJ 

£6,1701 

52 

OCT  11 

4517 

389 

S + 3 

1/NET  + 2JI 

E6*1701 

51 

B12-1 

4552 

290 

THREE 

1/NET-l  JI 

£6,1702 

51 

SSBITS 

4553 

1014 

fbankms< 

1/NET-2J' 

£6,1703 

51 

0CT23 

4554 

901 

DATWAITI 

1/NET  + W 

£6,1704 

51 

0CT12 

4557 

389 

0*2 

1/2JETSY 

£6*1705 

52 

TEN 

4557 

937 

TCQ 

1/NET*2»/ 

£6*1705 

51 

BZFHOlE 

47*^5 

300 

925PCTHR 

1/NET-U 

E6, I7O6 

51 

BIT13-1A 

52‘i6 

938 

SLOPEMP 

l/NET-2^ 

£6,1707 

51 

CHRPRIO 

5246 

29O 

LIMITS 

SIGNTAG 

£6,1710 

51 

PRIO3O 

5246 

1000 

NEGMAX 

1/ACCq 

£6,1711 

51 

PRI0R30 

5246 

772 

SbIT15 

1/ACCR 

£6,1712 

51 

PRI012 

5252 

1000 

spsbacu? 

i/aminq 

£6,1713 

51 

MINJ52 

5355 

66 

VLOADCOD 

1/AMINR 

£6*1714 

51 

S-2 

5355 

1014 

AUTORHLO 

1/AMINU 

£6,1715 

51 

SIOBITS 

5356 

1014 

half 

l/AMINV 

£6,1716 

51 

S-3 

5357 

1014 

POSl/2 
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1 Definition* 

and  PaGe 

OF  Definition 

definition 

symbol  h 

Definition 

symbol  h 

Definition 

5370 

446 

PRI020 

7740 

loon 

ONE 

7755 

931 

5520 

159 

SBIT14 

7740 

lou 

OURRCBIT 

7755 

454 

5605 

61 

PRIOlO 

7741 

1000 

S*1 

7755 

1014 

5650 

1000 

QUARTER 

7741 

937 

SBITI 

7755 

1014 

5652 

1014 

SBIT13 

7741 

lOU 

NOUTCON 

7756 

93/ 

5656 

73 

PRI04 

7742 

loofi 

dspmsk 

7757 

267 

5657 

117 

SBIT12 

7742 

lou 

LnW3 

7757 

938 

5660 

5673 

117 

TSCALE 

7742 

84b 

937 

OCT7 

7757 

7757 

73 

1014 

901 

2 K 

7793 

S*7 

5677 

446 

EBANK4 

7743 

1000 

NumgRpg 

7760 

87 

5735 

290 

GODAPGO 

7743 

452 

5*5 

7760 

1014 

5741 

290 

PRI02 

7743 

lOOO 

S*ZERO 

7761 

1014 

5751 

537 

SBITll 

77a3 

lOU 

S-ZERO 

7762 

1014 

5751 

537 

pulses 

7744 

454 

MlNuSl 

7763 

937 

5751 

217 

PRIOl 

7744 

lOOo 

NEGl 

7763 

93/ 

6130 

66 

SBITlO 

7744 

lOU 

S-1 

7763 

1014 

6143 

938 

SBIT9 

7745 

lOU 

SW/ 

01*2731 

984 

6146 

1014 

ViZPHASE 

7745 

454 

modroutb 

04*3315 

270 

6276 

1014 

APSGOING 

7746 

452 

endrtout 

05,2535 

249 

6276 

937 

IMUSEFLG 

7746 

145 

ENDRUT IN 

05,3077 

258 

6301 

184 

SBIT8 

7746 

IOI2 

PRDTTAB 

06*2000 

57 

6301 

938 

dbselect 

7747 

454 

CAdRTAB 

06*2001 

57 

6301 

154 

RRUSEFLG 

7747 

164 

1.3SP0T 

06,2006 

57 

6301 

1014 

SBIT7 

7747 

1012 

2.2SP0T 

06,2006 

5 / 

6301 

937 

SUPERIOO 

7747 

938 

3.2SP0T 

06*2006 

58 

6331 

901 

SBIT6 

7750 

IOI2 

3.3SP0T 

06,2006 

58 

7006 

277 

ULLAGER 

7750 

452 

4.2SP0T 

06,2006 

58 

7010 

916 

AORBSYST 

7751 

452 

4,3SP0T 

06,2006 

58 

7011 

67 

LOKONFLG 

7751 

162 

6.2SP0T 

06*2006 

59 

7735 

701 

SbIT5 

7751 

IOI2 

6.3SP0T 

06,2006 

59 

7735 

480 

ACC40R2X 

7752 

454 

TRIMCODE 

06,3114 

35/ 

7736 

937 

EIGHT 

7752 

937 

D0V74 

07,2000 

89 

7737 

937 

SBITa 

7752 

IOI4 

3/8 

07, ,623 

724 

7737 

1014 

FOUR 

7753 

937 

DqUARTER 

07,3627 

744 

7737 

454 

S*4 

7753 

1012 

PnSl/4 

07,3627 

744 

7737 

938 

SBIT3 

7753 

IOI2 

2/3 

07,3661 

744 

7740 

454 

S*2 

7754 

1012 

MoONVtC 

07*3671 

745 

7740 

937 

SBIT2 

7754 

IOI2 

SUNVEC 

07*3674 

745 

7740 

937 

TRYGIMBL 

7754 

452 

optcoarv 

11*2153 

194 
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erasable  S e^JIVALeNCe  CRoSS-REpEREf^^E  IA“Le*  SHOWING  SYMBOL*  DePINItION.  AND  PAGe  oP  DEPINITIO^ 


symbol  + 

Definition 

symbol  H 

DEPINITION 

symbol  H 

DePINITION 

symbol  H 

DePINITION 

Symbol  h 

Definition 

ICDUPAILI 

12.2763 

116 

UPDNLIST 

15*2001 

313 

TTP/4NU 

22*3422 

844 

2DPS2/3 

22,3574 

84ft 

VEXSTtP 

30,3327 

793 

NORRGMON 

12,3176 

121 

NOMDNLST 

15.235A 

319 

ADS 

22,3423 

844 

MP2BBSET 

27,2024 

635 

accljob 

30,3422 

79/ 

GLOCKOK 

12,3203 

117 

SETRATE 

15.203A 

455 

RDS 

22,3431 

844 

SVEXADRS 

27*2455 

642 

MTABLE 

31,235A 

76l 

NOIMUMON 

12,3203 

117 

WFORPQRK 

15*23‘*A 

467 

YDS 

22*3437 

844 

AGSMON 

30,2233 

76ft 

DP. 5 

33,251A 

852 

endtas 

12*3220 

535 

-TJMINQR 

17*3552 

5I5 

JDS2 

22*3445 

844 

F5TEP 

30*3325 

79ft 

DPO 

33*25l6 

852 

OPTSTALLI 

13*2760 

lAA 

PREBURN 

22,2000 

8l7 

MADP2 

22*3447 

8A4 

SLOPE 

30,3326 

793 

TfACT 

36,3472 

88A 

AGSLIST 

15.2Q01 

312 

BURN 

22*20‘*1 

818 
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Memory  ty^e  & availability  display 

0000  TO  0057  SPECIAL  OR  NONEXISTENT  MEMORY 


0061  TO 


0060 

0376 

0377 


AVAILABLE  E^AsABEt  MEMORY 
RESERVED  ERASABLE  MEMORY 
AVAILABLE  ERASABLE  MEMORY 


OAOO  TO  0776  RESERVED  ERASABLE  MEMORY 

0777  AVAILABLE  ERAjABl'^  MEMORY 

1000  TO  1353  reserved  ERASABLE  MEMORY 

1354  AVAILABLE  ERASABLE  MEMORY 


1355 

TO 

E3*1775 

E3*1776 

TO 

E3*1777 

E4,1400 

TO 

E5*1776 

E5n777 


E6*1400 

TO 

£6*1720 

E6,172l 

TO 

E6*1777 

E7,1400 

TO 

E7*1615 

E7*1616 

TO 

E7,1777 

4000 

TO 

5772 

5773 

TO 

5777 

6000 

TO 

7765 

reserved  erasable  memory 

AVAILABLE  ERAjABL^  MEMORY 

reserved  erasable  memory 

AVAILABLE  ERASABLE  MEMORY 

RESERVED  ERASABLE  MEMORY 
available  ERAsABL^  MEMORY 
RESERVED  ERASABLE  MEMORY 
available  ERASABLE  MEMORY 

reserved  fixedi  memory 
available  fixed  memory 
reserved  fixed  memory 


7766  TO  7777  AVAILABLE  FIXED  MEMORY 


00*2000 

TO 

00*3701 

00,3702 

TO 

00*3777 

01,2000 

TO 

01,3625 

0 1 ,3626 

TO 

01,3777 

RESERVED  FIXED  MEMORY 

available  fIxed  memory 

RESERVED  FIXED.  MEMORY 
available  FIXED  MEMORY 


02»2000 
04»2000 
0^,3560 
Os, 2000 


03*3777 

04*3557 

04,3777 

05,3525 


TO 

TO 

TO 

TO 


SPECIAL  OR  No\iEXlSTENT  MEMORY 

reserved  fixedi  memory 

AVAILABLE  FIXED  MEMORY 
RESERVED  FIXED;  MEMORY 


05,3526 

06*2000 

TO 

T r\ 

05*3777 

1 0 

06  * 3245 

06*3246 

TO 

06,3777 

07*2000 

TO 

07,3705 

07*3706 

TO 

07*3777 

10,2000 

TO 

10*3346 

10,3347 

TO 

10,3777 

11,2000 

TO 

11,3330 

11*3331 

TO 

11*3777 

12*2000 

TO 

12,3621 

12,3622 

TO 

12,3777 

13*2000 

TO 

13*3627 

AVAILABLE  FIXED  MEMORY 

reserved  fixed  memory 
available  fixed  memory 

RESERVED  FIXED.  MEMORY 

available  fixed  memory 
reserved  fixed,  memory 
available  fixed  memory 
reserved  fixed  memory 

available  fixed  memory 
reserved  fixed  memory 

AVAILABLE  FIXED  MEMORY 
reserved  FIXED  MEMORY 
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13 

,3630 

TO 

13 

,3777 

14 

*2000 

TO 

14 

*3731 

14 

*3732 

TO 

14 

*3777 

15 

*2000 

TO 

15 

*3755 

15 

*3756 

TO 

15 

*3777 

16 

*2000 

TO 

16 

*3714 

16 

*3715 

TO 

16 

,3777 

17 

,2000 

TO 

17 

,3775 

l7 

*3776 

TO 

l7 

*3777 

20 

*2000 

TO 

20 

,3652 

20 

*3653 

TO 

20 

*3777 

21 

*2000 

TO 

21 

*3743 

21 

*3744 

TO 

21 

*3777 

22 

*2000 

TO 

22 

*3655 

22 

*3656 

TO 

22 

*3777 

23 

,2000 

TO 

23 

,3365 

23 

*3366 

TO 

23 

*3777 

2-4 

*2000 

TO 

24 

*3733 

24 

*3734 

TO 

24 

*3777 

25 

*2000 

TO 

25 

*3002 

25 

*3003 

TO 

25 

*3777 

26 

,2000 

TO 

26 

*2752 

26 

*2753 

TO 

26 

,3777 

27 

,2000 

TO 

27 

*3472 

2 7 

*3473 

TO 

27 

*3777 

30 

*2000 

TO 

30 

*3531 

30 

,3532 

TO 

30 

*3777 

31 

,2000 

TO 

31 

,2441 

31*2442 

TO 

T r\ 

31 

3777 

32 ,2000 

1 U 

32 

3042 

32*3043 

TO 

32 

3777 

33*2000 

TO 

33 

3313 

33*3314 

TO 

33 

3777 

3<,*2000 

TO 

34 

3766 

34*3767 

TO 

34 

3777 

35*2000 

TO 

35 

3567 

35*3570 

TO 

35 

3777 

36*2000 

TO 

36 

3477 

36*3500 

TO 

36 

3777 

37*2000 

TO 

37 

3710 

available  fixed  memory 

reserved  fixed  memory 
available  fixed  memory 

RESERVED  FIXED  MEMORY 
AVAILABI  E fixed  MEMORY 

reserved  fixeo  memory 
AVAILABI e Fixed  memory 
reserved  fixed  memory 

AVAILABI E FIXED  MEMORY 
reserved  FIXE(d  memory 
AVAILABI E Fixed  memory 

reserved  fixed  Memory 

AVAILABI  E FIXED  MEMORY 

reserved  fixed  memory 

AVAILABI  E FIXED  MEMORY 
RESERVED  FIXED  MEMORY 

AVAILABI E fixed  MEMORY 

reserved  fixEd  memory 

AVAILABI E fixed  MEMORY 
RESERVED  FIXED  MEMORY 

AVAILABI E Fixed  memory 
reserved  FIxEo  memory 
AVAILABI  E Fixed  memory 
reserved  fixed  memory 

AVAILABI  E Fixed  memory 
reserved  fixed  memory 
AVAILABI  E Fixed  memory 
RESERVED  FIXED  MEMORY 


AVAILABI E Fixed  memory 
reserved  fixed  memory 
AVAILABI  £ Fixed  memory 
reserved  fixed  memory 

AVAILABLE  FIXED  MEMORY 
reserved  FIxEd  MEmORY 
AVAILABI E Fixed  memory 
reserved  FIXED  MEMORY 

AVAILABLE  FIXED  MEMORY 

reserved  fixed  memory 

AVAILABI  E fixed  MEMORY 

reserved  fixed  Memory 
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memory  type  & availability  display 

37.3711  TO  43.3777  AvAIlAblE  pIX'D  M^^MORy  44.2000  TO  67.3777  SpECIAu  OR  NONEXISTENT  viEmORy 


V 
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occupieIJ  Locations  page  occupies  i-ocatIons  page 


4000 

TO 

4046 

4047 

TO 

4063 

4064 

4073 

TO 

TO 

4072 

4104 

5A  S326 

55  5352 

62 

6A  5356 


0 5351  891 

0 535A  892 

5355  93? 

0 5371  938 


4105 

TO 

4126 

67 

4127 

TO 

4156 

71 

4157 

TO 

4224 

72 

4225 

TO 

4227 

73 

4230 

TO 

4233 

75 

4234 

TO 

4260 

77 

4261 

TO 

4262 

88 

4263 

TO 

4277 

90 

4300 

TO 

4302 

91 

4303 

TO 

4311 

124 

43I2 

TO 

4322 

155 

4323 

TO 

4365 

156 

5372 

10 

5434 

985 

5435 

10 

5504 

986 

5505 

10 

5522 

987 

5523 

10 

5562 

988 

5563 

10 

5613 

989 

5614 

10 

5647 

999 

5650 

10 

5700 

♦ 00 

5731 

10 

5711 

♦ 02 

5712 

10 

5731 

♦ 03 

5732 

10 

5744 

♦ 04 

5745 

I u 

5756 

♦ 1 1 

5757 

10 

5770 

♦ 12 

A366  TO  AA23  157 

AA2A  TO  4A32  26A 

AA33  TO  AA46  274 

4447  TO  4454  275 


5771 

10 

5772 

885 

6000 

10 

6007 

302 

6010 

10 

6017 

462 

60  20 

' u 

6O44 

770 

4455 

TO 

4475 

4476 

TO 

4501 

4502 

TO 

4532 

4533 

TO 

4573 

4574 

TO 

4620 

4621 

TO 

4635 

4636 

TO 

4654 

4655 

TO 

4724 

276 

6045 

277 

6075 

289 

6103 

290 

6114 

291 

6137 

293 

6151 

294 

6200 

295 

6247 

•0  6O74  771 

(0  6102  772 

10  6113  893 

10  6136  894 


0 6150  895 

0 6177  896 

0 6246  897 

0 6250  898 


6302  899 

6316  900 

6332  901 

6372  9O2 


4725  TO  4743  300  6251  lO 

4744  TO  5010  301  6333  10 

5011  TO  5014  302  6317  '0 

5OI5  TO  5036  39O  6333  10 


5037  TO  5064 

5065  TO  5101 

5102  TO  5140 

5141  TO  5174 

5175  TO  5223 

5224  TO  5252 

5253  TO  5306 

5307  TO  5325 


46l  6373 

746  6413 

747  6432 

753  6454 

754  6474 

888  6520 

889  6530 

890  6572 


0 6412  9O3 

0 6431  9O5 

0 6453  9O6 

0 6473  9O7 

0 6517  9O8 

0 6527  9O9 

0 6571  910 

0 6625  9II 
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occupied  Locations  page 


occupied  locations  page 


6626 

TO 

6673 

912 

6674 

913 

6675 

TO 

6730 

914 

6731 

TO 

6771 

915 

00 

,2423 

TO 

00,2463 

951 

00 

,2464 

TO 

00,2501 

952 

00 

,2502 

TO 

00,2531 

953 

00 

♦ 2532 

TO 

00,2551 

954 

6772 

TO 

7015 

7016 

TO 

7O43 

7044 

TO 

7073 

7074 

TO 

7132 

7133 

TO 

7145 

7146 

TO 

7200 

7201 

TO 

7216 

7217 

TO 

7257 

7260 

TO 

7301 

7302 

TO 

7317 

7320 

T 0 

7366 

7367 

TO 

7401 

7402 

TO 

7412 

7413 

TO 

7451 

7452 

7476 

TO 

TO 

7475 

7531 

916 

00,2552 

917 

918 

919 

00 ,2567 
00,2604 
00,2616 

920 

921 

00,2657 

00,2715 

922 

923 

00,2745 

00,2770 

924 

925 

00,3040 

00,3077 

926 

927 

00 , 3 1 1 7 
00,4142 

928 

929 

930 

00,3200 

00,3250 

00,3313 

931 

00,3354 

TO  00 

to  00 

TO  00 
TO  00 

TO  00 
TO  00 


2566 

2603 

2615 

2656 

2714 

2744 


TO  00,2767 
TO  00,3037 


TO  00,3076 
TO  00,3116 
TO  00,3141 
TO  00,3177 


TO  00,3247 
TO  00,3312 
TO  00,3353 
TO  00,3424 


955 

956 

95  I 

958 

959 

960 

961 

962 

963 

964 

965 

966 

96  I 

968 

969 

970 


7532 

TO 

757O 

932 

7571 

TO 

7615 

933 

7616 

TO 

7647 

934 

7650 

TO 

7700 

935 

00,3425 

TO 

00,3465 

97I 

00,3466 

TO 

00,3521 

97<! 

00,3522 

TO 

00,3556 

973 

00,3557 

TO 

00,3620 

974 

7701 

TO 

7733 

g36 

7734 

TO 

7763 

937 

7764 

TO 

7765 

885 

00,2000 

TO 

00,2016 

9O4 

00,2017  TO  00,2041  939 

00,2042  TO  00,2100  940 

00,2101  TO  00,2120  941 

00,2121  TO  00,2143  942 

00,2144  TO  00,2171  943 

00,2172  TO  00,2213  944 

00,2214  TO  00,2235  945 

00,2236  TO  00,2276  946 


00,3621 

TO 

00,3662 

00,3663 

TO 

00,3677 

00,3700 

TO 

00,3701 

01,2000 

TO 

01,2043 

2O44 

2115 

2142 

2211 

2264 

2322 

2371 

2446 


TO  01 
TO  01 
TO  01 
TO  01 

TO  01 
TO  01 
TO  01 
TO  01 


2114 

2141 

2210 

2263 

2321 

2370 

2445 

2517 


975 

976 
885 

78 


79 

80 

81 

82 

83 

84 

85 

86 


00,2277  TO  00,2331 


947 


01 


2520  TO  01 


2547 


8T 


00,2332  TO  00,2351  948 

00,2352  TO  00,2421  949 

00,2422  950 


2550  TO  01 
2557  TO  01 
2605  TO  01 


2556 

2604 

2641 


88 
97  T 
978 
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locations 
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OCCUPIED 

1-OCAtIoNS 

page 

01 ,26^2 

TO 

01,2661 

979 

04,3334 

10 

04,3103 

260 

01,2662 

TO 

01,2701 

980 

04,3134 

10 

04,3116 

261 

01,2702 

TO 

01,2730 

98l 

04,3117 

lO 

04,3172 

265 

01,2731 

TO 

01,27A5 

982 

04,3173 

10 

04,3216 

266 

Ol ,27^6 

TO 

01,2767 

983 

04,3217 

• 0 

04,3234 

267 

01,2770 

TO 

01,3013 

984 

04,3235 

10 

04,3305 

268 

01 ,30U 

TO 

01,3046 

99O 

04,3336 

10 

04,3325 

269 

0 

0 

TO 

01,3112 

99I 

04,3326 

10 

04,3351 

271 

01,3113 

TO 

01,3165 

992 

04,3352 

10 

04,3432 

272 

01,3166 

TO 

01,3170 

993 

04,3433 

10 

04,3437 

273 

01,3171 

TO 

01,3205 

994 

04,3440 

10 

04,3455 

277 

01,3206 

TO 

01,3254 

995  ' 

04,3456 

10 

04,3471 

278 

01,3255 

TO 

01,3265 

996 

04,3472 

10 

04,3513 

293 

01,3266 

TO 

01,3325 

997 

04,3514 

10 

04,3535 

294 

01,3326 

TO 

01,3357 

998 

04,3536 

10 

04,3555 

296 

01,3360 

TO 

0 

0 

♦ 05 

04,3556 

10 

04,3557 

885 

_ ^ n 

TO 

05,2033 

237 

0 1 f 3404 

01 ,3433 

♦ 06 

05 ,2330 

' 0 

0l,3A3A 

TO 

01,3477 

♦ 07 

05»<^034 

10 

05,2112 

238 

01,3500 

TO 

01,3514 

♦ 08 

05,2113 

10 

05,2170 

239 

01,3515 

TO 

01,3527 

♦ 09 

05,2171 

10 

05,2175 

240 

01,3530 

TO 

01 ,356A 

♦ 10 

05,2176 

10 

05,2240 

241 

01,3565 

TO 

01,3575 

♦ 12 

05,2241 

10 

05,2311 

242 

01,3576 

TO 

01,3623 

♦ 13 

05*2312 

10 

05,2325 

243 

01,362a 

TO 

01,3625 

885 

05,2326 

•0 

05,2402 

246 

0a,2000 

TO 

04,2050 

227 

05,2433 

• 0 

05,2452 

247 

TH 

n ^ 1 1 A 

1 A 

05,2524 

248 

f 6 u p X 

1 U 

U H f 1 1 i 6 

05,2453 

1 u 

0A,2117 

TO 

04,2200 

229 

05,2525 

10 

05,2534 

249 

0a,2201 

TO 

04,2247 

230 

05,2535 

10 

05,2604 

253 

0A,2250 

TO 

04,2323 

231 

05,2635 

10 

05,2662 

254 

0A,232a 

TO 

04,2366 

232 

05,2653 

10 

05,2733 

255 

0 A ? a A f 

TH 

n Z*.  *5  A.  A.  A 

1 n 

05,3006 

256 

«c^o7 

1 U 

05  ,‘734 

1 u 

0a,2AA5 

TO 

04,2510 

234 

05,3037 

10 

05,3052 

257 

OA,25ll 

TO 

04,2556 

235 

05,3353 

10 

<55,3076 

258 

0A,2557 

TO 

04,2572 

236 

05,3077 

10 

05,3130 

262 

04,2573 

TO 

04,2622 

249 

05,3131 

10 

05,3176 

263 

O4  f 26^3 

TO 

Oil  - ? A-y  1 

Ac  3 1 ^ 7 

1 n 

He  “a  9 0 1 

9 A A 

VH  f C 0 f 1 

A ? u 

*^0%^  ill 

' u 

04,2672 

TO 

04,2725 

251 

05,3222 

10 

05,3245 

266 

04,2726 

TO 

OA,27AO 

252 

05,3246 

10 

05,3266 

267 

04,27^1 

TO 

04,2760 

258 

05,3257 

10 

05,3301 

269 

04,2761 

TO 

04,3033 

259 

05,3332 

10 

05,3337 

270 
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page 

occupied 

locations 

PAGt 

05 

,3340 

TO 

05,3343 

271 

07,2245 

TO 

07 

2300 

717 

05 

,3344 

TO 

05,3402 

275 

07,2301 

TO 

07 

2316 

7lB 

05 

,3403 

TO 

05,3413 

277 

07,7317 

TO 

07 

2361 

7lV 

05 

,3414 

TO 

05,3457 

297 

07,7362 

TO 

07 

2402 

720 

05 

,3460 

TO 

05,3520 

298 

07,2403 

TO 

07 

2453 

721 

05 

,3521 

TO 

05,3523 

299 

07,2454 

TO 

07 

2476 

722 

05 

,3524 

TO 

05,3525 

885 

07,2477 

TO 

07 

2512 

723 

06 

,2000 

TO 

06,2027 

57 

07,2513 

TO 

07 

2551 

724 

06 

,2030 

TO 

06,2062 

58 

07,7552 

TO 

07 

2601 

725 

06 

,2063 

TO 

06,2123 

59 

07,7602 

TO 

07 

2642 

726 

06 

,2124 

TO 

06,2131 

60 

07,2643 

TO 

07 

2676 

727 

06 

,2132 

TO 

06,2173 

6l 

07,2677 

TO 

07 

2725 

72b 

06 

,2174 

TO 

06,2226 

62 

07,2726 

TO 

07 

2763 

729 

06 

,2227 

TO 

06,2274 

63 

07,2764 

TO 

07 

3026 

730 

06 

,2275 

TO 

06,2323 

64 

07,3027 

TO 

07 

3050 

731 

06 

,2324 

TO 

06,2364 

65 

07,3051 

TO 

07 

3121 

732 

06 

,2365 

TO 

06,2410 

73 

07,3122 

TO 

07 

3174 

733 

■ 06 

,2411 

TO 

06,2457 

74 

07,3175 

TO 

07 

3223 

734 

06 

,2460 

TO 

06,2466 

75 

07,3224 

TO 

07 

3252 

735 

06 

,2467 

TO 

06,2523 

348 

07,3253 

TO 

07 

3317 

736 

06 

,2524 

TO 

06,2547 

349 

07,3320 

TO 

07 

3375 

737 

06 

,2550 

TO 

06,2607 

35O 

07,3376 

TO 

07 

3425 

73b 

06 

,2610 

TO 

06,2662 

351 

07,3426 

TO 

07 

3453 

739 

06 

,2663 

TO 

06,2702 

352 

07,3454 

TO 

07 

3524 

740 

06 

,2703 

TO 

06,2742 

353 

07,3525 

TO 

07 

3562 

741 

06 

,2743 

TO 

06,2777 

354 

07,3563 

TO 

07 

3602 

742 

06 

,3000 

TO 

06,3033 

355 

07,3603 

TO 

07 

3620 

743 

06 

,3034 

TO 

06,3105 

356 

07,3621 

TO 

07 

3662 

744 

06 

,3106 

TO 

06,3117 

357 

07,3663 

TO 

07 

3703 

745 

06 

,3120 

TO 

06,3150 

358 

07,3704 

TO 

07 

3705 

885 

06 

,3151 

TO 

06,3211 

359 

10,2000 

TO 

10 

2012 

15b 

06 

,3212 

TO 

06,3243 

360 

10,7013 

TO 

10 

7O5O 

159 

06 

,3244 

TO 

06,3245 

885 

10,?05l 

TO 

10 

2114 

160 

07 

,2000 

TO 

07,2017 

88 

10,2115 

TO 

10 

2147 

161 

O7 

,2020 

TO 

07,2060 

89 

10,2150 

TO 

10 

2212 

162 

At 

,2061 

T A 

in  0 '5  1 a 

th 

1 A 

1 a3 

i U 

U7 ,2072 

i\j  %cci5 

\ u 

iU 

A fc  HO 

07 

,2073 

TO 

07,2121 

713 

10,2247 

TO 

10 

2305 

164 

07 

,2122 

TO 

07,2201 

714 

10,2306 

TO 

10 

2330 

165 

O7 

,2202 

TO 

07,2215 

715 

10,2331 

TO 

10 

2350 

166 

O7 

,2216 

TO 

07,2244 

716 

10,2351 

TO 

10 

2362 

167 

^8895AA  yJL  system  pOR  AQc:  NEw  PROGRAM  SHEpATIN  BY  EYL^S 


occupied 

10,2363 

10,2A22 

10,2A67 

10,250? 

10,25AA 

10,2573 

10,2636 

10,2652 

10,2707 

10,2755 

10,302^ 


10,3100 

10,3126 

10,3161 

10,3225 

10,3241 

10,3260 

10,3321 

10,3345 


11,2000 
11 ,2044 
11,2106 
11,2110 

11,2132 

11,2154 

11,2204 

11,2234 

11,2266 

11,2303 

11i2327 

11,2375 

11,2411 

11,2457 

11,2502 

11,2531 

11,2573 

11,2641 

11,2705 

11,2724 
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TO 

10,2421 

168 

11,2765 

10 

11,3013 

TO 

10,2466 

169 

11,3014 

10 

11,3044 

TO 

10,2506 

170 

11,3045 

Jo 

11,3113 

TO 

10,2543 

171 

11,3114 

10 

11,3125 

TO 

10,2572 

172 

11,3126 

10 

11,3172 

TO 

10,2635 

173 

11,3173 

TO 

10,2651 

174 

11,3174 

10 

11,3244 

TO 

10,2706 

175 

11,3245 

10 

11,3246 

207 

206 

209 

210 

211 

212 

213 

214 


TO  10,2754  176 

TO  10,3023  177 

TO  10,3076  178 

10,3077  179 


11,3247 

11,3270 

11,3327 

12,2000 


10  11 
10  11 
'0  11 
10  12 


3267 

3326 

3330 

2027 


303 

304 

885 

90 


TO  10,3125  lao 

TO  10,3160  181 
TO  10,3224  182 
TO  10,3240  183 


1 *5 

,2030 

,2066 

1 n 

12,2065 

12,2133 

12 

12 

* u 
10 

92 

93 

12 

,2134 

10 

12,2151 

94 

12 

,2152 

• 0 

12,2216 

95 

TO  10,3257  184 
TO  10,3320  185 
TO  10,3344  186 
TO  10,3346  885 


TO  11,2043  187 
TO  11,2105  188 
TO  11,2107  189 
TO  11,2131  190 

TO  11,2153  I9I 
TO  11,2203  192 
TO  11,2233  193 
TO  11,2265  194 


12,2217 

12,2271 

12,2306 

12,2323 


j.O  12 
)0  12 
•0  12 
lO  12 


227O 

2304 

2322 

2351 


12,2353 

12,2421 

12,2456 

12,2507 

12,2531 

12,2547 

12,2573 


12 

0 12 
0 12 
0 12 


2352 

24?0 

2465 

2506 


0 

0 

0 

0 


253O 

2546 

2572 

2623 


96 

97 

98 

99 


100 

101 

102 

103 

104 

105 

106 
107 


TO  11,2302  195 


12,2624 


0 12 


2642 


108 


TO  11,2326  196 

TO  11,2374  197 

TO  11,2410  198 


12,2643 

12,2656 

12,2673 


0 

0 

0 


2665 

2672 

2711 


109 

110 
111 


TO  11,2456 
TO  11,2501 
TO  11,2530 
TO  11,2572 


199 

200 
201 
202 


12,2712  lO 
12,2730  10 

12,2751  iO 
12,2753  JO 


2727 

2750 

2762 

3006 


112 

113 

114 

115 


TO 

11,2640 

203 

12,3037 

lO 

12,3035 

TO 

11,2704 

204 

12,3036 

JO 

12,3070 

TO 

11,2723 

205 

12,3071 

to 

12,3131 

TO 

11,2764 

206 

12,3132 

to 

12,3151 

116 

117 

118 
II9 
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occupied 

12,3152 

12,3176 

12,3203 

12,3220 

12,3271 

12,3337 

12,3402 

12,3435 

12,3503 

12,3552 

12,3615 

12,3620 


13,2000 

13,2043 

13,2045 

13,2065 

13,2124 

13,2155 

13.2210 

13,2251 


13.2315 

13,2330 

13.2361 

13,2426 

1 3 .2444 
13,2502 
13,2535 
13,2600 

13,2650 

13,2675 

13,2726 

13,2754 

13,3007 

13,3017 

13,3066 

13,3144 

13,3220 

13,3233 

13,3310 

13,3364 
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TO 

12,3175 

120 

TO 

12,3202 

121 

TO 

12,3217 

535 

TO 

12,3270 

804 

TO 

12,3336 

805 

TO 

12,3401 

806 

TO 

12,3434 

807 

TO 

12,3502 

808 

13,3367 

13,3444 


13,3506 

13,3526 


3605 

3626 

2000 

2043 


TO  13 
TO  13 
TO  13 
TO  13 


3443 

3505 

3525 

3604 


TO 

TO 

TO 

TO 


3625 

3627 

2042 

2112 


153 

154 

215 

216 

21  I 
885 

361 

362 


TO 

12,3551 

809 

14,2113 

TO 

I2,36l4 

810 

14,2135 

TO 

12,3617 

8ll 

14,2210 

TO 

12,3621 

885 

14,2247 

TO 

14,2134 

363 

TO 

14,2207 

364 

TO 

14,2246 

365 

TO 

14,2315 

366 

TO  13,20^2  125 
TO  13,2044  126 
TO  13,2064  127 
TO  13,2123  128 


23l6 

2325 

2401 

2407 


TO 

TO 

TO 

TO 


14,2324 

14,2400 


14,2406 

14,2455 


367 

36B 

369 

37D 


TO  13,2154 
TO  13,2207 
TO  13,2250 
TO  13,2314 


TO  13,2327 
TO  13,2360 
TO  13,2425 
TO  13,2443 

TO  13,2501 
TO  13,2534 
TO  13,2577 
TO  13,2647 


129 

130 

131 

132 


133 

134 

135 

136 

137 

138 

139 

140 


14,2456 

TO 

14,2531 

14,2532 

TO 

14,2577 

14,2600 

TO 

14,2645 

14,?646 

TO 

14,2707 

2710 

2731 

2762 

3032 

3064 

3125 

3200 

3256 


TO  14 
TO  U 
TO  14 
TO  14 

TO  14 
TO  14 
TO  14 
TO  14 


2730 

2761 

1031 

3063 

3124 

3177 

3255 

3325 


371 

372 

373 

374 


375 

376 
37  7 
37B 

379 

380 

381 

382 


TO  13,2674  141 


14 


3326  TO  14 


3362  383 


TO 

13,2725 

142 

14,3363 

TO 

14,3442 

TO 

13,2753 

143 

14,3443 

TO 

14,3521 

TO 

13,3006 

144 

14,3522 

TO 

14,3563 

384 

385 

386 


TO  13,3016 
TO  13,3065 
TO  13,3143 
TO  13,3217 


145 

146 

147 

148 


3564 

3615 

3645 

3705 


TO 

TO 

TO 

TO 


3614 

3644 

3704 

3727 


387 

388 

389 

390 


To  13,3232  149 

TO  13,3307  I5O 
TO  13,3363  I5l 
TO  13,3366  152 


14,3730 

TO 

14,3731 

885 

15,2000 

311 

15,2001 

TO 

15.2051 

312 

15,2052 

TO 

15,2ll6 

313 
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Is 

,2117 

TO 

15 

,2153 

314 

16*^1 75 

10 

16 

*2235 

465 

15 

,215A 

TO 

15 

,2225 

315 

16*2236 

10 

16 

*2302 

466 

is 

,2226 

TO 

15 

*2274 

316 

16*2333 

•0 

16 

*2345 

467 

16*2346 

1 n 

16 

z* 

Is 

,2275 

TO 

1 S 

*2350 

317 

468 

is 

,2351 

TO 

15 

*2353 

318 

16*2437 

• 0 

16 

*2464 

469 

Is 

,235A 

TO 

is 

*2406 

319 

16*2465 

10 

16 

,2531 

470 

Is 

,2A07 

TO 

15 

*2451 

320 

16*2532 

10 

16 

,2601 

471 

rn 

1 c 

1 n 

1 y 

P A C 1 

472 

15 

, 2AS2 

1 U 

1 5 

321 

1 6 

is 

,2A72 

TO 

15 

*2527 

322 

16*2652 

10 

16 

,2721 

A73 

is 

,2530 

TO 

IS 

*2542 

323 

16*2722 

10 

16 

,2727 

474 

is 

,25A3 

TO 

15 

*2575 

324 

16*2730 

10 

16 

,2740 

476 

Is 

»2576 

TO 

15 

*2621 

325 

16*2741 

10 

16 

,3012 

477 

Is 

,2622 

TO 

15 

*2645 

326 

16*3013 

10 

l6 

,3054 

478 

15 

,26^6 

TO 

15 

*2713 

327 

16*3055 

10 

16 

,3121 

479 

is 

,27U 

TO 

15 

*2757 

328 

16*3122 

10 

16 

,3177 

480 

Is 

t2760 

TO 

15 

,3005 

329 

16*3230 

10 

16 

*3261 

481 

Is 

,3006 

TO 

15 

,3044 

330 

16*3262 

10 

16 

*3343 

482 

is 

♦ 30A5 

TO 

IS 

*3075 

331 

16*3344 

10 

16 

*3414 

483 

Is 

i3076 

TO 

15 

*3127 

332 

16*3415 

10 

16 

*3422 

485 

15 

,3130 

TO 

15 

*3160 

333 

16*3423 

10 

16 

*3504 

486 

15 

,3161 

TO 

15 

*3220 

334 

16*3535 

10 

16 

*3564 

487 

is 

,3221 

TO 

IS 

*3273 

335 

16*3565 

10 

16 

*3636 

488 

Is 

,3274 

TO 

15 

,3305 

336 

16*3637 

10 

16 

*3710 

489 

is 

*3306 

TO 

15 

,3350 

337 

16*3711 

10 

16 

*3712 

490 

is 

,3351 

TO 

15 

,3421 

338 

16*3713 

10 

16 

*3714 

885 

15 

,3422 

TO 

15 

,3446 

339 

17*2030 

10 

17 

*2031 

491 

15 

*3447 

TO 

15 

,3474 

340 

17*2032 

10 

17 

*2103 

492 

Is 

*3475 

TO 

15 

,3520 

341 

17*2134 

10 

17 

*2154 

493 

Is 

*3521 

TO 

15 

,3562 

342 

17*2155 

10 

17 

,2220 

494 

15 

*3563 

TO 

15 

,3620 

343 

17*2221 

to 

17 

*2271 

495 

Is 

*3621 

TO 

15 

,3632 

344 

17*2272 

10 

17 

,2343 

496 

Is 

*3633 

TO 

15 

,3673 

345 

17*2344 

• o 

17 

,2415 

497 

is 

*3674 

TO 

15 

,3700 

346 

17*2416 

10 

17 

,2435 

498 

is 

*3701 

TO 

15 

*3753 

347 

17*2436 

10 

17 

*2460 

499 

15 

*3754 

TO 

15 

,3755 

885 

17*2461 

10 

17 

*25^1 

500 

16 

,2000 

TO 

16 

,2026 

454 

17*2532 

10 

17 

*2611 

501 

16 

*2027 

TO 

16 

,2076 

455 

17*2612 

lo 

17 

*2617 

502 

16 

*2077 

TO 

16 

,2103 

461 

17*2620 

10 

17 

*2644 

503 

l6 

*2104 

TO 

16 

*2135 

463 

17*2646 

10 

17 

*2715 

504 

l6 

*2136 

TO 

16 

*2174 

464 

17*2716 

10 

17 

*2762 

5O5 

DEc  lA*  1966 


PAGE1099 


OCCUPIeD  LqCAtIoNS  Page  qECUPIeD  LoCATl^NS  paGe 


I7 

2763 

TO 

17*3027 

506 

20,3112 

TO 

20,3151 

57I 

17 

3030 

TO 

17*3101 

507 

20,3152 

TO 

20,3216 

57^: 

I7 

3102 

TO 

17*3147 

508 

20,3217 

TO 

20,3254 

573 

17 

3I5O 

TO 

17*3216 

509 

20,3255 

TO 

20,3301 

574 

I7 

3217 

TO 

17*3266 

510 

20,3302 

TO 

20,3320 

57t> 

I7 

3267 

TO 

17*3337 

511 

20,3321 

TO 

20,3324 

576 

17 

334O 

TO 

17*3411 

512 

20,3325 

TO 

20,3347 

58i 

17 

3412 

TO 

17*3464 

513 

20,3350 

TO 

20,3372 

582 

I7 

3465 

TO 

17*3514 

514 

20,3373 

TO 

20,3413 

583 

I7 

3515 

TO 

17*3560 

515 

20,3414 

TO 

20,3450 

58A 

17 

3561 

TO 

17*3602 

516 

20,3451 

TO 

20,3507 

585 

17 

3603 

TO 

17*3650 

517 

20,3510 

TO 

20,3550 

586 

17 

3651 

TO 

17*3720 

518 

20*3551 

TO 

20,3555 

587 

17 

3721 

TO 

17*3773 

519 

20,3556 

TO 

20,3610 

588 

17 

3774 

TO 

17,3775 

885 

20,3611 

TO 

20,3643 

589 

20 

2000 

TO 

20,2042 

122 

20,3644 

TO 

20,3650 

59O 

20 

2043 

TO 

20,2055 

123 

20,3651 

TO 

20,3652 

885 

20 

2056 

TO 

20,2070 

456 

21,2000 

TO 

21,2033 

541 

20 

2071 

TO 

20,2117 

457 

21,2034 

TO 

21,2103 

542 

20 

2120 

TO 

20,2161 

458 

21,2104 

TO 

21,2126 

543 

20 

2162 

TO 

20,2167 

459 

21*2127 

TO 

21,2l6l 

544 

20 

2170 

TO 

20,2223 

521 

21*2162 

TO 

21*?234 

545 

20 

2224 

TO 

20,2257 

522 

21*2235 

TO 

21,2304 

546 

20 

2260 

TO 

20,2314 

523 

21,?305 

TO 

21*2362 

547 

20,2315 

524 

21*2363 

TO 

21*2403 

54b 

20 

2316 

TO 

20,2345 

525 

21*2404 

TO 

21*2454 

549 

20 

2346 

TO 

20,2375 

526 

21,2455 

TO 

21*2535 

550 

20 

2376 

TO 

20,2432 

527 

21,2536 

TO 

21,2547 

551 

20 

2433 

TO 

20,2455 

528 

21,2550 

TO 

21,2560 

553 

20 

2456 

TO 

20,2504 

529 

21,2561 

TO 

21,2613 

554 

20 

2505 

TO 

20,2544 

53O 

21,2614 

TO 

21,2660 

555 

20 

2545 

TO 

20,2552 

531 

21,2661 

TO 

21,2730 

556 

20 

2553 

TO 

20,2612 

532 

21,2731 

TO 

21,2763 

557 

20 

2613 

TO 

20,2636 

533 

21*2764 

TO 

21,3026 

558 

20 

2637 

TO 

20,2676 

534 

21,3027 

TO 

21,3077 

559 

20 

2677 

TO 

20,2716 

535 

21,3100 

TO 

21,3154 

560 

20 

2717 

TO 

20,2767 

536 

21*3155 

TO 

21*3225 

561 

20 

2770 

TO 

20,3005 

537 

21*3226 

TO 

21,3277 

562 

20 

3006 

TO 

20,3035 

551 

21,3300 

TO 

21,3347 

563 

20 

3036 

TO 

20,3111 

552 

21,3350 

TO 

21,3414 

56'* 

488954^  YJL  SYSTEM  FqR  A^C:  nEW  Pro^RaM  SHEPaTin  BY 


OCCUPIED  locations  page  occupies  CoCATIONS 


21,3361  TO  21,341A  56A 

21,3A15  TO  21,3AA0  565 


22,35!t6  10  22,3600 

22,3601  10  22,3636 


21,3AA1  to  21,3501  567  22,3637  '0  22,3653 

21,3502  TO  21,3535  568  22,3659  '0  22,3655 


21,3536  TO  21,3602 
21,3603  TO  21,3650 
21,3651  TO  21,3721 
21,3722  TO  21,3791 

21,3792  TO  21,3793 
22,2000  TO  22,2032 

22,2033  TO  22,2072 
22,2073  TO  22,2126 

22,2127  TO  22,2165 
22,2166  TO  22,2230 
22,2231  TO  22,2303 
22,2306  TO  22,2365 


591 

23,2030 

23,2037 

23,2110 

23,2163 

10 

to 

to 

to 

23,2036 

592 

593 

599 

23,2162 

23,2292 

885 

23,2293 

10 

23,2321 

8l7  . 

23,2322 

to 

23,2377 

8l8 

23,2930 

to 

23,2959 

8l9 

23,2955 

10 

23,2517 

820 

23,2520 

to 

23,2555 

821 

23,2556 

to 

23,2617 

822 

23,2520 

to 

23,2660 

823 

23,2661 

to 

23,2725 

22,2366 

TO 

22 

,2912 

829 

22,2913 

TO 

22 

,2966 

825 

22,2967 

TO 

22 

,2530 

826 

22,2531 

TO 

22 

,2573 

827 

23,2726  lO 
23,2772  10 

23,3025  *0 

23,3072  10 


23,2771 

23,3029 

23,3071 

23,3103 


22,2579 

TO 

22,2619 

828 

22,2615 

TO 

22,2699 

829 

22,2695 

TO 

22,2707 

830 

22,2710 

TO 

22,2720 

831 

23,3106 

23,3139 

23,3171 

23,3235 


0 

0 

0 

0 


23,3133 

23,3170 

23,3239 

23,3271 


22,2721  TO 
22,2750  TO 
22,2767  TO 
22,3037  TO 

22,3101  TO 
22,3160  TO 
22,3177  TO 
22,3216  TO 


22,2797  832 
22,2766  833 
22,3036  836 
22,3100  835 

22,3137  836 
22,3176  837 
22,3213  838 
22,3220  839 


23,3272 

23,3331 

23,3369 

26,2000 

26,2096 

26,2126 

26,2207 

26,2297 


0 23,3330 
0 23,3363 
0 23,3365 
0 26,2065 

0 26,2125 
0 26,22n6 
0 26,2266 
0 26,2323 


22,3221 

TO 

22 

,3267 

890 

29,2329 

22,3270 

TO 

22 

,3332 

891 

29,2939 

22,3333 

TO 

22 

,3362 

892 

29,2997 

22,3363 

TO 

22 

,3377 

893 

29,2530 

0 26,2603 
0 26,2666 
0 26,2527 
0 26,2606 


22,3600  TO  22,3621  896 

22,3622  TO  22,3650  895 


26,2607  '0  26,2663 

26,2669  to  26,2790 


22,3651  TO  22,3506  896  26,2791 

22,3507  TO  22,3566  897  26,2773 


0 26,2772 
_0  26,3053 


EYLEs 


page 

898 

899 

850 

885 

281 

282 

283 

289 

285 

286 

287 

288 

916 

917 

918 

619 

620 
921 
622 
923 


926 

625 

926 

927 

628 

629 

885 

391 

392 

393 
399 

395 

396 

397 

398 

399 

600 

601 

902 

603 
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26,3056  to  26,3066  609 

26,3065  TO  26,3125  605 


26 

26 


2726 

7751 


TO  26,2750 
TO  26,2752 


579 

885 


3126 

3207 


TO  26,3206  606  27,2000  TO  27,2002  633 

TO  26,3262  607  27,2003  TO  27,7052  639 


29,3263 

TO 

TO 

TO 

TO 

29,3399 

29,3923 

29,3962 

29,3525 

908 

27 

,2053 

TO 

TO 

27 , ?066 

29,3395 

29,3929 

29,3963 

909 

910 

911 

27 

27 

27 

,2067 

,2131 

,2206 

1 u 
TO 
TO 

27,2130 

27,2205 

27,2252 

29,3526 

TO 

29,3575 

912 

27 

,2253 

TO 

27,2317 

29,3576 

TO 

29,3627 

913 

27 

,2320 

TO 

27,2361 

29,3630 

TO 

29,3706 

919 

27 

,2362 

TO 

27,2427 

29,3707 

TO 

29,3731 

915 

27 

,2930 

TO 

27,2462 

29,3732 

TO 

29,3733 

883 

27 

,2963 

TO 

27,2467 

25,2000 

TO 

25,2096 

6A5 

27 

,2470 

TO 

27,2534 

25,2097 

TO 

25,2112 

6A6 

27 

,2535 

TO 

27,2554 

25,2113 

TO 

25,2156 

647 

27 

,2555 

TO 

27,2603 

635 

63T 

638 

639 

690 

691 

692 

693 

666 
66  T 
668 
677 


25 

25 

25 

25 


2157 

2225 

2273 

2339 


TO  25,2229 
TO  25,2272 
TO  25,2333 
TO  25,2900 


698 

699 

650 

651 


27 

27 

27 

27 


2609 

2651 

2655 

27I6 


TO  27,2650  67U 
TO  27,2659  679 
TO  27,2715  680 
TO  27,2765  68l 


25,2901 

TO 

25,2992 

652 

27,2766 

25,2993 

TO 

25,2966 

653 

27,3039 

25,2967 

TO 

25,2535 

670 

27,3071 

25,2536 

TO 

25,2609 

67l 

27,3131 

TO 

27,3033 

682 

TO 

27,a070 

683 

TO 

27,3130 

704 

TO 

27,3174 

7O5 

25,2605 

TO 

Tn 

25,2655 

25 ,2656 

25,2720 

25,2756 

1 U 
TO 
TO 

25 ,2717 
25,2755 
25,3000 

25,3001 

26,2000 

TO 

TO 

Tn 

25,3002 

26,2057 

26,2060 

26,2142 

1 U 

TO 

26,2141 

26,2223 

672 

673 
679 
675 

885 

305 

306 

307 


3175 

3291 

3267 

3306 


27,3393 

27,3909 


27,3917 

27,3971 


TO  27,3290 
TO  27,3266 
TO  27,3305 
TO  27,3392 

TO  27,3903 
TO  27,3916 
TO  27,r»A70 
TO  27,3972 


706 

707 

708 

709 

710 

711 

712 
885 


26,2224 

TO 

26 

,2302 

308 

26,2303 

TO 

26 

,2364 

309 

26,2365 

TO 

26 

,2440 

310 

26,2941 

TO 

26 

,2503 

538 

30,2000 

30,2003 

30,2097 

n 0 1 1 c 

TO 

TO 

TO 

td 

30,2002 

30,2096 

30,2114 

Ti  n 1 c A 

76P 

766 

76? 

f ^ i i 

1 u 

f i po 

( 0 0 

26 

26 


2509 

2556 


TO  26,2555 
TO  26,2610 


539 

59O 


30,2157  TO  30,2227  769 

30,2230  TO  30,2232  770 


26 

26 


2611 

2653 


TO  26,2652 
TO  26,2723 


577 

578 


30,2233  TO  30,227°  11^ 

30,2271  TO  30,?316  773 


48895^A  yJL  system  FOr  Aqc:  NtW  PROGRAM  SHEPATIN  BY  EYLEs 


occupied 

locations 

page 

occupied 

Locations 

page 

30,2317 

TO 

30,2346 

774 

31 ,2<,D1 

10 

31,2430 

761 

TO 

■3  1 7 A a 1 

1 n 

31,2437 

30 ,23A7 

iV  ,2374 

775 

31 ♦ H 3 1 

’ u 

30,2375 

TO 

30,2401 

776 

31,2440 

10 

31,2441 

886 

30,2402 

TO 

30,2415 

in 

32,2030 

10 

32,2047 

851 

30,2416 

TO 

30,2464 

778 

32,2050 

10 

32,2117 

852 

30,2465 

TO 

30,2505 

779 

32,2120 

10 

32,2135 

853 

TO 

■a  *>  ? 1 a z. 

I n 

a a a a 1 ^ 

854 

30 ,2506 

30,2510 

780 

3 c * ^ 1 3 6 

30,2511 

TO 

30,2562 

78l 

32,2220 

10 

32,2300 

855 

30,2563 

TO 

30,2565 

782 

32,2331 

ro 

32,2361 

856 

30,2^66 

TO 

30,2636 

783 

32,2362 

10 

32,2443 

857 

30,2637 

TO 

30,2653 

784 

32,2444 

10 

32,2522 

856 

30,2654 

TO 

30,2731 

785 

32,2523 

10 

32,2602 

859 

30,2732 

TO 

30,3001 

786 

32,2633 

10 

32,2663 

860 

30,3002 

TO 

30,3042 

787 

32,2654 

10 

32,2712 

861 

30,3043 

TO 

30,3100 

788 

32,2713 

10 

32,2734 

862 

30,3101 

TO 

30,3145 

789 

32,2735 

10 

32,2770 

863 

TO 

32,3040 

864 

30  1 3 1 ^6 

30,3162 

790 

32,4771 

• u 

30,3163 

TO 

30,3232 

791 

32,3041 

10 

32,3042 

886 

30,3233 

TO 

30,3310 

792 

33,2030 

10 

33,2016 

654 

30,3311 

TO 

30,3346 

793 

33,2017 

10 

33,2061 

655 

30,3347 

TO 

30,3355 

794 

33,2052 

lo 

33,2122 

656 

30,3356 

TO 

30,3366 

795 

33,2123 

10 

33,2170 

657 

30,3367 

TO 

30,3407 

796 

33,2171 

10 

33,2252 

658 

30,3410 

TO 

30,3437 

797 

33,2253 

10 

33,2317 

659 

30,3440 

TO 

30,3447 

798 

33,2320 

10 

33,2364 

660 

30,3450 

TO 

30,3467 

799 

33,2355 

10 

33,2426 

661 

30,3470 

TO 

30,3516 

800 

33,2427 

10 

33,2466 

662 

30,3517 

TO 

30,3527 

801 

33,2457 

10 

33,2530 

663 

30,3530 

TO 

30,3531 

885 

33,2531 

10 

33,2575 

664 

31,2000 

TO 

31,2037 

748 

33,2576 

10 

33,2613 

665 

•a  1 yn^r\ 

in 

a 1 o 1 n K 

a a 7 z.  1 z. 

1 n 

1 u 

i i « <:  i Up 

749 

33,2623 

684 

31,2106 

750 

33,2624 

10 

33,2677 

685 

31,2107 

TO 

31 ,2155 

751 

33,2700 

10 

33,2746 

686 

31,2156 

TO 

31,2200 

752 

33,2747 

10 

33,3014 

687 

31,2201 

TO 

31,2207 

755 

33,3015 

10 

33,3057 

688 

31,2210 

TO 

31,2244 

756 

33,3060 

10 

33,3124 

689 

31,2245 

TO 

31,2310 

757 

33,3125 

10 

33,3171 

690 

31,2311 

TO 

31,2313 

758 

33,31 72 

• 0 

33,3242 

691 

31,2314 

TO 

31,2346 

759 

33,3243 

10 

33,331  1 

692 

31,2347 

TO 

31,2400 

760 

33,3312 

10 

33,33i 3 

886 

DEc  U*  1966  pAGEllOl 
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page 

34 

,2000 

TO 

34,2055 

604 

35,2741 

TO 

35 

•iOOl 

444 

34 

,2056 

TO 

34,2131 

605 

35,3002 

TO 

35 

3037 

445 

34 

,2132 

TO 

34,2205 

606 

35,3040 

TO 

35 

3O77 

446 

34 

,2206 

TO 

34,2263 

607 

35,3100 

TO 

35 

3156 

447 

34 

,2264 

TO 

34,2341 

608 

35,3157 

TO 

35 

3232 

44b 

34 

,2342 

TO 

34,2406 

609 

35,3233 

TO 

35 

3304 

449 

34 

,2407 

TO 

34,2456 

612 

35,3305 

TO 

35 

3361 

45D 

34 

,2457 

TO 

34,2533 

613 

35,3362 

TO 

35 

3430 

45I 

34 

,2534 

TO 

34,2602 

61A 

35,3431 

TO 

35 

3441 

452 

34 

,2603 

TO 

34,2656 

615 

35,3442 

TO 

35 

351A 

6lU 

34 

,2657 

TO 

34,2726 

6l6 

35,3515 

TO 

35 

3523 

6ll 

34 

,2727 

TO 

34,2761 

6l7 

35,3524 

TO 

35 

354O 

8U 

34 

,2762 

TO 

34,2776 

6l8 

35,3541 

TO 

35 

3565 

813 

34 

,2777 

TO 

34,3023 

619 

35,3566 

TO 

35 

3567 

886 

34 

,3024 

TO 

34,3103 

620 

36,2000 

TO 

36 

2024 

693 

,3104 

TO 

34,3165 

621 

36,2025 

TO 

36 

2101 

69A 

34 

,3166 

TO 

34,3247 

622 

36,2102 

TO 

36 

2I5I 

695 

34 

,3250 

TO 

34,3331 

623 

36,2152 

TO 

36 

2202 

696 

34 

,3332 

TO 

34,3412 

624 

36,2203 

TO 

36 

2236 

69/ 

34 

,3413 

TO 

34,3472 

625 

36,2237 

TO 

36 

2263 

69b 

34 

,3473 

TO 

34,3513 

626 

36,2264 

TO 

36 

2326 

699 

34 

,3514 

TO 

34,3567 

627 

36,2327 

TO 

36 

2335 

700 

34 

,3570 

TO 

34,3643 

628 

36,2336 

TO 

36 

2363 

701 

34 

,3644 

TO 

34,3672 

629 

36,2364 

TO 

36 

2421 

702 

34 

,3673 

TO 

34,3751 

630 

36,2422 

TO 

36 

2427 

703 

34 

,3752 

TO 

34,3764 

631 

36,2430 

TO 

36 

2507 

868 

34 

,3765 

TO 

34,3766 

886 

36,2510 

TO 

36 

2567 

869 

35 

,2000 

TO 

35,2013 

67 

36,2570 

TO 

36 

2650 

870 

35 

,2014 

TO 

35,2057 

432 

36,2651 

TO 

36 

27IA 

87i 

35 

,2060 

TO 

35,2125 

433 

36,2715 

TO 

36 

2735 

872 

35 

,2126 

TO 

35,2200 

434 

36,2736 

TO 

36 

2750 

873 

35 

,2201 

TO 

35,2262 

435 

36,2751 

TO 

36 

2765 

87A 

35 

,2263 

TO 

35,2336 

436 

36,2766 

TO 

36 

3045 

875 

35 

,2337 

TO 

35,2415 

437 

36,3046 

TO 

36 

3123 

876 

35 

,2416 

TO 

35,2477 

438 

36,3124 

TO 

36 

3150 

877 

35 

,2500 

TO 

35,2556 

439 

36,3151 

TO 

36 

3216 

878 

35 

,2557 

TO 

35,2631 

440 

36,3217 

TO 

36 

3274 

879 

35 

,2632 

TO 

35,2654 

441 

36,3275 

TO 

36 

3315 

880 

35 

,2655 

TO 

35,2727 

442 

36,3316 

TO 

36 

3355 

881 

35 

,2730 

TO 

35,2740 

443 

36,3356 

TO 

36 

3404 

882 
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36,3A05 

TO 

36,3437 

883 

36,3AA0 

TO 

36,3475 

884 

36,3A76 

TO 

36,3477 

686 

t^UUO 

TO 

37 ,2016 

♦ 14 

37,2017 

TO 

37,2067 

♦ 15 

37,2070 

TO 

37,2141 

♦ 16 

37,21A2 

TO 

37,2212 

♦ 17 

OCCUPIeO 

37,2213 

Locations 

lo  37,2264 

page 

♦ le 

37,2265 

10 

37,2342 

♦ I9 

37,2343 

io 

10 

37,2415 

♦20 

♦21 

37 ,2474 

37.2475 

10 

37,2554 
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37,2555 

to 

37,2627 

♦ 23 

37,2530 

to 

37,2702 

♦ 24 
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37,2703  TO  37,2755  *25 

37,2756  TO  37,3031  +26 

37,3032  TO  37,3103 
37,310A  TO  37,3152  +28 

37,3153  TO  37,3231  +29 

37,3232  TO  37,3307  *30 

37,3310  TO  37,335A  +31 
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page 

37,3355 

to 

37,3432 
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TO 
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TO 
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TO 

37,3632 
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37,3633 

37,3707 

TO 

TO 

37,3706 

37,3710 

♦ 36 
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AOOO 

TO 

4377 

PARAGRAPH 

# 
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ROPE 

MODULE 

1, 

SIDE 

A, 
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LINE 

SET 

05 

(WIRES 

65-80) 
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TO 

4777 

PARAGRAPH 

0 

on 

ROPE 

MODULE 

1 , 

SIDE 

B, 

sense 

LINE 

SET 

05 

(WIRES 

65-80) 

5000 

TO 

5377 

PARAGRAPH 

0 

012 

rdpe 

module 

1, 

SIDE 

A, 

Sense 

line 

Set 

06 

(WIReS 

81-96) 

5A00 

TO 

5777 
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0 

013 

ROPE 

MODULE 

1, 

SIDE 

B* 

sense 

LINE 

SET 

06 

(WIRES 

81-96) 

6000 

TO 

6377 

PARAGRAPH 

0 

014 

ROPE 

MODULE 

1, 

SIDE 

A , 

sense 

line 

SET 

07 

(WIRES 

97-1 12) 

6A00 

TO 

6777 

paragraph 

0 

015 

ROPE 

MODULE 

1* 

SIDE 

B* 

SENSE 

LINE 

SET 

07 

(WIRES 

97-112) 

7000 

TO 

7377 

PARAGRAPH 

0 

016 

ROPE 

MODULE 

1, 

SIDE 

A, 

sense 

LINE 

SET 

08 

(WIRES 

113.128) 

7A00 

TO 

7777 

PARAGRAPH 

0 

017 

ROPE 

MODULE 

1, 

SIDE 

B, 

sense 

LINE 

SET 

08 

(WIRES 

113.128) 

00 

*2000 

TO 

00 

*2377 

PARAGRAPH 

0 

020 

ROPE 

MODULE 

1* 

SIDE 

A, 

SENSE 

LINE 

SET 

01 

(WIRES 

1-16) 

00 

*2A00 

TO 

00 

*2777 

pARAGRApH 

0 

021 

ROpE 

MODuLE 

1, 

SIDE 

B* 

SENSE 

LINE 

SET 

01 

(WIRES 

1-16) 

00 

*3000 

TO 

00 

,3377 

PARAGRAPH 

0 

022 

ROPE 

MODULE 

1 , 

SIDE 

A, 

SENSE 

LINE 

SET 

02 

(WIRES 

17-32) 

00 

*3A00 

TO 

00 

,3777 

PARAGRAPH 

0 

023 

ROPE 

MODULE 

1 , 

SIDE 

B, 

sense 

LINE 

SET 

02 

(WIRES 

17-32) 

01 

*2000 

TO 

01 

,2377 

paragraph 

0 

024 

ROpE 

MODuLE 

1, 

SIDE 

A, 

sense 

LINE 

SET 

03 

(WIRES 

33-48) 

01 

*2A00 

TO 

01 

,2777 

PARAGRAPH 

0 

025 

ROPE 

MODULE 

1, 

SIDE 

B, 

SENSE 

LINE 

SET 

03 

(WIRES 

33-48) 

01 

,3000 

TO 

01 

,3377 

PARAGRAPH 

0 

026 

ROPE 

MODULE 

1, 

SIDE 

A, 

sense 

LINE 

SET 

04 

(WIRES 

49-64) 

01 

*3A00 

TO 

01 

,3777 

paragraph 

0 

027 

ROPE 

MODULE 

1 , 

SIDE 

B, 

SENSE 

LINE 

SET 

04 

(WIRES 

49-64) 

oa 

,2000 

TO 

OA 

,2377 

PARAGRAPH 

0 

040 

ROPE 

MODULE 

1 , 

SIDE 

A, 

SENSE 

LINE 

SET 

09 

(WIRES 

129.144) 

oa 

,2400 

TO 

OA 

,2777 

paragraph 

0 

041 

ROPE 

MODULE 

1, 

SIDE 

B, 

SENSE 

LINE 

SET 

09 

(WIRES 

129.144) 

OA 

*3000 

TO 

04 

*3377 

PARAGRAPH 

0 

042 

Rope 

module 

1, 

SIDE 

A* 

Sense 

line 

SET 

lO 

(WIRES 

145-160) 

OA 

*3A00 

TO 

04 

,3777 

paragraph 

0 

043 

ROPE 

MODULE 

1, 

SIDE 

B* 

SENSE 

LINE 

SET 

10 

(WIRES 

145.160) 

05 

*2000 

TO 

05 

,2377 

PARAGRAPH 

0 

044 

ROPE 

MODULE 

1, 

SIDE 

A , 

sense 

line 

SET 

11 

(WIRES 

161.176) 

05 

*2Aoo 

TO 

05 

,2777 

PARAGRAPH 

0 

045 

Rope 

MODULE 

1, 

SIDE 

B, 

Sense 

line 

Set 

11 

(WIRES 

161-176) 

05 

*3000 

TO 

05 

,3377 

paragraph 

0 

046 

ROPE 

MODULE 

1, 

SIDE 

A, 

sense 

LINE 

SET 

12 

(WIRES 

177-192) 

05 

,3A00 

TO 

05 

,3777 

PARAGRAPH 

0 

047 

ROPE 

MODULE 

1 , 

SIDE 

B, 

sense 

LINE 

SET 

12 

(WIRES 

177-192) 

06 

*2000 

TO 

06 

,2377 

paragraph 

0 

050 

ROPE 

MODuLE 

2, 

SIDE 

A, 

sense 

LINE 

SET 

01 

(WIRES 

1-16) 

06 

*2A00 

TO 

06 

,2777 

PARAGRAPH 

0 

051 

ROPE 

MODULE 

2, 

SIDE 

B, 

sense 

LINE 

SET 

01 

(WIRES 

1-16) 

06 

*3000 

TO 

06 

,3377 

PARAGRAPH 

0 

052 

ROPE 

MODULE 

2, 

SIDE 

A, 

sense 

line 

SET 

02 

(WIRES 

17-32) 

07 

,2000 

TO 

07 

,2377 

paragraph 

0 

054 

ROPE 

module 

2, 

SIDE 

A, 

SENSE 

LINE 

SET 

03 

(WIRES 

33-48) 

07 

,2A00 

TO 

07 

,2777 

PARAGRAPH 

0 

055 

ROPE 

MODULE 

2, 

SIDE 

B, 

SENSE 

LINE 

SET 

03 

(WIRES 

33-48) 

07 

,3000 

TO 

07 

,3377 

PARAGRAPH 

0 

056 

ROPE 

MODULE 

2, 

SIDE 

A, 

SENSE 

LINE 

SET 

04 

(WIRES 

49-64) 

07 

,3A00 

TO 

07 

*3777 

paragraph 

0 

057 

RoPe 

module 

2, 

SIDE 

B* 

Sense 

line 

Set 

04 

(WIRES 

49-64) 

10 

,2000 

TO 

10 

*2377 

PARAGRAPH 

0 

050 

rope 

MODULE 

2, 

SIDE 

A, 

sense 

LINE 

SET 

05 

(WIRES 

65-80) 

10 

*2A00 

TO 

10 

*2777 

paragraph 

0 

051 

ROPE 

MODULE 

2* 

side 

B* 

SENSE 

LINE 

SET 

05 

(WIRES 

65-80) 

10 

,3000 

TO 

10 

*3377 

paragraph 

0 

052 

ROPE 

MODuLE 

2, 

SIDE 

A, 

SENSE 

LINE 

SET 

06 

(WIRES 

81-96) 

11 

,2000 

TO 

11 

*2377 

paragraph 

0 

054 

ROPE 

MODULE 

2, 

SIDE 

A, 

SENSE 

LINE 

SET 

07 

(WIRES 

97-112) 

11 

,2A00 

TO 

11 

,2777 

PARAGRAPH 

0 

055 

ROPE 

MODULE 

2, 

SIDE 

B, 

SENSE 

LINE 

SET 

07 

(WIRES 

97-112) 

11 

*3000 

TO 

11 

*3377 

PARAGRAPH 

0 

056 

Rope 

MODULE 

2, 

SIDE 

A* 

Sense 

line 

Set 

08 

(WIRES 

113-128) 

12 

,2000 

TO 

12 

*2377 

PARAGRAPH 

0 

070 

ROPE 

MODULE 

2, 

side 

A, 

SENSE 

LINE 

SET 

09 

(WIRES 

129-144) 

12 

,2A00 

TO 

12 

,2777 

PARAGRAPH 

0 

071 

ROPE 

MODULE 

2, 

SIDE 

B, 

SENSE 

LINE 

SET 

09 

(WIRES 

129-144) 

12 

*3000 

TO 

12 

,3377 

PARAGRAPH 

0 

072 

Rope 

module 

2, 

SIDE 

A* 

SeNSe 

line 

Set 

10 

(WIReS 

145-160) 
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12i3400  TO  12,3777  PARAGRAPH  « 073  ROPE 

13.2000  TO  13,2377  pARAGRApH  # 07A  ROpE 

13,2A00  TO  13,2777  PARAGRAPH  if  075  ROPE 

13.3000  TO  13,3377  PARAGRAPH  # 076  ROPE 

13,3A00  TO  13,3777  PARAGRAPH  # qTI  RoPe 

1A,2000  TO  1A,2377  PARAGRAPH  0 100  ROPE 

1A,2A00  TO  l‘,,2777  PARAGRAPH  0 101  ROPE 

U,3000  TO  1A,3377,  PARAGRAPH  0 lo2  RoPe 

1A,3A00  to  1A,3777  PARAGRAPH  0 103  ROPE 

15.2000  TO  15,2377  PARAGRAPH  0 lOA  ROPE 

15,2A00  TO  15,2777  PARAGRAPH  # 105  ROPE 

15.3000  TO  15,3377  PARAGRAPH  0 106  ROPE 

15.3400  TO  15,3777  PARAGRAPH  0 107  ROPE 

16.2000  TO  16,2377  PARAGRAPH  0 UO  ROPE 

16.2400  TO  16,2777  pARAGRApH  0 111  ROpE 

16.3000  TO  16,3377  PARAGRAPH  0 112  ROPE 

16.3400  TO  16,3777  PARAGRAPH  0 113  ROPE 

17.2000  TO  17,2377  pARAGRApH  0 114  ROPE 

.17,2400  TO  17,2777  PARAGRAPH  0 115  ROPE 

17.3000  TO  17,3377  PARAGRAPH  116  ROPE 

17.3400  TO  17,3777  PARAGRAPH  0 117  ROPE 

20.2000  TO  20,2377  PARAGRAPH  0 120  ROPE 

20.2400  TO  20,2777  PARAGRAPH  0 121  ROPE 

20*3000  TO  20*3377  PARAGRAPH  0 122  RoPe 

20.3400  TO  20,3777  PARAGRAPH  0 123  ROPE 

21.2000  TO  21,2377  PARAGRAPH  0 124  ROPE 

21.2400  TO  21,2777  PARAGRAPH  0 125  RoPe 

21.3000  TO  21,3377  PARAGRAPH  0 126  ROPE 

21.3400  TO  21,3777  PARAGRAPH  0 127  ROPE 

22.2000  TO  22,2377  pARAGRApH  0 130  ROpE 

22.2400  TO  22,2777  PARAGRAPH  0 131  ROPE 

22.3000  TO  22,3377  PARAGRAPH  0 132  ROPE 

22.3400  TO  22,3777  PARAGRAPH  0 133  RQPe 

23.2000  TO  23,2377  PARAGRAPH  0 134  ROPE 

23.2400  TO  23,2777  PARAGRAPH  0 135  ROPE 

23.3000  TO  23,3377  PARAGRAPH  0 136  RoPe 

24.2000  TO  24,2377  PARAGRAPH  0 140  ROPE 

24*2400  TO  24*2777  PARAGRAPH  0 141  ROPE 

24*3000  TO  pARAGRApH  0 142  ROpE 

24*3400  TO  24,3777  PARAGRAPH  0 143  ROPE 
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(WIRES 
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SIDE 
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SENSE 

LINE 

SET 
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(WIRES 
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Module 
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SIDE 

B, 
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line 

Set 
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sense 

line 
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SIDE 
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sense 
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module 
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A, 

Sense 

line 
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SIDE 
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SENSE 

LINE 

SET 
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(WIRES 

17-32) 

MODULE 

3, 

SIDE 

A, 

sense 

LINE 

SET 

03 

(WIRES 

33-48) 

module 

3, 

SIDE 

B, 

SENSE 

LINE 

SET 
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(WIRES 

33-48) 

MODULE 
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SIDE 

A, 

sense 

LINE 

SET 

04 

(WIRES 

49-64) 

MODULE 
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SIDE 
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SENSE 

LINE 

SET 

04 
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MODULE 
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SIDE 

A, 

sense 

line 
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05 
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SIDE 

B, 

sense 

LINE 

SET 

06 
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09 
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MODULE 
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SIDE 
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sense 
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SET 

11 
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(WIReS 
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MODULE 
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SIDE 

A, 
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SET 

12 
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MODULE 
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SIDE 
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sense 

line 

SET 
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SIDE 

A, 
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SIDE 
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MODULE 
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03 
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MODULE 
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SIDE 

B, 

sense 

LINE 
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(WIRES 
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SIDE 
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line 

Set 
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MODULE 
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SIDE 
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LINE 

SET 
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(WIRES 
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MODULE 
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SIDE 

B, 

sense 

LINE 
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05 

(WIRES 
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MODuLE 
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SIDE 

A, 

SENSE 

LINE 
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06 

(WIRES 

81-96) 

MODULE 

4, 

SIDE 

B, 

sense 

LINE 

SET 

06 

(WIRES 

81-96) 
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25.2000 

ro 

25 

.2377 

PARAGRAPH 
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ROPE 

MODULE 

4. 

SIDE 
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LINE 

SET 

07 

(WIRES 
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LINE 
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SIDE 
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LINE 
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ROPE 
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SIDE 
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LINE 
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TO 
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ROPE 

MODULE 

4. 

SIDE 
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sense 

LINE 
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.2777 

PARAGRAPH 

0 
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ROPE 
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4. 

SIDE 
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SENSE 

LINE 
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TO 
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ROPE 
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line 

SET 
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(WIRES 
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TO 

27 
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0 

157 

ROPE 
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line 
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TO 
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ROPE 
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ROPE 

module 

5. 

SIDE 

B. 

SENSE 

LINE 

SET 

10 

(WIRES 

145-160) 

35.2000 

TO 

35 

.2377 

paragraph 

0 

204 

ROPE 

MODULE 

5. 

SIDE 

A. 

SENSE 

LINE 

SET 

11 

(WIRES 

161-176) 

35.2400 

TO 

35 

.2777 

paragraph 

0 

205 

ROPE 

MODULE 

5. 

SIDE 

B. 

SENSE 

LINE 

SET 

11 

(WIRES 

161.176) 

35.3000 

TO 

35 

.3377 

PARAGRAPH 

0 

206 

Rope 

MODULE 

5. 

SIDE 

A. 

Sense 

LINE 

Set 

12 

(WIRES 

177-192) 

35.3400 

TO 

35 

.3777 

paragraph 

0 

207 

ROPE 

MODULE 

5. 

SIDE 

B. 

SENSE 

LINE 

SET 

12 

(WIRES 

177-192) 

36.2000 

TO 

36 

.2377 

PARAGRAPH 

0 

210 

ROPE 

MODULE 

6. 

SIDE 

A. 

sense 

LINE 

SET 

01 

(WIRES 

1-16) 

36 .2400 

TO 

36 

.2777 

paragraph 

0 

211 

Rope 

MODULE 

6 . 

SIDE 

B. 

Sense 

line 

Set 

oi 

(WIReS 

1-16) 

36.3000 

TO 

36 

.3377 

PARAGRAPH 

0 

212 

ROPE 

MODULE 

6 . 

SIDE 

A. 

sense 

LINE 

SET 

02 

(WIRES 

17-32) 

36.3400 

TO 

36 

.3777 

PARAGRAPH 

0 

213 

ROPE 

MODULE 

6 . 

SIDE 

B. 

SENSE 

LINE 

SET 

02 

(WIRES 

17-32) 

37.2000 

TO 

37 

*2377 

paragraph 

0 

214 

ROPE 

MODULE 

6 . 

SIDE 

A. 

SENSE 

LINE 

SET 

03 

(WIRES 

33-48) 

37.2400 

TO 

37 

.2777 

paragraph 

0 

215 

ROPE 

MODULE 

6 . 

SIDE 

B. 

SENSE 

LINE 

SET 

03 

(WIRES 

33-48) 

37.3000 

TO 

37 

.3377 

PARAGRAPH 

0 

216 

ROPE 

MODULE 

6 . 

SIDE 

A. 

sense 

LINE 

SET 

04 

(WIRES 

49-64) 

37.3400 

TO 

37 

.3777 

PARAGRAPH 

0 

217 

ROPE 

MODULE 

6. 

SIDE 

B. 

SENSE 

LINE 

SET 

04 

(WIRES 

49-64) 
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OCTAL  listing  OF  PARAGRAPH  § 010.  WlTM*  PAKItY  BIT  IN  BINARY  AT 

ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  eX‘»EPT  tHOSE  MARICe^  "I" 

AOOO  COOOA  0 3A05A  I 56006  1 121A2 

AOIO  52011  0 00006  I 31001  1 52006 

4020  52011  0 34063  0 56006  1 12000 

4030  52011  0 34060  0 56006  1 13233 

4040  52011  0 34061  1 56006  1 I2II7 

4050  52011  0 37754  0 55007  0 15755 

4O6O  c:  26003  0 c:  32007  1 c:  20001  1 C:  24006 
4070  22006  1 22112  0 12207  1 22112 

4100  30001  0 22112  0 22006  1 22112 

4110  56302  0 40000  0 60302  0 00006 

4120  C!  72000  1 50002  0 40000  0 60302 

4130  50002- 0 30000  I 24002  0 54072 

4140  74227  0 00006  I 777A2  0 56072 

4150  37755  1 54066  0 50002  0 30000 

4160  52006  0 C;  02365  ^ C5  14003  1 22073 

4170  14230  0 30062  0 777A7  0 10000 


the  right  of  each  WORD;  DENOTES  UNUSED  FIXED  MEMORY, 

(Interpretive  operator  words)  or  "c  (constants). 

0 52011  0 00006  1 35040  0 52006  0 

0 52011  0 34056  0 56006  1 13530  0 

1 52011  0 34O57  1 56006  1 13506  U 

1 52011  0 34O57  1 56006  1 13526  i 

0 52011  0 34062  1 56006  1 1575A  0 

1 Ci  02003  0 C;  04000  0 C;  02003  0 C;  26000  0 

I 22112  0 22006  1 5OOOO  1 3OOOI  0 

0 22006  1 22II2  0 00006  1 5OOOO  1 

0 12304  0 5OOO2  0 3OOOO  1 24OO2  0 

1 I7OII  1 34120  0 22006  1 15246  0 

0 00006  1 I7OIO  0 17006  1 00004  0 

0 77757  1 60000  1 54O7I  0 3OO72  1 

1 77737  1 54066  0 14152  1 00004  0 

1 24002  0 54065  0 00006  1 34162  0 

0 22006  1 22O73  0 75656  0 lOOOO  0 

0 14214  0 50061  0 31112  1 54O7O  1 


4200 

30062 

0 

77746 

1 

10000 

0 

14220 

4210 

34213 

0 

22073 

0 

52006 

0 

Ci  02453 

4220 

00006 

1 

5OOO2 

0 

30001 

0 

52064 

4230 

77742 

0 

10000 

0 

14214 

0 

14175 

1 30002  0 54063  0 3OOO6  1 54064  1 

1 50002  0 30000  1 24002  0 14177  0 

1 37754  0 26002  1 14210  1 Cj  17770  1 

1 00004  0 54001  1 50002  0 30000  1 


4240 

24002  0 

60000  1 

54061 

1 

4250 

40025  1 

50061  0 
05243  1 

55111 

0 

4260 

24000  1 

C ! 

O255O 

0 

4270 

Ci  IOOO3  0 

Ci  I4O3I  0 

C? 

20033 

0 

10001  1 
40001  1 
C;  37767  0 
C:  24017  1 


14253  0 
50061  0 
C:  37766  1 
C:  30036  1 


14253  0 

53076  0 
C;  02006  0 
Ci  34O34  1 


24000  1 
00003  1 
C;  74000  1 
Ci  40023  1 


54001  1 
00002  0 
C;  04025  1 
Ci  44035  1 


4300 

Ci 

50037 

0 

C! 

54000 

0 

Ci  60000 

1 

37761 

0 

4310 

C: 

00620 

0 

C: 

00454 

1 

00006 

1 

64315 

1 

4320 

00006 

1 

67010 

1 

17006 

1 

50002 

0 

4330 

30001 

0 

52062 

1 

22002 

0 

37742 

1 

54032  1 
14316  0 
30000  1 
70413  0 


54033  0 
40000  0 
24002  0 
10000  0 


54034  1 

50002  0 
00006  1 
14351  0 


00002  0 
60000  1 
5OOOO  1 
3OO6I  0 


4340 

O43I2 

0 

4350 

04361 

1 

4360 

Ci  51615 

1 

4370 

10000 

0 

66l6l  1 

00001  0 

34363  0 

60062  0 

04312  0 

Ci  64420  0 

00001  0 

34365  0 

60062  0 

04312  0 

Ci  65673  0 

00001  0 

30061  0 

04312  0 

50001  0 

00001  0 

Ci  00765  0 

Ci  OO7O7  1 

Ci  16450  1 

37755  1 

70366  0 

00002  0 

3A422  1 

7O413  0 

00006  1 

1A405  0 

4OAI3  0 

74423  1 
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Octal  listing  of  paragraph  # on,  wIth^  rarity  bit  in  binary  at  thl  right  of  each  woRq;  denotes  uNused  fixed  memory. 


ALL  VALID  WORDS  ARe  BaSIC  INSTRUCTIONS  eX'-ePt  tHOSe  MARXeO  "I"  ( INTeRPRETI Ve  OPeRAtOR  WORDS)  OR  "C"  (CONSTANTS). 


AAOO 

00006 

1 

14405 

0 

37752 

0 

70413 

0 

10000 

0 

37746 

0 

60326 

0 

77746 

1 

4A10 

0 00  0 6 

1 

I7OI 1 

5400 1 

1 

30326 

0 

00006 

1 

0600 1 

0 

77735 

0 

67737 

0 

AA20 

54326 

1 

00002 

0 

Ci 

10102 

0 

Ci  OO22O 

1 

34432 

0 

70311 

0 

54113 

0 

04447 

1 

AA30 

C4431 

0 

05605 

1 

cl 

O77OO 

1 

54113 

0 

10303 

0 

00002 

0 

3OOO2 

0 

67755 

1 

AAAO 

54331 

1 

04455 

1 

34446 

0 

56006 

1 

54332 

1 

O2OOO 

0 

Cl 

12000 

1 

30002 

0 

A450 

67755 

1 

54331 

1 

O4442 

1 

52332 

1 

52006 

0 

47737 

1 

00004 

0 

70312 

0 

A 

00003 

1 

00002 

54303 

22004 

56002 

AA60 

67737 

0 

54312 

U 

0 

37755 

1 

0 

0 

u 

AA70 

52124 

1 

05253 

0 

54327 

0 

05563 

1 

O56O5 

1 

10305 

0 

I7OO6 

1 

14464 

1 

n 

54310 

54003 

54135 

00002 

A5OO 

00002 

0 

I7OIO 

1 

0 

74553 

1 

6537O 

0 

1 

U 

A510 

30310 

0 

14503 

1 

54003 

0 

74553 

1 

65370 

0 

00002 

0 

Cl 

00016 

0 

C:  00011 

1 

A520 

C! 

00004 

0 

54O2O 

1 

40020 

1 

40020 

1 

40020 

1 

40020 

1 

56020 

0 

00002 

0 

0 

40022 

A 

40022 

A 

A 

00002 

60000 

1 

hsBO 

540^2 

0 

4UU22 

U 

U 

U 

56022 

1 

0 

i 

A5AO 

60000 

1 

60000 

1 

60000 

1 

60000 

1 

00002 

0 

Cl 

00037 

0 

Cl 

01740 

0 

C:  76000 

0 

A550 

O57OI 

1 

05534 

0 

cl 

03777 

0 

Cl  00377 

1 

Ci 

00023 

0 

Cl 

00021 

1 

Cl 

00025 

0 

Ci  00012 

1 

A560 

37747 

1 

00006 

1 

05011 

1 

00002 

0 

47747 

0 

00006 

1 

03011 

1 

00002 

0 

A570 

37751 

0 

00006 

1 

05011 

1 

00002 

0 

00006 

1 

30025 

0 

52014 

0 

00002 

0 

4600 

C0006 

1 

30146 

1 

20146 

0 

60144 

0 

26144 

1 

54OO7 

1 

00002 

0 

54111 

1 

4610 

00002 

0 

37750 

1 

00006 

1 

05011 

1 

00002 

0 

47750 

0 

00006 

1 

03011 

1 

4620 

00002 

0 

10330 

0 

00002 

0 

37755 

1 

54330 

0 

I7OO6 

1 

35356 

1 

70002 

1 

4630 

60004 

0 

05243 

1 

Cl 

10000 

0 

10330 

0 

14626 

0 

37755 

1 

54330 

0 

00002 

0 

4640 

44645 

0 

60002 

0 

60004 

0 

05243 

1 

Cl 

10001 

1 

Ci 

02003 

0 

54113 

0 

10303 

0 

4650 

14653 

1 

30002 

0 

14440 

1 

24002 

0 

14640 

0 

56002 

0 

54134 

0 

37763 

1 

4660 

60330 

1 

00006 

1 

64670 

1 

04703 

1 

04670 

1 

05567 

0 

37755 

1 

54330 

0 

4670 

00004 

0 

47751 

1 

00006 

1 

03011 

1 

37761 

0 

54303 

0 

00003 

1 

00134 

1 

4700 

56002 

0 

54134 

0 

04670 

1 

37761 

0 

56333 

1 

56334 

0 

56335 

1 

00006 

1 

4710 

17011 

1 

00004 

0 

17006 

1 

56002 

0 

54134 

0 

00004 

0 

34724 

1 

05701 

1 

4720 

C: 

03536 

1 

C;  10000 

0 

00003 

1 

00134 

1 

Ci 

00257 

1 

00004 

0 

30002 

0 

55342 

1 

4730 

O6OO3 

1 

Cl  01103 

1 

00004 

0 

30002 

0 

55342 

1 

04747 

1 

Cl 

OO3IO 

0 

00004 

0 

4740 

34743 

0 

56006 

1 

I2OOO 

1 

Ci  16003 

0 

00004 

0 

30002 

0 

55342 

1 

50002 

0 

4750 

3000c 

1 

54OOI 

1 

30006 

1 

55343 

0 

30002 

0 

54O73 

1 

11363 

1 

14762 

1 

4760 

23363 

0 

14774 

0 

11364 

0 

14766 

0 

23364 

1 

14777 

0 

31365 

0 

77735 

0 

4770 

10000 

0 

I5OO7 

1 

23365 

0 

IA777 

0 

40326 

1 

76006 

0 

26326 

1 

35676 

0 
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octal  listing  qF  paragraph  at  012.  wiTHi  ?ahity  bit  in  binary  at  the  right  oF  Each  Wqrd;  denotes  unused  fixed  memory. 
ALL  VALID  words  ARe  BASIC  INSTRUCTIONS  E>^'-EPT  THOSe  MAR<eD  " I m ( I NTeRP^ET  I Ve  OPERATOR  WORDS)  OR  "C"  (CONSTANTS). 


5000  05533  0 C!  02061  I C'  16002  1 
5010  67737  0 57365  0 77735  0 
5020  5A001  1 00006  I 0600A  0 
5030  47735  0 60001  0 00006  1 


56073  0 00003  1 50000  1 00001  0 3OOOI  0 
55364  0 14777  0 00004  0 00006  1 00004  0 
00006  1 15030  0 00006  1 O0004  0 54001  1 
15016  1 00006  1 00003  1 n0002  0 C;  02077  0 


5040  C;  34002  1 IOO31  1 00002  0 OOOO2 
5050  54031  1 10031  I 15055  0 31004 
5060  37761  0 57006  0 57005  0 57004 
5070  22002  0 05076  0 22002  0 5OOO2 

5IOO  55132  1 11142  0 I5IO4  0 37757 
5110  24002  0 22002  0 O5O76  0 15115 
5120  00006  1 ,51145  0 30001  0 O5O76 
5130  C:  05136  0 C:  O4OO2  I 31147  1 05722 

5l40  05l34  1 00004  0 50002  0 40000 
5150  15157  0 15157  0 15157  0 50002 
5160  11167  1 67755  i 15170  0 15161 
5170  5007c  0 55167  1 36301  0 60002 


0 00002  0 37761  0 57OO3  0 57002  1 

1 16010  1 37737  0 00006  1 O5O13  0 

1 16010  1 50002  0 3OOOO  1 24002  0 

0 30000  1 24002  0 67737  0 51142  1 

0 55I42  0 00002  0 5OOO2  0 30000  1 

0 00006  1 23145  0 3OOO6  1 55146  1 

0 23147  1 04147  1 C;  47012  1 C;  76630  0 

0 51145  0 00002  0 3ll46  0 54OO6  0 

0 67753  1 54070  1 50000  1 11173  1 

0 30001  0 5OO7O  0 55173  1 5OO7O  0 

0 50002  0 30002  0 50000  1 30000  1 

0 55221  0 30076  0 77751  1 lOOOO  0 


5200  I522O  0 O4I47  1 C' 

5210  60025  0 57210  0 

5220  00003  1 01221  1 Ci 

5230  54001  1 22004  0 

5240  56004  0 56124  0 

5250  56002  0 50002  0 

5260  00006  1 00007  0 

5270  75356  0 56001  0 

5300  56125  1 00006  1 

5310  50002  0 30000  1 

5320  50002  0 02000  0 


O5OI3  0 C:  77777  0 06027  1 

35222  0 55213  1 37755  1 

01033  0 c:  00U5  1 52124  1 

75356  0 56002  0 5212A  1 

00123  1 56002  0 5OOOO  1 

12000  1 35356  1 70123  0 

56001  0 54125  0 56004  0 

00004  0 00006  1 01007  1 

01007  1 00003  1 54OO4  1 

24002  0 54001  1 22004  0 

56073  0 56004  0 56073  0 


C:  00020  0 00004  0 35223  1 

O57OI  1 Ci  02000  0 C:  62062  1 
50002  0 3OOOO  1 24002  0 

50002  0 02000  0 56124  0 

30000  1 54004  1 75356  ^ 

60124  0 00002  0 54001  1 

00006  1 04007  1 56125  1 

00006  1 5OOOI  0 32001  1 

30125  1 00002  0 52073  1 

75356  0 56002  0 52073  1 

OOO72  1 56002  0 54154  0 


5330  30006  1 54155  1 37746  0 54023  1 30002  0 00154  1 54154  0 37746  0 


5340 

54023 

1 

30006  1 

54155 

1 

5350 

56154 

1 

15251  0 

00006 

1 

5360 

Ci 

OO777 

0 

Ci  00017  1 

C!  00032 

0 

5370 

CI 

01400 

1 

CI  00055  1 

67740 

0 

50002  0 30000  1 54004  1 75356  0 56002  0 
01007  1 00002  0 C:  77775  1 Ci  01777  1 C;  77774  0 
40014  0 Ci  40015  1 Ci  00112  0 Ci  00060  1 Ci  74000  1 
55127  0 15376  1 41127  0 60000  1 55127  ^ 
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octal  listing  Of  paragraph  # 013.  wItHi  ra»<ity  bit  in  binary  At  jHt  right  of  each  word;  «s<>  Denote^  ljnused  fixed  memory. 
All  valid  words  are  basjC  instructions  except  those  marked  "I"  (interpretive  Operator  words)  or  "c"  (constants). 


5400 

15411 

1 

57127 

1 

51127 

1 

67736 

1 

40000 

0 

6II27 

1 

55127 

0 

15411 

1 

5410 

15427 

1 

00006 

1 

71127 

0 

55130 

0 

00006 

1 

75434 

0 

65433 

0 

00006 

1 

7113C 

00006 

71127 

20001 

OOOO2 

50000 

5420 

0 

65432 

i 

1 

0 

1 

5512  7 

0 

0 

1 

5430 

47736 

0 

00002 

0 

c: 

31103 

1 

C; 

65552 

0 

C; 

01124 

1 

55131 

1 

lOOOO 

0 

15443 

0 

24002 

n 

00002 

0 

0 

0 

0 

0 

54000 

15511 

5440 

00002 

0 

V 

0 

1 

23I3O 

1 

65522 

1 

0 

0 

5450 

57131 

0 

55131 

1 

54021 

0 

56021 

1 

55127 

0 

65520 

0 

lOOOO 

0 

65521 

1 

0 

37743 

61131 

60000 

1 

57130 

1 

5460 

05465 

0 

15462 

0 

u 

1 

1 

0550y 

1 

i 

5470 

10000 

0 

57130 

1 

05476 

1 

57130 

1 

00006 

1 

77742 

0 

51130 

1 

00001 

0 

5500 

56021 

1 

41127 

0 

22007 

0 

00006 

1 

10021 

0 

56021 

1 

00006 

1 

60021 

1 

5510 

00002 

0 

41130 

0 

55130 

0 

37747 

1 

00006 

1 

71131 

1 

30001 

0 

05451 

1 

5520 

Ci 

73777 

1 

Cj 

24001 

0 

c: 

37401 

0 

54063 

0 

00006 

1 

50002 

0 

30001 

0 

52066 

0 

u 

54061 

13036 

n 

54063 

n 

00006 

0 

30001 

fj 

5530 

35613 

u 

56004 

1 

u 

1 

3 vUUb 

5540 

52066 

0 

35613 

0 

56004 

0 

13014 

0 

56002 

0 

65355 

1 

56002 

0 

15540 

1 

5550 

35613 

0 

54001 

1 

30002 

0 

22006 

1 

00004 

0 

13114 

1 

35613 

0 

54006 

0 

5560 

40154 

0 

22155 

0 

15554 

1 

54154 

0 

35613 

0 

54OO4 

1 

13175 

0 

54065 

0 

1 

35613 

56004 

13206 

1 

00004 

n 

35613 

Q 

5570 

47754 

1 

46002 

0 

0 

1 

u 

54U6  A 

5600 

56006 

1 

54155 

1 

30002 

0 

13255 

1 

04713 

0 

35613 

0 

54004 

1 

13266 

1 

5610 

30061 

0 

54004 

1 

17010 

0 

C; 

03014 

1 

47761 

1 

54067 

1 

00003 

1 

47754 

1 

5620 

00006 

1 

03011 

1 

15625 

1 

00006 

1 

23356 

0 

10067 

1 

15640 

1 

37754 

0 

5630 

15634 

1 

35647 

1 

54006 

0 

01356 

0 

00006 

1 

05011 

1 

52155 

1 

52006 

0 

5640 

37754 

0 

00006 

1 

05011 

1 

35613 

0 

54O04 

1 

n0004 

0 

13113 

0 

c: 

76062 

1 

5650 

c: 

03000 

1 

C! 

05000 

1 

Ci 

06000 

1 

c: 

07000 

0 

c: 

11000 

1 

c: 

13000 

0 

c: 

14000 

1 

C: 

15000 

0 

5660 

c; 

16000 

0 

c: 

17000 

1 

Ci 

21000 

1 

Ci 

22000 

1 

c: 

23000 

0 

c: 

25OOO 

0 

c: 

26000 

0 

C: 

27000 

1 

5670 

c: 

31000 

0 

c: 

32000 

0 

Ci 

33000 

1 

c: 

34000 

0 

c: 

35000 

1 

c; 

36000 

1 

c: 

37000 

0 

C: 

02400 

1 

5700 

C; 

03400 

0 

56002 

0 

54061 

1 

00006 

1 

50000 

1 

30001 

0 

54063 

0 

357I6 

1 

5710 

56006 

1 

13360 

0 

30062 

0 

54006 

0 

50061 

0 

00002 

0 

c; 

02003 

0 

5OOO2 

0 

5720 

30000 

1 

24002 

0 

56002 

0 

54063 

0 

30006 

1 

54001 

1 

35731 

1 

54061 

1 

5730 

I57O7 

0 

15743 

0 

Ci 

72043 

0 

C: 

73774 

1 

IOO76 

1 

15745 

0 

1 5745 

0 

15740 

0 

5740 

35674 

1 

05523 

0 

Ci 

03503 

1 

c: 

24003 

1 

15745 

0 

11076 

0 

35716 

1 

54006 

0 

5750 

13533 

0 

00006 

1 

22012 

1 

30016 

0 

54006 

0 

52011 

0 

5OOI7 

1 

53153 

0 

5760 

00006 

1 

50002 

0 

30001 

0 

53151 

1 

00006 

1 

35770 

1 

52006 

0 

C: 

03565 

1 

5770 

C! 

02003 

0 

c: 

05771 

0 

Ci 

05772 

0 

CKSM 

73611 

0 

@ 

e 

e 
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PaGeHIO 


octal  listing  of  paragraph  § 014*  WIT^'  PARITY  BIT  IN  BINARY  AT  THe  RIGHT  OF  EACH  WORD;  "g"  DENOTES  UNUStD  FIXED  MEMORY. 
ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EX'-ePT  THOSE  MARXeD  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C”  (CONSTANTS), 


6000 

00004  0 

30002  0 

55342  1 

50002  0 

30000 

1 

6010 

C0006  1 

66015  0 
40075  1 

00006  1 

01006  0 

00002 

0 

1 

6020 

00004  0 

50002  0 

70000  0 

26075 

6030 

40076  1 

50002  0 

70000  0 

26076  1 

00003 

1 

04751  0 C;  40400  1 16007  1 
00006  1 01005  0 00002  0 
00003  1 17006  1 00004  0 
I7OO6  1 5OOO2  0 AOOOO  0 


6040  OOOOa  0 70075  1 54075  1 00003  1 I7OO6  1 50002  0 aOOOO  0 00004  0 
6050  70076  1 54076  1 00003  1 17006  1 00006  1 30025  0 53724  0 36070  0 
6060  55322  1 45226  ° 00006  1 02011  0 67741  1 00006  1 nlOll  0 00002  D 
6O7O  C;  02156  1 00006  1 30025  0 53724  0 45226  0 00006  1 02011  0 67740  0 

6100  00006  1 01011  0 00002  0 00006  1 22154  1 30006  1 54155  1 77737  1 
6110  54105  1 16124  1 22006  1 I6IO5  1 54l53  1 30155  0 54006  0 10023  1 

6120  16133  1 10067  ^ 15556  0 24154  1 50154  1 30000  1 lOOOO  0 16421  1 
6130  Ci  00177  0 54023  i 76130  1 54020  1 10020  1 16303  0 17012  1 77755  0 

6140  10000  0 16202  0 50154  1 4OOOI  1 10000  0 16251  0 CS  77773  1 24154  1 
6150  54106  1 66305  ^ 10000  0 66332  0 l6l6l  0 30110  1 26106  1 50020  0 
6160  76332  1 00006  1 66172  0 75356  0 65356  1 56106  0 60105  0 54004  I 
6I7O  5OO2O  0 76332  1 74553  1 65370  0 ' 56106  0 54003  0 5OO2O  0 76332  1 


6200 

35364 

0 

54O2O 

1 

30110 

1 

54120 

0 

24I54 

1 

50154 

1 

aoooo 

0 

10000 

0 

6210 

24120 

1 

16212 

1 

54106 

1 

75367 

1 

00006 

1 

16220 

0 

30105 

0 

26106 

1 

6220 

50120 

1 

40046 

1 

26106 

1 

76330 

0 

00006 

1 

16240 

0 

75367 

1 

00006 

1 

6230 

16242 

1 

30106 

0 

54004 

1 

75356 

0 

67743 

0 

54106 

1 

50020 

0 

36332 

0 

6240 

6250 

6260 

6270 


30110  1 16246  0 

36332  0 34554  I 

10000  0 50000  1 

46300  0 26156  1 


3537O  0 56106  0 
70020  1 66256  0 
46300  0 16271  1 
54106  1 50020  0 


54003  0 74553  1 
10000  0 16267  0 
50153  0 46276  0 
76332  1 C;  00002  0 


26106  1 5OO2O  0 

C;  77767  1 66146  1 

16271  1 50153  0 

C;  00006  1 C:  00006  1 


6300 

c:  00002 

0 

c: 

00003 

1 

6310 

30000 

1 

54107 

0 

6320 

1002c 

1 

50000 

1 

6330 

c:  77700 

0 

c; 

76000 

0 

C!  00006  1 10020  1 16317  0 

36327  1 54004  1 70020  1 

12000  1 10153  1 12017  1 

C5  74056  1 16554  1 17133  0 


C!  77722  0 24154  1 50154  1 

50000  1 16373  1 54004  1 

12017  1 12121  0 C:  02177  1 

I77OI  1 I7A52  1 16752  0 


6340 

16537  1 

16530  0 

17650  1 

16550  0 

16667  1 

16572  0 

17405  0 

16626  I 

6350 

16675  1 

17410  1 

17642  1 

17620  0 

17623  0 

17627  1 

17645  0 

I7OI6  D 

6360 

I7O44  1 

I7O74  1 

17402  1 

17532  0 

17476  1 

I7O62  0 

17120  1 

17034  0 

6370 

16370  1 

l76l6  0 

17637  0 

12557  0 

12564  0 

12567  0 

12573  0 

12577  1 
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Octal  l 

isting  Of  paragraph 

0 015*  wiTHi 

PARITY  bit  in 

binary  At 

the 

Ri&ht  Of  each  wORd;  denotes 

uNySEo  fIxed  memory. 

ALL  VAL 

ID  WORDS  are  basic 

instructions 

ex<-ePt  those 

MARKED  ''I'' 

(INTERPRETIVE  operator 

: WORDS)  OR  "C 

" (CONSTANTS). 

6A00 

12605  1 

12621  1 

12630  1 

12613 

0 

12624  1 

12702  1 

127O7  1 

12662 

0 

6AlO 

12722  0 

12731  1 

12672  1 

30155 

0 

5400a  1 

24154  1 

5OI54  1 

40000 

0 

6420 

67763  1 

54106  1 

74552  0 

56106 

0 

75673  1 

00006  1 

77751  1 

54023 

1 

6430 

50000  1 

16432  0 

06462  1 

16123 

0 

06454  1 

16123  0 

0645?  1 

16123 

0 

6440 

06462  1 

16520  1 

06462  1 

16200 

1 

06462  1 

16523  1 

06462  1 

16526 

1 

6450 

06462  1 

35362  0 

54020  1 

16306 

0 

50110  1 

40046  1 

16461  0 

5OIIO 

1 

65371 

3537O 

L 

6460 

40U47  P 

461 ^6  1 

HOlUb  1 

1 

iUwUU  U 

301 lU  1 

16473  0 

6470 

56106  6 

54003  0 

74553  1 

26106 

1 

00006  1 

30145  1 

5OIO6  0 

52001 

1 

6500 

10153  1 

16514  0 

00002  0 

00006 

1 

30150  0 

50106  0 

52003  0 

00006 

1 

6510 

30152  1 

50106  0 

52005  0 

00002 

0 

30146  1 

50106  0 

54002  1 

00002 

U 

6520 

35363  1 

54020  i 

16142  1 

37737 

0 

54020  1 

16142  1 

36143  1 

16201 

0 

Artn  n ^ 1 

n o n 1 n 

52145 

n 

50106 

y 

6530 

0UUU6  i 

?wJ.U6  ^ 

pUUU  X U 

U 

37761  U 

54146  0 

16114  1 

6540 

30002  0 

54146  0 

00006  1 

50106 

0 

30001  0 

52145  0 

37755  1 

16114 

1 

6550 

22007  0 

50106  0 

30000  1 

16533 

0 

00006  1 

50106  0 

30001  0 

52145 

0 

6560 

00006  1 

50106  0 

30003  1 

52150 

1 

00006  1 

50106  0 

30005  1 

52152 

0 

1 2.  1 1 / 1 

■a  A A A 1 A 

52001 

1 

6570 

47755  0 

1 6 i 1h  * 

UUUU6  1 

pU  1 06 

u 

^UUUl  u 

52145  0 

5U 1 56  0 

i 

6600 

50153  0 

36300  1 

26156  1 

10153 

1 

16621  0 

l66l7  0 

84153  1 

54146 

u 

6610 

52150  1 

50156  0 

51775  0 

52152 

0 

50156  0 

51777  1 

16115  0 

54146 

0 

6620 

l6ll5  0 

54153  1 

56146  1 

50156 

0 

53777  0 

16115  0 

n0006  1 

5OIO6 

0 

6630 

30001  0 

52145  0 

50156  0 

52001 

1 

50153  0 

36300  1 

26156  1 

10153 

1 

6640 

16657  1 

16560  0 

00006  1 

50106 

0 

30003  1 

52150  1 

50156  0 

51775 

0 

6650 

00006  1 

50106  0 

30005  1 

52152 

0 

50156  0 

51777  1 

16115  0 

00006 

1 

6660 

50106  0 

30003  1 

52150  1 

30146 

1 

50156  0 

53777  0 

16564  1 

24154 

1 

6670 

50154  1 

30000  1 

50106  0 

54000 

0 

16115  0 

24154  1 

50154  1 

30000 

1 

6700 

50106  0 

60000  1 

54004  1 

75356 

0 

50000  1 

32000  0 

54107  0 

30155 

0 

6710 

76331  1 

66331  0 

60154  1 

50110 

1 

54052  1 

30107  1 

75367  1 

00006 

1 

6720 

16731  0 

30155  0 

54006  0 

30107 

1 

54004  1 

75356  0 

67743  0 

54154 

0 

6730 

16105  1 

30107  1 

66305  1 

10000 

0 

30107  1 

16744  1 

30110  1 

6OIO7 

1 

6740 

50000  1 

30000  1 

54107  0 

I67l6 

0 

5A003  0 

74553  1 

5OOOO  1 

31400 

1 

6750 

54107  0 

16716  0 

50154  1 

30001 

0 

50106  0 

60000  1 

54004  1 

75356 

0 

6760 

50000  1 

32000  0 

54107  0 

16716 

0 

30155  0 

54OO4  1 

5OI54  1 

30001 

0 

6770 

54107  0 

16716  0 

10144  1 

00002 

0 

16776  0 

17010  0 

10145  0 

00002 

0 
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oCTal  listing  oi-  Paragraph  * oi6,  withi  rarity  bit  in  binary  at 

ALL  VALID  WORDS  ARe  BASIC  INSTRUCTIONS  E^^-EPT  THOSe  MARKeD  "I" 

7000  17002  0 17010  0 10lA6  0 OOOO2 

7010  5OOO2  0 OOOO2  0 30155  0 5A006 

7020  30003  1 20150  1 00006  1 17025 

7030  20152  0 00006  1 1703A  0 O7O72 

7OAO  00006  1 16115  0 O7O72  0 16115 

7050  00006  1 17053  I 07072  0 00006 

7060  17062  0 O7O72  D 00006  1 50106 

7070  , 07072  0 16115  0 37755  1 17215 

7100  00006  1 AOOOl  1 20150  1 00006 


THE  RIGHT  qF  EaCH  WqRDJ  "S"  DEnqTES  UNUSED  FIXED  MEMqRY. 

(Interpretive  operator  words)  or  oc  (constants). 

0 17006  1 17010  0 50002  0 OOOOl  0 

0 5015A  1 10001  1 00006  1 5OIO6  0 

0 O7O72  0 00006  1 5OIO6  0 30005  1 

0 00006  1 50106  0 3OOOI  0 20U5  0 

0 00006  1 50106  0 A0003  0 20150  I 

1 50106  0 AOOO5  0 20152  0 00006  1 

0 AOOOl  1 201A5  0 00006  1 16115  0 

1 00006  1 50106  0 30003  1 52150  1 

1 I7IO6  0 O7O72  0 00006  1 5OIO6  0 


7110  3OOO5  1 ■ 52152  0 00006  1 AOOOl  1 20152  0 OOOO6  1 17120  1 07072  D 
7120  00006  1 50106  0 30001  0 521A5  0 00006  1 ^0001  1 20U5  0 00006  1 
7130  16115  0 07072  0 16115  0 00006  1 50106  0 3OOO2  0 2OU6  0 5OIO6  0 


7140 

7150 

60000  1 
24002  0 

60144  0 
54106  1 

54144  1 
50106  0 

I6II5  0 
30001  0 

54111  1 
54146  0 

16115  0 

50002 

0 

1 

37761  0 

56145 

7160 

00006  1 

70146  0 

56146  1 

00006  1 

70144  1 

20146  0 

5OIO6 

0 

7170 

56125  1 

00006  1 

70125  0 

20U6  0 

56144  0 

00006  1 

7OI25 

0 

30000  1 

5A125  0 
30000  1 
201A5  D 


7200 

7210 

7220 

00002  0 
54145  0 
54126  0 

37761 

00002 

00006 

0 

0 

1 

7230 

54122  1 

30126 

1 

54153  1 56^6  1 60000  1 
60144  0 54144  1 00002  0 
22127  0 07152  0 52150  1 

26106  1 O7I52  0 52146  0 


54OOI  1 00002  0 60145  1 
54111  1 n0002  0 37754  0 
52145  0 52121  1 30146  1 

20122  1 60144  0 60120  1 


7240  54120  0 17243  I 
7250  52122  1 20146  0 
7260  00006  1 22131  1 
7270  60000  1 60002  0 

7300  50107  1 30004  0 
7310  07152  0 00006  I 
7320  00006  1 22120  1 


54111 

1 

52152  0 

52I45 

0 

60144 

0 

60120  1 

54144 

1 

54107 

0 

22130  0 

17275 

1 

54107 

0 

67760  1 

54131 

0 

52145 

0 

52113  0 

I73IO 

0 

50107 

1 

30002  0 

20145 

0 

06772 

0 

17327  1 

17347 

1 

30126  1 26106  1 07152  0 
00127  0 54111  1 00127  D 
50002  0 3OOOO  1 54130  1 
35365  1 54106  1 00006  1 

54130  1 47754  1 26107  0 
10130  1 17305  1 00131  1 
47735  0 17330  1 37735  1 


7330  54121  1 00006  I 24000  1 60146  1 54146  0 37761  0 60121  0 60145  1 


7340 

54145  0 

37761  0 

60121 

0 

7350 

17344  1 

54125  0 

00006 

1 

7360 

70125  0 
00006  1 

20146  0 

70145  0 

56144 

0 

7370 

52145 

0 

601A4  0 54144  1 54145  0 00120  1 
70146  0 54146  0 37761  0 56145  1 
00006  1 70125  0 20145  0 00002  0 
00006  1 7OI25  0 30001  0 26144  1 


54146  0 
00006  1 
54125  0 
00006  1 
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ocTal  listing  of-  Paragraph  * oi7,  withi  rarity  bit  in  binary  at  the  right  qF  each  wqRdt  denotes  unuslo  fixed  memory. 
ALL  VALID  WORDS  ARe  BaSIC  INSTRUCTIONS  E^^'-EPt  tHOSe  MAR<eD  "I"  ( I NTeRP^ET  I Ve  OPeRAtOR  WORDS)  oR  i.Cn  (CONSTANTS). 


7a00 

30U5 

1 

00002 

0 

07217 

1 

37761 

0 

I6IU 

1 

3775a 

0 

5A130 

1 

17a13 

1 

7410 

44557 

0 

54130 

1 

36276 

1 

54126 

0 

O76O4 

1 

O722I 

1 

00006 

1 

30113 

1 

7420 

52145 

0 

52124 

1 

00006 

1 

30115 

1 

52150 

1 

00006 

1 

3OII7 

0 

52152 

0 

7430 

30130 

0 

26106 

1 

07221 

1 

52113 

0 

52145 

0 

52115 

0 

52150 

1 

52117 

1 

7440 

52152 

0 

30130 

0 

26106 

1 

07221 

1 

52124 

1 

521A5 

0 

52152 

0 

52115 

0 

7450 

52150 

1 

I6II5 

0 

10153 

1 

17501 

0 

17501 

0 

07152 

0 

07203 

1 

52150 

1 

1 

07152 

rv 

07203 

52152 

n 

A 

52152 

07152 

7460 

■52145 

0 

52150 

U 

i 

u 

52 1 A5 

u 

7470 

07203 

1 

52145 

0 

52152 

0 

52150 

1 

52145 

0 

16115 

0 

07217 

1 

47753 

0 

7500 

26106 

1 . 

00006 

1 

30145 

1 

52150 

1 

O7I52 

0 

O72O3 

1 

37754 

0 

26106 

1 

7510 

00006 

1 

30150 

0 

52145 

0 

52152 

0 

O7I52 

0 

07203 

1 

37754 

0 

26106 

1 

7520 

52150 

1 

52145 

0 

52150 

1 

07152 

0 

07203 

1 

52145 

0 

52152 

0 

52145 

0 

7530 

47755 

0 

16114 

1 

00006 

1 

30152 

1 

52145 

0 

52113 

0 

07152 

0 

00006 

1 

7540 

4OI5O 

1 

52145 

0 

52115 

0 

O7I52 

0 

37754 

0 

26106 

1 

00006 

1 

40152 

0 

7550 

52145 

0 

52152 

0 

07152 

0 

00006 

1 

30113 

1 

52145 

0 

52117 

1 

07152 

0 

7560 

37754 

0 

26106 

1 

00006 

1 

40113 

0 

52145 

0 

20152 

0 

00006 

1 

17571 

I 

7570 

O7O72 

0 

07152 

0 

52115 

0 

52150 

. 1 

52145 

0 

20150 

1 

00006 

1 

17601 

0 

7600 

O7O72 

0 

07152 

0 

52117 

1 

17037 

0 

00006 

1 

3OI45 

1 

52113 

0 

00006 

1 

7610 

30150 

0 

52115 

0 

00006 

1 

30152 

1 

52117 

1 

00002 

0 

07152 

0 

16115 

0 

7620 

07152 

0 

07202 

0 

16115 

0 

00006 

1 

50106 

0 

30001 

0 

17633 

1 

00006 

1 

7630 

50106 

0 

30001 

0 

52145 

0 

52121 

1 

37761 

0 

54OOA 

1 

12352 

0 

30106 

0 

7640 

54156 

1 

I6II7 

1 

37761 

0 

5400a 

1 

12172 

0 

36130 

0 

54004 

1 

12214 

0 

7650 

10153 

1 

17662 

0 

17662 

0 

00006 

1 

50106 

0 

30001 

0 

52121 

1 

37761 

0 

7660 

54004 

1 

12616 

0 

00006 

1 

50106 

0 

30003 

1 

52150 

1 

00006 

1 

5OIO6 

0 

7670 

30005 

1 

52152 

0 

47755 

0 

54153 

1 

00006 

1 

5OIO6 

0 

30001 

0 

52145 

0 

7700 

17656 

1 

50106 

0 

10000 

0 

16115 

0 

I77O6 

0 

17714 

0 

5OIO6 

0 

10001 

1 

7710 

16115 

0 

16115 

0 

17714 

0 

16115 

0 

00006 

1 

40145 

0 

52145 

0 

10153 

1 

7720 

17731 

1 

17731 

1 

00006 

1 

40150 

1 

52150 

1 

00006 

1 

40152 

0 

52152 

0 

7730 

16115 

0 

40146 

0 

54146 

0 

16115 

0 

C; 

37777 

1 

C;  37777 

1 

C; 

57777 

1 

C; 

AOOOO 

0 

7740 

c: 

20000 

0 

C:  10000 

0 

Ci  04000 

0 

C:  02000 

0 

c: 

01000 

0 

c:  00400 

0 

c: 

00200 

0 

C: 

00100 

0 

7750 

c: 

00040 

0 

C;  00020 

0 

Ci  00010 

0 

c:  00004 

0 

c: 

00002 

0 

c:  00001 

0 

c: 

00013 

0 

C: 

00007 

0 

7760 

c: 

00005 

1 

C!  00000 

1 

Ci  77777 

0 

c:  77776 

1 

c: 

07764 

0 

c:  07765 

1 

CkSM 

77762 

1 

e 

7770 

@ 

e 

e 

@ 

e 

48895^A  YJL  SYSTEM  FOR  AGC!  NEW  PROGRAM  SHePATIN  BY  EYLES 


DEC  I3i  1966 


PA6EU1A 


octal  listing  of  Paragraph  * 020.  withi  aa^ity  bit  in  binary  aT  the  right  oF  each  wqRD!  denotes  unused  fixed  memory. 

ALL  VALID  WORDS  ARe  BASIC  INSTRUCTIONS  EX'-EPT  THOSE  MARKeD  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  >iC"  (CONSTANTS). 


00,2000 

13155  1 

I3A77  1 

I3A66  1 

13557  ) 

00,2010 

13200  1 

12770  1 

13144  1 

13214  1 

00,2020 

70020  1 

54021  0 

IOO2O  1 

12101  J 

00,2030 

10020  1 

O2O5O  0 

16114  1 

30125  1 

13561  1 I3IA2  1 12116  1 1771A  0 

16A13  0 132AA  1 13217  1 36276  1 

C:  0002A  1 5OO2I  1 377A0  0 5^125  0 

00006  1 7OU6  0 5A1A6  0 30125  1 


00,20AO 

00,2050 

00,2060 

00,2070 


00006  1 
30146  1 
60000  1 
70125  0 


70144  I 
00006  I 
54146  0 
20145  0 


52145  0 
70125  0 
12064  0 
00002  0 


30125  I 

56145  1 
26145  0 

30125  1 


00006  1 
00006  1 
37761  0 
00006  1 


7OOOI  1 
70125  0 
54146  0 
70145  0 


20146  0 
56145  1 
56144  0 
54145  0 


16115  0 
60001  0 
00006  1 
56001  0 


00,2100  12060  1 ' 30021  I 54125  0 00006  1 30146  1 20146  0 60144  0 60144  0 

00,2110  54144  1 12113  1 54111  1 10125  0 12102  1 10020  1 07201  0 16115  0 


00,2120  I6ll5  0 37757  0 7OO2O  1 54125  0 10020  1 12145  1 Ci  OOI76  1 50125  1 

00,2130  37740  0 54125  0 02073  1 52145  0 52I5O  1 52U5  0 02O73  1 52145  0 


00,2140  52152  0 52145  0 O2O73  1 17471  0 54125  0 00006  1 30145  1 20145  0 
00,2150  00006  1 12153  0 07072  0 00006  1 30150  0 20150  1 00006  1 12161  1 
00,2160  07072  0 00006  1 30152  1 20152  0 00006  1 12167  1 O7O72  0 10125  0 
00,2170  12144  0 l6ll5  0 54125  0 06772  0 12176  1 12212  0 07320  1 30144  0 


00,2200 

12207 

1 

24125 

1 

00006 

1 

30146 

1 

20146 

0 

60144 

0 

?6l44 

1 

60000 

1 

00,2210 

54000 

0 

12201 

1 

40125 

0 

16672 

0 

70106 

1 

10000 

0 

12224 

0 

37744 

1 

00,2220 

7OIO6 

1 

10000 

0 

07201 

0 

16115 

0 

54125 

0 

37746 

0 

00006 

1 

7OIO6 

1 

00,2230 

76301 

1 

50000 

1 

12233 

0 

12332 

0 

12341 

1 

12336 

1 

10153 

1 

12277 

0 

00,2240  12277  0 30125  1 63676  0 
00,2250  54001  1 56144  0 56145  1 
00,2260  2015C  1 56151  I 56152  1 
00,2270  C!  04604  1 I6ll5  0 60000  1 


00006 

1 

62127  1 

a7763  1 

54125  0 

37761 

0 

02272 

1 

20145  0 

561A7  0 

56150  0 

02272 

1 

n 

02272 

1 

20152  0 

10125  0 

54125  0 

12242 

\j 

54146 

0 

37761  0 

56001  0 

00002  0 

30125 

1 

00,2300 

63676 

0 

00006 

1 

62322 

0 

67763 

1 

54125 

0 

37761 

0 

561A4 

0 

00,2310 

54146 

0 

10125 

0 

54125 

0 

02300 

0 

C:  22650 

1 

37744 

1 

7OIO6 

1 

00,2320 

07201 

0 

16115 

0 

50125 

1 

37740 

0 

54125 

0 

37744 

1 

7OIO6 

1 

00,2330 

12031 

0 

12033 

1 

40125 

0 

62126 

0 

54125 

0 

12236 

0 

40125 

0 

56145  1 
10000  0 
10000  0 
62126  0 


00,2340  54125  0 10153  1 
00,2350  5402c  1 12103  0 
00,2360  12362  0 12402  1 
00,2370  12375  0 10120  0 


12345  0 
47755  0 
56121  0 
12406  0 


12345  0 
54126  0 
56120  1 
12375  0 


12145  1 
54127  1 
56145  1 
12402  1 


37750  1 

54130  1 

56IA4  0 

37735  1 


ri0006  1 
10120  0 
00006  1 
54144  1 


7OIO6  1 
12406  0 

I237I  I 
02572  0 


488954A  YJL  SYSTEM  FOR  AGC:  NeW  PROGRAM  S^ePAtIN  BY  eYUeS 


l3,  1966 


pageius 


Octal  listing 

Op  paragraph 

§ 021,  WiTHi 

parity  bit  in 

binary  at 

the 

right  Of  each 

WORq;  '•§>'  denotes 

uNused  fIxed  memory. 

ALL  VALID  WORDS  ARe 

BASIC 

instructions 

except  those 

MARKe5  "I" 

(Interpretive  operator  words)  or  "C" 

(CONSTANTS). 

00,2^00 

37755 

1 

17144  0 

00006  1 

40121 

1 

52121  1 

24126  1 

10144  1 

12423 

DO  «24l0 

12412 

0 

12417 

10145  0 

12423 

1 

l6ll5  0 

12417  0 

16115  0 

00006 

00»2420 

40145 

0 

52145  0 

24126  1 

40144 

1 

67763  1 

60120  1 

lOOOO  0 

12471 

00,2430  C; 

60001 

0 

12432  1 

37740  0 

60000 

i 

60145  1 

54145  0 

37761  0 

67735 

00,2440 

26144 

1 

37740  0 

60000  1 

60121 

0 

54121  1 

37761  0 

67735  1 

26120 

00,2450 

40144 

1 

60120  1 

10000  0 

12471 

0 

C:  00123  1 

12375  0 

54130  1 

40145 

62375  1 

12471 

00006  1 

30121 

00 ,2460 

60121 

0 

0000^  • 

0 

0000^  1 

24127  0 

00,2470 

20121 

1 

,30120  1 

60000  1 

54000 

0 

12464  1 

52145  0 

50127  0 

02527 

f'kn  r-  A ^ 

A 

A A A A > 

56001 

UO 1 2 5^0 

54146 

0 

* 6 1 * 5 ^ 

22021  1 

00006 

1 

77740  1 

56001  0 

60021  1 

00,2510 

12533 

1 

20001  1 

20001  1 

20001 

1 

20001  1 

20001  1 

20001  1 

20001 

00,2520 

20001 

1 

20001  1 

20001  1 

20001 

1 

20001  1 

20001  1 

52145  0 

10130 

riAOctlA  A. 

A 

1 ^ z.  A/  0 

1 

1 A 1 0 A A 

c.  J \ / a A 

n nnn  i 

06552 

u 

54 i45  u 

00006 

i 

i U i u 

4^144  1 

U UUU  6 

00,2540 

70121 

1 

60145  1 

54000  0 

12550 

1 

00006  1 

60120  1 

24144  0 

12552 

00,2550 

00006 

1 

62562  1 

00006  1 

60120 

1 

00006  1 

12560  1 

n0006  1 

62566 

00,2560 

24144 

0 

12567  0 

00006  1 

12572 

1 . 

00006  1 

26144  1 

60120  1 

22007 

A A "5  C *7  A 

10126 

A A A A A A 

A A A A A 

00002  0 

00006 

wU  ,25  f 0 

UUUUq 

1 

10120  ^ 

54145  U 

0 

OOUUZ  0 

00,2600 

40145 

0 

52145  0 

37761  0 

00002 

0 

40144  1 

60120  1 

00006  1 

12611 

00,2610 

12532 

0 

37735  1 

54144  1 

40121 

1 

60145  1 

12566  1 

47755  0 

54127 

00,2620 

54117 

1 

10120  0 

12657  0 

12625 

0 

12653  1 

56121  0 

56120  1 

56145 

00,2630 

56144 

0 

00006  1 

12634  0 

12375 

0 

56150  0 

56147  0 

00006  1 

12641 

00,2640 

12375 

0 

56152  1 

56151  1 

00006 

1 

12646  0 

12375  0 

10120  0 

12657 

00,2650 

12375 

0 

12653  1 

12375  0 

00006 

1 

40121  1 

52121  1 

24117  0 

37740 

00,2660 

60000 

1 

60121  0 

54121  1 

37761 

0 

67735  1 

26120  0 

56123  1 

3OI2I 

00,2670 

54124 

1 

12677  I 

00006  1 

24127 

0 

00006  1 

30121  0 

20121  1 

30120 

00,2700 

60000 

1 

54000  0 

12672  1 

02715 

0 

52150  1 

52145  0 

52150  1 

02715 

00,2710 

52152 

0 

52145  0 

52152  0 

02715 

0 

17471  0 

30117  0 

54126  0 

10144 

00,2720 

12734 

1 

12723  1 

12730  0 

10145 

0 

12734  1 

00002  0 

12730  0 

00002 

00,2730 

00006 

1 

40145  0 

52145  0 

24126 

1 

47755  0 

54130  1 

4OI44  1 

60123 

00,2740 

00006 

1 

62745  0 

52145  0 

50127 

0 

12527  1 

37740  0 

60000  1 

60145 

00,2750 

54145 

0 

37761  0 

67735  1 

26144 

1 

40144  1 

60123  1 

10000  0 

12742 

00,2760  C; 

32506 

0 

12375  0 

54130  1 

40145 

0 

60124  0 

00006  1 

62375  1 

12742 

00,2770 

07604 

1 

37761  0 

56111  0 

54131 

0 

03267  1 

30131  1 

56111  0 

00006 

I 

I 

0 

1 

0 

0 

u 

0 

0 

1 

1 

1 

0 

0 

0 

1 

1 

1 

1 

I 

0 

0 

0 

I 

0 

1 

0 

1 

1 

0 

0 

1 


48895^A  YJL  system  FOR  AGC;  NEW  PROGRAM  SMEPATIN  BY  EYLES 


DEC  13,  lo66 


PAGElllP 


octal  listing  of=  ParaGraph  * 022,  withi  rarity  bit  in  binary  at  the  right  qF  Each  wqrd;  denotes  unused  fixed  memqry. 

ALL  VALID  WORDS  ARe  BASIC  INSTRUCTIONS  EXCePt  THOSe  MAR<e3  "I"  ( I NTeRPRET I VE  OPERATOR  WORDS)  OR  nC"  (CONSTANTS). 


00,3000 

13002  1 

13015  1 

aOOOO  0 
13056  0 

12375  0 
5A001  1 

13077  0 
10125  0 

00006  1 
50110  1 
13031  1 

130A0  1 

301A5 

00 , 3010 
00,3020 
00,3030 

520A5 

A3115 

A202A 

00,30a0 

00,3050 

AOOOO  0 
56120  1 

5A125  0 
00006  1 
5A130  1 

03117  0 

AOOOO  0 
7OIAA  1 

5OOOO 

56001 

00 ,3060 

00,3070 

A7755  0 
52150  1 

52113  0 
52117  1 

52  1 A5 
52U5 

1 5OIIO  1 520a3  1 03313  0 lOUA  1 

1 12375  0 A3116  0 60125  1 10000  0 

0 5A125  0 30Ua  0 5AOOI  1 37761  0 

1 5A125  0 00006  1 3OUS  1 13056  0 

1 377A0  0 5A120  0 00006  1 701A5  0 

0 60120  1 56001  0 5OIIO  1 520A5  1 

0 52121  1 03111  0 52115  0 52U5  0 

0 52152  0 O3II7  0 I7A7I  0 5A125  0 


00,3100  37761  0 56113  I 
00,3110  50000  1 377A0  0 
00,3120  I3I36  1 13123  0 
00,3130  A7761  1 5A126  0 


56112  0 56115  1 56lU  0 
00006  1 7OUA  1 13026  1 
I3I3O  1 lOlAS  0 I3l36  1 
00006  1 AOU5  0 50125  1 


56117  0 56116  1 A0125  0 

CS  00015  0 Cj  00016  0 lOlAA  1 

00002  0 I3I3O  1 00002  U 

12526  0 5A126  0 52U5  0 


00,31A0 

00,3150 

00,3160 

00,3170 


50125  1 
22153  0 
I6II5  0 
37737  0 


12526  0 
00006  1 
63676  0 
5A125  0 


03250  0 
301A5  1 
00006  1 
37761  0 


I6II5  0 
50110  1 
63167  1 
12036  1 


10153  1 

520A3  I 
22007  0 
06772  0 


I3I7A  1 
03313  0 
22106  0 
16115  0 


1317^  1 
10125  0 
12303  1 
16115  0 


03267  1 
13161  0 

5OI25  1 
I77IA  0 


00,3200  A7753  0 26156  1 00006  1 5OOOO  1 30003  1 52150  1 00006  1 50156  0 

.00,3210  30001  0 52152  0 A7755  0 1611A  1 03267  1 37761  0 Ull'f  1 00006  1 


00,3220  3OU5  1 50156  0 52001  1 50153  0 36300  1 26156  1 10153  1 132A2  1 

00,3230  16115  0 00006  I 30150  0 50156  0 51775  0 00006  1 30152  1 50156  0 


00,32A0 

00,3250 

00,3260 

00,3270 


51777 

1 

1 

16115  0 
00006  1 

30U6  1 
70000  0 

16623  1 
5A1A6  0 

50110  1 

37761  0 

30052  0 
561A5  1 

5AIO7  0 
00006  1 

16721 

^ n 1 A Zt 

1 

1 

301A5 

7 V i 

20001 

1 

201A6  0 

561AA  0 

00006  1 

70000  0 

20U5  0 

00002  0 

00006 

1 

22127 

0 

03250  0 

52150  1 

521A5  0 

52121  1 

30U6  1 

5A122  1 

03250 

0 

00,3300 

52U6 

0 

20122 

1 

601AA 

0 

60120 

1 

5A120 

0 

1330  r 

1 

5A111  1 

52152 

0 

00,3310 

521 A5 

0 

03250 

0 

I725O 

0 

37761 

0 

5A125 

0 

lOlAA 

1 

1335A  1 

13321 

0 

00,3320 

133A3 

1 

56lA6 

1 

561A5 

1 

5 A 1 AA 

1 

37757 

0 

5AI25 

0 

lOlAA  1 

1335A 

1 

00,3330 

13332 

1 

133A6 

1 

561A5 

1 

5A1AA 

1 

37757 

0 

26125 

0 

lOlAA  1 

1335A 

1 

00,33A0 

00,3350 

00,3360 

00,3370 


00002  0 133A6  1 
13352  1 13A22  1 
22021  1 00006  1 
7OIAA  1 62530  0 


00002  0 10000  0 

06000  1 C:  01302  1 
777A0  1 52U5  0 

5A120  0 3OIAA  0 


13352  1 10U5  0 

62A30  1 00006  1 

56021  1 26U5  0 

22007  0 00006  1 


37761  0 13A22  I 
63A25  1 52U5  0 
3231A  0 00006  1 
10120  0 00006  1 


PAGtm? 


A8895AA  YJL  SYSTEM  FOR  AGC!  NEW  PROGRAM  SHePATIN  3Y  EYLES  DeC  I3,  I966 


oCTal  listing  of  Paragraph  0 ozit  wiHi  parity  bit  in  binary  at  the  right  qF  each  wqRd;  "e"  denotbs  unusbd  fixed  memqRY. 


ALL  VALID 

WORDS  are  i 

basic 

instructions 

except  those 

marked  i'I" 

(Interpretive 

operator 

WORDS)  OR 

iiCn 

(CONSTANTS) . 

OO.3AOO 

777A0 

1 

26120 

0 

00006 

1 

77740 

1 

521A5 

0 

00006 

1 

IOI2O 

0 

54121 

1 

00,3410 

37761 

0 

56001 

0 

00006 

1 

10120 

0 

54OOI 

1 

30121 

0 

20145 

0 

00006 

1 

37735 

1 

5414A 

1 

5A145 

rt 

00  f 34^0 

13424 

1 

1 

i 

U 

U 

67741 

I 

0UUU6 

1 

63451 

1 

00,3430 

52145 

0 

22021 

1 

00006 

1 

77740 

1 

52145 

0 

56021 

1 

26145 

0 

32760 

1 

1 

62270 

13372 

00006 

20146 

60144 

00 ,3440 

0 0 0 0 E 

1 

7O I44 

1 

0 

0 

1 

30146 

1 

0 

0 

00,3450 

26U4 

1 - 

24125 

1 

00006 

1 

30146 

1 

20146 

0 

60144 

0 

26144 

1 

60000 

1 

0 

1 nn  9 p 

n 

1 3444 

1 

n 

13437 

rt 

06772 

13472 

1 

00 ,3460 

54022 

u 

i 

i 3,^00 

U 

u 

i 

00,3470 

13475 

0 

13475 

0 

00006 

1 

4OI45 

0 

52145 

0 

37741 

1 

26144 

1 

52145 

0 

54000 

Q 

13505 

00006 

60000 

1 

00 , 3500 

20001 

1 

0 

1 

4OOO  1 

1 

52145 

0 

30144 

0 

1 

00,3510 

54001 

1 

13522 

0 

50000 

1 

37737 

0 

60000 

1 

00006 

1 

60144 

0 

54144 

1 

00,3520 

4OI45 

0 

5A 145 

0 

00006 

1 

30145 

1 

52124 

1 

03250 

0 

07265 

1 

Ci 

00003 

1 

00,3530 

c: 

I444I 

0 

C! 

37325 

1 

C5 

53250 

0 

C! 

60764 

1 

Ci 

12146 

1 

c; 

21276 

1 

Ci 

75466 

1 

Ci 

7I47I 

0 

00.35AO 

c: 

00236 

0 

c: 

32757 

0 

32A5A 

0 

07151 

0 

00006 

1 

30146 

1 

20146 

0 

60144 

0 

00,3550 

261A4 

1 

00006 

1 

30146 

1 

20146 

a 

60144 

0 

26144 

1 

16115 

0 

33600 

1 

00,3560 

13562 

1 

33662 

0 

54126 

0 

06772 

0 

1357A 

0 

13674 

0 

00006 

1 

40145 

0 

00,3570 

52145 

0 

33677 

1 

56126 

1 

5A127 

1 

477A0 

1 

60144 

0 

10000 

0 

13670 

1 

00,3600 

13656 

0 

13611 

0 

10145 

0 

37761 

0 

13606 

0 

13611 

0 

54145 

0 

54144 

1 

00,3610 

CO  126 

1 

00006 

1 

40145 

0 

67740 

0 

52145 

0 

52124 

1 

03313 

0 

10125 

0 

00,3620 

13663 

0 

52145 

0 

5212A 

1 

52145 

0 

07265 

1 

C; 

00006 

1 

Ci 

13240 

0 

Ci 

23630 

0 

00,3630 

CJ 

74721 

0 

C; 

‘*7775 

1 

C5 

02440 

0 

c: 

20237 

0 

C! 

75067 

1 

Ci 

70742 

1 

Ci 

03436 

0 

Ci 

26756 

1 

00*36Ao 

C! 

7A037 

0 

c: 

57640 

1 

c* 

030A6 

0 

c; 

07iA3 

0 

c; 

76654 

1 

Ci 

42244 

0 

32454 

0 

07l5l 

0 

00,3650 

00126 

1 

00006 

1 

A0145 

0 

677AO 

0 

52U5 

0 

00127 

0 

00006 

1 

40145 

0 

00,3660 

677A1 

1 

52145 

0 

16115 

0 

50000 

1 

37740 

0 

54125 

0 

02073 

1 

13621 

0 

00,3670 

00006 

1 

13606 

0 

06000 

1 

c: 

01301 

1 

37741 

1 

13607 

1 

Ci 

77763 

0 

13651 

1 

00,3700 

c: 

03700 

0 

c: 

03701 

1 

C<SM 

77336 

1 

e 

@ 

@ 

e 

e 

00*3710 

@ 

@ 

@ 

@ 

e 

& 

S 

00*3720 

@ 

@ 

@ 

@ 

@ 

§ 

00*3730 

@ 

@ 

@ 

@ 

@ 

e 

@ 

00*3740 

1? 

@ 

@ 

@ 

e 

@ 

e 

00*3750 

@ 

e 

« 

e 

e 

00,3760 

e 

e 

@ 

e 

e 

00*3770 

§ 

& 

@ 

e 
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octal  listing  of-  Paragraph  0 o^A»  wit+  parity  bit  in  binary  at  the  right  qf  each  wqRdj  "®"  denotes  unused  fixed 

ALL  VALID  WDROS  ARe  BASIC  INSTRUCTIONS  EXLePt  THOSE  MAR<eO  "I"  (INTERPRETIVE  OPeRAjOR  WORDS)  OR  "C  (CONSTANTS) 


0lf2000  OOOOA  0 02322  0 12007  0 

01,2010  5A326  1 37761  0 55360  1 

01,2020  52376  1 A7761  I 55167  1 

01,2030  55175  1 55176  I A7755  0 

01,20A0  sOOOi  0 5A074  0 10001  1 

01,2050  55133  0 55134  I 55135  0 

01,2060  55143  1 37761  0 55357  0 

01,2070  ,55104  1 55106  0 55110  1 

01,2100  55105  0 55107  1 34265  1 

01,2110  Ci  02272  1 C;  26003  0 00006  1 

01.2120  47745  1 26365  0 00003  1 

01,2130  c:  02134  0 c:  02000  0 00003  1 

01,2140  Ci  05605  1 Ci  O4OO3  0 05224  0 Ci 

01,2150  31377  0 7^547  1 00006  1 

01,2160  52001  1 02322  0 32532  1 

01,2170  37752  0 00006  I 05012  1 


37740  0 05534  0 Ci  03524  1 Ci  72060  1 

55363  1 55364  0 55365  1 n0006  1 

55170  1 55171  0 55172  0 55173  1 

55144  0 37757  0 54001  1 5OOOI  0 

12035  1 54O32  1 54O33  0 ^4034  1 

55136  0 55137  1 55I4O  1 55I4I  0 

54302  1 54412  1 55II2  0 55100  0 

40000  0 55111  0 55077  1 55101  1 

54346  1 32527  0 54365  0 37744  1 

32537  1 53001  0 37750  1 70326  1 

05224  0 Ci  12001  0 35226  1 00004  0 

15616  1 00006  1 30376  0 52006  0 c 

I6O55  0 25360  0 31355  0 00006  1 

12155  0 12000  1 00006  1 31376  1 

70326  1 67737  0 56326  0 77750  0 

00006  1 32535  0 53001  0 35676  0 


01,2200  C!  02063  0 
01,2210  37751  0 
01,2220  00006  1 
01,2230  47737  1 


Ci  I6OO3  0 00006  1 

00006  I 02016  1 

12230  0 11144  0 

5II43  0 71132  1 


00015  0 62525  1 
62526  1 00006  1 
67755  1 55I43  1 
67737  0 5II43  0 


00006  1 12210  1 

12021  1 40346  1 

47755  0 55144  0 

55132  1 34265  1 


01,2240  37760  1 
01,2250  10000  0 
01,2260  31111  1 
01,2270  54151  0 


54151  0 60000  1 
12310  0 12310  0 
62264  0 10000  0 
60000  1 50000  1 


00006  1 50000  1 
12310  0 10151  0 
12267  1 Ci  OOO77  1 
11100  0 12276  1 


31100  1 n0006  1 
12241  0 54152  0 
12267  1 12267  1 
12303  1 5AI44  1 


01,2300  24152  1 
01,2310  32314  0 
01,2320  54365  0 
01,2330  37761  0 


32313  1 05230  0 
55361  0 12021  1 
12115  I 32516  1 
00006  1 01012  0 


10151  0 12270  1 

C{  14132  1 Ci  01107  0 
54OO3  0 32515  1 

00006  1 01014  0 


10152  0 12315  0 
32514  0 70365  0 
55401  1 56002  0 
00006  1 01011  0 


01.2340 

01.2350 

00006  1 
54027  0 

OIOO7  1 
32524  0 

35673  0 
54003  0 

00006  1 
37736  1 

01013  1 
55407  1 

37735  1 

54030 

0 

55406  0 

5 5405 

0 

01.2360 

55403  0 

55402  1 

55401  1 

55400  0 

45732  0 

55410  1 

55412 

0 

01 ,2370 

554I6  1 

55420  1 

55422  0 

55424  0 

55426  1 

55430  0 

45733 

1 
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37737  0 
32141  1 
6517A  0 
32540  1 

55132  1 
55142  0 

55102  1 

55103  0 

O57OI  1 
lOOOO  0 

05534  0 

• 00312  1 

12161  1 
51377  0 
10000  0 
05523  0 

12216  I 
62521  0 
12236  0 
54346  1 

06001  0 
02267  0 
37760  I 
24144  0 

12021  1 
62530  0 
54120  0 
55355  1 


54026  1 
55404  1 
55414  0 

55411  0 
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Octal  listing  op  paragraph  m 025*  wIthi  parity  bit  in  binary  at  the  right  op  each  woKd;  "e"  denotes  uNuSEd  pIxed  memory. 
ALL  valid  words  ARe  BASIC  INSTRUCTIONS  E><'-ePT  T^OSe  MARKED  "I"  ( INTeRP^ETI  Ve  OPpRATOR  WORDS)  OR  "C"  (CONSTANTS). 


Ol,2AOO 

55A13 

A7761 

5A067 

5A635 

1 

1 

1 

0 

55A15 

1 

0 

0 

1 

55417 

54173 

54431 

54711 

0 

0 

0 

1 

55421 

54207 

62523 

34557 

0 

n 

55423 

1 

0 

0 

0 

55A25 

54237 

62523 

54144 

1 

55427 

0 

1 

1 

0 

55431 

1 

0 

1 

0 

0 1 , 2 A 10 
01,2A20 

01 ,2a30 

5A157 

32522 

62523 

U 

1 

1 

54223 

54505 

5435O 

0 

1 

1 

54253 

54561 

47742 

54267 

62523 

5OI44 

01 ,2AA0 

5A313 

1 

IOUa 

1 

02435 

1 

54045 

1 

54345 

1 

54327 

0 

54304 

1 

54306 

0 

0l,2A50 

5A303 

0 

5A311 

0 

54312 

0 

54330 

0 

54272 

1 

54273 

0 

54333 

0 

54334 

1 

1 

54336 

54367 

1 

54370 

54371 

54765 

0 1 12^60 

5A335 

0 

54373 

1 

u 

1 

1 

0 

54372 

0 

1 

01 ,2A70 

5A356 

0 

54347 

0 

37756 

1 

54307 

1 

A7755 

0 

54414 

1 

32531 

1 

54366 

0 

01,2500 

3775c 

1 

00006 

1 

02033 

0 

62533 

0 

54413 

0 

32520 

1 

55356 

1 

44554 

0 

01,2510 

5A270 

0 

32517 

0 

54411 

1 

00120 

1 

C:  00035 

1 

C! 

02124 

1 

Ci 

03401 

1 

C: 

02354 

1 

01,2520 

c: 

02102 

0 

c: 

02013 

1 

Ci 

00431 

1 

c; 

OOO54 

0 

c:  01400 

1 

Ci 

77755 

0 

Ci 

77757 

1 

Ci 

37411 

1 

01,2530 

c: 

37A00 

1 

C! 

16000 

0 

ci 

OO44O 

1 

c: 

00102 

1 

c:  02136 

1 

C! 

34006 

0 

Ci 

03620 

0 

Ci 

34006 

0 

Ol »25Ao 

C: 

00000 

1 

c: 

00000 

1 

ci 

00005 

1 

c: 

44516 

0 

c:  00000 

1 

c: 

00000 

1 

Ci 

00000 

1 

C: 

00000 

1 

01,2550 

COOOa 

0 

02326 

1 

06045 

0 

C: 

00020 

0 

32556 

0 

05174 

0 

c* 

02061 

1 

02654 

1 

01 ,2560 

30107 

1 

50120 

1 

54046 

1 

16115 

0 

02654 

1 

40107 

0 

02561 

1 

02642 

0 

01,2570 

50107 

1 

30000 

1 

12561 

0 

02642 

0 

50107 

1 

40000 

0 

12561 

0 

02642 

0 

01,2600 

50120 

1 

30046 

0 

50107 

1 

54000 

0 

16115 

0 

02642 

0 

50107 

1 

30000 

1 

01,2610 

5012C 

1 

56046 

0 

12602 

0 

02642 

0 

50107 

1 

30000 

1 

50120 

1 

26046 

1 

01,2620 

16115 

0 

02654 

1 

30107 

1 

12616 

0 

02642 

0 

50107 

1 

4OOOO 

0 

12616 

0 

01,2630 

0265A 

1 

50120 

1 

40050 

0 

50120 

1 

60046 

0 

00006 

1 

66115 

1 

50120 

1 

01,26A0 

560A6 

0 

16715 

0 

40107 

0 

65371 

1 

10000 

0 

30110 

1 

12653 

1 

35370 

0 

01,2650 

56107 

1 

54003 

0 

74553 

1 

26107 

0 

30110 

1 

54120 

0 

10020 

1 

24120 

1 

01,2660 

00002 

0 

00002 

0 

10020 

1 

30107 

1 

15246 

0 

10144 

1 

16115 

0 

16715 

0 

01,2670 

16115 

0 

16715 

0 

10111 

1 

12675 

0 

16115 

0 

54111 

1 

10020 

1 

12663 

1 

01,2700 

C: 

00360 

1 

16715 

0 

10020 

1 

06772 

0 

16115 

0 

16715 

0 

16115 

0 

10020 

1 

01,2710 

I27I6 

1 

Ci 

12000 

1 

06772 

0 

16115 

0 

16115 

0 

16715 

0 

06772 

0 

16715 

0 

01,2720 

16715 

0 

16115 

0 

10020 

1 

I67O7 

0 

04725 

0 

02642 

0 

5OIIO 

1 

30052 

0 

01,2730 

12602 

0 

35361 

0 

70107 

0 

50000 

1 

37737 

0 

54121 

1 

37747 

1 

00006 

1 

01 ,27A0 

70107 

0 

54120 

0 

00004 

0 

5OOOO 

1 

3OO74 

1 

54OO2 

1 

37743 

0 

00006 

1 

01,2750 

7OIO7 

0 

73011 

0 

50000 

1 

12754 

1 

30121 

0 

00006 

1 

04002 

1 

12766 

0 

01,2760 

30121 

0 

00006 

1 

06002 

0 

12766 

0 

40121 

1 

70002 

1 

5OI2O 

1 

54074 

0 

01,2770 

00003 

1 

37741 

1 

00006 

1 

70107 

0 

73011 

0 

50000 

1 

1277T 

0 

40002 

1 

YJL  SYSTEM  FOR  AGC;  NEW  PROGRAM  SMEPATIN  BY  EYLES 


DEC  1r*  1966 


PAGE1120 


octal  listinc  of  paragraph  * 026.  wirHi  Rarity  bit  in  binary  at  the  right  of  each  wqrd;  "e"  denotes  unused  fixed  memory. 

ALL  VALID  WORDS  ARe  BASIC  INSTRUCTIONS  E^'-EPT  THOSe  MAR<eD  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS). 


01.3000 

01,3010 

01.3020 

01,3030 

01,3040 

01,3050 

01,3060 

01,3070 

01,3100 

01,3110 

01,3120 

01,3130 

01,3140 

01,3150 

01,3160 

01,3170 

01,3200 

01,3210 

01,3220 

01,3230 


70121  1 
13000  0 
13031  1 
C;  01201  0 

33045  0 
50064  0 
30156  0 
52155  1 

C0006  1 

13041- 0 
50067  0 
50067  0 


56111  0 
52157  0 
54156  1 
52006  0 


36130  0 
54064  1 
33216  1 

50064  0 


10000  0 
C:  OOOU  1 
10561  1 
67754  0 

54062  1 
54157  0 
54110  0 
15610  1 

65610  0 

06000  1 
52145  0 
52151  0 

00006  I 

35360  1 
37755  I 
40000  0 

70006  0 
33045  0 
26064  I 

60154  1 


13012  0 
24154  1 
13031  1 
22007  0 

50064  0 
75360  0 
10067  1 
52066  0 

30064  0 

C«  01202  0 
52145  0 
52151  0 

13145  0 
70157  0 
56111  0 
67755  1 

54155  1 
54062  1 
10062  1 

00006  1 


16764  0 
16115  0 
10635  0 
50000  1 

10157  0 
50064  0 
13072  0 
50064  0 

54067  1 

52155  1 
52147  1 
52153  1 


40156  1 
54110  0 
54067  1 
54154  0 


47761  1 
50064  0 
13212  1 

13235  1 


13012  0 
54061  1 
13031  1 
21777  0 

13105  1 
54156  1 
04725  0 
52155  1 

15610  1 

50067  0 
50067  0 
50067  0 

54156  1 

10156  1 
00003  1 
16112  1 

54121  1 

10157  0 
47755  0 

13220  0 


04725 

10431 

10711 

26063 


04725 

50067 


52157 

37761 

52155 

00004 

13276 

13220 


50064  0 


' 0 

04725 

0 

0 

13031 

1 

1 

1 3031 

1 

1 0 

37761 

0 

1 1 

13105 

1 

. 1 

13072 

0 

. 0 

54067 

1 

’ 0 

4OI57 

0 

. 1 

26064 

1 

> 1 

52155 

1 

’ 1 

52147 

1 

1 1 

52153 

1 

’ 0 

50067 

0 

, 0 

13163 

1 

i 1 

00006 

1 

► 0 

40157 

0 

. 0 

54061 

1 

1 0 

C;  n0014 

1 

► 1 

15610 

1 

30002  0 
IO5O5  0 
06000  1 
54064  1 

30063  1 
54111  1 
52066  0 
60063  I 

10062  I 

52145  B 
52151  0 
37761  0 

52157  0 
40156  1 
63171  0 
54157  0 

37761  0 
13227  1 
400fc5  0 


40157  0 


01,3240 

01,3250 

01,3260 

01,3270 


50064  0 
60155  0 
35360  1 
54121  1 


54157  0 
54066  0 

70157  0 

56157  1 


46331  1 
1006A  1 
60063  1 
75360  0 


70065  0 
13072  0 
54157  0 
10000  0 


677A3  0 
13062  1 
40000  0 

50000  1 


56065  1 
54154  0 
13204  0 
5A000  0 


76331  1 
37761  0 
00004  0 

10173  0 


50064  0 
54120  0 
47761  1 
03343  0 


01,3300  0A725  0 13302  1 10207  0 03343  0 0^725  0 13306  0 10223  0 03343  0 
01,3310  C:  67620  1 13312  0 10237  0 03343  0 04725  0 13316  1 10253  1 03343  0 
01,3320  0A725  0 13322  0 10267  0 03343  0 0a725  0 13326  1 10121  1 04725  0 


01,3330  04725  0 13333  0 15614  0 10120  0 13336  0 I3l64  0 5OOOO  1 27777  0 


01,3340  63310  0 54067  1 
01,3350  13351  1 50002  0 
01,3360  54062  1 40026  1 
01,3370  lOOOC  0 61400  1 


13113  0 54122  1 60121  0 
00002  0 54121  1 00006  1 
67746  0 10000  0 66143  1 
I3434  0 13374  0 40002  1 


10000  0 a0122  1 13353  0 
22120  1 5OI2O  1 00002  0 
40000  0 63514  1 60002  0 
67740  0 67740  0 56026  0 
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octal  listing  o'"  Paragraph  * 027t  withi  parity  bit  in  binary  at  the  right  qP  each  wqRo;  denotes  unused  fixed  memqRY. 


ALL  VALID  WORDS  ARe  I 

BASIC  instructions 

ex'-ePt  those 

marked  "I» 

(INTERPRETIVE  operator 

: WORDS) 

OR  »C"  (CONSTANTS), 

01i3a00 

67737 

0 

60002 

0 

00006 

1 

22007 

0 

57400  1 

574OI 

0 

57402 

0 

57403 

1 

0I,3AI0 

57404 

0 

57405 

1 

57406 

1 

574O7 

0 

30063  1 

50002 

0 

13417 

1 

53411 

0 

534I5 

53417 

n 

53421 

A 

53425 

1 

1 

0 1 • 3a20 

53413 

1 

U 

53423  1 

1 

53427 

u 

53431 

i 

Ol  ,3A30 

65732 

1 

00006 

1 

15712 

1 

13507 

1 

10000  0 

61401 

0 

13442 

1 

67755 

1 

00001 

n 

10000 

61402 

C! 

00002 

0 

0I*3AA0 

03515 

0 C J 

V 

0 

0 

13450  1 

67755 

1 

03515 

0 

01 ,3A50 

10000 

0 

61403 

1 

13456 

1 

67755 

1 

03515  0 

c; 

00003 

1 

lOOOO 

0 

61404 

0 

67755 

1 

03515 

C; 

OOOO4 

n 

13472 

67755 

1 

U1 »3460 

13464 

. u 

i 

U 

i UUUv  V 

6 14U5 

1 

1 

i 

01,3470 

O35I5 

0 • Ci 

OOOO5 

1 

10000 

0 

61406 

1 

13500  0 

67755 

1 

03515 

0 

C: 

00006 

1 

01,3500 

lOOOC 

0 

61407 

0 

13506 

0 

67755 

1 

03515  0 

Ci 

00007 

0 

lOOOO 

0 

06000 

1 

01,3510  C; 

01203 

1 

67755 

1 

03515 

0 

C; 

00010 

0 

Cl 

40201  0 

54064 

1 

50002 

0 

30000 

1 

01,3520 

54002 

1 

37755 

1 

60064 

0 

50002 

0 

27377  1 

40064 

1 

5OOO2 

0 

13404 

0 

01,3530 

54016 

1 

00006 

1 

22012 

1 

37736 

1 

57407  0 

57AO6 

1 

57405 

1 

57404 

0 

01,3540 

57403 

1 

57402 

0 

57401 

0 

57400 

1 

67735  1 

26026 

1 

55076 

0 

27761 

1 

01,3550 

55076 

0 

00006 

1 

45733 

1 

53431 

1 

53427  0 

53425 

1 

53423 

1 

53421 

0 

01,3560 

53417 

0 

53415 

1 

53413 

1 

53411 

0 

52006  0 

23435 

1 

37754 

0 

26002 

1 

01,3570 

55434 

1 

00006 

1 

43603 

0 

21153 

0 

11153  0 

13614 

0 

13577 

0 

13600 

0 

01,3600 

11152 

1 

13614 

0 

Ci  00000 

1 

c: 

20000 

0 

37740  0 

27153 

0 

O57OI 

1 

c: 

03621 

1 

01,3610  c: 

02003 

0 

33623 

0 

53435 

0 

52006 

0 

37740  0 

05701 

1 

Cl  0357I 

1 

C: 

02003 

0 

01,3620 

13611 

0 

53151 

1 

52006 

0 

c: 

05745 

1 

Ci 

03624  1 

Cl 

03625 

0 

CkSM  11346 

0 

® 

01*3630 

@ 

e 

@ 

& 

e 

e 

01,3640 

e 

e 

e 

@ 

® 

® 

g 

01,3650 

@ 

e 

e 

e 

e 

e 

01,3660 

e 

@ 

e 

e 

@ 

® 

® 

01,3670 

@ 

§ 

@ 

e 

e 

01,3700 

§ 

e 

g 

e 

@ 

® 

01,3710 

e 

e 

@ 

@ 

@ 

e 

01,3720 

@ 

e 

@ 

e 

§ 

§ 

§ 

01,3730 

@ 

e 

e 

@ 

e 

@ 

§ 

01 ,3740 

s 

e 

@ 

@ 

@ 

01,3750 

@ 

e 

@ 

@ 

i 

e 

01,3760 

@ 

e 

@ 

@ 

01,3770 

e 

§ 
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qctal  LISTIN&  of-'  Paragraph  * oao.  wini  parity  bit  in  binary  at  the  right  qf  each  wqRd;  ■'«"  denotes  unused  fixed  memqry. 

ALL  VALID  WORDS  ARe  BASIC  INSTRUCTIONS  EX^ePt  THOSE  MARXgD  "I"  ( I NTeRPRET I Ve  OPeRAtOR  WORDS)  OR  "C"  (CONSTANTS), 


O412OOO  03a72  0 O35I4  1 

Oa.2010  02011  0 03313  0 

0a»2020  O2O7O  1 02061  1 

0a,2030  03313  0 02066  ° 

0^,2040  03313  0 03313  0 

04,2050  02256  1 05243  I 

04,2060  C:  S64O4  1 36301  0 

04,2070  10270  0 O2O75  1 

04,2100  54306  0 02102  0 

04,2110  03217  0 - 36301  0 

04,2120  40022  0 4OO22  0 

04,2130  37761  0 54145  0 


37755  1 56303  1 54105  1 

O2O7O  1 O2O7O  1 O2O7O  1 

O2O6I  1 O33I3  0 O33I3  0 

02243  0 02355  0 02053  0 

03336  1 32275  0 02262  0 

C:  12003  1 04655  0 05243  I 

70271  1 10000  0 02070  1 

02075  1 02074  0 05605  1 

50107  I 34267  0 74545  0 

70271  1 loooo  0 02125  0 

56022  1 6OIO7  1 02142  I 

34557  1 07351  1 56145  1 


56144  0 54107  0 50000  1 

O2O7O  1 02O7O  1 02070  1 

03313  0 03313  0 03313  0 

02056  0 03313  0 03313  0 

O2O5I  1 03313  0 02446  0 

C;  56A01  1 04655  0 05243  1 

03313  0 37761  0 54107  0 

02213  0 IO3O6  0 37761  0 

54114  1 3O27O  1 54133  1 

50127  0 56272  0 54022  0 

5OI27  0 56272  0 54I44  1 

60107  1 54145  0 02142  1 


04,2140 

04,2150 

26144  1 
12152  1 

02160  1 
02201  0 

50127  0 

36301  0 

54272  1 
70271  1 

40270  0 
10000  0 

50127  0 
02160  1 

62204 

4O27O 

0 

0 

04,2160 

07146  0 

C:  02211  1 

36301  0 

70271  1 

50000  1 

02165  1 

02172 

1 

04,2170 

40146  0 

52146  0 

56146  1 

50127  0 

54275  0 

56145  1 

50127 

0 

00006  1 
02202  0 
00006  1 
54272  1 


04,2200 

02156 

1 

10270 

0 

04,2210 

C:  00000 

1 

C! 

05174 

0 

04,2220 

c:  00004 

0 

C! 

00004 

0 

04,2230 

C!  00003 

1 

c; 

00002 

0 

54270  0 05605  1'  C:  00022  1 

C?  13261  0 50270  1 32217  1 

C)  OOOOA  0 C;  00004  0 C(  00003  1 
Ci  00002  0 Ci  00002  0 c:  00002  0 


C: 

00020 

0 

c: 

00012 

1 

C: 

00005 

1 

54127 

1 

00002 

0 

C: 

00004 

0 

c: 

00003 

1 

c: 

00003 

1 

C: 

00003 

1 

Ci 

00002 

0 

04725 

0 

c: 

00001 

0 

04,2240  c:  00001  0 C!  00000  1 C5  00000  1 
04,2250  37761  0 54271  1 54304  1 
04,2260  34555  0 02246  0 02334  1 
04,2270  10306  0 37761  0 54306  0 


37761  0 
34474  1 

02321  0 

02274  1 


54272  1 
54126  0 
37754  0 
05605  1 


34554  1 
05605  1 

50127  0 

02334  1 


54270  0 
37761  0 
67747  1 
02301  1 


02557  1 
54273  0 
26271  1 
37755  1 


04,2300 

04,2310 

04,2320 

04,2330 


02265  1 
37761  0 
00001  0 
02310  1 


22002  0 
54114  1 
22002  0 
C;  OOOO5  1 


02213  0 50127  0 
56113  1 03301  0 
02213  0 50127  0 

c:  00003  1 C:  00000  1 


32327  0 54113  0 
37743  0 54II4  1 
32327  0 54112  1 
22002  0 36301  0 


67755  1 54112  1 
56112  0 03301  0 
67755  1 54113  0 

7O27I  1 10000  0 


04,2340 

05605  1 

44516  0 

02350  0 

44517 

1 

04,2350 

60270  1 

00006  1 

12354  0 

00002 

0 

04,2360 

37744  1 

00006  1 

05011  1 

32444 

1 

04,2370 

70366  0 

65660  1 

54366  0 

47744 

0 

02350  0 44520  0 02350  0 05605  1 
00001  0 56105  0 54303  0 00004  0 
70326  1 67737  0 5^326  1 45660  0 
70365  0 677A4  1 54365  0 42443  1 
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octal  lJSting  Of.  paraqrapH  0 oAit  wUhi  parity  bit  in  binary  at  the  right  Op  EAcH  wOPo*  "®"  denotes  uNuSEd  fIxed  memory. 

ALL  VALID  WORDS  ARp  BASIC  INSTRUCTIONS  E^^'-EPT  tHOSe  MARKpO  "I"  ( INTeRPRetIVe  OPeRAtOR  WORDS)  OR  "C"  (CoNStANtS) , 


Oa.ZaOO 

7O4I3 

0 

67747 

1 

54413 

0 

47744 

0 

00006 

1 

03013 

0 

42442 

0 

00006 

1 

O^.ZAlO 

03011 

1 

34557 

1 

54107 

0 

00004 

0 

50107 

1 

10313 

1 

67755 

1 

02424 

1 

0^t,2420 

67755 

1 

40000 

0 

72445 

1 

02427 

1 

40000 

0 

72445 

1 

4OOOO 

0 

5OIO7 

1 

04,2A30 

5A313 

1 

00003 

1 

10107 

0 

02412 

1 

37761 

0 

55363 

1 

55364 

0 

55365 

1 

0if,24A0 

55361 

0 

05605 

1 

c! 

00104 

1 

c: 

00330 

1 

Ci 

OOO5O 

1 

c: 

73777 

1 

IO27O 

0 

67755 

1 

0a,2A50 

02452 

0 

67755 

1 

50000 

1 

32217 

1 

54127 

1 

10306 

0 

02464 

0 

02461 

0 

30127 

Q 

O25O6 

A 

02501 

1 

1 

025O6 

A 

32555 

A 

0^ .2^60 

02461 

0 

1 

10127 

1 

54127 

i 

u 

V 

0A.2A70 

263a4 

1 

30127 

0 

54115 

0 

00006 

1 

26272 

1 

05224 

0 

C; 

12315 

0 

30115 

1 

04,2500 

5A127 

1 

O25O4 

1 

24306 

1 

05605 

1 

22OO2 

0 

02516 

1 

65355 

1 

lOOOO 

0 

04.2510 

00002 

0 

04725 

0 

05605 

1 

00002 

0 

22002 

0 

02213 

0 

37761 

0 

50127 

0 

04.2520 

5A272 

1 

50127 

0 

54275 

0 

54114 

1 

50127 

0 

47747 

0 

7O27I 

1 

72556 

1 

04.2530 

54271 

1 

50127 

0 

32546 

1 

54133 

1 

03217 

0 

5OI27 

0 

3255! 

1 

54270 

0 

O4.25AO 

02557 

1 

47754 

1 

26270 

0 

02557 

1 

50127 

0 

34514 

0 

5427O 

0 

00001 

0 

04.2550 

C:  00016 

0 

Cs  00005 

1 

c: 

00004 

0 

c: 

00015 

0 

C; 

00011 

1 

C; 

00003 

1 

C: 

77774 

0 

30270 

1 

04.2560 

5A021 

0 

42572 

1 

00004 

0 

50021 

1 

56313 

0 

00006 

1 

62570 

1 

24307 

0 

n n rv  ri  0 

Q 

37761 

A 

02632 

1 

02600 

A 

A p i p S 

J 

04.2570 

00003 

1 

UUUU2 

L • 

UhUUU 

u 

u 

54146 

u 

i 

u 

04.2600 

026A3 

1 

10144 

1 

56144 

0 

02606 

0 

02615 

1 

67763 

1 

62657 

1 

54144 

1 

04.2610 

02613 

1 

37737 

0 

26144 

1 

37754 

0 

02574 

0 

56144 

0 

62657 

1 

10000 

0 

04.2620 

02607 

1 

04725 

0 

67755 

1 

40000 

0 

02607 

1 

00006 

1 

50146 

1 

32654 

1 

04.2630 

52114 

1 

00002 

0 

10144 

1 

00002 

0 

00002 

0 

12636 

1 

47737 

1 

70144 

1 

04.26A0 

5A144 

1 

50002 

0 

00001 

0 

00006 

1 

50146 

1 

32654 

1 

52145 

0 

07351 

1 

04.2650 

52114 

1 

20145 

0 

02663 

0 

C; 

05605 

1 

c: 

03656 

1 

Ci 

16314 

0 

c: 

31463 

1 

C;  16040 

1 

O4 .2660 

52114 

1 

52145 

0 

O735I 

1 

05243 

1 

c; 

12513 

0 

02677 

0 

56146 

1 

56145 

1 

04.2670 

5A144 

1 

02663 

0 

02677 

0 

02663 

0 

02677 

0 

03072 

1 

02663 

0 

56002 

0 

O4.27OO 

54111 

1 

50130 

0 

02702 

0 

02720 

0 

5OIO7 

1 

3OI4O 

1 

74552 

0 

04512 

0 

04.2710 

00006 

1 

50000 

1 

30001 

0 

52145 

0 

07320 

1 

07146 

0 

c: 

00113 

1 

00111 

0 

04.2720 

30135 

0 

02710 

0 

50130 

0 

02723 

0 

02726 

0 

03315 

0 

00006 

1 

5OI35 

0 

04.2730 

30001 

0 

52145 

0 

34516 

1 

54270 

0 

37761 

0 

54146 

0 

07320 

1 

03173 

1 

04.2740 

00126 

1 

07146 

0 

c« 

03004 

0 

10145 

0 

37743 

0 

02747 

1 

47743 

1 

60145 

1 

04.2750 

03104 

1 

04600 

0 

04600 

0 

03113 

1 

04600 

0 

10144 

1 

02762 

0 

02762 

0 

04.2760 

40000 

0 

54144 

1 

10111 

1 

03000 

1 

02774 

1 

10144 

1 

04725 

0 

02776 

0 

04.2770 

02771 

1 

56l44 

0 

77735 

0 

54I44 

1 

05243 

1 

C; 

I3O4O 

1 

47735 

0 

02773 

0 
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octal  listing  oP  Paragraph  # oa2,  withi  parity  bit  in  binary  at  the  right  qF  each  woRd;  "e"  denotes  unused  fixed 

ALL  VALID  WORDS  ARe  BASIC  INSTRUCTIONS  eX^ePT  THOSe  MARXeD  "I"  ( INTERPRET  I Ve  OPeRATOR  WORDS)  OR  I'C"  (CONStANjS). 

OA,3000  AOIAA  1 77735  0 AOOOO  0 02773  0 c:  26161  0 C!  30707  1 Ci  2I6I6  0 C 

0a,3010  C;  71527  1 O7IA6  0 CS  00113  1 561A6  1 561A5  1 56UA  0 00006  1 

0<,,3020  C33I5  0 O3IO2  1 O3II3  1 0277A  1 IOUa  1 O3O3I  0 O3O3I  0 

0a,3030  03315  0 33010  0 26lAA  1 071A6  0 C:  O3OO6  1 377A2  1 60U5  1 

0a,30A0  02752  0 O7IA6  0 C5  00113  1 561A6  1 60000  1 5AK6  0 37761  0 

0a,3050  0310a  1 03113  I 50130  0 03053  1 O3O6A  0 3OIO7  1 60135  0 

0a,3060  561A5  1 50002  0 5A001  1 02774  1 37761  0 03056  1 07146  0 C 

0a,3070  03072  1 03043  0 56002  0 54ll4  1 36276  1 54113  0 04600  0 

0a,3100  O3O75  0 OOlU  0 56145  1 60000  1 54l45  0 00002  0 60144  0 


0a,3110  00002  0 54111  i 00002  0 
0a,3120  54IO5  1 10144  I 03131  1 
0a,3130  03133  0 02301  I 56145  1 

04,3140  03144  0 37735  54144  1 
04,3150  5OI44  0 34267  0 74545  0 
04,3160  56270  1 54133  i 10000  0 
04,3170  54270  0 OOIO5  0 Ci  02476  0 


10111 

03131 

1 

1 

0 

03315  0 

67755  1 
54145  0 

00002  0 
54I44  1 

03315 

02321 

0 

0 

63172 

37761  0 

60144 

0 

54145 

0 

1 

37753  1 

54127  1 

56146  1 

34557 

1 

1 

54114 

37761  0 

56145 

54270 

0 

03217  0 

10127  1 

03145 

1 

56002 

0 

54IO5  1 

37761  0 

54114 

1 

04,3200 

04,3210 

04,3220 

04,3230 


C3301  0 
02321  0 
54104  0 

10000  0 


37753  I 
40145  D 

34545  1 


03301  0 
54145  0 
70133  1 


10144  1 
03215  1 
54021  0- 


03214  0 
02301  1 
56021  1 


03214  0 
34517  0 
54131  0 


67755  1 
03145  1 
37755  1 


03233  0 03243  1 56114  0 04537  1 54ll4  1 37740  0 


04,3240  10000  0 37754  0 67755  1 
04,3250  04725  0 67755  1 54132  0 
04,3260  13273  0 50133  0 43275  0 
04,3270  00006  1 63273  1 24307  0 

04,3300  C!  03740  1 54131  0 37754  0 
04,3310  33312  1 05246  1 Ci  13250  1 
04,3320  00006  1 13323  1 00126  1 


54133  1 00004  0 50131  1 10313  1 

50133  0 73275  0 00006  1 60114  0 

70132  0 60114  0 40000  0 5OI3I  1 

00003  1 00104  1 C;  00037  0 C:  01740  0 C 

54133  1 56002  0 54104  0 03244  0 

34474  1 54126  0 04560  0 43325  1 

06000  1 Ci  01501  1 04453  1 37755  1 


04,3330  04655  0 

04,3340  03011  1 
04,3350  56133  0 
04,3360  50133  0 
04,3370  6O27O  1 


04615  1 03440  1 

04655  0 05605  1 
54021  0 56021  1 
73275  0 50133  0 
10000  0 67755  1 


04455  1 47755  0 

37760  1 54270  0 

50000  1 10313  1 

03364  0 03366  1 

03375  0 04725  0 


03327  1 47753  0 

54133  1 37755  1 
03357  0 04725  0 
04521  0 54114  1 
54133  1 03217  0 


MEMqRY. 


! 07071  0 
13021  0 

03315  0 

03104  1 

60145  1 
54002  1 
; 00113  I 
10113  0 

54144  1 

56002  0 
40145  y 
54144  1 

07351  I 

54144  1 

44554  0 

36301  0 

54144  1 
56002  0 
70133  I 

7OI33  i 

03251  1 
00006  i 

56313  0 
• 02000  0 

03217  0 
60126  I 
54305  0 

00006  1 

70133  1 
67755  I 
47760  0 

40270  0 
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octal  listing  qF  paragraph  0 0A3,  WITS:  PARITY  BIT  IN  BINARY  AT  THE  RIGHT  qP  EaCH  WqRDI  DENOTES  UNUSED  FIXED  MEMoRY. 
ALL  VALID  WORDS  aRf  BaSIC  INStRUCjIONS  E^'-EPT  tHQSe  MARiCgD  «1«  ( INTeRPRetI Ve  OPeRAtOR  WORDS)  oR  "C"  (CoNStANtS). 


04,3400  645I6  1 
Oa,3A10  5OOOO  1 
Oa,3a20  33A3A  1 
04,3A30  3A5l6  1 

04,3AA0  10327  0 

0a,3A50  OOOOa  0 
0a,3A60  6015A  1 
0a,3A70  37755  1 

0a,3500  5A13a  0 
0a,3510  30001  0 
0a,3520  052A6  I 
0a,3530  0355A  O 

0a,35A0  C;  035A3  0 
0A,3550  5A330  0 
0a,3560  CKSM  67762  0 
OA,357o  @ 

0A,3600  § 
0A,36l0  @ 
OA,3620  e 
0A,3630  @ 

0A,36A0  @ 
0A,3650  e 
0a,3660  e 
0A,3670  @ 


0A,3700  S 
0A,3710  e 
0A,3720  S 
0a,3730  @ 

0A,37A0  @ 
04,3750  e 
04,3760  S 
04,3770  e 


10000 

0 

56270 

1 

10313 

1 

03414 

0 

03301 

0 

40270 

0 

54270 

0 

02514 

0 

03446 

1 

05605 

1 

05567 

0 

10305 

0 

50064 

0 

5415A 

0 

03457 

1 

54001 

1 

50134 

1 

10333 

0 

50134 

1 

54333 

0 

37754 

0 

5433O 

0 

03533 

1 

03554 

0 

10000 

0 

057A5 

1 

05605 

1 

37761 

0 

g 

g 

g 

g 

@ § 

§ @ 

@ e 

@ e 

@ @ 

@ @ 

@ e 

@ @ 


e @ 

e @ 

s & 

@ @ 

@ @ 

e @ 

@ @ 

@ @ 


67755  1 

04725  0 

63436  0 
00126  1 C; 

03446  1 

03470  1 
00003  1 
10330  0 

O35O5  1 
05563  1 

30001  0 
O457O  I 

04703  1 

03550  1 
@ 

@ 

@ 

@ 

@ 

@ 

@ 


@ 

g 

g 

g 

g 

g 

g 


O3344  1 37761  0 

67755  1 77743  1 

10000  0 56270  1 

00000  1 C;  00001  0 

54327  0 03464  1 

O56O5  I 03466  0 

04700  1 05605  1 

03477  0 30001  0 

O35IO  0 10134  0 

54OOI  I 10303  0 

56335  1 56334  0 

30001  0 05563  1 

03552  0 05567  0 

06000  1 C;  01206  1 

g g 

g g 

g g 

g g 

g g 

g g 


g g 

g g 

g g 

g g 


g g 

g g 

g g 

g g 


54270 

0 

63436 

0 

54114 

1 

5O27O 

1 

67755 

1 

03406 

0 

00003 

1 

C; 

00004 

0 

37761 

0 

56327 

1 

3775A 

0 

50064 

0 

37761 

0 

03457 

1 

05246 

1 

37754 

0 

n3500 

1 

03554 

0 

03521 

1 

3OOOI 

0 

56333 

1 

lOOOO 

0 

35226 

1 

05523 

0 

00003 

1 

37755 

1 

03556 

1 

C: 

03557 

0 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 
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octal  listing  oF  Paragraph  « oaa.  with,  rarity  bit  in  binary  at  the  right  oF  each  wqRd;  "e"  denotes  unused  fixed 

ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  E^^ePt  THOSE  MARKED  "I"  (INTERPRETIVE  OPERATOR  WORDS)  oR  "C"  (CONSTANTS) 


05 

O5 

O5 

O5 


2000 

2010 

2020 

2030 


033AA 

02031 

10270 

C;  00030 


1 13^03  I 

1 02031  I 

0 0232a  0 

1 37761  0 


02663  0 
02013  1 
0232A  0 
5A271  1 


37761  0 
36301  0 

0202a  0 
AO272  1 


5a306  0 
70271  1 
a030a  1 
62030  0 


3A<+7a  I 
10000  0 
5A30a  1 
00006  1 


5a126  0 
02020  1 
0A61S  1 
62116  0 


05,2040 

32076 

1 

05,2050 

02324 

0 

05,2060 

60126 

1 

O5 , 2O7O 

O45O2 

1 

05,2100 

3OIA6 

1 

05,2110 

5427O 

0 

52006  0 5OI3O  0 

O2O55  0 2A310  0 

00006  1 12064  0 

00006  I 32076  1 

0A502  I 47752  1 

30310  0 03222  0 


020A3  1 O2OA6  1 

0A51O  1 02102  0 

02100  1 02256  1 

52006  0 02116  0 C; 

7O272  1 62O77  0 

02116  0 67755  1 


02176  0 10136  1 

37737  0 54306  0 

10271  1 02324  0 

02000  0 Cj  A6000  0 C 

00006  1 12116  1 

0A502  1 A2131  1 


05,2120  10000  0 67755  I 02124  1 02133  1 54144  1 04655  0 56144  0 

05,2130  05246  1 Cj  00040  0 ci  22000  1 50272  0 32136  1 05246  1 C;  12324  1 C 


05,2140 

05,2150 

05,2160 

05,2170 


05,2200 

05,2210 


05,2220 

05,2230 


05,2240 

05,2250 

05,2260 

05,2270 


C!  12345  0 
C!  13077  0 
C:  12631  0 
C:  11343  0 

02324  0 

37754  0 

02236  1 
50135  0 

00002  0 
50002  0 

40002  1 
12273  1 


C:  12352  0 
C:  13077  0 
C:  12646  0 
C!  11326  0 

02203  1 
54107  0 

02223  0 
56000  I 

00002  0 
00001  0 
54304  1 
47761  I 


C 

C 

C 

C 


12333  1 C;  12326  0 C!  12445 

13077  0 C:  13077  0 Cl  13077 

12572  1 c;  12535  1 c;  12324 

11333  1 C:  13414  1 Cl  02000 

O22O3  1 46276  0 60272 

62235  1 54135  1 5OIO7 

24112  0 30112  0 74552 

10107  0 02211  1 02116 

00002  0 00002  0 12250 

34516  1 12257  1 34517 

05224  0 Cj  IO5I4  0 04611 

54327  0 00126  I 54273 


1 C;  10722  1 Cl  11315  0 

0 Cl  13077  0 C!  12324  1 

1 C!  13214  1 Cl  13314  0 

0 Cl  13267  0 10136  1 

0 00006  1 62210  0 

1 30140  1 54112  1 

0 04512  0 5OOOO  1 

0 00115  1 5OOOO  1 

0 12250  0 00002  0 

0 12257  1 34520  1 

0 44474  0 60126  1 

0 56002  0 54107  0 


C 

C 

C 


05,2300 

32076  1 

52006  0 

10136  1 

67755 

1 

05,2310 

34555  0 

54270  0 

30273  1 

12322 

1 

05,2320 

54270  0 

30272  0 

03255  0 

OOIO7 

1 

05,2330 

50135  0 

40002  1 

56122  0 

47755 

0 

12307  0 12310  0 12310  0 
54272  1 56002  0 54107  0 
05243  1 C;  11315  0 47754  1 
02376  1 50135  0 aOOOI  1 


05,2340 

02a20  0 

50135  “ 

40000  0 

56120  1 

02357 

05,2350 

AOOOI  1 

02343  1 

47754  1 

02376  1 

50135 

05,2360 

60272  0 

10000  0 

02365  0 

00126  1 

02365 

05,2370 

54270  0 

50112  0 

40120  0 

03222  0 

56112 

47755  0 02376  1 

40002  1 02343  1 
54112  1 5OOOO  1 
02361  1 54113  0 


L 


MEMqRY. 


IO3OA  1 
02024  0 

00304  0 
00006  1 

02114  1 
44474  0 
56276  1 
: 77772  0 

34520  1 
60272  0 

62132  0 
: 12340  0 

I 13077  0 
: 12620  0 
: 13340  1 

02203  1 

02116  0 
02721  1 

30000  1 

12240  1 

12250  0 
54270  0 
00006  1 
00006  I 

04502  1 

34554  1 

02376  I 

56121  0 


50135  0 

47754  1 
34516  I 
22002  0 


48895<tA  YJL  SYSTEM  f'OR  AGC»  NeW  PR0<jRAM  SHePatIN  BY  eYLeS 
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Octal  listing  oe  rasaqRaph  0 oas.  wIt+  sarity  bit  in  binary  at  the  right  of  each  woRd;  ”§«  denotes  uNused  fixed  memory. 


ALL  VALID 

WORDS  are 

basic 

instructions 

EXCePt  those 

MARXeD  "I" 

(Interpretive 

operator 

WORDS)  OR 

"C”  (CONSTANTS), 

05,2aOO 

A7755 

0 

60273 

1 

00006 

1 

12A17 

0 

50130 

0 

32AA2 

1 

5OOOO  1 

30000 

1 

05,2A10 

7A5A7 

1 

0A530 

0 

60113 

1 

10000 

0 

00001 

0 

0A725 

0 

0232A  0 

00001 

0 

05,2A20 

22002 

0 

30136 

0 

67755 

1 

00006 

1 

12A36 

0 

5OI3O 

0 

02A26  0 

02A31 

0 

05,2A30 

00001 

0 

02713 

0 

02236 

1 

00001 

0 

2A135 

0 

00001 

0 

00006  1 

5O3IO 

0 

05,2AA0 

00000 

1 

aoooo 

0 

123A3 

0 

C: 

00137 

1 

c;  00136 

0 

5OI3O 

0 

32aa2  1 

5OOOO 

1 

05,2A50 

30000 

1 

7A5A7 

1 

0A530 

0 

5AIO7 

0 

5A112 

1 

60135 

0 

50000  1 

AOOOO 

0 

D 

10112 

02A5A 

37761 

r\ 

5OIO7 

t 

V5 ,2A60 

501 12 

0 

5627A 

1 

U 

U 

5A1A5 

0 

5AIA6  0 

1 

05,2A70 

3A516 

1 

5A270 

0 

50107 

1 

A027A 

1 

5AlAA 

1 

0273A 

0 

5A113  0 

00006 

1 

05,2500 

32512 

0 

52006 

0 

50130 

0 

O25O3 

0 

O25O7 

1 

02721 

1 

02522  0 

02713 

0 

05,2510 

02522 

-0 

C: 

02037 

1 

CJ 

A6000 

0 

0522A 

0 

C:  11117 

0 

10107 

0 

02520  1 

00126 

1 

05,2520 

5AIO7 

0 ' 

02A6A 

0 

50000 

1 

32525 

1 

O52A6 

1 

c; 

11315 

0 

C!  12513  0 

C: 

10573 

1 

05,2530 

c:  10660 

0 

c; 

10665 

0 

Ci 

10672 

0 

c; 

10601 

1 

C:  1067A 

0 

A775A 

1 

02376  1 

32673 

1 

05 , 25Ao 

0231A 

0 

02252 

0 

3267A 

0 

0231A 

0 

0225A 

0 

32675 

1 

023iA  0 

02256 

1 

05,2550 

A6276 

0 

02676 

1 

00006 

1 

32076 

1 

52006 

0 

37761 

0 

02762  0 

50135 

0 

05,2560 

5AOOO 

0 

37755 

1 

02762 

0 

50135 

0 

5A001 

1 

3775A 

0 

02762  0 

50135 

0 

0 

rt 

02376 

1 

0231A 

n 

02252  0 

3267A 

n 

u5 ,2570 

1 

U2663 

A7755 

u 

1 

icbl  i 

i 

V 

05,2600 

0231A 

0 

0225A 

0 

A7760 

0 

02676 

1 

00006 

1 

32076 

1 

52006  0 

37761 

0 

05,2610 

02762 

0 

50135 

0 

5A000 

0 

37755 

1 

02762 

0 

50135 

0 

5A001  1 

02663 

0 

05,2620 

02252 

0 

00006 

1 

32076 

1 

52006 

0 

37761 

0 

02762 

0 

50135  0 

5A000 

0 

05,2630 

02663 

0 

A7755 

0 

02376 

1 

37737 

0 

5A306 

0 

0225A 

0 

0OOO6  1 

32076 

1 

05,26A0 

52006 

0 

37755 

1 

02762 

0 

50135 

0 

5A001 

1 

02663 

0 

A775A  1 

02376 

1 

05,2650 

37737 

0 

5A306 

0 

02256 

1 

00006 

1 

32076 

1 

52006 

0 

3775A  0 

02762 

0 

05,2660 

5OI35 

0 

5A002 

1 

02663 

0 

37761 

0 

5A271 

1 

A7761 

1 

5A305  0 

AA55A 

0 

05,2670 

5A270 

0 

052A3 

1 

Ci 

llAAO 

1 

C; 

00021 

1 

C:  00022 

1 

C; 

00023 

0 

5A107  0 

A0271 

1 

05,2700 

5A021 

0 

A0021 

0 

A0021 

0 

10000 

0 

12706 

0 

00002 

0 

60107  1 

00006 

1 

05,2710 

12712 

0 

0232a 

0 

00002 

0 

56002 

0 

5A10a 

0 

3A5A6 

1 

70137  0 

OA521 

0 

05,2720 

0010a 

1 

56002 

0 

5A10A 

0 

50107 

1 

32753 

1 

5A001 

1 

5OIO7  1 

3A5A5 

1 

05,2730 

701A3 

0 

50001 

0 

00000 

1 

OOlOA 

1 

56002 

0 

5A10A 

0 

50130  0 

02737 

0 

05,27A0 

02756 

1 

50107 

1 

32753 

1 

5A001 

1 

5OIO7 

1 

3A5A5 

1 

70137  0 

5OOOI 

0 

05,2750 

00000 

1 

60000 

1 

OOlOA 

1 

02712 

1 

0A521 

0 

0A530 

0 

3A5A5  1 

70137 

0 

05,2760 

60000 

1 

OOlOA 

1 

5A107 

0 

56002 

0 

5A105 

1 

37761 

0 

5AIII  1 

5OIO7 

1 

05,2770 

56277 

0 

5A1A5 

0 

50107 

1 

5627A 

0 

5A1AA 

1 

50130 

0 

02776  0 

03023 

0 
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octal  listing  0^  Paragraph  * 046.  with.  pa^itv  bit  in  binary  at  tHe  right  oF  each  word;  "e"  denotes  unused  fixed 

ALL  VALID  WORDS  ARe  BASIC  INSTRUCTIONS  eXCePt  tHOSe  MARKeD  "I"  ( INTERPRETIVe  OPeRAtOR  WORDS)  OR  "C"  (CONSTANTS) 


05*3000  50107  1 
05,3010  C<3051  0 
05*3020  5OIO7  1 
05,3030  0303A  0 

05,30A0  56UA  0 
05,3050  02663  0 
05,3060  03063  1 
05,3070  C:  11021  1 

05*3100  ?0310  1 


3014,0  1 74,552  0 

02721  1 02236  1 

53777  G 0304,0  0 

37761  0 5A107  0 

OOIO5  0 c!  0204,5  1 

0273a  0 5A113  0 

02721  1 0306A  0 

; 10741  1 C?  11011  1 

54145  0 33401  1 


04502  1 00006  1 

03040  0 24135  0 

O45IO  1 10271  1 

03014  1 30136  0 

C:  46000  0 561A4  0 

00006  1 33043  0 

02713  0 50000  1 

c;  11041  1 C!  11066  1 

70272  1 04530  0 


60107  1 54135  1 
30135  0 26107  0 
O3O5I  0 02713  0 
67755  1 00006  1 

00006  1 5O31O  0 
52006  0 5OI3O  0 
33067  0 05246  1 

c;  11024  1 c;  11041  i 

54022  0 56022  1 


05*3110  54144  1 40330  0 67754  0 
05*3120  5A303  0 00004  0 10311  0 
05*3130  52145  0'  52312  0 00003  1 

05*3140  O3I53  0 03153  0 33157  1 
05*3150  C;  03160  0 C)  12000  1 057A5  1 
05,3160  10312  0 03165  0 03165  0 
05*3170  70311  0 54113  0 04447  1 


10000  0 04700  1 03121  0 04725  0 
03130  0 37755  1 05701  1 Cj  03134  1 
00126  1 O4574  0 10312  0 03142  0 

O57OI  1 C!  O3I34  1 C)  12000  1 35226  1 
37761  0 54311  0 54312  0 057^5  1 
05605  1 05605  1 10303  0 03212  0 
05605  1 33210  1 70311  0 04521  0 


05*3200  5602C  0 
05*3210  C;  OO7OO  0 
05,3220  03222  0 


54272  1 33211  0 

C;  04424  I 04570  1 

056O5  1 54022  0 


54126  0 47737  1 
05605  1 34516  1 
56002  0 54IO5  1 


70312  0 54146  0 
54270  0 30310  0 
37740  0 26270  0 


05*3230  54127  1 

05,3240  7454^  0 
05*3250  10127  1 
05*3260  37755  1 
05*3270  37761  0 


40022  0 40022  0 

54114  I 56270  1 
03230  0 4455A  0 
54127  I 40020  1 
56273  1 54144  1 


40022  0 40000  0 

54133  1 10000  0 

54270  0 OOIO5  0 

40020  1 56020  0 

34555  0 54270  0 


77757  1 i;0000  1 

54270  0 05243  1 

54020  1 56002  0 

54022  0 03235  0 

05224  0 cj  10557  1 


05*3300  05243  1 

05*3310  05224  0 

05*3320  35741  0 


C!  II3I5  0 40002  1 

C5  10557  1 04611  0 

54144  1 A7755  0 


54304  1 34555  0 

00126  1 37755  1 

70337  1 54150  1 


54270  0 37761  0 

70337  1 10000  0 

04655  0 34474  I 


05*3330  00006  1 30341  1 52146  0 30150  0 00004  0 00144  0 34551  1 


05*3340  34550  0 

05*3350  54144  1 

05*3360  03364  0 

05,3370  04453  1 


54144  I 30337  0 
33402  1 70113  0 
56145  1 02314  0 
56145  1 02314  0 


03324  1 33363  1 
04521  0 54O2O  1 
04453  1 10145  0 
56144  0 02274  1 


54126  0 33401  1 
56020  0 54145  0 
03371  1 56144  0 
37761  0 54305  0 


C 


C 


C 


C 


MEMqRY. 


10271  1 
37761  0 
02236  1 
13044  0 

01000  0 
03057  0 
: 11315  0 
47737  I 

60273  1 

37761  0 
: 12000  1 
03142  0 

05523  0 
: 00144  0 
33401  I 
54020  1 

02037  I 
05257  I 
37753  1 

34267  0 

: 11307  0 
54105  I 
03302  0 
30144  0 

54273  0 
03336  I 
54147  1 

03321  I 

7OII3  0 
10144  1 

02274  1 
54306  0 
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A8895AA  YJU  system  FOR  AGCJ  NeW  PROCiRAM  SHePATIN  BY  eYLeS  DeC  I3,  I966 


oCjal  listing  of  paragraph  « 0A7*  wIthi  Parity  bit  in  binary  at  the  right  oF  each  word;  "e"  denotes  unused  fixed  memory. 

ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EX^EPt  THOSe  MARKeO  h I h (INTERPRETIVE  OPERATOR  WORDS)  oR  "C"  (CONSTANTS). 


05  *3a00 

02031 

1 

C! 

00077 

1 

ci 

07700 

1 

34556 

0 

56270 

1 

54130 

1 

30302 

0 

22002 

0 

05.3A10 

03255 

0 

56130 

0 

54270 

0 

00001 

0 

00004 

0 

A7755 

0 

70366 

0 

67755 

1 

O5 .3420 

54366 

0 

33457 

1 

00006 

1 

O5OI 1 

1 

33460 

0 

54326 

1 

37744 

1 

00006 

1 

05,3430 

05013 

0 

34557 

1 

54107 

0 

43455 

1 

5OIO7 

1 

54313 

1 

10107 

0 

03432 

1 

05,3440 

43456 

1 

54314 

0 

54317 

0 

54321 

0 

37756 

1 

54307 

1 

00003 

1 

33462 

1 

05,3450  , 

00004 

0 

05701 

1 

Ci 

03463 

0 

C! 

12000 

1 

05605 

1 

c; 

05675 

0 

Ci 

0767S 

1 

Ci  00175 

1 

05,3460 

c: 

40650 

0 

c: 

OOII5 

1 

cl 

OO76A 

1 

35226 

1 

05523 

0 

C! 

O347O 

1 

c; 

12000 

1 

057A5 

1 

05,3470 

43461 

0 

00004 

0 

00006 

1 

03011 

1 

47744 

0 

00006 

1 

03013 

0 

37737 

0 

05,3500 

5A3'26 

1 

43521 

0 

70366 

0 

65660 

1 

54366 

0 

43523 

1 

70365 

0 

65657 

0 

05,3510 

54365 

0 

43522 

0 

70413 

0 

67747 

1 

54413 

0 

00003 

1 

02001 

1 

05243 

1 

05,3520 

C; 

11333 

1 

C; 

16001 

1 

c; 

00330 

1 

C; 

55000 

1 

C:  03524 

1 

Ci 

03525 

0 

CkSM 

07044 

0 

g 

05*3530 

§ 

@ 

g 

g 

g 

g 

g 

g 

05.3540 

@ 

g 

g 

g 

g 

g 

g 

05*3550 

e 

@ 

g 

g 

g 

g 

g 

g 

05*3560 

@ 

@ 

g 

g 

g 

g 

g 

g 

05  *3570 

g 

e 

g 

g 

g 

g 

g 

g 

05*3600 

e 

g 

g 

g 

g 

g 

g 

g 

05*3610 

@ 

@ 

g 

g 

g 

g 

g 

g 

05*3620 

@ 

e 

g 

g 

g 

g 

g 

g 

05*3630 

@ 

g 

g 

g 

g 

g 

g 

05*3640 

@ 

e 

g 

g 

g 

g 

g 

g 

05*3650 

@ 

e 

g 

g 

g 

g 

g 

g 

05*3660 

e 

e 

g 

g 

g 

g 

g 

g 

05*3670 

e 

@ 

g 

g 

g 

g 

g 

g 

05*3700 

e 

g 

g 

g 

g 

g 

g 

05*3710 

@ 

g 

g 

g 

g 

g 

g 

05*3720 

@ 

@ 

g 

g 

g 

g 

g 

g 

05*3730 

e 

@ 

g 

g 

g 

g 

g 

g 

05*3740 

§ 

g 

g 

g 

g 

g 

g 

05*3750 

@ 

g 

g 

g 

g 

g 

g 

05*3760 

§ 

g 

g 

g 

g 

g 

g 

g 

05*3770 

e 

g 

g 

g 

g 

g 

g 

g 
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oCtal  listing  of-  paragraph  0 050*  wItHi  Rahity  bij  in  binary  At  the  right  of  each  Word;  ”e«  denotes  unused  fixed  memory. 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKeO  » I » ( INTeRPRETIVE  OPERATOR  WORDS)  OR  mCi>  (CONSTANTS), 


06*2000  c: 

06*2010  Cj 

06*2020  Ci 

06,2030  C! 

06*20Ao  c: 

06*2050  Ci 

06*2060  Ci 

06,2070  Ci 

06*2100  Ci 

06*2110  Ci 

06*2120  Ci 

06*2130  Cl 


02360  0 Ci 
0A003  0 Ci 
751A6  0 Cl 
21000  1 Cl 

17712  0 Cl 
02115  0 d 
20000  0 Ci 
72065  1 Ci 

021^0  0 Cl 
20000  0 C: 

00000  1 Cl 
00000  1 C; 


02U7  I Ci 
10000  0 Ci 
25773  0 Ci 
02317  0 ci 

32000  0 Ci 
60065  1 Ci 
02016  I Ci 
20000  0 Ci 

72065  1 Ci 
02615  1 C! 

00010  0 ci 
00002  0 


05757  1 Cl 
0561A  1 Cl 
77777  0 Ci 
6006A  0 Ci 

03571  1 Ci 
00310  0 Ci 
72065  1 Cl 
02637  1 Cl 

77777  0 Cl 
72065  1 C: 

00000  1 Cl 
30151  1 


0553^  0 Cl 
0AO03  0 Cl 
75621  0 Ci 
00310  0 Cl 

2^003  1 Ci 
75211  1 Cl 
77777  0 Cl 
72065  1 Ci 

75656  0 Cl 
77777  0 Cl 

00002  0 Cl 
60000  I 


05701  1 
77777  0 Cl 

25773  0 Cl 

75211  1 Cl 

00310  0 Ci 

17712  0 Cl 

757O7  0 Cl 

20000  0 Cl 

05712  0 Cl 

75666  0 Cl 

00000  1 Cl 

5A1A5  0 


05237  1 Cl 
75621  0 Ci 
00620  0 CI 
I77I2  0 Cl 

75211  1 Cl 
77777  0 Cl 
05712  0 Cl 
02730  1 Cl 

2OOOO  0 Cl 
(35712  0 C; 

00002  0 Cl 
32003  0 


lOOOO  0 Cl 
157IA  1 C: 
75506  0 Cl 
00310  0 Cl 

17712  0 Cl 
75227  1 Cj 
20000  0 Cl 
72065  1 C: 

02652  1 Ci 
00000  1 C; 

00022  1 Cl 
5AIIO  0 


056U  I 
1257A  1 
25773  0 

75777  1 

20000  0 

75775  0 
02752  0 
20000  0 

72065  1 
00002  0 

000A6  0 

32000  0 


06*21^0 

06*2150 

06*2160 

06*2170 


5A1A7  1 
10000  0 
lOOOO  0 
65355  1 


32005  0 
122A6  I 

12230  0 
10000  0 


5Ail3  0 301AA  0 75370  1 lOOOO  0 12157  1 lOlAA  1 
35656  1 0553A  0 Cl  05605  1 Cl  0A003  0 02005  0 777AA  0 
00006  1 501A5  I 31517  0 52112  1 3OUA  0 77757  1 
12331  0 Ci  37776  0 12176  I 12243  1 32004  1 54110  0 


06,2200 

5OI45 

1 

31114 

1 

10000 

0 

24.000 

1 

12207 

1 

14064 

0 

1 2226 

1 

4OOOO 

0 

06*2210 

54OOI 

1 

50145 

1 

41113 

1 

00006 

1 

60025 

0 

10000 

0 

4,0000 

0 

62173 

0 

06*2220 

67755 

1 

60001 

0 

10000 

0 

37761 

0 

12226 

1 

12226 

1 

67755 

1 

00110 

1 

06,2230 

32005 

0 

54147 

1 

32001 

1 

54113 

0 

30144 

0 

76130 

1 

54144 

1 

00006 

1 

06*2240 

06*2250 

06*2260 

06*2270 


5OI45  1 
12251  1 
62117  1 
12343  0 


315I7  0 
12347  1 

54146  0 
24OOO  1 


52112  1 
32005  0 
00006  1 
54111  1 


50145  1 

54113  0 

50146  1 
32004  1 


31114  1 

30144  0 

32002  1 
54110  0 


00110  1 
54021  0 
22112  0 
30112  0 


54020  1 
60021  1 
lOOOO  0 

77744  0 


10020  1 
5OI45  I 

24000  1 
lOOOO  0 


06*2300 

12336  1 

50146  1 

32000  0 

14073  0 

53153  0 

00006  1 

4OO25  1 

06*2310 

00006  1 

31433  1 

21153  0 

11152  1 

12324  1 

12317  1 

12223  1 

06*2320 

12324  1 

12322  1 

12223  1 

12226  1 

32002  1 

54IIO  0 

00006  1 

06*2330 

00110  1 

32004  1 

54110  0 

5OI45  1 

31114  1 

I4O73  0 

4OII2  1 

21153  0 
11153  G 
31153  1 
54112  1 


06*2340 

50146  1 

32000  0 

12202  1 

56111  0 

50146  1 

32000  0 

OOllO  1 

3OI47 

0 

06*2350 

64113  0 

50145  1 

32116  0 

60144  0 

60144  0 

60144  0 

54146  0 

12262 

1 

06*2360 

06,2370 

36301  0 
60000  1 

26146  0 
54061  1 

32005  0 
30065  1 

54113  Q 

74227  0 

12262  1 
00006  1 

22073  0 

77742  0 

30065  1 
54062  1 

77757 

1 

1 

30065 
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Octal  listing  of  paragraph  # osi.  wIth  rarity  bit  in  binary  at  the  right  of  each  word;  denotes  uNused  fIxed  memory. 

ALL  VALID  WORDS  ARe  BASIC  INSTRUCTIONS  eK'-EPT  THOSe  MAR<eO  "I"  ( INTeRPPETI Ve  OPeRAtOR  WORDS)  OR  "C"  (CONSTANTS). 


06.2400 

72436 

0 

56065 

1 

75656 

0 

10000 

0 

14163 

0 

30062 

0 

50061 

0 

55076 

0 

10066 

12425 

40072 

22O72 

5OO7I 

10066 

06.2410 

0 

1 

12413 

1 

0 

1 

1 

53076 

0 

u 

06.2420 

12421 

0 

12425 

1 

40025 

1 

50071 

1 

55111 

0 

10065 

0 

12441 

0 

12444 

0 

06.2430 

40025 

1 

50061 

0 

55111 

0 

30065 

1 

62437 

0 

10000 

0 

Ci 

60000 

1 

C; 

17777 

0 

06.2440 

12444 

0 

00006 

1 

30025 

0 

53433 

0 

40062 

1 

5OO6I 

0 

55075 

0 

30002 

0 

06.2450 

22073 

0 

00003 

1 

52006 

0 

22073 

0 

30062 

0 

50061 

0 

55076 

0 

30070 

0 

06.2460 

50061 

0 

55112 

0 

00006 

1 

30064 

0 

50061 

0 

53515 

0 

12410 

1 

04633 

0 

06.2470 

32543 

1 

10000 

0 

54146 

0 

32546 

1 

04646 

1 

24146 

1 

32544 

0 

04646 

1 

06.2500 

04464 

0 

O25O4 

1 

02503 

0 

02473 

0 

32545 

1 

04646 

1 

04464 

0 

0560a 

0 

06.2510 

02513 

1 

30337 

0 

O247I 

1 

32547 

0 

04646 

1 

00004 

0 

37754 

0 

05701 

1 

06.2520 

C: 

02554 

1 

C; 

14004 

0 

37755 

1 

05701 

1 

Ci 

02707 

0 

Ci 

14004 

0 

36301 

0 

05701 

1 

06.2530 

c; 

03004 

0 

c: 

I4OO4 

0 

37753 

1 

O57OI 

1 

C! 

03124 

0 

CI 

I4OO4 

0 

37760 

1 

O57OI 

1 

06*2540 

c: 

03212 

0 

CJ 

14004 

0 

05604 

0 

Ci 

02007 

1 

Ci 

O2IO2 

0 

CI 

02130 

1 

Cl 

00401 

1 

Cl 

04700 

1 

06.2550 

11407 

1 

02553 

0 

O5745 

1 

,55407 

1 

51407 

0 

11410 

1 

02560 

0 

02550 

0 

06.2560 

51407 

0 

31420 

0 

O57OI 

1 

Ci 

02577 

0 

Ci 

14004 

0 

05745 

1 

37761 

0 

00006 

1 

1 

01006 

51407 

11410 

1 

A 

f c / 1 

51407 

y 

U6  * 2570 

0 i UUp 

0 

UUUvo 

i 

V 

u 

i 

51407 

u 

55410 

1 

06*2600 

11410 

1 

02603 

0 

02550 

0 

51407 

0 

31430 

1 

05701 

1 

CI 

02611 

0 

C: 

14004 

0 

06.2610 

057A5 

1 

51407 

0 

31440 

0 

55401 

1 

51407 

0 

31450 

1 

55402 

1 

00006 

1 

06.2620 

00032 

0 

40000 

0 

55403 

0 

37757 

0 

55404 

1 

31403 

1 

51404 

0 

77746 

1 

06.2630 

10000 

0 

02650 

0 

11404 

1 

02624 

0 

31401 

0 

00006 

1 

01005 

0 

31402 

0 

06 . 26A0 

00006 

1 

01006 

0 

51407 

0 

31460 

1 

05701 

1 

Ci 

02566 

0 

C" 

14004 

0 

057A5 

1 

06.2650 

51404 

0 

42673 

0 

71401 

1 

55401 

1 

51404 

0 

42663 

1 

71402 

1 

55402 

1 

06.2660 

04744 

1 

C! 

01410 

0 

02632 

1 

Ci 

00010 

0 

Ci 

00020 

0 

CI 

00004 

0 

Ci 

00200 

0 

Ci 

OOOOl 

0 

06.2670 

C; 

00002 

0 

Ci 

00040 

0 

C!  00100 

0 

Ci 

00040 

0 

Ci 

00020 

0 

CI 

OOlOO 

0 

Cl 

00200 

0 

Ci 

00010 

0 

06*2700 

Ci 

OOOOl 

0 

C; 

00004 

0 

Ci  00002 

0 

11470 

1 

02706 

1 

05745 

1 

55470 

1 

51470 

0 

06.2710 

11471 

0 

02713 

0 

02703 

1 

51470 

0 

31474 

1 

05701 

1 

Cl 

02737 

0 

Cl 

14004 

0 

06.2720 

05745 

1 

45226 

0 

00006 

1 

02011 

0 

67740 

0 

00006 

1 

01011 

0 

51470 

0 

06.2730 

11471 

0 

10000 

0 

02734 

0 

02703 

1 

67755 

1 

51470 

0 

5547I 

0 

5I47O 

0 

06.2740 

31502 

1 

55406 

0 

51470 

0 

31477 

1 

O57OI 

1 

CI 

02750 

1 

Cl 

14004 

0 

05745 

1 

06.2750 

45226 

0 

00006 

1 

02011 

0 

577AI 

1 

00006 

1 

01011 

0 

1 1406 

0 

02766 

1 

06.2760 

51470 

0 

31505 

0 

05701 

1 

Ci 

02721 

1 

CI 

14004 

0 

05745 

1 

11406 

0 

02771 

1 

06,2770 

02756 

1 

55406 

0 

32777 

1 

05701 

1 

CI 

02766 

1 

CI 

14004 

0 

05745 

1 

Ci 

27340 

0 
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octal  listing  Oh  PARAGRAPH  0 052»  WItH'  RA^ItY  BIT  IN  BINARY  AT  THe  RIGHT  OF  EACH  WORD;  "en  DeNOtES  UNUSeD  FIXeD  MEMORY, 
ALL  VALID  WORDS  ARe  BASIC  INSTRUCTIONS  E^^ePT  THOSe  MARKrD  "I"  ( I NTeRPRET I Ve  OPERATOR  WORDS)  OR  "C"  (CONSTANTS). 


06,3000 

06,3010 

06,3020 

06,3030 


115IC  0 03003  1 
S151C  1 31525  I 
03012  1 51510  1 

55511  1 51510  1 


057A5  1 55510  0 

O57OI  1 C:  03031  0 

11511  1 10000  0 

315A1  0 O57OI  1 


51510  1 11511  1 

Cj  I4OOA  0 057A5  1 

03026  0 O3OOO  1 

Ci  03037  0 C:  UOOA  0 


03010  0 03000  1 
A3115  0 00006  1 
67755  1 51510  1 
057A5  1 3311A  0 


06,30a0  00006  1 06032  0 
06,3050  C:  UOOA  0 057A5  1 
06,3060  31555  0 O57OI  1 
06,3070  33116  1 0A6A6  1 

06,3100  OOOOA  0 3775A  0 
06,3110  05701  1 Ci  03052  0 
06,3120  11605  1 03123  1 
06,3130  51605  0 3l6lA  0 


7311A  1 00006  1 I3O52  1 

51510  1 31571  0 73115  0 

C»  03016  0 Ci  lAOOA  0 057A5  1 

33117  0 0A6A6  1 0A611  0 

O57OI  1 Ci  03037  0 Ci  UOOA  0 

Cl  lAOOA  0 0560<',  0 Ci  OlAOO  1 

057A5  1 55605  1 51605  0 

O57OI  1 Ci  03156  0 Ci  lAOOA  0 


3567A  1 05523  0 Ci  03065  1 

00006  1 n50l2  1 5I5IO  1 

0A633  0 3311A  0 5A337  1 

0AA6A  0 0560A  0 03106  0 

0560A  0 OOOOA  0 3775A  0 

Ci  O7AOO  1 Ci  00125  1 Ci  O5OOO  1 
11606  1 03130  0 03120  1 

05745  1 5I6O5  0 31636  y 


06,3i4o  03174  0 67755  1 05701  1 Ci  03iA6  1 Ci  14004  0 05745  1 
06,3150  10000  0 03153  0 03120  1 67755  1 51605  0 55606  1 
06,3160  05701  1 Ci  03164  I Ci  UOOA  0 05745  1 51605  0 31630  0 
06,3170  O57OI  1 Ci  03136  0 d U004  0 05745  1 54055  0 55405  0 


51605  0 11606  1 
5I6O5  0 31622  0 
03174  0 63211  0 
37752  0 00006  1 


06,3200 

06,3210 

06,3220 


05014  1 

31405  1 

00006  1 

63205  0 

40000  0 

40000  0 

00006  1 

77744  0 

00002  0 

C;  00031  0 

11654  0 

03215  1 

05745  1 

36301  0 

55655  1 

51655  0 

3164A  0 

00006  1 

51655  0 

02030  0 

51655  0 

5764A  0 

51655  0 

31650  0 

06,3230 


00006  1 51655  0 0A030  0 51655  0 57650  0 11655  1 03216  1 34557  T 


06,32A0 

O57OI  1 

Ci  03212  0 

Ci  UOOA  0 

05745  1 

Ci  032AA  0 

Ci  03245  1 

CkSM  43535  0 

06,3250 

g 

g 

g 

g 

g 

g 

g 

06 ,3260 

g 

g 

g 

g 

g 

g 

06,3270 

g 

g 

g 

g 

g 

g 

e 

e 

e 

e 


06,3300 

06,3310  egeeeeee 

06,3320 


06,3330 

06,3340  g e g g g g g e 

06,3350  gggggggg 

06,3360  gggggggg 

06,3370  gggggggg 
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octal  listing  of  Paragraph  * osAt  with,  parity  bit  in  binary  aT  the  right  qf  Each  wqrd!  "e"  denotes  unused  fixed  memory. 

ALL  VALID  WORDS  ARe  BASIC  INSTRUCTIONS  E^^-EPT  THOSe  MARKe^  "I"  ( I NTeRP^ET I Ve  OPeRAtOR  WORDS)  OR  "C"  (CONSTANTS). 


07*2000 

ooooa 

0 

00006 

1 

32047 

0 

53075 

0 

00006 

1 

32045 

1 

53073 

0 

32050 

0 

07,2010 

55322 

1 

06071 

1 

42051 

0 

00006 

1 

03012 

1 

00004 

0 

37761 

0 

55100 

0 

07,2020 

55102 

1 

55104 

1 

55106 

0 

55112 

0 

40000 

0 

55077 

1 

55101 

1 

55103 

0 

07,2030 

55105 

0 

55111 

0 

55176 

1 

55175 

1 

55174 

0 

55173 

1 

55167 

1 

55I7O 

1 

07,2040 

55171 

0 

55172 

0 

05243 

1 

Cl 

02145 

0 

Cl 

02312 

0 

Cl 

60063 

1 

CI 

02052 

1 

Cl  16003 

0 

07*2050 

Ci 

02156 

1 

Ci 

07400 

1 

06036 

1 

Cl 

00001 

0 

15605 

0 

25360 

0 

04744 

1 

Cl  00316 

0 

07,2060 

12000 

1 

04621 

0 

05605 

1 

04633 

0 

32067 

1 

04646 

1 

05604 

0 

C;  00550 

1 

07,2070 

04744 

1 

Ci 

00312 

1 

14737 

1 

53631 

0 

06103 

0 

1 1 

77624 

1 

Cl 

16267 

0 

II  77775 

1 

07*2100 

c: 

16175 

0 

c: 

02015 

1 

c! 

O2O23 

1 

CI 

O2OA5 

1 

1 1 

66370 

0 

CI 

00014 

1 

Cl 

noo5i 

0 

C:  00006 

1 

07*2110 

l! 

73773 

0 

Cl 

01025 

1 

Cl 

16217 

1 

II 

72505 

1 

C| 

01275 

0 

Cl 

06015 

0 

C| 

06045 

0 

II  77500 

1 

07*2120 

C! 

16110 

0 

00006 

1 

31321 

0 

53447 

0 

02245 

0 

53631 

0 

52006 

0 

Cl  02400 

1 

07*2130 

I ; 

77776 

1 

06103 

0 

I > 

40145 

0 

Cl 

02167 

0 

Cl 

16135 

1 

1 1 

47O25 

0 

CI 

02047 

0 

Cl  33565 

1 

07*2140 

1 : 

56261 

1 

Ci 

2O2IA 

1 

CI 

17703 

0 

Cl 

02163 

1 

1 1 

51400 

1 

Cl 

16156 

1 

1 1 

50025 

0 

Cl  16205 

1 

07*2150 

C; 

16317 

0 

1 1 

A5215 

0 

c; 

16205 

1 

C| 

16213 

0 

1 1 

77640 

0 

C; 

17376 

0 

II 

75345 

1 

C;  16213 

0 

07*2160 

C! 

02163 

1 

Cl 

36163 

0 

ci 

17376 

0 

Cl 

00016 

0 

Cl 

00004 

0 

CI 

00022 

1 

Cl 

00000 

1 

Cl  05360 

1 

07*2170 

c: 

00001 

0 

Ci 

24570 

0 

CI 

00000 

1 

Cl 

00310 

0 

Cl 

00000 

1 

CI 

00000 

1 

Cl 

00000 

1 

Cl  00000 

1 

07*2200 

c: 

00000 

1 

Cl 

00000 

1 

cl 

2030A 

1 

Cl 

23351 

1 

Cl 

00000 

1 

CI 

17565 

1 

CI 

37200 

1 

Cl  00000 

1 

07*2210 

C; 

24605 

1 

C| 

15301 

1 

C! 

12317 

1 

C| 

00451 

1 

d 

30523 

0 

Ci 

00147 

0 

00006 

1 

30025 

0 

07*2220 

53567 

0 

06027 

1 

ci 

00100 

0 

02256 

1 

06103 

0 

I! 

45345 

1 

Cl 

02167 

0 

Cl  02047 

0 

07,2230 

I i 

45240 

0 

Cl 

16243 

0 

CI 

I6I7I 

1 

1 1 

66240 

1 

Cl 

16243 

0 

Cl 

02201 

0 

Cl 

77776 

1 

II  77624 

1 

07*22^0 

C! 

16267 

0 

II 

77650 

1 

CI 

16130 

1 

II 

77776 

1 

12^74 

0 

32333 

0 

55605 

1 

51605 

0 

07,2250 

31400 

1 

5I6O5 

0 

55222 

0 

II6O5 

1 

12246 

1 

00002 

0 

32333 

0 

55605 

1 

07,2260 

5I6O5 

0 

31222 

1 

51605 

0 

55400 

0 

11605 

1 

12257 

1 

00002 

0 

II  66331 

0 

07*2270 

c* 

02230 

1 

Cj 

17671 

1 

C! 

02205 

1 

C; 

16130 

1 

1 1 

43014 

0 

Ci 

00262 

1 

Ci 

00263 

0 

I;  43414 

1 

07*2300 

C! 

00260 

0 

53631 

0 

37755 

1 

12306 

1 

53631 

0 

37762 

0 

55600 

1 

06027 

1 

07*2310 

C: 

COlOO 

0 

02256 

1 

06103 

0 

I 1 

77624 

1 

Cl 

16267 

0 

1 1 

77650 

1 

CI 

16130 

1 

II  77776 

1 

07,2320 

11600 

1 

12324 

1 

12324 

1 

12427 

0 

06103 

0 

1 1 

77624 

1 

Cl 

17A26 

1 

II  77776 

1 

07,2330 

11600 

1 

12403 

0 

12364 

0 

Cl 

00051 

0 

12335 

1 

06103 

0 

1 1 

66370 

0 

Cl  00014 

1 

07*23A0 

C: 

00051 

0 

Cl 

00006 

1 

II 

73773 

0 

Cl 

02015 

1 

Cl 

15223 

0 

1 1 

76521 

0 

Cl 

01275 

0 

Ci  06131 

1 

07*2350 

I ; 

71300 

1 

C| 

16342 

0 

CI 

02167 

0 

C| 

01321 

0 

Cl 

02111 

1 

ll 

77615 

0 

C| 

16167 

0 

Cl  02167 

0 

07*2360 

I ; 

52131 

0 

Cl 

02201 

0 

d 

00000 

1 

Cl 

16130 

1 

06103 

0 

1 1 

74375 

0 

Cl 

02001 

1 

Cl  16207 

0 

07*2370 

1 ; 

76521 

0 

Cl 

01275 

0 

CI 

16131 

0 

Cl 

02167 

0 

1 1 

77615 

0 

CI 

I6I73 

0 

Cl 

02167 

0 

II  52131 

0 

PAGEU34 


A8895AA  YJL  SVSTEM  pOR  AGCi  NEW  PROGRAM  sHEPATiN  BY  EYlEs 


DEc  13*  1966 


octal  listing  of  PARAGRAPH  # 055»  WItHi  RARItY  BIT  IN  BINARY  At  THe  RIGHT  OF  EACH  WORD?  "S"  DeNOtES  UNUSED  FIXeO 

All  vAlIo  wor^s  are  basic  instructions  except  those  marxeo  "I"  (INTERPRETIVE  Operator  worqS)  or  "c"  (constants) 


07*2400 

Cl 

02201 

0 

07*2410 

Cl 

COO5I 

0 

07,2420 

I! 

77500 

1 

07,2430 

06103 

0 

07*2AAo 

Cl 

01261 

0 

07*2450 

Cl 

16223 

0 

07*2460 

37756 

00006 

1 

O7 ,2470 

1 

C!  00001  0 Ci  16130  1 

CJ  00006  1 I*  73773  0 

CS  16A12  1 00006  1 

II  AO575  I c?  01237  0 

Cl  02007  1 I»  66370  0 

I:  76521  0 Cl  01275  0 

5A070  1 50070  0 

31271  1 533A1  1 


060A5  0 Cl  00100  0 
Cl  02015  1 C!  16223  0 I 

3KA7  1 53670  0 

I!  53342  1 Cl  01253  1 C 

Cl  OOOlA  1 CI  0005l  0 C 

C;  06015  0 I;  77700  0 C 

31400  1 50070  0 

00003  1 06045  0 C 


06103  0 I i t6370  0 C 

76521  0 CI  01275  0 C 

53631  0 52006  0 

26001  1 Cl  01245  0 I 

00006  1 II  73773  0 C 

16446  0 li  77776  1 

55010  0 10070  1 

00100  0 05605  1 I 


07,2500 

C 

I 

1 

I 

02165 

1 

11 

43262 

0 

0 

1 

1 

07,2510 

07*2520 

77615 

77715 

0 

1 

1 

C 1 

Cl 

f'  . 

02047 

02007 

O7 ,2530 

56215 

^ 1 

17630 

07*2540 

I 

50256 

0 

Cl 

02037 

1 

07*2550 

c 

02155 

1 

Cl 

00012 

1 

07,2560 

I 

57275 

0 

Cl 

00021 

1 

07*2570 

I 

57221 

1 

Cl 

17656 

1 

07*2600 

c 

OOOOl 

0 

Cl 

02051 

1 

07*2610 

I 

42405 

0 

Cl 

02051 

1 

07*2620 

c 

00011 

1 

Cl 

02051 

1 

07,2630 

I 

74405 

0 

Cl 

00015 

0 

07*26A0 

c 

O2I61 

0 

Ci 

OOO2 1 

1 

07*2650 

c 

I 

16653 

0 

1 1 

77650 

1 

0 

O7  * 2660 

46405 

1 

Cl 

000 1 5 

07*2670 

c 

OOOO7 

0 

Cl 

00021 

1 

Cl 

r'  ! 

02045 

1 

Cl 

1 1 

I6l6l 

40375 

0 

1 

CI 

c • 

02047 

0 

CI 

n 

61436 

00007 

1 

1 1 

1 1 

45205 

1 

CI 

C 1 

0 

50315 

0 

C I 

I ! 

77725 

1 

Cl 

00045 

0 

Cl 

n 

56325 

0 

Cl 

17630 

1 

CI 

ci 

17632 

0 

1 1 

52452 

0 

1 1 

n 

45221 

1 

Cl 

17656 

1 

1 1 

II 

61516 

1 

1 1 

66405 

0 

Cl 

II 

72405 

0 

C| 

02051 

1 

1 1 

II 

42405 

0 

Cl 

00021 

1 

1 1 

i.i 

77615 

0 

1 1 

57325 

1 

CI 

1 1 

77776 

1 

06103 

0 

1 1 

Cl 

16764 

0 

II 

41345 

0 

Ci 

Cl 

14023 

0 

Cl 

00026 

0 

1 1 

1 1 

4327I 

1 

Cl 

00023 

0 

CI 

17703 

0 

I! 

54205 

02001 

1 

C! 

OOOOl 

00007 

0 

CI 

17630 

02001 

1 

Ci 

02007 

16155 

1 

C! 

02163 

02155 

1 

I 1 

57225 

57325 

1 

CI 

00017 

76A05 

1 

1 1 

66215 

00013 

0 

1! 

45001 

76A05 

1 

Cl 

02051 

41352 

0 

Cl 

O2O5I 

00007 

0 

CI 

02051 

452^6 

0 

Cl 

IY622 

00013 

0 

Ci 

00030 

76A05 

1 

C I 

00011 

02051 

1 

CI 

36051 

1 Cl  02163  1 C 

0 I I 65256  0 C 

1 II  41532  0 I 

1 li  63306  1 C 

1 II  5A442  1 I 

0 Cl  00013  0 C 

1 CI  00021  1 I 

1 CI  O2051  1 C 

1 Cl  00021  1 C 

1 C:  00030  1 I 

1 II  77732  1 C 

1 II  77615  0 I 

1 II  61040  1 C 

1 I I 44332  0 C 

1 l;  77615  0 I 

0 Ci  16602  1 C 


07*2700 

I! 

63434 

1 

Cl  16726 

0 

II 

Ai506 

1 

Ci  00045 

0 

I 1 

76405 

1 

07*2710 

Cl 

00045 

0 

l!  64525 

1 

I 1 

47125 

1 

Ci  00043 

0 

Ci 

167A5 

0 

07*2720 

CI 

00045 

0 

II  57221 

1 

Cl 

17634 

0 

II  43415 

0 

CI 

74631 

0 

07*2730 

Cl 

26501 

1 

Cl  07463 

1 

Cl 

6O724 

0 

Cl  60210 

1 

CI 

03010 

0 

00043  0 I I 57221  1 C 
61516  1 I|  57325  1 C 
63145  1 07265  1 C 
26256  1 Cl  7755A  0 C 


07*27A0 

Cl 

00010 

0 

CI 

05475 

1 

07*2750 

Ci 

17270 

1 

Ci 

65431 

1 

07*2760 

Cl 

21652 

0 

CI 

77777 

0 

07*2770 

CI 

OOOOl 

0 

1 1 

45325 

1 

Cl 

77777 

0 

Cl 

66460 

0 

06115 

Cl 

4017A 

1 

Ci 

01710 

0 

Cl 

10660 

cl 

71323 

0 

06115 

1 

I I 

40345 

cl 

00023 

0 

Cl 

00030 

1 

I 1 

7A312 

1 07265  1 Cl  00004  0 C 

0 C|  77676  0 Cl  52270  0 C 

1 CI  00026  0 Cl  00032  0 I 

1 CI  02007  1 II  76455  1 I 


memory. 


00014  1 
! 06015  0 
02245  0 
: 53202  1 

I 02015  1 
00004  0 
12461  1 
: 5O545  0 

I 21615  0 
I 00045  0 

• 57502  1 
I 02031  1 

1 77071  1 
I 00021  1 
1 41412  0 
I 00052  0 

I 16677  0 
: 65275  1 

I 00026  0 
I 4A206  0 

: 16764  0 

• 02051  1 
I 65215  1 
1 00043  0 

: 17630  1 
. 00043  0 
I 00004  0 
: 74242  0 


; 32101  0 
: 00004  0 
I 7A276  1 
: 53206  0 
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07,3000 

CS 

02001 

1 

I i 

A5A55 

1 

Ci 

757A6 

0 

I i 

77646 

0 

Ci 

14021 

1 

Cl  00013 

0 

1 1 

66405 

0 

Ci 

00030 

1 

07,3010 

li 

56225 

1 

Ci 

02051 

1 

Ci 

00021 

1 

I! 

72561 

0 

Cl 

00001 

0 

II  70525 

1 

Ci 

00021 

1 

I : 

56225 

1 

07,3020 

c: 

00026 

0 

Ci 

00021 

1 

I i 

53361 

0 

Cl 

02007 

1 

I i 

77772 

0 

Ci  36037 

0 

Cl 

02I7I 

1 

I : 

77331 

0 

07,3030 

c: 

O22O7 

0 

Ci 

0000a 

0 

Ci 

02053 

0 

II 

53261 

1 

Cl 

20613 

1 

Cl  02031 

1 

1 1 

43154 

0 

c: 

02205 

1 

07,30A0 

c: 

CO3A0 

0 

Ci 

170A3 

0 

ci 

12111 

0 

1 1 

66331 

0 

Ci 

02210 

0 

Cl  OOO16 

0 

Ci 

02173 

0 

Ci 

OOOO2 

0 

07,3050 

C: 

C2061 

1 

li 

53575 

0 

Cl 

02053 

0 

Ci 

16053 

0 

Cl 

00045 

0 

ci  02155 

1 

I i 

77600 

1 

Cl 

17060 

1 

07,3060 

1: 

7A575 

0 

Ci 

02061 

1 

1 1 

A0236 

1 

Cl 

00001 

0 

I i 

61501 

1 

Ci  00051 

0 

1 1 

60325 

0 

C: 

02155 

1 

07,3070 

Ci 

OOOA7 

1 

I i 

633A2 

1 

cl 

02061 

1 

1 i 

77656 

1 

Cl 

16061 

1 

Ci  00045 

0 

Cl 

02157 

0 

I : 

55301 

0 

07,3iOO 

C! 

00050 

r 

I ! 

Ai562 

0 

15 

57lAA 

1 

Cl 

00047 

1 

Cl 

O22O6 

1 

li  55074 

1 

Ci 

00046 

0 

C: 

02207 

0 

07,3110 

1 ; 

537U 

0 

Ci 

00002 

0 

Cl 

57176 

0 

1 i 

64406 

1 

I ! 

50315 

0 

Ci  02053 

0 

Cl 

02061 

1 

I : 

44372 

1 

07,3120 

I : 

57206 

1 

Ci 

OOOO5 

1 

li 

43206 

1 

Cl 

17630 

1 

1 1 

75406 

1 

II  41475 

1 

Cl 

00013 

0 

I i 

43352 

1 

07,3130 

Ci 

17630 

1 

l! 

A3325 

1 

Ci 

00013 

0 

Cl 

17656 

1 

I i 

72475 

1 

Ci  00011 

1 

1 1 

56215 

1 

Cl 

17624 

1 

07,31^0 

Ci 

00017 

1 

I i 

7A275 

1 

ci 

00007 

0 

Cl 

02061 

1 

I i 

645l5 

1 

Cl  02053 

0 

I i 

41455 

0 

I ! 

41345 

0 

07,3150 

Ci 

00001 

0 

Ci 

00015 

0 

I i 

61501 

1 

Ci 

00052 

0 

1 1 

70065 

0 

C|  00003 

1 

Cl 

00047 

1 

I i 

56070 

0 

07,3160 

Ci 

00051 

0 

Ci 

00050 

1 

1 1 

56070 

0 

Cl 

02207 

0 

Cl 

02207 

0 

II  74276 

1 

Ci 

00021 

1 

1 1 

73206 

1 

r f 

17172 

0 

Cl 

I7I75 

1 

20240 

26103 

1 

U7 , 3 1 70 

v»  • 

02173 

0 

c • 

17243 

1 

w f 

17224 

0 

i 

1,  77657 

0 

C 1 

u 

C ! 

i 

07,3200 

Ci 

O2O61 

1 

Ci 

16053 

0 

cl 

02157 

0 

Cl 

02155 

1 

I ! 

45014 

0 

Cl  00342 

1 

Cl 

17250 

0 

Ci 

17663 

1 

07,3210 

Ci 

02061 

1 

I; 

A3150 

1 

C! 

02205 

1 

Ci 

00340 

0 

Cl 

17216 

1 

Ci  06117 

0 

I i 

65174 

0 

C; 

00023 

0 

07,3220 

Ci 

02207 

0 

I! 

5213A 

0 

Cl 

02206 

1 

Cl 

17060 

1 

I i 

45144 

1 

Cl  02227 

1 

Cl 

17362 

0 

I i 

77624 

1 

07,3230 

Ci 

17665 

1 

li 

76750 

1 

cl 

02205 

1 

Ci 

02117 

1 

I ! 

53357 

0 

Ci  77770 

1 

1 1 

66I7O 

1 

Ci 

00034 

0 

07,32^0 

Ci 

O22O7 

0 

Ci 

36061 

0 

Ci 

17060 

1 

II 

63  144 

0 

Cl 

02227 

1 

Ci  77774 

0 

I i 

77624 

1 

Ci 

17362 

0 

07,3250 

li 

7761A 

1 

Ci 

00303 

1 

Ci 

17350 

1 

I i 

77745 

1 

Cl 

02057 

1 

li  57201 

0 

Cl 

00001 

0 

Ci 

17640 

0 

07,3260 

I i 

63525 

0 

Ci 

02057 

1 

I i 

57252 

0 

Cl 

17636 

1 

I i 

41425 

1 

Cl  17624 

1 

1 1 

57275 

0 

Ci 

02057 

1 

07,3270 

Ci 

176AA 

1 

I i 

65352 

0 

c! 

00001 

0 

1 1 

44275 

1 

Cl 

17662 

0 

11  57206 

1 

Cl 

02057 

1 

I i 

65275 

1 

07,3300 

Ci 

176A6 

0 

Ci 

00003 

1 

1 1 

44275 

1 

Cl 

17650 

1 

1 1 

62405 

1 

Ci  17654 

0 

1 1 

43271 

1 

Ci 

02155 

1 

07,3310 

Ci 

00005 

1 

I i 

56275 

1 

Cl 

17652 

0 

Ci 

02155 

1 

1 1 

74215 

1 

Ci  00003 

1 

Cl 

02053 

0 

Cl 

16053 

0 

07,3320 

I i 

72A05 

0 

c: 

1765A 

0 

li 

43271 

1 

Ci 

02155 

1 

I ! 

50525 

0 

Cl  17652 

0 

I i 

77675 

0 

1 i 

43271 

1 

07,3330 

Ci 

02155 

1 

I i 

77621 

1 

ci 

02057 

1 

Cl 

16057 

1 

Cl 

02155 

1 

II  63516 

0 

1 1 

55301 

0 

C: 

00047 

1 

07, 33^,0 

Ci 

176A2 

1 

li 

62161 

0 

Ci 

02053 

0 

Cl 

00004 

0 

II 

53257 

1 

Ci  20201 

0 

Ci 

02103 

1 

Ci 

02103 

1 

07,3350 

li 

72135 

0 

Ci 

02206 

1 

Cl 

00144 

0 

1 1 

73205 

1 

Ci 

16725 

0 

C|  00145 

1 

C| 

17357 

0 

c- 

17454 

1 

07,3360 

Ci 

I7A6O 

0 

Ci 

17A71 

0 

I 5 

77743 

1 

Cl 

77776 

1 

Cl 

24051 

0 

Cl  00027 

1 

1 1 

73670 

1 

C: 

00050 

1 

07,3370 

Ci 

77775 

1 

li 

53257 

1 

Ci 

20240 

0 

Cl 

02103 

1 

Cl 

02103 

1 

I!  77616 

0 

1 1 

77775 

1 

Ci 

02023 

1 
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07,3400 

Ci 
1 i 
Ci 
I i 

26222 

1 

Ci 

07,3410 

07,3420 

07,3430 

66331 

02214 

53342 

0 

1 

1 

C i 
Ci 
Ci 

07.3440 

li 

66370 

0 

Ci 

07.3450 

Ci 
I i 

06230 

fA575 

0 

Ci 

O7 , 3460 

0 

C i 

O7.347O 

Ci 

*7563 

1 

li 

02015  I C5  022U  1 I) 
O2I7I  1 CJ  16A77  1 C: 
16053  0 Ci  17660  1 C: 
02031  I Ci  02001  1 C5 

oooiA  I Ci  oooSi  0 c: 

06031  0 I!  A3500  0 C; 
02103  1 li  53206  0 C; 
573A5  1 Ci  02165  1 C: 


A5246  0 C:  17656  1 
02172  1 C!  I7O27  1 
02165  1 C:  36206  0 

26031  1 c:  02023  1 

OOOO2  0 c:  16037  1 
17A50  0 1 5 6A575  1 
02067  1 CS  26075  1 
17662  0 I : 7A206  0 


I ; A5OAO  1 
1:  776IA  1 
c;  O2I7I  1 
li  53202  1 

C!  17660  1 
Cj  02103  1 
li  53362  0 

Ci  02067  1 


Ci  I7AIO  1 
Ci  00261  1 
li  AO575  1 
Ci  02037  1 

Ci  020A5  1 
Ci  36067  0 
Ci  02067  1 
li  53372  1 


C:  17A26 
l!  77775 
Ci  02015 
C:  02007 

Ci  02051 
Ci  17563 
Ci  36067 
C;  02222 


1 

1 

1 

I 

1 

1 

0 

1 


07.3500 

I i 

53361 

0 

Ci 

02165 

1 

Cl 

0221^ 

1 

Ci  262IA 

1 

Ci 

02103 

1 

I i 

53322 

1 

07.3510 

I i 

43055 

0 

Ci 

02222 

1 

Ci 

00341 

1 

Ci  17533 

1 

I i 

77770 

1 

Ci 

00000 

1 

O7.352O 

Ci 

02214 

1 

Ci 

12275 

1 

li 

52104 

0 

Ci  17525 

0 

Ci 

02204 

0 

1 i 

77773 

1 

07,3530 

Ci 

75436 

1 

Ci 

36222 

0 

C.l 

I7AI7 

0 

Ci  26023 

1 

C! 

02214 

1 

Ci 

16015 

1 

02075  1 
123AI  1 
75502  1 
02165  1 


li  76561  1 
I:  777A5  I 
Ci  322U  1 
I i 6AA02  0 


07.35A0  li 
07.3550  Ci 
07.3560  Ci 
07,3570  Ci 


77615  0 Ci  O2OA5  1 Ci  020A5  1 li  770lA  1 Ci  003A0  0 Ci  0220A  0 Ci 
00052  0 Ci  00006  1 Ci  17603  1 li  66130  0 Ci  02170  0 Ci  02171  1 li 
00000  1 l!  77650  1 C?  17525  0 li  A33A5  1 Ci  02l63  1 Ci  02165  1 li 
02205  1 Ci  02165  1 I«  7A561  0 Ci  02103  1 I!  7A255  0 Ci  02222  1 Ci 


OOOAA  1 
76OIA  0 
66110  1 
02165  1 


li  76i3l  0 
C:  00161  1 
Ci  77763  0 
li  77655  1 


07.3600 

Ci 

0221A 

1 

Ci 

36053 

1 

07.3610 

Ci 

02053 

0 

li 

52361 

1 

07.3620 

Ci 

17350 

1 

Ci 

00000 

1 

Ci  02170  0 li  50575  0 Ci  02053  0 
Ci  17626  0 li  A1325  0 Ci  00043  0 
Ci  00002  0 Ci  14000  1 Ci  00000  1 


li  53513  0 Ci  02111  1 li  A63l5  1 
Ci  00045  0 li  45541  0 Ci  4l67A  I 
Ci  06000  1 Ci  00000  1 Ci  lOOOO  0 


07.3630  Ci  00000  1 Ci  12525  0 Ci  12525  0 Ci  02000  0 Ci  00000  1 Ci  36000  1 Ci  00000  1 Ci  30000  I 


07.36A0  Ci  00000  1 Ci  12577  1 
07.3650  Ci  00000  1 Ci  77711  0 
07,3660  Ci  00000  1 Ci  25252  0 
07,3670  li  77616  0 Ci  00006  1 


Ci  24106  0 Ci  22525  0 Ci  12525  0 
Ci  71033  1 Ci  23377  0 Ci  06703  0 
Cl  25253  1 li  43575  1 Ci  17672  1 
Cl  00000  1 Ci  00000  1 Ci  00012  1 


Ci 

22000 

1 

Ci 

noooo 

1 

C; 

01200 

1 

Ci 

20000 

0 

Ci 

ooooo 

1 

Ci 

ooooo 

1 

I i 

77201 

1 

Ci 

00001 

0 

C: 

17675 

0 

Ci 

00000 

1 

Ci 

ooooo 

1 

Ci 

ooooo 

1 

07.3700  Ci  00000  1 Ci  77743  1 
07.3710  e e 

07.3720  @ @ 


d 2A21A  0 

Ci  11244  0 

Ci  0370A  1 

@ 

e 

e 

Ci  03705  0 CkSM  66625  0 S 

see 

see 


07.3730  ggeggsge 

07.3740  egeeeege 

07.3750 

07.3760 

07.3770  eegggggg 
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: WORDS)  OR 

hC  H 

(CONSTANTS) , 

10f2000 

02013 

1 

05717 

0 

Ci 

001A4 

0 

<,7755 

0 

70<,13 

0 

5<,4l3 

0 

4OO74 

0 

77747 

0 

10,2010 

10000 

0 

157A5 

0 

n 

13241 

1 

00006 

1 

23464 

0 

37755 

1 

n0006 

1 

05012 

1 

10,2020 

O57I7 

0 

c • 

00002 

V 

37761 

0 

54035 

0 

54036 

0 

47755 

0 

00006 

1 

03012 

1 

10,2030 

O57I7 

0 

Ci 

00620 

0 

47741 

0 

7O4I3 

0 

54413 

0 

30035 

1 

0^312 

0 

Ci 

57777 

1 

10*20Ao 

120A3 

0 

37761 

0 

12044 

1 

37742 

1 

564i3 

1 

75520 

1 

264i3 

0 

04366 

0 

10,2050 

01A6A 

0 

02106 

1 

37755 

1 

70413 

0 

10000 

0 

12060 

1 

04744 

1 

C: 

00501 

0 

10,2060 

O57I7 

0 

CJ 

00002 

0 

37742 

1 

7O4I3 

0 

10000 

0 

37737 

0 

02150 

1 

37742 

1 

10,2070 

70A13 

0 

10000 

0 

4774O 

1 

02153 

1 

47743 

1 

70413 

0 

54413 

0 

77744 

0 

10,2100 

10000 

0 

12A22 

0 

47754 

1 

00006 

1 

03012 

1 

15745 

0 

37754 

0 

00006 

1 

10,2110 

05012 

1 

37761 

0 

54361 

1 

54362 

1 

00002 

0 

37742 

1 

70413 

0 

10000 

0 

10,2120 

37737 

0 

02150 

1 

32137 

0 

02153 

1 

40413 

0 

77742 

0 

10000 

0 

32141 

1 

1 

02142 

47740 

70413 

02431 

C: 

7OOOO 

n 

10,2130 

621A0 

0 

U2  1 5U 

* 

1 

1 

u 

54413 

u 

0 

Sj 

10,2U0 

c: 

67O7O 

1 

Cl 

61615 

1 

22413 

1 

37742 

1 

00006 

1 

06001 

0 

54413 

0 

00002 

0 

10,2150 

55A65 

0 

37761 

0 

12155 

0 

55465 

0 

37755 

1 

55466 

0 

00006 

1 

23464 

0 

10,2160 

12163 

0 

05717 

0 

C ! 

00062 

0 

40413 

0 

75663 

0 

00006 

1 

12074 

1 

31465 

1 

10,2170 

00006 

1 

51466 

1 

20035 

0 

54002 

1 

00006 

1 

72212 

0 

64001 

1 

30002 

0 

10,2200 

0A312 

0 

C; 

7764A 

1 

12204 

1 

01464 

0 

11466 

0 

12207 

1 

56001 

0 

52424 

1 

10,2210 

02213 

0 

12161 

1 

ci 

22715 

1 

22002 

0 

37755 

1 

54062 

1 

5OOOO 

1 

3O423 

1 

10,2220 

5A061 

1 

04312 

0 

Ci 

77177 

0 

12241 

0 

30061 

0 

50062 

0 

56361 

0 

40000 

0 

10,2230 

60061 

0 

50062 

0 

54053 

0 

10062 

1 

12215 

1 

35652 

0 

00006 

1 

05014 

1 

10,22A0 

00001 

0 

10061 

1 

42222 

0 

12245 

1 

32222 

1 

54061 

1 

12225 

1 

00004 

0 

10,2250 

A77A7 

0 

7OO74 

0 

67747 

1 

54O7A 

0 

37755 

1 

70413 

0 

10000 

0 

12302 

0 

10,2260 

377A3 

0 

7O4I3 

0 

10000 

0 

13223 

0 

47741 

0 

70413 

0 

67741 

1 

54413 

0 

10,2270 

37755 

1 

05701 

1 

ci 

02304 

1 

Ci 

2OOO3 

0 

40413 

0 

77754 

1 

10000 

0 

12302 

0 

10,2300 

CA7AA 

1 

Ci 

OO5IO 

0 

00003 

1 

15237 

0 

02013 

1 

13241 

1 

I i 

43020 

1 

Ci 

00427 

0 

10,2310 

c: 

00271 

0 

1 : 

66234 

1 

ci 

33540 

0 

Ci 

00051 

0 

Ci 

00024 

1 

Ci 

2a025 

0 

Ci 

00416 

1 

C; 

34041 

0 

10,2320 

c; 

32576 

1 

1 1 

77624 

1 

Ci 

33422 

0 

1 i 

77776 

1 

00004 

0 

04323 

1 

Ci 

00423 

1 

12351 

0 

10,2330 

2A427 

0 

32350 

0 

54430 

1 

37744 

1 

26413 

0 

77743 

1 

10000 

0 

12345 

0 

10,23A0 

02106 

1 

37754 

0 

O57OI 

1 

Ci 

02422 

1 

Ci 

20003 

0 

00003 

1 

30427 

0 

15246 

0 

10,2350 

C: 

OOO7A 

1 

02142 

1 

04323 

1 

Ci 

00<,25 

1 

12361 

0 

02U2 

1 

3774O 

0 

26413 

0 

10,2360 

12330 

1 

02U2 

1 

12345 

0 

I i 

77420 

1 

Ci 

00427 

0 

0000<, 

0 

04323 

1 

C: 

00423 

1 

10,2370 

12A02 

1 

00003 

1 

06103 

0 

1 i 

77624 

1 

Ci 

33475 

1 

Ci 

00416 

1 

1 i 

77414 

0 

Ci 

00071 

1 

^88954A  YJL  SYSTEM  FOR  AGC • NEW  PROGRAM  SMePATIN  BY  EYLES 


DEC  U<  1966 


octal  listing  of  paragraph  0 061*  wIt4  rarity  bit  in  binary  At  tHe  right  of  each  word;  "g"  Denotes  unusld  fixed 
all  valid  words  are  basic  instructions  except  those  mariced  "I"  (Interpretive  operator  words;  or  "C  (constants;, 

10,2a00  OOOOa  0 12331  0 02l^f2  1 34323  1 C:  00423  1 12412  0 02142  1 

10,2410  26413  0 12371  1 37755  1 05701  1 C;  03255  0 C;  20003  0 02142  1 

10,2420  Ci  00502  0 12346  0 37740  0 70413  0 10000  0 12115  1 12431  1 

10,2430  C:  00062  0 37743  0 70413  0 10000  0 12454  1 10413  0 12441  0 

10*2440  12A61  1 40413  0 77744  0 lOOOO  0 13241  1 10430  1 12460  0 

10,2450  C:  00503  1 42466  0 00006  1 03012  1 47744  0 70413  0 54413  0 

10,2460  54430  1 35666  I 05534  0 C:  02467  0 C:  20003  0 12427  0 C:  20002  1 

10,2470  30036  1 52424  1 06103  0 It  77775  1 Ct  00416  1 C:  OOO4I  1 It  <,7014  1 C 

10*2500  Ct  20507  1 Ct  33540  0 li  77731  1 Ci  00051  0 Ct  0002^  1 Ci  34025  1 Ci  32576  1 I 

10,2510  C;  00001  0 Ct  00425  1 H 41434  1 C;  33524  1 I:  65356  1 li  41546  0 I;  65205  0 C 

10,2520  Ci  00045  0 li  44205  0 C!  00001  0 li  77626  0 Ci  77352  0 l;  <,7135  0 Ci  00424  0 C 

10,2530  li  7IAO6  0 li  73525  1 I?  Al206  0 Ci  00003  1 li  65352  0 Ct  OOOO5  1 It  41325  0 C 

10*2540  Ci  OOOOl  0 It  55552  0 li  77441  0 Ci  0004i  1 40144  1 54423  0 404i3  0 

10,2550  10000  0 12554  0 40424  1 54424  1 37761  0 54l45  0 37755  1 

10,2560  5OOOO  1 30423  1 00006  1 72635  1 50144  0 56423  1 04312  0 C 

10,2570  24145  1 10144  I 12557  0 OOOO4  0 10413  0 12600  1 12600  1 

10,2600  10145  0 12625  0 4OO74  0 77751  1 10000  0 12616  0 37740  0 

10,2610  05012  1 37752  0 00006  1 02033  0 10000  0 12630  1 47744  0 


10,2620  54413  0 

10,2630  40413  0 

10,2640  02653  0 Ci 

10,2650  02652  1 Ci 

10,2660  10000  0 

10,2670  42637  0 


47754  I 00006  1 

77743  1 10000  0 

00016  0 02653  0 Ci 

00011  1 37755  1 

54425  0 67755  1 ' 

00006  1 03013  0 


03012  1 15605  0 

02213  0 15605  0 Ci 

00015  0 02653  0 Ci 

00004  0 54421  1 

54414  1 327O6  1 

50002  0 30000  1 


47740  1 00006  1 

21122  0 02652  1 C 

00014  1 02652  1 C 

00006  1 77753  0 

00006  1 02033  0 

00006  1 05013  0 


10,2700  3OO25  0 20422  1 37761  0 

10,2710  00006  1 22012  1 00006  1 

10,2720  04744  1 Ct  00520  0 05751  1 

10,2730  54414  1 37753  I 00006  1 

10,2740  06033  1 77750  0 00006  1 

10,2750  00006  1 06013  0 76301  1 

10,2760  54001  1 30046  0 60000  1 

10,2770  03000  1 47755  0 54414  1 


54001  1 52416  0 12302  0 C|  n0230  0 
30036  1 52420  0 10414  1 I273O  0 
04744  1 Ci  00521  1 47755  0 54414  1 
02013  1 00006  1 13014  0 30413  1 

12747  0 04744  1 Ci  00522  1 02725  0 
00006  1 13010  1 37735  1 7OO46  1 
77755  0 52064  1 37746  0 03126  1 
40061  1 70413  0 54413  0 04366  0 


PAGE113B 


Memory. 


37740  0 
04744  1 
05717  0 

12441  0 

04744  1 
13255  1 
00006  1 
i 00311  1 

i 67201  0 
: 00041  1 

: 33524  1 
i 00007  0 

77742  0 
54144  1 
i 77715  1 
12625  0 

00006  1 
70413  0 

03012  1 
• 00017  1 

i 00012  1 

52422  1 
54427  1 
00006  1 

54016  1 

12723  1 
03253  0 
00006  1 

36301  0 
63166  0 
10425  0 
03246  1 


488954A  YJL  SYSteM  FOR  AGC:  NeW  PRo'^RA'1  SH^PatIN  BY  E^LeS 


Dec  u,  1966 


PaGEU39 


Octal  listing  Of  paragraph  # 062.  wIthi  parity  bit  in  binary  at  the  right  of  each  woRq!  "e"  denotes  uNuSEd  fixed  memory. 

ALL  VALID  WORDS  ARe  BASIC  INSTRUCTIONS  E^I^EPT  THOSe  MARX^D  "I"  ( INTeRP^ETIVe  OPeRATOR  WORDS)  OR  "C  (CONSTANTS). 


10,3000 

5A425 

0 

lOAU 

1 

1 

13004 

1 

13145 

0 

37752 

0 

00006 

1 

05013 

0 

05751 

1 

10,3010 

37751 

0 

5A061 

i 

37745 

0 

03036 

1 

37743 

0 

70413 

n 

lOOOO 

0 

12725 

1 

10,3020 

A0A13 

0 

777A7 

0 

10000 

0 

12725 

1 

37752 

0 

54O6I 

1 

37755 

1 

00006 

1 

10,3030 

02013 

1 

54002 

1 

10000 

0 

13035 

0 

13047 

0 

37753 

1 

54001 

1 

00006 

1 

10,30A0 

02033 

0 

56001 

0 

70413 

0 

00006 

1 

06001 

0 

10000 

0 

03066 

1 

37735 

1 

10,3050 

7OOA6 

1 

54064 

1 

30046 

0 

60000 

1 

77755 

0 

54063 

0 

10002 

1 

13100 

1 

1 

20064 

30061 

n 

02771 

67755 

1 

1 0 f 3U60 

UU006 

1 

43160 

L 

1 

u 

03127 

U 

1 

22413 

1 

i 

10,3070 

00006 

1' 

06001 

0 

54413 

0 

32706 

1 

00006 

1 

02033 

0 

54427 

1 

12725 

1 

1 

13063 

52064 

20001 

1 

52064 

1 0 f 3 1 00 

lOOOl 

1 

13103 

i 

0 

1 

2000 1 

1 

2000 1 

1 

i 

10,3110 

37753 

1 

00006 

i 

02013 

1 

00006 

1 

13063 

0 

33155 

0 

00006 

1 

70064 

1 

10,3120 

5A06A 

1 

37761 

0 

56063 

1 

00006 

1 

73155 

1 

13062 

1 

54061 

1 

00006 

1 

10,3130 

02033 

0 

54001 

1 

40061 

1 

70427 

1 

60001 

0 

56427 

0 

7OO6I 

1 

60001 

0 

10,3U0 

10000 

0 

03001 

0 

52064 

1 

20A16 

0 

00002 

0 

40061 

1 

70413 

0 

60061 

0 

10,3150 

5AA13 

0 

52064 

1 

52416 

0 

04366 

0 

12723 

1 

C; 

23773 

0 

C| 

47777 

0 

C: 

00001 

0 

10,3160 

C5 

01150 

1 

OOOOa 

0 

47750 

0 

70413 

0 

67750 

1 

54413 

0 

37747 

1 

00006 

1 

10,3170 

02033 

0 

00006 

1 

13223 

0 

37741 

1 

00006 

1 

O5OI2 

1 

33240 

1 

O57OI 

1 

10,3200 

c: 

C3236 

0 

C! 

20003 

0 

02302 

1 

544I4 

1 

O57I7 

0 

Ci 

00144 

0 

37747 

1 

00006 

1 

10,3210 

02033 

0 

00006 

i 

13230 

1 

IO4I4 

1 

13203 

l 

47741 

0 

00006 

1 

03012 

1 

10,3220 

0A7A4 

1 

C! 

00523 

0 

13255 

1 

37755 

1 

O57OI 

1 

Ci 

03250 

0 

Ci 

20003 

0 

02302 

1 

10,3230 

O57I7 

0 

c; 

00144 

0 

477AI 

0 

00006 

1 

03012 

1 

13250 

1 

37751 

0 

13203 

1 

10.32A0 

C! 

01130 

1 

37747 

1 

70413 

0 

lOOOO 

0 

13250 

1 

13255 

1 

47761 

1 

55076 

0 

10,3250 

3775A 

0 

05243 

i 

CJ 

26731 

0 

47761 

1 

55076 

0 

37754 

0 

05243 

1 

C; 

26726 

0 

10,3260 

1K36 

0 

13263 

1 

15745 

0 

05701 

1 

C;  03260 

0 

Ci 

20007 

1 

35665 

1 

05523 

0 

10,3270 

Cl 

03300 

1 

Ci 

20007 

1 

33331 

0 

00006 

1 

71435 

0 

61434 

0 

55432 

1 

157A5 

0 

10.3300 

03332 

0 

05224 

0 

C5 

26756 

1 

25437 

0 

00004 

0 

52^16 

0 

51435 

1 

53441 

0 

10,3310 

52A20 

0 

51435 

1 

53443 

1 

52422 

1 

51435 

1 

53445 

1 

4I435 

0 

61433 

1 

10,3320 

00006 

1 

13324 

0 

31435 

1 

66276 

1 

55435 

0 

11436 

0 

15605 

0 

15605 

0 

10,3330 

13300 

0 

C; 

05341 

i 

37755 

1 

54123 

0 

51432 

0 

33337 

0 

I523O 

1 

C; 

20650 

0 

10,33A0 

C! 

206A6 

1 

c: 

20644 

0 

Ci 

20642 

0 

C:  20640 

1 

C:  20636 

0 

Ci 

03345 

0 

Ci 

03346 

0 

CKSM 

61376 

1 

10,3350 

e 

e 

g 

g 

g 

g 

g 

g 

10.3360 

g 

g 

g 

g 

g 

g 

g 

10.3370 

@ 

@ 

g 

g 

g 

g 

g 

g 

^8895^A  YJL  SYSTEM  FOR  AGC:  NEW  PROGRAM  SHEPATIN  BY  EYLE5 


DEC  l3t  1966 


PAGEllAO 


octal  LiSfiNG  ot  Paragraph  # 06a*  wItHi  ^ahijy  bij  in  binary  at  thb  righj  qf  each  word*  denotes  unused  fixed  memory* 

ALL  VALID  WORDS  ARe  BASIC  INSTRUCTIONS  £XCePt  THQSe  MARKeO  "I"  ( INTeRPRETI Ve  OPERATOR  WORDS)  OR  "C"  (CONSTANTS). 


11*2000  02070  1 02073  1 
11*2010  02262  0 02262  0 
11*2020  03126  1 0317A  0 
11*2030  13265  1 13267  ° 

11*20A0  37753  1 70336  0 
11*2050  5A336  0 00003  1 
11*2060  A7753  0 OOOOa  0 
11*2070  . 02076  1 02110  0 

11,2100  00006  1 12065  I 

11  *2110  020<f0  1 0522A  0 
11,2120  05224  0 C;  20247  I 
11,2130  C}  21161  1 12122  0 


02204  0 02573  1 O2O66  0 

02262  0 02262  0 02266  1 

02641  0 12531  0 13273  0 

13275  0 13257  0 13251  0 

10000  0 02053  0 47753  0 

00002  0 04560  0 05605  1 

70336  0 54336  0 00003  1 

O2II7  1 02076  1 02132  0 

24002  0 62107  0 00006  1 

Ci  26000  0 05224  0 C:  26762  0 

05224  0 Cj  26756  1 12125  1 

02040  1 04633  0 32152  0 


12126 

1 

02415  0 

02407 

0 

02303 

0 

02405  1 

02327 

0 

13247 

1 

13253  1 

13261 

U 

13306 

0 

13301  1 

02066 

0 

00004 

1 

0 

7O336  0 

67753 

1 

04713 

0 

02060  0 

05605 

i 

00002 

0 

04560  0 

02056 

0 

02234 

0 

47751  1 

60273 

1 

12065 

1 

02066  0 

Ci  77757 

1 

02116 

0 

02056  0 

02040 

1 

12056 

1 

0204O  1 

05224 

0 

04646 

1 

04464  0 

02055 

u 

11*2140  02154  0 32153  1 04646  I 04713 

11,2150  02056  0 02056  0 C!  02522  0 C;  04100 

11,2160  02141  1 02163  I O2I4I  1 56002 

11,2170  54145  0 50000  1 56342  1 05224 

11*2200  O2I7O  0 00144  0 C!  02523  1 C). 00^02 

11,2210  04464  0 O2O55  0 02213  0 32233 

11,2220  05224  0 Cj  26762  0 02056  0 32301 

11*2230  02056  0 02056  0 Ci  02567  1 CS  04200 

11*2240  04464  0 02055  0 02243  0 05224 

11,2250  3774O  0 05534  0 Ci  02256  1 C;  22005 

11*2260  C!  20363  0 02122  I 04615  1 02060 

11*2270  32232  0 04646  1 04464  0 02055 


0 0522^  0 Cl  26065  0 0522^*  0 C:  25762  0 

1 32202  0 04646  1 04464  0 02055  0 

0 54I44  1 32203  1 54120  0 37754  0 

0 C;  33647  1 10120  0 54120  0 10145  0 

1 O2OAO  1 0A633  0 32232  0 04646  1 

1 04646  1 04713  0 05224  0 C:  26251  0 

1 05224  0 C!  26361  1 05224  0 C:  26762  0 

1 02040  1 04633  0 32255  1 04646  1 

0 d 22765  0 32153  1 04646  1 00004  0 

1 12055  1 Ci  02441  1 06103  0 1;  77624  1 

0 05243  1 Ci  12002  0 O2O4O  1 04633  0 

0 02275  0 32302  1 04646  1 04713  0 


11*2300  12223  1 
11,2310  05605  1 
11*2320  52340  1 

11*2330  12053  1 

11*2340  02332  1 
11*2350  05605  1 
11*2360  32362  1 
11,2370  Ci  22066  1 


CI  00403  0 Ci  05400 

05605  I 00004 

20145  0 07320 

04633  0 32404 

O4IO5  1 Ci  00007 

45361  1 61546 

05246  I Ci  22066 

Ci  73405  1 Ci  46556 


0 32326  1 

0 37761  0 

1 52145  0 

0 54146  0 

0 00004  0 

1 00006  I 

1 Ci  50000  1 Ci 

0 Cl  31326  1 Cl 


54113  0 04447  1 
54146  0 54001  1 
20025  1 05605  1 

32403  1 04646  1 

37740  0 05534  0 
62357  1 04560  0 
50024  1 Cl  30000  1 
31564  1 Ci  31122  1 


05605  1 04464  0 

52025  1 52145  0 

CI  02124  1 10302  1 

0446A  0 05604  0 

C;  0235I  1 Ci  22005  1 
02332  1 51546  1 

Ci  50247  0 Ci  50447  0 

Ci  22411  0 Cl  3l6l5  1 


48895'tA  YJL  SYSTEM  FOr  aGC;  PrOCi:^aM  S^EPaTiN  BY  EYLEs 
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octal  LIStINO  01-  PARAGRAPH  « 065.  WlfHi  RARITY  BIT  IN  BINARY  AT  THt  RIGHT  OF  EACH  WORD!  «@>i  DeNOteS  uNUStD  FIXeD  MeMORY, 


all  VALjD  words  Are  BASiC  instructions  EXLePT  THOSE  MArKED  "i"  ( iNTErPrET i VE  operator  wOrDS)  Or  "C"  (CON5TANTS) . 


1U2A00 

C! 

23014 

0 

CI 

22066 

1 

c; 

22066 

1 

Cl 

02101 

0 

Cl 

02546 

1 

05243 

1 

Cl  77507 

0 

05243 

1 

I1,2AI0 

C! 

14467 

1 

32500 

0 

54411 

1 

47755 

0 

12417 

0 

04633 

0 

35223 

1 

54146 

0 

42501 

n 

7O4I3 

54413 

325OI 

1 

1 1 %ZiiZO 

OOOO4 

0 

0 

0 

1 

00U06 

02033 

0 

26413 

0 

ll,2A30 

00003 

1 

32452 

0 

54003 

0 

56146 

1 

55436 

0 

37761 

0 

55435 

0 

55437 

1 

11,2440 

32476 

0 

55433 

0 

32477 

1 

04646 

1 

04464 

0 

05604 

0 

12502 

0 

04713 

0 

11,2450 

11436 

0 

12455 

0 

Cl 

03432 

1 

05243 

1 

CI 

21300 

1 

36276 

1 

7I432 

1 

lOOOO 

0 

I 

55434 

1 

36276 

1 

12467 

1 

37754 

A 

A 

55433 

i 1 f c460 

12464 

i 

1 

i 

U 

55434 

1 

32475 

V 

11 i2470 

00004 

0 

05701 

1 

Cl 

03260 

0 

Ci 

20007 

1 

05605 

1 

Cl  00022 

1 

C;  00102 

1 

C: 

02101 

0 

11,2500 

c: 

02001 

1 

Cl 

00444 

0 

00004 

0 

35665 

1 

05523 

0 

Cl  03300 

1 

CI  ?0007 

1 

00003 

1 

11,2510 

37760 

1 

55432 

1 

32530 

0 

04646 

1 

04611 

0 

04464 

0 

02523 

1 

12521 

1 

11,2520 

12512 

1 

11432 

1 

12511 

1 

37761 

0 

55436 

0 

04105 

1 

Cl  00000 

1 

05604 

0 

11,2530 

C! 

03300 

1 

10412 

1 

02066 

0 

30025 

0 

62571 

0 

54001 

1 

02553 

0 

00004 

0 

11*2540 

32571 

0 

54412 

1 

05701 

1 

Cl 

02546 

1 

CI 

22OO7 

0 

05605 

1 

35226 

1 

05523 

0 

11,2550 

Cj 

02553 

0 

Ci 

22007 

0 

057A5 

1 

00004 

0 

32572 

0 

56411 

0 

54412 

1 

32570 

1 

11,2560 

05701 

1 

CI 

02564 

1 

ci 

22007 

0 

15605 

0 

37761 

0 

5641? 

0 

54411 

1 

15745 

0 

11,2570 

C! 

01750 

1 

Cl 

02260 

1 

Ci 

02001 

1 

02040 

1 

42636 

1 

00006 

1 

03012 

1 

04633 

0 

11*2600 

32152 

0 

04646 

1 

0446A 

0 

02055 

0 

02605 

0 

32637 

1 

04646 

1 

37750 

1 

11,2610 

00006 

1 

05012 

1 

3775A 

0 

00004 

0 

05701 

1 

Cl  02620 

1 

C{  22007 

0 

12055 

1 

11,2620 

37754 

0 

54002 

1 

50000 

1 

30400 

0 

00006 

1 

77741 

0 

50002 

0 

54050 

0 

11,2630 

10002 

1 

12621 

1 

32640 

1 

00006 

1 

05014 

1 

15745 

0 

Ci  00050 

1 

C: 

04300 

0 

11,26A0 

c: 

70000 

0 

37755 

1 

00004 

0 

05701 

1 

CI 

02651 

1 

C!  22007 

0 

05605 

1 

05717 

0 

11,2650 

C! 

00062 

0 

37754 

0 

55607 

0 

50000 

1 

31604 

1 

00006 

1 

51607 

1 

06030 

1 

11,2660 

51607 

1 

72710 

1 

00006 

1 

12705 

0 

54002 

1 

51607 

1 

23604 

1 

00006 

1 

11,2670 

06001 

0 

51607 

1 

5560A 

0 

40000 

0 

56002 

0 

70002 

1 

O0006 

1 

12705 

0 

11,2700 

32713 

0 

6I6O7 

1 

54071 

0 

40002 

1 

02731 

0 

II6O7 

0 

12652 

0 

12647 

1 

11,2710 

Ci 

00017 

1 

C; 

77777 

0 

Ci 

03777 

0 

C: 

00030 

1 

02724 

1 

C;  00016 

0 

05751 

1 

04633 

0 

11,2720 

32723 

0 

04646 

1 

05604 

0 

Cl 

01645 

1 

54O7I 

0 

50002 

0 

3OOOO 

1 

24002 

0 

11,2730 

56071 

1 

5AO7O 

1 

00006 

1 

22072 

1 

35667 

0 

05523 

0 

Cl  02747 

1 

Cl 

22007 

0 

11 ,27A0 

52071 

0 

50064 

0 

52145 

0 

30025 

0 

50064 

0 

54146 

0 

00072 

1 

04633 

0 

11,2750 

00006 

1 

30145 

1 

52340 

1 

30146 

1 

54341 

0 

32764 

0 

04433 

1 

12761 

1 

11,2760 

05604 

0 

32763 

1 

04643 

1 

Ci 

22750 

0 

Ci 

00535 

1 

05253 

0 

54427 

1 

32530 

0 

11,2770 

04646 

1 

04611 

0 

04464 

0 

12776 

1 

37751 

0 

12777 

0 

37761 

0 

00004 

0 
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octal  listing  oh  Paragraph  0 O66.  with,  parity  bit  in  binary  at  the  right  qF  each  wqRd;  "e"  denotes  unused  fixed  memory. 

ALL  VALID  WORDS  ARe  BASIC  INSTRUCTIONS  eX'-EPT  THOSe  MARXe5  "I"  ( INTeRPRETIVE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS), 


11,3000 

56074  1 

73013  1 

26074  0 

77751 

1 

11,3010 

00003  1 

30427  0 

15246  0 

C;  77757 

1 

11 ,3020 

13021  0 

33105  0 

046A6  1 

04464 

0 

11,3030 

5A350  0 

00006  1 

30352  0 

52364 

1 

10000  0 I3OIO  1 37737  0 26a13  0 
33IOA  1 0A6A6  1 0A46A  0 130A1  0 
I3OAI  0 13026  1 OOOOa  0 A7755  0 
37755  1 05701  1 C}  030A7  1 C:  22007  0 


11.30A0  15604  1 
11,3050  30355  1 
11,3060  13102  0 
11,3070  52352  1 


04713  0 04105  1 

52062  I 00006  1 

10062  I 13076  1 

37740  0 05523  0 


C;  00000  1 05605  1 

40364  1 20062  1 

13065  0 13102  0 

Cj  03042  1 C;  22007  0 


05717  0 Cj  00062  0 00006  1 
10061  1 13076  1 13061  1 
37761  0 5A353  0 52355  0 

I5745  0 3O353  1 00006  I 


11,3100  63065  1 

11,3110  7OO77  0. 


I3O45  1 40353 

677A4  I 54077 


0 13077  0 C; 

0 15605  0 


02444  1 C:  02564  1 
00004  0 47744  0 


00004  0 47744  0 

70077  0 5AO77  0 


11,3120  00006  1 30033  I 52767  0 30034  0 54770  0 15605  0 35370  0 56003  1 

11,3130  00004  0 30025  0 55506  1 32713  0 55512  1 41506  1 60025  0 00006  ^ 


11,3140  13145  0 00006  1 
11,3150  10067  1 05550  1 
11,3160  67752  0 5A365  0 
11,3170  377A3  0 00006  I 


30025  0 535O7  0 I3I53  1 

03133  0 05015  0 53511  1 

37752  0 00006  1 03012  1 

05013  0 05605  1 35370  0 


11512  1 0313A  1 00003  I 
00003  I 47752  1 70365  0 
37752  0 n0006  1 05012  1 
56003  1 05015  0 53513  0 


11,3200  00003  1 31512  0 00006  1 6l510  1 00006  1 63230  0 06103  0 1;  45345  i 

11,3210  C:  01513  1 C!  01511  0 I)  47O6I  0 C:  21606-  1 C:  33565  1 I)  77615  0 Ci  01507  1 C:  01513  1 

11,3220  1:  77776  1 00006  1 31513  1 52025  1 477A3  1 00006  1 03013  0 05605  1 

11,3230  00006  1 37735  1 53515  0 06103  0 I;  45345  1 C;  01515  1 C|  OI5U  0 Ij  5A215  D 


11,3240  C!  01513  1 C;  21606  I 
11,3250  C!  56000  1 05243  I 
11,3260  03262  1 33317  1 
11,3270  54144  1 37754  0 

11,3300  03304  0 33324  1 
11,3310  30076  0 77751  I 
11,3320  C;  00070  0 C!  00071  1 
11,3330  C!  03330  1 CKSM  60151  I 


l!  77615  0 C:  01507  1 C;  01513  1 

C!  16000  0 00004  0 05307  0 

54144  1 37755  1 03304  0 

03304  0 33322  1 03276  1 

54144  1 33325  0 54l45  0 

00006  1 12053  1 05224  0 

C!  0006A  0 C;  OOO72  1 C:  00076  0 

g @ @ 


l:  77776  1 03221  0 05243  1 

C:  56211  0 15605  0 33316  0 

33320  0 O327O  1 33321  I 

33323  0 54144  1 36301  0 

03310  0 33326  0 54l44  1 

C;  54000  0 C;  00073  0 C;  00067  0 

c;  00016  0 C!  00075  0 C:  03327  1 

@ § e 


11,3340  @ee@e@ee 

11,3350 

11,3360  §se§@§e6 

11  *3370  @ @ @ @ e e € e 
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Octal  listing  of  paragraph  # otoi  wIthi  sanity  bit  in  binary  at  the  right  op  each  worq;  denotes  unused  fixed  memory. 


ALL  VALID  WORDS  ARe  BaSIC  INSTRUCTIONS  eX'-EPT  THOSe  MARKeD  "I"  ( I NTeRP^ET I Ve  OPeRAtOR  WORDS)  qR  "C  (CoNStANtS) , 


12.2000 

54016  1 

37761 

0 

n 

00006 

1 

OlOlO 

1 

50346 

0 

10000 

0 

1034I 

0 

12011 

1 

12.2010 

37757  0 

54347 

V 

12030 

1 

34265 

1 

54346 

1 

3 1 144 

1 

55143 

1 

47755 

0 

12.2020 

55144  0 

34263 

1 

12026 

0 

34265 

1 

54346 

1 

34264 

0 

54027 

0 

15753 

1 

12.2030 

00006  1 

22012 

1 

51143 

0 

11132 

1 

12056 

1 

12056 

1 

32147 

1 

54346 

1 

12.20A0 

34552  1 

51143 

0 

71132 

1 

51143 

0 

55132 

1 

64266 

1 

00006 

1 

01010 

1 

12.2050 

11143  1 

12053 

1 

37757 

0 

55144 

0 

32150 

1 

12133 

0 

10326 

1 

02066 

0 

n 

74552 

54326 

1 

12. 2060 

02066  0 

56326 

\j 

0 

1 

64302 

1 

02126 

0 

10307 

1 

12072 

12.2070 

32107  0 

12133 

0 

54307 

1 

47761 

1 

54O73 

1 

56345 

0 

67762 

0 

54345 

1 

12.2100 

50345  0 

10313 

1 

10345 

1 

02076 

1 

02115 

0 

C:  00012 

1 

10073 

1 

C: 

37764 

0 

12.2110 

54307  1 

12070 

0 

54073 

1 

32105 

1 

O2O77 

0 

67755 

1 

50345 

0 

54313 

1 

12.2120 

74552  0 

54073 

1 

34547 

0 

50345 

0 

74267 

1 

6OO73 

0 

00006 

1 

01010 

1 

12.2130 

32146  0 

54346 

1 

32151 

0 

54027 

0 

50347 

1 

12136 

0 

02152 

0 

03176 

1 

12.21A0 

12305  1 

13176 

0 

02217 

1 

03176 

1 

12305 

1 

13176 

0 

Ci  02023 

1 

C: 

02013 

1 

12.2160 

C;  37775  0 

C!  37776 

0 

02225 

0 

47754 

1 

00006 

1 

O3OIA 

1 

10351 

1 

12163 

0 

12.2160 

12163  0 

12167 

1 

54351 

1 

47755 

0 

52352 

1 

52364 

1 

1220? 

1 

30353 

1 

12.2170 

00006  1 

72302 

0 

60364 

0 

54364 

1 

37761 

0 

26363 

0 

37735 

1 

67755 

1 

12.2200 

60364  0 

54364 

1 

37761 

0 

67735 

1 

60363 

1 

54363 

0 

12277 

0 

10363 

0 

12.2210 

37737  0 

60364 

0 

54060 

0 

32303 

0 

00006 

1 

05014 

1 

12276 

1 

02225 

0 

12.2220 

37754  0 

00006 

1 

05014 

1 

30353 

1 

12212 

0 

10350 

0 

12273 

1 

12230 

0 

12.2230 

37750  1 

00006 

1 

02030 

0 

10000 

0 

12273 

1 

10350 

0 

12237 

1 

12260 

0 

12.22A0 

37746  0 

00006 

1 

05012 

1 

37761 

0 

54350 

0 

54362 

1 

54361 

1 

36276 

1 

12.2250 

05701  1 

C;  02254 

0 

CS 

24006 

1 

02276 

0 

37754 

0 

00006 

1 

05012 

1 

05745 

1 

12.2260 

40362  1 

60357 

0 

54054 

1 

30357 

0 

54362 

1 

40361 

1 

60360 

1 

54053 

0 

12.2270 

30360  1 

54361 

1 

00002 

0 

42304 

0 

00006 

1 

03012 

1 

15751 

0 

37761 

0 

12.2300 

54001  1 

12165 

0 

ci 

06432 

1 

C:  0600A 

0 

C:  00202 

1 

33056 

1 

n0006 

1 

02012 

0 

12.2310 

00006  1 

62315 

1 

00006 

1 

33035 

1 

53001 

0 

30365 

1 

n0006 

1 

06030 

1 

12.2320 

73042  0 

00006 

1 

12352 

0 

54O7O 

1 

22365 

1 

00006 

1 

n6001 

0 

54365 

0 

12.2330 

47755  0 

56070 

0 

00006 

1 

62624 

0 

12336 

1 

67755 

1 

24O7O 

0 

60000 

1 

12.2340 

5400C  0 

12336 

1 

56071 

1 

5OO7O 

0 

37740 

0 

70365 

0 

5OO7O 

0 

03036 

1 

12.2350 

10071  0 

12335 

1 

40365 

0 

77747 

0 

10000 

0 

12507 

0 

37746 

0 

70365 

0 

12.2360 

10000  0 

12365 

1 

37746 

0 

26365 

0 

12507 

0 

43061 

1 

70365 

0 

54365 

0 

12.2370 

77740  1 

10000 

0 

12465 

0 

40365 

0 

77745 

1 

10000 

0 

12401 

1 

04744 

1 
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ALL  VALID  WORDS  ARe  DaSIC  INStRUCtIONS  eX^-ePt  tHOSe  MARKe^  "I"  ( INteRPRetIVe  OPeRATOR  WORDS)  oR  "C«  (CoNSjANtS) . 


12,2A00  c:  00213  1 O3OI2  1 
12,2A10  05722  0 A775A  i 
12,2A20  70365  0 00006  ^ 
12,2430  C;  26703  1 37737  0 

12,2440  00006  1 O3OI2  I 
12,2450  47737  1 00006  1 
12,2460  77746  1 10000  0 
12,2470  10000  0 12507  0 

12,2500  00006  1 O5OI2  I 
12,2510  75660  0 5A001  I 
12,2520  12547  1 54070  I 
12,2530  60000  1 12534  0 


33067  0 O57OI  1 c;  02411  1 
70365  0 56365  1 77754  1 
I24O7  1 40074  0 77746  1 
00006  1 05012  1 O53O7  0 

34310  1 05722  0 43O57  1 
03012  1 37743  0 O57OI  1 
157^5  0 05243  1 C:  26675  I 
37746  0 7OO74  0 10000  0 

37750  1 O57OI  1 C:  02436  1 
35660  1 00006  1 03033  1 
22366  1 00006  1 06001  0 
67755  1 24070  0 60000  1 


c;  24OO6 

1 

12507  0 

33067 

0 

00006 

1 

12431  1 

377^0 

0 

10000 

0 

15745  0 

05243 

1 

Cs  26323 

1 

04303  0 

43056 

0 

70365 

0 

5A365  0 

02763 

1 

C;  02307 

1 

C;  76006  0 

4OO74 

0 

37752 

0 

00006  1 

02012 

0 

12507 

0 

03024  1 

37751 

0 

C;  24006 

1 

12507  0 

30366 

i 

00006 

1 

06001  0 

00006 

1 

6A366 

0 

37761  0 

56O7O 

0 

54OOO 

0 

12533  1 

56O7I 

1 

12,25A0  5OO7O  0 37741  I 

12,2550  12554  0 12574  I 

12,2560  00006  1 62571  0 

12,2570  C;  26231  0 37750  I 

12,2600  70326  1 10000  0 

12,2610  77750  0 67737  0 

12,2620  12607  0 Cj  63434  1 

12,2630  12635  1 37752  0 

12,2640  00006  1 03011  1 

12,2650  70365  0 00006  I 

12,2660  12350  1 37754  0 

12,2670  677A7  1 54365  0 


70366  0 5OO7O  0 O3O44  1 

1255A  0 12574  1 62621  0 

37752  0 00006  1 02012  0 

1257^  1 37761  0 60326  0 

12616  0 37750  1 70365  0 

56326  0 72623  0 26326  1 

c;  75252  0 Cj  37737  0 77735  0 

00006  1 05011  1 12350  1 

12350  1 37754  0 70365  0 

12666  1 37737  0 00006  1 

26365  0 04744  1 C;  OO2O7  1 

12350  1 10000  0 12350  1 


IOO7I  0 12532  0 10034  1 
00006  1 62573  1 62622  0 
10000  0 1257I  1 053O7  0 
77750  0 00006  1 13203  1 

10000  0 13203  1 40326  1 
13203  1 03047  1 13203  1 
54O7I  0 10365  0 12635  1 

03047  1 I235O  1 47752  i 

10000  0 1235O  1 377A0  0 
02012  0 00006  1 12661  0 
12350  1 47747  0 70365  0 
43064  1 n0006  1 03014  1 


12,2700  03012  1 37761  0 54050  0 5A051  1 54052  1 54047  0 43063  0 00006  1 
12,2710  03014  1 12350  I 00006  1 12723  1 4OO74  0 77746  1 10000  0 12350  1 
12,2720  04744  1 C;  OO2I4  0 12350  1 37754  0 70365  0 10000  0 12350  1 12666  1 


12,2730  10000  0 377A4  I 56365  1 73066  0 26365  0 02763  1 40365  0 77755  0 


12,27A0  10000  0 12545  0 
12,2750  12545  0 10000  0 
12,2760  04744  1 C:  01106  1 
12,2770  00006  1 04001  1 


30365  1 73062  1 10000  0 
12545  0 04744  1 G:  01105  1 
125A5  0 33054  0 70365  0 
40000  0 75657  1 10000  0 


12545  0 04744  1 C:  00212  0 
12545  0 10000  0 12545  0 
00006  1 777A4  0 30365  I 
13006  0 37755  1 70366  0 
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octal  lisTins  qf  Paragraph  # 072«  withi  parity  bit  in  binary  at  the  right  qf  each  words  "e"  denotes  unused  fixed  memory. 
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12*3000 

10000 

0 

00002 

0 

47755 

0 

00006 

1 

03011 

1 

00002 

0 

37755 

1 

00006 

1 

12.3010 

05011 

1 

00002 

0 

43065 

0 

00006 

1 

03012 

1 

33056 

1 

n0006 

1 

05012 

1 

1 

63055 

54326 

1 

0 

12.3020 

43055 

0 

70326 

i 

1 

1 

43060 

0 

70365 

0 

63060 

54365 

12.3030 

00006 

1 

33035 

1 

53001 

0 

00002 

0 

C; 

02136 

1 

C| 

34006 

0 

12643 

0 

12763 

0 

n 

c! 

76400 

12712 

40366 

n 

12.30A0 

12763 

0 

12673 

u 

1 

0 

12730 

0 

12751 

1 

12756 

0 

U 

12.3050 

77755 

0 

10000 

0 

24002 

0 

00002 

0 

c: 

00015 

0 

Cl 

40010 

1 

Cl 

00030 

1 

C: 

00054 

u 

12.3060 

C; 

00075 

0 

C; 

00300 

1 

Cl 

01720 

0 

C; 

01700 

1 

C; 

71000 

1 

Cl 

40040 

1 

C; 

76777 

1 

C; 

21450 

0 

12.3070 

c: 

ooou 

1 

30A13 

1 

00006 

1 

06033 

1 

77754 

1 

00006 

1 

13132 

0 

22413 

1 

12*3100 

00006 

1 

06001 

0 

544l3 

0 

77754 

1 

10000 

0 

i3124 

1 

37747 

1 

70074 

0 

12.3110 

10000 

0 

13132 

0 

43123 

0 

70413 

0 

63123 

1 

54413 

0 

37755 

1 

05701 

1 

12.3120 

C; 

02000 

0 

Cj 

20006 

0 

13176 

0 

C; 

10001 

1 

4007A 

0 

77747 

0 

10000 

0 

13132 

0 

12.3130 

04744 

1 

Cl 

00514 

1 

30a13 

1 

00006 

1 

06030 

1 

77747 

0 

00006 

1 

13152 

0 

l2*3lA0 

37754 

0 

70413 

0 

10000 

0 

13176 

0 

37747 

1 

22^13 

1 

00006 

1 

06001 

0 

12.3150 

54413 

0 

04366 

0 

3317A 

0 

70413 

0 

10000 

0 

13176 

0 

04323 

1 

C: 

00035 

1 

12.3160 

13162 

0 

13176 

0 

37743 

0 

26413 

0 

43175 

0 

00006 

1 

03012 

1 

37754 

0 

12.3170 

05701 

1 

Cl 

02051 

1 

Cl 

20006 

0 

13176 

0 

Cl 

32002 

1 

Cl 

20002 

1 

00006 

1 

33202 

1 

12.3200 

52006 

0 

Cl 

02000 

0 

cl 

40006 

0 

15751 

0 

15751 

0 

31501 

1 

00006 

1 

06032 

0 

12.3210 

74553 

1 

00006 

1 

15751 

0 

00006 

1 

33217 

0 

52006 

0 

Cl 

02677 

0 

Cl 

40006 

0 

12,3220 

33457 

1 

56003 

1 

54153 

1 

11463 

0 

13227 

1 

13227 

1 

13350 

0 

37753 

1 

12,3230 

54122 

1 

50000 

1 

30403 

0 

54112 

1 

50122 

0 

41436 

0 

00006 

1 

71163 

0 

12,3240 

00006 

1 

77752 

1 

22113 

1 

50122 

0 

31437 

0 

00006 

1 

70112 

1 

22114 

(J 

12,3250 

00006 

1 

77750 

0 

20113 

0 

301U 

0 

00006 

1 

77750 

0 

54001 

1 

37761 

0 

12.3260 

20113 

0 

00006 

1 

30113 

1 

50122 

0 

52404 

0 

10122 

1 

67763 

1 

13230 

1 

12,3270 

13271 

1 

55463 

0 

54120 

0 

00006 

1 

40404 

0 

52145 

0 

31447 

1 

03353 

1 

12.3300 

00006 

1 

40A06 

1 

52145 

0 

41452 

1 

03353 

1 

41444 

0 

03402 

1 

00006 

1 

12,3310 

40406 

1 

52145 

0 

31450 

1 

03353 

1 

00006 

1 

40410 

0 

52145 

0 

41453 

0 

12,3320 

03353 

1 

41445 

1 

03402 

1 

00006 

1 

40406 

1 

52145 

0 

31454 

0 

03353 

1 

12.3330 

00006 

1 

40A10 

0 

52145 

0 

31451 

0 

03353 

1 

31446 

0 

03402 

1 

11463 

u 

12,3340 

13342 

0 

13350 

0 

00004 

0 

35674 

1 

05523 

0 

Cl 

03435 

0 

Cl 

24003 

1 

00003 

1 

12,3350 

30153 

0 

54003 

0 

15237 

0 

56144 

0 

00006 

1 

70144 

1 

52113 

0 

30145 

1 

12,3360 

00006 

1 

70144 

1 

54001 

1 

37761 

0 

20113 

0 

30112 

0 

00006 

1 

77745 

1 

12,3370 

50120 

1 

21456 

0 

30113 

1 

00006 

1 

77745 

1 

54001 

1 

37761 

0 

50120 

1 
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ALL  VALID  WORDS  ARe  BaSIC  INStRUCjIONS  E^'-ePt  THOSe  MARKeD  ''I»  ( INTeRPRETI Ve  operator  WORDS)  oR  "C"  (CoNStANtS) 

12*3^00  21^56  0 00002  ^ 00006  1 22121  0 00006  1 71163  0 221^*5  1 

12,3A10  77752  1 50120  I 2U56  0 30145  1 00006  1 77752  1 5AOOI  1 

12,3420  50120  1 21456  0 37754  0 60120  1 56120  1 5OOOO  1 11455  0 

12,3430  00121  0 73501  1 10000  0 55463  0 00121  0 37753  1 54120  0 

12,3440  31456  1 0000^  I 77746  1 50120  1 55456  0 37761  0 50120  1 

12,3450  00006  1 77746  F 50120  I 21456  0 10120  0 67763  1 13436  1 C 

12,3460  33457  1 05224  0 C?  26361  1 05224  0 c:  26762  0 15605  0 37753  1 

12,3470  50120  1 31456  I 00006  1 77746  1 50120  1 23456  1 10120  0 

12,3500  13467  0 CS  77776  ^ 15605  0 11463  0 13507  1 13507  1 15605  0 

12,3510  57163  1 40000  0 61163  1 10000  0 67755  1 13522  0 13520  1 

12,3520  40000  0 67735  F 00006.1  77744  0 52113  0 00006  1 30113  1 

12,3530  37761  0 55463  0 54120  0 41444  0 03552  0 00006  1 40113  0 

12,3540  31445  0 03552  0 00006  1 40113  0 52145  0 41446  1 0355^  0 

12,3550  13435  1 15605  0 56002  0 54121  1 30002  0 00006  1 70144  1 

12,3560  21456  0 30002  0 00006  1 7OI45  0 54001  1 37761  0 5OI2O  1 

12,3570  13422  1 11463  0 13575  1 13575  1 15605  0 3567°  0 A7l63  1 

12,3600  61321  0 13513  1 33457  1 56003  1 54l53  1 37761  0 55463  0 

12,3610  55456  0 55457  1 55460  0 55461- 1 55462  I 30153  0 54003  0 

12,3620  Ci  03620  0 Ci  03621  1 C<SM  47104  I § @ § 6 

12*3630  @ @ g @ @ @ @ 

12*3640  s e @ § e @ e 

12*3650  &&§§§§§ 

12*3660  @ g g g @ @ g 

12*3670  @ g g g g g g 

12*3700  g g g g g g g 

12*3710  e g g g g g g 

12*3720  g g g g g g g 

12*3730  g g g g g g g 


12*3740  g g g g g g g 

12*3750  g g g g g g g 

12*3760  g g g g g g g 

12*3770  g g g g g g g 
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00006  1 
37761  0 
13431  0 

50120  I 

57455  1 
! 01455  1 
54120  0 
67763  1 

30025  U 
15605  0 

52145  0 

52145  0 

11463  0 
5OI2O  1 
21456  0 
40000  0 

55455  0 
15237  0 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 


g 

g 

g 

g 
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Octal  listing  oe  paragraph  « oTAt  wItH'  parity  bit  in  binary  at  the  riqht  of  each  woRq;  "g"  lenotes  uNused  fIxed  memory. 
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13.2000 

OOOOi, 

0 

40326 

1 

73010 

1 

10000 

0 

12010 

0 

O4744 

1 

Ci 

00206 

0 

12723 

1 

13.2010 

47746 

1 

7OO74 

0 

67746 

0 

54074 

0 

02712 

1 

12043 

0 

4300? 

1 

70365 

0 

13.2020 

6300? 

0 

54365 

0 

43010 

1 

00006 

1 

O3OI2 

1 

02323 

1 

3775I 

0 

00006 

1 

13.2030 

05012 

1 

37750 

1 

O57OI 

1 

Ci 

02045 

1 

Ci 

26003 

0 

40365 

0 

77745 

1 

10000 

0 

13.20A0 

12043 

0 

O4744 

1 

C! 

00210 

1 

OOOO3 

1 

15237 

0 

02712 

1 

15745 

0 

04303 

0 

13,2050 

47751 

1 

00006 

1 

03012 

1 

34310 

1 

05722 

0 

02712 

1 

15745 

0 

43007 

1 

13.2060 

70365 

0 

54365 

0 

05307 

0 

c: 

24763 

0 

12675 

0 

00004 

0 

02231 

0 

36276 

1 

13,2070 

05701 

, 1 

C! 

02074 

0 

Cl 

26003 

0 

12043 

0 

O27O5 

1 

37750 

1 

00006 

1 

05012 

1 

13,2100 

37754 

0 

55460 

0 

51460 

1 

30400 

0 

00006 

1 

51460 

1 

20032 

1 

00006 

1 

13.2110 

77741 

0 

56001 

0 

60000 

1 

54061 

1 

12116 

1 

26001 

1 

51460 

1 

23455 

1 

13.2120 

11460 

0 

02101 

0 

37754 

0 

05722 

0 

O27O5 

1 

54061 

1 

37754 

0 

55460 

0 

11455 

Q 

02136 

02145 

r\ 

02210 

02145 

00006 

1 

13,2130 

5 1460 

1 

1 

U 

U 

0 

0 

i 

13,2140 

62220 

0 

51460 

1 

55455 

0 

43014 

0 

24061 

0 

51460 

1 

54050 

0 

11460 

u 

13,2150 

02127 

1 

10061 

1 

12224 

0 

O57I7 

0 

Ci 

00226 

1 

37754 

0 

54061 

1 

50000 

1 

13,2160 

30032 

0 

00006 

1 

50061 

0 

20400 

1 

10000 

0 

12201 

1 

12170 

1 

12201 

1 

Q 

55455 

A 

55460 

55461 

55462 

1 

13.2170 

10061 

1 

12156 

0 

55456 

U 

55457 

1 

0 

1 

L 

13,2200 

12675 

0 

62207 

0 

00006 

1 

62170 

0 

04744 

1 

cs 

00211 

0 

12703 

0 

Ci  77511 

1 

13,2210 

63013 

0 

00006 

1 

62220 

0 

40000 

0 

51460 

1 

55455 

0 

33014 

1 

02144 

1 

13,2220 

37761 

0 

51460 

1 

57455 

1 

02144 

1 

33012 

1 

00006 

1 

05014 

1 

33015 

0 

13,2230 

12123 

1 

47750 

0 

00006 

1 

03012 

1 

37752 

0 

00006 

1 

05012 

1 

42250 

0 

13,2240 

70326 

1 

62250 

1 

54326 

1 

47752 

1 

70365 

0 

67752 

0 

54365 

0 

00002 

0 

13,2250 

C;  40010 

1 

OOOO4 

0 

02717 

1 

43011 

0 

00006 

1 

03012 

1 

02323 

1 

37744 

1 

13,2260 

05701 

1 

Ci 

02272 

1 

Ci 

26003 

0 

33016 

0 

O57OI 

1 

c; 

02270 

0 

Ci 

26003 

0 

12043 

0 

13,2270 

027O5 

1 

12675 

0 

02712 

1 

15745 

0 

37752 

0 

00006 

1 

02012 

0 

10000 

0 

13,2300 

15745 

0 

47752 

1 

70365 

0 

54365 

0 

05307 

0 

Ci 

24763 

0 

15745 

0 

02712 

1 

13,2310 

15745 

0 

47744 

0 

70365 

0 

67744 

1 

54365 

0 

47741 

0 

70366 

0 

67741 

1 

13,2320 

54366 

0 

47751 

1 

12302 

0 

42250 

0 

70326 

1 

67737 

0 

54326 

1 

00002 

0 

13,2330 

02712 

1 

15237 

0 

00004 

0 

37761 

0 

54037 

1 

54040 

1 

54041 

0 

47755 

0 

13,2340 

70365 

0 

54365 

0 

05307 

0 

C; 

24763 

0 

12043 

0 

00004 

0 

47755 

0 

70365 

0 

13,2350 

67755 

1 

54365 

0 

777A4 

0 

10000 

0 

12043 

0 

04744 

1 

Ci 

n0212 

0 

00004 

0 

13,2360 

12342 

1 

54151 

0 

02717 

1 

10356 

0 

02426 

0 

54146 

0 

37750 

1 

00006 

1 

13,2370 

05014 

1 

37753 

1 

00004 

0 

05701 

1 

C5 

02444 

1 

Ci 

26003 

0 

3OI5I 

1 

56003 

1 
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13,2400 

13,2410 

13,2420 

13,2430 

13,2440 

13,2450 

13,2460 

13,2470 

13,2500 

13,2510 

13,2520 

13,2530 

13,25A0 

13,2550 

13,2560 

13,2570 

13,2600 

13,2610 

13,2620 

13,2630 

13,2640 

13,2650 

13,2660 

13.2670 

13,2700 

13,2710 

13,2720 


56151  1 
54150  1 
53401  1 

52145  0 

52124  1 
30356  1 
C:  00302  0 
70366  0 

03014  1 
67741  1- 
00006  1 
10071  0 

00006  1 
56071  1 
30001  0 
12614  1 

30062  0 
37744  1 
54047  0 

02705  1 


37740 

62571 

00006 

40000 

10000 

12703 

77750 


54356  ° 
00006  1 
10147  I 

32443  0 

37755  I 
00006  1 
02502  1 
10000  0 

12270  1 
26356  0 
50061  0 
12535  1 

32674  0 
00006  1 
00006  1 
C;  77600  1 

54047  0 
00006  I 
00006  1 

30356  1 

26047  0 

00006  I 

05014  1 
12551  0 

12703  0 
00002  0 
10000  0 


7A553  1 

50000  1 
12405  0 

15563  0 

12372  1 
77752  1 
C5  00100  0 
12501  0 

47753  0 

54003  0 
31401  0 
12450  0 

20071  0 
777A6  1 

777A0  1 
12576  0 

00006  1 
05014  1 
777A4  0 

54003  0 

12602  0 
62450  1 

40070  1 
c»  01700  1 

12731  1 
40365  0 
00002  0 


54061  1 
31401  0 

30151  1 

10356  0 
C:  26433  1 

50000  1 
37761  0 
10064  1 

26356  0 
7A553  1 

52071  0 
12650  1 

30064  0 
5A062  1 
26062  1 
37740  0 


77744 

157A5 

55357 


7A553  1 

50061  0 
00006  1 
54070  1 
C:  00000  1 

37761  0 
77750  0 
A7761  1 


37754  0 
52145  0 
5A003  0 
12431  1 

42672  1 
12455  0 
54356  0 
12501  0 

50002  0 

54061  1 
IOO7O  1 
12450  0 

00006  1 
30070  0 
00006  1 
26062  1 

66301  0 
50061  0 

05701  1 

54061  1 

55400  0 
4267A  1 
40071  0 
C:  00034  0 

12726  1 
10000  0 
54367  1 


54I47  1 
07320  1 
12043  0 

54l46  0 

00006  1 
02504  1 
32443  0 
12501  0 


30000  1 
4775 r 1 
12540  0 
62571  0 


05014  1 
00006  1 
3OO7I  1 
37761  0 

05701  1 

53401  1 
C:  02630  0 

50061  0 

37740  0 

20071  0 

76130  1 
00006  1 


60000  1 
52145  0 
00006  1 
00006  1 

03014  1 
Ci  00202  1 
05567  0 
47750  0 

5AO6A  1 
7OO6A  1 
1253O  1 
00006  1 

36130  0 
77745  1 

67763  1 

5OO6I  0 

C:  02444  1 
377AO  0 
Ci  26003  0 

11400  0 


37750 

24002 

12043 


26047 

^006A 

4OOOO 

00011 

70365 

00002 

5AO7I 


60061  0 
50150  0 
30124  0 
30145  1 

02705  1 
02504  1 
37754  0 
00006  1 

77757  1 
5A064  1 
12653  1 
62450  1 

7OO7I  0 
5AO7O  1 
10000  0 
53401  1 

Ci  26003  0 
60062  0 
12610  0 

12643  0 

12621  1 
677A5  0 
56071  1 
77755  0 

lOOOO  0 
40365  0 

47-7A1  1 


13,2730 


12733  0 


47755  0 


54072  0 


5OO7I  1 


10367  1 


12740  1 


13,2740  37761  0 50071  1 
13,2750  30072  1 50071  1 
13,2760  37755  1 02763  1 
13.2770  13001  1 12775  1 


56367  0 

05567  0 

40072  0 

50064  0 

2615A  0 

157A5  0 

54367  1 

15745  0 

36301  0 

12763  0 

3775't  0 

12763  0 

37761  0 

00004  0 

54071  0 

50000  1 

1036?  1 

13005  0 

50071  1 

5A367  1 

12043  0 

10000  0 

13005  0 

24123  1 
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oCTal  listing  qF  Paragraph  * 076*  wit+  rahity  bit  in  binary  aT  the  right  qf  Each  wqRds  denotes  unused  fixed  memory. 

ALL  VALID  WORDS  ARe  BASIC  INSTRUCTIONS  E^'^ePT  THOSe  MARKpO  « I ..  ( INTeRP^ETIVe  OPeRATOR  WORDS)  OR  <iC<t  (CONSTANTS). 


13.3000 

12772 

0 

05253 

0 

50071 

1 

54367 

1 

15563 

0 

06000 

1 

Ci 

01210 

0 

Ci 

00014 

1 

13.3010 

Ci  00050 

1 

C;  00070 

0 

c; 

70000 

0 

C; 

77500 

1 

C; 

77477 

0 

C; 

OOO74 

1 

C; 

21450 

0 

00004 

0 

13.3020 

5A071 

0 

10373 

1 

03024 

1 

03027 

1 

O4744 

1 

Ci 

00105 

0 

05605 

1 

10431 

U 

13.3030 

030A3 

0 

IO5O5 

0 

03043 

0 

10561 

1 

O3O43 

0 

10635 

0 

03043 

0 

IO7II 

1 

1 

Ci 

01207 

67754 

50373 

n 

13. 30A0 

030A3 

0 

0^000 

i 

0 

0 

54373 

1 

37761 

0 

5^37^ 

0 

V 

13.3050 

53777 

0 

30071 

1 

26373 

1 

35671 

1 

05523 

0 

C! 

03066 

1 

Ci 

26003 

0 

02043 

1 

A 

10000 

54OOO 

A 

05237 

54374 

n 

13.3060  ■ 

37761 

0 

56373 

u 

0 

pUUOO 

1 

U 

1 

37761 

0 

V 

13.3070 

377A0 

0 

70373 

1 

10000 

0 

03102 

1 

47743 

1 

70373 

1 

67743 

0 

54373 

1 

13.3100 

33A27 

0 

03103 

0 

33503 

1 

04646 

1 

04611 

0 

04464 

0 

03067 

0 

03067 

0 

13.3110 

377AA 

1 

70373 

1 

10000 

0 

03115 

1 

03121 

0 

37743 

0 

7O373 

1 

10000 

0 

13.3120 

03127 

0 

04744 

1 

Ci 

00111 

0 

45661 

1 

70373 

1 

54373 

1 

03066 

1 

47742 

0 

13.3130 

70373 

1 

67742 

1 

54373 

1 

33501 

0 

04646 

1 

04464 

0 

03133 

0 

03133 

0 

13.31A0 

A6301 

1 

7O374 

0 

10000 

0 

03133 

0 

O3I47 

0 

03146 

1 

03133 

0 

36301 

0 

13.3150 

7O37A 

0 

10000 

0 

03154 

1 

03133 

0 

35360 

1 

70373 

1 

54002 

1 

5O374 

1 

13.3160 

3U71 

1 

50002 

0 

54011 

0 

50374 

1 

31466 

1 

50002 

0 

54010 

1 

31470 

0 

13.3170 

00006 

1 

50374 

1 

21466 

0 

■ 50002 

0 

54OI2 

0 

37740 

0 

7O373 

1 

10000 

0 

13.3200 

03220 

1 

03202 

1 

33502 

0 

04646 

1 

04464 

0 

03202 

1 

03202 

1 

35360 

1 

13.3210 

7O373 

1 

54002 

1 

30342 

1 

50002 

0 

54OO3 

0 

30343 

0 

50002 

0 

54005 

0 

13.3220 

35360 

1 

70373 

1 

54373 

1 

00004 

0 

37755 

1 

05701 

1 

Ci 

03231 

1 

C: 

26003 

0 

13.3230 

05605 

1 

37755 

1 

12731 

1 

54016 

1 

30033 

1 

54065 

0 

30034 

0 

54067 

1 

13.32AO 

3OO32 

0 

54071 

0 

00006 

1 

30025 

0 

52064 

1 

56002 

0 

54012 

0 

33477 

0 

13.3250 

00006 

1 

02016 

1 

10000 

0 

03255 

0 

03305 

1 

37742 

1 

70373 

1 

10000 

0 

13.3260 

05751 

1 

10373 

1 

03266 

0 

04744 

1 

C5 

00112 

0 

05751 

1 

37751 

0 

00006 

1 

13.3270 

02016 

1 

10000 

0 

03433 

0 

37752 

0 

00006 

1 

02016 

1 

10000 

0 

03323 

0 

I3.33OO 

37753 

1 

00006 

1 

02016 

1 

10000 

0 

03317 

1 

33500 

1 

O0006 

1 

02016 

1 

13.3310 

00006 

1 

13314 

0 

05243 

1 

Cj 

22714 

0 

04744 

1 

Ci 

00113 

1 

05751 

1 

37761 

0 

13.3320 

5A061 

1 

37744 

1 

03326 

0 

37755 

1 

54061 

1 

37743 

0 

54374 

0 

70373 

1 

13.3330 

10000 

0 

03333 

1 

03336 

1 

04744 

1 

c: 

00114 

0 

03367 

0 

35360 

1 

7O373 

1 

1 

30064 

50062 

52001 

30062 

26061 

30065 

1 

1 3 . 33A0 

54062 

1 

00006 

jl 

0 

0 

1 

0 

1 

i 

13.3350 

50061 

0 

54002 

1 

30067 

0 

50061 

0 

54004 

1 

30071 

1 

|006l 

0 

54006 

u 

13.3360 

37741 

1 

60374 

1 

40000 

0 

70373 

1 

60374 

1 

54373 

1 

03367 

0 

37761 

0 

13.3370 

54073 

1 

37743 

0 

70373 

1 

10000 

0 

03377 

1 

37746 

0 

54073 

1 

37744 

1 
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octal  listing  qF  Paragraph  # 077»  withi  rarity  bit  in  binary  at  the  right  oF  each  wqRd;  denotes  unused  fixed 
ALL  VALID  WORDS  ARe  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MAR<eD  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS) 


13I3AOO  7O373  1 10000  0 O3AO5  0 377A7  I 26O73  1 35671  1 05523  0 C 

I3»34l0  C;  26003  0 30073  0 5006A  0 5A1AA  1 05751  1 lOUA  1 03A21  0 

13,3a20  03A23  1 33505  I 601A4  0 5A113  0 30327  1 5Al54  0 0AA36  1 C 

13,3A30  3015A  1 5^32?  0 05605  1 377A0  0 70373  1 10000  0 03AAA  0 


13,3AA0  70373  1 10000  0 03A66  0 

13,3A50  0A7A4  1 C;  OOII5  I 03A66  0 

13*3A60  lOOOO  0 03A66  0 A037A  0 

13*3A70  56373  0 777A0  I 10000  0 

I3t3500  C:  OOlAO.  1 CJ  02U3  0 Cl  02AA2  1 
I3,35l0  5A012  0 . OA57A  0 3A5A5  1 

13,3520  Ci  02002  1 Cl  10000  0 30073  0 

13,3530  5A012  0 0457A  0 37761  0 


O345O  0 35650  1 7O373  1 lOOOO  0 

477A1  0 70373  1 677A1  1 56373  0 

70373  1 54373  1 03367  0 45650  0 

03367  0 37743  0 26373  1 0336 T 0 C 

C;  05300  1 c:  02130  1 C!  05000  1 ,;4016  1 

00006  1 02015  I 54O73  1 35226  1 

50064  0 54144  1 05751  1 15AOI6  1 

56045  0 54O73  1 37753  1 00006  1 


13,35A0  34545  1 
13,3550  03620  0 
13,3560  10000  0 
13,3570  37753  1 


7OO73  i 56073  0 
03611  I 7A545  0 
03570  0 Ci  00022  I 

7OO75  I 10000  0 


56021  1 55O76  0 
40000  0 03620  0 
03570  0 47753  0 
05751  1 56073  0 


03611  1 74545  0 
03605  1 43562  1 
7OO75  1 54075  1 
03515  0 03605  1 


13,3600  70075  1 67753  I 54075  1 05751  1 05751  1 57076  1 60000  1 

13,3610  00002  0 40021  0 40021  0 40021  0 40021  0 40021  0 4OOOO  0 


13,3620 

6OO73  0 

10000  0 

03576  0 

13,3630 

CKSM  70557  1 

g 

g 

13*3640 

g 

g 

g 

13*3650 

g 

g 

g 

1 3 * 3660 

g 

g 

g 

13*3670 

g 

g 

g 

13*3700 

g 

g 

g 

13*3710 

g 

g 

g 

13*3720 

13*3730 

g 

g 

g 

g 

g 

g 

77740  1 

03576  0 

00002  0 

Cl  03626  0 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

13,3740  e @ g @ @ e § 

13,3750  @ @ @ @ @ @ g 

13,3760  e § g e g @ e 

13,3770  g g g g g g g 


MEMqRY, 


: O3415  1 
33504  0 

; 05100  0 
37744  1 

03453  0 
77741  0 
70373  I 
j 00034  0 

56002  0 
05523  0 

56002  0 
05011  1 

63623  0 
60073  0 
03574  1 

47753  0 

54021  0 
00002  0 

: 03627  I 
g 

g 

g 

g 

g 

g 

g 

g 

g 

g 
' g 
g 
g 


^BB95^A  YJL  system  FOR  AGCi  NeW  PRqGRA'I  S^ePatIN  BY  e^UeS 
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Octal  listing  oe  paragraph  0 xoo*  wUH'  parity  bit  in  binary  at  the  right  op  each  word;  "e"  denotes  uNuseq  fixed  memory. 


ALL  VALID  WORDS  ARp  BASIC  INSTRUCTIONS  eX'-E^T  tHOSe  MARKpD  "I"  ( I NTeRPReT I Vp  OPpRATOR  WORDS)  OR  "C"  (CONStANtS) . 


U.2000 

C: 

37755 

1 

55512 

1 

n 

05224 

0 

Cl 

26000 

0 

06103 

0 

1 ; 

77624 

1 

c; 

30532 

0 

I : 

77624 

1 

1 A f 20 1 0 

30325 

0 

1 ; 

450 14 

C I 

00065 

1 

C ; 

3O4O7 

1 

1 1 

77776 

1 

33657 

0 

04646 

1 

04464 

U 

U.2020 

12747 

0 

12015 

0 

56337 

0 

55544 

1 

10340 

1 

12762 

1 

02600 

0 

02503 

0 

Ut2030 

02135 

1 

05224 

0 

Ci 

26762 

0 

12747 

0 

02247 

1 

02741 

1 

02731 

0 

05224 

0 

U«20A0 

c: 

26251 

0 

05224 

0 

Cl 

26762 

0 

12747 

0 

02135 

1 

04713 

0 

02263 

1 

05224 

0 

U.2O5O 

c: 

30424 

0 

11512 

1 

12065 

1 

12047 

1 

I27A7 

0 

55512 

1 

n0004 

0 

35662 

0 

03064 

n 

Cl 

30005 

00003 

O5OI5 

00003 

1 

14 .2060 

05534 

0 

C 1 

V 

1 

1 

02047 

U 

0 

52145 

0 

i 

14,2070 

37761 

0 

54037 

1 

54040 

1 

54041 

0 

55551 

0 

55537 

0 

02456 

1 

00004 

0 

14,2100 

3367-0 

0 

O57OI 

1 

Cl 

02106 

1 

Cl 

30005 

1 

32134 

0 

05563 

1 

32134 

0 

05567 

0 

14,2110 

O57A5 

1' 

31542 

0 

55541 

1 

05224 

0 

C! 

5O773 

1 

00003 

1 

02456 

1 

3I543 

1 

14,2120 

55541 

1 

05224 

0 

d 

50773 

1 

00003 

1 

02456 

1 

00004 

0 

33667 

0 

O57OI 

1 

. 14,2130 

C: 

02106 

1 

Cl 

30005 

1 

32134 

0 

05563 

1 

c; 

30111 

0 

00006 

1 

23546 

1 

05224 

0 

1A,21Ao 

C! 

27060 

1 

37755 

1 

54337 

1 

33653 

1 

04646 

1 

37761 

0 

0522^* 

0 

Cl 

27017 

1 

14,2150 

05224 

0 

C| 

26760 

1 

127A7 

0 

00006 

1 

50373 

0 

30001 

0 

53565 

1 

02242 

1 

14,2160 

O6IO3 

0 

II 

45I4O 

0 

Cl 

00373 

0 

Cl 

33161 

1 

I : 

45OI4 

0 

Cl 

00305 

1 

Cl 

,0170 

1 

C: 

32622 

0 

14,2170 

Cl 

02445 

0 

Cl 

02601 

1 

15 

77776 

1 

05224 

0 

Cl 

27O6O 

1 

37754 

0 

5A337 

1 

33653 

1 

14,2200 

04646 

1 

37761 

0 

0522^ 

0 

Cl 

27017 

1 

37744 

1 

70074 

0 

lOOOO 

0 

12215 

1 

14,2210 

05224 

0 

Cl 

30424 

0 

IO37O 

1 

12216 

1 

12210 

1 

12216 

1 

05224 

0 

C: 

26760 

1 

14,2220 

12747 

0 

02242 

1 

06103 

0 

1 1 

45 1 40 

0 

C! 

00373 

0 

Cl 

33161 

1 

1 1 

45014 

0 

Cl 

00205 

0 

14,2230 

Cl 

30232 

1 

Cl 

32622 

0 

Cl 

02453 

1 

Cl 

02607 

1 

I ! 

77624 

1 

C! 

30350 

1 

1 1 

77624 

1 

C: 

33006 

1 

14,22^0 

1 1 

77776 

1 

01546 

1 

37754 

0 

60373 

0 

50110 

1 

54050 

0 

00002 

0 

00006 

1 

14,2250 

23546 

1 

06103 

0 

11 

77624 

1 

c: 

32722 

1 

I I 

77776 

1 

05224 

0 

Ci 

26065 

0 

05224 

0 

14,2260 

Cl 

26762 

0 

12747 

0 

015A6 

1 

00006 

1 

23546 

1 

06103 

0 

1 1 

6A375 

1 

Cl 

02401 

0 

14,2270 

C! 

02445 

0 

I! 

43172 

1 

Cl 

00345 

0 

Cl 

30276 

1 

Cl 

34041 

0 

Cl 

32622 

0 

C! 

26423 

0 

Cl 

O24O7 

0 

14,2300 

1 I 

76521 

0 

Cl 

02445 

0 

n 

7761A 

1 

Cl 

00345 

0 

Cl 

30307 

0 

Ci 

34041 

0 

Cl 

32622 

0 

C: 

26431 

0 

14,2310 

Cl 

02423 

0 

1 1 

76435 

1 

Cl 

02431 

0 

C; 

36437 

1 

c: 

32472 

1 

1 1 

47I7O 

1 

C; 

02500 

0 

C: 

33674 

1 

14,2320 

I! 

77776 

1 

05224 

0 

Cl 

26762 

0 

12747 

0 

01546 

1 

1 1 

77776 

1 

33662 

0 

55777 

0 

14,2330 

33700 

0 

05224 

0 

Cl 

51240 

0 

37740 

0 

55400 

0 

06103 

0 

1 1 

73545 

1 

Cl 

02507 

1 

14,2340 

Cl 

02^11 

1 

Cl 

16'*21 

1 

Cl 

02507 

1 

1 1 

77746 

1 

C! 

02^13 

0 

1 1 

77676 

0 

Cl 

024i7 

1 

I : 

77616 

0 

14,2350 

1 1 

77170 

1 

C; 

00002 

0 

Cl 

00014 

1 

II 

77731 

1 

C: 

00052 

0 

Ci 

00006 

1 

I : 

60533 

1 

Cj 

02557 

1 

14,2360 

Cl 

00001 

0 

I! 

77756 

0 

c» 

10023 

1 

1 1 

77745 

1 

c: 

00001 

0 

1: 

41546 

0 

1 1 

47133 

0 

Cl 

02556 

0 

14,2370 

C! 

33524 

1 

Cl 

00003 

1 

1 1 

41356 

1 

Cl 

00001 

0 

1 1 

77752 

1 

Cl 

10027 

0 

1 1 

77745 

1 

C: 

00003 

1 

488954a  YJL  system  FOr  AGc:  nEW  PrO^rI^X  5HEPAT1N  BY  EYuEs 
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octal  listing  oe  paragraph  0 101,  wIthi  sanity  bit  in  binary  at  the  right  of  each  v<oro;  I'gti  Denotes  unused  fixed 
all  VALjD  words  Are  BASiC  iNsTrUCTjONs  EXI-EPT  THOsE  MArXeD  "i"  ( iNTErPrETiVE  Operator  wOrDS)  Or  "C"  (CONSTANTS) 


14*2400  l;  41346  0 l!  57552  1 
14,2410  Ci  33152  1 C;  02511  0 
14,2420  l:  77634  0 Ci  33521  1 
14*2430  Cl  33521  1 Ci  02562  1 


CI  10025  1 li  6II7O  0 Cl  00000 
I»  57546  1 II  73525  1 Ci  02511 
C*  02565  0 li  77616  0 05253 
II  54225  0 Cl  02565  0 Cl  20212 


1 

Cl  30356 
11  74266 

1 

I 1 

77616 

0 

I 

0 

0 

C 1 

3I7O4 

0 

c 

0 

55547 

1 

06103 

0 

I 

1 

11  64361 

1 

Cl 

02514 

0 

c 

14*2440  II  77655  1 Cl  02772  1 
14*2450  Ii  77776  1 05224  0 
14,2460  O6IO3  0 Ii  54340  I 
14,2470  Ii  77776  1 57551  1 

14,2500  36301  0 2753?  0 
14,2510  54341  0 33654  0 
14,2520  12747  0 52340  1 
14,2530  12507  0 01546  I 

14,2540  56144  0 54337  1 
14,2550  Cl  33524  1 Cl  0250?  1 
14,2560  51545  1 30000  1 
14,2570  12560  1 51545  1 


CI  16772  1 Ci  02562  1 Cl  02565 

CI  26762  0 12747  0 31547 

ci  02537  1 Cl  2020<,  0 I;  47OO5 

51537  1 55572  1 41537 

01546  1 00006  1 2^546 

04646  1 5I55O  0 53554 

51550  0 53554  0 11550 

II  62545  1 Ci  02511  0 Cl  14341 

02556  0 Ci  00661  0 12747 

H 60535  1 Ci  00341  1 Cl  02511 

04433  1 12575  0 04611 

00001  0 51545  1 00002 


0 II  47170  1 Ci  02771  1 C 

0 15246  0 00006  1 

1 Cl  31702  0 Ci  33565  1 C 

0 63666  1 00006  1 

1 37755  1 22007  0 

0 52340  1 n2556  0 C 

1 12531  0 37754  0 

1 Ci  02507  1 II  77434  1 C 

0 06103  0 II  47135  0 C 

0 II  77616  0 00006  1 

0 04464  0 I257I  1 

0 32577  0 04643  1 C 


14,2600 

14,2610 

14,2620 

14,2630 

14,2640 

14,2650 

14,2660 

14,2670 

14,2700 

14,2710 

14,2720 


00006  1 
12656  1 
Ii  57575  1 

37761  0 


Cl  02407  0 
II  77776  1 
50110  1 
50110  1 


06103  0 
31546  1 
CI  02407  0 


23546  1 

12710  1 

Ci  02401  0 
55542  1 


77715  1 
37761  0 
54050  0 
54024  0 


i:  45034  1 

55551  0 
ll  76435  1 


51544  0 

37755  1 

II  77715  1 

37755  1 

CI  02415  0 
55542  1 
33660  1 
30401  1 

CI  33076  0 
02503  0 
CI  00015  0 


12604  0 

55542  1 
Ci  02415  0 

55543  0 


Cl  26401  0 
37754  0 
04646  1 
50110  1 


Cl  33110  1 
06103  0 
Cl  02401  0 


12747  0 
37754  0 
Cl  26401  0 

01546  1 


77626 

55543 

04464 


54020  1 

II  77634  0 
II  77624  1 
II  76435  1 


12612  1 
55543  0 
I I 77626  0 


Cl 


06103  0 

51362  1 

01546  1 

12747  0 

30402  1 


Cl  33076  0 
CI  30350  1 
II  77626  0 


12617  1 
01646  1 
C;  75362  1 

l;  63375  0 


77626 

37751 

12662 


5OIIO  1 

II  77776  1 
II  41575  0 
Cl  75362  1 


14,2730  01551  1 

14,2740  01546  1 

14,2750  67747  1 

14,2760  Ci  27O6C  1 

14,2770  CI  02423  0 CI 


00006  1 23546  1 

37750  1 70326  1 

40000  0 00004  0 

05604  0 06103  0 I I 

26445  0 CI  33144  0 Cl 


06103  0 II  77775  1 Cl 

00006  1 12746  1 

7OO74  0 54O74  0 

57575  1 Cl  33146  1 Cl 

02431  0 CI  02453  1 II 


33152  1 Cl  02772  1 I 

12747  0 00002  0 

04105  1 Cl  00000  1 

02437  0 CI  26461  0 C 

77776  1 4I544  I 


Memory, 


65345  0 
i 02514  0 
1 77634  0 
1 02401  0 

: 33674  i 
23546  1 
: 06571  1 
63125  1 

23550  0 
• 00661  0 
54001  1 
: 33567  0 

1 00340  0 
23545  1 

12573  0 

: 30560  1 

12635  1 
06103  0 
I 77776  I 

1 02401  0 

: 75370  1 
60110  1 
30400  0 

54022  0 
01546  1 

1 00007  0 

I 77776  1 

. 77776  1 

37746  0 
05224  0 
1 33150  0 
66301  0 


PAGEU53 


A8895^A  VJL  system  FOr  aGC i nEW  PrOGraM  S^EPaTin  BY  EYLEs  DEC  1^»  1966 

octal  listing  of  paragraph  0 102,  wItH'  rarity  bit  in  binary  at  THt  right  of  each  word;  Hgn  Denotes  unused  fixed  memory. 


All  valid  words  are  basic  instructions  except  those  marked  "I”  (interpretive  operator  WORDS)  Or  "C"  (CONSTANTS). 


U,3000 

00006 

1 

13003 

0 

13016 

1 

06103 

0 

I i 

57575 

1 

Ci 

02423 

0 

I i 

77715 

1 

Ci 

02437 

0 

U,3010 

Ci 

02423 

0 

Ci 

26445 

0 

IS 

77626 

0 

Ci 

75340 

1 

CI 

02461 

0 

I i 

77776 

1 

05224 

0 

Ci 

26762 

0 

U,3020 

12747 

0 

02600 

0 

0a713 

0 

02247 

1 

02741 

1 

05224 

0 

Ci 

26251 

0 

05224 

0 

U,3030 

C! 

26762 

0 

12747 

0 

30032 

0 

50110 

1 

54O24 

0 

30033 

1 

5OIIO 

1 

54020 

1 

IA,3oAo 

o 

o 

0 

50110 

1 

54022 

0 

37751 

0 

60110 

1 

50110 

1 

54050 

0 

02263 

1 

U,3050 

06103 

0 

I; 

77634 

0 

Ci 

33521 

1 

Ci 

02565 

0 

1 1 

77776 

1 

41512 

1 

67754 

0 

00006 

1 

U,3060 

13062 

1 

12051 

0 

05224 

0 

Ci 

47237 

1 

33676 

0 

55546 

0 

05224 

0 

Cl 

20247 

1 

H,3070 

05224 

0 

Ci 

22765 

0 

12526 

0 

05224 

0 

CI 

26756 

1 

15605 

0 

06103 

0 

1 1 

77I7O 

1 

lA,3iOO 

c: 

00000 

i 

Ci 

00006 

1 

I S 

7762A 

1 

Ci 

30353 

1 

I i 

64375 

1 

CI 

000l5 

0 

CI 

O2AOI 

0 

I : 

77772 

0 

U,3110 

C; 

34416 

0 

Ci 

20306 

0 

13117 

1 

05224 

0 

d 

26756 

1 

15605 

0 

1 5605 

0 

04744 

1 

U,3120 

C: 

00524 

1 

15605 

0 

47761 

1 

55512 

1 

12002 

0 

04633 

0 

37761 

0 

55537 

0 

U,3130 

51537 

1 

41674 

1 

51537 

1 

27702 

1 

33664 

0 

61537 

1 

10000 

0 

46301 

1 

U,31AO 

27537 

0 

13130 

1 

55537 

0 

06103 

0 

1 1 

70750 

1 

CI 

02537 

1 

Ci 

02701 

0 

1 1 

77625 

0 

U,3150 

c: 

02571 

0 

Ci 

06701 

1 

I! 

77776 

1 

41537 

0 

63665 

1 

10000 

0 

36301 

0 

27537 

0 

1A,3160 

13143 

0 

55550 

1 

36301 

0 

55537 

0 

06103 

0 

I ; 

77775 

1 

CI 

33152 

1 

Ci 

00031 

0 

1A,3170 

c: 

00037 

0 

i; 

77735 

0 

ci 

31662 

1 

CI 

00041 

1 

1 i 

77776 

1 

06103 

0 

I ! 

70750 

1 

C: 

02537 

1 

1A,3200 

C; 

02701 

0 

I ! 

41423 

1 

Ci 

02673 

1 

li 

42742 

0 

CI 

02673 

1 

CI 

06701 

1 

11 

43312 

0 

Ci 

00031 

0 

14,3210 

Ci 

20031 

1 

Ci 

02701 

0 

I ; 

63412 

0 

1 ! 

77615 

0 

Ci 

00033 

1 

Ci 

00033 

1 

1 1 

77776 

1 

31550 

0 

14,3220 

61537 

1 

40000 

0 

63664 

0 

10000 

0 

36276 

1 

27537 

0 

13175 

0 

61550 

0 

14,3230 

55537 

0 

06103 

0 

I i 

66740 

1 

Ci 

02537 

1 

Ci 

02604 

1 

Ci 

00043 

0 

II 

77745 

1 

I ! 

54206 

1 

14,3240 

Ci 

20211 

1 

I i 

43265 

1 

Ci 

00043 

0 

Ci 

OOO35 

1 

C! 

I4O35 

1 

1 ; 

55261 

1 

CI 

7O2O7 

0 

Ci 

00043 

0 

14,3250 

I i 

42523 

0 

Ci 

02602 

1 

II 

77605 

1 

1 1 

77615 

0 

CI 

00037 

0 

Ci 

00037 

0 

1 1 

77776 

1 

41537 

0 

14,3260 

63663 

1 

61550 

0 

10000 

0 

36276 

1 

27537 

0 

13231 

0 

06103 

0 

I ! 

41345 

0 

14,3270 

Ci 

00031 

0 

Ci 

00037 

0 

li 

41325 

0 

CI 

00033 

1 

CI 

00035 

1 

I i 

77625 

0 

1 1 

63525 

0 

Ci 

00031 

0 

14,3300 

1 1 

65342 

1 

Ci 

00041 

1 

li 

41261 

1 

CI 

20212 

1 

CI 

00033 

1 

I i 

55225 

1 

1 1 

54205 

1 

C: 

31675 

1 

14,3310 

Ci 

20204 

0 

C; 

00343 

0 

I ! 

77776 

1 

31544 

0 

54344 

0 

33656 

1 

04646 

1 

04611 

0 

14,3320 

04464 

0 

12747 

0 

36301 

0 

55550 

1 

37761 

0 

13163 

1 

37735 

1 

55576 

0 

14,3330 

37761 

0 

55577 

1 

55575 

0 

03335 

1 

25577 

0 

51577 

0 

3334O 

0 

15230 

1 

14,3340 

Ci 

31354 

1 

Ci 

31372 

0 

Cl 

31400 

1 

CI 

31412 

1 

CI 

31424 

1 

CI 

31451 

0 

CI 

31526 

1 

Ci 

31553 

0 

14,3350 

Ci 

30747 

0 

Cl 

31456 

1 

Cl 

31531 

1 

Ci 

31556 

0 

37760 

1 

54337 

1 

34553 

0 

54340 

1 

14,3360 

00006 

1 

51575 

1 

01005 

0 

33645 

0 

04646 

1 

33652 

0 

04646 

1 

04464 

0 

14,3370 

02747 

1 

03334 

0 

25575 

1 

24337 

0 

37761 

0 

00006 

1 

01005 

0 

03356 

1 

PAGEllS'* 


A8895AA  YJL  SYSTEM  FOR  AGC J NEW  PROGRAM  SMEPATIN  BY  EYLES 


DEC  U,  1966 


octal  listing  of  Paragraph  » 103*  with,  parity  bit  in  binary  aT  the  right  qP  each  woRdi  ’’e"  denotes  unused  fixed 

ALL  VALID  WORDS  ARe  BASIC  INSTRUCTIONS  EXLePT  THOSE  MARXeO  "I''  ( 1 NJeRPRET I VE  OPERATOR  WORDS)  OR  "C  ICONSTANjS) 


UOAOO  3a517  0 54337 
14.3A10  01006  0 03363 
14*3A20  5A340  1 00006 
U|3430  SA337  1 5A340 

U,3AA0  C5  30005  I 00003 
U|3450  0333A  0 37761 
U»3A60  37747  1 03A35 
U,3470  11575  0 O35O4 

14,3500  O57OI  1 C;  03462 
1A,3510  3157A  0 ' 55576 

14,3520  O5OI4  1 37750 
U,3530  05563  1 37761 

14,35A0  05701  1 C!  03506 
1A,3550  37761  0 55576 
U,3560  3775A  0 00006 
U,3570  06103  0 I:  A7375 


1 35226  1 54340  1 

1 34557  1 5A337  1 

1 05012  1 03363  1 

1 55575  0 37755  1 

1 33652  0 046A6  1 

0 5A055  0 33351  0 

0 11576  0 03470  1 

0 3A552  1 5AO55  0 

1 C!  30005  1 057A5  1 

0 05567.  0 057A5  1 

1 O57OI  1 C!  03506  1 Ci 

0 55575  0 A7752  1 

1 C<  30005  1 00003  1 

0 0333A  0 33353  1 

1 O5OIA  1 03536  1 

0 Ci  02601  1 C:  02607  1 i: 


00006  1 05011  1 37761  0 
A5226  0 00006  1 03011  1 
43650  0 00006  1 O3012  1 
55576  0 00004  0 05701  1 

04A6A  0 O27A7  1 37761  0 
5557A  1 05563  1 37735  1 
3157A  0 55576  0 05567  0 
37752  0 00006  1 O5OIA  1 

44552  0 03473  1 II576  0 

336A6  0 5A060  0 37753  1 

30005  1 057A5  1 33352  0 
00006  1 03014  1 00004  0 

33652  0 04646  1 04464  0 
5557A  1 05563  1 37755  1 
06103  0 l:  77414  0 CS  00065  1 
77646  0 C;  24023  0 Ci  02601  1 


C 


I 


14,3600 

Ci  02607 

1 

Ci  34021 

0 

Cl 

32543 

1 

li 

77634 

0 

Ci 

33567 

0 

Ci 

00025 

0 

li 

77776 

1 

14,3610 

60110 

1 

54146 

0 

33655 

1 

04646 

1 

12747 

0 

00004 

0 

37761 

0 

14,3620 

33644 

1 

54003 

0 

22007 

0 

50000 

1 

23401 

0 

67754 

0 

26003 

0 

14,3630 

10000 

0 

13622 

0 

10003 

0 

13636 

0 

05243 

1 

Ci 

02000 

0 

00003 

1 

14,3640 

54347 

0 

00004 

0 

47755 

0 

13622 

0 

Ci 

00027 

1 

Ci 

00430 

0 

Ci 

52525 

1 

14,3650 

Ci  37400 

1 

Ci  00130 

0 

Ci 

03300 

1 

Ci 

00130 

0 

Ci 

00530 

1 

Ci 

00603 

1 

Ci 

00666 

1 

14,3660 

Ci  02522 

0 

Ci  00013 

0 

Cl 

00021 

1 

Ci 

OOO74 

1 

Ci 

OOO77 

1 

Ci 

00105 

0 

Ci 

00110 

1 

14,3670 

Ci  13560 

0 

Ci  01500 

0 

cl 

OI57O 

1 

Ci 

02570 

1 

Ci 

00322 

1 

Ci 

14366 

1 

Ci 

03O73 

0 

1 A ..  i ^ An 

At  A 4 A A n 

1 

Ci  2^365 

cl 

30244 

Ci 

07623 

IH , J f UO 

Ci  01400 

1 

0 

1 

C i 

26552 

1 

0522^ 

0 

C i 

26762 

0 

14,3710 

02731 

0 

06103 

0 

11 

77624 

1 

Ci 

30407 

1 

I i 

77776 

1 

31617 

0 

65355 

1 

14,3720 

00006 

1 

13724 

1 

37754 

0 

03725 

1 

37755 

1 

55672 

1 

05224 

0 

14,3730 

Ci  03730 

0 

Ci  03731 

1 

C<SH 

30104 

1 

g 

g 

g 

g 

c 

c 

c 

c 


c 


14,3740  @ @ @ g e g @ 

14,3750  g g g g g g g 

14,3760  g g g g g g g 

14,3770  g g g g g g g 


MEMORY. 


00006  1 
33650  1 
37761  0 
■ 03462  1 

55576  0 
55575  0 

05745  1 
37750  1 

03514  1 
00006  1 

55574  I 
37755  I 

02747  1 

55575  0 
02135  1 

i 77641  1 

33677  I 
54026  1 

74553  1 

37761  0 

i 70707  0 

• 02430  1 
: 05670  0 
: 00024  1 

12747  0 
55616  0 

: 50547  I 

g 


g 

g 

g 

g 


48895'tA  YJL  SYSTEM  ^0f<  AGC:  NeW  PKO^SAM  SMePATIN  BY  eYLeS 


Dec  1,,  1966 


PACeIISS 


Octal  listing  oe  paragraph  0 ioa,  wIth,  parity  bit  in  binary  at  The  right  of  each  woRd;  "e"  denotes  uNused  fixed  memory. 


ALL  VALID 

WORDS  are 

Basic 

instructions 

EXCEPT  those  MaR<eD  "I" 

(interpretive 

operator 

: WORDS)  OR 

hC 

n (Constants). 

15*2000 

c: 

00437 

1 

Ci 

00007 

0 

C*  00007 

0 

Ci 

00007 

0 

Ci 

00007 

0 

Cl 

00007 

0 

Cl 

0000  J 

0 

Cl  00007 

0 

15*2010 

C; 

00007 

0 

Ci 

00007 

0 

Ci  00007 

0 

Ci 

00007 

0 

Cl 

00007 

0 

Cl 

00007 

0 

C| 

n0007 

0 

Cl  00007 

0 

15*2020 

Ci 

00007 

0 

Ci 

00007 

0 

Cl  00007 

0 

Ci 

00007 

0 

Cl 

00007 

0 

Cl 

00007 

0 

Cl 

00007 

0 

Ci  00007 

0 

15*2030 

c: 

00007 

0 

Ci 

00007 

0 

Ci  00007 

0 

Ci 

00007 

0 

Cl 

00007 

0 

Cl 

00007 

0 

Ci 

00007 

0 

Ci  00007 

0 

15*20A0 

c: 

00007 

0 

Ci 

00007 

0 

Ci  00007 

0 

Ci 

00007 

0 

Cl 

00007 

0 

Cl 

00007 

0 

Cl 

00007 

0 

Ci  00007 

0 

15*2050 

Ci 

00007 

0 

Ci 

00007 

0 

Ci  00007 

0 

Ci 

00007 

0 

Cl 

00007 

0 

Cl 

00007 

0 

C| 

00007 

0 

C:  00007 

0 

15*2060 

Ci 

00007 

0 

C! 

00007 

0 

Ci  00007 

0 

Ci 

00007 

0 

Cl 

00007 

0 

Cl 

00007 

0 

Cl 

00007 

0 

Cl  00007 

0 

15*2070 

C! 

00007 

-0 

C! 

00007 

0 

Ci  00007 

0 

Ci 

00007 

0 

Cl 

00007 

0 

Cl 

00007 

0 

Cl 

00007 

0 

Cl  00007 

0 

15*2100 

Ci 

00007 

0 

Ci 

00007 

0 

Ci  OOOOT 

0 

Ci 

00007 

0 

Cl 

00007 

0 

Cl 

00007 

0 

Cl 

OOOOT 

0 

Cl  OOOOT 

0 

15*2110 

Ci 

00007 

0 

Ci 

00007 

0 

Ci  00007 

0 

Cl 

00007 

0 

Ci 

00007 

0 

Cl 

00007 

0 

Cl 

00007 

0 

54016 

1 

15*2120 

00006 

1 

22012 

1 

51401 

0 

10000 

0 

02150 

1 

37747 

1 

00006 

1 

05013 

0 

15*2130 

32353 

0 

27400 

0 

02164 

0 

32351 

1 

02234 

0 

02270 

0 

02324 

0 

02344 

0 

15*21A0 

42230 

0 

27400 

0 

02164 

0 

32352 

1 

02234 

0 

02270 

0 

02324 

0 

12124 

0 

15*2150 

30411 

0 

55400 

0 

75356 

0 

00006 

1 

01034 

1 

47747 

0 

00006 

1 

03013 

0 

Q 

32000 

1226i 

23403 

37761 

54061 

1 

i 5 « 2 160 

00006 

1 

23401 

0 

1 

U0U06 

1 

1 

0 

i 

15*2170 

32232 

0 

54062 

1 

61400 

1 

00006 

1 

50000 

1 

50000 

1 

30001 

0 

5OO6I 

0 

15*2200 

53405 

0 

37754 

0 

26061 

1 

10062 

1 

12171 

0 

32231 

0 

55402 

1 

32233 

1 

15*2210 

55401 

1 

00006 

1 

51400 

1 

50013 

0 

30001 

0 

12256 

0 

11402 

1 

12221 

0 

15*2220 

01403 

1 

55402 

1 

60000 

1 

40000 

0 

00006 

1 

50000 

1 

3I43I 

0 

12256 

0 

15*2230 

Ci 

00014 

1 

Ci 

00013 

0 

Cl  00012 

1 

Ci 

02216 

0 

00006 

1 

23403 

1 

55402 

1 

67755 

1 

15*22A0 

40000 

0 

27400 

0 

32267 

0 

55401 

1 

31402 

0 

55402 

1 

61400 

1 

50000 

1 

15*2250 

30000 

1 

54003 

0 

74553 

1 

00006 

1 

50000 

1 

31401 

0 

00006 

1 

01034 

1 

15*2260 

30001 

0 

00006 

1 

01035 

0 

15751 

0 

11402 

1 

12245 

1 

01403 

1 

Cl  02264 

0 

15*2270 

00006 

1 

23403 

1 

32313 

1 

55401 

1 

36301 

0 

55402 

1 

00006 

1 

50000 

1 

15*2300 

52320 

1 

00000 

1 

54001 

1 

00006 

1 

51402 

0 

52314 

0 

00000 

1 

12256 

0 

15*2310 

11402 

1 

12275 

1 

01403 

1 

Ci 

02310 

1 

Cl 

00032 

0 

Ci 

00030 

1 

Cl 

00013 

0 

C|  00011 

1 

15*2320 

Ci 

OOO33 

1 

Ci 

OOO31 

0 

Ci  00014 

1 

Ci 

00012 

1 

00006 

1 

23403 

1 

32343 

1 

55401 

1 

15*2330 

37760 

1 

55402 

1 

60000 

1 

40000 

0 

00006 

1 

50000 

1 

30326 

0 

12256 

0 

l5*23A0 

II4O2 

1 

12331 

0 

0U03 

1 

Cl 

02340 

1 

00006 

1 

23401 

0 

00006 

1 

3OO25 

0 

15*2350 

12256 

0 

Ci 

00032 

0 

Ci  00032 

0 

Cl 

00102 

1 

Cl 

OOO76 

0 

Cl 

OOO7** 

1 

Cl 

03020 

0 

Cl  03016 

0 

15*2360 

Ci 

00033 

1 

Ci 

00031 

0 

Ci  02345 

1 

Cl 

02343 

1 

Cl 

02341 

0 

Cl 

02331 

1 

Cl 

02327 

0 

Cl  02325 

1 

15*2370 

Ci 

02337 

1 

Ci 

02335 

0 

Ci  02333 

0 

Cl 

02347 

0 

Cl 

00765 

0 

Cl 

01171 

1 

Cl 

01167 

0 

C|  01175 

0 

488954A  YJL  SYSTEM  FOR  AGCj  NEW  PROCjRAM  SMEPATIN  BY  EYLES 


DEC  13*  I966 


PAGE1156 


octal  listing  of  PARAGRAPH  * 105*  WItHi  ^A^ItY  BIt  IN  BINARY  AT  THe  RIGHT  OF  EACH  WORD!  DeNOteS  UNUSED  FIXeD 
ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EX^-EPT  THOSE  MARkeO  "I"  ( I NTeRPRET I VE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS) 


15*2A00 

iStZAlO 

16.2420 

15.2430 

15.2440 

15.2450 

15.2460 

15.2470 

15.2500 

I5.25IO 

I5.252O 

15.2530 


Ci  01173  0 

C;  00007  0 

C;  01614  0 
C;  00031  0 

c:  02311  0 

c;  00007  0 
Ci  OO4O3  0 
Ci  01012  0 

li  55476  1 
C;  34021  0 
Ci  02427  1 

Ci  00027  1 


Ci  00007  0 
Ci  OOOO7  0 
C;  01612  0 
Ci  01360  0 

Ci  02307  1 
Ci  01142  1 
Ci  00767  1 
Ci  01010  1 

li  77656  1 
Ci  32543  1 
Ci  00033  1 
I!  77641  1 


d 01142  1 
Ci  00007  0 
Ci  01610  1 

Ci  02372  0 

Cl  02305  0 
Ci  01140  0 
Ci  00765  0 
II  71220  1 

Ci  14027  1 
Ci  16503  0 

II  45205  1 
Ci  02437  0 


Ci  01140  0 
Ci  00041  1 
Cj  00076  0 

Ci  03252  1 

Ci  02303  0 
Ci  01136  1 
Ci  01340  1 
Ci  OOO5I  0 

Ci  00027  1 
C;  02425  0 
Ci  02423  0 
Ci  24021  1 


15.25A0  Ci  32543  1 Ci  36501  0 Cl  00051  0 It  51545  1 
15.2550  li  72545  0 Cj  00021  1 li  75326  1 C;  00023  0 
15.2560  li  77736  0 Ci  14025  0 d 00021  1 li  77640  0 
15.2570  Ci  33142  0 Ci  00023  0 Ji  77625  0 Ci  00025  0 


15.2600  Ci  00264  1 li  77170  1 Cl  OOOOA  0 Ci  00000  1 
15.2610  Ci  00004  0 I;  77624  1 Ci  32646  1 li  77170  1 
15.2620  li  77650  1 Ci  OOO5I  0 it  A3020  1 Ci  OOO5I  0 

15.2630  li  77624  1 Ci  32646  1 li  77170  1 Ci  00002  0 


15.2640  Ci  00004  0 Ci  00000  1 li  77624  1 Ci  32646  1 
15.2650  Ci  00005  1 II  56034  0 cl  33524  1 Ci  OOO5O  1 
15.2660  CI  00037  0 Ci  04013  1 II  72403  0 Ci  77732  1 
15.2670  CI  00013  0 II  72403  0 Cl  00045  0 li  77614  1 


15.2700 

II  77743 

1 

Ci  OOOll 

1 

II 

72403 

0 

15.2710 

li  45415 

0 

CI  67732 

0 

1 1 

77743 

1 

15.2720 

li  43575 

1 

d 00041 

1 

1 1 

47375 

0 

Ci  00045  0 
Ci  00011  1 
Ci  02423  0 


15.2730  Ci  00051  0 Ci  24021  1 Cl  00001  0 li  77641  1 

15.2740  Ci  00001  0 li  50235  0 Ci  02423  0 C;  02407  0 
15.2750  Ci  02423  0 Ci  34023  1 Cl  32543  1 Ci  O25O5  0 
15.2760  li  50375  0 Ci  02415  0 Cl  00001  0 Ci  24021  1 
15.2770  Ci  26503  0 Ci  02501  1 II  77634  0 Ci  33573  0 


C!  01136 

CI  00037 
Ci  OOO74 
CI  02562 

CI  02301 
Ci  01134 
Ci  01022 
CI  02423 

II  77742 

I I 77742 
I!  77626 

Ci  00027 

C!  00023 

Ci  00025 

Ci  32567 

CI  00025 

II  77624 

d 00000 
CI  00064 

CI  00004 

I I 77650 

CI  00037 

II  40723 
CI  00344 

II  45415 
I I 72403 
CI  02407 

Cl  02431 

I I 77752 

II  45246 
Ci  02401 
Ci  34401 


1 Ci 

0 Cl 

1 Ci 

1 Ci 

1 CI 

0 Ci 

0 Ci 

0 II 

0 Ci 

0 Ci 

0 CI 

1 I i 

0 li 

0 II 

1 I ! 

0 II 

1 Ci 

1 Ci 

0 II 

0 I I 

1 Ci 

0 I I 

0 CI 

1 CI 

0 CI 

0 Ci 

0 I I 

0 CI 

1 Ci 

0 Ci 

0 II 

0 CI 


01134  0 
00100  0 
03020  0 
02323  1 

02277  1 
01132  0 
01020  1 
65325  0 

14023  0 

14023  0 
43756  1 
77641  1 

50025  0 
77616  0 
43545  1 
77616  0 

32646  1 
00002  0 
77170  1 

77624  I 

00051  0 
77746  1 
00011  1 
32710  0 

73732  0 
00045  0 
41456  0 

34023  1 

24021  1 
33160  0 
45441  1 

00051  0 


Cl  01132  0 
Cl  01364  1 
Ci  03016  0 
Ci  00365  1 

CI  02315  1 
Ci  n0407  1 
Ci  01016  1 

Ci  33152  1 

Ci  00033  1 

Ci  00027  1 
CI  32543  1 

CI  n243l  0 
Ci  33140  1 

1 1 72545  0 

Ci  00025  0 
II  43020  1 

II  77170  1 
li  77624  1 
Ci  00000  1 

Ci  32646  1 

I i 66660  1 
CI  04011  0 
CI  77732  1 
li  45421  1 

II  43575  1 
li  45425  0 
II  44O4I  1 

Ci  32543  1 

d 02407  0 
II  77644  1 

CI  43754  0 

II  77776  1 


C; 

Ci 

C: 

C 

c 

c 

c 

c 

I 

I 

c 

c 

c 

c 

I 

c 

c 

c 

c 

I 

c 

I 

I 

c 

c 

c 

c 

c 

1 

c 

c 


Memory. 


00007  0 
01362  1 

00033  1 
! 02313  I 

! 02321  0 
I OO4O5  0 
I 01014  0 
i 02427  1 

! 77742  0 
I 65205  0 
! 26505  0 
I 34023  1 

: 32556  0 
. 00023  0 

! 75345  1 
i 00051  0 

: OOOO2  0 
I 32646  1 
I 00002  0 

I 77170  1 

. 00050  1 

I 73545  1 

: 6A752  0 
I 67732  0 

: 00041  1 
I 73732  0 

: 02437  0 

i 26501  I 

• 77641  1 
I 32776  0 

: 32543  I 
06020  0 


^8895'»A  YJL  system  FOr  aGC!  nEW  PrOGrAM  SHEPaTiN  BY  EYLE5 
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octal  listing  of  paragraph  0 106.  ' 

WItH' 

rarity  bit  in 

binary  at 

THt 

right  of  each 

WORD 

•v  Hgtl 

Denotes  unuseo 

fixeo  Memory, 

all  VALiD 

words  Are 

BASIC 

instructions 

EXLEPT  those 

marked  ”1'' 

(interpretive 

Operator 

wOrDS)  Or 

"C"  (CONSTANTS). 

15,3000 

CS  00200 

0 

04744 

1 

c! 

00401 

1 

06103 

0 

I $ 

77650 

1 

CS 

32760 

1 

IS  66370 

0 

C:  02452 

0 

15,3010 

Cs  00051 

0 

Cs  02436 

1 

n 

A6773 

0 

Cs 

02461 

0 

cs 

02467 

0 

1 1 

77656 

1 

CS  06467 

1 

Is  77773 

1 

15,3020 

C:  02A61 

0 

l:  76433 

1 

c» 

02467 

0 

Cs 

06475 

1 

I s 

77700 

0 

Cs 

33012 

1 

IS  66l60 

0 

C;  00006 

1 

15,3030 

c:  00036 

1 

IS  66370 

0 

C5 

00022 

1 

Cl 

00051 

0 

cs 

00006 

1 

IS 

66374 

1 

CS  00006 

1 

C:  00052 

0 

l5,3oAo 

cs  00002 

0 

I!  76720 

0 

Cl 

00036 

1 

Cl 

OOOOl 

0 

1 1 

62757 

0 

cs 

75324 

0 

Cs  00007 

0 

I:  77757 

1 

15,3050 

Cs  75316 

1 

Cs  30031 

0 

cs 

00015 

0 

1 1 

53357 

0 

Cs 

75310 

1 

Is 

76455 

1 

Cs  00031 

0 

I:  77720 

1 

15,3060. 

cs  00036 

1 

Cs  06445 

1 

ll 

777OO 

0 

Cl 

33064 

0 

1 1 

77704 

1 

cs 

33041 

1 

IS  77775 

1 

Cs  02423 

0 

15,3070 

C:  26AA5 

0 

CS  02431 

0 

Cl 

26453 

1 

cs 

02437 

0 

cs 

02461 

0 

IS 

77616 

0 

53447 

0 

53453 

0 

15,3100 

- 53AA7 

0 

53451 

1 

53461 

1 

5345i 

1 

53457 

1 

53463 

0 

53457 

1 

l5ll5 

0 

15,3110 

Is  77220 

1 

C;  00014 

1 

Cl 

33150 

0 

Cs 

34041 

0 

Cs 

32576 

1 

Is 

76521 

0 

Cs  02445 

0 

C-  26401 

0 

15,3120 

CS  33146 

1 

CS  34041 

0 

d 

32576 

1 

1 1 

76521 

0 

cs 

02445 

0 

cs 

26407 

0 

CS  33144 

0 

C:  34041 

0 

15,3130 

Cs  32576 

1 

IS  76521 

0 

d 

02445 

0 

cs 

36415 

1 

cs 

00014 

1 

cs 

67777 

1 

CS  7777? 

0 

C:  05520 

0 

15,31A0 

CS  26075 

1 

Cl  20000 

0 

Cl 

00000 

1 

Cl 

00000 

1 

cs 

00000 

1 

cs 

00000 

1 

CS  00000 

1 

Cs  20000 

0 

15,3150 

C;  00000 

1 

Cs  00000 

1 

cs 

00000 

1 

Cs 

00000 

1 

Cs 

00000 

1 

Cs 

00000 

1 

Cs  ooooo 

1 

Cs  05252 

1 

15,3160 

Cs  25253 

1 

Is  66601 

0 

Cl 

OOOOl 

0 

Cs 

00013 

0 

I s 

41542 

1 

1 1 

47133 

0 

Cs  00004 

0 

Cs  33524 

1 

15,3170 

c:  00017 

1 

is  41415 

1 

1 1 

65346 

0 

1. 1 

41556 

1 

I s 

47I33 

0 

cs 

00006 

1 

cs  33524 

1 

Cs  00021 

1 

15 ,3200 

IS  52054 

1 

CS  33203 

0 

Cl 

33213 

1 

1 1 

53145 

1 

Cl 

00017 

1 

cs 

33210 

1 

IS  77650 

i 

Cs  33213 

1 

15,3210 

Is  52145 

0 

Cs  33152 

1 

Cl 

33220 

1 

I s 

45345 

1 

Cs 

00017 

1 

Cs 

00021 

1 

Is  77621 

i 

Cs  33305 

1 

15,3220 

IS  41405 

0 

CS  33303 

1 

15 

65346 

0 

1 1 

41556 

1 

1 1 

72405 

0 

cs 

OOOOl 

0 

CS  14001 

0 

Cs  00003 

1 

15,3230 

Is  45405 

1 

Ci  77774 

0 

1 5 

47133 

0 

C! 

00012 

1 

cs 

33524 

1 

I s 

73406 

1 

IS  71525 

0 

I:  41206 

0 

15,32^0 

Cs  OOOOl 

0 

I!  Ai325 

0 

Cl 

00005 

1 

Cs 

00007 

0 

1 1 

72415 

1 

I s 

77626 

0 

Cl  63736 

0 

I:  77605 

1 

15,3250 

C;  00005 

1 

Cs  14005 

1 

A 

1 1 

44205 

0 

Cs 

OOOOl 

0 

1 1 

66606 

1 

Cs 

OOOll 

1 

Is  41434 

1 

C;  33524 

1 

1 5 ,3260 

I ! 65346 

0 

I ! 77756 

u 

C 1 

OOOOl 

0 

1 1 

65205 

0 

cs 

OOOO5 

1 

C 1 

OOOO7 

0 

I S 43205 

1 

Cs  00003 

1 

15,3270 

I:  77712 

0 

Cl  14043 

0 

15 

45405 

1 

Cl 

63732 

1 

1 1 

77605 

1 

I s 

62421 

1 

CS  00045 

0 

Cs  2A045 

0 

15,3300 

Cs  00041 

1 

Is  77616 

0 

Cl 

02525 

1 

Cs 

12525 

0 

Cs 

37777 

1 

Cs 

37777 

1 

Is  40220 

0 

Cs  00035 

1 

15,3310 

c:  00001 

0 

IS  66740 

1 

Ci 

00050 

1 

Cl 

00011 

1 

I s 

77742 

0 

1 1 

71406 

0 

IS  73525 

i 

I S 66606 

1 

15,3320 

cs  00007 

0 

Is  41434 

1 

Cl 

33524 

1 

1 1 

65346 

0 

1 1 

41556 

1 

1 1 

65205 

0 

CS  OOOOl 

0 

Is  65205 

0 

15,3330 

Cs  00003 

1 

CS  OOOO5 

1 

II 

65205 

0 

Cl 

OOOOl 

0 

cs 

00005 

1 

IS 

41405 

0 

IS  47133 

0 

C:  OOOlO 

0 

15,33A0 

Cs  33524 

1 

Is  73406 

1 

II 

71525 

0 

I s 

41206 

0 

cs 

OOOOl 

0 

Is 

77752 

1 

CS  14041 

i 

Is  72A05 

0 

15,3350 

Cs  00003 

1 

Is  65276 

1 

Cl 

00017 

1 

1 1 

72405 

0 

Cs 

00007 

0 

Is 

72421 

0 

Cs  00015 

0 

Cs  14043 

0 

15,3360 

CS  00017 

1 

IS  72405 

0 

d 

00013 

0 

1 1 

72415 

1 

cs 

OOOll 

1 

1 1 

77676 

0 

CS  14045 

0 

Cs  00017 

1 

1;  72A05  0 C:  OOOll  I IJ  72A15  1 Ci  00013  0 Is  A1325  0 CS  00017  1 Cs  00015  0 Is  72^25  1 


15*3370 
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octal  listing  of  paragraph  * 107*  wItH'  parity  bit  in  binary  At  tHe  right  of  each  word?  "s"  Denotes  unused  fixed 
ALL  valid  words  ARe  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARkeO  ''I''  ( I NTeRPRET I vE  OPERATOR  WORDS)  OR  hC  (CONSTANTS) 


15.3400 

Ci  00007 

0 

Ci 

34025 

1 

Cl 

32622 

0 

15.3410 

I!  77720 
li  77650 

1 

Ci 

OOO5O 

1 

1 

Cl 

34041 

0 

1 5 ,3420 

1 

C i 

00035 

I • 

57545 

1 

15.3430 

Ci  14005 

1 

Ci 

33152 

1 

CI 

24043 

0 

Ci  24013 

0 

Ci 

00021 

1 

I i 

62120 

0 

Ci 

0005O 

1 

Ci  32622 

0 

I ! 

76435 

1 

Ci 

00013 

0 

1 : 

53476 

1 

Ci  00043 

0 

I i 

67401 

0 

Ci 

OOOOl 

0 

1 ! 

44206 

0 

Ci  00041 

1 

I i 

41056 

1 

Ci 

20346 

1 

Ci 

14041 

1 

15  *3AAo  I ! AAlAg  0 
15.3A50  C;  33U2  0 
15,3A60  Ci  33610  0 
15.3470  52426  0 


C!  00051  0 Cl  1A023  0 

Ci  24007  0 Cl  00005  1 

Ci  00424  0 1 1 77776  1 

52424  I 06103  0 


Ci  00045  0 li  77742  0 

li  77634  0 C{  33610  0 

4O4I3  0 77742  0 

I;  77650  1 Ci  OOO5I  0 


Ci  34021  0 Ci  32543  1 

Ci  24426  1 Ci  OOOOl  0 

10000  0 13472  1 

I i 47I35  0 Ci  00424  0 


15.3500  li  A1401  1 Ci  OOOOl  0 Jl  57556  0 Ci  l4o43  0 li  4i546  0 

15.3510  li  7IAO6  0.  li  72405  0 Ci  OOOOl  0 C;  14045  0 Ij  41356  1 


I!  47135  0 Ci  00A25  1 
l!  77752  1 C*  24041  1 


15.3520  li  776l6  0 
15.3530  477AO  1 


00006  1 30025  0 

54145  0 37761  0 


16533  0 10144  1 

56144  0 00006  1 


37761  0 13531  1 

777AO  1 20145  0 


15.3540  OOOO4  0 
I5.355O  30037  0 
15.3560  54145  0 
15.3570  37761  0 

15.3600  52150  1 
15.3610  036l7  1 
15.3620  20001  1 
15.3630  37736  1 


30033  1 54144  1 

54144  I 30040  0 

54150  1 54152  0 

54145  0 l6llA  1 

52145  0 03617  1 

52150  1 52145  0 

10000  0 67755  1 

26144  I 00002  0 


30034  0 54I47  1 

54147  1 30041  1 
47755  0 l6llA  1 
03617  1 52152  0 

54145  0 30151  1 
03617  1 54OOI  1 
13625  I 40000  0 
33646  0 54120  0 


30032  0 13555  0 
00003  1 54151  0 
07320  1 16115  0 
52145  0 03617  1 

54144  1 37755  1 
30147  0 16533  0 
54I44  1 00002  0 
3OI44  0 03647  1 


C 

c 

c 

c 

I 

I 

c 

c 

c 


15.3640  3OI47  0 03647  1 
15.3650  50120  1 10000  0 
15.3660  10000  0 67755  1 
15.3670  60132  1 50120  1 

15.3700  16115  0 05717  0 
I5.37IO  30132  1 54O7O  1 
15.3720  73753  1 03647  1 
15.3730  77740  1 10000  0 


24120  1 30151  1 03647 

67755  1 13657  1 67755 

13664  1 40000  0 54132 

54000  0 00002  0 5OIIO 

Cl  00062  0 37754  0 00006 

33752  1 56120  1 54O7I 

24120  1 30035  1 00006 

13735  1 13735  1 13735 


1 13563  0 Ci  00400  0 

1 67755  1 40000  0 

0 13671  0 50000  1 

1 30046  0 05224  0 C 

1 02012  0 00006  1 

0 30361  0 60000  1 

1 20007  1 05372  1 

1 67755  1 54061  1 


15.3740  00006  1 73753  1 00006  1 10061  1 03647  1 3OO7O  0 54132  0 

15.3750  54120  0 13701  0 Cl  00035  1 Ci  22755  0 Ci  03754  1 Ci  03755  0 CicSM  52360  0 

15.3760  e @ @ @ @ @ e 

15.3770  @ @ e g @ @ e 


Memory. 


OOOOl  0 
1 00041  i 
! 33142  0 
i 00041  I 

; 43206  1 
; 77634  0 
52424  I 

i 33524  1 

; 33524  1 
. 00041  I 

13530  0 
16535  0 

00004  0 
37761  0 
03617  1 
54146  0 

16114  1 
52145  0 
50000  1 

24120  1 

54132  0 
60132  I 
37736  I 
: 26361  1 

13701  0 

00006  I 
00006  I 
30362  0 


3OO7I  I 
g 

e 

g 


<i8895^A  YJL  SYSTEM  FOR  AGC:  NeW  PHO^^AM  S^ePAtIN  BY  e^I-eS 
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Octal  lI^tins  0(.  pasagRarh  # no,  wUhi  sanity  bit  in  binary  at  the  right  or  eAch  woRdi  '•§><  denotes  uNuSeo  fIxed  memory. 


ALL  VALID 

WORDS  are  I 

BASIC 

instructions  EX'-EPT  those 

marked  "I" 

(Interpretive 

operator 

WORDS)  OR 

"C 

" (CONSTANTS). 

16,2000 

35650 

1 

54001 

1 

22003 

1 

32075 

1 

55415 

1 

47747 

0 

7OO77 

0 

5A077 

0 

22003 

Q 

35650 

54001 

32076 

65415 

40077 

n 

1 6 1 20 1 0 

1 

1 

1 

22003 

1 

1 

1 

16,2020 

77747 

0 

26077 

0 

22003 

1 

00002 

0 

4OO77 

0 

77750 

0 

26077 

0 

00002 

0 

16,2030 

47750 

0 

70077 

0 

54077 

0 

00002 

0 

35650 

1 

56003 

1 

55207 

1 

40077 

0 

16,2040 

777A0 

1 

26077 

0 

00006 

1 

31417 

1 

52775 

0 

31421 

1 

5A776 

0 

00006 

1 

16,2050 

30034 

0 

52770 

0 

30032 

0 

5A766 

1 

31207 

0 

54003 

0 

00002 

0 

35650 

1 

1 

47740 

7OO77 

5477A 

1 

5A775 

f 1 

1 6 1 2060 

56003 

1 

552O7 

i 

1 

0 

54077 

0 

37761 

0 

U 

16,2070 

54776 

0 

54771 

1 

54772 

1 

5A773 

0 

12047 

1 

Ci 

00033 

1 

C; 

00707 

1 

22016 

0 

16,2100 

00006 

1 

22012 

1 

O5O4I 

1 

15751 

0 

37750 

1 

70365 

0 

lOOOO 

0 

12305 

1 

16,2110 

37752 

0 

67751 

0 

00006 

1 

02012 

0 

10000 

0 

12305 

1 

37744 

1 

00006 

i 

16,2120 

02030 

0 

10000 

0 

12305 

1 

00006 

1 

00031 

0 

40000 

0 

75226 

0 

00006 

1 

16,2130 

12305 

1 

37743 

0 

70077 

0 

00006 

1 

12305 

1 

00002 

0 

22016 

0 

00006 

1 

16,2140 

22012 

1 

02104 

0 

02057 

1 

05307 

0 

c: 

40057 

1 

37761 

0 

5AO3I 

1 

55610 

0 

16,2150 

55611 

1 

55463 

0 

5546A 

1 

55465 

0 

55A66 

0 

55A67 

1 

5547O 

1 

55416 

1 

1 6 , 2 1 60 

55417 

0 

55421 

0 

55002 

0 

55003 

1 

55473 

1 

55474 

0 

55007 

0 

55420 

i 

1 

55637 

55502 

55503 

30033 

1 

16,2170 

55422 

0 

55514 

1 

55636 

I 

0 

0 

1 

00006 

1 

i 

16,2200 

53A27 

0 

00006 

1 

30034 

0 

53431 

1 

32331 

1 

55455 

0 

32332 

1 

55456 

0 

16,2210 

00006 

1 

32343 

1 

536A7 

1 

00006 

1 

32345 

1 

53635 

1 

32340 

1 

05701 

1 

16,2220 

Cj 

03322 

1 

C; 

40006 

0 

37755 

1 

05701 

1 

C; 

02441 

1 

Ci 

54006 

0 

37755 

1 

05701 

1 

16,2230 

c: 

02452 

0 

c: 

54006 

0 

37755 

1 

05701 

1 

c; 

02463 

1 

Ci 

54OO6 

0 

32334 

1 

00006 

1 

16,2240 

71451 

1 

00006 

1 

71523 

0 

52062 

1 

00006 

1 

30062 

0 

00006 

1 

11A54 

1 

16,2250 

55533 

1 

52062 

1 

00006 

1 

11453 

0 

55531 

0 

00006 

1 

72335 

1 

55525 

0 

16,2260 

00006 

1 

70000 

0 

55526 

0 

31533 

0 

00006 

1 

72335 

1 

55527 

1 

00006 

1 

16,2270 

70000 

0 

55530 

1 

00006 

1 

32326 

1 

53572 

1 

00006 

1 

32324 

0 

53001 

0 

16,2300 

32327 

0 

54030 

0 

I575I 

0 

C: 

02136 

1 

Ci 

34OO6 

0 

00006 

1 

32304 

1 

53001 

0 

16,2310 

37761 

0 

00006 

1 

01005 

0 

00006 

1 

01006 

0 

42321 

1 

fi0006 

1 

03012 

1 

16,2320 

12300 

1 

c; 

O74OO 

1 Ci 

26501 

1 

c: 

02346 

1 

Ci 

34OO6 

0 

Ci 

03631 

0 

Ci 

34006 

0 

C: 

37766 

1 

16,2330 

C! 

00033 

1 

c; 

23712 

1 Ci 

257O5 

1 

C; 

12000 

1 

Ci 

02215 

0 

Ci 

23146 

0 

Ci 

1 l6A3 

0 

Ci 

00033 

1 

16,2340 

Ci 

00022 

1 

C! 

02315 

1 Ci 

02A54 

0 

c: 

O2O77 

0 

Ci 

24000 

1 

Ci 

15253 

1 

33601 

0 

5A030 

0 

16,2350 

22016 

0 

00006 

1 

22012 

1 

02104 

0 

00006 

1 

31572 

0 

53001 

0 

37761 

0 

16,2360 

5A061 

1 

31610 

1 

63600 

1 

00006 

1 

62370 

1 

54061 

1 

33615 

0 

12376 

0 

16,2370 

31610 

1 

00006 

1 

77751 

1 

30001 

0 

00006 

1 

73603 

0 

55610 

0 

00006 

1 
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octal  listino  of  paraoraph  0 111.  wItHi  Parity  bit  in  binary  at  tHl  rioht  of  each  word;  denotes  unused  fixed  memory. 


ALL  valid  words  ARe  BASIC  INSTRUCTIONS  eX'“EPT  THOSe  MARXeD  "I"  < 

16*2^00  7163A  0 61637  1 00006  1 71610  0 
16.2A10  70001  1 00006  I 7l65l  0 23603  0 
16.2420  00006  1 21426  I 23426  0 00006  1 
16.2430  00006  1 21427  0 23427  1 00006  1 

16.2440  60062  0 00006  I 7l63A  0 57416  0 
16.2450  01646  1 32342  0 55646  0 15751  0 
16.2460  12462  1 13056  0 377^^  1 7OO77  0 
16.2470  12525  0 37742  I 00006  1 05013  0 

16.2500  02031  1 00006  1 12511  1 37752  0 

16.2510  13051  1 37755  I I25IA  1 47755  0 
16.2520  55461  1 33573  0 55610  0 55475  1 
16.2530  73612  0 00006  1 12534  0 13051  1 

16.2540  00006  I 02031  I 00006  1 12600  1 
16.2550  377A1  1 00006  I 02031  1 00006  1 
16.2560  12562  0 12566  I 61A76  0 00006  1 
16.2570  5AO77  0 30032  0 54766  1 30033  1 

16.2600  37755  1 70077  0 00006  1 12623  0 
16.2610  00006  1 73602  I 55436  0 37761  0 
16.2620  00006  1 O5OI3  0 12653  1 24077  I 

16.2630  12635  1 33605  I 55477  0 33604  0 

16.26A0  55476  1 37761  0 54043  1 54042  0 
16.2650  13051  1 37761  0 55436  0 41416  1 
16.2660  47755  0 55435  0 11466  0 12667  0 
16.2670  55462  1 O5O4I  I 31476  0 61462  0 

16.2700  7l^Al  0 00006  I 77753  0 30001  0 
I6.27IO  31462  0 61477  I 00006  1 62717  1 
16.2720  55461  1 31610  I 60000  1 55610  0 

16.2730  00006  1 00006  I 00006  1 12737  1 

I6.27AO  27475  1 37751  0 22077  1 00006  1 
16.2750  11435  0 37757  0 26065  0 11461  I 
16.2760  5A066  0 4OO77  0 77751  1 10000  0 
16.2770  33033  1 71503  I 00006  1 13014  0 


interpretive  operator  WORDS)  OR  "C"  (CONSTANTS), 

00006  I 77752  1 31612  0 00006  1 
30061  0 55610  0 30032  0 5AOOI  1 
77747  0 22062  0 30033  1 54001  1 
77747  0 31404  0 00006  1 7OOOI  1 

00006  1 71636  1 61603  0 27AI6  1 
O5O4I  1 37745  0 7OO77  0 00006  1 
00006  1 12537  0 1100?  0 12475  1 
13051  1 55007  0 37753  1 00006  1 

00006  1 02031  1 00006  1 12513  0 

55A35  0 33573  0 55007  0 37737  0 
12730  0 00006  1 00031  0 40000  0 
47755  0 55OO7  0 13051  1 37737  0 

37755  1 7OO77  0 00006  1 13056  0 
12651  0 11416  1 12562  0 12566  1 
62566  0 12651  0 47755  0 70077  0 
54767  0 30034  0 5477O  0 13051  1 

30043  0 00006  1 77745  1 30001  0 

54043  1 54042  0 5^044  0 33613  0 
37754  0 00006  1 0203O  0 00006  1 

126A0  0 33606  1 55477  0 33607  0 

5A044  0 33613  0 00006  1 05013  0 
61436  1 10000  0 37755  1 12661  0 
13051  1 12667  0 13051  1 67755  1 
00006  1 63051  0 31462  0 00006  1 

00006  1 73610  1 55610  0 55475  1 
37735  1 55461  1 12730  0 37737  0 
55A75  1 63611  1 n0006  1 63051  0 

33576  0 27^75  1 12746  1 33577  1 

06001  0 54077  0 37761  0 5^065  0 
36276  1 12776  1 37760  1 26065  0 
13000  0 00006  1 26065  0 50065  1 
24065  1 13000  0 26065  0 5^066 
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oCTal  listing  of  Paragraph  # lu.  with,  parity  bit  in  binary  at  the  right  oP  each  wqRdj  "e"  denotbs  unused  fixed  memqRY. 

ALL  VALID  WORDS  ARe  BASIC  INSTRUCTIONS  eXU^Pt  tHOSe  MARXeD  "Ih  ( I NTeRPRET I Ve  OPeRATOR  WORDS)  OR  "C"  (CONSTANTS), 


16*3000 

50065 

1 

33O33 

1 

71503 

1 

00006 

1 

13014 

0 

00006 

1 

26065 

0 

10066 

0 

16*3010 

12777 

0 

00006 

1 

1 

33032 

0 

52006 

0 

50065 

1 

33033 

1 

06012 

1 

10000 

0 

1 6 * 3020 

37754 

0 

13023 

i 

37753 

1 

00006 

1 

71A35 

0 

2365 1 

1 

377A5 

0 

55472 

0 

16*3030 

13407 

0 

C; 

02243 

0 

Ci 

40006 

0 

C; 

00202 

1 

Cs 

00210 

1 

C}  OOO5O 

1 

C; 

00042 

1 

C; 

00240 

1 

16*3040 

c; 

00012 

1 

c; 

40252 

0 

ci 

OOlOl 

1 

C; 

00021 

1 

c: 

00024 

1 

c;  00104 

1 

CS 

n0005 

1 

Cs 

00120 

1 

16*3050 

C! 

40125 

-0 

37761 

0 

55610 

0 

55475 

1 

06012 

1 

15751 

0 

30033 

1 

00006 

1 

1 

71404 

57411 

30032 

1 

27A11 

FI 

16*3060 

^0767 

0 

0UUU6 

i 

1 

1 

U 

2O766 

1 

16*3070 

£>5466 

0 

30077 

1 

00006 

1 

63145 

1 

4O77A 

1 

61A16 

0 

55A07 

1 

37735 

1 

fl 

61407 

00006 

54063 

31407 

1 6 * 3 1 00 

0 0 0 0 £) 

1 

7141 1 

V 

0 

1 

63131 

1 

33 143 

1 

0 

0 

16*3110 

00006 

1 

70000 

0 

00006 

1 

73144 

1 

61411 

1 

63143 

1 

00006 

1 

63137 

1 

16*3120 

30063 

1 

00006 

1 

63127 

0 

33142 

0 

00006 

1 

01006 

0 

15751 

0 

33141 

0 

n 

57411 

4I4O7 

57407 

13106 

37761 

fl 

16*3130 

13124 

1 

41411 

D 

1 

1 

0 

43143 

0 

1 

16*3140 

13124 

1 

C! 

00120 

1 

Ci 

00240 

1 

c: 

77644 

1 

cs 

06743 

1 

37740 

0 

55710 

1 

4O774 

1 

16*3150 

61416 

0 

10000 

0 

1316A 

0 

13174 

1 

13156 

1 

I3I7A 

1 

55407 

1 

477AO 

1 

16*3160 

55710 

1 

41466 

0 

55411 

0 

31407 

0 

67755 

1 

00006 

1 

77753 

0 

00006 

1 

16*3170 

13173 

0 

37735 

1 

1317A 

1 

30001 

0 

55407 

1 

00006 

1 

7UO7 

1 

55412 

0 

16*3200 

37763 

1 

55435 

0 

37737 

0 

55461 

1 

31412 

1 

00006 

1 

7I44I 

0 

00006 

1 

16*3210 

77740 

1 

61411 

1 

00006 

1 

61415 

0 

55445 

1 

00006 

1 

63252 

1 

31407 

0 

16*3220 

00006 

1 

71441 

0 

55512 

1 

40000 

0 

677A3 

0 

00006 

1 

63247 

0 

43575 

1 

16*3230 

61512 

0 

00006 

1 

63235 

0 

377A0 

0 

13375 

1 

41445 

1 

6 1 626 

1 

00006 

1 

16*3240 

63302 

0 

31512 

0 

63567 

0 

00006 

1 

63364 

0 

63571 

1 

13344 

0 

37735 

1 

16*3250 

55461 

1 

13233 

1 

31412 

1 

00006 

1 

72336 

1 

61A11 

1 

61A15 

0 

61625 

1 

16*3260 

00006 

1 

63263 

0 

n 

13051 

1 

A3565 

0 

6IAO7 

0 

00006 

1 

63270 

1 

13051 

1 

1 

1 6 * 3270 

37755 

1 

55435 

U 

41407 

1 

00006 

1 

71441 

0 

55512 

1 

41445 

1 

6141 1 

1 

16*3300 

61411 

1 

61626 

1 

55445 

1 

31441 

1 

00006 

1 

777A0 

1 

62336 

0 

55447 

0 

16*3310 

00006 

1 

73566 

0 

61445 

0 

00006 

1 

63350 

1 

31445 

0 

00006 

1 

11A47 

0 

16*3320 

00006 

1 

71441 

0 

00006 

1 

71A41 

0 

55513 

0 

43575 

1 

61512 

0 

00006 

1 

16*3330 

70000 

0 

61513 

1 

00006 

1 

63233 

0 

43572 

0 

61512 

0 

00006 

1 

63354 

0 

16*3340 

05041 

1 

41513 

0 

05435 

0 

61512 

0 

60000 

1 

00006 

1 

73610 

1 

13375 

1 

16*3350 

33564 

0 

00006 

1 

71441 

0 

13343 

1 

43572 

0 

61512 

0 

n0006 

1 

7OOOO 

0 

16*3360 

61513 

1 

00006 

1 

63340 

0 

13051 

1 

31710 

0 

00006 

1 

63371 

1 

4357A 

0 

16*3370 

13372 

0 

3357A 

1 

6O774 

0 

55416 

1 

33573 

0 

55610 

0 

3I7IO 

0 

00006 

1 
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OCjAL  listing  oF  PARAGRAPH  0 113»  WItH'  RaHItY  BIj  In  BINARY  At  RIGHj  oF  EACH  WoPDJ  "6"  DENOtES  UNUSED  FIXED 

ALL  VALID  WORDS  ARe  BASIC  INSTRUCTIONS  E><^EPT  THOSe  MARXeO  "I"  ( INTeRPRETI Ve  OPeRAtOR  WORDS)  oR  mC"  (CoNStANtS) 


I6.3AOO  63AO2  1 I3AOA  0 A1A35  0 55435  0 31610  1 55475  1 1273O  0 

16*3410  63575  0 00006  1 65751  1 33616  0 55646  0 10031  1 13441  1 

16*3420  13441  1 O5OA5  ° 13415  0 31475  0 54031  1 3773?  0 00006  1 

16*3430  31472  1 55004  0 37761  0 57474  1 55002  0 37761  0 57473  0 

16*3440  15751  0 11002  0 13522  0 41475  1 60031  0 10000  0 67755  1 

16*3450  13451  0 67755  I 55002  0 31472  1 55005  1 37761  0 5747^  1 

16*3460  37761  0 57473  0 55006  1 15751  0 55002  0 31475  0 54031  1 

16*3470  5700a  1 55005  1 4147A  0 00006  1 15751  0 61002  1 10000  0 

16*3500  13511  0 13502  1 67755  1 55003  1 37761  0 55474  0 57^73  0 

16*3510  15751  0 ' 55003  I 37761  0 57474  1 55002  0 37761  0 57473  0 

16*3520  55006  1 15751  0 41475  1 60031  0 61002  1 10000  0 67755  1 

16*3530  13531  1 67755  I 55003  1 31472  1 55006  1 15751  0 5AOOI  1 

16*3540  60031  0 10000  0 67755  1 13553  0 13545  1 67755  1 55002  0 

16*3550  55003  1 31472  1 13561  1 57002  1 55003  1 31475  0 54031  1 


16*3560 

57004 

1 

57005 

0 

57006 

0 

15751 

0 

Ci 

36115 

1 

C; 

34344 

0 

Ci 

31221 

1 

16*3570 

Ci 

77071 

1 

Ci 

00050 

1 

Ci 

00010 

0 

Ci 

00014 

1 

Ci 

00044 

1 

Ci 

00360 

1 

Ci 

77767 

1 

16  * 3600 

Ci 

77537 

0 

Ci 

37775 

0 

Cl 

34362 

1 

Ci 

24366 

1- 

Ci 

77555 

1 

Ci 

77001 

0 

Ci 

7644/ 

1 

16*3610 

Ci 

31000 

0 

Ci 

77762 

1 

Cl 

00077 

1 

Ci 

00600 

1 

Ci 

71462 

1 

Ci 

03146 

1 

Ci 

02451 

0 

16*3620 

22016 

0 

32303 

0 

55000 

1 

33630 

1 

54030 

0 

32076 

1 

55415 

1 

16*3630 

Ci 

37634 

1 

33710 

1 

54030 

0 

22016 

0 

00006 

1 

33712 

0 

53001 

0 

C 

C 

C 

C 


16*3640  00006  1 

16*3650  13655  0 

16*3660  54062  1 

16*3670  00006  1 

16*3700  50061  0 

16*3710  C:  37776  0 C: 
16*3720  @ 

16*3730  @ 


02030  0 00006  1 

37761  0 55656  1 

50061  0 33705  0 

77745  I 67745  0 

27656  I 10061  1 

02002  I Ci  36006  1 C: 
@ & 

@ g 


15753  1 37740  0 

55657  0 15753  1 

00006  1 02012  0 

00006  1 73707  0 

13656  0 15753  1 Ci 

03713  1 Ci  03714  0 CKSM 

@ e 

g g 


00006  1 n2011  0 

37755  1 5AO6I  1 

00006  1 13702  0 

00006  1 50062  0 

01400  1 Ci  06000  1 C 

77043  0 g 

g g 

g g 


16*3740  g g @ g g g g 

16*3750  g g g g g g g 

16*3760  g g g g g g g 

16*3770  g g g g g g g 


MEMORY. 


41475  1 
13423  0 
05013  0 

55005  1 

13464  0 
55003  1 
31472  1 
67755  1 

55006  1 

57005  0 

13536  0 
41475  1 

30001  0 

31472  1 
i 77733  0 
: 00013  0 

: 77223  1 
; 37603  0 

15753  1 
37754  0 

00006  1 
60000  1 
31636  0 
71532  0 

i 00243  I 
g 
g 
g 

g 

g 

g 

g 
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OcTAu  listing 

OE  paragraph  0 

llA* 

win-  PARITY  BIT  IN 

binary  at 

the 

right  Of  each  woRq*  "e" 

denotes 

uNuSEd 

fixed 

memory. 

ALL  VALID  WORDS  ARE 

BASIC  instructions 

except  those 

MARKe?  "I" 

(Interpretive  operator  words)  or 

"C 

" (CONSTANTS) 

. 

17*2000  c: 

03011 

1 C! 

40006 

0 

32563  0 

54030 

0 

22016  0 

00006 

1 

22012 

1 

00006 

1 

17*2010 

32001 

1 

53001 

0 

30033  1 

54001 

1 

00006  X 

21430 

0 

2343O 

1 

00006 

1 

17*2020 

777A7 

0 

22061 

0 

30034  0 

54001 

1 

00006  1 

21431 

1 

23431 

0 

00006 

1 

17*2030 

0 

22062 

0 

31406  1 

00006 

1 

70061  1 

54063 

0 

31403 

1 

00006 

1 

l7*20A0 

70062 

1 

26063 

0 

31405  1 

00006 

1 

70061  1 

56062 

0 

00006 

1 

71401 

1 

17*2050 

26062 

1 

00006 

1 

71635  1 

57417 

1 

00006  1 

71636 

1 

61604 

1 

61656 

0 

17*2060 

27A17 

0 

30063 

1 

00006  1 

71635 

1 

57421  1 

00006 

1 

71636 

1 

61605 

0 

17*2070 

61657 

1 

27421 

0 

01647  0 

32076 

1 

55647  1 

15751 

0 

C; 

02077 

0 

37741 

1 

1 

12117 

1 

02031 

1 

00006 

l7  *2100 

00006 

1 

O2O31 

00006  1 

0 

37740  0 

00006 

1 

17*2110 

126-20 

0 

00006 

1 

32116  0 

53001 

0 

15751  0 

C;  02136 

1 

C; 

34006 

0 

37744 

1 

17*2120 

70077 

0 

00006 

1 

12162  1 

31007 

1 

00006  1 

12416 

1 

3257I 

0 

54062 

1 

17*2130 

37755 

1 

00006 

1 

02031  1 

00006 

1 

13504  1 

37754 

0 

00006 

1 

02031 

1 

17*21A0 

00006 

1 

13331 

1 

37751  0 

00006 

1 

02031  1 

00006 

1 

1347O 

0 

37750 

1 

17*2150 

00006 

1 

02031 

1 

00006  1 

13270 

0 

12416  1 

32560 

0 

55611 

1 

37761 

0 

17*2160 

55007 

0 

12462 

1 

37737  0 

00006 

1 

02031  1 

00006 

1 

12231 

1 

37755 

1 

T 

n 

n A n n i 1 

52062 

31417 

1 

If  tCl  IV 

(0077 

0 

UUUU6 

bdbcV  1 

31416 

UUUUd  i 

( ouuu 

u 

1 

i 

17*2200 

00006 

1 

70000 

0 

20062  1 

31421 

1 

00006  1 

70000 

0 

20062 

1 

42565 

1 

17*2210 

60061 

0 

00006 

1 

62220  0 

31417 

1 

55424  0 

31421 

1 

55425 

1 

12264 

1 

17*2220 

A7755 

0 

70077 

0 

54077  0 

30032 

0 

54766  1 

30033 

1 

54767 

0 

30034 

0 

17*2230 

5A77C 

0 

37755 

1 

70077  0 

00006 

1 

12416  1 

30042 

1 

00006 

1 

77745 

1 

17*22A0 

32572 

0 

00006 

1 

70001  1 

61417 

1 

55424  0 

30044 

1 

00006 

1 

77745 

1 

17*2250 

32572 

0 

00006 

1 

70001  1 

61421 

1 

55425  1 

37761 

0 

54043 

1 

54042 

0 

17*2260 

5 A04A 

0 

32566 

0 

00006  1 

05013 

0 

32611  0 

54062 

1 

11424 

0 

12330 

1 

17*2270 

12272 

0 

12277 

0 

11425  1 

12357 

0 

12416  1 

12370 

0 

12416 

1 

61476 

0 

1 

12314 

12321 

1 

i 7 ♦ 2 3vO 

00006 

1 

62272 

i 

11425  1 

1 

12306  1 

1 

41424 

0 

i 

l7*23lO 

6U77 

1 

00006 

1 

63504  0 

13502 

1 

61476  0 

00006 

1 

62306 

0 

03565 

1 

17*2320 

13A17 

1 

61476 

0 

00006  1 

62306 

0 

03561  0 

00006 

1 

61425 

0 

13444 

1 

17*2330 

61A76 

0 

00006 

1 

62272  1 

11425 

1 

12345  0 

12337 

0 

12352 

0 

31424 

1 

17*23A0 

55AA0 

1 

61477 

1 

00006  1 

63331 

0 

13327  0 

61476 

0 

00006 

1 

62337 

1 

17*2350 

03561 

0 

13307 

1 

61476  0 

00006 

1 

62337  1 

03565 

1 

13350 

0 

61476 

0 

17*2360 

00006 

1 

62416 

0 

31425  0 

55440 

1 

61477  1 

00006 

1 

63270 

1 

13266 

1 

17*2370 

61A76 

0 

00006 

1 

62416  0 

41425 

1 

55440  1 

61477 

1 

00006 

1 

63470 

1 
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octal  listing  of  paragraph  # 115*  wItHi  Rahity  bit  in  binary  At  the  right  of  Each  woRdi  "e"  denotes  unused  fixed 

ALL  VALID  WORDS  ARe  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKeD  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS) 


17*2^00  I3A66  1 
17.2AIO  ^752  1 
17.2A20  55A73  1 
l7*2A30  00006  1 

17,2AA0  37761  0 
17*2A50  37761  0 
17,2A60  Ci  A0006  0 
17.2A70  12416  1 


ll44o  1 67755  1 
30001  0 00006  1 
55611  1 37747  1 
02031  1 00006  1 

00006  I 01005  0 
54072  D 54073  1 
55611  I 41611  1 
31611  0 55475  1 


12405  0 67755  i 
72561  0 55611  1 
00006  1 02031  1 
12A46  1 37750  1 

15751  0 37737  0 
00006  1 32460  1 
62560  0 00006  1 
52557  1 00006  1 


00006  1 70066  0 
12462  1 37761  0 
00006  1 12444  0 
7OO77  0 lOOOO  0 

124A7  0 37735  1 
54O7O  1 52006  0 
62471  1 37761  0 
62502  1 3I47I  1 


17*2500 

15751  0 
12535  1 
• 77735  0 

57472  1 

Ci 

02073 

1 

0 

1 

1 

32501 

00006 

12526 

3257O 

1 

1 

0 

1 

55647 

1 

1 

1 

0 

17*2510 

17*2520 

17*2530 

67737 

00006 

55473 

6I47I 

32570 

55474 

17*2540 

55474  0 

12552 

0 

31472 

1 

77735 

0 

17*2550 

37761  0 

55474 

0 

31471 

1 

06015 

0 

17*2560 

Ci  00014  1 

Ci 

31000 

0 

cl 

37776 

0 

Ci  37775 

0 

17*2570 

Ci  00013  0 

Ci 

02155 

1 

cl 

43415 

0 

Ci  20000 

0 

31471  1 
54001  1 
27475  1 

12552  0 

00006  1 
00006  1 
c:  37773  0 
c:  02000  0 


00006  1 
00006  1 
12552  0 
32570  1 

12550  1 
32610  1 
C:  00010  0 

c:  77557  0 


02005  0 
12542  1 
AOOOl  1 

27475  1 

32567  1 
52006  0 
c:  00600  1 
c;  n0220  1 


2600 

2610 

2620 

2630 


C:  40252  0 
C;  34006  0 

40077  0 

51645  1 


Cl  OO2O1  1 Cl  40042 
Ci  02401  0 32617 

77740  1 10000 

71400  0 54061 


40210  0 Ci  00104  I Ci  40104  0 Ci  40021  0 
55000  1 15751  0 C{  07400  1 Cl  03603  1 
12660  1 37755  1 55645  0 ^0775  0 
40776  0 00006  1 51645  1 71402  1 


17.2640 

17*2650 

17*2660 

17*2670 

17*2700 

17*2710 

17*2720 

17*2730 


00006  1 
67755  1 
30033  1 
00006  1 

00006  1 
37754  0 
00006  1 
50000  1 


73374  0 

12653  I 

00006  I 
20770  0 

71406  0 
70077  0 
00012  1 
11417  0 


54061  1 
40000  0 
20767  0 

54062  1 

57411  1 
10000  0 
72615  0 
62753  1 


11645  0 
51645  1 
54061  1 
00006  1 

30062  0 

12755  0 
10000  0 
12735  0 


12647  1 
54772  1 
00006  1 
71401  1 

00006  1 
00006  1 
12755  0 
62753  1 


30061  0 
11645  0 
71405  0 
27413  1 

71403  0 

00005  1 
37755  1 

00006  1 


26061  1 
12625  0 
57413  0 
55467  1 

27411  0 
10000  0 
54066  0 
62740  0 


17*2740  50066  1 
17*2750  10066  0 
17*2760  32616  1 
17*2770  77753  0 


11467  I 62754  0 
12726  1 12612  1 
54062  I 05041  1 

00006  1 12774  0 


12745  1 62754  0 

Ci  77512  1 Ci  77601  0 
37755  1 54061  1 

13042  0 10001  1 


00006  1 62750  1 
10077  0 13576  1 
50061  0 31424  1 
67754  0 13000  0 


C 


c 

c 

c 

c 

c 


MEMORY. 


00006  1 

55474  0 
37746  0 
12444  0 

54071  0 
i 02316  1 

55475  1 
06015  0 

00006  1 
31472  1 
67737  0 
37761  0 

27475  1 

i 77417  0 
i 77765  0 
i 77537  0 

! 03415  1 
• 02000  0 
00006  1 
60061  0 

10061  1 
54771  1 

30034  0 
30061  0 

5547O  1 
12755  0 
60000  1 
12755  0 

12755  0 

12760  0 
00006  1 
AOOOO  0 
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octal  LISflNa  Of-  paragraph  * 116.  WItHi  PAHItY  bit  in  binary  At  THL  right  of  each  WoRDJ  "e"  denotes  unused  fixed  memory. 
ALL  VALID  words  ARe  BASIC  INSTRUCTIONS  EX^ePt  tHOSe  MARXeO  "I"  ( INTeRPRETIVe  OPeRAtOR  WORDS)  OR  "C"  (CoNStANtS) , 


17.3000 

67763  1 

55^07 

1 

00006 

1 

70000 

0 

55412 

0 

00006 

1 

50061 

0 

71711 

0 

17.3010 

00006  1 

61415 

0 

55442 

0 

31412 

1 

00006 

1 

50061 

0 

7I7I3 

1 

61415 

0 

17.3020 

31411 

I3O47 

55460  0 

1 14O7 

1 

1 

1 3025 

1 

0 

27442 

0 

1 14O7 

1 

1 1442 

0 

17.3030 

13035  0 

11442 

0 

13053 

0 

13053 

0 

I3O35 

0 

31407 

0 

n0006 

1 

77743 

1 

I3O75 

1 

10000 

37735 

1 

41442 

1 7 . 30a0 

61442  1 

i 

0 

1 

13001 

1 

47735 

0 

13001 

u 

17.3050 

61411  1 

55442 

0 

13026 

1 

11442 

0 

41460 

0 

13057 

1 

31460 

1 

61411 

1 

17.3060 

55460-  0 

11407 

1 

11460 

0 

13070 

1 

11460 

0 

13074 

0 

13074 

0 

13070 

1 

17.3070 

00006  1 ■ 

33166 

0 

53505 

1 

13101 

0 

31460 

1 

00006 

1 

5OO6I 

0 

71711 

0 

1 

13104 

13167 

31505 

53507 

f T 

17*3 100 

53505  1 

10061 

1 

0 

0 

54061 

1 

00006 

1 

0 

17.3110 

53412  0 

53414 

0 

55411 

0 

3I4O7 

0 

55410 

1 

12765 

0 

11506 

1 

63164 

1 

17.3120 

13122  1 

63164 

1 

00006 

1 

63125 

1 

13175 

0 

31504 

1 

00006 

1 

77750 

0 

17.3130 

23504  1 

31505 

0 

00006 

1 

77750 

0 

27504 

0 

31506 

0 

00006 

1 

77750 

0 

I7.3IAO 

23506  0 

31507 

1 

00006 

1 

77750 

0 

27506 

1 

33163 

0 

54066 

0 

13177 

1 

1 

71504 

55504 

00006 

1 

7I5O6 

1 

17.3150 

31717  1 

00006 

i 

0 

0 

13206 

1 

31720 

0 

1 

17.3160 

55506  1 

13215 

0 

C! 

77637 

0 

C; 

71777 

0 

c: 

77OO2 

0 

C; 

00000 

1 

C;  OOOOO 

1 

11504 

0 

17.3170 

63164  1 

13173 

0 

63164 

1 

00006 

1 

63116 

1 

33162 

1 

54066 

0 

31652 

1 

17.3200 

00006  1 

13206 

1 

00006 

1 

71504 

0 

00006 

1 

63150 

0 

31653 

0 

00006 

1 

17.3210 

13215  0 

00006 

1 

71506 

1 

00006 

1 

63155 

0 

31504 

1 

00006 

1 

13357 

1 

17.3220 

00006  1 

73375 

1 

61506 

0 

00006 

1 

73372 

0 

55512 

1 

41506 

1 

00006 

1 

17.3230 

73375  1 

6I5O4 

1 

00006 

1 

73372 

0 

55513 

0 

61512 

0 

55510 

0 

41513 

0 

17.32A0 

61512  0 

55511 

1 

31513 

1 

00006 

1 

63376 

0 

31512 

0 

00006 

1 

63316 

0 

17.3250 

31511  0 

00006 

1 

63274 

0 

31714 

1 

55627 

1 

00006 

1 

31414 

1 

53412 

0 

17.3260 

31410  0 

55407 

1 

30066 

1 

61506 

0 

00006 

1 

63270 

1 

47755 

0 

13507 

1 

17.3270 

11663  1 

13266 

1 

47754 

1 

13507 

1 

31715 

0 

55627 

1 

31506 

0 

61506 

0 

17.3300 

10000  0 

60066 

1 

13304 

1 

60066 

1 

00006 

1 

63311 

1 

03523 

0 

36301 

0 

I7.33IO 

13507  1 

11665 

1 

13306 

0 

03523 

0 

37754 

0 

13507 

1 

31510 

1 

00006 

1 

17.3320 

63335  1 

31713 

0 

55627 

1 

30066 

1 

61504 

1 

00006 

1 

63331 

0 

47760 

0 

17.3330 

I35O7  1 

11661 

0 

13327 

0 

46276 

0 

13507 

1 

31716 

0 

55627 

1 

41504 

0 

17.3340 

61506  0 

10000 

0 

60066 

1 

13345 

1 

60066 

1 

00006 

1 

63352 

0 

03515 

0 

17.3350 

37760  1 

13507 

1 

11666 

1 

13347 

0 

03515 

0 

37753 

1 

1 3507 

1 

31506 

0 

17.3360 

00006  1 

12416 

1 

00006 

1 

73373 

1 

55513 

0 

31506 

0 

00006 

1 

73372 

0 

I7.337O 

55512  1 

13237 

0 

Ci 

35441 

0 

C: 

14176 

1 

C: 

00632 

0 

Cl 

62575 

1 

31512 

0 

00006 

1 

PAI3EU66 


4,8895<tA  YJL  SYSTEM  FOR  AGC;  NeW  PROGRAM  SMePATIN  BY  eYLeS 


dec  U*  1966 


octal  listing  of  paragraph  0 117,  WItH>  parity  bit  in  binary  at  THt  RIGHT  OF  EACH  WORD;  »§»  DENOTES  UNUSED  FIXED 
ALL  VALID  WORDS  ARe  BASIC  INSTRUCTIONS  E^^EPT  THOSE  MARKeD  "I"  ( INTeRPPETIVE  OPeRAtOR  WORDS)  OR  "C  (CONSTANTS) 


l7«3AOO  63A26  1 31510  I 00006  1 

l7i3A10  10000  0 60066  I 13A1A  1 

l7»3A20  13507  1 11667  0 13A16  0 

17,3430  63453  0 3l7l5  0 55627  I 

17*3440  60066  1 00006  1 63446  1 

17*3450  03523  0 37761  0 13507  1 

17*3460  31410  0 55407  1 30066  1 

17*3470  11662  0 13466  1 ^7753  0 

17*3500  00006  1 63504  0 47757  1 

17*3510  00006  1 33514  1 52006  0 C; 

17*3520  55411  0 41424  0 13526  1 

17*3530  73575  1 55407  I 00006  1 

17*3540  13544  0 47735  0 13544  0 

17*3550  C(  77533  1 C;  00014  I Cl  77767  1 C: 
17*3560  C:  31000  0 31701  0 54066  0 

17*3570  61425  0 00006  I 73575  1 


63474  0 31716  0 55627  1 41504  0 

60066  1 00006  1 63421  0 03515  0 

03515  0 36276  1 13507  1 3l5ll  0 

31504  1 61506  0 10000  0 60066  1 

03523  0 37755  1 13507  1 1 166^  0 

31714  1 55627  1 00006  1 31414  1 

61506  0 00006  1 63470  1 46301  1 

13507  1 31713  0 55627  1 3OO66  I 

13507  1 11660  1 13502  1 47752  1 

02170  0 C!  40006  0 31705  1 5AO66  0 

3I7OI  0 54O66  0 31424  1 61425  0 

77753  0 00006  I 13543  1 10000  0 

30001  0 55407  1 00006  1 7OOOO  0 

00050  1 C;  77733  0 C:  34344  0 C;  31221  1 C 
31424  1 I357O  1 3I7O5  1 54066  0 

55440  1 00002  0 C!  26501  1 00006  1 


17*3600  52006  0 
17*3610  55411  0 
17*3620  G0006  1 
17*3630  00006  1 


Ci  03536  1 Ci  A2OO6  1 
31412  1 00006  1 

63662  0 31407  0 

63634  0 37740  0 


A1407  1 00006  1 
70066  0 61411  1 
00006  1 7OO66  0 
12461  1 41445  1 


63611  1 55407  1 
00006  1 61415  0 
20001  1 55512  1 
61626  1 n0006  1 


17*3640  31512  0 

17*3650  13656  0 

17*3660  33551  0 

17*3670  00006  1 

17*3700  41407  1 

17*3710  61626  1 

17*3720  63756  0 

17*3730  20001  1 


63554  0 00006  1 
30775  1 55417  0 
12461  1 31412  1 
63673  0 12416  1 

00006  1 70066  0 
55445  1 30066  1 
31445  0 00006  1 
20001  1 55513  0 


63646 

0 

63553 

1 

31607 

1 

00006 

1 

00006 

1 

71627 

1 

43555 

0 

61407 

0 

20001 

1 

1 

55512 

1 

1 

27627 

00006 

11627 

1 

00006 

1 

33550 

1 

61512 

0 

13752  0 31606  0 
13660  0 30776  I 
61411  1 61A15  0 
00006  1 63700  0 

41445  1 61A11  1 
73556  0 61445  0 
7OO66  0 00006  I 
00006  1 7OOOO  0 


17*3740  00006  1 

17*3750  05435  0 

17*3760  00006  1 

17*3770  61513  1 


63632  0 33552  0 
61512  0 60000  1 
70066  0 20001  1 
00006  1 63746  1 


6I5I2  0 00006  1 
00006  1 73560  0 
13751  0 33552  0 
12416  1 C;  03774  0 


63764  1 O5O4I  1 

12461  1 33555  1 

61512  0 00006  1 

Cj  03775  1 CkSM  70424  1 


Memory, 


61506  0 

37757  0 
00006  1 
13441  1 

13443  0 

53412  0 
13507  1 
61504  1 

54061  I 
41411  0 

00006  1 
37735  I 

55412  0 
: 01552  1 
41424  0 
33602  0 

41411  0 
55445  1 
63550  1 
63711  0 

00006  1 
55421  0 
61625  1 
12416  1 

61411  1 
00006  1 
7OO66  0 
61513  1 


41513  0 
63557  0 
7OOOO  0 

e 
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48895AA  YJL  SYSTEM  FOR  AGC:  NEW  PRO^RA.M  SHePATIN  BY  eYLES 


DEC  13*  1966 


OCTAL  listing  OF  PARAGRAPH  0 uo.  WItHi  ^A^ITY  BIT  IN  BINARY  AT  THe  RIGHT  OF  EACH  WORD}  ”e»  DeNOtES  UNUSED  FIXED 
ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EXLePt  THOSE  MAR<eD  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS) 


20,2000 

20,2010 

20,2020 

20,2030 

20,20A0 

20,2050 

20,2060 

20,2070 

20,2100 

20,2110 

20,2120 

20,2130 

20,2U0 

20,2150 

20,2160 

20*2170 

20,2200 

20,2210 

20,2220 

20,2230 

20,22A0 

20,2250 

20,2260 

20,2270 

20,2300 

20,2310 

20,2320 

20,2330 

20,23A0 

20,2350 

20,2360 

20,2370 


30034 

0 

05373 

0 

55404 

1 

30034 

0 

05372 

1 

55457 

1 

30032 

0 

55401 

1 

41401 

1 

1 

00006 

1 

71457 

1 

55406 

0 

30032 

0 

05372 

1 

00006 

1 

71457 

i 

55405 

0 

31457 

0 

67736 

1 

00006 

1 

62043 

1 

C0006 

1 

77740 

1 

00006 

1 

11457 

1 

55400 

0 

41401 

1 

n0006 

1 

00006 

1 

11457 

1 

1205A 

0 

11403 

0 

37735 

1 

12047 

1 

37737 

0 

11401 

1 

37735 

1 

12054 

0 

37737 

0 

55402 

1 

15751 

0 

00004 

0 

70077 

0 

67754 

0 

54077 

0 

32116 

0 

12072 

1 

00004 

0 

47746 

1 

54077 

0 

33304 

0 

55626 

0 

55625 

0 

37735 

1 

557I7 

0 

55720 

1 

55644 

1 

37761 

0 

516A4 

0 

55652 

0 

116A4 

1 

12100 

0 

33307 

0 

1 

53637 

55635 

1 

0 UO  0^ 

i 

33320 

0 

0 

OOUO3 

1 

00002 

0 

C;  00033 

1 

00004 

0 

37746 

0 

70077 

0 

10000 

0 

12165 

0 

37746 

0 

26077 

0 

55626 

0 

37761 

0 

55625 

0 

55621 

1 

55622 

1 

55644 

1 

31417 

1 

31421 

1 

55624 

1 

33316 

0 

O57OI 

1 

C:  03112 

0 

C;  40006 

0 

37755 

1 

02441 

1 

CJ 

54006 

0 

37755 

1 

05701 

1 

Ci  02452 

0 

C;  54006 

0 

37755 

1 

02463 

1 

c: 

54006 

0 

00004 

0 

32167 

0 

55415 

1 

00003 

1 

00002 

0 

37761 

0 

54070 

1 

54071 

0 

54072 

0 

54073 

1 

37747 

1 

00006 

1 

00006 

1 

12264 

1 

37746 

0 

00006 

1 

02031 

1 

00006 

1 

1227I 

0 

70077 

0 

10000 

0 

12260 

0 

50061 

0 

32475 

0 

54OOI 

1 

76130 

1 

37750 

1 

00006 

1 

70001 

1 

54064 

1 

50063 

1 

32553 

0 

10000 

0 

12233 

0 

54072 

0 

12227 

0 

71502 

0 

10000 

0 

12237 

1 

12276 

1 

26063 

0 

10064 

1 

12223 

1 

37761 

0 

00006 

1 

01005 

0 

00006 

1 

35676 

0 

05523 

0 

c:  02070 

1 

C;  16006 

0 

47743 

1 

7OO77 

0 

54077 

0 

40077 

0 

77750 

0 

10000 

0 

12266 

0 

37737 

0 

54071 

0 

5OO6I 

0 

12215 

1 

37735 

1 

54071 

0 

50061 

0 

32535 

0 

12215 

1 

30065 

1 

77752 

1 

50000 

1 

32456 

1 

55606 

1 

30001 

0 

00006 

1 

77752 

1 

32456 

1 

55607 

0 

30065 

1 

7A553 

1 

67737 

0 

55471 

0 

37754 

0 

IOO7I 

0 

12325 

0 

12412 

0 

37754 

0 

12326 

0 

37760 

1 

54063 

0 

12375 

0 

40077 

0 

77752 

1 

10000 

0 

12375 

0 

50063 

1 

32545 

1 

7I5O2 

0 

10000 

0 

12373 

0 

10072 

0 

12363 

1 

IOO7O 

1 

12357 

0 

60064 

0 

00006 

1 

12355 

1 

IOO73 

1 

12411 

0 

30065 

1 

12412 

0 

00006 

1 

01005 

0 

15751 

0 

30065 

1 

54073 

1 

7IA7I 

0 

10000 

0 

30065 

1 

27471 

0 

12404 

1 

IOO73 

1 

12411 

0 

00006 

1 

26063 

0 

C 


C 


Memory, 


05373  D 

55A03  0 
3U03  1 
777A0  I 

55A00  0 
A775A  1 
7OO77  0 

32117  I 

5563A  0 
• 00015  0 
AU15  1 
55623  0 

O57OI  I 
05701  I 
: 00133  0 

02031  I 

32455  I 

54063  0 
54065  0 
00006  1 

01006  0 
15751  0 
32515  1 
00006  I 

50000  1 

54064  1 

10072  0 

54065  0 

47754  1 
30065  1 
12375  0 
10064  1 
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oCjal  L1S1IN&  of-  paragraph  * 1211  witRi  Rawity  B17  IN  Binary  at  the  righj  of  each  wqrdi  "««  denotes  unused  fixed 

ALL  VALID  WORDS  ARe  BASIC  INSTRUCTIONS  E^^'-EPT  THOSe  MARKED  "I"  ( INTeRPRETI  Ve  OPeRAtOR  WORDS)  OR  "C"  (CONSTANTS) 


20f2^,00  12aOT  1 
20,2410  12335  1 
20,2420  00006  1 
20,2430  10000  0 


10072  0 I24O4  1 
67755  I 67737  0 
24061  0 11606  1 
24061  0 12445  1 


12243  I 37761  0 

55472  0 37755  1 
12425  1 12436  0 
00006  1 26061  1 


54,072  0 12316  0 
7OO6I  1 10000  0 
10000  0 12430  0 
12445  1 II6O7  0 


20,2440 

20,2450 

20,2460 

20,2470 

20,2500 

20,2510 

20,2520 

20,2530 

20,2540 

20,2550 

20,2560 

20,2570 

20»2600 

20,2610 

20,2620 

20,2630 

20,26A0 
20,2650 
20,2  660 
20,2670 

20*2700 

20,2710 

20,2720 

20,2730 

20,2740 

20,2750 

20,2760 

20,2770 


12442  0 
32454  0 
C:  77776  1 

,c:  04011  0 

C)  02031  1 

cj  04051  1 
c;  02030  0 
Ci  O4O75  1 

c:  02115  0 
C!  00104  1 

c:  20051  1 

C!  01602  1 

c:  73176  0 
C;  72756  0 
C;  20102  0 
c:  01641  0 

c:  IA221  0 

C;  30152  1 
C:  02031  1 
c:  55666  1 

55502  0 
37761  0 
12715  1 
12750  0 

37752  0 
377A7  1 

27503  1 

27502  0 


77754  I 
54OOI  I 
C:  00002  0 
C5  03015  0 

C!  02034  1 

C:  03055  1 

C!  01032  I 
Ci  03101  1 

C!  01117  I 
Ci  00021  i 
Ci  20102  0 
C • 02646  I 

C!  62172  1 
Ci  72774  0 
Ci  20141  I 
Ci  02646  I 

Ci  14007  0 
C;  01641  0 
C{  02121  1 
Ci  67336  0 

55503  1 
54061  1 
50061  0 
12755  0 

27503  1 
27502  0 
00002  0 
37754  0 


00006  1 
30062  0 
Ci  77775  1 
Ci  O4OI6  1 

Ci  02034  1 
Ci  04056  0 

ci  02033  0 
Ci  O4IO2  0 

Ci  O2I2O  0 
Ci  00125  1 
Ci  20141  1 
Ci  02121  1 

Ci  66676  0 
Cl  61754  0 
Ci  20012  0 
Cl  02121  1 

Ci  14025  0 
Cl  01445  0 
Cl  03133  0 
C!  67375  1 

00006  1 
30001  0 
02726  0 
12762  1 

00002  0 
37753  1 

37752  0 

27503  1 


12445  1 
52006  0 
Ci  OOOO4  0 
Ci  O3O22  1 

Ci  02037  1 
C;  03062  0 
Ci  01036  0 
Ci  03106  0 

Ci  01122  1 
Ci  14025  0 
Ci  20012  0 
Ci  02013  1 

Ci  66766  0 
Ci  14025  0 

Ci  20051  1 
Ci  02103  1 

Ci  2^227  0 
Ci  01602  1 
Ci  73176  0 
C!  56335  1 

00032  0 
12716  1 
10062  1 
12767  1 

37751  0 
27503  1 
27502  0 
00002  0 


24O6I  0 
Ci  36006  1 
Ci  77773  1 

Ci  O4O23  I 

Ci  02037  I 
Ci  04063  0 

CI  02037  1 

Ci  O4IO7  0 

Ci  02123  0 
Ci  14203  0 
Ci  30152  1 

CI  02103  I 

Ci  55666  1 
Ci  14221  0 
CI  30152  1 

Ci  02031  1 

CI  20051  1 
Ci  01406  1 

CI  73372  0 

CI  7277A  0 

55501  0 
67755  1 
127U  0 
12774  0 

27502  0 
00002  0 
37755  1 
37753  1 


5OO6I  0 
Ci  00240  1 
CI  O3OO3  1 
Ci  02026  1 

CI  03043  0 
Ci  01024  0 
Ci  O3O67  0 
Ci  01111  1 

Ci  00042  1 
Ci  14221  0 
Ci  01641  0 

CI  02031  1 

CI  67375  1 
Ci  14007  0 
CI  01406  1 
Ci  02013  1 

Ci  2OIAI  1 
Ci  02646  1 
Ci  62172  1 
Ci  72756  0 

40000  0 
24061  0 
15751  0 
13001  1 

37751  0 
37746  0 
27503  1 
27502  0 


3I7OO  1 
Ci  OOOOO  1 
Ci  04004  1 
CI  02026  1 

CI  04044  0 
Ci  02025  1 
CI  O4O7O  1 
CI  02112  1 

Ci  OO2IO  1 
Ci  14007  0 
Ci  01406  1 
Ci  03133  0 

Ci  67336  0 
Ci  14203  0 
CI  01445  0 
CI  03133  0 

CI  20012  0 

Ci  02013  1 
Ci  66766  0 
CI  6I75A  0 

00006  1 
60000  1 
12736  0 
37750  1 

27503  1 

27502  0 
n0002  0 
37750  1 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


MEMORY. 


54O64  1 

12422  0 
12433  0 
77754  1 

54066  0 
• 00001  0 
i 03010  0 
I 02031  1 

I 03050  1 
. 01027  0 
i O3O74  1 
I 01114  1 

I 00252  1 
I 24227  0 
1 01445  0 

I 73372  0 

! 56335  1 
! 24227  0 
I 01602  1 
i 14203  0 

I 2DIO2  0 
. 02103  I 
1 66676  0 
37761  0 

77747  0 

54062  1 
127A3  1 

27502  0 

00002  D 
377A6  D 
37755  I 

27503  I 
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octal  listing  oP  paragraph  * 122.  WITHi  PARITY  BIT  In  BINARY  aT  THE  RIGHT  qF  EaCH  WoRDS  "6"  DEnqTES  UNUSED  FIXED  MEMqRY. 
ALL  VALID  WORDS  ARe  BASIC  INSTRUCTIONS  E><^EPT  THOSe  MAR<eD  "Im  ( INTERPRETI Ve  OPeRATOR  WORDS)  OR  "Cm  (CONStANjS) . 


20.3000 

C0002 

0 

3775A 

0 

27502 

0 

377A7 

1 

27503 

1 

00002 

0 

c:  37776 

0 

Ci 

023A6 

1 

20,3010 

C: 

3A006 

0 

33006 

1 

5A030 

0 

22016 

0 

00006 

1 

22012 

1 

00006 

1 

33010 

0 

20.3020 

53001 

0 

Al6l  1 

1 

63111 

0 

00006 

1 

630A0 

0 

3161 1 

0 

00006 

1 

77751 

1 

20,3030 

30001 

0 

00006 

1 

73107 

0 

55611 

1 

03050 

1 

37761 

0 

55611 

1 

15751 

0 

AOOOO 

5A062 

1 

15751 

20,30A0 

0 

i 

33110 

1 

55611 

1 

O3O5O 

1 

300^2 

0 

55611 

1 

U 

20,3050 

00006 

1 

71606 

1 

30001 

0 

00006 

1 

71613 

0 

5560A 

0 

27621 

1 

31611 

0 

71607 

30001 

00006 

31635 

n 

20 « 3060 

U0UQ6 

1 

\J 

0 

1 

7 16 1 A 

1 

55605 

1 

97622 

1 

U 

20,3070 

00006 

1 

71611 

1 

61637 

1 

00006 

1 

77752 

1 

22061 

0 

3160A 

1 

00006 

1 

5560A 

Q 

00006 

Ci 

2A366 

1 

ZO  f 3 1 00 

7006 1 

1 

3 1605 

0 

1 

7OO6  1 

1 

55605 

1 

00002 

0 

1 

20,3110 

Ci 

031A6 

1 

c: 

002A0 

1 

377A6 

0 

70077 

0 

00006 

1 

13275 

0 

3I6AA 

0 

00006 

1 

20,3120 

13255 

1 

63313 

0 

00006 

1 

63125 

1 

13261 

0 

33302 

0 

00006 

1 

7I6AA 

1 

377A1 

Q 

5A062 

33303 

00006 

60001 

n 

cU  , 3 1 30 

1 

6UUU  1 

I 

I 

1 

7I6AA 

1 

33310 

0 

V 

20,31A0 

5A061 

1 

AOOOO 

0 

67735 

1 

55636 

1 

00006 

1 

777A2 

0 

55637 

0 

30061 

0 

20,3150 

C0006 

1 

73311 

0 

5563A 

0 

55635 

■1 

A0061 

1 

00006 

1 

73305 

0 

63306 

1 

20,3160 

60000 

1 

5A061 

1 

30062 

0 

00006 

1 

71652 

0 

55652 

0 

30062 

0 

00006 

1 

20,3170 

71653 

1 

55653 

1 

A0062 

1 

00006 

1 

777A1 

0 

677A1 

1 

5A062 

1 

AIAI7 

0 

20,3200 

57623 

1 

00006 

1 

61621 

0 

5IAI7 

1 

00006 

1 

70062 

1 

27652 

0 

A1A21 

0 

20,3210 

5762a 

0 

00006 

1 

61622 

0 

61A21 

1 

00006 

1 

70062 

1 

27653 

1 

31652 

i 

20,3220 

61653 

0 

00006 

1 

73312 

0 

5565A 

0 

A1652 

0 

61653 

0 

00006 

1 

73312 

0 

20,3230 

55655 

1 

30061 

0 

00006 

1 

71652 

0 

55656 

1 

30061 

0 

00006 

1 

71653 

1 

20,32A0 

55657 

0 

3A260 

1 

05523 

0 

ct 

03327 

1 

c: 

A0006 

0 

3775A 

0 

276AA 

1 

37761 

u 

20,3250 

55621 

1 

55622 

1 

33316 

0 

05722 

0 

13112 

1 

3775A 

0 

556AA 

1 

37761 

0 

20,3260 

13132 

0 

00006 

1 

33315 

0 

53637 

0 

33311 

1 

5563A 

0 

55635 

1 

33305 

1 

20,3270 

6000C 

1 

5A061 

1 

35226 

1 

5A062 

1 

13162 

0 

3A260 

1 

05523 

0 

C: 

03327 

1 

20,3300 

c: 

A0006 

0 

157A5 

0 

ci 

0002A 

1 

C! 

00027 

1 

c: 

00111 

0 

C:  01A63 

1 

C:  031A6 

1 

Ci 

12000 

1 

20,3310 

c: 

16051 

1 

C! 

2A000 

1 

Ci 

26501 

1 

C{ 

77I6O 

0 

C; 

00000 

1 

C;  00000 

1 

C;  00310 

0 

Ci 

20000 

0 

20,3320 

c: 

02000 

0 

157A6 

0 

05307 

0 

C! 

A0106 

1 

157A5 

0 

C!  73731 

0 

Ci  116A2 

1 

37753 

1 

20,3330 

5A1 AA 

1 

00006 

1 

77753 

0 

221A6 

1 

5OIAA 

0 

31613 

1 

5AI5O 

1 

5OIAA 

0 

20,33A0 

61652 

1 

5A151 

0 

63325 

0 

00006 

1 

6363A 

0 

036AA 

1 

5OIA6 

1 

55670 

0 

20,3350 

601AA 

0 

A1652 

0 

5A1A7 

1 

6OI5O 

0 

5A151 

0 

63325 

0 

00006 

1 

63636 

1 

7 n ^ “a  z.  n 

1 

55672 

30150 

60000 

1 

»,01A7 

5AI5I 

n 

0 J6AA 

1 

50 1 A6 

i 

1 

0 

1 

54I  5O 

0 

20,3370 

036AA 

1 

501A6 

1 

55673 

0 

AOIA7 

1 

6OI5O 

0 

54I5I 

0 

036AA 

1 

5OIA6 

1 
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octal  listing  0^  Paragraph  0 i23i  withi  parity  bit  in  binary  at  thl  right  qF  each  word;  "e"  denotes  unused  fixed 

ALL  VALID  WORDS  ARe  BASIC  INSTRUCTIONS  eXC^Pj  tHOSE  MAR<eD  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "Cn  (CONSTANTS) 


20.3A00  S5671  1 IOUa  I 
20.3410  &5711  0 31674  0 
20,3420  60000  1 54146  0 
20,3430  63325  0 00006  I 

20,3440  50144  0 6l6l3  1 
20,3450  31652  1 00006  I 
20,3460  31670  1 00006  I 
20,3470  31670  1 50144  0 

20,3500  50144  0 557I7  ° 
20,3510  31652  1 00006  I 

20,3520  31670  1 00006  I 
20,3530  57660  0 50145  I 

20,3540  50144  0 55711  0 
20,3550  55717  0 37761  0 
20,3560  60000  1 54145  0 
20,3570  63325  0 00006  I 

20,3600  50144  0 6l6l5  I 
20,3610  50145  1 55664  0 
20,3620  57664  1 50145  1 
20,3630  55665  1 10144  I 


I333O  0 37746  0 70077 

55712  0 15605  0 37755 

50144  0 11652  0 67755 

63640  0 03644  1 50144 

00006  1 63503  1 37761 

63467  1 50146  1 31672 

50146  1 11672  1 50144 

557II  0 50146  I 31672 

1355I  1 ooooa  0 37755 

63535  1 50146  1 31673 

50146  1 11673  0 50144 

55661  0 00003  1 13556 

50146  1 31672  0 00006 

50145  1 55661  0 10144 

50144  0 11654  0 67755 

63642  1 03644  1 50144 

00006  1 63606  1 ■ 37761 

50144  0 31654  1 00006 

55665  1 00003  I 13631 

13557  1 15605  0 33326 


0 10000  0 134I4  1 

1 54144  1 60000  1 

1 13427  1 67755  1 

0 55713  1 4OI5I  0 

0 5OI45  1 55660  1 

0 50144  0 55711  0 

0 557I7  0 13526  1 

0 00006  1 50146  1 

1 50145  1 S5660  1 

I 50144  0 55711  0 

0 557I7  0 37761  0 

0 00003  1 50146  1 

1 50146  1 ll67l  1 

I 13415  0 37755  1 

1 13567  1 67755  1 

0 55715  1 4OI5I  0 

0 13610  1 00004  0 

1 63625  0 37761  0 

1 00003  1 37761  0 

0 13346  1 33326  0 


20,3640  33326  0 13434  0 33326  0 13574  0 377^7  1 22007  0 00006  1 

20,3650  00002  0 Cj  03651  0 C»  03652  0 CKSM  53201  1 e @ 6 

20,3660  @ @ e @ @ € e 

20,3670  6 @ @ @ @ @ § 


20,3700  @ @ @ @ e @ @ 

20,3710  e e e @ e e e 

20,3720  @ @ § @ @ @ e 

20,3730  e @ @ @ @ e g 


20,3740  g @ @ @ @ @ @ 

20,3750  g g @ g @ @ g 

20,3760  g g g g g g g 

20,3770  g g g g g g g 


MEMORY. 


31670  1 
54145  0 
54151  0 
63325  U 

50144  0 
50146  I 
50146  1 
11670  0 

50144  0 
50146  I 

50145  I 

31671  0 

50144  0 
54144  1 
54151  0 
63325  0 

37755  1 

50145  1 
50145  1 
13361  I 

10151  0 
g 
g 
g 

g 

g 

g 

g 

g 

g 

g 

g 
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octal  listing  oF  paragraph  « 12A*  WlTHi  PARITY  BIT  In  BINARY  aT  THE  RIGHT  qF  EACH  WqRO;  "6"  DEnqTES  UNUSED  FIXED  MEMQRYt 
ALL  VALID  WORDS  ARe  BASIC  INSTRUCTIONS  E^^-EPt  tHOSe  MARXe?  "I"  ( I NT eRPRET I Ve  OPERATOR  WORDS)  OR  "C"  (CONSTANTS). 


21*2000 

32373 

1 

54030 

0 

22016 

0 

00006 

1 

22012 

1 

00006 

1 

32072  0 

53001 

U 

21,2010 

32013 

1 

55543 

0 

1 

I2033 

1 

Ci  02316 

1 

C; 

02052 

1 

32373 

1 

5AO3O  0 

22016 

0 

21*2020 

OOOOe 

1 

22012 

i 

O255O 

0 

00006 

1 

31574 

0 

5300 1 

0 

53574  1 

53602 

0 

21*2030 

53600 

1 

53576 

0 

53574 

1 

05041 

1 

00006 

1 

30034 

0 

53540  0 

00006 

1 

54001 

1 

0600a 

OOOOa 

2 1 * 20A0 

OOOOa 

0 

i 

00006 

1 

0 

OOOOfe 

1 

12051 

0 

n0006  1 

u 

21*2050  . 

54001 

1 

01543 

1 

40001 

1 

6l542 

0 

23542 

0 

00006 

1 

62061  1 

67736 

1 

21*2060 

67736 

1 

00006 

1 

77747 

0 

42370 

0 

00006 

1 

70001 

1 

55541  1 

11546 

0 

1 

CJ  34006 

12105 

1 

/s  A A A 1 

51546 

1 

21,2070 

12074 

1 

Ci 

02346 

1 

u 

u 

463U 1 

1 

27546 

0 

0UUU6  1 

21,2100 

32a05 

1 

53550 

1 

51546 

1 

32A06 

1 

55551 

0 

37754 

0 

54066  0 

12113 

1 

21,2110 

37761 

0 

54066 

0 

05041 

1 

50066 

1 

53553 

1 

52O73 

1 

5OO66  1 

53557 

0 

21,2120 

52062 

1 

50066 

1 

53563 

1 

52064 

1 

50066 

1 

31566 

0 

57567  1 

30063 

1 

21,2130 

00006 

1 

71541 

1 

00006 

1 

77744 

0 

60061 

0 

00006 

1 

71541  1 

00006 

1 

21,2140 

77745 

1 

20073 

1 

31567 

1 

00006 

1 

71541 

1 

54065 

0 

00006  1 

77747 

0 

21,2150 

60063 

1 

00006 

1 

71541 

1 

00006 

1 

77743 

1 

20062 

1 

30065  1 

00006 

1 

21,2160 

77746 

1 

20064 

1 

00006 

1 

30073 

0 

02303 

0 

31540 

1 

00006  1 

20065 

0 

21,2170 

55544 

1 

40073 

1 

60000 

1 

57545 

1 

00006 

1 

31545 

1 

20001  1 

22065 

1 

21,2200 

00006 

1 

71547 

1 

20073 

1 

30065 

1 

00006 

1 

71547 

1 

26O73  1 

54001 

1 

21,2210 

12212 

0 

26072 

0 

31544 

0 

00006 

1 

77745 

1 

22065 

1 

31545  1 

00006 

1 

21,2220 

77745 

1 

60065 

1 

22065 

1 

00006 

1 

71550 

1 

20062 

1 

30065  1 

00006 

1 

21,2230 

71550 

1 

26062 

1 

54001 

1 

12235 

0 

26061 

1 

31544 

0 

00006  1 

77746 

1 

21,2240 

22065 

1 

31545 

1 

00006 

1 

77746 

1 

60065 

1 

22065 

1 

n0006  1 

71551 

0 

21,2250 

20064 

1 

30065 

1 

00006 

1 

71551 

0 

26064 

1 

54OOI 

1 

12260  0 

26063 

0 

21,2260 

52073 

1 

50066 

1 

53553 

1 

52062 

1 

50066 

1 

53557 

0 

52064  1 

5OO66 

1 

21,2270 

53563 

1 

57537 

1 

57540 

1 

57537 

1 

10066 

0 

12110 

1 

AlOOO  1 

62400 

1 

21,2300 

00006 

1 

12572 

1 

15751 

0 

20001 

1 

10000 

0 

67755 

1 

12310  0 

AOOOO 

0 

21,2310 

54065 

0 

12315 

0 

50000 

1 

37736 

1 

26065 

0 

00002 

0 

23542  0 

32372 

0 

21,2320 

55546 

0 

320U 

0 

55543 

0 

00006 

1 

32376 

1 

53574 

1 

00006  1 

32072 

0 

21,2330 

53576 

0 

00006 

1 

32072 

0 

53602 

0 

00006 

1 

32401 

0 

53600  1 

00006 

1 

21,2340 

32403 

1 

53572 

1 

31537 

1 

00006 

1 

77740 

1 

53553 

1 

31540  1 

00006 

1 

21,2350 

77740 

1 

53555 

1 

37761 

0 

55556 

1 

55557 

0 

55560 

1 

55561  0 

55562 

0 

5 1 “y  1 

55564 

Q 

55565 

55566 

1 C *7  C 1 

0 

c i 

55563 

1 

1 

1 

55570 

0 

55522 

1 

5554H  1 

16751 

V 

21,2370 

Cj  24366 

1 

Cj 

14000 

1 

CJ  00132 

1 

Ci  37776 

0 

C: 

37775 

0 

Ci  02536 

0 

C;  42006  1 

Ci  02346 

1 
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488954A  YJL  system  for  agc:  New  pro^iram  s^ePatin  by  eyles 


Dec  13.  1966 


octal  listing  of  paragraph  It  125.  WIT^-  PARITY  BIT  IN  BINARY  AT  THe  RIGHT  OF  EACH  WORO;  "e"  DeNOtES  UNUSED  FIXeD 
ALL  VALID  WORDS  ARe  BASIC  INSTRUCTIONS  E^^'-EPT  tHOSe  MAR<eD  "I"  ( INTERP^ETIVe  OPERATOR  WORDS)  oR  "C  (CONSTANTS) 


21,2400  C: 
21,2410  C: 
21,2420  C: 
21,2430  C: 

21«2AAo  C! 
21,2450  C; 
21,2460  C: 

21,2470  C: 

21*2500  c: 
21,2510  Cl 
21,2520  c; 
21,2530  c: 


02561  1 C; 

00731  1 C! 

04650  0 Ci 

O67O7  1 CS 

01232  0 c: 

05752  1 C; 

16503  0 c; 

02123  0 Ci 

06543  0 Ci 

21470  1 Ci 

03054  0 Ci 

15230  1 Ci 


<♦2006  1 Ci 

05530  1 C5 

OIOO5  0 c» 

05130  0 Cl 

10513  1 Cl 

01456  1 Ci 

06341  1 Cl 

23610  I Cl 

02177  I Cl 

07125  0 Cl 

07317  ° Cl 

11756  0 Cl 


02015  1 Ci 
O4522  0 Ci 
O6I53  0 Ci 
01120  0 Ci 

05475  1 Ci 
135<^1  0 Ci 
01746  0 Ci 
065A2  1 Ci 

25A27  1 Ci 

02225  0 Ci 
11507  0 Ci 
00613  0 Ci 


A2006  1 Ci 
OO745  1 Ci 
04735  1 Ci 

O727O  0 Ci 

01306  0 Ci 
06101  1 Ci 
20244  1 Ci 
02166  1 Ci 

06564  0 Ci 
16256  1 Ci 
O4O7O  1 Ci 
17670  0 Ci 


05751  1 Ci 
05632  0 Ci 
01032  1 Ci 
05237  1 Ci 

11375  0 Ci 
01551  1 Ci 
06440  1 Ci 
25O72  0 Ci 

02160  1 Ci 
07544  0 Ci 
O44O4  0 Ci 
23514  0 Ci 


00672  1 Ci 
04572  0 Ci 
O6AO5  0 Ci 
01163  1 Ci 

05622  1 Ci 
15040  1 Ci 
02041  0 Ci 
06546  0 Ci 

2AO77  1 Ci 
02430  1 Ci 
13146  0 Cl 
00001  0 


05362  0 C 

11602  0 C 

05027  1 C 

077^2  1 C 

01367  1 C 

06225  1 C 

22055  1 C 

02205  1 C 

06671  1 C 

12624  1 C 

06020  0 C 

3237A  0 


21,25A0  C0006  1 
21,2550  11514  1 
21,2560  Ci  7OOOO  0 

21,2570  53001  0 


32A03  1 53001  0 
12556  1 32560  0 
32374  D 54030  0 
12663  1 00006  1 


22OI6  0 00006  1 
00006  1 O5OI4  1 
22016  0 00006  1 
31553  0 02303  0 


22O12  1 02550  0 
37755  I 5551A  1 
22012  1 00006  1 
00006  1 20767  0 


21,2600  00006  1 

21,2610  03420  1 

21,2620  55417  0 

21,2630  31562  1 


31555  0 02303  0 
53470  I 03430  0 
31560  0 54001  1 
03420  1 55A20  1 


00006  1 20770  0 

57470  0 31560  0 
31556  0 03430  0 
31564  1 54OOI  1 


5547O  1 00006  1 
54OOI  1 31556  0 
55A21  0 3156A  1 
^1562  1 0343O  0 


21,2640  3I4I7  1 
21,2650  31420  0 
21,2660  15751  0 
21,2670  54066  0 


00006  1 72661  0 

00006  1 72662  0 

C{  00122  0 C!  00051  0 
50066  1 11467  1 


27A67  1 31421  1 
27417  0 31422  1 
37754  0 7OO77  0 
62716  0 12676  0 


00006  1 72661  0 
00006  1 72662  0 
10000  0 12720  1 
62716  0 OOOO6  1 


21,2700  12720  1 

21,2710  00006  1 

21,2720  32743  0 

21,2730  C0006  1 


30066  1 60000  1 
62713  0 12720  1 
55OOO  I 00006  1 
31470  0 57A70  0 


50000  1 11417  0 

10066  0 12670  0 

32745  0 53572  1 

23467  0 37755  1 


62717  1 12710  1 
12765  0 Ci  77512  1 
00006  1 :»003A  0 
05701  1 Ci  02750  1 


21,27A0  00006  1 327^7  1 52006  0 Ci  03011  1 
21,2750  37761  0 03441  0 O57OI  1 Ci  03367  0 
21,2760  Cl  03372  1 Ci  42006  1 03377  1 15795  0 
21,2770  37761  0 59066  0 00006  1 50066  1 


Cl 

03631 

0 

Cl  39006 

0 

Cl  02755 

1 

Ci 

92006 

1 

37759 

0 

03991 

0 

Cl 

76509 

1 

37759 

0 

59066 

0 

31526 

1 

52062 

1 

00006 

1 

C 

c 

c 


Memory, 


09460  1 
05769  1 
01063  0 
05359  0 

: 12AO2  1 
: 01697  0 
I 06519  1 
I 25690  1 

I 02159  0 

. 1O4OI  0 
I 02213  0 
59030  0 

15751  0 
00002  0 
32903  1 
55967  1 

31970  0 
03920  I 

59001  1 
55922  0 

27970  1 

27921  0 
37755  1 
62701  0 

62717  1 
; 77923  1 
53931  1 
; 92006  1 

! 36006  1 

05701  I 
12772  0 

50066  1 
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A8895AA  YJL  SYSTEM  l-OR  AGC ! NEW  PRO'^RAM  S^ePaTIN  BY  eYLeS 


Dec  13,  1966 


octal  listing  of-  paragraph 

ALL  VALID  WORDS  ARe  BASIC 

« 126,  1 

instruct 

WITH. 

IONS 

Parity  bit  in  binary  at 

EXLePt  those  MARICe^  "Ih 

THE  RIGHT  qF  EaCH  WqRD;  DEnqTES 

(INTERPRETIVE  operator  WORDS)  oR  hCh 

unused  Fixed 

(Constants) . 

MEMORY. 

21*3000 

31420 

0 

5206a 

1 

30066 

1 

00006 

1 

13007 

1 

31470 

0 

13010 

1 

31457 

0 

21,3010 

00006 

1 

77747 

0 

22071 

1 

30061 

0 

62764 

0 

00006 

1 

63032 

0 

37740 

0 

1 

00006 

21,3020 

54072 

0 

37742 

i 

54073 

1 

1 OO5  3 

0 

63055 

1 

I3O27 

0 

63055 

1 

1 

21,3030 

63046 

0 

I3O7O 

1 

30061 

0 

00006 

1 

77751 

1 

22061 

0 

30061 

0 

00006 

1 

54062 

1 

37744 

63056 

21 ,30A0 

70000 

0 

Jl 

1 

54O72 

0 

37752 

0 

13022 

0 

1 0064 

1 

1 

21,3050 

13052 

1 

63056 

1 

00006 

1 

63057 

0 

13070 

1 

C{  76450 

1 

C5 

75120 

0 

30063 

1 

77751 

1 • 

22063 

30064 

1 

22064 

13100 

1 

2 1 « 3060 

U0006 

1 

i 

i 

0 

UUUU6 

i 

77752 

1 

0 

X 

21,3070 

30072 

1 

00006 

1 

77741 

0 

54072 

0 

30073 

0 

00006 

1 

77750 

0 

54073 

1 

1 

22070 

00006 

1 

00006 

21,3100 

30071 

1 

00006 

X 

70062 

1 

0 

1 

7OO73 

5207 1 

0 

1 

21,3110 

70073 

1 

26071 

0 

30063 

1 

00006 

1 

70061 

1 

22061 

0 

00006 

1 

70072 

0 

21,3120 

52062 

1 

00006 

1 

70072 

0 

26062 

1 

30064 

0 

00006 

1 

7OOOO 

0 

52073 

i 

21,3130 

30064 

0 

00006 

1 

63136 

0 

00006 

1 

30073 

0 

13140 

0 

OOOO6 

1 

40073 

1 

21,3140 

53521 

1 

00006 

1 

30062 

0 . 

21521 

1 

11520 

0 

13151 

0 

13150 

1 

13153 

1 

21,3160 

1 1521 

1 

37754 

0 

13154 

0 

37761 

0 

67763 

1 

54065 

0 

10065 

0 

13164 

0 

21,3160  Ci 

25253 

1 

00006 

1 

40062 

1 

52062 

1 

00006 

1 

30062 

0 

53521 

1 

00006 

1 

21,3170 

30073 

0 

21521 

1 

30072 

1 

00006 

1 

73160 

1 

52073 

1 

56001 

0 

00006 

1 

21,3200 

73160 

1 

26073 

1 

54001 

1 

13205 

1 

6OO72 

1 

52062 

1 

20073 

1 

30072 

1 

21,3210 

00006 

1 

70064 

I 

52073 

1 

56001 

0 

00006 

1 

70064 

1 

26073 

1 

54001 

1 

21,3220 

13222 

1 

26072 

0 

52073 

1 

20071 

0 

11520 

0 

13272 

1 

1 3230 

1 Ci 

26501 

1 

21,3230 

05041 

1 

31521 

0 

05435 

0 

00006 

1 

71521 

1 

00006 

1 

77746 

1 

56001 

0 

21,3240 

37761 

0 

53521 

1 

13257 

0 

31520 

1 

00006 

1 

77747 

0 

23520 

1 

37761 

0 

21,3250 

57521 

0 

00006 

1 

77747 

0 

21521 

1 

37761 

0 

55517 

1 

13277 

1 

47735 

0 

21,3260 

55517 

1 

10065 

0 

33227 

0 

13265 

1 

43227 

1 

13301 

1 

37735 

1 

55517 

1 

21,3270 

37750 

1 

13301 

I 

65522 

1 

54000 

0 

13243 

0 

37735 

1 

55517 

1 

31520 

1 

21,3300 

05435 

0 

57520 

1 

00006 

1 

71520 

0 

53521 

1 

00006 

1 

7OOOI 

1 

27521 

1 

21,3310 

54001 

1 

13313 

1 

27520 

0 

11517 

1 

13257 

0 

13266 

1 

00006 

1 

31521 

0 

21,3320 

20071 

0 

10070 

1 

13326 

1 

13325 

1 

13330 

0 

10071 

0 

37754 

0 

13331 

1 

21,3330 

37761 

0 

67763 

i 

50066 

1 

55522 

1 

40000 

0 

00006 

1 

5OO66 

1 

71531 

0 

21,3340 

50066 

1 

23532 

1 

10066 

0 

12770 

1 

31532 

1 

00006 

1 

71400 

0 

55566 

1 

21,3350 

31534 

1 

00006 

1 

71402 

1 

27566 

1 

27566 

1 

31532 

1 

00006 

1 

71401 

1 

21,3360 

55570 

0 

31534 

1 

00006 

1 

71403 

0 

27570 

0 

03377 

1 

15751 

0 

37761 

0 

21,3370 

55522 

1 

13374 

0 

37761 

0 

55524 

1 

03377 

1 

15745 

0 

C! 

07400 

1 

43376 

1 
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48895^fA  yjL  SYSIEM  FOR  AGC:  NeW  PROGRAM  S^ePATIN  BY  eYLeS  DeC  i,*  1966 


OCTAL  listing  OF  PARAGRAPH  # 127»  WItHi  =AHITY  BIT  IN  BINARY  AT  THe  RIGHT  OF  EACH  WORD;  "e"  DENOTES  UNUSED  FIXED  MEMORY. 

ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  EX'-EPT  THOSe  MARICeO  "I"  (INTERPRETIVE  OPERATOR  WORDS)  OR  "C  (CONSTANTS). 

21,3400  00006  1 02012  0 54066  0 11522  1 37745  0 13407  0 37744  1 26066 
21,3410  11524  1 37743  0 13414  1 37742  1 26066  0 00006  1 01012  0 00002 
21,3420  22066  1 00006  1 71405  0 56066  I 00006  I 71A01  1 60066  1 00002 
21,3430  22066  1 00006  I 71406  0 56066  1 00006  1 71403  0 60066  1 00002 

21,3440  Ci  25253  I 54061  I 50061  0 31531  1 00006  1 63525  0 5A062  1 5OO6I 
21,3450  31420  0 00006  1 73535  0 56001  0 1006l  1 5OOOO  1 23656  0 5OO6I 
21,3460  31420  0 00006  I 13525  1 00006  1 63470  1 54066  0 37755  1 13473 
21,3470  40000  0 54066  ° A7755  0 5OO6I  0 55522  1 40000  0 00006  1 5OO6I 

21,3500  71531  0 50061  0 23532  1 30066  I 00006  1 77743  1 00006  1 10062 
21,3510  63533  1 10000  0 43532  1 00002  0 67755  1 00006  1 73534  1 20001 

21,3520  63532  0 40000  0 00006  1 63525  0 00002  0 37761  0 5OO6I  0 55522 
21,3530  50002  0 00003  I C5  50437  1 C;  60777  0 Cj  31000  0 C;  01146  0 40775  0 61417 

21,3540  55424  0 33727  0 00006  1 7l4l3  1 61424  I 00006  1 63605  1 33741 
21,3550  54063  0 31424  1 00006  1 7OOOO  0 00006  1 73732  0 54062  1 6lAl3 
21,3560  63741  0 00006  I 63613  0 31424  I 00006  I 63576  0 60062  0 00006 
21,3570  73727  1 61413  0 00006  1 73733  1 55504  0 13615  1 00006  I 73727 

21,3600  61413  0 00006  1 73733  1 55504  0 13615  I 41413  1 57413  0 41424 
21,3610  57424  1 43741  I 13550  0 -37761  0 55504  0 40776  0 6lA2l  1 55425 
21,3620  33730  0 00006  1 71411  0 6l425  0 00006  1 63664  0 33741  0 54064 
21,3630  31425  0 00006  1 70000  0 00006  I 73731  0 54062  1 6lAll  1 63741 

21,3640  00006  1 63672  I 31425  0 00006  1 63655  I 60062  0 00006  1 73730 
21,3650  61411  1 00006  1 73734  0 55506  1 13673  I 00006  1 73730  1 61A11 
21,3660  00006  1 73734  0 55506  1 13673  1 41411  0 57^11  1 41425  1 57425 
21,3670  43741  1 13627  0 37761  0 00006  I 61504  1 10000  0 137IA  1 13701 

21,3700  I37O5  1 31504  1 00006  1 13723  0 I37I4  1 30063  1 00006  1 63712 
21,3710  33736  0 13724  1 33735  0 13724  1 30064  0 00006  1 63721  0 33737 
21,3720  13724  1 33740  1 13724  1 37761  0 00006  1 01005  0 15751  0 C;  37777 


21,3730 

Ci  37777  1 

c: 

06743  1 

Ci  067A3  1 

C; 

15707  0 

CI 

15707  0 

C!  00011  1 

Cl  00006  1 

C:  00201 

21»3740 

C!  OO1O2  1 

C! 

77644  1 

C5  03742  0 

Ci 

03743  1 

C<SM 

53477  0 

g 

g 

g 

21,3750 

e 

g 

g 

g 

g 

g 

g 

21,3760 

e 

e 

g 

g 

g 

g 

g 

g 

21,3770 

e 

e 

g 

g 

g 

g 

g 

g 

0 

0 

0 

0 

0 

0 

0 

0 

1 

1 

1 

1 

0 

0 

1 

1 

0 

I 

1 

0 

1 

1 

0 

0 

0 

1 

1 

1 
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48895AA  YJL  SYSTE^  ^OR  AGC!  NeW  S^^ePatIN  BY  eYUeS  OeC  i,,  1966 

oCTal  listing  0^-  Paragraph  « i3o»  with,  parity  bit  in  binary  at  the  right  qF  each  woRo;  "S"  denotes  unused  fixed  memory# 


ALL  valid  words  ARe  BASIC  I NStRUCj 10*15  E^'-EPt  THOSe  MARKe^  "I"  ( INTERPRET  I Ve  OPeRATOR  WORDS)  OR  "C"  (CoNStANjS) . 


22«2000 

03373 

0 

O6IO3 

0 

I i 

77745 

1 

Cl 

02047 

0 

Cl  35321 

1 

CI 

603A7 

1 

II  77776 

1 

04147 

I 

22.2010 

Ci 

04022 

0 

O6IO3 

0 

I i 

77745 

1 

C| 

05547 

1 

C|  25O73 

1 

Ci 

05562 

0 

Ci  02213 

0 

C; 

I6I7I 

1 

22,2020 

Ci 

05562 

0 

Ci 

O2O55 

0 

IJ 

77776 

I 

33561 

0 

55402 

1 

03205 

0 

37735 

1 

55564 

0 

22,2030 

55565 

1 

5540a 

1 

O1O72 

0 

Cl 

12210 

1 

12172 

0 

CI 

00000 

1 

CI  02113 

0 

Cl 

77664 

0 

22*20A0 

126A5 

0 

12210 

I 

I22OY 

1 

00000 

1 

Cl  02117 

1 

C 1 

73465 

1 

12721 

0 

12210 

1 

22,2050 

12172 

0 

C; 

OOO27 

1 

Ci 

02117 

1 

Cl 

77551 

0 

12721 

0 

13140 

0 

12207 

1 

Ci 

00027 

I 

22,2060 

C! 

02123 

0 

CI 

77746 

I 

12721 

0 

13155 

1 

12172 

0 

CI 

00056 

1 

Cl  02123 

0 

C: 

77746 

I 

22,2070 

12721. 

0 

12210 

I 

12172 

0 

Cl 

00065 

I 

Cl  02117 

1 

Cl 

77551 

0 

12721 

0 

13140 

0 

22*2100 

I22O7 

I 

Ci 

00065 

I 

cl 

02123 

0 

Cl 

77746 

1 

I2Y2I 

0 

13155 

1 

12172 

0 

C: 

00114 

0 

22,2110 

Ct 

02123 

0 

Ci 

77763 

0 

12733 

0 

12750 

0 

12413 

1 

I3O4I 

0 

12615 

0 

12164 

I 

22,2120 

12413 

1 

12571 

I 

12721 

0 

12164 

1 

13171 

1 

12571 

1 

12721 

0 

00006 

1 

22.2130 

23406 

1 

03373 

0 

00006 

1 

51072 

0 

30003 

1 

53401 

1 

00006 

1 

41401 

1 

22,2140 

50110 

1 

52047 

0 

00006 

1 

31447 

1 

53451 

1 

O4I47 

1 

CI  04022 

0 

00006 

I 

22,2150 

31321 

0 

53447 

0 

06103 

0 

1 1 

77775 

1 

CI  01011 

0 

CI 

26061 

1 

Cl  01017 

0 

1 1 

77742 

0 

22,2160 

C! 

02071 

0 

i; 

77776 

1 

51401 

0 

10000 

0 

04147 

1 

Cl 

O4O22 

0 

11402 

1 

12211 

0 

22,2170 

51072 

0 

10001 

I 

00006 

1 

'31453 

1 

53A55 

0 

51^00 

1 

33422 

0 

27454 

I 

22,2200 

04147 

1 

Ci 

04022 

0 

00006 

1 

31455 

1 

53453 

0 

0414  T 

1 

Ci  04022 

0 

01406 

1 

22,2210 

02127 

1 

00006 

I 

41451 

1 

52145 

0 

00006 

1 

31447 

1 

20145 

0 

37742 

I 

22,2220 

07367 

1 

00006 

I 

31453 

1 

20145 

0 

52145 

0 

53455 

0 

04147 

1 

Ci 

04022 

0 

22,2230 

00006 

1 

31455 

1 

53453 

0 

06103 

0 

II  53575 

0 

CI 

02061 

1 

Cl  26012 

0 

Cl 

02357 

I 

53435 

C! 

26O2O 

Cl 

O2OI2 

I I 76435 

CI 

O2O2O 

02071 

0 

22*22^0 

I i 

0 

Ci 

O2OI2 

u 

1 

0 

1 

1 

Cl  2^02^ 

1 

c : 

22,2250 

I ; 

76521 

0 

Cl 

02012 

0 

Ci 

26077 

0 

Cl 

02061 

1 

II  72441 

0 

Ci 

02357 

1 

Ci  26105 

1 

Cl 

02061 

1 

22,2260 

I : 

50235 

0 

CI 

02071 

0 

Ci 

02357 

1 

1 1 

77752 

1 

CI  26107 

0 

Ci 

02061 

1 

1;  77646 

0 

Ci 

16067 

1 

22,2270 

Ci 

02105 

1 

I! 

65316 

0 

ci 

02067 

1 

1 1 

45316 

1 

II  77766 

0 

CI 

16111 

1 

CI  02067 

1 

Cl 

16113 

0 

22*2300 

Ci 

O2III 

1 

1 ! 

77671 

1 

ci 

02067 

1 

Ci 

16127 

1 

Ci  02105 

1 

1 1 

77671 

1 

CI  02067 

1 

Cl 

I6l3l 

0 

22,2310 

Ci 

02105 

1 

I; 

77671 

1 

C! 

02111 

1 

C| 

16133 

1 

Ci  02131 

0 

1 1 

67542 

0 

1|  52405 

I 

Cl 

05600 

I 

22,2320 

Ci 

16117 

1 

Ci 

02103 

I 

1! 

65271 

0 

Cl 

02067 

1 

CI  02101 

0 

I ! 

65271 

0 

Cl  02111 

1 

Ci 

02077 

0 

22,2330 

li 

77666 

1 

Ci 

16121 

1 

Cl 

02123 

0 

1 1 

77716 

1 

II  41205 

0 

Cl 

02131 

0 

Cl  02127 

1 

1 1 

41325 

0 

22  *23A0 

Ci 

02125 

0 

Ci 

02l2l 

1 

II 

72471 

0 

Cl 

O2O67 

1 

II  57415 

0 

1 1 

41325 

0 

CI  02123 

0 

Cl 

O2I2I 

1 

22,2350 

1 ! 

77671 

1 

C; 

02067 

I 

1 ! 

41325 

0 

C| 

02133 

1 

Ci  02125 

0 

l! 

77605 

1 

Ci  02123 

0 

1 1 

72425 

I 

22,2360 

I i 

63525 

0 

Cl 

02067 

I 

I 1 

77665 

1 

Ci 

21143 

1 

I!  63525 

0 

CI 

02125 

0 

II  77605 

1 

Cl 

02067 

I 

22,2370 

li 

63525 

0 

Ci 

02127 

1 

II 

63525 

0 

Cl 

02123 

0 

II  41205 

0 

Cl 

02067 

1 

II  45215 

0 

1 1 

77666 

1 

pAGElWb 


A8895AA  yjL  SySTEm  fOR  AGc!  NEW  PROGRAM  S^^EpATIN  BY  EyLES 


DEc  l3«  1966 


octal  listing  oe  paragraph  0 131,  WITH'  ^a^ity  bit  in  binary  At 

ALL  VALID  WORDS  ARE  BASIc  INSTRUCTIONS  EXCEPT  THOSE  mARkeD  "I" 

22,2a00  C;  02135  1 I I 77776  I 37761  0 555U 
22,2410  Ci  04022  0 51401  0 10001  1 00006 
22,2420  5I4OO  1 33430  0 20001  1 52145 
22,2430  377A6  0 55443  1 00006  1 31525 

22,2440  5I4OO  1 33444  0 20001  1 52145 
22.2450  41517  1 52145  0 21436  0 00006 
22,2460  O735I  1 00006  I 30145  1 53434 
22,2470  31050  0 5OO7O  0 55010  0 IOO7O 

22,2500  00006  1 - 31321  0 5334I  1 00003 
22,2510  C!  02053  0 C:  05575  0 I?  51715  0 C;  02113 
22,2520  Ci  02121  1 Ci  O544O  1 i;  70251  0 l!  77653 
22.2530  Ci  I6l51  0 Ci  02111  I li  41316  0 Ci  02053 


the  right  of  each  word;  Denotes  unused  fixed  memory. 

( iNTERpRETivE  Operator  wordS)  or  i'c"  (constants), 

1 555I5  0 55522  1 55523  0 04147  1 

1 51AOO  1 33446  1 53442  0 00006  1 

0 33576  0 07351  1 52145  0 53440  1 

1 52145  0 33572  1 07351  1 00006  1 

0 53436  0 33573  0 O735I  1 00006  1 

1 5UOO  1 33436  0 20145  0 33572  1 

1 00004  0 37756  1 54O7O  1 5OO7O  0 

1 12466  0 00006  1 3l445  0 53321  1 

1 O4I47  1 Ci  O4O22  0 06103  0 li  41345  0 

0 c:  05432  1 i;  70362  1 Ci  02053  0 1:  52715  0 

1 Ci  05424  0 Ci  02143  0 li  77651  0 Cl  02135  1 

0 li  45325  1 Ci  02107  0 Ci  05450  0 I:  77702  1 


22*25A0  li  45471  1 Ci  61624  0 
22,2550  Cl  02151  0 Ij  61266  1 
22,2560  Cl  02165  1 II  77762  I 
22,2570  55404  1 04147  1 

22*2600  51401  0 60003  I 
22,2610  55072  1 37761  0 
22,2620  C{  05567  0 Ci  01321  0 
22,2630  54003  0 O4I47  I 

22*26A0  Ci  25011  0 Cl  01057  1 
22,2650  00006  1 41447  0 
22,2660  00006  1 31453  1 
22,2670  O6IO3  0 II  52315  1 


C5  02155  1 li  65205  0 Cl  02067  1 

Ci  02012  0 Ii  77772  0 Ci  02157  0 

C!  01335  0 II  77776  1 51401  0 

Ci  04022  0 25402  0 5IO72  0 

31072  0 55405  0 04147  1 

55402  1 51405  1 10005  0 

Ci  26045  1 C;  05562  0 Cl  34404  0 

c*  04022  0 O6I03  0 Ii  77745  1 

Ci  01017  0 Ii  77776  1 01072  0 

20145  0 37742  1 00006  1 

52145  0 52121  1 05336  1 

Cl  O2I7I  1 Ci  02177  1 I!  74352  0 


C!  02153  1 II  65205  0 C;  02111  1 

Ii  77656  1 Ci  I6I7I  1 Ci  00045  0 

10002  1 54111  1 37760  1 

40004  1 61A52  0 00006  I 

Ci  04022  0 31405  1 66276  1 

03373  0 06103  0 I i 43345  1 

Ci  6IO77  0 I I 77776  1 33545  0 

Cl  O2O45  1 Ci  25321  0 Cl  01051  1 

00006  1 31A51  0 521A5  0 

77753  0 30001  0 07367  1 

Ci  00352  0 37761  0 5^153  1 

Cl  02171  1 II  77655  1 Ci  02171  1 


22*2700  Cl  15656  0 Cl  02053  0 H 

22,2710  04147  1 Ci  04022  0 

22,2720  52006  0 O6IO3  0 Ii 

22,2730  33557  0 52006  0 

22*27A0  I I 77776  1 00006  1 

22,2750  06103  0 Ii  77745  I Ci 

22,2760  Ci  02071  0 Cl  24017  1 Cl 

22,2770  Cl  45124  1 Ii  77775  1 Cl 


41276  1 Ci  05561  0 I 1 776i5  0 
00006  1 31455  1 53453  0 
77775  1 Ci  02171  1 Cl  36233  0 
05605  1 06103  0 I 1 77775  1 

33557  0 52006  0 03373  0 
02165  1 Ci  26167  0 Cl  02171  1 
02213  0 Cl  14025  0 Ci  05407  1 
00033  1 Ci  16205  1 Ci  05413  1 


Ci  01321  0 Ci  02057  1 I:  77776  I 
03373  0 00006  1 33553  1 

Ci  60643  0 Ii  77776  1 00006  1 

Ci  02357  1 Ci  36233  0 Cl  60643  0 

00006  1 33555  1 52006  0 

Ci  26177  1 Ci  02061  1 Ci  24011  1 

Cl  14007  0 Ci  05411  0 I:  77624  1 

Ci  14007  0 Ci  05415  1 I I 77624  1 


pAgE1177 


A8895AA  yJL  SYSTEM  FOR  AqC;  NEw  PROGRAM  SHEpATiN  gy  EyLEfi  DEC  1966 


octal  listing  Of-  paragraph  # 132,  wItHi  Parity  bit  in  binary  at  tHe  right  of  each  word;  "e"  Denotes  unused  fixed  memory. 


ALL  VALID 

ARE  1 

BASIC 

instructions 

EXCEPT  those 

MARkeO  "I" 

( INTERpRETiVE 

Operator 

WORDS)  OR 

!I^M 

(CONSTANTS) , 

22,3000 

Ci 

A5124 

1 

I i 

777A5 

1 

c« 

05417 

0 

Ci 

14007 

0 

Ci 

05421 

0 

li 

77624 

1 

Ci 

45124 

1 

1 : 

77775 

22,3010 

c: 

00011 

1 

Ci 

26113 

0 

C! 

00017 

1 

Ci 

36121 

0 

Ci 

45363 

0 

1 i 

70251 

0 

Ci 

02205 

1 

Cl 

05401 

02213 

1 i 

1 

04147 

r t 

O y 1 n 0 

T • 

77745 

26053 

22,3020 

C ! 

0 

77776 

i 

1 

^ • 

04022 

U 

U61U3 

U 

1 1 

1 

C i 

02055 

0 

C ; 

22,3030 

c; 

02113 

0 

Ci 

26061 

1 

CJ 

02121 

1 

Ci 

02071 

0 

I i 

77776 

1 

31404 

0 

55403 

0 

03205 

31453 

04022 

55452 

22*3oAO 

1216A 

1 

00006 

1 

1 

53^55 

0 

04147 

1 

c ; 

0 

47735 

0 

22,3050 

00006 

1 

31565 

0 

52145 

0 

00006 

1 

41567 

0 

20145 

0 

10144 

1 

13065 

22,3060 

13062 

1 

12567 

0 

30145 

1 

00006 

1 

62567 

1 

11403 

0 

1257O 

0 

00006 

Q 

00006 

20145 

37742 

07367 

00006 

22 ,3070 

3 1 A5 1 

0 

521A5 

1 

41447 

U 

0 

1 

1 

22,3100 

31565 

0 

52150 

1 

00006 

1 

43405 

1 

2OI5O 

1 

O7I46 

0 

Ci 

00147 

0 

00006 

22,3110 

31567 

1 

52121 

1 

00006 

1 

A1565 

1 

20121 

1 

05336 

1 

Ci 

00352 

0 

10111 

22,3120 

12566 

1 

52145 

0 

53453 

0 

12571 

1 

I i 

77620 

0 

Ci 

02007 

1 

I i 

74352 

0 

Cl 

02171 

22,3130 

I : 

A5006 

0 

Ci 

45363 

0 

I 

45455 

1 

Ci 

77736 

0 

I i 

77624 

1 

Ci 

45333 

0 

I i 

77650 

1 

Ci 

02007 

22»3iA0 

02127 

1 

06103 

0 

I 5 

77773 

1 

Ci 

05424 

0 

Ci 

16205 

1 

Ci 

02153 

1 

I i 

77615 

0 

C: 

02137 

22,3150 

C: 

021A5 

0 

Ci 

26207 

0 

Ci 

02205 

1 

li 

77650 

1 

Ci 

45162 

0 

02127 

1 

06103 

0 

I : 

77773 

22,3160 

C! 

05A2A 

0 

Ci 

02205 

1 

It 

77645 

0 

Ci 

02143 

0 

I i 

70342 

0 

Ci 

02053 

0 

Ci 

02213 

0 

I i 

77776 

22,3170 

12211 

0 

O6IO3 

0 

I i 

74375 

0 

Ci 

02213 

0 

Ci 

02053 

0 

1 i 

77752 

1 

I i 

52255 

1 

Ci 

02205 

22*3200 

Ci 

02135 

1 

Ci 

16151 

0 

Ci 

02155 

1 

li 

77650 

1 

Ci 

44543 

0 

00006 

1 

31321 

0 

53447 

22,3210 

00006 

1 

33403 

0 

21447 

0 

00002 

0 

00006 

1 

22122 

0 

54107 

0 

52150 

22,3220 

33332 

0 

54131 

0 

54151 

0 

IOI50 

1 

54152 

0 

37761 

0 

5A153 

1 

00006 

22,3230 

30U5 

1 

52117 

1 

50147 

0 

30005 

1 

07351 

1 

05336 

1 

Ci 

0II7A 

1 

52145 

22,32A0 

52115 

0 

00006 

1 

50107 

1 

3OOO4 

0 

52145 

0 

30150 

0 

54130 

1 

67755 

22,3250 

07367 

1 

00006 

1 

50107 

1 

30002 

0 

52145 

0 

50131 

1 

52004 

1 

4775A 

22,3260 

26107 

0 

47754 

1 

26131 

0 

10130 

1 

13246 

0 

00006 

1 

30117 

0 

52145 

22,3270 

00006 

1 

30152 

1 

07260 

1 

00006 

1 

30117 

0 

52145 

0 

52121 

1 

00006 

22,3300 

30150 

0 

07260 

1 

05336 

1 

Ci 

00352 

0 

00006 

1 

40145 

0 

?0117 

1 

05336 

22,3310 

Ci 

0117A 

1 

00006 

1 

40115 

0 

20145 

0 

24153 

0 

10144 

1 

13265 

1 

13321 

22,3320 

13325 

1 

10145 

0 

13265 

1 

13325 

1 

13325 

1 

52117 

1 

52145 

0 

30153 

22,3330 

5A1A6 

0 

00122 

0 

Ci 

00137 

1 

I i 

77745 

1 

Ci 

OOOO7 

0 

1! 

74205 

0 

Ci 

05571 

1 

Ci 

00025 

22  *33A0 

li 

7A255 

0 

Ci 

00041 

1 

Ci 

00007 

0 

1 i 

53362 

0 

Ci 

00017 

1 

li 

53361 

0 

Ci 

00007 

0 

Cl 

OOOll 

22,3350 

Ci 

lAOll 

1 

Ci 

OOOO7 

0 

1 1 

7A362 

0 

Ci 

00025 

0 

I i 

74255 

0 

Ci 

00041 

1 

Ci 

00007 

0 

I ! 

77655 

22,3360 

Ci 

OOOI7 

1 

Ci 

00017 

1 

It 

77616 

0 

li 

57575 

1 

Ci 

00011 

1 

I ! 

74256 

0 

Ci 

21143 

1 

1 i 

765A1 

22,3370 

Ci 

000A3 

0 

Ci 

00033 

1 

I i 

77616 

0 

30110 

1 

54156 

1 

37761 

0 

54111 

1 

00002 

1 

1 

0 

u 

1 

0 

1 

1 

1 

1 

1 

I 

D 

I 

I 

1 

0 

1 

I 

0 

1 

1 

0 

1 

1 

0 

0 

0 

1 

1 

u 

0 


pAGEll7B 


A8895AA  yJl  System  for  aqC;  new  program  s^epatin  by  eyles 


DEC  I3i  1966 


octal  listing  of  paragraph  0 133,  wItHi  parity  bit  in  binary  at  the  right  of  each  word;  "e"  Denotes  unused  fixed 


ALL  VALID  WORDS  ARE  BASIc  INSTRUCTIONS  EXCEPT  THOSE  mARkeD  "I" 

22,3^00  C:  03213  1 Cj  00000  1 C>  00000  1 C:  06A26 

22,3A10  C:  00006  1 CS  13657  1 Ci  00226  1 C;  OOOOO 

22,3420  C:  00041  1 C!  22563  1 C5  65006  1 C5  77646 

22,3430  Ci  35641  1 Ci  14634  0 C*  00651  0 Ci  OOOOO 

22.3440  Ci  66716  1 Ci  OOOOO  1 C!  OOOOO  1 Ci  77024 

22,3450  Ci  22763  0 Ci  75435  1 C!  77713  1 Ci  45300 

22,3460  Ci  I46l7  1 Ci  11361  0 Ci  OOOOO  1 Ci  OOOOO 

22,3470  Ci  OOOOO  1 Ci  OOOOO  I Cl  77354  0 Ci  43410 

22*3500  Ci  77715  i Ci  00064  0 Cl  34377  0 Ci  OOOOO 

22,3510  C;  00213.1  C;  25223  0 Cl  OOOOO  1 C;  OOOOO 

22,3520  Ci  OOOOO  1 Ci  OOOOO  1 Cl  OOOOO  1 Ci  06001 

22,3530  Ci  77764  1 Ci  43307  I Cl  74137  1 Ci  67600 


( iNTERpRETivE  Operator  wordS)  or  (constants) 


1 Ci 

1 Ci 

0 Ci 

1 Ci 

1 Ci 

0 Ci 

1 Ci 

0 Ci 

1 Ci 

1 Ci 

0 Ci 

0 Ci 


00466  0 Ci 
00041  1 Ci 
43535  0 Ci 
OOOOO  1 Cl 

46232  0 Ci 
OOOOO  1 Ci 
00067  0 Cl 
00441  0 Cl 

OOOOO  1 Ci 
00536  1 Ci 

77774  0 Ci 
01727  1 Cl 


37617  0 Cl 
21100  0 Ci 
OOOOO  1 Ci 
00255  0 Ci 

01260  1 Cl 
OOOOO  1 Ci 
06341  1 Cl 
31226  0 Cl 

Oi36o  0 Cl 
14712  0 Cl 

45220  0 Cl 
22763  0 Ci 


00567  0 C 

02176  0 C 

OOOOO  1 C 

OO7I7  0 C 

30176  1 C 

01357  1 C 

77716  1 C 

01727  1 C 

2l6l7  1 C 

14602  0 C 

OOOOO  1 C 

77602  0 C 


22,3540  Cl  OOOOO  1 Ci  OOOOO  1 Cl  OOOOO  1 
22,3550  Ci  01436  1 Ci  00002  0 Cl  02025  1 
22,3560  Cl  00010  0 Ci  OOOOO  1 Cl  OOOOO  1 
22,3570  Cl  12525  0 Cl  12525  0 Cl  14000  1 


Ci  00654  0 
Cl  74064  0 
Ci  77777  0 
Cl  22000  1 


37552 

1 

Ci 

02000 

0 

CI  02033 

0 

c 

02172 

1 

Ci 

74064 

0 

Ci  03377 

1 

c 

77777 

0 

Cl 

OOOOO 

1 

CI  OOOOO 

1 

c 

25252 

0 

CI 

25253 

1 

Ci  30000 

1 

c 

22*3600  Cl  36652  0 00006  1 33627  1 52145  0 00006  1 33646  0 0321^  0 

22,3610  li  73545  1 Cl  05650  1 CI  26111  1 Ci  05511  1 Ci  02113  0 U 77776  1 33653  1 

22,3620  05326  0 07650  0 06103  0 Ci  02121  1 II  77776  1 37755  1 Ci  3OOOO  1 C 

22,3630  Cl  OOOOO  1 Cl  OOOOO  1 Cl  00040  0 Cl  OOOOO  1 Cl  OOOOO  1 Ci  OOOOO  1 Cl  76577  0 C 


22*3640  Cl  OOOOO  1 Cl  OOOOO  1 

22,3650  Ci  12525  0 Cl  20000  0 

22 , 3660  @ S 

22,3670  @ @ 


cl 

04000  0 

Ci 

OOOOO  1 

Ci 

00001 

Ci 

OOOOO  1 

Ci 

03651  0 

Ci 

03654 

g 

g 

g 

g 

g 

g 

0 Cl  03637  0 Ci  OOOOA  0 C 

0 Cl  03655  1 CicSM  76331  1 

@ @ 

@ § 


22,3700  e @ e @ @ @ e 

22,3710  e @ e @ @ @ e 

22,3720  @ @ @ @ @ e e 

22,3730  e @ @ @ @ @ @ 


22,3740  @ @ @ g e @ e 

22,3750  @ e @ @ @ g e 

22,3760  g g g g g g g 

22,3770  g g g g g g g 


Memory, 


OOOOO  i 
OOOOO  1 
1 02376  I 
: 77735  0 

: 01727  1 
: 27066  1 
! 61241  1 
1 22763  0 

: 74550  1 
; 17421  0 

; OOOOO  1 
i OOOOO  1 

• 44004  0 
i 60065  1 
; 00310  0 

1 31103  1 

06103  0 
54106  1 
i OOOOO  1 
1 OOOOO  1 

1 02525  1 
g 
g 
g 

g 

g 

g 

g 

g 

g 

g 

g 


488954A  YJL  SYSTEM  FOR  aGC;  NEW  PROGRAM  SMePaTIN  BY  eYLeS 


DEC  13,  1966 


PAGEU79 


octal  listing  oP  Paragraph  * withi  rarity  bit  in  binary  at  the  right  qF  Each  wqRd;  "e"  denotes  unused  fixed  memqRY. 
ALL  valid  words  ARe  BASIC  INSTRUCTIONS  E^^ePt  THOSE  MARKe?  '•  I m ( I NTeRPRET I Ve  OPERATOR  WORDS)  OR  "C"  (CONSTANTS), 


23.2000 

521A2 

1 

50273 

1 

32052 

1 

5A136 

1 

50273 

1 

32152 

0 

5A13T 

0 

40273 

0 

23,2010 

62036 

0 

00006 

1 

62016 

1 

37755 

1 

54I3O 

1 

02034 

1 

3775A 

0 

54130 

1 

1 

32420 

n 

54I43 

35356 

70136 

1 

23,2020 

50273 

0 

1 

1 

54DO2 

1 

50000 

1 

324O6 

23,2030 

5AK0 

0 

00006 

1 

50002 

0 

32410 

0 

52142 

1 

52006 

0 

Ci  00055 

1 

52114 

1 

50000 

1 

5OOOO 

2 3 , 20A0 

OOOOfe 

1 

1 

32331 

1 

52114 

1 

52006 

0 

52114 

1 

00006 

1 

1 

23.2060 

32253 

1 

12043 

0 

CI 

00000 

1 

Ci  40000 

0 

Ci  40000 

0 

Ci  40000 

0 

Cl  40000 

0 

Cl 

40000 

0 

23.2060 

Ci  AOOOO 

0 

Ci  00000 

1 

Cl 

77776 

1 

Ci  00000 

1 

Ci  00000 

1 

Cl  00000 

1 

Cl  00000 

1 

C: 

77777 

0 

23.2070 

Ci  0002A 

1 

■Ci  00024 

1 

cl 

00032 

0 

Ci  00037 

0 

C!  OO4OO 

0 

CI  00342 

1 

Ci  00337 

0 

Ci 

00337 

0 

23.2100 

C!  00337 

0 

Ci  01357 

1 

cl 

00337 

0 

Ci  01361 

1 

Ci  02166 

1 

CI  02046 

1 

Cl  0217'. 

1 

Ci 

00337 

0 

23.2110 

C:  01500 

0 

Ci  01503 

0 

Cl 

00035 

1 

Ci  00423 

1 

Ci  00342 

1 

Ci  0037A 

1 

Ci  00357 

0 

Ci 

03032 

0 

23.2120 

c;  00000 

1 

Ci  00000 

1 

Cl 

01363 

0 

Ci  01342 

0 

Ci  01444 

1 

Cl  01447 

1 

Ci  01452 

0 

Ci 

02000 

0 

23.2130 

Ci  02002 

1 

Ci  O2OO4 

1 

Cl 

02006 

0 

Ci  02010 

1 

Ci  04012 

0 

Cl  O4OI5 

1 

Ci  04020 

1 

C: 

02023 

1 

23.21AO 

Ci  0A025 

1 

Ci  04030 

0 

cl 

02033 

0 

Ci  02035 

0 

Ci  04037 

1 

CI  04042 

0 

Ci  04045 

1 

Ci 

04050 

0 

23.2150 

Ci  OAO53 

0 

Cj  04056 

0 

Ci 

00000 

1 

Ci  00040 

0 

Ci  00140 

1 

Cl  00102 

1 

Ci  00241 

0 

Ci 

00200 

0 

23.2160 

Ci  00343 

0 

Ci  00000 

1 

Cl 

00000 

1 

Ci  00000 

1 

Ci  00000 

1 

Cl  00000 

1 

Cl  00000 

1 

C: 

00000 

1 

23.2170 

Ci  00200 

0 

Ci  00241 

0 

Cl 

O4IO2 

0 

Ci  O4I4O 

0 

Ci  04102 

0 

CI  O4IO2 

0 

Ci  00200 

0 

Cl 

OOI4O 

1 

23.2200 

Ci  04000 

0 

Ci  00140 

1 

Cl 

04140 

0 

Ci  04000 

0 

c:  00252 

1 

Ci  00252 

1 

Ci  00350 

1 

C: 

04000 

0 

23.2210 

Ci  04000 

0 

Ci  04000 

0 

Ci 

02102 

0 

Ci  02102 

0 

Ci  02102 

0 

Ci  00140 

1 

Ci  02161 

0 

Ci 

04162 

0 

23.2220 

Ci  coooo 

1 

Ci  00000 

1 

Cl 

O4OOO 

0 

Ci  02000 

0 

Ci  04I44 

1 

CI  04145 

0 

Cl  04145 

0 

Ci 

00016 

0 

23,2230 

Ci  00023 

0 

Ci  00024 

1 

d 

00025 

0 

Ci  OO542 

1 

CI  04114 

1 

Cl  O4II5 

0 

Ci  40757 

0 

Ci 

00001 

0 

23.22^^0 

Ci  00000 

1 

Ci  06143 

1 

Cl 

00126 

1 

Ci  00126 

1 

CI  2OAIO 

0 

Ci  22^51 

1 

Ci  00412 

0 

Cl 

20450 

1 

23,2250 

Ci  20410 

0 

Ci  22451 

1 

C! 

00006 

1 

Ci  03240 

1 

Ci  00253 

0 

Cl  25124 

1 

Cl  00000 

1 

Ci 

00000 

1 

23.2260 

Ci  10707 

0 

CI  03435 

0 

Cl 

00001 

0 

Ci  02133 

1 

Ci  00011 

1 

Ci  30322 

1 

Cl  00004 

0 

Ci 

14021 

1 

23.2270 

Ci  OO3I4 

1 

Ci  31463 

1 

Cl 

23420 

0 

Ci  00000 

1 

CI  00201 

1 

Ci  30327 

1 

Ci  0137I 

0 

Ci 

34750 

1 

23.2300 

Ci  00001 

0 

Ci  03434 

1 

d 

00006 

1 

Ci  20162 

0 

CI  OOOll 

1 

Ci  27066 

1 

Ci  00005 

1 

Ci 

24733 

0 

23.2310 

Ci  00002 

0 

d 23224 

1 

Cl 

00014 

1 

Ci  06500 

1 

Ci  00012 

1 

Cl  36455 

0 

Ci  04256 

1 

Cl 

07071 

0 

23.2320 

Ci  00011 

1 

Ci  17410 

1 

cl 

00004 

0 

Ci  33740 

1 

CI  00007 

0 

Cl  03701 

1 

Cl  00005 

1 

Ci 

21616 

0 

23,2330 

Ci  05174 

0 

Ci  13261 

0 

Cl 

27670 

0 

Ci  31357 

1 

CI  00000 

1 

Ci  00000 

1 

CI  00714 

0 

Ci 

31463 

1 

23.23A0 

Ci  35753 

0 

Ci  32323 

1 

Cl 

03216 

1 

Ci  06400 

0 

CI  07237 

0 

Ci  37776 

0 

Ci  0012O 

1 

C: 

00000 

1 

23.2350 

Ci  00321 

1 

Ci  26706 

1 

Cl 

37441 

1 

Ci  14247 

0 

Ci  05300 

1 

Ci  20305 

0 

Ci  34631 

1 

Ci 

23146 

0 

23,2360 

Ci  04725 

0 

Ci  35454 

1 

d 

03225 

1 

Ci  07470 

0 

CI  05521 

1 

CI  30260 

0 

Ci  14226 

1 

Ci 

31757 

0 

23,2370 

Ci  02476 

0 

Ci  05531 

0 

Cl 

02727 

1 

Ci  16415 

0 

CI  OOOO7 

0 

Ci  13734 

0 

CI  03277 

0 

Ci 

14165 

0 

pAGEliaO 


A8895AA  yJL  System  for  agC:  new  program  shepatin  by  eyles 


DEC  l3f  1966 


octal  listins  oF  paragraph  0 135,  wIt+  sahity  bit  in  binary  At  tHe  right  of  each  word;  "6"  Denotes  unused  fixed  memory. 


ALL  valid  words  ARE  bASIc  INSTRUCTIONS  EXCEPT  THOSE  mARkeO  "I"  ( INTERpRET I VE  OpERATOR  wORDS)  OR 


23,2aOO  c: 

23,2410  C: 

23,2420  Ci 

23i2430  C! 

23»2AA0  Ci 

23*2450  Ci 

23*2460  Ci 

23*2470  Ci 

23*2500  Ci 

23*2510  Ci 

23*2520 
23*2530 


06442  0 Ci 

03440  1 Cl 

03440  1 Cl 

00353  1 Cl 

00A07  1 Cl 

02060  0 Ci 

02176  0 Cl 

00000  1 Cl 

0020A  1 Cl 

00104  1 Cj 

00006  1 
37735  1 


O4735  1 Cl 

O3444  D C* 

03442  0 Cl 

00013  0 cl 

01475  0 Cl 

02062  1 Cl 

00337  ° Cl 

00000  1 Cl 

001^2  0 Cl 

OOIO4  1 Cl 

23546  I 
54047  0 


O4374  0 Cl 

03446  1 Ci 

03443  1 Cl 

00013  0 Cl 

01475  0 Cl 

02064  1 C| 

00341  1 Cl 

00000  1 Cl 

04104  0 Cl 

16347  0.  C; 

11614  1 
11616  0 


30251  1 Cl 

03452  1 CI 

03446  1 Cl 

00342  1 CI 

01475  0 CI 

02166  1 Cl 

00343  0 Cl 

00000  1 Cl 

04104  0 Cl 

12245  1 Ci 

37745  0 
02537  1 


O56O5  1 CI  03656  1 
03454  1 CI  03460  0 
O345O  0 Cl  03451  1 
00343  0 CI  00344  1 

01475  0 CI  02052  1 
O2I74  1 C;  02200  1 
00337  0 CI  00341  1 
00000  1 CI  00204  1 

06204  1 CI  00205  0 
06345  0 C;  16247  1 
02526  1 02530  0 

04725  0 02547  0 


"C”  (CONSTANTS). 


CI  03462  1 
Cl  00337  0 

Cl  0035!  0 
CI  OO4O3  0 

Cl  02054  1 
C;  OO337  0 

CI  00343  0 

Cl  O0204  1 

Cl  06043  0 
Ci  16347  0 
00006  1 
02543  1 


C:  03466  0 
Cl  00340  0 
Cl  00354  0 
Cl  OO4O5  0 

Cl  02056  0 
C;  00341  1 
C:  00000  1 
Cl  00204  1 

Cl  16347  0 
C;  12245  1 
05014  1 
32553  U 


23,2540 

23*2550 

23*2560 

23*2570 


OOOOfe 

1 

O5OI4  1 

01546  1 

32554  1 

00006  1 

O5OI4  1 

01546  1 

32555 

0 

C0006 

1 

05014  1 

01546  1 

Cl  01100  1 

Cl  01200  1 

Cl  01300  0 

37761  0 

55563 

1 

55550 

1 

03152  1 

03176  1 

03256  0 

03162  1 

03176  1 

03152  1 

0 

37761 

O3IO4 

1 

33333  1 

03104  1 

03272  0 

33335  1 

03104  1 

33336  1 

03104 

1 

23*2600  37761  0 03106  0 03272  0 33341  1' 
23*2610  33342  1 03104  1 37761  0 03104  1 
23*2620  54400  1 05224  0 ci  26065  0 33337  0 
23*2630  05224  0 Cl  26762  0 12770  1 03256  0 


544OO  1 
37754  0 

03025  0 

11672  1 


54401  0 
55672  1 
33340  0 
12615  0 


33334  0 
33343  0 
03025  0 
43333  0 


03106  0 
51672  0 
03050  1 
03104  1 


23*2640  03272  0 

23*2650  03272  0 

23*2660  O57OI  1 Ci 

23*2670  46276  0 

23*2700  54401  0 

23*2710  Cl  02620  1 Cl 
23*2720  55563  1 

23*2730  54424  1 

23*2740  03171  0 

23*2750  54353  0 

23*2760  54360  0 

23*2770  05224  0 Ci 


43336  0 54400  1 54401 
03256  0 03217  0 03217 
02665  0 Ci  46005  0 33357 
61563  0 00006  1 62675 

54402  0 37750  1 00006 
22005  1 00003  1 03176 
05224  0 cl  20247  1 05224 
54423  0 06103  0 Ii  77624 

25563  0 47753  0 61563 
54351  1 54352  1 47755 
03171  0 25563  0 47751 
30747  0 Cl  03013  0 Ci  02660 


0 43334  1 03106 

0 43347  0 00006 

0 05563  1 33357 

1 12716  1 51563 

1 05012  1 00004 

1 25563  0 12654 

0 CI  26756  1 12770 

1 CI  20363  0 05224 

0 00006  1 62Y26 

0 54350  0 51563 

1 67754  0 61563 

0 Cl  01042  0 Cl  00000 


0 37761  0 03106  0 

1 03012  1 37753  1 

0 05567  0 05745  1 

0 32772  1 54400  1 

0 37754  0 05701  1 

0 03256  0 37761  0 

1 51563  0 33001  0 

0 CI  26756  1 12770  1 

0 37761  0 55563  1 

0 33006  1 54357  1 

0 00006  1 62755  1 

1 Ci  76736  1 Cl  75120  0 


48895<tA  YJL  SYSTEM  POR  AGC:  NEW  PRO<jRAM  SMePATIN  BY  eYLeS 


Dec  15*  i966 


PA6EU01 


OCTAL  listing  OE  PARAGRAPH  ^ 136.  WItHi  RARITY  BIT  IN  BINARY  AT  THe  RIGHT  OF  EACH  WORD;  «e»  DeNOtES  UNUSED  FIXED  MEMORY. 


ALL  VALID 

WORDS  ARe 

BASIC 

instructions 

EXCEPT  those 

MARKeD  "I" 

( Interpretive 

operator 

: WORDS) 

OR  "C" 

(CONSTANTS), 

23,3000 

Cj 

7A765 

0 

C; 

01463 

1 

Ci 

01042 

0 

Ci 

00000 

1 

Ci  76736 

1 

Ci 

76315 

1 

Ci 

nOOOO 

1 

Ci 

OOOOl 

0 

23*3010 

c: 

00002 

0 

C! 

0000a 

0 

Ci 

00010 

0 

Ci 

00020 

0 

Ci  OOO4O 

0 

Ci 

00100 

0 

Ci 

00200 

0 

C: 

00237 

1 

23,3020 

c: 

OOAOO 

0 

Ci 

00545 

0 

Ci 

OO544 

1 

Ci 

77540 

0 

Ci  77232 

1 

00006 

1 

23546 

1 

55577 

1 

23,3030 

10067 

1 

05550 

1 

41577 

1 

51672 

0 

60032 

0 

00006 

1 

63030 

1 

51672 

0 

30032 

57575 

1 

57576 

01546 

23,30A0 

0 

i 

1 

5501 5 

0 

53573 

0 

53571 

1 

00003 

1 

i 

23*3050 

00006 

1 

23546 

1 

53576 

0 

00006 

1 

20001 

1 

55677 

1 

06103 

0 

I i 

45345 

1 

Q 

1 i 

67206 

02700 

1 

07363 

A 

2 3 * 3060 

C; 

02573 

1 

C i 

02571 

1 

L ; 

1 

I i 56261 

1 

L i 

2061  T 

0 

1 i 

4700? 

1 

C I 

u 

23,3070 

C! 

33565 

1 

Ci 

00343 

0 

I i 

77776 

1 

33354 

0 

04646 

1 

04611 

0 

04464 

0 

12770 

1 

13102 

13073 

25550 

01546 

54401 

54402 

00006 

1 

23,3100 

0 

1 

0 

1 

54400 

1 

0 

0 

23,3110 

235A6 

1 

37757 

0 

55551 

0 

05224 

0 

Ci  26065 

0 

05224 

0 

Ci 

26762 

0 

12770 

1 

23,3120 

11551 

0 

03112 

0 

03176 

1 

01546 

1 

00006 

1 

23546 

1 

05224 

0 

Ci 

26251 

0 

23,3130 

0522A 

0 

Ci 

26762 

0 

12770 

1 

01546 

1 

00006 

1 

23546 

1 

33345 

0 

54146 

0 

23*3iA0 

33350 

1 

04646 

1 

04611 

0 

04464 

0 

12770 

1 

13147 

1 

i3i36 

1 

04615 

1 

23,3150 

25550 

0 

01546 

1 

00006 

1 

23546 

1 

05224 

0 

Ci 

26000 

0 

05224 

0 

Ci 

26762 

0 

23,3160 

12770 

1 

01546 

1 

43347 

0 

000Q6 

1 

03012 

1 

37751 

0 

00006 

1 

05012 

1 

23,3170 

00002 

0 

00006 

1 

23545 

1 

25550 

0 

33353 

1 

13202 

0 

00006 

1 

23545 

1 

23,3200 

25550 

0 

33352 

0 

04646 

1 

33355 

1 

04646 

1 

31550 

0 

73344 

0 

04646 

1 

23*3210 

0A611 

0 

04464 

0 

12770 

1 

13215 

0 

13201 

0 

04615 

1 

01545 

1 

00006 

1 

23,3220 

235A5 

1 

05224 

0 

CI 

26000 

0 

37754 

0 

55512 

1 

37753 

1 

55544 

1 

00004 

0 

23*3230 

A77A4 

0 

70074 

0 

67744 

1 

54074 

0 

00003 

1 

05224 

0 

Ci 

30762 

1 

04633 

0 

23.32AO 

03162 

1 

00004 

0 

37743 

0 

05701 

1 

Ci  03250 

0 

C! 

46005 

0 

33356 

1 

05563 

1 

23,3250 

33356 

1 

05567 

0 

05745 

1 

03134 

1 

03152 

1 

01545 

1 

37761 

0 

54400 

1 

23,3260 

54401 

0 

54402 

0 

00006 

1 

23546 

1 

05224 

0 

C; 

26065 

0 

05224 

0 

Ci 

26762 

0 

23,3270 

12770 

1 

01546 

1 

00006 

1 

23545 

1 

03124 

0 

30032 

0 

55575 

0 

30033 

1 

23,3300 

55576 

0 

3003A 

0 

55577 

1 

03152 

1 

31575 

1 

00006 

1 

20032 

1 

54337 

1 

23,3310 

31576 

1 

00006 

1 

20033 

0 

54340 

1 

31577 

0 

00006 

1 

20034 

1 

5434I 

0 

23,3320 

33351 

0 

04646 

1 

04611 

0 

04464 

0 

12770 

1 

13327 

0 

13320 

1 

25550 

0 

23,3330 

01545 

1 

Cj 

00133 

0 

CI 

06000 

1 

C; 

10000 

0 

Ci  14477 

0 

Ci 

20000 

0 

Ci 

30000 

1 

Ci 

01616 

1 

23,33A0 

c: 

34344 

0 

Ci 

40000 

0 

ci 

50000 

1 

Ci 

36162 

1 

Ci  00077 

1 

Ci 

00030 

1 

c; 

00454 

1 

Ci 

00050 

1 

23,3350 

Ci 

00110 

1 

Ci 

00530 

1 

ci 

00620 

0 

Ci 

00640 

0 

Ci  00666 

1 

Ci 

03300 

1 

Ci 

47253 

0 

Ci 

46670 

1 

23,3360 

c; 

473OA 

0 

Ci 

02500 

0 

Ci 

00043 

0 

Ci 

05000 

1 

C!  03364 

0 

Ci 

03365 

1 

CxSM 

16663 

0 

e 

23*337o 

@ 

e 

e 

^8895^A  YJL  SYSTEM  FOR  AGCi  NEW  PROGRAM  SHePATIN  BY  EYLES 


DEC  13,  1966 


PAGEU8<i 


octal  listing  0*-  Paragraph  # iao*  with,  parity  bit  in  binary  at  the  right  qF  each  wqRd;  "e"  denotes  unused  fixed 

ALL  VALID  WORDS  ARe  BASIC  INSTRUCTIONS  eX'-ePT  tHOSe  MARKe^  "I"  ( I NTeRPRET I Ve  OPeRAtOR  WORDS)  OR  "C"  (CONSTANTS), 

2a*2000  37761  0 55576  0 557a2  0 33707  X 557aa  0 O6IO3  0 I:  7762A  1 Ci 

2a,2010  I:  77776  1 37755  1 555AA  1 5A3AA  0 5AA00  1 5AA01  0 5A402  0 

2a,2020  C;  26000  0 0522a  0 CI  26762  0 122A5  1 37761  0 543A3  1 55537  0 

2a,2030  55575  0 33637  0 5A3A2  0 0522A  0 Cl  26065  0 O357I  1 03600  1 

2A,20A0  C:  26762  0 022^5  0 033A6  0 03101  1 O2IIO  0 03126  1 0522^  0 C 

24,2050  122A5  1 117A2  0 02073  I 06103  0 I;  715A5  0 C;  02511  0 I)  72A76  1 C 

24,2060  C:  C2511  0 I!  72556  1 Ci  26571  0 Cl  II7II  0 CS  26721  1 CI  11717  0 CI  26727  1 C 

24,2070  C:  02736  1 l!  77776  1 O2O7A  0 O47I3  0 036U  1 05224  0 Ct  72014  1 

24,2100  Ci  00005  I 37761  0 54342  0 3l64o  1 54343  1 5l544  0 55551  0 

24,2110  51537  1 02112  1 O5224  0 C;  30424  0 33642  1 55632  0 37744  1 

24,2120  37755  1 55673  0 37761  0 51541  0 54037  1 55626  0 33654  0 

24,2130  00004  0 02773  0 00003  1 03067  0 37760  1 55673  0 51537  1 

24,2140  O5224  0 C;  30424  0 11676  0 03231  1 11627  1 02151  0 04725  0 

24,2150  65632  0 00006  1 41627  1 21633  1 06103  0 li  45345  1 Ci  02635  0 C 

24,2160  li  56325  0 Ci  02633  0 il  41325  0 Ci  11644  1 li  77634  0 Ci  33565  1 Ci  00343  0 I 

24,2170  03600  1 33635  1 55527  1 05224  0 Ci  30424  0 30032  0 55530  1 


24,2200  41550  1 

24,2210  55406  0 

24,2220  37735  1 

24,2230  54343  1 

24,2240  54344  0 

24,2250  00006  1 

24,2260  Ci  26000  0 

24,2270  03346  0 

24,2300  55672  1 

24,2310  02312  0 

24,2320  02312  0 

24,2330  54041  0 


55576  0 03614  1 

55407  1 55412  0 

55574  1 55575  0 

30032  0 55531  0 

37754  0 55546  0 

02030  0 10000  0 

05224  0 Ci  26762  0 
03101  1 12247  0 

51672  0 40400  i 

02315  I 11672  1 

37755  I 55673  0 

37743  0 55527  1 


37761  0 55400  0 

55413  1 55414  0 

05224  0 Ci  72014  1 

37761  0 54342  0 

05224  0 Ci  22343  0 

02442  1 33640  0 

12245  1 37746  0 

03126  1 05224  0 C 

51672  0 60032  0 

02300  0 02321  0 

47755  0 55670  0 

37755  1 O32O7  1 


55401  1 55404  1 
55415  1 55420  1 
04147  1 Ci  00005  1 
03600  1 37755  1 

05224  0 Ci  30747  0 
04646  1 04713  0 
55777  0 33650  1 
26762  0 12245  1 

55551  0 11551  0 
73653  0 lOOOO  0 
37761  0 54037  1 
11676  0 03231  1 


24,2340  03207  1 
24,2350  54037  1 
24,2360  61673  1 
24,2370  31673  1 


37754  0 55541  1 
03067  0 57673  1 
55673  0 22007  0 
71670  0 10000  0 


00004  0 02773  0 

67753  1 55673  0 
51673  1 31626  1 
02357  I 34557  1 


00003  1 37761  0 
11541  1 02342  0 
22000  1 51673  1 
66301  0 55673  0 


MEMqRY. 


! 3O532  0 

05224  0 
55574  1 
05224  0 

: 26762  0 
i 16573  1 
i 11725  1 
04147  1 

03600  1 
55527  I 

03207  i 
02140  0 

41632  0 
i 02631  1 
: 77776  1 
5I544  0 

55405  0 
55421  0 
31636  0 
61544  0 

33645  0 
05224  0 
03240  1 
37754  0 

023X5  1 
02442  1 
54040  1 
33654  0 

51541  0 

47753  0 
21572  1 
40000  0 
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Octal  listing 

Of-  paragraph 

# 141,  1 

WiTHi 

sanity  bit  in 

binary  at 

the 

right  Of  eacH 

worq;  "e" 

denotes 

uNuSEp  FlXEp  1 

viEMORY. 

ALL  VALID  WORDS  ARe  BASIC 

instructions 

EXCEPT  those 

marked  "I" 

( inteRp*^etIVe 

operator  WORDS)  OR  "C 

" (CONSTANTS), 

24,2AOO 

55670  0 

11676 

0 

03231 

1 

03252 

1 

33641 

1 

04646 

1 

04611  0 

04464 

0 

24 ,24l0 

02245  0 

02412 

1 

37761 

0 

54424 

1 

33655 

1 

54423 

0 

05224  0 

C: 

20247 

1 

24,2420 

05224  0 

C:  26756 

1 

02245 

0 

06103 

0 

l:  77624 

1 

C:  20363 

0 

05224  0 

C: 

26756 

1 

24,2430 

02442  1 

04611 

0 

04464 

0 

02245 

0 

02435 

1 

37761 

0 

54423  0 

43655 

0 

24,24A0 

54424  1 

02416 

0 

56002 

0 

55546 

0 

O4744 

1 

C;  01411 

1 

01546  1 

06103 

0 

24,2450  I; 

; 77624  1 

C!  30532 

0 

I i 

mib 

1 

33630 

1 

04646 

1 

04464 

0 

12245  1 

02453 

1 

1 

00006 

1 

62470 

1 

12472  0 

02453 

1 

fcH  f CH^iO  ■ 

56337  0 

55614 

i 

X 

u 

75357 

X 

UOvU^ 

1 

i 

24,2470 

4OOOO  0 

02464 

0 

31614 

0 

67753 

1 

50000 

1 

02476 

0 

n2453  1 

02505 

0 

Q 

02476 

02506 

0 

55544 

1 

24,2500 

'O25O4  1 

O25O3 

u 

u 

02512 

u 

O25I5 

1 

37753  X 

i 

24,2510 

02517  0 

02517 

0 

37754 

0 

55544 

1 

02517 

0 

37755 

1 

55544  1 

55617 

1 

24,2520 

55621  1 

04713 

0 

37761 

0 

55536 

1 

55622 

1 

55563 

1 

55615  0 

33632 

0 

0 

r I 

7 z.  nnn 

r\ 

A 

03101 

1 

4 , c 5 AU 

556^3  0 

U5tt4 

L i 

C;  26762 

U 

1 

03346  0 

i 

24,25A0 

12245  1 

03126 

1 

05224 

0 

c: 

31705 

1 

55552 

0 

37750 

1 

02561  1 

37750 

1 

24,2550 

00006  1 

05014 

1 

00004 

0 

47754 

1 

70366 

0 

67754 

0 

54366  0 

37754 

0 

24,2560 

55552  0 

55527 

1 

37755 

1 

03207 

1 

11676 

0 

03231 

1 

05224  0 

C: 

46520 

1 

24,2570 

11552  0 

02544 

0 

11615 

0 

02654 

1 

11621 

1 

02614 

0 

02620  1 

37761 

0 

24,2600 

54356  0 

05224 

0 

cs 

30424 

0 

37755 

1 

54356 

0 

55622 

1 

27563  1 

41563 

1 

24,2610 

77760  0 

00006 

1 

12762 

1 

02566 

0 

37761 

0 

55621 

1 

51672  0 

54032 

1 

24,2620 

00004  0 

37751 

0 

55624 

i 

51672 

0 

10032 

1 

02637 

1 

02631  1 

02442 

1 

24,2630 

02650  0 

11624 

1 

02622 

0 

00003 

1 

10067 

1 

05550 

1 

02620  1 

43631 

1 

24,26A0 

51672  0 

54032 

1 

37755 

1 

55615 

0 

30047 

1 

55620 

0 

00003  1 

02654 

1 

24,2650 

33631  0 

51672 

0 

54032 

1 

02642 

0 

51672 

0 

10032 

1 

02662  1 

02677 

0 

24,2660 

02662  1 

02677 

0 

37744 

1 

00006 

1 

02014 

0 

10000 

0 

02674  0 

11622 

1 

24,2670 

02672  0 

02577 

0 

55622 

1 

02566 

0 

10067 

1 

05550 

1 

02654  1 

00004 

0 

24,2700 

37761  0 

54356 

0 

56047 

1 

55621 

1 

47754 

1 

70366 

0 

54366  0 

00003 

1 

24,2710 

31620  1 

00006 

1 

61621 

0 

55622 

1 

00006 

1 

62734 

0 

73633  0 

00006 

1 

24,2720 

12726  1 

41622 

1 

73633 

0 

00006 

1 

12730 

0 

02762 

0 

31622  0 

02734 

0 

24,2730 

37735  1 

00006 

1 

61622 

0 

02735 

1 

40000 

0 

22007 

0 

00006  1 

11623 

0 

24,2740 

54342  0 

02742 

1 

04621 

0 

04626 

1 

31614 

0 

54344 

0 

33636  1 

04646 

1 

24,2750 

04611  0 

04464 

0 

02754 

0 

02453 

1 

05224 

0 

C;  26000 

0 

05224  0 

C: 

26762 

0 

24,2760 

12245  1 

12245 

1 

05224 

0 

c: 

26000 

0 

05224 

0 

C;  26762 

0 

12245  1 

37761 

0 

24,2770 

54356  0 

02442 

1 

12245 

1 

00006 

1 

23546 

1 

00003 

1 

10067  1 

05550 

1 
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octal  listing  of  Paragraph  * ia2,  wit+  parity  bit  in  binary  at  the  right  qF  each  word;  "e"  denotes  unused  fixed 
ALL  valid  words  ARe  BASIC  INSTRUCTIONS  E^'-EPT  THOSe  MAR<e3  "I"  ( INTeRPRETI Ve  OPeRAtOR  WORDS)  OR  "Ch  (CONSTANTS) 


2A,3000  OOOOA  0 37761  0 51541  0 

2a, 3010  03025  0 03065  I 37750  1 

2a, 3020  03065  1 03022  I 11540  0 

2a, 3030  10037  1 03065  1 03035  1 

2a,30A0  C5OI5  0 52145  0 37752  0 

2a,3050  03052  0 03065  1 11540  0 

2a, 3060  51541  0 6OO37  0 51541  0 

24,3070  51673  1 55626  0 30144  0 

2a,3100  C00Q2  0 00006  1 -23546  1 

24,3110  C!  26065  0 3OO75  0 77746  1 

24,3120  55537  0 05224  0 cl  26762  0 

2a,3130  05224  0 C;  26000  0 05224  0 C 


56037  0 55551  0 11551  0 03012  1 
55540  0 51541  0 IOO37  1 O3040  0 
03013  0 03065  1 37750  1 55540  0 
O3OAO  0 O3O35  1 11540  0 03026  0 

55540  0 5I54I  0 10037  1 03052  0 
030A3  0 03057  0 55551  0 0l546  1 
54037  1 00002  0 03057  0 02775  0 
51673  1 55627  1 30145  1 51673  1 

06103  0 l:  77624  1 C)  32722  1 li  7777b  1 
10000  0 03117  0 25546  1 03121  0 
12245  1 01546  1 Cl  00401  1 OOOO6  1 
26762  0 12245  1 05224  0 C;  26251  0 


24,3140 
24,3150 
2a, 3160 
2a,3170 

24,3200 

24,3210 

2a,3220 

24,3230 


CS  26762 

0 

12245 

1 

30032 

0 

30034 

0 

50110 

1 

54022 

0 

I;  64375 

1 

Cj  02401 

0 

cs 

02A45 

0 

Is  76521 

0 

cs  02445 

0 

Cl 

34OAI 

0 

C:  36437 

1 

CS  32472 

1 

1 1 

77776 

1 

23545 

1 

55676 

0 

11676 

0 

31527 

0 

O57OI 

1 

cs 

03235 

0 

13231 

0 

55676 

0 

33234 

1 

50110  1 54024  0 30033  1 

37751  0 60110  1 50110  1 

I;  77772  0 C;  34O4I  0 Cj  32622  0 

C:  32622  0 C:  26431  0 C)  02423  0 

33652  0 0522^  0 C)  2<>36l  1 

03217  0 01545  1 O32I7  0 

C;  50005  1 00003  1 11676  0 

05563  1 C;  51212  1 33234  1 


5OIIO  1 

54050  0 

C;  26423  0 C 
I:  76435  1 C 

01546  1 
03211  0 
01545  1 
05567  0 


24,3240 

54001 

13242 

1 

13243  0 
00002  0 

55777  0 

Is 

37761 

0 

50001 

00026 

0 

54000 

0 

24 ,3250 

1 

06103  0 

77170 

1 

Cj 

0 

C;  00012 

1 

2 a , 3260 

CS 

OOOOa 

0 

IS  77731  1 

Cl  00052  0 

CS 

OOOOa 

0 

I S 

AA743 

1 

CS  75120 

0 

2A,3270 

CS 

75156 

1 

Cs  11644  1 

II  77671  1 

Is 

5550A 

0 

CS 

51301 

1 

I S 47O46 

0 

24001  0 

li  77731  1 C 
C;  02657  1 I 
C!  33565  1 C 


24,3300  C:  5i303  0 IS 
24,3310  Ci  02630  0 Ij 
2a, 3320  C)  0264A  0 I; 
2A,3330  C:  02641  0 I; 

24,3340  I;  77634  0 C; 
24,3350  06103  0 1} 
24,3360  C:  51675  1 CS 
24,3370  1:  57546  1 Cl 


60006  1 Cl  5i264  0 IS 
41535  1 Cl  02634  1 I; 
41535  I Cl  02650  0 IS 
77612  I II  77652  0 CS 

33565  1 Cl  00343  0 Is 
54160  I Cl  51663  0 C; 
02536  0 IS  77773  1 CS 
14011  1 Cl  02507  1 IS 


77776  1 04633  0 

55535  1 C;  02640  1 I; 

55535  1 CS  02654  1 IS 

26530  0 IJ  51435  1 IS 

77776  1 03600  1 

02536  0 I;  77773  1 Cj 

00001  0 CS  16453  1 CS 

77756  0 CS  00013  0 I S 


03600  1 06i03  0 I 

76456  1 I:  77606  1 I 

76456  1 IS  45325  1 C 

56205  0 CS  11647  1 C 

12^04  1 00006  1 

00001  0 Cj  02445  0 I 

33334  0 CS  14007  0 C 

77775  1 CS  11676  0 C 


MEMORY. 


03065  1 
03022  1 
51541  0 
03065  I 

03065  1 
57551  1 
3I55I  1 

55630  I 

05224  0 
37754  0 
23546  I 
05224  0 

54020  1 
06103  0 
; 02407  0 
: 02431  U 

00006  1 
00004  0 

01545  I 
05745  I 

11777  0 
: 00051  0 
S 41323  0 

: 34343  1 

: 4i535  1 
; 41535  I 
S 02655  U 
: 02530  0 

23546  1 
: 54160  I 
: 02507  I 
: 34015  1 


PAgEIUS 


A8895AA  y-IL  SySlEM  FOR  AqCj  NEw  pROQ^AM  SHEpATIN  By  EyLES  DEC  13«  I966 

octal  listing  of  paragraph  0 143,  withi  parity  bit  in  binary  At  THh  right  of  each  word;  "§»  Denotes  unused  fixed  memory. 


ALL  VALID  WORDS  ARE  BASIc  INSTRUCTIONS  EXCEPT  THOSE  mARkeD  "I"  ( INTERpRETiVE  OpERATOR  wORDS)  OR  "c"  (CONSTANTS). 


24i3A00 

C; 

33006 

1 

I i 

77776 

1 

33642 

1 

55777 

0 

33662 

0 

03240 

1 

51544 

0 

03410 

24i3A10 

03526 

0 

03424 

0 

03433 

0 

03440 

1 

03452 

1 

03462 

1 

0347<2 

0 

O35O2 

03544 

1 

n ^ c c c 

03566 

1 

37740 

n 

A 

44  ^ 3420 

0351 5 

0 

4 

U3555 

1 

i 

U 

554UU 

u 

5541U 

1 

55420 

24*3430 

37761 

0 

55541 

1 

01546 

1 

47740 

1 

554OO 

0 

55412 

0 

55416 

1 

03430 

55414 

n 

40000 

r\ 

55402 

A 

5554I 

37761 

24*3440 

37740 

0 

w 

U 

I 

554IZ 

U 

37754 

0 

1 

24*3450 

55576 

0 

01546 

1 

377AO 

0 

55404 

1 

55410 

1 

4OOOO 

0 

55414 

0 

37754 

1 

37740 

n 

55406 

A n ri 

n 

55416 

1 

37755 

24*3460 

55541 

1 

01546 

& 

U 

U 

hOUUU 

U 

554U4 

1 

24,3470 

55541 

1 

03447 

0 

37740 

0 

55402 

1 

55420 

1 

40000 

0 

55406 

0 

37755 

24,3500 

55541 

1 

01546 

1 

47740 

1 

55402 

1 

33656 

1 

55406 

0 

55414 

0 

55420 

24,3510 

40000 

0 

55412 

0 

06036 

1 

Ci  00200 

0 

03447 

0 

37740 

0 

55404 

1 

33656 

24,3520 

55406 

0 

55416 

1 

55414 

0 

40000 

0 

55410 

1 

03447 

0 

33657 

0 

55400 

55412 

0 

55414 

33656 

1 

55402 

55420 

24 , 3530 

55410 

1 

U 

i 

55406 

U 

3366 1 

u 

1 

24,3540 

43660 

0 

55404 

1 

55416 

1 

01546 

1 

37740 

0 

55416 

1 

33656 

1 

55400 

24,3550 

55404 

1 

55406 

0 

40000 

0 

55412 

0 

03447 

0 

37740 

0 

55420 

1 

33656 

24,3560 

55400 

0 

55406 

0 

55410 

1 

40000 

0 

55402 

1 

03447 

0 

05224 

0 

C:  73100 

24,3570 

01546 

1 

30342 

1 

55527 

1 

30343 

0 

55536 

1 

30344 

1 

55544 

1 

00002 

24,3600 

00006 

1 

23546 

1 

31544 

0 

54344 

0 

33636 

1 

04646 

1 

04611 

0 

04464 

24,36lO 

02236 

1 

01546 

1 

03571 

1 

13602 

1 

00006 

1 

23546 

1 

06103 

0 

li  77775 

24,3620 

C: 

02401 

0 

Ci 

26750 

1 

c; 

02407 

0 

C*  26756 

1 

Ci 

02415 

0 

C;  02764 

0 

li 

77776 

1 

01546 

24,3630 

c: 

02130 

1 

Ci 

O4OOO 

0 

c! 

04143 

0 

Ci  34000 

0 

Ci 

00264 

1 

Cl  07626 

1 

Cl 

00666 

1 

Cl  01130 

24,3640 

C! 

01620 

1 

Ci 

01640 

1 

C5 

OOO2I 

1 

Ci  06200 

0 

Ci 

00000 

1 

Cl  00400 

0 

Ci 

OOO2A 

1 

Ci  35474 

24,3650 

C! 

01506 

0 

Ci 

02521 

0 

C! 

02500 

0 

Ci  77760 

0 

Ci 

00070 

0 

Cl  10000 

0 

Ci 

13241 

1 

C;  10000 

24 ,3660 

Ci 

15520 

1 

Ci 

02260 

1 

C« 

01400 

1 

Ci  00000 

1 

Ci 

00000 

1 

Cl  00000 

1 

Cl 

00000 

1 

C:  20000 

24,3670 

c: 

00000 

1 

Ci 

00000 

1 

c? 

00000 

1 

Ci  00000 

1 

Ci 

00000 

1 

Cl  20000 

0 

Cl 

00000 

1 

C:  00000 

24,3700 

Ci 

00000 

1 

Ci 

00000 

1 

C! 

00000 

1 

Ci  00000 

1 

Ci 

00000 

1 

Cl  57777 

1 

Ci 

77777 

0 

Ci  00l44 

24,3710 

c; 

17127 

0 

Ci 

16705 

1 

Cl 

07314 

0 

C;  36223 

1 

Ci 

04521 

0 

Ci  31140 

0 

Ci 

75755 

1 

C;  73521 

24,3720 

Ci 

72476 

1 

Ci 

54176 

0 

a 

04771 

1 

Ci  03365 

1 

Ci 

75644 

0 

Cl  7O66I 

1 

Ci 

47762 

1 

Cl  75077 

24,3730 

Ci 

7OO23 

1 

Ci 

73740 

0 

C! 

03732 

1 

Cl  03733 

0 

CKSM 

06405 

0 

e 

® 

24,3740 

@ 

§ 

§ 

® 

@ 

e 

24,3750 

& 

@ 

e 

@ 

@ 

e 

24,3760 

§ 

e 

@ 

e 

24,3770 

e 

§ 

e 

@ 

@ 

§ 

1 

U 

1 

0 

0 

u 

I 

1 

I 

1 

0 

I 

0 

I 

I 

u 

0 

I 

I 

1 

u 

0 

0 

I 

0 

0 

0 
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ALL  VALID  WORDS  ARe  BASIC  INSTRUCTIONS  eXLePt  THOSe  MARXeD  » I « ( INTeRPRETI Ve  OPeRAtOR  WORDS)  OR  "Cm  (CONSTANTS). 


25.2000  0A105  1 C!  00071  I 
25.2010  37755  1 05701  I 
25.2020  37761  0 00006  1 
25.2030  O57I7  0 C5  OOlAA  0 


0A1A7  1 C:  A7012  1 C:  OOOOl  0 

Ci  02015  1 Cj  5200a  1 15605  0 

01005  0 OAU7  1 Ci  A7OI2  1 

O5IO6  0 Ci  0027A  0 Ci  00276  1 


CI  02015 

1 

Cl 

52004 

1 

00004 

0 

04147 

1 

Cl 

05012 

02032 

1 

C: 

77777 

0 

1 

Ci  OOI44 

0 

C 1 

1 

Cl 

52004 

Cl  00144 

0 

05114 

0 

Ci 

00004 

0 

25.2OA0 

25.2050 

25.2060 

25.2070 


! 00144 

0 

05i06 

0 

Ci 

00275 

1 

Cl  00277 

0 

Cl  00144 

0 

05114 

0 

Ci 

00006 

1 

05114 

0 

C| 

OOOO5 

1 

Cl 

00144 

0 

05114 

0 

Ci  00007 

0 

Cl  00620 

0 

40075 

1 

10000 

0 

12065 

1 

05717 

0 

Ci  00062 

0 

12056 

1 

04147 

1 

Ci 

05012 

1 

06036 

1 

Cl 

20000 

0 

06045 

0 

Ci  00400 

0 

32766 

1 

00006 

1 

01005 

0 

C:  OOlAA  0 
777A1  0 
Ci  77777  0 

05307  0 


25.2100  CI  3A02A  0 05llA  0 

25.2110  C;  3A012  0 O57I7  0 

25.2120  Ci  00012  1 ' 05307  0 

25.2130  37761  0 55551  0 

25.21^0  05106  0 Cl  00073  0 

25.2150  0A127  1 C;  AOO72  0 

25.2160  05114  0 Ci  00126  1 

25.2170  04147  1 Cl  A7OI2  I 


C!  00072  1 Cl  00062  0 A0077  0 

C!  00062  0 O53O7  0 C;  34034  1 

Ci  3400.0  0 35677  1 54003  0 

55552  0 377A3  0 5A003  0 

Ci  OO22P  1 Cl  OOOOl  0 377AA  i 

Ci  47014  1 Cl  01000  0 C;  02415  0 
Ci  00144  0 O5II4  0 C!  00133  0 

Ci  00620  0 Ci  02177  1 Ci  52004  1 


77743  1 26077  0 05307  0 

O5IO6  0 C;  00132  1 C:  00004  0 

00006  1 3I54I  0 53333  1 

O57I7  0 Cl  00132  1 O6O74  1 

05701  1 Ci  02415  0 C:  52004  1 

C;  52OO4  1 05307  0 C:  34000  0 

Cl  01130  1 05307  0 Ci  34057  1 

05717  0 Ci  00620  0 05114  0 


25.2200  Cl  00010  0 Cl  00144  0 06054  0 04147  1 
25.2210  05717  0 Cl  00144  0 O5IO6  0 Ci  00005  1 
25.2220  Cl  47012  1 Cl  00764  1 Ci  02226  0 Cl  52004  1 
25,2230  Cl  47012  1 Ci  00310  0 Ci  02236  1 Cl  52004  1 


Ci  47012  1 
Cl  00011  1 

05717  0 
057I7  0 


CI  00144  0 
Ci  00620  0 
CI  00764  1 
Ci  00310  0 


Cl  02212  1 
O6O7I  1 
O6O54  0 
05307  0 


Ci  52004  1 
04147  1 
04147  1 
Ci  34030  0 


25.22^0 

04147 

1 

Cl  47012  1 

Ci 

03554 

0 

CI 

02247 

1 

Cl  52004 

1 

05717  0 

CI  03554 

0 

25,2250 

Ci 

00336 

1 

C;  00310  0 

05114 

0 

C; 

00337 

0 

C|  00454 

1 

35226  1 

05534 

0 

25,2260 

25,2270 

Cl 

CI 

52005 

00620 

0 

0 

04127  I 
05114  0 

Ci 

Ci 

40112 

00026 

1 

0 

Cl 

Cl 

O7O23 

00144 

1 

0 

CI  30000 
O5II4 

1 

0 

CI  02443  0 

CI  00046  0 

Ci  52005 
Ci  OOOOl 

0 

0 

05114  0 
C;  02443  0 
05717  0 
04147  1 


25.2300 

25.2310 

25.2320 

25,2330 


Cl  OOOO2  0 
Cl  02323  1 
54003  0 

Cl  47012  1 


15745  0 

Cl  52004  1 
O57I7  0 

Cl  00144  0 


00006  1 
35677  1 
Ci  00144  0 
Ci  02336  0 


32462  0 
54003  0 

05114  0 

Cl  52004  1 


52376  1 
00006  1 
CI  00227  0 
05717  0 


04147  1 
31543  1 
Ci  00620  0 
CI  00144  0 


Ci  47012  I 
53333  1 
O6O7I  1 
05114  0 


Ci  00144  0 

37743  0 
04147  1 
C:  00047  1 


25.2340  CI  05214  0 05307  0 
25,2350  O57I7  0 C;  00310  0 
25.2360  O57I7  0 C|  00310  0 
25,2370  Cl  52004  1 05717  0 


Ci  34024  0 04147  1 Cl  47012  1 

06054  0 04147  1 C;  47012  1 

O53O7  0 Cl  34O3O  0 O4I47  1 

Ci  I325O  1 O6O7I  1 04147  1 


CI  00310 

0 

Ci 

02352 

1 

Ci  52004 

1 

Ci  00310 

0 

Ci 

02362 

1 

C;  52004 

1 

Ci  47012 

1 

Cl 

I325O 

1 

Ci  02373 

1 

Cl  47012 

1 

Cl 

O0144 

0 

Ci  02403 

1 

^88954A  yjL  SySTEM  pHOGSAvi  S*^EpATIN  By  EyLES 
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octal  listing  Of-  paragraph  # 145*  WItHi  f’AHiTY  BIt  IN  BINARY  AT  THe  RIGHT  OF  EACH  WORD!  DeNOtES  iiNUSeD  FIXeD  MeMoRY. 


ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  Ex'"EPT  THOSE  MAR<eD  "I"  ( I NTERPRET I VE  OPERATOR  WORDS)  OR  hC"  (CONSTANTS), 


25t2AOO 

C! 

52004 

1 

05717 

0 

ci 

00144 

0 

05114 

0 

Ci 

00207 

1 

Cl 

05524 

1 

06036 

1 

Cl 

00001 

0 

Ci 

n 

A 

05745 

1 

37752 

1 \ 

28 (24 10 

05307 

0 

340  1 2 

V 

04  147 

1 

L i 

U 

1 

0 

00006 

1 

02030 

w 

25.2420 

00006 

1 

12425 

1 

05717 

0 

Ci 

00062 

0 

12415 

1 

O4I27 

1 

Cl  00004 

0 

C: 

47012 

1 

25,2A30 

c: 

77777 

0 

Ci 

02302 

1 

Ci 

52004 

1 

00006 

l 

32464 

0 

52376 

1 

35676 

0 

05523 

0 

25.2AA0 

c; 

02015 

1 

Ci 

16004 

1 

15745 

0 

37735 

1 

55335 

1 

00006 

1 

32466 

1 

52006 

0 

25.2A50 

0A147 

1 

Ci 

00003 

1 

15605 

0 

00004 

0 

37755 

1 

05701 

1 

Cj  02302 

1 

Cj 

52004 

1 

25.2460 

15605 

0 

Ci 

05605 

1 

Ci 

04003 

0 

Ci 

02453 

1 

Ci 

52004 

1 

Ci 

03367 

0 

Cl  60065 

1 

00006 

1 

25.2A70 

-30025 

0 

53567 

0 

00006 

1 

32761 

0 

21567 

0 

00006 

1 

31567 

1 

52422 

1 

00014 

1 

00006 

32763 

1 

A 

Ci 

20000 

(\ 

25^2500 

OAIO5 

1 

C i 

i 

1 

1 

52006 

U 

04l<»7 

1 

Cl  05022 

1 

V 

25.2510 

32767 

0 

55322 

1 

00006 

1 

32765 

1 

53073 

0 

32766 

1 

00006 

1 

01005 

0 

25.2520 

041A7 

1 

Ci 

47012 

1 

Ci 

07640 

1 

Ci 

02533 

0 

Ci 

52004 

1 

00004 

0 

32757 

0 

05701 

1 

25.2530 

Ci 

02533 

0 

Ci 

52004 

1 

05605 

1 

04147 

1 

Ci 

05012 

1 

Cl 

77777 

0 

37761 

0 

00006 

1 

25.25^0 

01005 

0 

04147 

1 

Ci 

A7012 

1 

Ci 

00620 

0 

Ci 

02550 

0 

Cl 

52004 

1 

05717 

0 

Cl 

00620 

0 

25.2550 

05106 

0 

C; 

00274 

0 

Ci 

00276 

1 

Ci 

00144 

0 

05114 

0 

C; 

00004 

0 

C;  00144 

0 

05106 

0 

25.2560 

c: 

00276 

1 

Ci 

00277 

0 

Ci 

01604 

1 

05114 

0 

Ci 

00006 

1 

Cl 

00310 

0 

05114 

0 

Cl 

00007 

0 

n 

r • 

00006 

30422 

53664 

1 

25 .2570 

L • 

05360 

1 

05114 

\j 

C • 

UU0U5 

1 

V.  • 

2<;434 

1 

1 

0 

0 

0 u u u ^ 

1 

25.2600 

40025 

1 

21664 

0 

04147 

1 

Ci 

05012 

1 

Cl 

77777 

0 

00006 

1 

31664 

1 

52^22 

1 

25.2610 

10422 

1 

67755 

1 

12615 

0 

40000 

0 

67735 

1 

55662 

0 

05701 

1 

Cj 

02770 

0 

25.2620 

c: 

52004 

1 

04127 

1 

Ci 

40052 

1 

Ci 

47014 

1 

Cl 

76115 

0 

Cl 

02770 

0 

Cl  62004 

1 

05717 

0 

25.2630 

c; 

12574 

1 

O53O7 

0 

ci 

34012 

0 

32766 

1 

00006 

1 

01005 

0 

05307 

0 

Ci 

34024 

0 

25 .26A0 

04147 

1 

Ci 

A7012 

1 

Ci 

00144 

0 

Ci 

02647 

0 

Ci 

52004 

1 

05717 

0 

Cl  00144 

0 

05114 

0 

25.2650 

C: 

00212 

0 

Ci 

00454 

1 

05114 

0 

Ci 

00072 

1 

Ci 

00062 

0 

40077 

0 

77743 

1 

26077 

0 

25.2660 

O57I7 

0 

Ci 

00062 

0 

05307 

0 

Ci 

34034 

l 

O5II4 

0 

Ci 

00132 

1 

Cl  O0012 

1 

05307 

0 

25.2670 

Ci 

34000 

0 

35677 

1 

54003 

0 

00006 

1 

31541 

0 

53333 

1 

37761 

0 

55551 

0 

25.2700 

55552 

0 

37743 

0 

54003 

0 

05717 

0 

Ci 

00132 

1 

05114 

0 

Cl  00073 

0 

Cl 

00144 

0 

25.2710 

05114 

0 

Ci 

00133 

0 

Ci 

00454 

1 

05307 

0 

Cl 

34030 

0 

04147 

1 

C;  47012 

1 

C; 

00764 

1 

25.2720 

Ci 

02724 

1 

Ci 

52OO4 

1 

05717 

0 

Ci 

00764 

1 

O53O7 

0 

Cl 

34024 

0 

04147 

1 

c: 

47012 

1 

25.2730 

C! 

00764 

1 

Ci 

02735 

1 

ci 

52004 

1 

O57I7 

0 

Ci 

00764 

1 

05307 

0 

Cl  34030 

0 

06036 

1 

25 .27A0 

Ci 

OOOOi 

0 

05307 

0 

Ci 

34057 

1 

05307 

0 

Cl 

34012 

0 

04127 

1 

Cl  00002 

0 

Ci 

05013 

0 

25.2750 

Ci 

77777 

0 

05141 

0 

Ci 

00004 

0 

Ci 

00010 

0 

C; 

01752 

0 

15745 

0 

C;  00310 

0 

C; 

07640 

1 

25.2760 

Ci 

00001 

0 

Ci 

10024 

0 

ci 

02304 

1 

Ci 

I6OO4 

1 

Ci 

02312 

0 

Cl 

60064 

0 

Cl  00252 

1 

Ci 

02233 

1 

25.2770 

37755 

1 

05701 

1 

Ci 

02000 

0 

Ci 

60065 

1 

04147 

1 

Cl 

40045 

1 

04147 

1 

C; 

00004 

0 

48895^A  YJl  system  FOR  AGc:  NEW  pRO&RAvt  5HEPATIN  BY  EYlEs  qEc  l3»  l966  pAGEllBb 


octal  listing  oe  paragraph  0 i^6f  wIthi  3ahity  bit  in  binary  At  THt  right  of  each  word;  "g”  Denotes  unused  fixed  memory. 
All  valId  woRpS  are  basic  instructions  except  those  marxeo  "I"  (INTERPRETIVE  Operator  wordS)  or  "c"  (constants). 

25*3000  157A5  0 C:  O3OO1  0 C?  O3OO2  0 CKSM  61135  I @ @ g g 
25,3010  egggeegg 
25,3020  gggggggg 
25,3030  gggggggg 


25,30A0 

25,3050 

25,3060 

25,3070 

25,3100 

25,3110 

25,3120 

25,3130 

25,31AO 

25,3150 

25,3160 

25,3170 

25,3200 

25,3210 

25,3220 

25,3230 

25,32A0 

25,3250 

25,3260 

25,3270 

25,3300 

25,3310 

25,3320 

25,3330 

25,33A0 

25,3350 

25,3360 


e 

g 

g 

g 

g 

g 

g 

g 

@ 

g 

g 

g 

g 

g 

g 

g 

@ 

g 

g 

g 

g 

g 

g 

g 

@ 

g 

g 

g 

g 

g 

g 

g 

@ 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g ' 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

egeeeggg 


g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

eggggggg 


g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 
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A88954A  YJL  SYSTEM  FOR  AGC;  NeW  PROGRAM  SHePATIN  BY  eYLeS  DeC  I3,  1966 


oCTal  listing  ot-  Paragraph  # iso*  wim  parity  bit  in  binary  at  the  right  qP  each  Word*  "e"  denotes  unused  fixed  memqRY. 

ALL  VALID  WORDS  ARe  BASIC  INSTRUCTIONS  E^'^ePt  THOSe  MARXeD  »!«  ( INTERPRET  I Ve  OPeRAtOR  WORDS)  OR  "C"  (CONSTANTS). 


26*2000 

32^30  1 

5A003 

0 

0A121 

1 

Ci  00027 

1 

02OO6 

0 

02426 

0 

37755 

1 

55715 

1 

26,2010 

0A633  0 

30Ua 

0 

55721 

0 

30302 

0 

557I6 

1 

O4IO5 

1 

C{ 

00027 

1 

4I72I 

0 

00006 

1 

12026 

55722 

A 

1 

26*2020 

62324  0 

i 

0 

30145 

1 

0 

02046 

37755 

1 

62437 

U 

26*2030 

5AU6  0 

32326 

1 

02A05 

1 

02026 

1 

37753 

1 

55717 

0 

31677 

0 

02415 

0 

26,20A0 

02026  1 

51677 

0 

32A31 

0 

55722 

0 

37754 

0 

557I5 

1 

32437 

0 

6I7I5 

0 

26*2050 

5AU6  0 

32326 

1 

02A05 

1 

02046 

1 

417I5 

1 

61722 

1 

00006 

1 

12062 

0 

1 

1 

5A146 

A 

A 

31722 

I 

^6  9 4 U60 

25715  0 

U^UA6 

A 

iihib 

1 

3243  1 

0 

U24U5 

1 

02077 

0 

i 

26*2070 

55717  0 

31720 

0 

02415 

0 

02062 

1 

31720 

0 

62437 

0 

02O5O 

0 

04713 

0 

26,2100 

. OOOOA  0 

AOO76 

1 

77750 

0 

54002 

1 

47750 

0 

70076 

1 

60002 

0 

54076 

1 

26,2110 

0A121  1 

C;  00027 

1 

02115 

0 

31716 

0 

04110 

0 

37751 

0 

7OO76 

1 

00006 

1 

26,2120 

12A26  1 

A2135 

0 

61721 

1 

5OOOO 

1 

02125 

0 

53701 

1 

53220 

1 

02250 

1 

26,2130 

02257  0 

02263 

1 

O227I 

1 

02277 

1 

02307 

1 

Ci  00064 

0 

02313 

1 

40076 

1 

26,21A0 

777A7  0 

00006 

1 

12234 

1 

00006 

1 

31700 

1 

53223 

1 

00006 

1 

31700 

1 

26,2150 

53253  0 

00006 

1 

3I7O2 

0 

53225 

1 

00006 

1 

31702 

0 

53255 

0 

00006 

1 

26,2160 

3170A  0 

53227 

0 

00006 

1 

31704 

0 

53257 

1 

00006 

1 

3I7O6 

1 

53231 

1 

26,2170 

00006  1 

31706 

1 

53261 

1 

00006 

1 

31710 

0 

53233 

0 

00006 

1 

31710 

0 

26,2200 

53263  0 

00006 

1 

31712 

1 

53235 

0 

00006 

1 

31712 

1 

53265 

0 

00006 

1 

26,2210 

3I7U  1 

53271 

0 

37761 

0 

55236 

0 

55237 

1 

55240 

1 

55241 

0 

55242 

0 

26,2220 

552A3  1 

552AA 

0 

55245 

1 

55246 

1 

55247 

0 

55250 

0 

55251 

1 

55266 

0 

26,2230 

55267  1 

55272 

0 

55273 

1 

02403 

1 

32440 

0 

05701 

1 

Ci 

02241 

1 

Ci 

54004 

1 

26,22A0 

05605  1 

35667 

0 

05523 

0 

Ci  02246 

0 

c; 

54004 

1 

05745 

1 

00004 

0 

02115 

0 

26,2250 

31677  0 

55216 

1 

35667 

0 

05534 

0 

Ci 

02347 

0 

Ci  62064 

1 

02403 

1 

31677 

0 

26,2260 

55216  1 

052A3 

1 

Cl 

62226 

0 

31677 

0 

55216 

1 

31700 

1 

55215 

1 

05243 

1 

26,2270 

C:  62201  0 

31677 

0 

55216 

1 

3I7OO 

1 

55214 

0 

05243 

1 

Ci 

62204 

0 

31677 

0 

26,2300 

55216  1 

31700 

1 

5521A 

0 

31701 

0 

55215 

1 

052'*3 

1 

Ci 

62203 

1 

31677 

0 

26,2310 

55216  1 

052A3 

1 

Ci 

62210 

0 

A7754 

1 

61722 

1 

50000 

1 

02316 

1 

00006 

1 

26,2320 

31701  0 

53755 

0 

02403 

1 

02347 

0 

Ci 

OOO75 

0 

02361 

1 

Ci 

02101 

0 

00006 

1 

26,2330 

317O1  0 

53765 

0 

00006 

1 

31703 

1 

53767 

1 

00006 

I 

31705 

1 

53771 

0 

26,23A0 

00006  1 

31707 

0 

53773 

1 

00006 

1 

31711 

1 

53775 

1 

02403 

1 

00006 

1 

26,2350 

31701  0 

53757 

1 

00006 

1 

31703 

1 

53761 

1 

00006 

1 

31705 

1 

53763 

0 

n 0 A rr  5 i 

00006 

1 

31701 

53765 

1 

4c>  f 4 

U44U3  1 

4 

0 

0 

00006 

1 

31703 

1 

53767 

1 

UUUUq 

4 

26,2370 

31705  1 

53771 

0 

00006 

1 

3170T 

0 

53773 

1 

04713 

0 

n4121 

1 

C; 

00027 

1 

pageii^o 


488954A  YJL  system  f-or  agc:  New  program  s^epatin  by  eyles 
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octal  listing  oe  paragraph  151,  wItHi  parity  bit  in  binary  At  the  right  of  each  woro;  "g"  Denotes  unused  fixed 
ALL  valid  words  ARe  BASIC  INSTRUCTIONS  EX'-EPT  THOSe  MAR<eD  "I"  ( INTeRPReTIVe  OPeRATOR  WORDS)  OR  "C  (CONSTANTS) 


26,2aOO  02A03  1 3l7l6  0 
26,2410  04464  0 02375  I 
26.2420  24000  1 6l7l7  I 
26.2430  C:  02000  0 C!  O2IO2  0 

26.2440  C:  00454  1 02504  1 
26.2450  Ci  54006  0 15745  0 
26.2460  Ci  02452  0 Ci  54006  0 
26.2470  . O57OI  1 Ci  02463  1 

26.2500  70077  0 10000  0 
26.2510  60000  1 55441  0 

26.2520  31453  1 22OO7  0 
26.2530  60000  1 55670  0 

26.25A0  00002  0 31454  D 
26.2550  55677  1 60000  1 
26.2560  55614  1 31670  1 
26.2570  71674  1 00006  1 


O4IIO  0 05224  0 c; 

01717  1 25717  1 

00006  1 62425  0 

Ci  00003  1 Ci  OOOO7  0 Ci 

O2A77  1 00006  1 

02520  1 02477  1 

I5745  0 02541  0 

Cl  54006  0 15745  0 Ci 

00002  0 15745  0 

32606  0 22007  0 

00006  1 11456  0 

55672  1 32607  1 

22007  0 00006  1 

5567A  1 55676  0 

6167A  0 00006  1 

11701  1 55701  1 


62373  1 00006  1 23717  1 
01717  1 00006  1 62425  0 
24OO2  0 00002  0 05224  0 

00013  0 Ci  00011  1 Ci  02320  1 

27A52  1 32A7A  1 05701  1 
00006  1 27A53  0 32475  0 
02477  1 00006  1 2745A  1 
00310  0 Ci  02424  1 Ci  0026A  1 

3i452  0 22OO7  0 00006  1 

00006  1 11452  1 55612  1 

00006  1 77740  1 55671  1 
22OO7  0 00006  1 1 1453  0 

11456  0 00006  1 777AD  1 
32607  1 22OO7  0 O0006  1 
72605  1 55701  1 31670  1 
55703  0 55705  0 55707  1 


C 

C 

C 


26.2600  557OO  0 55702  1 557O4  1 557O6  0 00002  0 Ci  26501  1 Ci  OOO5O  1 C 

26.2610  Ci  13241  1 37754  0 00006  1 02030  0 10000  0 46301  1 66276  1 

26.2620  37754  0 55617  1 00006  1 27620  0 31332  1 00006  1 51620  1 

26.2630  51620  1 62727  1 00006  1 71332  0 51620  1 62736  1 5l6l7  0 


26.2640 
26.2650 
26 .2660 
26.2670 


11617  1 
55612  1 
00006  1 
32750  1 


12621  1 
00006  1 
1145'4  1 
55441  0 


126A4  1 
327A7  1 
5561A  1 
31452  0 


12711  0 
00006  1 
6l6l3  1 
00006  1 


00006  1 
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00006  1 
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55441  0 
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26.2710 
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26.2740 
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12624  1 


02030 
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10000  0 
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60000  1 
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Ci 

52653 
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Ci 
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1 

Ci 

01502 

1 

Ci 

53060  1 

Ci 
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Ci  52265 

1 

Ci  25066 

0 

Ci 

24131 

1 

CI 

05613 

0 

Ci 

06433 

0 

Ci 
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Ci 

06324 

1 

Ci  n0157 

1 

Ci  76456 

1 

Ci 

77670 

0 

d 
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1 

Ci 
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0 

Ci 

00047  1 

Ci 

31173 

0 

Ci  00053 

1 
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1 

Ci 

02751 

0 

Ci 

02752 

0 

CKSM 
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1 

g 

g 

g 

g 

g 

g 

g 

g 

g 

e 

g 

g 

g 

g 

g 

memory. 


04646  1 
40000  0 

! 22053  1 

i 02276  0 

i O2AA1  1 
O57OI  1 
32476  D 
377A6  0 

11455  0 
00002  0 

55673  0 
55613  0 

55675  0 
11454  1 
00006  1 
60000  1 

! 0005A  0 
55620  0 

72720  1 
55452  1 

11452  1 
327A7  1 
55616  0 

37754  0 

55620  0 
• 30126  1 
I 05346  0 
: 76031  1 

■ 30441  0 

e 

e 

e 


^88954A  YJL  system  FOR  AGC!  NEW  PROGRAM  S^ePatIN  BY  eYLeS 


Dec  l3,  1966 


PAGe1191 


octal  listing  of  Paragraph  * isa,  wit-i,  parity  bit  in  Binary  at  the  right  qf  each  wqrd;  denotes  unused  fixed  memory. 
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27.2000 

36301 

0 

OA23A 

0 

Ci 

00002 

0 

00004 

0 

32024 

0 

54006 

0 

00006 

1 

30025 

0 

27,2010 

537A7 

0 

A0075 

1 

7775A 

1 

26075 

1 

31760 

1 

O57OI 

1 

C| 

02204 

0 

C: 

56003 

1 

A 

O5757 

02240 

56003 

00006 

27,2020 

00006 

1 

31757 

U 

1 

L i 

0 

Ci 

1 

32360 

0 

55322 

1 

1 

27,2030 

32A56 

1 

53073 

0 

00006 

1 

32456 

1 

53O75 

0 

37755 

1 

O57OI 

1 

Cl 

02011 

0 

27.20A0 

Ci 

60065 

1 

37761 

0 

0A23A 

0 

Ci 

OOOO2 

0 

37743 

0 

54002 

1 

OOOO6 

1 

31747 

1 

27.2050 

00006 

1 

22003 

1 

53724 

0 

00006 

1 

22003 

1 

15605 

0 

04147 

1 

C; 

01022 

0 

27,2060 

3775A 

0 

5A765 

1 

00006 

1 

31155 

1 

53753 

0 

04105 

1 

Cl 

00007 

0 

06103 

0 

27.2070 

l: 

5A3A5 

1 

Ci  01753 

1 

Cl 

2061.7 

0 

I ! 

47I7I 

0 

Ci 

01772 

1 

C 1 33606 

1 

Cl 

00025 

0 

1 1 

60335 

1 

27.2100 

Ci 

00025 

0 

Ci  OOOA7 

1 

1 1 

47005 

1 

Ci 

16367 

i 

Cl 

33565 

1 

It  65257 

1 

Cl 

20556 

0 

Ci 

00026 

0 

27.2110 

I : 

A7005 

1 

C{  16367 
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Ci 

33565 

1 

I ; 

43261 

0 

C; 

21206 

0 

It  43215 
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Cl 

16371 

0 

C; 

16373 

1 

27,2120 

Ci 

0176A 

0 

I;  77756 

0 

1 1 

71525 

0 

Ci 

01764 

0 

I 1 

73525 

1 

Ci  16375 

1 

Ci 

15301 

1 

Ci 

16375 

1 

27,2130 

I ! 

725A6 

0 

Ci  00025 

0 

1 1 

45405 

1 

Cl 

76502 

1 

Ci 

14150 

0 

Cl  17057 

0 

Cl 

14152 

1 

1 1 

77605 

1 

27.21A0 

Ci 

00025 

0 

Ci  01277 

1 

II 

47076 

0 

Cl 

33563 

1 

I t 

47206 

0 

Ci  01275 

0 

1 1 

77656 

1 

C: 

15311 

0 

27,2150 

Ci 

01770 

0 

l!  A1A25 

1 

C! 

16377 

0 

It 

74356 
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Ci 

01311 

0 

Ci  15311 

0 

li 

74346 

0 

I ; 

53455 

0 

n 

53435 

012.75 

73525 

1 

c 7 • 2 1 60 

c t 

01311 

0 

C i 01311 

V 

I • 

0 

L 1 

0 

I 1 

71525 

0 

t # 01766 

1 

1 ! 

77761 

1 

I ! 

i 

27.2170 

Ci 

01766 

1 

ll  51361 

1 

Cl 

01275 

0 

1 1 

77656 

1 

Cl 

01303 

0 

li  53435 

0 

Cl 

01311 

0 

Ci 

01275 

0 

27,2200 

li 

77776 

1 

OAU7 

1 

Cl 

00072 

1 

05605 

1 

04147 

1 

Ci  40042 

0 

05307 

0 

C; 

56211 

0 

27,2210 

157A5 

0 

05073 

0 

cl 

00354 

0 

32363 

0 

O57OI 

1 

Ci  02220 

0 

Ci 

56003 

1 

15322 

0 

27,2220 

05065 

1 

Ci  00355 

1 

Ci 

00306 

1 

04147 

1 

Ci 

40113 

0 

32362 

1 

O57OI 

1 

Ci 

02232 

0 

27,2230 

Ci 

56003 

1 

157A5 

0 

O5O73 

0 

Cl 

OO3O7 

0 

37761 

0 

04234 

0 

Cl 

00003 

1 

15745 

0 

27,22^0 

00006 

1 

30025 

0 

53751 

1 

04147 

1 

C! 

01013 

1 

37761 

0 

54001 

1 

52025 

1 

27,2250 

0A1A7 

1 

C{  A0062 

1 

32365 

0 

05701 

1 

Cl 

02306 

0 

Ci  56003 

1 

00006 

1 

31762 

0 

27,2260 

05757 

1 

Ci  02316 

1 

cl 

56003 

1 

37740 

0 

05523 

0 

Cl  02301 

1 

Cl 

56003 

1 

37743 

0 

27,2270 

5A002 

1 

00006 

1 

31751 

0 

00006 

1 

22003 

1 

53724 

0 

00006 

1 

22003 

1 

27,2300 

157A5 

0 

OAIO5 

1 

cl 

00011 

1 

04147 

1 

Cl 

00132 

1 

15605 

0 

32400 

1 

00006 

1 

7 -y  5 a 1 A 

A 1 A A e 

1 

05701 

Cl 

02337 

Cl 

t 

1 

c K 0 0 P 

U 1 UU5 

0 

3236h 

4 

1 

1 

56U03 

i 

15745 

0 

32361 

i 

p ^ <4  C 

27,2320 

A0076 

1 

777A5 

1 

26076 

1 

37755 

1 

O57OI 

1 

Cl  02402 

0 

Cl 

60066 

1 

37740 

0 

27,2330 

05523 

0 

Ci  0233A 

1 

cl 

56003 

1 

15745 

0 

04105 

1 

Ci  00012 

1 

15605 

0 

37761 

0 

27 .23A0 

00006 

1 

01005 

0 

05073 

0 

Cl 

00272 

0 

04147 

1 

Cl  40172 

1 

32362 

1 

05701 

1 

27,2350 

Ci 

02353 

0 

Ci  56003 

1 

15745 

0 

05073 

0 

Ci 

00273 

1 

04147 

1 

Cl 

O0002 
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15745 

0 

27,2360 

Ci 

02233 
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Ci  0221<:. 

1 

cl 

OO3IO 

0 

Cl 

02260 

1 

Ci 

l65l4 

0 

Ci  24404 

1 

Cl 

37II6 

0 

C: 

32623 

1 

27,2370 

Ci 

00000 

1 

Ci  00000 

1 

Cl 

30655 

1 

Cl 

14640 

0 

Cl 

02422 

1 

Ci  16752 

0 

Cl 

10000 

0 

C: 
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1 
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27,2400  C!  00252  1 
27,2410  7OO76  1 
27,2420  00006  1 
27,2430  S2376  1 


OOOO4  0 37761  0 
00006  1 12A50  0 
32460  1 52376  1 
37755  1 O57OI  1 


12406  0 OOOO4  0 

35370  0 5A003  0 

05243  1 C;  16015  1 

c:  02402  0 c:  6OO66  1 


37754  0 54OOI  1 
23760  1 32360  0 
OOOO4  0 00006  1 
35667  0 5A063  0 


27*2AA0 

27*2450 

27,2460 

27.2470 


51760 

1 

32445 

0 

05544 

1 

15605 

0 

00003 

1 

05243 

1 

Ci 

11313 

0 

Ci 

02304 

1 

i 56003 

1 

Ci 

05605 

1 

Ci 

04003 

0 

04105 

1 

i 47012 

1 

Cl 

13560 

0 

Ci 

O25O4 

1 

Cl 

56003 

1 

cs  02000  0 c:  5200A  1 c:  02000  o c 
C;  I6OO4  1 Cj  02312  0 C;  6006A  0 C 
Ci  00013  0 36276  1 5^765  1 

32503  0 00004  0 05701  1 C 


27*2500  Ci  56003  1 00003  1 
27*2510  Ci  56003  1 ' 32522  0 
27,2520  Ci  20000  0 157A5  0 
.27,2530  00006  1 32537  1 


15605  0 Ci  13560  0 0A1A7 

O57OI  1 Ci  02523  1 Ci  56003 

C!  27340  0 04147  1 Ci  27O42 

05757  1 Ci  025AO  1 Ci  56003 


1 C!  A7012  1 Ci  27340  0 C 

1 06045  0 Ci  00400  0 

1 Ci  75241  1 Ci  02540  1 C 

1 15745  0 Ci  00003  1 C 


27*2540  05073  0 Ci  00152 

27*2550  Ci  00007  0 Ci  01774 
27,2560  54077  0 05224 
27,2570  05701  1 Ci  02575 


04127 

1 

Ci  OOOO2  0 

Cl  05013 

06036 

1 

Cl  00001  0 

15745 

Ci 

34000 

0 

04147  1 

Ci  U5OI2 

d 

56003 

1 

00003  1 

05605 

0 Ci  77777  0 05l4l  0 C 

0 04105  1 Ci  00015  0 

1 Ci  77777  0 37755  1 

1 05114  0 Ci  00354  0 C 


27*2600 

05l06 

0 

Ci  00355 

1 

Ci 

00306 

1 

Ci 

00310 

0 

05114 

0 

Ci 

00307 

0 

27*2610 

05534 

0 

Cl  02655 

0 

Ci 

56003 

1 

04127 

1 

Cl  00034 

0 

Cl 

05012 

1 

27*2620 

Cl 

00266 

0 

Ci  00032 

0 

Ci 

13560 

0 

05114 

0 

Cl  00033 

1 

Cl 

13560 

0 

27,2630 

Cl 

02734 

0 

35674 

1 

05523 

0 

Cl 

02636 

0 

Ci  56003 

1 

05745 

1 

00l44  0 
77777  0 
05114  0 C 

3OO76  0 


27*2<>A0  00006  1 

27,2650  05141  0 Ci 

27,2660  li  54345  1 Ci 

27,2670  Ci  17065  1 C{ 


12643 

00002 

0 

0 

Ci 

04732 

00011 

0 

1 

Cl 

00025 

0 

Ci 

20617 

0 

I i 

56667 

0 

li 

56215 

1 

Cl 

05224  0 Ci  26754  0 
01775  0 04261  0 

56371  1 Ci  01772  1 Ci 

17065  1 Ci  17065  1 li 


04732  0 0522^  0 C 
06103  0 li  77601  0 C 
17067  0 I i 77606  1 I 
73406  1 li  71525  0 I 


27*2700  Ci  17047  1 li  43205  1 
27*2710  li  43215  0 Ci  17041  1 
27*2720  li  77606  1 li  57546  1 
27,2730  Ci  14021  1 Ci  00001  0 

27*2740  Ci  17055  1 Ci  14013  0 
27*2750  Ci  17057  0 Ci  00001  0 
27*2760  I i 76521  0 Ci  01275  0 
27*2770  50110  1 52003  0 


Ci 

17045 

0 

li 

77725 

1 

I i 

54205 

Ci 

17063 

1 

II 

51025 

1 

Ci 

I7O6I 

ci 

00007 

0 

I i 

77605 

1 

CI 

I7O53 

I i 

77756 

0 

CI 

00015 

0 

I i 

57405 

14005 

c • 

17053 

1 

1 • 

777h2 

0 

C i 

1 i 

64375 

1 

Ci 

00001 

0 

Cl 

01275 

Ci 

24007 

0 

Cl 

00015 

0 

li 

76521 

50110 

1 

52007 

1 

50110 

1 Ci  17043  0 Ci  2O2IO  0 I 

0 Ci  56713  1 li  62415  0 C 

1 Ci  00017  1 li  77605  1 C 

1 Ci  I7O53  1 Ci  00011  1 I 

1 Ci  17051  0 li  57542  0 C 

0 I i 77772  0 Cl  74001  0 C 

0 Ci  01275  0 Ci  f)0015  0 I 

1 52003  0 50110  1 


Memory, 


37745  0 

55322  1 
32462  0 

00006  I 

I 66064  0 
{ 02425 
04147  1 
i 02504  1 

: 02523  I 
06036  1 
: 56003  1 

! 10540  1 

! 00001  0 

33070  0 

00004  0 

i 02260  1 

37741  1 
05106  0 
! 00267  I 
77743  1 

! 34012  0 
. 00001  0 
I 51025  1 
! 65205  0 

i 77625  0 
! 17061  0 
i 17055  1 
i 77605  1 

: 14003  1 
t 00007  0 
1 77776  I 

52005  0 
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27*3000 

50110 

1 

52015 

1 

50110 

1 

52005 

0 

50110 

1 

52013 

1 

50110 

1 

52017 

0 

27.3010 

5OIIO 

1 

52013 

1 

06103 

0 

I; 

74001 

0 

C| 

00023 

0 

C;  00000 

1 

II  77624 

1 

C; 

7O727 

1 

27,3020 

1 ; 

A7I3I 

1 

Cl 

01653 

0 

CI 

00004 

0 

Cl 

33573 

0 

CI 

01632 

1 

II  77776 

1 

06045 

0 

C: 

04000 

0 

27,3030 

06027 

1 

Cl 

02000 

0 

37740 

0 

00004 

0 

05534 

0 

Cl  02067 

1 

Cl  70063 

0 

05605 

1 

27.30^0 

Cl 

021^2 

1 

Cl 

00045 

0 

cl 

00054 

0 

Cl 

33330 

1 

C! 

04672 

0 

Cl  27416 

1 

Cl  77503 

1 

Cl 

47763 

0 

27,3050 

Cl 

1A566 

1 

Cl 

11602 

0 

Cl 

35267 

1 

C| 

21173 

1 

C; 

15700 

1 

C;  31171 

1 

C;  00000 

1 

C; 

00000 

1 

27.3060 

c; 

10000 

0 

Cl 

00000 

1 

cl 

01000 

0 

Cl 

00000 

1 

C! 

26650 

0 

Cl  00000 

1 

CI  00020 

0 

Cl 

17260 

0 

27.3070 

Ci 

42032 

0 

00006 

1 

30025 

0 

53567 

0 

O4IO5 

1 

Cl  00034 

0 

22007 

0 

33253 

0 

27.3100 

56001 

0 

21567 

0 

33253 

0 

00004 

0 

05701 

1 

CI  03142 

0 

CI  56004 

0 

00003 

1 

27.3110 

00006 

1 

32454 

0 

52006 

0 

00006 

1 

33260 

0 

52006 

0 

06103 

0 

1; 

43131 

0 

27.3120 

Ci 

01653 

0 

C; 

00004 

0 

CI 

01063 

0 

1 1 

77776 

1 

35226 

1 

00004 

0 

05534 

0 

C; 

02001 

1 

27,3130 

Ci 

70063 

0 

37755 

1 

00004 

0 

O57OI 

1 

CI 

03274 

0 

Cl  56004 

0 

05224 

0 

Cl 

26754 

0 

27.31^0 

04732 

0 

05605 

1 

37755 

1 

05701 

1 

CI 

O2OOO 

0 

Cl  60065 

1 

37743 

0 

70076 

1 

27,3150 

10000 

0 

13267 

0 

04105 

1 

C| 

00046 

0 

33256 

0 

55322 

1 

00006 

1 

33266 

0 

27,3160 

53073 

0 

00006 

1 

33262 

1 

53075 

0 

O6O74 

1 

05114 

0 

Cl  00206 

0 

Cl 

03i26 

0 

27,3170 

05307 

0 

Cl 

34024 

0 

05717 

0 

Cl 

02342 

0 

06054 

0 

05717 

0 

Cl  00062 

0 

05307 

0 

27.3200 

Cl 

34030 

0 

05717 

0 

Cl 

00062 

0 

00006 

1 

33264 

1 

53073 

0 

05717 

0 

C: 

01440 

0 

27.3210 

03306 

1 

00006 

1 

33255 

0 

05757 

1 

C; 

03217 

0 

C;  56004 

0 

05745 

1 

03343 

0 

27.3220 

05745 

1 

37755 

1 

00004 

0 

05701 

1 

Cl 

03227 

0 

Cl  56004 

0 

O5605 

1 

00006 

1 

27,3230 

32456 

1 

53073 

0 

05307 

0 

Cl 

34012 

0 

05307 

0 

C!  34057 

1 

03343 

0 

05717 

0 

27.32^0 

c: 

00144 

0 

05073 

0 

cl 

00207 

1 

05717 

0 

Cl 

05524 

1 

06036 

1 

Cl  00001 

0 

05745 

1 

27.3250 

C: 

00144 

0 

C; 

00310 

0 

CI 

02260 

1 

Ci 

33260 

0 

Ci 

00002 

0 

C;  02630 

0 

C;  02233 

1 

C; 

02000 

0 

27.3260 

Cl 

64064 

1 

Cl 

03221 

0 

cl 

56004 

0 

Cl 

02713 

0 

CI 

64064 

1 

CI  02312 

0 

Cl  60065 

1 

35676 

0 

27.3270 

05523 

0 

Cl 

04732 

0 

cl 

04002 

1 

O5745 

1 

O51 14 

0 

Cl  00354 

0 

CI  02260 

1 

O5IO6 

0 

27.3300 

Cl 

00355 

1 

Cl 

00306 

1 

Cl 

00310 

0 

05073 

0 

CI 

00307 

0 

05745 

1 

00006 

1 

23662 

1 

27.3310 

06027 

1 

C; 

00200 

0 

05114 

0 

Ci 

00176 

1 

Cl 

00144 

0 

05106 

0 

C;  OOO74 

1 

C: 

00254 

1 

27,3320 

C! 

00310 

0 

05106 

0 

cl 

00075 

0 

Cl 

00255 

0 

Cl 

01440 

0 

O5IO6 

0 

CI  00076 

0 

Cl 

00256 

0 

27,3330 

Ci 

00310 

0 

05106 

0 

Cl 

00077 

1 

Cl 

00257 

1 

Cl 

01440 

0 

05114 

0 

Cl  00374 

1 

C: 

00310 

0 

27.33A0 

05073 

0 

Ci 

00375 

0 

01662 

1 

40076 

1 

77746 

1 

10000 

0 

00002 

0 

00006 

1 

27,3350 

23662 

1 

06045 

0 

CI 

00200 

0 

05114 

0 

C; 

00376 

0 

Cl  00144 

0 

05106 

0 

C: 

00274 

0 

27,3360 

Cl 

OOlU 

0 

Cl 

00144 

0 

05114 

0 

Cl 

00377 

1 

Cl 

00144 

0 

05106 

0 

Cl  00275 

1 

C: 

00115 

1 

27.3370 

Ci 

01440 

0 

05106 

0 

Cl 

00276 

1 

Cl 

00116 

1 

CI 

00144 

0 

05114 

0 

Cl  OOI77 

0 

C: 

00144 

0 

pAGEU9‘t 


A8895AA  Y jL  SySTEM  AGCJ  NEw  pROG^Av)  S^EpATIN  BY  EyLES 


DEc  13*  1966 


octal  listing  of  paragraph  # 157,  wIthi  parity  bit  in  binary  at  tHe  right  of  each  word;  "6"  Denotes  unused  fixed  memory, 

ALL  VALID  WORDS  ARE  BASIc  INSTRUCTIONS  EXCEPT  THOSE  mARkeD  "I"  ( INTERpRETl VE  OpERATOR  wORDS)  OR  "c"  (CONSTANTS). 


27,3A00 

27,3A10 

27,3A20 

27,3A30 


05065  1 
OOOOA  0 
Cl  26754  0 
33432  1 


C;  00277  0 
05534  0 
13422  1 
05563  I 


C;  00117  0 
Cl  02067  1 
33433  0 
C*  57441  1 


01662  1 
C;  70066  0 
00004,  0 
Cl  OI75O  1 


04105  1 
00003  1 
O57OI  1 
33432  1 


Cl  00016  0 
10067  1 
C;  03434  1 
05567  0 


02655  0 
05550  1 
Cl  56006  1 

05307  0 


37740  0 
05224  0 
00003  1 
C:  56211  0 


27«344o 

05745 

1 

33470 

1 

OOOOA 

0 

05701 

1 

Cl 

03447 

0 

c:  56006 

1 

05605 

1 

37741 

1 

27,3450 

26077 

0 

05073 

0 

c; 

00136 

0 

05073 

0 

C; 

00156 

0 

33462 

1 

05701 

1 

C;  03463 

0 

27,3460 

c: 

56006 

1 

05745 

1 

Ci 

t 

00310 

0 

05073 

0 

Cl 

00137 

1 

O5O73 

0 

Cl  00157 

1 

05745 

1 

27 , 3470 

C ! 

02424 

1 

c:  03471 

0 

c • 

03472 

0 

CKSM  56551 

0 

g 

g 

g 

g 

27,3500 

g 

g 

g 

g 

g 

g 

g 

g 

27,3510 

g 

g 

g 

g 

g 

g 

g 

g 

27,3520 

@ 

g 

g 

g 

g 

g 

g 

g 

27 ,3530 

e 

g 

g 

g 

g 

g 

g 

g 

27,3540 

e 

g 

g 

g 

g 

g 

g 

g 

27,3550 

s 

g 

g 

g 

g 

g 

g 

g 

27,3560 

@ 

g 

g 

g 

g 

g 

g 

g 

27,3570 

e 

g 

g 

g 

g 

g 

g 

g 

27,3600 

e 

g 

g 

g 

g 

g 

g 

g 

27,3610 

g 

g 

g 

g 

g 

g 

g 

27,3620 

@ 

g 

g 

g 

g 

g 

g 

g 

27,3630 

e 

g 

g 

g 

g 

g 

g 

g 

27 ,3640 

e 

g 

g 

g 

g 

g 

g 

g 

27,3650 

@ 

g 

g 

g 

g 

g 

g 

g 

27,3660 

@ 

g 

g 

g 

g 

g 

g 

g 

27,3670 

g 

g 

g 

g 

g 

g 

g 

g 

27,3700 

g 

g 

g 

g 

g 

g 

g 

g 

27,3710 

g 

g 

g 

g 

g 

g 

g 

g 

27,3720 

g 

g 

g 

g 

g 

g 

g 

g 

27,3730 

g 

g 

g 

g 

g 

g 

g 

g 

27,3740 

g 

g 

g 

g 

g 

g 

g 

g 

27,3750 

g 

g 

g 

g 

g 

g 

g 

g 

27 ,3760 

g 

g 

g 

g 

g 

g 

g 

g 

27,3770 

g 

g 

g 

g 

g 

g 

g 

g 

PAGEll9t> 


A88954A  YJU  SYSTEM  FOR  aGC;  NeW  PRO<jRAM  SMePatIN  BY  e^I-ES  DeC  13,  1966 

octal  listing  of-  paragraph  » 160*  WlyHi  RA^ItY  BIj  In  binary  At  tML  right  oF  each  WoRDJ  "g"  denotes  unused  fixed  memory. 


ALL  VALID  WORDS  ARe  BASIC  INSTRUCTIONS  Ef<‘'EPT  tHOSe  MARKeO  "1"  ( I NTeRPRET  I Ve  OPeRATOR  WORDS)  oR  "C"  (CONSTANTS). 


30*2000 

0A1A7 

1 

C;  07015 

1 

C5 

77777 

0 

Ci 

02011 

0 

Ci  60065 

1 

35671 

1 

05523 

0 

C: 

03571 

1 

30,2010 

C; 

2A003 

1 

00006 

1 

32106 

1 

52006 

0 

06020 

0 

Cj 

00001 

0 

06045 

0 

C; 

40000 

0 

37755 

1 

55640 

37761 

30 , ^O^O 

1 

55511 

1 

37743 

0 

54003 

U 

37740 

u 

0 

0 

55641 

1 

30,2030 

556A2 

1 

55643 

0 

55644 

1 

55645 

0 

35662 

0 

05534 

0 

Ci 

0231  f 

0 

C; 

60064 

0 

1 

Cl 

02047 

Ci 

60065 

04147 

00006 

30 ,20A0 

3215A 

0 

O57OI 

i 

0 

1 

1 

C i 

4OO25 

1 

15745 

0 

1 

30,2050 

32106 

1 

52006 

0 

11110 

1 

12055 

1 

15745 

0 

41110 

1 

6776° 

1 

00006 

1 

30,2060 

157A5 

0 

04147 

1 

Cl 

05015 

0 

Ci 

77777 

0 

37754 

0 

55160 

0 

40075 

1 

77755 

0 

n 

32154 

O57OI 

Ci  02047 

Cl 

60065 

05534 

30,2070 

10000 

0 

02IO7 

V 

0 

1 

0 

1 

37740 

0 

0 

3o*2100 

c: 

021lf> 

0 

C;  60065 

1 

04i47 

1 

Ci 

40065 

0 

15745 

0 

Cl 

02506 

0 

Ci 

60065 

1 

00006 

1 

53073 

Q 

12076 

Ci 

02274 

60000 

1 

30,2110 

32 1 1 A 

1 

0 

1 

Cj  60065 

1 

37754 

0 

55512 

1 

i 

30,2120 

50000 

1 

10403 

1 

02124 

1 

02132 

0 

62152 

0 

00006 

1 

62132 

0 

04744 

1 

30*2130 

Cj 

CO2O5 

0 

02233 

1 

11512 

1 

12116 

1 

O4I47 

1 

Ci 

16035 

0 

C; 

20000 

0 

C: 

02143 

0 

30,2U0 

C! 

60065 

1 

05224 

0 

cl 

25220 

0 

06103 

0 

li  51575 

1 

Cl 

00404 

1 

Ci 

36535 

1 

C: 

61146 

0 

30,2150 

I ; 

77776 

1 

01322 

0 

cl 

63401 

1 

Ci 

00132 

1 

Ci  00310 

0 

Ci 

00062 

0 

37754 

0 

00006 

1 

30,2160 

02030 

0 

50000 

1 

42153 

0 

6I534 

1 

00006 

1 

62171 

1 

37755 

1 

55511 

1 

30,2170 

12233 

0 

31511 

0 

00006 

1 

62203. 

1 

04147 

1 

Ci 

12035 

1 

Cl 

02233 

1 

Ci 

60065 

1 

30*2200 

00006 

1 

27511 

1 

12233 

0 

35226 

1 

00004 

0 

05534 

0 

Cl 

02211 

1 

Cl 

60065 

1 

30,2210 

12225 

1 

00006 

1 

31075 

1 

52006 

0 

41534 

0 

62231 

0 

00006 

1 

62166 

1 

30,2220 

00004 

0 

37740 

0 

05523 

0 

Ci 

02463 

1 

C;  56005 

1 

00003 

1 

32230 

1 

55322 

1 

30,2230 

02233 

1 

C)  00000 

1 

Cl 

00000 

1 

06103 

0 

11  77624 

1 

Cl 

6IO77 

0 

1 1 

imb 

1 

04147 

1 

30*22^0 

Ci 

10035 

0 

00004 

0 

37752 

0 

54061 

1 

60000 

1 

54062 

1 

00006 

1 

50062 

0 

30,2250 

31051 

1 

50062 

0 

53011 

1 

10061 

1 

12243 

1 

00006 

1 

31560 

0 

53552 

0 

30,2260 

00006 

1 

31562 

1 

53333 

1 

00006 

1 

31321 

0 

53341 

1 

00003 

1 

04147 

1 

30,2270 

C; 

10035 

0 

00006 

1 

31073 

1 

52006 

0 

31321 

0 

55163 

0 

06027 

1 

C; 

40000 

0 

30,2300 

00006 

1 

32316 

1 

52006 

0 

04147 

1 

Ci  00055 

1 

47753 

0 

60765 

0 

00006 

1 

30,2310 

15605 

0 

14261 

1 

04147 

1 

Ci 

00035 

1 

15605 

0 

Cl 

02073 

1 

Ci 

16004 

1 

00004 

0 

37743 

1 

54071 

37756 

54O7O 

5OO7O 

5OO7O 

0 

0 

56003 

i 

0 

1 

1 

0 

31514 

0 

30,2330 

55010 

0 

10070 

1 

12321 

1 

00006 

1 

31511 

0 

53341 

1 

3OO7I 

1 

54003 

0 

30,23A0 

00003 

1 

06103 

0 

II 

77624 

1 

Ci 

61043 

1 

Cl  01025 

1 

1 i 

77776 

1 

15605 

0 

I : 

77620 

0 

30,2350 

Ci 

01154 

0 

l!  77776 

1 

00004 

0 

37743 

0 

56003 

1 

54O7I 

0 

37756 

1 

54O7O 

1 

30,2360 

50070 

0 

31400 

1 

50O7O 

0 

55010 

0 

10070 

1 

12357 

0 

00006 

1 

31670 

1 

30,2370 

53341 

1 

30071 

1 

54003 

0 

00003 

1 

06103 

0 

li 

77624 

1 

Ci 

61043 

1 

Cl 

01025 

1 

pAGEll9ti 


A8895AA  yJL  SySTEw  FOR  AqC;  NEw  pROCiRA.v(  S^EpATIN  0y  EyLES 


DEC  1966 


octal  listing  of  paragraph  0 161,  WItHi  parity  bit  in  binary  At 
all  valid  words  are  basic  instructions  except  those  mARKEO  "I" 

30,2a00  I:  77650  1 C:  0115A  0 Oa1A7  1 C:  05013 

30,2A10  057A5  1 377A0  0 7OO75  1 00006 

30,2420  02440  0 31401  0 00006  1 7l421 

30,2430  00006  1 71421  0 55423  1 31406 

30,2440  00006  1 7l4l7  0 61423  0 00006 

30,2450  00002  0 06020  0 cl  lOOOO  0 05745 

30,2460  C:  4O4I7  I 00006  ^ 23423  0 32457 

30,2470  57A12  1_  00006  ^ 20033  0 55417 

30,2500  55421  0 30032  0 57A11  1 00006 

30,2510  55154  1 55155  0 55156  0 37761 

30,2520  00006  1 30025  0 53321  1 4OO37 

30,2530  54404  0 40040  I 55157  1 57155 


tHe  right  of  each  word;  denotes  unused  fixeO  Memory, 

( iNTERpRETi vE  Operator  wORoS)  or  "c"  (constants), 

0 c;  77777  0 06020  0 c:  20000  0 0246l  0 

1 12454  1 02461  0 55423  1 31404  0 

0 55423  1 31405  1 02440  0 31403  I 

1 02440  0 06036  1 C;  10000  0 057A5  1 

1 62446  0 40000  0 62460  1 5A000  0 

1 04147  1 C:  00003  1 05745  1 C:  00144  0 

0 05701  1 C!  02411  1 C:  60066  1 30033  1 

0 30034  0 57413  0 OOOOb  1 20034  1 

1 20032  1 01423  0 53317  1 47761  1 

0 54404  0 5A406  1 5A410  0 55160  0 

1 55I57  1 57I54  0 56037  0 544O3  1 

1 56040  0 54405  1 54406  1 4OO4I  0 


30,25A0  55157  1 57156  1 
30,2550  54410  0 30032  0 
30,2560  55343  0 55345  0 
30,2570  53317  1 11160  0 

30,2600  10406  1 12604  0 
30,2610  12537  0 41157  1 
30,2620  12624  1 12624  1 
30,2630  12633  1 12633  I 

30,2640  C:  14076  0 Ci  00002  0 
30,2650  55656  1 31342  0 
30,2660  55156  0 OOOO4  0 
30,2670  70000  0 21155  0 


56041  1 54407  0 54410  0 

55342  1 30033  1 55344  1 

55347  1 00006  1 31317  0 

I25O7  0 10410,0  12545  0 

12613  0 12604  0 11156  0 

12543  0 10404  0 12617  1 

12624  1 12531  0 4II57  1 

12520  0 41157  I 12527  1 

Ci  00545  0 li  77401  1 C:  00001  0 
55660  1 35650  1 56003  1 

31416  0 00006  1 70000  0 

31421  1 00006  1 70000  0 


47761  1 54404  0 54406  I 

30034  0 55346  0 37761  0 

52006  0 00006  1 32636  0 

12600  1 12545  0 12545  y 

12611  1 12611  1 12611  I 

12626  0 12617  1 11155  B 

12535  1 11154  1 12633  1 

C;  02061  1 C;  60065  1 C;  24276  1 

31344  0 55654  0 31346  1 

54144  1 37761  0 55154  1 

21155  0 31417  1 00006  1 

21155  0 00003  1 56144  0 


30,2700  54003  0 06103  0 i:  77620  0 C:  000A7  1 
30,2710  C:  6O734  1 c:  OOllO  1 li  64110  0 Ci  00024  1 
30,2720  li  53575  0 Ci  0040a  1 Ci  00041  1 li  7762a  1 
30,2730  li  53322  1 Ci  022A1  1 l!  77656  1 Ci  022A1  1 


li  A53A5  1 Ci  01155  1 Ci  206A2  0 I:  72OAA  I 
Ci  00050  1 li  77775  1 Ci  02255  1 Cl  00025  0 
Ci  32576  1 li  52201  0 Ci  OOOOl  0 C:  022A1  1 
li  62150  1 Ci  00110  1 Ci  00024  1 Is  77320  0 


30,2740 

Ci 

00050 

1 

Ci 

02255 

1 

Ci 

00025 

0 

li 

77775 

1 

Ci  02241 

1 

30,2750 

1 i 

47201 

1 

Ci 

OOOOl 

0 

Ci 

02233 

1 

I i 

77761 

1 

Ci  20640 

1 

30,2760 

I i 

41345 

0 

Ci 

00013 

0 

Ci 

02251 

0 

1 i 

41325 

0 

Ci  00017 

1 

30,2770 

Ci 

02253 

1 

Ci 

00025 

0 

1 i 

72405 

0 

Ci 

02261 

0 

li  77621 

1 

Ci 

00041 

1 

II 

7762^  1 

C: 

32*22 

0 

Ci 

00013 

0 

1| 

77624  1 

C; 

61024 

0 

Ci 

02257 

0 

1 ! 

77621  1 

I : 

77671 

1 

Ci 

00015 

0 

Cl 

14027  1 

Ci 

00013 

0 

PAgE.119? 


A88954A  yJL  System  for  aqC;  new  program  smepatin  by  eyles  dec  13.  I966 


octal  listing  of  paragraph  # 162*  WiTHi  RARITY  BIT  IN  BINARY  At  THe  RIGHT  OF  EACH  WORD!  "6"  DeNOteB  UNUSeD  FIXeO  MeMoRY. 
ALL  valid  words  ARE  BASIc  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I"  ( I NTERpRET I VE  OPERATOR  WORDS)  OR  "c"  (CONSTANTS), 


30,3000 

I:  65205 

0 

c: 

02257 

0 

Ci 

00017 

1 

1 1 

43205 

1 

Cl  02251 

0 

I!  77752 

1 

Cl 

14031 

0 

Ci 

00027 

1 

30,3010 

li  57405 

1 

C! 

02261 

0 

I 5 

77752 

1 

Cl 

00025 

0 

II  53375 

0 

Cl  00025 

0 

CI 

01343 

1 

1 1 

77634 

0 

30,3020 

C:  33573 

0 

c; 

00767 

1 

li 

77650 

1 

CI 

00047 

1 

li  76131 

0 

CI  00051 

0 

CI 

00002 

0 

Ci 

00006 

1 

30,3030 

li  47133 

0 

C! 

01351 

1 

Ci 

33524 

1 

Cl 

05351 

0 

I I 77756 

0 

Cl  06263 

0 

II 

71543 

0 

Ci 

01351 

1 

3o*3oAo 

C:'  06255 

0 

I : 

43500 

0 

ci 

o 

o 

>o 

0 

1 1 

77656 

1 

Cl  01033 

0 

II  4i44i 

0 

CI 

OIOAI 

0 

1 1 

563i6 

0 

30,3050 

C;  21131 

1 

i( 

65221 

0 

Ci 

21127 

0 

Ci 

OOOA5 

0 

Ci  15O47 

0 

Ci  21133 

0 

Ii 

77671 

1 

Ci 

00043 

0 

30,3060 

C!  00041 

1 

, li 

77605 

I 

I i 

65361 

0 

Ci 

01033 

0 

II  74205 

0 

CI  OOOAl 

1 

Cl 

OIO4I 

0 

l! 

53255 

0 

30,3070 

Ci  01033 

0 

i: 

5632  5 

0 

Cl 

21135 

0 

Ci 

00043 

0 

II  45561 

1 

Cl  76712 

1 

1 1 

77616 

0 

1 1 

7A375 

0 

30i3i00 

c:  00404 

1 

CI 

21125 

1 

I i 

44006 

1 

Cl 

00037 

0 

11  4i455 

0 

CI  01025 

1 

1 1 

74255 

0 

Ci 

01017 

0 

30,3110 

Cj  21137 

1 

ii 

77655 

1 

Cl 

01011 

0 

Ci 

35051 

0 

Ci  61043 

1 

I I 53255 

0 

II 

77655 

1 

Ci 

01017 

0 

30,3120 

C!  35057 

0 

C! 

00037 

0 

cl 

03215 

1 

CI 

27057 

0 

CI  00150 

0 

CI  33343 

0 

CI 

04000 

0 

Cl 

00000 

1 

Q 

r I 

t 

30103 

n 

CI  77774 

n 

Ci 

n n n n n 

1 

iU  « 3 130 

w • U ^ 1 H 6 

1 

i4632 

uuu^o 

1 

U 

U 

L,  5377‘ 

u 

L I 

□ UU3  1 

0 

OUUUU 

i 

30*3iAo 

C!  04000 

0 

Ci 

00000 

1 

Cl 

0022A 

0 

Cl 

17561 

0 

CI  00164 

1 

CI  34414 

1 

1 1 

46145 

0 

C: 

01333 

0 

30,3150 

C;  61312 

0 

i: 

74375 

0 

CI 

00404 

1 

Ci 

21123 

1 

li  51406 

1 

Ci  02165 

1 

1 1 

56206 

0 

Ci 

21315 

0 

30,3160 

C:  01337 

1 

l! 

77776 

1 

33355 

1 

54003 

0 

00006 

1 

31337 

1 

03356 

1 

53546 

0 

30,3170 

41545 

0 

63316 

0 

00006 

1 

63200 

0 

00006 

1 

43321 

0 

53556 

1 

13301 

1 

30,3200 

41332 

0 

63317 

1 

00006 

1 

63210 

1 

00006 

1 

43323 

1 

53556 

1 

13301 

1 

30,3210 

37761 

0 

55544 

1 

37753 

1 

27544 

1 

41545 

0 

51544 

0 

63325 

0 

00006 

1 

30,3220 

63212 

0 

40000 

0 

00006 

1 

5I544 

0 

73326 

1 

53550 

1 

00006 

1 

51544 

0 

30,3230 

33330 

1 

21550 

1 

43520 

1 

60000 

1 

56002 

0 

00006 

1 

31546 

1 

00006 

1 

30,3240 

10002 

1 

55545 

0 

33327 

1 

00006 

1 

71551 

0 

63326 

0 

n0006 

1 

71545 

0 

30,3250 

00006 

1 

71545 

0 

53554 

0 

33325 

0 

00006 

1 

71551 

0 

63324 

1 

00006 

1 

30,3260 

71545 

0 

21554 

0 

31553 

0 

00006 

1 

73314 

0 

53560 

1 

00006 

1 

31552 

1 

30,3270 

21560 

1 

31557 

1 

00006 

1 

73330 

0 

53556 

1 

00006 

1 

41550 

1 

21556 

1 

30,3300 

54153 

1 

37761 

0 

54111 

1 

06103 

0 

I 1 60545 

0 

II  41271 

0 

CI 

02556 

0 

Ci 

01333 

0 

30,3310 

1:  77615 

0 

Cl 

01333 

0 

Ci 

02562 

1 

1 1 

776l6 

0 

Cl  14400 

0 

CI  00000 

1 

Cl 

00333 

1 

Ci 

05423 

1 

30,3320 

C!  15165 

1 

c; 

30244 

0 

Ci 

I7IIA 

0 

CI 

33562 

0 

Cl  73301 

1 

CI  00121 

0 

CI 

36633 

1 

Ci 

767A3 

0 

30,3330 

C:  00321 

1 

CI 

01400 

1 

cl 

23243 

0 

Cl 

16461 

0 

Cl  26707 

0 

CI  03040 

0 

CI 

73704 

0 

C: 

16312 

0 

30,3340 

c;  33256 

0 

CI 

05200 

0 

ci 

11354 

0 

C{ 

17026 

0 

CI  00406 

0 

CI  06200 

0 

CI 

72^05 

0 

Ci 

16676 

1 

30,3350 

C;  06521 

1 

Ci 

14400 

0 

Ci 

00000 

1 

Ci 

16676 

1 

Ci  06521 

1 

Cl  02557 

1 

00006 

1 

22120 

1 

•an  '3‘a^n 

07146 

n 

cl 

07146 

Cl  03526 

53567 

n 

521^5 

u 

V 

U1332 

1 

0 

0 

52146 

0 

OVJ12U 

1 

V 

30,3370 

35665 

1 

00004 

0 

05523 

0 

Cl 

03410 

1 

Cl  60065 

1 

00003 

1 

13406 

1 

53567 

0 

I 
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octal  listing  of  PARAGRAPH  * 163,  WItHI  RA^ItY  BIT  IN  BINARY  At  tHe  RIGHt  OF  eACH  WORD?  "6"  OeNOtEB  UNUSeD  FIXeD  MpMoRY, 

ALL  VALID  WORDS  ARE  BASIc  INSTRUCTIONS  EXCEPT  THOSE  mARxeO  "1"  ( INTeRpRETI VE  OpeRAtOR  wORDS)  OR  "c"  (CONSTANTS), 

30,3aOO  35226  1 0000a  0 O5523  0 C:  03A22  0 C:  60065  I 00003  1 53567  0 52006  0 

30,3A10  Oak?  1 C;  0A02A  0 00006  1 A3521  0 52U5  0 31335  0 07351  1 521A5  0 

30,3a20  53563  1 13A30  I 0a1A7  I C)  0aO2a  0 00006  1 31335  0 03356  1 53563  I 

30,3A30  00006  1 31337  1 03356  I 53560  I 37761  0 5556A  0 55565  I 377A0  0 

30,3AA0  00006  1 02011  0 00006  1 13A50  1 A352A  0 55561  0 3352A  1 5556A  0 

30,3A50  31562  1 6352A  1 00006  1 63A73  1 31562  1 63523  0 00006  1 63A76  1 

30,3A60  A1562  0 63522  1 00006  1 63A70  1 31561  1 63520  0 00006  1 63A76  1 

30,3A70  335I7  1 55562  0 13A76  0 00006  1 A3525  1 53563  1 0A1A7  1 C;  0A02A  0 

30,3500  00006  1 31563  0 55561  0 21565  1 00006  1 A1560  1 21565  1 3156A  1 

30,3510  540550  37752  0 00006  1 O5OIA  1 0a1A7  1 C;  0A02A  0 15605  0 C;  IAAOO  0 

30,3520  c;  06200  0 c:  00000  I ci  03500  1 c:  7A601  0 c:  77277  0 c;  77777  0 Ci  00056  1 c:  3257O  i 

30,3530  c:  03530  1 C;  03531  0 C<SN  50033  1 § @ @ g e 

3oi354o 

30,3550 

30,3560  e@@@@§ee 

30,3570 


30,3600 

§ 

g 

g 

g 

g 

g 

30,3610 

e 

e 

@ 

g 

g 

g 

g 

g 

30 ,3620 

e 

g 

g 

g 

g 

g 

30,3630 

@ 

g 

g 

g 

g 

g 

g 

30i364o  e«@@eeee 


30*3650 

g 

g 

g 

g 

g 

g 

g 

g 

30 ,3660 

g 

g 

g 

g 

g 

g 

g 

g 

30,3670 

g 

g 

g 

g 

g 

g 

g 

g 

30.3700 

g 

g 

g 

g 

g 

g 

g 

g 

30*3710 

g 

g 

g 

g 

g 

g 

g 

g 

30*3720 

g 

g 

g 

g 

g 

g 

g 

g 

30*3730 

g 

g 

g 

g 

g 

g 

g 

g 

30*3740 

g 

g 

g 

g 

g 

g 

g 

g 

30*3750 

g 

g 

g 

g 

g 

g 

g 

g 

30  * 3760 

g 

g 

g 

g 

g 

g 

g 

g 

30*3770 

g 

g 

g 

g 

g 

g 

g 

g 

i 

i 

i 

i 

\ 

1 

( 

I 

I 
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A8895AA  YJL  SYSTEM  FOR  AGC : NeW  Pro^Ri^M  S^ePatIN  BY  eYL^S  DeC  u,  1966 


octal  listing  oF  paragraph  If  164»  WITHi  PARITY  BIT  IN  BINARY  aT  THE  RIGHT  qF  EaCH  WoRO!  "§"  DENqTES  UNUSED  FIXED  MEMqRY. 
ALL  VALID  WORDS  ARe  BASIC  INStRUCjIONS  eXLePt  tHOSe  MARKe?  "I«  ( INTeRPRETIVe  OPeRAtOR  WORDS)  OR  mC"  (CONStANtS) , 


31*2000 

363O1 

0 

55212 

0 

54070 

1 

50000 

1 

11167 

1 

12011 

1 

12107 

1 

67755 

1 

31,2010 

aoooo 

0 

5OO7O 

0 

55177 

0 

5OO7O 

0 

31173 

0 

50070 

0 

55203 

0 

IOO7O 

1 

11213 

1 

12041 

36301 

31 ,2020 

12002 

0 

i 

1 

0 

54O7O 

1 

45361 

1 

5OO7O 

0 

71167 

1 

31,2030 

00006 

1 

120A0 

0 

IOO7O 

1 

12024 

1 

35651 

0 

05534 

0 

Ci 

02216 

0 

Ci 

16004 

1 

55213 

1 

31210 

54O7O 

31 t20A0 

35222 

0 

i 

0 

5521 1 

0 

04A47 

1 

C I 

0a013 

1 

37757 

0 

1 

31,2050 

50000 

1 

31177 

1 

5OO7O 

0 

55167 

1 

10070 

1 

12047 

1 

46301 

1 

71212 

0 

31,2060 

10000 

0 

12101 

1 

32106 

1 

27210 

1 

04147 

1 

Ci 

O4OI3 

1 

40025 

1 

61211 

1 

1 

12075 

677A0 

05701 

02000 

62062 

31 ,2070 

UUQU6 

1 

62073 

1 

0 

0 

677AO 

u 

1 

C I 

0 

Ci 

i 

31*2100 

057A5 

1 

060A5 

0 

Cl 

OOO2O 

0 

0^147 

1 

c: 

00003 

1 

15745 

0 

CI 

00l44 

0 

30070 

0 

50070 

Q 

00006 

76301 

1 

31,2110 

55207 

1 

31 173 

0 

1 

12431 

1 

54765 

1 

00006 

1 

i 

31,2120 

60001 

0 

32354 

1 

54O7I 

0 

77757 

1 

70076 

1 

10000 

0 

12152 

1 

37752 

0 

31,2130 

7OO7I 

0 

27212 

0 

35676 

0 

70071 

0 

54063 

0 

00006 

1 

50001 

0 

32356 

0 

31,2UO 

055AA 

1 

04127 

1 

Cl 

00032 

0 

Ci 

04013 

1 

31207 

0 

54O7O 

1 

35226 

1 

05523 

0 

31,2150 

Ci 

02173 

0 

c: 

62062 

1 

47761 

1 

5OO7O 

0 

55177 

0 

12015 

0 

5120? 

0 

31173 

0 

31,2160 

00006 

1 

76301 

1 

50001 

0 

32354 

1 

75676 

1 

54063 

0 

00006 

1 

50001 

0 

31,2170 

32356 

0 

O5544 

1 

I5745 

0 

32414 

1 

54304 

1 

05224 

0 

CI 

12314 

1 

05243 

1 

31*2200 

C! 

11333 

1 

02314 

0 

12373 

0 

02314 

0 

022A5 

0 

12373 

0 

00003 

1 

12373 

0 

31,2210 

A775A 

1 

61216 

0 

04312 

0 

Ci 

77776 

1 

12375 

0 

51216 

0 

37752 

0 

54001 

1 

31,2220 

OOOOA 

0 

30076 

0 

00006 

1 

06001 

0 

54076 

1 

12206 

0 

4OO76 

1 

77751 

1 

31,2230 

10000 

0 

12375 

0 

47746 

1 

61216 

0 

04312 

0 

Ci 

77600 

1 

12375 

0 

32244 

1 

31 ,22A0 

55215 

1 

32207 

0 

55217 

0 

01215 

0 

O5O73 

0 

3OOO2 

0 

02277 

1 

11214 

0 

31,2250 

1225A 

1 

12375 

0 

12375 

0 

12375 

0 

04312 

0 

Ci 

77756 

0 

12375 

0 

41214 

0 

31,2260 

66276 

1 

10000 

0 

12375 

0 

Ci 

72400 

0 

12266 

0 

12375 

0 

50000 

1 

37737 

0 

31,2270 

72263 

0 

00006 

1 

12375 

0 

31214 

1 

5OO7O 

0 

55I73 

1 

15220 

0 

55221 

0 

31,2300 

11216 

1 

12305 

1 

12375 

0 

12375 

0 

12375 

0 

75357 

1 

lOOOO 

0 

12375 

0 

31,2310 

A1216 

1 

67753 

1 

54070 

1 

00002 

0 

30002 

0 

02277 

1 

5OO7O 

0 

11167 

1 

31 ,2320 

12327 

1 

12327 

1 

12323 

0 

31215 

0 

5OO7O 

0 

27l67 

1 

15220 

0 

11215 

1 

31,2330 

12337 

0 

12334 

0 

12337 

0 

47761 

1 

5OO7O 

0 

55l67 

1 

15220 

0 

31215 

0 

31,23AO 

50070 

0 

27167 

1 

10000 

0 

15220 

0 

15220 

0 

37761 

0 

12334 

0 

06103 

0 

31,2350 

1 ; 

AA234 

1 

Ci 

33521 

1 

CI 

01220 

0 

1 i 

54205 

1 

Ci 

22400 

0 

d 

20217 

1 

li 

5OOO4 

0 

Ci 

62375 

1 

31,2360 

Ci 

6237A 

0 

I! 

77776 

1 

00004 

0 

37751 

0 

7OO76 

1 

00006 

1 

12375 

0 

02277 

1 

31,2370 

301AA 

0 

50070 

0 

55167 

1 

15605 

0 

1 1 

77776 

1 

04560 

0 

15605 

0 

Ci 

00243 

1 

^8895^A  yjL  SySTEM  pOR  AGC!  NEW  pROGRAv)  S^^EpATIN  BY  EyLES  DEc  l3»  1966 

octal  listing  of  paragraph  # 165,  wItRi  rahity  bit  in  binary  At  tHe  right  of  each  word;  "g"  Denotes  unuseD  fixed 

ALL  valid  words  ARE  BASIc  INSTRUCTIONS  EXCEPT  THOSE  mAR<eD  "I"  ( I NTERpRET I VE  OpERATOR  wORDS)  OR  "c"  (CONSTANTS). 


31.2AOO 
31 ,2AlO 
31,2420 
31,2430 

3i 12440 
31»2450 
31.2460 
31.2470 

31.2500 

31.2510 

31.2520 

31.2530 


C:  327O3  1 

C!  0261A  0 
04725  0 

04725  0 

Ci  O2AA0  0 

e 


C;  20010  1 
C!  66064  0 

O4725  0 
04744  1 

c;  O2AA1  1 

§ 

@ 

@ 


Ci  02467  0 
04725  0 
04725  0 

Cl  00601  0 

CCS'*'  53400  0 
g 
g 
g 

g 


C!  52OO4  1 

04725  0 
c:  20010  1 
35676  0 


Cl  20012  0 

Cl  00034  0 
c;  03O7I  1 

05523  0 


Cl  02555  0 
C;  20010  1 
c;  56004  0 
C!  02000  0 


Cl  56003  1 
Cl  02000  0 

04725  0 

Cl  16003  0 


pAGEUOO 

Memory, 


20010  1 

74064  0 

04725  0 

057A5  1 


31.2540 

g 

g 

g 

g 

g 

g 

g 

g 

31.2550 

g 

g 

g 

g 

g 

g 

g 

g 

31.2560 

g 

g 

g 

g 

g 

g 

g 

g 

31.2570 

g 

g 

g 

g 

g 

g 

g 

g 

3 1 .2600 

g 

g 

g 

g 

g 

g 

g 

g 

31.2610 

g 

g 

g 

g 

g 

g 

g 

g 

31.2620 

g 

g 

g 

g 

g 

g 

g 

g 

3 1 .2630 

g 

g 

g 

g 

g 

g 

g 

g 

31.2640 

g 

g 

g 

g 

g 

g 

g 

g 

3 1 .2650 

g 

g 

g 

g 

g 

g 

g 

g 

31.2660 

g 

g 

g 

g 

g 

g 

g 

g 

31.2670 

g 

g 

g 

g 

g 

g 

g 

g 

31.2700 

g 

g 

g 

g 

g 

g 

g 

g 

31.2710 

g 

g 

g 

g 

g 

g 

g 

g 

31 .2720 

g 

g 

g 

g 

g 

g 

g 

g 

31.2730 

g 

g 

g 

g 

g 

g 

g 

g 

3 1 .2740 

g 

g 

g 

g 

g 

g 

g 

g 

31.2750 

g 

g 

g 

g 

g 

g 

g 

g 

31.2760 

g 

g 

g 

g 

g 

g 

g 

g 
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oCTal  listing  oF  Paragraph  m i7o»  withi  Parity  bit  in  binary  at  the  right  qF  each  wqRd;  "e"  denotes  unused  fixed  memory# 
all  valid  words  are  basic  instructions  eX'-EPT  those  marked  "I"  (INTERPRETIVE  operator  WORDS)  OR  "C"  (CONSTANTS). 


32*2000 

53A47 

0 

35662 

0 

55A51 

1 

06103 

0 

II  7762A 

1 

Cl  6O3A7 

1 

I I 77775 

1 

Ci  OlOlI 

0 

32,2010 

I : 

53A35 

0 

Cj 

OIOI7 

0 

Ci 

02015 

1 

li 

76A35 

1 

C;  01033 

0 

1|  63361 

0 

C;  24072 

1 

Cj  01033 

0 

32,2020 

1 i 

51361 

1 

C; 

2a07A 

1 

I 5 

77626 

0 

Cl 

75770 

0 

li  76A35 

1 

Ci  02015 

1 

Ci  26001 

1 

Cl  24076 

0 

32,2030 

c: 

26023 

1 

C! 

2a10a 

I 

c* 

16031 

1 

Ci 

26517 

0 

Ci  26037 

1 

Cl  2A112 

0 

Ci  02041 

0 

II  77731 

1 

32*20^0 

C! 

02051 

1 

c; 

6A053 

0 

I! 

A301A 

0 

Ci 

0147A 

1 

Cl  01675 

1 

li  A301A 

0 

Cl  02263 

1 

C;  02061 

1 

32,2050 

1; 

5201a 

0 

C: 

01676 

1 

Ci 

6A120 

0 

1 ! 

A3175 

0 

C;  02057 

1 

Ci  02063 

0 

C;  25656 

0 

C;  26515 

1 

32,2060 

Ci 

0166A 

1 

I: 

77776 

1 

32117 

1 

55A50 

0 

35661 

0 

55A51 

1 

00006 

1 

31447 

1 

32,2070 

52006 

9 

Ci 

3AA06 

I 

c» 

10015 

1 

Cl 

l6Al6 

0 

Cl  05613 

0 

Ci  0520A 

1 

Cl  04411 

1 

C:  2O712 

1 

32*2100 

c: 

3767A 

0 

c: 

27032 

0 

cl 

21513 

0 

Cl 

00000 

1 

Cl  00000 

1 

Ci  00000 

1 

Cl  00000 

1 

C:  2OOOO 

0 

32*2110 

Cj 

00000 

1 

Ci 

00000 

1 

Cl 

00000 

1 

Ci 

22363 

1 

C;  06315 

0 

ci  05000 

1 

Cj  00000 

1 

C.  606A3 

0 

32,2120 

I ! 

70375 

1 

Ci 

01065 

0 

C! 

2A653 

1 

II 

50360 

1 

Cl  00005 

1 

Cl  01033 

0 

II  ^7315 

0 

Ci  01033 

0 

32,2130 

C! 

01017 

0 

li 

53A06 

0 

Cl 

25725 

0 

1 1 

56236 

0 

Ci  OIOA7 

0 

11  A3352 

1 

II  77626 

0 

C:  51666 

0 

32*21^0 

c: 

01033 

0 

li 

53A35 

0 

Cl 

02007 

1 

Cl 

02077 

0 

II  57A35 

1 

Ci  02007 

1 

I I 63372 

1 

Cl  01033 

0 

32*2150 

l! 

72AA1 

0 

C; 

OIOI7 

0 

Ci 

261A7 

1 

C| 

02077 

0 

li  72A41 

0 

C|  01017 

0 

C;  26105 

1 

C;  02077 

0 

32,2160 

1 i 

76A36 

1 

Ci 

01033 

0 

Cl 

02071 

0 

li 

72AA1 

0 

Cl  01017 

0 

Cl  26067 

1 

Cl  00001 

0 

l!  62441 

1 

32,2170 

C5 

02015 

1 

li 

63A06 

0 

II 

A1206 

0 

Ci 

2A'651 

0 

II  A1215 

1 

Cl  2A661 

0 

II  41215 

1 

Ci  26515 

1 

32*2200 

I; 

72A05 

0 

Ci 

02375 

1 

1 1 

503l5 

0 

Ci 

01033 

0 

Ci  02007 

1 

Ci  02151 

0 

II  41316 

0 

C:  2^665 

1 

32*2210 

l! 

A1215 

1 

C; 

2A663 

1 

Cl 

02151 

0 

li 

A2a05 

0 

Cj  02375 

1 

li  A5325 

1 

C|  02350 

0 

Cj  24667 

0 

32,2220 

c: 

02350 

0 

I i 

7I2IA 

0 

Cl 

01756 

1 

Ci 

5A233 

1 

Cl  02U7 

1 

II  AI2I5 

1 

Cl  02041 

0 

Ci  02350 

0 

32,2230 

i: 

A33A2 

0 

Ci 

OIOA7 

0 

Cl 

02375 

1 

I i 

A301A 

0 

Cl  OI7IA 

1 

Cl  6A250 

1 

Cl  01715 

0 

Cl  6A367 

1 

32*22^0 

I : 

7121A 

0 

Ci 

O1A75 

0 

Cl 

2A6A5 

0 

Cl 

160A5 

1 

Cl  26517 

0 

Cl  O2OA1 

0 

11  77650 

1 

Ci  6A366 

0 

32*2250 

I; 

7121A 

0 

C; 

023A1 

0 

Cl 

6A367 

1 

C; 

02067 

1 

li  65205 

0 

Ci  02350 

0 

Cj  02043 

1 

I;  43205 

1 

32,2260 

c: 

02350 

0 

I ! 

A3257 

0 

cl 

20172 

1 

1 1 

77626 

0 

Cl  63736 

0 

Ci  02105 

1 

11  41215 

1 

C:  02045 

1 

32,2270 

c: 

02350 

0 

I i 

A3257 

0 

cl 

20167 

0 

li 

56271 

0 

Cl  02375 

1 

Cl  05600 

1 

II  7I4O6 

0 

I:  73525 

1 

32*2300 

I : 

7A2O6 

0 

Ci 

02015 

1 

n 

7A325 

0 

Cl 

00007 

0 

Cl  O2OOI 

1 

li  77655 

1 

II  77725 

1 

Ci  OOOAl 

1 

32,2310 

1 ; 

65316 

0 

C; 

02375 

1 

li 

A5316 

1 

li 

7A366 

1 

li  65372 

1 

C;  OOOAl 

1 

li  53361 

0 

C;  02007 

1 

32,2320 

I ; 

T7772 

0 

Ci 

02U1 

1 

II 

77656 

1 

Ci 

26153 

1 

Cl  02001 

1 

I I 77761 

1 

li  77715 

1 

Cl  02015 

1 

32,2330 

I i 

52361 

1 

Ci 

OOOO7 

0 

1 1 

AO372 

0 

Ci 

00001 

0 

Cl  16133 

1 

Cl  02373 

1 

II  77625 

0 

C:  02053 

0 

32  *23A0 

c: 

02167 

0 

li 

77776 

1 

31A51 

0 

OOOOA 

0 

0553A 

0 

Cl  02672 

0 

Ci  6A063 

0 

00003 

1 

32*2350 

06103 

0 

li 

A1575 

0 

Cl 

01717 

1 

li 

72AA1 

0 

Ci  02153 

1 

Ci  260A1 

0 

Cj  00001 

0 

li  72441 

0 

32,2360 

c: 

02133 

1 

Ci 

260A5 

1 

Cl 

02153 

1 

11 

50235 

0 

Ci  02133 

1 

II  57512 

0 

Cl  02043 

1 

I:  40345 

1 

32,2370 

C: 

020A3 

1 

Ci 

00001 

0 

II 

AU25 

1 

Cl 

02067 

1 

Cl  UOAl 

1 

Ci  020a5 

1 

li  41425 

1 

C:  02105 

1 
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octal  listing  o^  paragraph  # wi,  wIt+  =’ahity  bit  in  binary  At  tHe  right  of  each  word;  "e"  denotes  unused  fixed 
ALL  valid  words  ARE  BASIC  INSTRUCTIONS  EXCEPT  THOSE  MARKED  "I”  ( iNTERpRETiVE  OPERATOR  WORDS)  OR  "c"  (CONSTANTS) 


32,2400 

Ci 

14037 

0 

Ci 

02111 

1 

32,2410 

I i 

55425 

1 

Ii 

I i 

45246 

0 

1 

32 ,2420 

C i 

265 1 5 

1 

4 1 2 1 5 

32,2430 

CI 

64675 

1 

1 1 

47OI4 

1 

I!  72a05  0 C:  02350  0 I;  45325 
Ci  246A7  1 I;  52405  I C:  02025 
Ct  26515  1 15  A1206  0 Ci  02027 
C!  01613  1 C;  66232  1 Ci  33521 


1 Ci  02041  0 Ci  02147  1 C 

1 li  77606  1 I!  4A205  0 C 

0 Cl  02350  0 li  50025  0 C 

1 Ci  O2IO7  0 I i 5A345  1 C 


32»2AAo 

32,2450 

32,2460 

32,2470 


Ci 

20614 

0 

I! 

77615 

0 

Cl 

02107 

0 

Ci  16053 

0 

CI 

24671 

1 

II 

5i025 

1 

CI  02350 

0 

Ii 

45345 

1 

Ci 

02107 

0 

c; 

24641 

1 

Ci  I6O55 

0 

Ci 

02350 

0 

Ii 

43205 

1 

d 02147 

1 

I i 

44342 

1 

Cl 

02375 

1 

Cl 

14033 

1 

Ii  43221 

1 

Ci 

26515 

1 

Cl 

26515 

1 

Ii  77624 

1 

1 1 

41461 

1. 

c; 

20206 

1 

n 

44265 

0 

Ci  02350 

0 

Ci 

02027 

0 

I ; 

45325 

1 

Cl  02350 

0 

32»2500  II 

32,2510  C; 

32,2520  Ci 

32,2530  Ci 


712AA  0 Ci 

02350  0 Cj 

00005  1 C; 

02131  0 li 


6A507  1 Cl 

00003  1 I! 

20173  0 li 

56345  0 Cl 


26517  0 Cl 

70525  1 Ci 

56225  1 Ci 

00035  1 Ci 


02131  0 II 

02350  0 I; 

00033  1 Cl 

00001  0 li 


776iA  1 Ci 

65225  1 C; 

O235O  0 II 

77725  1 l! 


0iA36  1 Cl 

00005  1 Cj 

40271  1 Cl 

776O5  1 Cl 


6A531  1 I 

00035  1 I 

00007  0 C 

02131  0 I 


32»25Ao  Cl  20573  1 I;  77626  0 
32,2550  Ci  00001  0 li  A53A5  1 
32,2560  Cl  02113  0 II  45271  1 
32,2570  Cl  02027  0 li  53361  0 


Cl  6166A  1 Ci  OOOAi  1 li 
Cl  02107  0 Ci  02055  0 li 
d 02027  0 Ci  02111  1 II 
Cl  O2O7I  0 II  AI572  1 II 


77671 

53605 

1 

1 

Ci  OOOOl 
Ci  02131 

0 

Ci 

02065  0 
20560  0 

I 

I 

0 

C i 

65361 

0 

Cl  01033 

0 

Ci 

02065  0 

I 

65246 

1 

Ci  02023 

1 

I i 

45316  1 

C 

32»2600  II  A1325  0 Ci  02023  1 
32,2610  Ci  00011  1 Ii  77766  0 
32,2620  Ci  14001  0 Ci  02023  1 
32,2630  Ci  00001  0 Ii  77656  1 


Cl  02035  0 I i A1552  0 I i A53l6 
II  77650  1 Ci  6A62A  0 Ii  55345 
II  77605  1 Ci  02037  1 II  7A365 
Cl  02057  1 Ii  A5001  1 CI  00001 


CI  00043 

0 

1 ; 

712A0 

1 

C 

Ci  00007 

0 

1 i 

76561 

1 

C 

Ci  00037 

0 

c; 

02077 

0 

I 

Ci  02050 

0 

I i 

77776 

1 

32*26A0 

Cl 

ooooo 

1 

Ci 

00144 

0 

Cl 

12702 

1 

32,2650 

Ci 

01146 

0 

Ci 

14632 

0 

Cl 

00014 

1 

32,2660 

Cl 

02525 

1 

Cl 

12525 

0 

d 

10000 

0 

32,2670 

Cl 

OOOOO 

1 

Cl 

00310 

0 

06103 

0 

Cl  21T27  0 Ci  23123  0 
Ci  20000  0 Ci  00062  0 
Ci  00000  1 Cl  25252  0 
Ii  77624  1 CI  7AA30  0 


Cl 

36273  1 

CI 

OOlOO 

0 

c 

Cl 

OOOOO  1 

Ci 

ooooo 

1 

c 

CI 

25253  1 

Ci 

00031 

0 

c 

I i 

52545  1 

Ci 

02350 

0 

1 

32*2700  OOOOA  0 

32,2710  Ci  6A431  0 

32,2720  Cl  6A762  0 Ci 

32,2730  06103  0 I i 


30iA4  0 05701  1 Ci  02711 
O6O7I  1 057A5  1 06103 
24765  0 II  7747I  0 Ci  02165 
45206  1 Cl  02163  1 Ii  54206 


1 Cl  64064  1 00003  1 

0 Ii  45345  1 Ci  02165  1 

1 52145  0 53563  1 

1 Cl  21211  0 Ci  16025  1 


06i03  0 I 

Ci  24766  0 I 

53561  0 

1 1 43342  0 C 


32*2740 

I i 

43362 

1 

1 1 

41205 

0 

d 

24665 

1 

Ci 

32,2750 

I i 

45342 

0 

Ci 

OOOOl 

0 

II 

43342 

0 

Ci 

32,2760 

Cl 

1 

Ci 

1 

I 1 

77650 

1 

Ci 

35445 

U2U23 

32,2770 

Cl 

OOOOO 

1 

Ii 

44301 

0 

Cl 

00121 

0 

Cl 

2A77O  1 Ii  77671  1 Cl  O2O25  1 Ci  16027  0 C 
02163  1 Ii  41205  0 Ci  24665  1 Ci  24770  1 I 
64120  0 CI  00040  0 Ci  OOOI7  1 C;  13412  1 C 
25040  1 Ii  77776  1 07265  1 Ci  00006  1 C 


Memory, 


00035  1 

! 24643  0 
! 24655  1 
i 02350  0 

: 64547  0 

• OIO47  0 
1 6A77I  1 
I 24657  0 

I 45345  1 
I 53605  1 

I 00005  1 
i 44257  1 

! 77601  0 

: 7O415  0 

1 56342  1 
: 00043  0 

: 64614  0 
! 00001  0 
1 53372  1 

15605  0 

I 00000  1 
! 00000  1 
: 00000  1 
1 77776  1 

! 77650  1 
. 67240  0 
52145  0 
: 02161  0 

1 02161  0 

• 77665  I 

i 31000  0 

: 00000  1 
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octal  listing  oe  paragraph  # i72t  wItHi  ^ahity  bit  in  binary  at  tHe  right  of  each  word?  Denotes  unused  fixed  meMory. 

ALL  VALID  WORDS  ARe  BASIC  INSTRUCTIONS  EX^^EPT  JHOSe  MAR<eD  "I"  ( INTeRPPETIvE  OPERATOR  WORDS)  OR  "C"  (CONSTANTS). 


32,3000 

Ci 

00002 

0 

CJ 

76777 

1 

Ci 

77175 

1 

Ci 

77400 

0 

Ci 

75416 

0 

Cl 

77507 

0 

Cl 

65515 

0 

C: 

77741 

0 

32,3010 

c; 

63547 

1 

c: 

77052 

0 

cl 

55373 

0 

Ci 

01167 

0 

Cl 

30361 

0 

Ci 

76520 

1 

Cl 

75267 

0 

37761 

0 

32,3020 

54146 

0 

00006 

1 

33036 

1 

52145 

0 

52122 

1 

30120 

1 

O735I 

1 

52146 

0 

32,3030 

52145 

0 

52122 

1 

20145 

0 

06103 

0 

I i 

43476 

0 

Cl 

00542 

1 

Ci 

34414 

1 

C: 

37777 

1 

32 ,3oAo 

CJ 

37777 

1 

Ci 

03041 

1 

ci 

03042 

1 

CKSM 

70756 

1 

g 

g 

g 

g 

32,3050 

@ 

g 

g 

g 

g 

g 

g 

g 

32 , 3060 

e 

g 

g 

g 

g 

g 

g 

g 

32,3070 

e - 

- 

g 

g 

g 

g 

g 

g 

g 

32*3100 

e 

g 

g ■ 

g 

g 

g 

g 

g 

32.3110 

g 

g 

g 

g 

g 

g 

g 

32,3120 

g 

g 

g 

g 

g 

g 

g 

32,3130 

g 

g 

g 

g 

g 

g 

g 

32*3140 

@ 

g 

g 

g 

g 

g 

g 

g 

32*3150 

e 

g 

g 

g 

g 

g 

g 

g 

32*3160 

§ 

g 

g 

g 

g 

g 

g 

g 

32*3170 

g 

g 

g 

g 

g 

g 

g 

32*3200 

e 

g 

g 

g 

g 

g 

g 

g 

32*3210 

g 

g 

g 

g 

g 

g 

g 

32*3220 

§ 

g 

g 

g 

g 

g 

g 

g 

32*3230 

§ 

g 

g 

g 

g 

g 

g 

g 

32*3240 

g 

g 

g 

g 

g 

g 

g 

32*3250 

§ 

g 

g 

g 

g 

g 

g 

g 

32*3260 

e 

g 

g 

g 

g 

g 

g 

g 

32*3270 

g 

g 

g 

g 

g 

g 

g 

g 

32  * 3300 

g 

g 

g 

g 

g 

g 

g 

g 

32*3310 

g 

g 

g 

g 

g 

g 

g 

g 

32*3320 

g 

g 

g 

g 

g 

g 

g 

g 

32*3330 

g 

g 

g 

g 

g 

g 

g 

g 

32*3340 

g 

g 

g 

g 

g 

g 

g 

g 

32  * 3350 

g 

g 

g 

g 

g 

g 

g 

g 

32*3360 

g 

g 

g 

g 

g 

g 

g 

g 

32*3370 

g 

g 

g 

g 

g 

g 

g 

g 

^8895‘VA  YJL  system  FOR  AGC;  NEW  PROGRAM  SHEPATIN  BY  EYLES 


DEC  l8t  1966 


PAGE120A 


octal  listing  oF  Paragraph  « i7Af  withi  sanity  bit  in  binary  at  the  right  qF  each  wqRd;  "e"  denotes  unused  fixed  memqRy. 


ALL  VALID  WORDS  ARe  BASIC  INSTRUCTIONS  EXCePt  tHOSe  MARXe^  "I"  ( INTeRPRETIVe  OPERATOR  WORDS)  OR  ''C»  (CONSTANTS), 


33t2000  00006  1 
33.2010  Cl  00001  0 
33.2020  00006  I 
33,2030  0511a  0 


325A5  1 52376  1 

OOOOA  0 37755  1 

01005  0 05717  0 

Cl  OOOOa  0 Cl  OOIAA  0 


OA105  1 Cl  00072  1 

05701  1 Cl  02017  0 

Cl  OOUA  0 O5IO6  0 

05106  0 c:  00275  1 


37753  I 
C;  6606A  0 
Cl  0027A  0 
Cl  00277  0 


5A765  1 
15605  0 
Cl  ri0276  1 
Cl  OOIAA  0 


O6O36  1 
37761  0 
C;  OOUA  0 
05IU  0 


Cl  00006  1 Cl  OOIAA  0 05llA  0 Cl 

30075  0 777A1  0 00006  1 

Cl  20000  0 060A5  0 C*  OOAOO  0 

37761  0 21567  0 32530  0 


Cl  OOlAA  0 0511A  0 Cl  00007  0 Cl 

O57I7  0 Cl  00062  0 I2O5O  1 

30025  0 53567  0 32A67  0 

00006  1 315A1  0 53333  1 


00005  1 

12057  0 

00006  1 
5A003  0 


33 ,20A0 
33,2050 
33,2060 

33,2070 


55552  0 
0511A  0 
O57I7  0 
Cl  3AOOO  0 


32527  0 5A003  0 32A71  1 

Ci  00072  1 C}  00062  0 AOO77  0 

Ci  00062  0 O53O7  0 Cl  3A03A  1 

05717  0 Cl  00132  1 O5IIA  0 


00620  0 
06036  1 
5A001  1 
37761  0 

00006  1 01005  0 O53O7  D 

777A3  1 26077  0 05307  0 

O5IU  0 Cl  00132  1 Cl  00012  1 
Cl  00073  0 Cl  OOUA  0 05073  0 


33,2100  55551  0 
33,2110  Cl  3A02A  0 
33,2120  Cl  3A0i2  0 
33,2130  O53O7  0 


33,21Ao 

33,2150 

33,2160 

33,2170 


Cl  00133  0 
Cl  6606A  0 
11  7762A  1 
Cl  26007  1 


32A66  1 
157A5  0 
Cl  603A7  1 
Cl  01033  0 


05701  1 
00006  1 
I?  777A5  1 
C!  02001  1 


Cl  02265  1 

32537  1 

Cl  26525  1 
I 1 76A35  1 


Cl  6606A  0 
52006  0 
Cl  26375  1 
Cl  02007  1 


35667  0 
32546  1 
Cl  01017  0 
CI  26015  1 


05534  0 
55450  0 

II  53435  0 
Cl  26475  0 


Cl  02152  0 
06103  0 
Cl  01011  0 
Cl  26023  1 


33,2200 

33,2210 

33,2220 

33,2230 


c;  26503 
II  43014 
Cl  02001 
Cl  01473 


0 

Ci  26031 

1 

Cl 

26517 

0 

Cl 

16041 

0 

Cl  26511 

0 

Cl 

16037 

1 

Cl 

26513 

1 

Cl 

02350 

0 

0 

Ci  01674 

0 

CI 

01675 

1 

II 

50375 

0 

Ci  02015 

1 

Cl 

01017 

0 

It 

77752 

1 

C; 

26105 

1 

1 

II  72441 

0 

Cl 

01017 

0 

Cl 

16147 

1 

Cl  26517 

0 

Cl 

02111 

1 

Cl 

02067 

1 

I 1 

52014 

0 

0 

Cl  64367 

1 

II 

43345 

1 

Cl 

02041 

0 

CI  02147 

1 

I 1 

41342 

1 

Cl 

0235O 

0 

I ; 

7O4I5 

0 

33,2240  Cl  01047  0 II  5l025  1 Ci  02375  1 
33,2250  Cl  01476  0 C}  64120  0 II  77775  1 
33,2260  Cl  01063  0 Cl  01653  0 C5  00006  1 
33,2270  32535  0 53073  0 00006  1 


Cl  66247  0 
Cl  02057  1 
li  77776  1 
32533  0 


II  52014  0 
Cl  25656  0 
15605  0 

53075  0 


Cl  01676  1 
Cl  26515  1 
32526  1 
05114  0 


Cl  64120  0 
Cl  nl664  1 
55322  1 
Cl  00004  0 


1 1 52014  0 
II  66214  0 
00006  1 
Cl  00620  0 


33,2300  05307  0 Cl  34o3o  0 05307  0 Cl  34o57  1 
33,2310  32463  1 05701  1 Cl  02321  0 Ci  66064  0 
33,2320  15745  0 42470  1 02550  0 05701  1 
33,2330  CI  00622  1 O6O74  1 O5IO6  0 Cl  00226  1 

33,2340  Cl  00304  0 Cl  00144  0 05l06  0 Cl  00364  0 
33,2350  O57I7  0 C;  01356  0 35670  0 05523  0 
33,2360  Cl  26754  0 04732  0 06054  0 32531  1 
33,2370  32464  0 O57OI  1 Cl  02375  1 Cl  66064  0 


05717  0 Cl  00144  0 05073  0 C|  OOOlO  0 

35226  1 05534  0 Ci  02001  1 C;  70063  0 

Cl  02000  0 Cl  60065  1 05114  0 C:  00011  1 

Cl  00126  1 CI  02566  0 O5106  0 Cl  00344  1 

CI  00324  1 Cl  01356  0 05307  0 Cl  3402^*  0 

Ci  02357  1 Cl  66064  0 15745  0 05224  0 

54OO3  0 32472  1 55523  0 00004  0 

15605  0 O53O7  0 Cl  34030  0 05114  0 


pAGEl20t> 
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octal  listing  Of  paragraph  # 175,  wItR‘  pahity  bit  in  binary  At  tHe  right  oF  each  word;  "e"  denote^  unused  fixed  Memory, 
ALL  valid  words  ARe  BASIc  INSTRUCTIONS  EXCEPT  THOSE  mARxeO  "I"  ( I NTERpRET I VE  OPERATOR  wORDS)  OR  "o"  (CONSTANTS). 


33,2a00 

C! 

00005 

1 

Ci  O4374 

0 

37735 

1 

55335 

1 

00006 

1 

32541 

0 

■;2006 

0 

32473 

0 

33,2a10 

55523 

0 

32527 

0 

54003 

0 

O57I7 

0 

Ci  00144 

0 

00006 

1 

32543 

1 

53073 

0 

33,2420 

32547 

0 

55450 

0 

15745 

0 

00006 

1 

32535 

0 

53073 

0 

05224 

0 

Ci 

34057 

1 

33,2430 

00004 

0 

32465 

1 

05701 

1 

Ci  02436 

1 

Ci  66064 

0 

15605 

0 

05106 

0 

Ci 

00227 

0 

33 1 2 AAo 

Ci 

0012T 

0 

Ci  00144 

0 

0 

0 

0 

Ci  34012 

0 

05717 

0 

C!  0l604 

1 

05i06 

0 

Ci 

00365 

1 

33*2450 

C; 

00325 

0 

Ci  00144 

0 

05106 

0 

Ci  00345 

0 

Ci  00305 

1 

Ci  02570 

1 

06036 

1 

Ci 

00001 

0 

A7753 

1 

15745 

Ci  00310 

1 

1 

01274 

04064 

1 

33,2460 

0 

54765 

A 

0 

U 

Ci  U0454 

X 

Cl  U0764 

X 

c ; 

1 

C i 

i 

33,2470 

c: 

05670 

0 

Ci  00252 

1 

CI 

02032 

1 

Ci  22756 

0 

Ci  04520 

1 

Ci  01267 

0 

Ci 

21231 

1 

Ci 

12223 

1 

33*2500 

Ci 

31330 

0 

Ci  10000 

0 

cl 

00000 

1 

Ci  00000 

1 

C!  00000 

1 

Ci  00000 

1 

Ci 

363l4 

1 

Ci 

31463 

1 

33*2510 

Ci 

11727 

0 

Ci  01217 

1 

C! 

14152 

1 

Ci  00000 

1 

Ci  20000 

0 

Ci  00000 

1 

Ci 

00000 

1 

Ci 

00000 

1 

33*2520 

C! 

00000 

1 

Ci  00000 

1 

CI 

23462 

0 

Ci  33073 

0 

C!  14356 

1 

Ci  15012 

0 

Ci 

02233 

1 

Ci 

02166 

1 

0 9 c /.  Ti 

1 

c * n 1 1 5 Q 

1 

c I 

n 0 A 9 ^ 

n 

n 

Ci  02312 

Q 

Ci  60064 

A 

r * 

n 9 9 

1 

1 

33  *£53U 

X 

V.  1 1 £3 

c • 

X-  f OO^OH 

V 

V 

Ufc  3WH 

X 

i 0 V vH 

33*25Ao 

Ci 

03367 

0 

Ci  60065 

1 

Cl 

02713 

0 

Ci  64064 

1 

Ci  05605 

1 

Ci  04004 

1 

Ci 

66252 

1 

Ci 

60643 

0 

33*2550 

00004 

0 

00006 

1 

2315A 

0 

54001 

1 

37761 

0 

52145 

0 

52071 

0 

37761 

0 

33*2560 

56146 

1 

54072 

0 

00006 

1 

40025 

1 

20145 

0 

30003 

1 

55155 

0 

32527 

0 

33*2570 

54003 

0 

00006 

1 

31567 

1 

20145 

0 

07320 

1 

30072 

1 

54146 

0 

52071 

0 

33*2600 

52145 

0 

00006 

1 

12605 

1 

06000 

1 

Ci  00404 

1 

56001 

0 

00006 

1 

62603 

0 

33*2610 

23155 

1 

22003 

1 

00003 

1 

01154 

0 

O4IO5 

1 

Ci  00031 

0 

0OOO6 

1 

30025 

0 

33,2620 

53666 

1 

00006 

1 

3326A 

1 

21666 

1 

33247 

0 

55662 

0 

00006 

1 

31666 

0 

33,2630 

53567 

0 

00006 

1 

33256 

0 

52006 

0 

06103 

0 

I ; 77624 

1 

Ci 

60347 

1 

I i 

77650 

1 

33  *26A0 

Ci 

67204 

0 

li  77745 

1 

CI 

00045 

0 

li  45261 

0 

Ci  20613 

1 

Ci  27266 

0 

1 i 

43271 

1 

Ci 

27270 

1 

33,2650 

Ci 

27272 

0 

Ci  26264 

0 

CI 

02272 

1 

Ci  25656 

0 

Ci  26515 

1 

Ci  01664 

1 

I i 

66214 

0 

Ci 

01063 

0 

33,2660 

Ci 

01653 

0 

Ci  00004 

0 

II 

77776 

1 

00006 

1 

41664 

0 

53670 

0 

00006 

1 

31666 

0 

33,2670 

21670 

0 

33250 

0 

55662 

0 

00004 

0 

33310 

0 

05701 

1 

Ci 

02710 

0 

Ci 

66064 

0 

33*2700 

35226 

1 

05534 

0 

CI 

O2OOI 

1 

Ci  70063 

0 

0522A 

0 

Ci  26754 

0 

04732 

0 

15605 

0 

05701 

1 

40076 

77743 

lOOOO 

02725 

0 

^ i V 

33304 

0 

X 

c , 

U22U6 

1 

Ci  56003 

1 

1 

i 

u 

33,2720 

35676 

0 

05534 

0 

cl 

O27O6 

1 

Ci  66064 

0 

05745 

1 

33305 

1 

O57OI 

1 

C! 

02747 

1 

33,2730 

Ci 

66064 

0 

00006 

1 

40025 

1 

52062 

1 

00006 

1 

31670 

1 

20062 

1 

00006 

1 

33  *27A0 

43262 

0 

2OO62 

1 

52062 

1 

05757 

1 

Ci  02767 

0 

Ci  66064 

0 

15745 

0 

05106 

0 

33*2750 

Ci 

00266 

0 

Ci  00032 

0 

CI 

11444 

0 

05114 

0 

Ci  00004 

0 

Ci  00764 

1 

05114 

0 

Ci 

00010 

0 

33*2760 

Ci 

00310 

0 

05114 

0 

CI 

00011 

1 

Ci  00620 

0 

O5O73 

0 

Ci  00033 

1 

05745 

1 

04105 

1 

33*2770 

Ci 

00041 

1 

O6O74 

1 

05065 

1 

Ci  00226 

1 

Ci  00126 

1 

33306 

1 

O57OI 

1 

Ci 

03234 

1 

pAGEUOt 


A88954A  yjL  SySTEM  prOR  Agc!  NEw  pROGRAin  SMEpATIN  By  EyLES 


DEc  l3«  1966 


octal  listing  Of-  PARAGRAPH  # 176*  WItHi  ?AKItY  BIT  IN  BINARY  At  THe  RIGHT  OF  EACH  WORD;  DeNOtES  UNUSeD  FUeD 
ALL  valid  words  ARe  BASIc  INSTRUCTIONS  EXCEPT  THOSE  mARkeO  "I"  ( I NTeRrRET I VE  OPERATOR  wORDS)  OR  "c"  (CONSTANTS). 


33,3000 

33,3010 

33,3020 

33,3030 

33,30A0 

33,3050 

33,3060 

33,3070 

33,3i00 

33,3110 

33,3120 

33,3130 

33,3iAo 

33,3150 

33,3160 

33,3170 

33,3200 

33,3210 

33,3220 

33,3230 

33,32^0 

33,3250 

33,3260 

33,3270 

33,3300 

33,3310 

33,3320 

33,3330 


Cl  6606A  0 
53567  0 
32526  1 
A3307  1 

OOOOA  0 
Cl  66066  1 
O53O7  0 
Cl  Oa37A  0 

l57A5  0 
15605  0 

cr  02350  0 
C;  03133  0 

32535  0 
05106  0 
05106  0 

057I7  0 

C!  01752  0 
C;  01033  0 
I I 56205  0 
li  77656  1 

05106  0 
C;  67101  0 
Cl  00620  0 
C!  21315  0 

Cl  2TOA0  0 
Cl  21A50  0 
§ 

§ 


35667  “ 
A33O7  1 
55322  I 

02550  0 

O57OI  1 
00006  1 
Cl  34030  0 

37735  I 

I I 77624  1 

I:  45345  1 

II  51025  1 
Cl  66061  0 

53073  0 

c:  00127  0 

Cl  00345  0 

Cl  13560  0 

06036  1 
1 1 77635  1 
Cl  27300  I 
Cl  02272  I 

Cl  00364  0 
Ci  03204  I 
Cl  00000  I 
Cl  00000  1 

Cl  00144  0 
Cj  27340  0 


Cl 


05534  0 
54001  1 
00006  1 
00004  0 

03045  0 
33252  1 
32472  1 

55335  1 


C5  67111  1 
Cl  00045  0 

C*  27260  0 
15605  0 

OOOOA  0 
Cl  00227  0 
C«  00305  1 
05065  1 

Cl  00001  0 
II  43325  1 
II  74366  1 
I I 77650  1 

Cl  0032^  1 
Cl  66064  0 

Cl  07020  1 
Cl  O5O5O  1 

Cl  00620  0 
Cl  03312  1 
@ 


Ci  03006  1 
47761  1 

32535  0 
05701  1 

Cl  66062  0 

53073  0 

55523  0 
0OOO6  1 

II  77775  1 

ci  27274  0 

Cl  OOO52  0 
06O71  1 

33303  1 
C|  01750  1 
Cl  02570  1 
Cl  00033  1 

15745  0 
C}  02355  0 
1 1 77752  1 
Cl  02262  0 

Ci  01356  0 
C|  03137  1 
Ci  00001  0 
Cl  00000  1 

Cl  00764  1 
C|  03313  0 


Cl  66064  0 
21567  0 
53O73  0 
C:  02000  0 

15605  0 
15745  0 

057I7  0 

32541  0 

C!  02272  1 

I I 56205  0 

II  77776  1 

05307  0 

05701  1 
O5IO6  0 
05307  0 
CI  00267  I 

II  47375  0 
C|  01047  0 
Cl  02326  1 
05106  0 

05307  0 
Cl  66064  0 
Cl  35414  0 
Cl  00000  1 

CI  01750  1 
CkSM  61737  0 
e 
e 


15745  0 
00006  1 
00006  1 
Cl  60065  1 

33302  0 
06054  0 

CI  00372  I 
52006  0 

Cl  02233  1 

ci  27276  1 

00004  0 
Cl  34057  1 

CI  03150  0 
Cl  00365  1 

Cl  34012  0 

05141  0 

CI  01017  0 
I I 65205  0 
I!  77651  0 
Cl  00344  1 

Cl  34024  0 
Cl  02301  1 
CI  00000  1 
Cl  00000  1 

Cl  02114  1 


00006  1 
32537  1 
33254  1 
43302  1 

O57OI  1 
05717  0 

05114  0 

32473  0 

I!  77624  1 
Ci  02535  0 

3I75O  1 
15745  0 

Cl  66064  0 
Cl  00325  0 
05073  0 

CI  00001  0 

Cl  01033  0 
Ci  O1047  0 
CI  01017  0 
Cl  00304  0 

15745  0 
Ci  16004  1 

Cl  00302  0 

Cl  03641  1 
CI  03720  1 


33,3340  § @ @ S § 

33,3350  § @ @ @ @ @ e 

33,3360  @ g e e @ @ e 

33,3370  e § e @ e @ @ 


Memory, 


31670  1 
52006  0 

53075  0 
02550  0 

I 03055  I 
I 00062  0 

I 00005  I 

55523  0 

I 60643  U 
. 02350  0 

O57OI  1 
00006  1 

15605  0 
I 00144  0 
1 00032  0 
I 00013  0 

I 63256  0 

I 02355  0 
I 02334  1 
I 00144  0 

I 66641  1 

; 00000  1 
I 22653  I 

1 11217  0 

I 05670  0 

e 

@ 

e 

e 

g 

e 

§ 


PAGeUO/ 


A8895AA  YJL  SYSTEM  fOR  AGC:  NeW  PRqGRAM  S^ePatIN  BY  E^UeS  DeC  u,  1966 

oCTal  listing  of  Paragraph  # 200f  withi  parity  bit  in  binary  at  the  right  qF  each  wqRd;  "S"  denotes  unused  fixed  memory. 


ALL  VALID  WORDS  ARe  BASIC  INStRUCjIDNS  E^'-ePt  tHOSe  MARKe^  '' I h ( INTeRPRETIVe  OPERATOR  WORDS)  oR  "C«  (CONSTANTS), 


3A.2000 

12001 

0 

06103 

0 

I i 

7763^ 

0 

Cl 

70457 

0 

Cl 

01533 

0 

1 1 

45164 

0 

CI 

01535 

0 

Cl  70464 

0 

34,2010 

l! 

61375 

1 

Ci 

01656 

0 

Ci 

01536 

0 

I i 

41456 

0 

1 1 

53435 

0 

Cl 

01664 

1 

1 1 

57400 

1 

Ci  7OO42 

0 

1 

72441 

77726 

7O6O3 

75160 

Cl  01535 

n 

34 ,2020 

C i 

25624 

0 

c » 

01664 

1 • 

0 

1 s 

1 

I 1 

77624 

1 

L • 

0 

1 1 

1 

34,2030 

c: 

01557 

1 

I : 

77624 

1 

Ci 

73442 

1 

1 1 

45160 

1 

Cl 

00000 

1 

Cl 

70727 

1 

1 1 

77634 

0 

Ci  33573 

0 

34,20^0  . 

C! 

35632 

0 

Ci 

70070 

1 

li 

50375 

0 

Cl 

01664 

1 

1 1 

72240 

1 

Cl 

70051 

1 

CI 

01533 

0 

C:  35632 

0 

34,2050 

Ci 

7OO7O 

1 

I5 

A7375 

0 

Ci 

015A4 

0 

Ci 

30414 

0 

I ! 

47256 

0 

Cl 

01664 

1 

l! 

40056 

0 

Cl  70064 

1 

34,2060 

c: 

15624 

0 

Ci 

30414 

0 

li 

77650 

1 

Cl 

70024 

0 

1 1 

52175 

0 

Cl 

30414 

0 

Cl 

7OO6O 

0 

06103 

0 

34,2070 

1 : 

-7763A 

0 

c; 

70457 

0 

ci 

01533 

0 

1 1 

51535 

0 

Cl 

01535 

0 

1 1 

5IO25 

1 

Cl 

30444 

0 

Ci  7IOO7 

0 

34,2100 

I ; 

72364 

0 

Ci 

01535 

0 

Ci 

01533 

0 

1 1 

77624 

1 

Cl 

70464 

0 

II 

5i535 

0 

Cl 

01634 

1 

l!  51025 

1 

34,2110 

Ci 

30444 

0 

Ci 

71007 

0 

I i 

7236A 

0 

C| 

01557 

1 

C| 

01632 

1 

1 1 

77624 

1 

Ci 

70464 

0 

II  45160 

1 

34,2120 

Ci 

01535 

0 

Ci 

73472 

1 

I ! 

77775 

1 

1 1 

77626 

0 

C! 

52161 

0 

1 1 

77626 

0 

Cl 

52167 

0 

I:  77626 

0 

34,2130 

C! 

76175 

0 

i: 

75160 

1 

Ci 

01601 

1 

Cl 

01557 

1 

1 1 

77624 

1 

CI 

73442 

1 

1 1 

45575 

1 

Ci  52203 

1 

34,21^0 

I : 

77626 

0 

Ci 

52211 

1 

li 

77626 

0 

Cl 

76217 

1 

1 1 

45001 

1 

CI 

00023 

0 

Ci 

73501 

1 

li  45575 

1 

34,2150 

Ci 

52161 

0 

I: 

77626 

0 

Ci 

52167 

0 

li 

77626 

0 

C| 

76175 

0 

II 

45345 

1 

Ci 

01604 

1 

Ci  01562 

1 

34,2160 

l: 

A5325 

1 

Ci 

01564 

1 

Ci 

01606 

0 

1 1 

45325 

1 

Cl 

01614 

0 

Cl 

01572 

0 

1 1 

77666 

1 

C:  01635 

0 

34,2170 

I : 

^33A5 

1 

c: 

01560 

0 

Ci 

01600 

0 

II 

43225 

0 

Ci 

30426 

1 

CI 

01570 

1 

Ci 

01645 

1 

II  77726 

1 

34,2200 

Ci 

016A3 

1 

I i 

51025 

1 

Cl 

30410 

1 

C| 

70214 

1 

II 

77751 

1 

Ci 

01632 

1 

C| 

00767 

1 

II  77751 

1 

34,2210 

Ci 

30416 

1 

Ci 

00775 

1 

Ci 

34772 

1 

Cl 

7O777 

1 

1 1 

45345 

1 

CI 

01643 

1 

CI 

30412 

0 

I:  77244 

0 

34,2220 

Ci 

70226 

0 

c: 

01635 

0 

li 

77656 

1 

Cl 

01624 

0 

1 1 

77650 

1 

CI 

71024 

1 

1 1 

53375 

0 

C:  01560 

0 

34,2230 

Ci 

01602 

1 

I ; 

77762 

1 

Ci 

25602 

1 

Ci 

01566 

0 

1 1 

74455 

0 

CI 

01610 

1 

Ci 

25610 

1 

Ci  01574 

0 

34,22^0 

I: 

74455 

0 

Ci 

O1616 

1 

Ci 

O1616 

1 

li 

70545 

1 

Cl 

01645 

1 

l! 

45325 

1 

Cl 

30414 

0 

Ci  01645 

1 

34,2250 

1 i 

65204 

1 

C! 

70445 

0 

Ci 

01622 

0 

li 

56225 

1 

Cl 

00001 

0 

Ci 

00003 

1 

II 

65366 

1 

Ci  01612 

0 

34,2260 

I ! 

56225 

1 

Ci 

00001 

0 

Ci 

00003 

1 

1 1 

65366 

1 

Ci 

01602 

1 

1 1 

56225 

1 

CI 

00001 

0 

Cl  00003 

1 

34,2270 

I ; 

55566 

1 

i; 

77656 

1 

ci 

0162A 

0 

I ! 

45345 

1 

Cl 

01624 

0 

Ci 

01626 

1 

II 

71240 

1 

Ci  70306 

0 

34,2300 

Ci 

01624 

0 

II 

50025 

0 

Ci 

01630 

0 

Ci 

70363 

0 

1 1 

77650 

1 

CI 

70337 

1 

II 

45345 

1 

Cl  01626 

1 

34,2310 

Ci 

01630 

0 

l! 

77640 

0 

Cl 

70363 

0 

l! 

51145 

0 

C| 

01637 

1 

Cl 

70321 

0 

II 

57575 

1 

C;  01624 

0 

34,2320 

Ci 

01624 

0 

I I 

51145 

0 

Cl 

01604 

1 

Cl 

70327 

0 

1 1 

57545 

1 

CI 

01624 

0 

CI 

01624 

0 

I:  51145 

0 

34,2330 

Ci 

Ol6lA 

0 

Cl 

71024 

1 

II 

57545 

1 

Ci 

01630 

0 

Cl 

01630 

0 

1 1 

77650 

1 

Ci 

71024 

1 

l!  51145 

0 

34,234o 

Ci 

01635 

0 

Ci 

70345 

1 

1 1 

57575 

1 

Cl 

01624 

0 

Cl 

01624 

0 

1 1 

51145 

0 

Cl 

01604 

1 

Ci  70353 

0 

34,2350 

l! 

575A5 

1 

C| 

01626 

1 

Cl 

01626 

1 

I ! 

51145 

0 

C| 

01606 

0 

C| 

71024 

1 

II 

57545 

1 

C;  01630 

0 

34,2360 

c; 

01630 

0 

1 1 

77650 

1 

ci 

71024 

1 

I 1 

51145 

0 

Cl 

01641 

0 

Cl 

70371 

0 

1 1 

57575 

1 

Cl  01624 

0 

34,2370 

c: 

01624 

0 

II 

51145 

0 

Ci 

01606 

0 

Ci 

70377 

0 

1 1 

57545 

1 

CI 

01624 

0 

Ci 

01624 

0 

II  51145 

0 

pAGElZOtt 


A8895AA  yjL  SySlEw  pOR  AGC!  NEW  pROGRAvi  S^EpATIN  By  EyLES 


DEC  13*  1966 


octal  listing  OE  paragraph  # 201.  WITH'  3AHITY  BIT  IN  BINARY  AT  THe  RIGHT  OF  EACH  WORD;  "e"  DENOTES  UNUSED  FIXeD 


3A,2400 

3A.2A10 

3A.2A20 

3A,2A30 

3A.2AAO 

3A,2A50 

3A.2460 

3a,2470 

3A  .2500 
3A.2510 
3A.2520 
34,2530 

34*2540 

34,2550 

34,2560 

34,2570 


C:  01614  0 
C:  13563  0 

c:  coooo  1 

c;  20443  0 

Ci  36323  0 
10000  0 
54146  0 
C:  00010  0 

c:  00013  0 
I;  413450 
I;  72421  0 
CS  00011  1 

C;  10007  I 
C;  00001  0 

li  77745  1 
c:  67760  1 


c;  71024  I 

c:  17070  0 
c;  00000  i 
c;  33555  1 

C!  17773  I 
37761  0 
00006  I 

Is  77601  0 

I;  Ai546  0 
C;  OOOO5  I 
C;  OOOI5  0 
I;  72405  0 

IS  77745  I 

I;  72476  I 
Is  72405  0 
Is  777A5  I 


I» 

CS 

CS 


;PT  those 

MARice^  "I" 

57545 

1 

Cs 

01626 

34343 

1 

cs 

20000 

00000 

1 

cs 

20000 

01106 

1 

cs 

67777 

00057 

0 

cs 

12525 

16535 

0 

12454 

30033 

1 

16545 

00001 

0 

I s 

47133 

7i300 

1 

cs 

70473 

00001 

0 

Is 

41325 

10003 

0 

I s 

41345 

00001 

0 

1 s 

72415 

Ci  00013  0 
CS  10013  1 
Cl  00011  1 
IS  72405  0 


IS  72^05  0 
li  41345  0 
I S 41325  0 
C:  00011  1 


CS  00000 
CS  00000 
CS  77777 

CS  12525 
00006 
Is  66370 
CS  00013 

CS  00007  0 
Cj  OOOO7  0 

CS  00003  1 

CS  00017  1 
CS  00003  1 

cj  00005  I 
CS  00007  0 

I : 41325  0 


1 

1 s 

1 

cs 

1 

c s 

0 

cs 

0 

1 

0 

0 

Cs 

C: 

77650  1 
00000  1 
10000  0 
O4OOO  0 


00006  1 

47735  0 


I S 72^05  0 

Cj  00011  1 
CS  OOOO5  1 
CS  10005  0 

CS  10011  0 
Cs  00013  0 
CS  00001  0 
CS  00007  0 


cs  71024  1 
CS  00000  1 
CS  00000  1 

cs  00000  1 

37735  1 
16533  0 
C:  OOO5I  0 
Cs  O0013  0 

CS  000l3  0 

I;  72405  0 

IS  41325  0 
Is  777A5  1 

I ; 41345  0 
Is  72476  I 
IS  72415  1 
Cs  00003  1 


34,2600 

34,2610 

34,2620 

34,2630 

34*2640 

34,2650 

34,2660 

34,2670 


is  77626  0 
Cj  30414  0 
IS  41152  1 
IS  41152  1 

Is  41152  1 
Is  41325  0 
Is  62421  1 
IS  65352  0 


Cs  67756  I 
C:  70445  0 
CS  70445  0 

CS  70445  0 

CS  70445  0 
C;  01630  0 
I 5 77604  0 


IS  77616  0 

IS  77725  1 

Cl  15560  0 

Cl  15570  1 

Cl  01600  0 
CS  00001  0 

Cl  70445  0 

I I 41405  0 


Is  Ai4oi  1 
Cs  01624  0 
Cs  01626  1 
CS  01630  0 

Is  A1345  0 
Is  A3206  1 
Cs  15562  1 
CS  00001  0 


Cs  00001  0 
I S 41316  0 
IS  41316  0 
1 S 41316  0 

CS  O162A  0 

C;  00007  0 

CS  01624  0 
1 S 62415  0 


IS  65356  1 
C;  00005  1 

CS  00005  1 
CS  00005  1 

CS  01626  1 
Is  41112  0 
IS  41205  0 

CS  00007  0 


Is  4i546  0 
Is  43312  0 
IS  43312  0 
IS  43312  0 

Is  72A05  0 
Cs  70445  0 
Cs  01630  0 

I S 77604  0 


34*2700  CS  15564  1 
34,2710  Cs  00005  1 
34,2720  Cs  7O445  0 
34,2730  Cs  OOOO7  0 


IS  52^21  1 II  77604  0 
Is  65352  0 Cl  01624  0 
CS  15576  I II  62421  1 
IS  7IAO6  0 IS  41152  1 


Cs  70445  0 CS  15574  0 

Is  A1405  0 Cs  00001  0 

1 S 77604  0 CS  70445  0 

Cs  7O445  0 CS  00051  0 


CS  01626  1 Is  A1205  0 C 
IS  62415  0 Cs  00007  0 I 
CS  01572  0 IS  77616  0 I 
IS  57543  1 Cs  00015  0 I 


34 , 27Ao 
34,2750 
34,2760 
34,2770 


cs  00051 

0 

is  51123 

0 

Cl 

00001 

0 

Cs  70755 

1 

is 

57545 

1 

IS 

43244  1 

Cs  70752 

0 

c 

Is  77650 

1 

Cs  70754 

0 

1 1 

77625 

0 

Cs  30414 

0 

is 

77606 

1 

I S 

57543  1 

Cs  00013 

0 

I 

Cs  00051 

0 

IS  51123 

0 

Cl 

00011 

1 

CS  7O775 

0 

I S 

57545 

1 

I 1 

43244  1 

CS  70772 

1 

c 

Is  77650 

1 

Cs  70776 

0 

1 1 

52025 

1 

Cs  30414 

0 

Cs 

70776 

0 

is 

777A5  1 

is  43466 

1 

I 

memory. 


S 00013  0 
5 00000  1 
S 15666  0 
S 00216  1 

52145  0 

30034  0 
• 00001  0 
S 65356  I 

S lOOOl  1 

; 00003  1 
: 00007  0 
: 00011  I 

S 000l3  0 
5 10015  I 
5 77626  0 
S 72A25  1 

: A1021  1 

: 00003  1 
s 00003  1 
: 00003  I 

5 00005  1 
s 15566  0 

: 00005  I 
s 7O445  0 

: 01630  0 

• 77604  0 
S 675A3  1 

: 67A7I  i 

: 30414  0 
S 67A71  I 

• 30414  0 
: 77776  1 


3-^,3000 

34f3010 

3<V,3020 

34,3030 

34 , 30^0 

34,3050 

34,3060 

34,3070 

3'^  *3100 
34,3110 
34,3120 
34,3130 

34,31^0 

34,3150 

34,3160 

34,3170 

34,3200 

34,3210 

34,3220 

34,3230 

34 , 32^0 
34,3250 
34,3260 
34,3270 

34,3300 

34,3310 

34,3320 

34,3330 

34,33^0 

34,3350 

34,3360 

34,3370 


37754  0 
3775^  0 
C:  02000  0 
c:  71^55  0 


15635  0 
71114  0 
01645  1 
15616  1 


I i 77656  1 
C;  30420  1 
I;  77635  1 
i;  50201  1 

I!  41552  0 
Ci  30432  1 
C;  00007  0 
C;  00005  1 

Ci  00013  0 

li  70525  1 
Ci  7O445  0 
Ci  01612  0 

I;  75425  0 
C;  00023  0 
Ci  3O426  1 
I i 57415  0 

li  65246  1 
li  71244  0 
l!  52100  1 
Ci  71356  1 


i; 


00004  0 

00004  0 
36301  0 
41345  0 


I i 63525  0 Ci  01624  0 

li  65276  1 Ci  01630  0 
Ci  01602  1 Ci  15602  1 
li  50025  0 ' Ci  30440  I 


Ci 
I i 
I i 
Ci 


01647  0 

50025  0 

71244  0 
01616  ^ 


Ci  25560  0 
Ci  71157  1 
Ci  30414  0 
Ci  00001  0 

li  72516  0 
li  62405  1 
li  63406  0 
I i 41552  0 

li  41366  1 
C;  00027  I 
Ci  01610  1 
I i 77766  0 

Ci  01612  0 
Ci  00021  1 
li  4l366  ^ 

Ci  00025  0 

Ci  00031  0 
Ci  71363  1 
Ci  71307  0 
li  52145  0 


1 SHEpATIN  BY 
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O57OI 

1 

Ci 

03715 

1 

Ci  70063 

0 

00003 

1 

05605 

1 

l!  77776 

1 

O57OI 

1 

Ci 

03017 

1 

Ci  70063 

0 

00003 

1 

05605 

1 

06045 

0 

O5243 

26726 

Ci  01624 

1 

L 1 

u 

I ! 5 1545 

1 

0 

It  5IO25 

1 

Cl  30442 

0 

C! 

01624 

0 

Ci 

01630 

0 

li  65352 

0 

Ci  01624 

0 

I i 72405 

0 

Ci  01626 

1 

IS 

55552 

0 

Ci 

01602 

1 

li  53276 

1 

Ci  30414 

0 

Ci  15610 

1 

C:  01626 

1 

1 ! 

55525 

0 

Ci 

30416 

1 

Ci  25616 

1 

Ci  01544 

0 

Ci  01635 

0 

li  76521 

0 

Ci 

01606 

0 

1 ! 

65316 

0 

Ci  01604 

1 

I!  43316 

1 

It  77766 

0 

Ci  01647 

0 

Cl 

71455 

0 

1 i 

51145 

0 

Ci  01606 

0 

Ci  71104 

1 

It  57575 

1 

Ci  01635 

0 

I i 

77676 

0 

Ci 

01647 

0 

li  43345 

1 

Ci  01602 

1 

Ci  01647 

0 

l!  51400 

1 

Ci 

30430 

0 

Ci 

71455 

0 

li  70545 

1 

Ci  01604 

1 

li  44271 

0 

C;  01647 

0 

cl 

71455 

0 

Ci 

01574 

0 

li  65325 

0 

Ci  01566 

0 

Ci  01560 

0 

1 : 76466 

1 

li 

50015 

0 

Ci 

30442 

0 

Ci  71152 

1 

li  47375 

0 

Ci  30414 

0 

Ci  01616 

1 

cl 

01616 

1 

li 

53455 

0 

Ci  304)4 

0 

li  77650 

1 

Ci  71166 

0 

I:  52175 

0 

II 

47375 

0 

Ci 

30414 

0 

Ci  01616 

1 

li  40056 

0 

C{  71147 

0 

C:  01560 

0 

I i 

47315 

0 

Ci 

0 1 6 16 

1 

Ci  01560 

0 

li  53455 

0 

It  77626 

0 

C:  76211 

1 

Ci 

01635 

0 

I ! 

41552 

0 

li  72516 

0 

li  50315 

0 

Ci  01560 

0 

Ci  01635 

0 

I 1 

45325 

1 

Ci 

30436 

0 

Ci  00007 

0 

li  63406 

0 

li  4132S 

0 

Ci  01566 

0 

Ci 

00001 

0 

I i 

63525 

0 

Ci  01566 

0 

li  44352 

0 

li  43225 

0 

C;  00003 

1 

II 

41325 

0 

Ci 

01566 

0 

Ci  30432 

1 

li  41421 

0 

Ci  00001 

0 

I:  77605 

1 

II 

65316 

0 

Ci 

00011 

1 

li  41405 

0 

Ci  00015 

0 

It  45221 

1 

Ci  00025 

0 

Ci 

00023 

0 

I i 

70525 

1 

Ci  00017 

1 

li  72525 

0 

Ci  00025 

0 

li  77615 

0 

1 1 

41421 

0 

Ci 

00025 

0 

li  56215 

1 

C;  00031 

0 

Ci  00033 

1 

1 ; 60404 

1 

n 

77766 

0 

Ci 

15614 

0 

C;  00031 

0 

li  56221 

0 

I t 60404 

1 

Ci  70445 

0 

Cl 

15616 

1 

Ci 

30426 

1 

li  75425 

0 

Ci  01610 

1 

Ci  15620 

1 

Ci  30426 

1 

Ci 

01622 

0 

I i 

66370 

0 

Ci  00004 

0 

Ci  00051 

0 

Cl  00002 

0 

l!  71201 

1 

1 1 

65203 

0 

Ci 

01620 

1 

C{  01566 

0 

li  40716 

0 

Ci  01614 

0 

I;  44312 

1 

ci 

30434 

1 

I; 

40725 

0 

Ci  00005 

1 

Ci  01624 

0 

It  65246 

1 

Cl  00023 

0 

n 

45325 

1 

Ci 

00023 

0 

Ci  00025 

0 

li  41476 

1 

It  45246 

0 

C:  00027 

1 

I i 

45246 

0 

Ci 

00027 

1 

I!  45246 

0 

li  712^^ 

0 

Ci  71371 

1 

Cl  00031 

0 

Ci 

00005 

1 

li 

70640 

1 

Ci  71360 

1 

Ci  01620 

1 

It  77676 

0 

Cl  05620 

0 

ci 

71374 

1 

1 i 

5II45 

0 

Ci  00005 

1 

Ci  71360 

1 

li  52143 

0 

Cl  01620 

1 

Ci 

00033 

1 

Ci 

71350 

1 

li  77201 

1 

Ci  00001 

0 

Ci  nl624 

0 

li  63241 

0 
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34 ♦ 3400 

Ci 

01560 

0 

Ci 

34f34l0 

Cl 

01620 

1 

Cl 

34  f 3420 

C I 

01622 

0 

I I 

34,3430 

Cl 

01560 

0 

I ! 

0162a  0 I ! AlAAl  0 C;  01566 
00001  0 i;  5U15  0 IJ  A1325 
5U15  0 I*  77625  0 I;  TAOaO 
7A323  0 Ci  0l6lA  0 C:  01566 


0 i:  A1370  0 c:  00000 

0 cs  00003  1 c;  01616 

0 CI  71A26  1 CI  00002 

0 II  77655  1 I I 77656 


1 

Ci 

0l6lA 

0 

I : 

A1325 

0 

1 

1 i 

a1325 

0 

Ci 

00001 

0 

0 

I i 

7A3A3 

0 

C: 

01620 

1 

1 

Ci 

0162A 

0 

I : 

635A5 

0 

3 A * 3AAo 
3A,3A50 
3 A , 3 A60 
3a,3A70 


CI  OI62A 

0 

I i 

AA352 

0 

CI 

30AlA 

0 

I;  63525 

0 

Cl 

01566 

0 

l;  56221 

0 

Cl  30A26 

1 

li  755A2 

II  72536 

1 

Cl 

016A3 

1 

1 1 

7761A 

1 

Ci  01221 

1 

Cl 

71A57 

1 

II  7761A 

1 

Ci  nl06l 

1 

I i 7O7AO 

CI  01652 

1 

Ci 

31503 

0 

1 1 

A5OO2 

1 

Cl  7O6O3 

0 

1 1 

7A3A3 

0 

Cl  31503 

0 

CI  0162A 

0 

C:  15635 

CI  016A3 

1 

I i 

55605 

1 

d 

31513 

1 

Ci  31503 

0 

1 1 

77661 

0 

C i 20606 

0 

Ci  016A5 

1 

I:  7761A 

3A»3500  Cl  01022  0 Cl  7i5l5  0 

3A,3510  Ci  16161  O'  Ci  3O7O7  1 

3A,3520  li  7762a  1 Ci  73AA2  1 

3a,3530  li  A5160  1 Ci  01535  0 


CI  0055A  0 Ci  02660  0 Ci  O266O  0 

CI  00003  1 Ci  OAOOO  0 06103  0 

II  A5575  1 Ci  52225  0 li  77626  0 

Cl  70727  1 li  7763a  0 Ci  33573  0 


CI  13301  1 

I I 75160  1 

CI 

07070 

01535 

1 

Cl  3A3AA 
C-  01557 

c i 

0 

Cl  52233  1 

li 

77626 

0 

Ci  762A1 

Ci  01602  1 

1 i 

77A1A 

0 

C:  01202 

3A,35Ao  Ci  71620  0 
3A,3550  00006  1 
3A,3560  51653  0 
3A,3570  00006  1 


3775A  0 
73617  0 
31601  1 
A0025  I 


55653  1 
lOOOO  0 
51653  0 
53606  1 


51653  0 
67755  1 
57532  1 
00006  1 


31532  1 
13556  0 
51653  0 
316A5  1 


00006  1 
AOOOO  0 
5A766  1 
21606  1 


51653  0 
51653  0 
11653  1 
11605  1 


21601  0 
5A77I  1 

135A2  0 
136A7  0 


3a,3600  13602  1 136A5  I 
3A.3610  636A5  0 OOOOa  0 
3A,3620  li  77776  1 00006  I 
3A,3630  5A77A  1 31636  0 

3a»36A0  06027  1 Ci  02000  0 
3A,3650  6160A  1 10000  0 
3A,3660  Ci  03666  1 Ci  70063  0 
3A,3670  Cl  0351A  1 Cl  70063  0 

3Ai3700  31633  0 5A770  0 
3A,37lO  31631  1 5A766  1 
3a*3720  052A3  1 Cl  26731  0 
3A,3730  00006  1 2O766  I 


11606  1 136A7  0 13606  0 
05701  1 Ci  03673  0 Cl  70063  0 
30025  0 216A5  0 00006  1 
5A775  0 316A0  1 5A776  0 

135A1  0 Cl  00000  1 CI  OOIAA  0 
67755  1 13656  0 67737  0 
00003  1 336AA  1 2760A  0 
057A5  1 37761  0 5A773  0 

31632  1 5A767  0 30076  0 
37761  0 5A77A  1 5A771  1 
30076  0 777A2  0 00006  1 
00006  1 637A3  1 5A001  1 


AOOOO  0 636AA  1 00006  1 
00003  1 15605  0 Ci  031A6  I 
A36AA  0 216A5  0 3l63A  1 
30025  0 636AA  1 5760A  1 

37755  1 13611  0 A0025  1 
AOOOO  0 OOOOA  0 05701  1 
15605  0 35673  0 0553A  0 
5A776  0 5A772  1 5A775  0 

777A0  1 00006  1 13722  1 
060A5  0 d 02000  0 36301  0 
13727  1 13712  1 31631  1 
33762  1 5A77A  1 A3763  1 


3A,37A0 

3A,3750 

3A.3760 

3A»3770 


67755  1 5A771  1 

5A771  1 30001  0 

C!  70063  0 O57A5  I 

@ @ 


13751  0 AOOOO  0 

00006  1 7376A  0 

d 01320  1 Ci  00022  1 

e § 


5A001  1 A3762  0 

00006  1 63710  1 

C!  21616  0 Ci  03765  0 
@ § 


5A77A  1 33763  0 

05701  1 Ci  03710  1 

Ci  03766  0 CKSM  72063  I 

@ e 
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octal  listins  of  Paragraph  # 2oa*  withi  ?a*<Ity  bit  in  binary  at  tHl  right  of  each  word?  "e"  denotes  unused  fixeD  memory. 

ALL  VALID  WORDS  ARE  BASIC  INSTRUCTIONS  E^^ePt  tHOSE  MARKeO  "I"  ( INTeRPRETI VE  OPeRAtOR  WORDS)  OR  nC  (CONSTANTS), 


35.2000 

0000a 

0 

52071 

0 

35226 

1 

05523 

0 

Ci 

02011 

0 

CI  72060 

1 

52071 

0 

00003 

1 

0522a 

Cl 

13A03 

15605 

36.2010 

52006 

0 

1 

0 

0A1A7 

1 

Cj  OOOyt) 

0 

00004 

0 

30025 

0 

35,2020 

557A5 

1 

37761 

0 

5A037 

1 

5A0A0 

1 

5A0A1 

0 

5AA0A 

0 

54A06 

1 

54410 

0 

35.2030 

00003 

1 

03027 

1 

33351 

0 

55777 

0 

33352 

0 

0522A 

0 

Ci  51240 

0 

06103 

0 

35.20A0 

I ! 

77775 

1 

C; 

333AA 

1 

Cl 

02601 

1 

li  77776 

1 

117A2 

0 

020A7 

0 

02742 

1 

31527 

0 

35,2050 

557A6 

1 

37755 

1 

5A765 

1 

OAIO5 

1 

Cl 

00005 

1 

0522A 

0 

Ci  25602 

1 

03014 

1 

OOOOA 

Q 

557A5 

3166A 

557I6 

1 

n 

35 ,2060 

0 

30025 

1 

1 

i 

0 A 1 A7 

1 

C ! OUl 15 

1 

0207 1 

V 

35,2070 

OOOOa 

0 

31716 

0 

5566A 

0 

10000 

0 

30000 

1 

55665 

1 

AOOOO 

0 

55664 

0 

35.2100 

30037 

-0 

5AA03 

1 

300A0 

0 

5AAO5 

1 

300A1 

1 

5AA07 

0 

3337O 

0 

0A234 

0 

35.2110 

C: 

00005 

1 

00003 

1 

37761 

0 

5A037 

1 

5AOAO 

1 

5A0A1 

0 

04147 

1 

Cl  00235 

0 

35,2120 

00003 

1 

377A0 

0 

O553A 

0 

Ci  02126 

0 

Cl 

72065 

1 

057A5 

1 

O3OAO 

0 

OAI47 

1 

n n n n *5 

1 

1 1 9 

n 

1 

1 

33  t c 1 30 

C i 

002 1 5 

1 

UUUU3 

i 1 (HC 

U 

02135 

1 

U21A1 

I 

0522A 

0 

Cl  25220 

0 

U2  14 1 

i 

35.21^0 

03061 

0 

03^21 

0 

06103 

0 

li  777A5 

1 

Cl 

333^2 

1 

Ci  00051 

0 

I!  53i35 

0 

Cl  02Y43 

0 

35,2150 

C; 

?2153 

0 

li 

77650 

1 

Cl 

72170 

1 

li  50135 

0 

Ci 

02666 

0 

C;  72170 

1 

II  72174 

0 

Cj  00014 

1 

35,2160 

c: 

02600 

0 

I i 

621A3 

0 

Cl 

3333A 

0 

Ci  77775 

1 

Ci 

12701 

1 

li  6610A 

1 

Ci  72161 

1 

C:  02600 

0 

35,2170 

I ; 

61375 

1 

Ci 

OOAOa 

1 

cl 

02750 

1 

II  77772 

0 

I i 

575A5 

1 

Ci  00150 

0 

Cl  16657 

1 

Cl  00152 

1 

35.2200 

c: 

02663 

0 

1 i 

76001 

1 

Cl 

00001 

0 

Cl  00010 

0 

I ! 

53135 

0 

Cl  027A3 

0 

Ci  72211 

0 

I:  77650 

1 

35,2210 

Ci 

72517 

1 

II 

A13A3 

0 

Ci 

02667 

i 

Ci  33355 

1 

1 1 

A2661 

0 

Cl  21212 

0 

Cl  02715 

0 

I:  64623 

1 

35.2220 

c: 

02635 

0 

Ci 

02655 

0 

n 

A1223 

1 

Ci  02627 

0 

Cl 

33357 

0 

11  77732 

1 

1 1 45415 

0 

Cl  71062 

0 

35,2230 

Ci 

O67I7 

0 

I i 

777A3 

1 

cl 

02655 

0 

Cl  06627 

1 

I i 

777A5 

1 

Ci  333A0 

0 

Ci  06635 

1 

II  77100 

0 

35.22^0 

Ci 

V22II 

0 

Ci 

OOOOA 

0 

n 

567A3 

1 

Ci  75170 

0 

Ci 

7510A 

0 

Ci  12507 

0 

II  77104 

1 

Ci  722^*2 

0 

35,2250 

Ci 

00010 

0 

I i 

661A0 

1 

Cl 

02601 

1 

C|  02601 

1 

1 1 

567A3 

1 

Cl  0260A 

1 

Ci  75062 

1 

I:  77613 

0 

35,2260 

Ci 

751A2 

1 

Ci 

12635 

1 

II 

A27A3 

1 

Ci  75160 

1 

Cl 

75O7A 

0 

Cl  12617 

1 

11  42673 

0 

Cl  75062 

1 

35,2270 

Ci 

75132 

0 

Ci 

126A5 

0 

1 1 

AO7A3 

0 

Cl  33362 

0 

Cl 

75062 

1 

II  42772 

0 

Cl  75122 

1 

Cl  12655 

1 

35.2300 

li 

7610A 

0 

Ci 

72251 

1 

Cl 

00010 

0 

II  6A7A3 

0 

Cl 

02657 

1 

Cl  02655 

0 

II  55523 

0 

C:  02665 

0 

35.2310 

1 ! 

76521 

0 

Ci 

02721 

1 

1 1 

777A5 

1 

C;  001A5 

1 

Ci 

06665 

1 

II  77745 

1 

Cl  00150 

0 

C:  06655 

1 

35,2320 

I ! 

777A5 

1 

Ci 

00152 

1 

Cl 

06657 

0 

li  77700 

0 

Ci 

72303 

1 

li  76174 

1 

Cl  00006 

1 

Cl  00002 

0 

35,2330 

I ! 

573A3 

1 

Ci 

02637 

1 

cl 

33365 

1 

11  77722 

0 

I i 

73A06 

1 

II  56172 

0 

Cl  00046 

0 

C:  10021 

0 

35 .23Ao 

I i 

777A5 

1 

I i 

777A6 

1 

Cl 

10027 

0 

li  7130A 

0 

Ci 

72330 

1 

Cl  00017 

1 

li  43312 

0 

Ci  02625 

1 

35,2350 

C; 

16625 

1 

Ci 

00015 

0 

1 1 

56A05 

0 

C;  00025 

0 

1 1 

77615 

0 

Cl  02631 

1 

C;  16631 

1 

C;  00021 

1 

35.2360 

I i 

57275 

0 

Ci 

00023 

0 

cl 

00017 

1 

11  77712 

0 

I i 

57325 

1 

Ci  00013 

0 

Cl  00015 

0 

II  77615 

0 

35,2370 

I i 

77675 

0 

Ci 

02573 

1 

n 

57325 

1 

Ci  00023 

0 

Cl 

00025 

0 

li  66405 

0 

Cl  0257I 

0 

li  77621 

1 
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35*2a00  C;  0263?  1 I:  A5A25  0 C:  61156  1 C: 
35,2410  I;  57325  1 C;  02571  0 C?  00017  1 IS 
35,2420  c:  02573  1 li  454I5  0 c!  61062  1 Cs 
35,2430  C!  00021  1 I;  76405  I C?  OOOI7  1 1: 


00021 

1 

1 1 

41275 

1 

Cl 

00025 

0 

Cl  02573 

1 

l!  77732 

1 

77615 

0 

Cl 

02641 

0 

1 1 

77625 

0 

II  57325 

1 

Ci  02575 

1 

00023 

0 

I ! 

76405 

1 

Cl 

00013 

0 

li  57325 

1 

Ci  00015 

0 

77621 

1 

I i 

77675 

0 

Ct 

02573 

1 

II  57325 

1 

Ci  00015 

0 

35 ,2AAo 

35,2450 

35,2460 

35,2470 


Ci  00025  0 l;  76405  I 
Cj  00015  0 I5  57325  I 
C:  33367  0 I:  43261  0 
li  5A275  0 Ci  33367  0 


CI 

02571 

0 

1 1 

77621 

1 

Cl 

CI 

02621 

0 

C; 

00023 

0 

II 

d 

2l6l6 

0 

Ct 

02635 

0 

Ci 

CI 

21616 

0 

I i 

77615 

0 

Cl 

02577 

0 

1 ! 

77615 

0 

1 1 

77606 

1 

I I 74475 

1 

77615 

0 

It 

77671 

1 

Ct 

00025 

0 

li  57206 

1 

16635 

0 

I 1 

43275 

0 

Cl 

00017 

1 

Ci  02715 

0 

02633 

0 

Cl 

16633 

0 

Cl 

00023 

0 

li  76405 

1 

35,2500  l:  57325  1 C;  00015  0 
35,2510  Ci  02627  0 Ci  02627  0 
35,2520  Ci  02667  1 Ci  02655  0 
35,2530  C!  06657  0 I i 42675  0 


Ci  02621  0 
II  774O4  1 
II  A2675  0 
Cl  33374  1 


l:  77621  1 

C{  72773  1 
Ci  33372  1 

Ci  02655  0 


li  54275  0 
11527  1 
C!  02655  0 
It  41475  1 


Ci  33367  0 
02741  1 
Ci  06655  1 
Ci  33372  1 


Ci  2l<>l^  0 
02703  I 
li  77613  0 
I i 67300  0 


I i 77615  0 
I;  44743  1 
Ci  02657  1 

Ci  72517  1 


35,25Ao  Ci  02747  1 It  71254  1 Cl  72553  1 Ci  02^27  0 It  45425  0 Ci  61150  1 It  77621  1 Ci  02631  1 

35,2550  Ci  02631  1 It  77650  1 CI  72575  0 It  43345  1 Ci  02625  1 Ci  02645  1 Ct  16625  1 C;  02645  I 

35,2560  It  44275  1 Ci  33376  0 Cl  02631  1 Ct  16631  1 Ci  02651  1 II  44275  1 Ct  33376  0 Ci  02627 

35,2570  It  41325  0 Ct  02653  0 Ci  33400  0 It  45421  1 Ci  75l50  1 It  77775  1 Ci  02625  1 Ci  03611  1 


35,2600  It  77776  1 11527  I 027^1  1 

35,2610  Ci  02772  1 Ci  I66I7  0 Cl  02565  0 Ci 

35,2620  06103  0 It  64375  I Cl  02625  1 Ci 

35,2630  Ct  02565  0 It  77776  I 05224  0 Ci 

35*2640  Ci  00004  0 02643  1 03431  1 

35,2650  04147  1 Ct  00255  0 37761  0 

35,2660  It  77731  1 Ct  00051  0 Cl  00006  1 li 

35,2670  Ct  02756  1 li  50313  0 cl  02423  0 Ci 


10356  0 13016  1 03421  0 06l03  0 l!  77775  I 
02603  0 I;  77776  1 04147  1 Ci  00275  1 00003  1 
02750  1 It  53372  1 Ct  02617  0 Ci  16772  1 Ci  02603  0 
30424  0 04147  I Ci  00155  0 00003  1 04121  1 

00004  0 31717  1 00006  1 63004  0 03l00  0 
55717  0 00003  1 06103  0 It  77770  1 C|  00022  I 
50373  0 Ci  02423  0 Ci  02764  0 It  50313  0 Ci  02423  0 
02750  1 li  53466  0 Ci  06445  1 It  45100  1 Ci  72663  I 


35*2700  Ci  32472  1 It  77776  I 02717  1 06103  0 
35,2710  Ct  02635  0 It  74276  I CI  33365  1 It  74521  1 
35,2720  Cl  00175  1 00003  I 33353  I 05224  0 
35,2730  11574  1 02737  0 03027  1 II742  0 


I i 65345  0 
Ci  02750  1 
Ci  26361  1 
03002  0 


Ci  02^27  0 
C|  02501  1 
05224  0 
05224  0 


Ct  02633  0 
I I 77776  1 
Ct  26762  0 

Cl  50077  1 


I i 55525  0 
04147  1 
02776  0 
05224  0 


35,2740 

35,2750 

35,2760 

35,2770 


Ci  50225  1 55527  I 

05224  0 Cl  30424  0 
67737  0 61744  I 

05605  1 37754  0 


04147  1 Ct  00135  0 
03421  0 00004  0 
00006  1 62771  1 
02764  0 04744  1 


00003  1 11574  1 

40025  1 61745  0 

05701  1 Cl  02060  0 
Ci  01600  0 03000  1 


02750  1 02752  0 

00006  1 62761  0 

Cl  72065  1 00003  I 

04744  1 Ci  01601  1 
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35»3000 

0522a 

0 

Ci  30747 

0 

05224 

0 

Ci 

5l6l4 

0 

00003 

1 

06103 

0 

li 

77775 

1 

Ci 

33334 

0 

35,3010 

Cl 

02625 

1 

li  77776 

1 

11746 

1 

55746 

1 

34517 

0 

55527 

1 

11746 

1 

02742 

1 

1 

Ci  00003 

03024 

02742 

00002 

00006 

35 ,3020 

Oa12  1 

i 

1 

1 

04 1 05 

1 

C 1 

0 

1^2742 

1 

1 

35,3030 

235A7 

0 

06103 

0 

II 

77624 

1 

Ci 

3O4O7 

1 

I i 

77776 

1 

05224 

0 

Ci 

3O73I 

1 

01547 

0 

35,3oAo 

35370 

0 

54001 

1 

33351 

0 

54i44 

1 

50144 

0 

3i600 

0 

22003 

1 

50144 

0 

35,3050 

55600 

1 

22OO3 

1 

10144 

1 

13055 

0 

00002 

0 

54I44 

1 

35370 

0 

54001 

1 

n 

54144 

35370 

54OOI 

31600 

35,3060 

130AA 

0 

33351 

V 

1 

(J 

56003 

1 

1 

5OI44 

0 

U 

35,3070 

22003 

1 

5OI44 

0 

55600 

1 

10144 

1 

13076 

1 

00002 

0 

54144 

1 

13063 

u 

00006 

Q 

54144 

5OI44 

55400 

i ) 

35 , 3 100 

1 

23547 

334O4 

1 

1 

5 0 0 0 0 

1 

31720 

0 

0 

35,3110 

1014A' 

1 

13103 

1 

01547 

0 

Ci 

77743 

1 

Cl 

77776 

1 

C; 

35143 

1 

Ci 

10237 

0 

C; 

31766 

1 

35,3120 

c: 

26106 

1 

Ci  77772 

0 

cl 

43677 

0 

Ci 

77777 

0 

Cl 

77661 

0 

CI 

00002 

0 

c; 

O5420 

1 

C: 

77705 

0 

35,3130 

c: 

F7776 

1 

Ci  37560 

0 

cl 

05346 

0 

Ci 

37522 

0 

Ci 

15525 

1 

Ci 

77763 

0 

Ci 

41604 

0 

Ci 

77777 

0 

35,3lA0 

C! 

76470 

0 

Ci  00007 

0 

cl 

02201 

0 

Ci 

77767 

1 

Cl 

77776 

1 

CI 

37773 

0 

Ci 

10042 

0 

C: 

37747 

1 

35,3150 

Ci 

30232 

1 

Ci  00006 

1 

c; 

37666 

0 

Ci 

77777 

0 

Ci 

76703 

1 

Ci 

00001 

0 

Ci 

36147 

0 

C: 

77635 

1 

35,3160 

Ci 

77776 

1 

Ci  37666 

0 

Cl 

11022 

1 

Ci 

37532 

1 

Cl 

33647 

1 

Ci 

00007 

0 

Ci 

03641 

1 

C: 

77777 

0 

35,3170 

C! 

75713 

0 

Ci  77774 

0 

cl 

54605 

0 

Ci 

77407 

1 

Cl 

77776 

1 

c; 

37712 

1 

Cl 

16755 

1 

C: 

37630 

0 

35,3200 

C! 

O116O 

1 

Ci  00000 

1 

Cl 

23600 

0 

Ci 

77777 

0 

Cl 

63663 

1 

Ci 

77777 

0 

Cl 

56527 

1 

C: 

77255 

0 

35,3210 

Ci 

77776 

1 

Ci  37763 

1 

Ci 

23341 

0 

Ci 

37755 

1 

Ci 

26170 

0 

Ci 

00000 

1 

C; 

00254 

l 

Ci 

77777 

0 

35,3220 

Ci 

52755 

1 

Ci  77777 

0 

cl 

76764 

0 

Ci 

77147 

0 

Cl 

77776 

1 

CI 

37772 

1 

CI 

02343 

1 

Ci 

37761 

0 

35,3230 

Ci 

30560 

1 

Ci  00000 

1 

Cl 

00362 

0 

Ci 

00000 

1 

Cl 

17261 

1 

Ci 

77777 

0 

c; 

77671 

1 

Ci 

77015 

0 

35,32^0 

Ci 

77776 

1 

Ci  37765 

1 

cl 

12403 

0 

Ci 

37752 

0 

Ci 

20062 

1 

CI 

00000 

1 

CI 

0022^ 

0 

Ci 

OOOOO 

1 

35,3250 

Ci 

06150 

0 

Ci  77777 

0 

C! 

77762 

1 

Ci 

77161 

1 

C; 

77776 

1 

Ci 

37767 

0 

Ci 

12613 

0 

c. 

37756 

1 

35,3260 

Ci 

30343 

0 

Ci  00000 

1 

Cl 

00060 

1 

Ci 

00000 

1 

Ci 

01445 

0 

Ci 

77777 

0 

CI 

77774 

0 

Ci 

76651 

1 

35,3270 

Ci 

77776 

1 

Ci  37771 

1 

Cl 

02603 

0 

Ci 

37762 

0 

Ci 

10061 

1 

c; 

00000 

1 

CI 

00023 

0 

Ci 

OOOOO 

1 

35,3300 

Ci 

00402 

1 

Ci  00000 

1 

Cl 

00000 

1 

Ci 

76505 

0 

Ci 

77776 

1 

CI 

37772 

1 

Ci 

22005 

1 

Ci 

37765 

1 

35,3310 

Ci 

05560 

1 

Ci  00000 

1 

Cl 

00005 

1 

Ci 

00000 

1 

Ci 

00113 

1 

Ci 

00000 

1 

Ci 

OOOOO 

1 

Ci 

76651 

1 

35,3320 

Ci 

77776 

1 

Ci  37773 

0 

Cl 

20750 

1 

Ci 

37767 

0 

CI 

O3O44 

1 

c; 

00000 

1 

CI 

00003 

1 

Ci 

OOOOO 

1 

35,3330 

Ci 

00033 

1 

Ci  00000 

1 

cl 

00000 

1 

Ci 

00000 

1 

Ci 

00000 

1 

CI 

00000 

1 

Ci 

OOOOO 

1 

C: 

OOOOO 

1 

35,33A0 

Ci 

00000 

1 

Ci  00004 

0 

Cl 

OOOO2 

0 

Ci 

OO22O 

1 

CI 

77776 

1 

Ci 

35730 

0 

CI 

00035 

1 

Ci 

l03l7 

0 

35,3350 

Ci 

17550 

1 

C;  00115 

1 

Ci 

01577 

0 

C; 

02500 

0 

Ci 

04133 

1 

Ci 

02265 

1 

Ci 

57223 

0 

C; 

66451 

1 

35,3360 

Ci 

05427 

0 

C{  12577 

1 

Cl 

77567 

0 

Ci 

44202 

1 

Ci 

24276 

1 

CI 

14066 

1 

Ci 

23073 

1 

c: 

11773 

1 

35,3370 

Ci 

00031 

0 

Ci  03146 

1 

Cl 

14632 

0 

Cl 

00121 

0 

CI 

35341 

1 

CI 

00631 

0 

Ci 

23146 

0 

Ci 

OOOOO 

1 
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35*3400 

35,3410 

35.3420 

35,3430 

35,3440 

35,3450 

35,3460 

35,3470 

35,3500 

35,3510 

35,3520 

35,3530 

35,3540 

35,3550 

35,3560 

35,3570 


C:  17565  1 
C!  OOOOl  0 
CJ  50005  1 
12606  1 

C!  56003  1 
Cj  77776  1 
Ci  00001  0 
I i 77650  1 

I!  77606  I 
I;  77725  1 

Ci  14013  0 
67740  0 

67740  0 
C;  00000  1 
05745  1 
CKSM  43107  0 


Cj  06200  0 
33401  I 
30075  0 
00004  0 

l5605  0 
li  64717  1 
li  64723  0 
Ci  73501  I 

l;  65345  0 
C;  00015  0 

I!  77626  0 
56061  0 


Ci 


67740  0 
01130  I 
37740  0 


Ci  00021  1 
55163  0 
77754  1 
00006  1 

li  77601  0 
CJ  OOOOl  0 
CJ  77756  0 
1»  76601  1 

Ci  00003  1 
CJ  14005  1 

Ci  77760  0 

30061  0 

56061  0 
CJ  00000  1 
05534  0 


C;  00023  0 
37761  0 
10000  0 
31565  0 

Ci  OOOOl  0 
Cj  77760  0 
Ci  77764  I 
Ci  OOOOl  0 

Ci  00007  0 
li  77626  0 

li  77616  0 
05701  1 

30061  0 
C;  00310  0 
Ci  77777  0 


Ci  00062  0 

557I7  0 

13426  0 
53155  0 

I • 64743  0 
I;  64723  0 
li  55523  0 
Ci  OOOOl  0 

Ci  lA003  1 
Cj  63762  1 

00004  0 
CJ  03554  0 

05701  1 
35657  0 
CJ  77777  0 

e 


37755  1 

33404  1 
00002  0 
34260  1 

CJ  77762  1 
C;  77766  0 
Ci  77772  0 
IJ  62713  0 

IJ  77626  0 
Cj  00013  0 

40025  1 
CJ  72O6O  1 

Ci  03561  0 

05534  0 
05745  1 


55742  0 
55744  0 
04105  1 
05534  0 

C!  77770  1 
Cj  7777A  0 
IJ  41517  1 

CJ  00007  0 

Ci  63770  1 
Ij  77725  1 

63551  0 
40025  1 

CJ  72060  1 
Cj  77777  0 
Cj  03566  1 

e 


35,3600  & @ @ @ § 

35,3610  e e e @ e @ @ 

35,3620  @ e e g @ @ @ 

35,3630  @ g @ @ g @ g 

35,3640  g g g g g g g 

35,3650  g g g g g g g 

35,3660  g g g g g g g 

35,3670  g g g g g g g 

35,3700  g g g g g g g 

35,3710  g g g g g g g 

35,3720  g g g g g g g 

35,3730  g g g g g g g 

35,3740  g g g g g g g 

35,3750  g g g g g g g 

35,3760  g g g g g g g 

35,3770  g g g g g g g 


Memory. 


04105  1 
05224  0 

j 00004  0 
: 02056  0 

: 55523  0 
• 63666  1 
j OOOOl  0 
I 00015  0 

I 00005  1 

J 00017  I 

677A0  0 
63553  I 

05605  I 

J 77777  0 
J 03567  0 
g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 
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36.2000 

00006 

1 

0 

1 

0 

30025 
C;  74O6A 
52006 
42337 

0 

0 

0 

0 

53567 

00003 

00006 

54001 

0 

1 

1 

1 

04105 

32336 

32353 

37761 

1 

0 

0 

0 

Cl  00032 
54001 
52006 
54146 

0 

1 

0 

0 

32311 

37761 

0000a 

201A5 

0 

0 

0 

0 

n0004 

21561 

00006 

00006 

0 

0 

1 

1 

05701 

00006 

31457 

40025 

1 

1 

0 

1 

36.2010 

36.2020 

36.2030 

Ci 

02a01 

32361 

52U5 

36.20A0 

20U5 

0 

07320 

1 

52145 

0 

O5757 

1 

Cl  02102 

0 

CI 

7AO6A 

0 

00003 

1 

06103 

0 

36.2050 

I ; 

77775 

1 

Cl  01011 

0 

cl 

26115 

0 

Cl 

01017 

0 

Ci  16123 

0 

CI 

35451 

1 

CI 

15664 

1 

CI 

35076 

0 

36 .2060 

• c: 

01666 

0 

Cl  15670 

1 

d 

01321 

0 

Cl 

02264 

0 

II  43131 

0 

CI 

01653 

0 

CI 

00004 

0 

Cl 

01063 

0 

36.2070 

I ! 

77776 

1 

35226 

1 

00004 

0 

05534 

0 

Cl  02001 

1 

Cl 

70063 

0 

05224 

0 

Ci 

26754 

0 

36.2100 

0A732  .0 

05605 

1 

37743 

0 

70076 

1 

10000 

0 

02277 

1 

04l05 

1 

Cl 

00042 

1 

36.2110 

00006 

1 

40025 

1 

21664 

0 

11664 

0 

67755 

1 

12120 

1 

AOOOO 

0 

67735 

1 

36.2120 

C5701 

1 

C;  02364 

1 

Cl 

74064 

0 

O6O7A 

1 

05114 

0 

Cl 

00226 

1 

Ci 

01750 

1 

37755 

1 

36.2130 

C57OI 

1 

Cl  02245 

0 

Cl 

74064 

0 

05114 

0 

Cl  00126 

1 

Cl 

00620 

0 

05106 

0 

Cl 

00344 

1 

36.21^0 

c: 

C030A 

0 

Cl  00144 

0 

05106 

0 

Cl 

00364 

0 

Cl  00324 

1 

Cl 

01356 

0 

05307 

0 

Ci 

34024 

0 

36.2150 

05717 

0 

Cj  01356 

0 

06054 

0 

05717 

0 

C|  00062 

0 

05307 

0 

Ci 

34030 

0 

05717 

0 

36.2160 

Ci 

0A766 

1 

37735 

1 

55335 

1 

00006 

1 

32355 

0 

52006 

0 

O0006 

1 

32351 

1 

36.2170 

53073 

0 

05745 

1 

00006 

1 

32363 

0 

53O73 

0 

37755 

1 

00004 

0 

O57OI 

1 

36.2200 

c; 

02203 

1 

Cl  74064 

0 

05605 

1 

O4IO5 

1 

C!  000A4 

1 

32341 

0 

05701 

1 

Cl 

02422 

1 

36.2210 

Ci 

7A06A 

0 

37753 

1 

55662 

0 

50000 

1 

32342 

0 

55335 

1 

00006 

1 

32355 

0 

36.2220 

52006 

0 

O57I7 

0 

Cl 

01750 

1 

11662 

0 

02212 

1 

37735 

1 

55335 

1 

00006 

1 

36.2230 

32355 

0 

52006 

0 

32311 

0 

05701 

1 

CI  02237 

0 

Cl 

74064 

0 

05745 

1 

05114 

0 

36.22^0 

Ci 

COO26 

0 

Cl  00144 

0 

05073 

0 

Cl 

00046 

0 

05745 

1 

37752 

0 

00006 

1 

02030 

0 

36.2250 

00006 

1 

12255 

0 

05717 

0 

c; 

00062 

0 

12245 

1 

05307 

0 

Ci 

34057 

1 

04105 

1 

36.2260 

Ci 

0007A 

1 

35677 

1 

54003 

0 

00006 

1 

31543 

1 

53333 

1 

37743 

0 

54003 

0 

36.2270 

O57I7 

0 

Cl  00144 

0 

05114 

0 

Cl 

00227 

0 

Cl  00620 

0 

O6O7I 

1 

05745 

1 

05224 

0 

36.2300 

Ci 

57267 

0 

32311 

0 

00004 

0 

05701 

1 

Cl  02307 

1 

CI 

74064 

0 

05605 

1 

05114 

0 

36.2310 

Ci 

000A7 

1 

C|  00144 

0 

05114 

0 

Cl 

00267 

1 

Ci  01440 

0 

O5IO6 

0 

Cl 

00365 

1 

Ci 

00325 

0 

36.2320 

Ci 

OOIAA 

0 

05106 

0 

Cl 

00345 

0 

Cl 

00305 

1 

CI  03554 

0 

06036 

1 

Cl 

00001 

0 

05307 

0 

36.2330 

Ci 

3A012 

0 

O5UI 

0 

cl 

00002 

0 

Cl 

OOOI5 

0 

CI  01753 

1 

O5745 

1 

CI 

32274 

1 

Ci 

04312 

0 

36.23A0 

Cl 

04766 

1 

Cl  04230 

1 

Cl 

06315 

0 

Cl 

14632 

0 

Cl  11463 

0 

CI 

2OOOO 

0 

Ci 

03  146 

1 

Cl 

02233 

1 

36.2350 

Cl 

02041 

0 

C|  4400^ 

0 

Cl 

02000 

0 

Cl 

4400a 

0 

C:  03367 

0 

Cl 

60065 

1 

Ci 

02301 

1 

C: 

74064 

0 

36.2360 

Cl 

02301 

1 

Cl  I6OO4 

1 

c* 

02312 

0 

Cl 

60065 

1 

37755 

1 

05701 

1 

CI 

02000 

0 

Ci 

60065 

1 

36.2370 

32347 

0 

55322 

1 

00006 

1 

32363 

0 

53O73 

0 

00006 

1 

32357 

1 

53075 

0 
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octal  listing  0^  ParaGraph  m zii,  wIT^l  ?ahity  bit  in  binary  at  the  right  qf  each  word;  "e"  denotes  unused  fixed  memqRy. 

ALL  VALID  WORDS  ARe  BASIC  INSTRUCTIONS  eXLePT  THOSe  MARXeD  "In  ( INTeRPRetI Ve  OPERATOR  WORDS)  OR  "C«  (CONSTANTS), 


36»2A00  057AS  i 
36*2A10  051U  0 
36*2420  CS  00033  I 
36*2430  l:  40214  1 


05114  0 Ci  00354  0 

C;  OO3O7  0 Ci  00144  0 

O5745  1 05114  0 

c:  02062  I C*  00001  0 


C:  O2260  1 05106  0 

05106  0 C;  00266  0 

Ci  00336  I CI  00310  0 

l;  43014  0 c:  02265  1 


C!  00355  1 c:  00306  1 

C;  00032  0 C;  1356^  0 

O5O73  0 CI  00337  0 

CI  02261  0 I I 43014  0 


Cl  OO3IO  0 
05073  0 

05745  I 
Cl  02265  I 


36*2440  Ci  022^4  0 li 
36*2450  Cj  74456  0 Ii 
36*2460  Ci  01735  1 I I 
36*2470  .C!  357II  0 Ci 

36*2500  Cl  00041  1 Cl 
36*2510  C;  00047  1 Cj 
36*2520  CI  00021  1 I! 
36*2530  Ci  00023  0 I I 

36*2540  l;  56214  0 Cl 
36*2550  C;  35461  1 II 
36*2560  Ci  02343  1 Cl 
36*2570  CI  74575  0 Cl 

36*2600  Ii  45205  1 Ci 
36*2610  Ci  74712  0 C; 
36*2620  Ci  75217  1 Cl 
36*2630  Ci  74651  0 Ci 


5ii45  0 Ci  01673  1 Ci 
77745  I Ci  35447  0 Ci 
41345  0 Cl  02167  0 Cl 
74715  1 I*  77624  1 Ci 

20172  1 Ci  14037  0 Ci 
00037  0 Ii  77671  1 Ii 
51406  1 I I 44205  0 Ci 
65301  0 c*  00047  1 Ci 

02304  1 Ci  74553  1 II 
77650  I Ci  74556  1 Ii 
74644  1 Cl  01676  1 l! 
00027  1 Ci  01676  1 II 

00023  0 Ci  00037  0 Ii 
34043  I Ci  74751  1 Ii 
01737  ° I '•  77621  1 Ci 
75316  1 I I 45246  0 Ci 


74446 

1 

1 1 

776i4 

1 

CI 

01735 

1 

1 1 

77650 

1 

Ci 

35473 

1 

I ! 

77652 

0 

Ci 

74736 

0 

I I 

60345 

0 

C I 

35451 

1 

I i 

70425 

0 

CI 

75457 

20175 

A 

u 

C I 

u 

I ! 

35461 

1 

I ! 

77626 

0 

CI 

00035 

1 

I : 

45261 

0 

CI 

40057 

1 

Ci 

20201 

0 

CI 

71201 

1 

Ci 

00001 

0 

Ci 

45214 

1 

CI 

02305 

0 

Ci 

77650 

1 

Ci 

74577 

1 

I i 

55301 

0 

C i 

00047 

1 

C! 

77624 

1 

Ci 

74766 

0 

Ii 

01674 

0 

Ci 

01743 

0 

1 ! 

35453 

0 

1 1 

71240 

1 

CI 

02064  1 I I 776i4 
74461  1 I I 77745 
25674  0 Ci  02141 

00045  0 Ci  00047 


1 Ci  023o3  0 
1 Ci  35443  I 
1 l!  77702  1 
1 I ! 53665  1 


00035  1 CI  00025  0 I:  65301  0 
44214  0 Ci  02345  1 C;  74664  0 
63744  0 Ci  00031  0 Ii  77742  0 

20607  1 Ci  00037  0 Ci  00037  0 


74553  1 II  51406  1 
35471  0 d O0027  1 
74577  1 Ci  00027  1 
77745  1 Ci  01676  1 


li  43205  1 
1;  71214  0 
I I 71244  0 

Ci  01733  1 


00025  0 l!  40057  1 C:  20172  1 
77624  1 C;  75151  0 I;  77624  1 
45246  0 Ci  35475  1 1:  45040  1 
74661  0 CI  OI737  0 Ci  15741  1 


36*2^>^0 

Ci  01745 

0 

1 

l!  52015 

I I 77745 

1 

1 

cl 

01733 

1 

1 

Ci  74577 

1 

I ! 

65342 

1 

1 

Ci 

00033 

1 

1 

36  «2650 

Ci  74577 

C i 

01733 

Ci  01676 

1 

C I 

34023 

C i 

75405 

36  *2660 

15605 

0 

Ii  52014 

0 

cl 

02060 

0 

Cl  74651 

0 

I ! 

43206 

1 

CI 

00021 

1 

36»2670 

CI  35461 

1 

II  77626 

0 

ci 

63744 

0 

Ci  00035 

1 

I ! 

45261 

0 

Ci 

2O6O7 

1 

II  43342  0 l!  77650  1 
I I 77414  0 Ci  02061  1 
Ii  51406  1 I I 44205  0 
CI  0003?  0 Ci  14037  0 


36*2700  Ci  00031  0 II  77742  0 
36*2710  Ii  77650  1 C;  74556  1 
36*2720  Ci  00045  0 Ci  24041  1 
36*2730  CI  OI7O3  1 Ii  76435  1 

36*2740  (il  00047  1 I I 70525  1 
36*2750  Ii  77616  0 Ii  63545  0 
36*2760  Ci  20573  1 II  40021  0 
36*2770  Ci  01733  1 Cl  00045  0 


Ci  14023  0 Ci  OOO2I  1 I!  41425  1 

Ii  52145  0 Ci  35076  0 Ci  74621  1 

Ci  02365  0 It  77702  1 II  41456  0 

Ii  75246  0 Ci  01673  1 Ci  00031  0 

Ci  00035  1 Ii  56215  1 Ci  35447  0 

Ci  01733  1 Ii  60215  1 Ci  35441  0 

Ci  35445  1 Ci  74712  0 Ci  00017  1 

Ii  60316  0 Ci  00047  1 II  70405  1 


II  41246  1 Ci  35461  1 li  776l5  0 
Ii  53575  0 Ci  01711  1 Ci  15703  1 
II  72441  0 CI  01703  1 Ci  24035  1 
II  77616  0 II  60254  1 Ci  74747  0 

II  77657  0 Ci  2*3175  0 Ci  OOO2I  1 
Ci  00047  1 I I 53605  1 Ci  00043  0 
It  77616  0 II  45345  1 Ci  00021  1 
Ci  00043  0 II  51525  1 Cl  00017  1 
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oCtal  listing  oh  Paragraph  m 212,  wItH'  Rahijy  bit  in  binary  at  tHe  right  oF  each  word;  "g"  Denotes  unused  fixed 

ALL  VALID  WORDS  ARE  BASIc  INStRucII°'IS  EXLEPT  THOSE  mAR<eD  "1"  ( I NTERpRET I VE  OpERATOR  wORDS)  OR  "c"  (CONSTANTS) 


36*3000 

36*3010 

36*3020 

36*3030 

36*30^0 

36*3050 

36*3060 

36*3070 

36*3100 

36*3110 

36*3120 

36*3130 

36*31A0 

36*3150 

36*3160 

36*3170 

36*3200 

36*3210 

36*3220 

36*3230 

36*32^0 

36*3250 

36*3260 

36,3270 

36*3300 

36*3310 

36*3320 

36,3330 

36*33Ao 

36*3350 

36*3360 

36,3370 


I:  55301 

0 

cs 

00051 

0 

li 

53660 

1 

Cs 

00050 

1 

cs 

20604 

1 

Is  77600 

1 

Cs  75146 

0 

c:  00017 

1 

Is 

60215 

1 

Ci 

35441 

0 

cs 

00047 

1 

I s 

65265 

0 

Cl  35447 

0 

CS  OOOOl 

0 

c;  00050 

1 

I s 

75205 

1 

Cl 

00003 

1 

cs 

00045 

0 

I s 

43064 

1 

Cl  00046 

0 

Cl  02305 

0 

I:  65257 

1 

c; 

57173 

0 

I * 

40057 

1 

Cs 

20171 

1 

cs 

75O5O 

0 

IS  57406 

1 

IS  65415 

1 

l:  Ai365 

1 

cs 

OOOA5 

0 

c» 

05600 

1 

I s 

43244 

1 

cs 

75046 

1 

CS  05600 

1 

CS  OOOOl 

0 

l!  52145 

0 

C; 

35455 

0 

c; 

75035 

0 

I; 

57457 

0 

Cl 

57162 

0 

Is  77725 

1 

II  41457 

1 

l:  -43276 

0 

Cs 

35441 

0 

I i 

65342 

1 

Cs 

00003 

1 

I s 

43342 

0 

1 S 44301 

0 

CS  OI7OO 

1 

IS  77776 

1 

34557 

1 

27677 

1 

07265 

1 

cs 

00011 

1 

C!  00000 

1 

Cs  noooo 

1 

c:  00000 

1 

cs 

00400 

0 

Ci 

00000 

1 

cs 

00525 

0 

cs 

12525 

0 

CS  OlOOO 

0 

Cl  00000 

1 

C:  06315 

0 

Cs 

02525 

1 

CS 

12525 

0 

C) 

04444 

1 

Cl 

22222 

0 

Cs  10000 

0 

Cs  00000 

1 

c:  30706 

0 

c; 

31463 

1 

CS 

06315 

0 

37761 

0 

54146 

0 

00006 

1 

33463 

0 

A 

07351 

52146 

rt 

53701 

1 

31677 

W 

1 

0 

52145 

U 

53701 

1 

00006 

1 

20145 

0 

06103 

0 

li 

77661 

0 

Cl 

20606 

0 

Cl 

00001 

0 

IS  77616 

0 

IS  52145 

0 

c:  75007 

1 

IS 

60345 

0 

ci 

00017 

1 

cs 

01701 

0 

1 1 

60325 

0 

c;  00041 

1 

Cs  01700 

1 

IS  77446 

1 

41700 

0 

61677 

0 

55677 

1 

54020 

1 

30020 

0 

60000 

1 

13173 

0 

37755 

1 

I3I7A 

1 

37761 

0 

55700 

0 

27677 

1 

31677 

0 

60021 

1 

55677 

1 

06103 

0 

1 s 

53740 

1 

cs 

01700 

1 

CS  20601 

1 

IS  73006 

0 

IS  A1366 

1 

I s 

41214 

0 

Ci 

02345 

1 

cs 

75215 

0 

Cl 

35465 

0 

Cl  00015 

0 

IS  77616 

0 

CS  00043 

0 

cs 

OOOI7 

1 

li 

40061 

1 

Cl 

20207 

0 

Cl 

74712 

0 

IS  75446 

0 

IS  77605 

1 

cs  01733 

1 

cs 

00145 

1 

n 

45325 

1 

Cl 

00017 

1 

Cl 

35443 

1 

IS  77605 

1 

CS  00003 

1 

CS  00145 

1 

Cs 

OOOOi 

0 

li 

76202 

0 

1 1 

77771 

0 

I s 

75301 

1 

Cl  00047 

1 

Cs  0001? 

1 

C;  00015 

0 

C; 

00047 

1 

li 

7761A 

1 

C; 

02305 

0 

Cl 

75305 

0 

Is  43014 

0 

Cs  02345 

1 

CS  02345 

1 

CS 

75265 

1 

li 

52057 

1 

c: 

20564 

1 

Cl 

75300 

0 

IS  52057 

1 

Cl  20575 

1 

IS  53614 

1 

cs 

02345 

1 

ci 

75276 

0 

cs 

20570 

1 

1 1 

77650 

1 

CS  75300 

0 

IS  77657 

0 

Is  77600 

1 

cs 

75313 

1 

ci 

00015 

0 

Is 

43401 

0 

Cl 

OOOOl 

0 

IS  42414 

0 

Cs  02342 

0 

1}  52057 

1 

C; 

2O6O4 

1 

Cl 

75300 

0 

I S 

52145 

0 

Ci 

35455 

0 

C;  75302 

1 

Is  71214 

0 

Cs  75347 

0 

CS 

01737 

0 

li 

60225 

1 

Cl 

01741 

1 

cs 

00047 

1 

IS  70525 

1 

Cl  01743 

0 

IS  53605 

1 

CS 

017A5 

0 

Ci 

20202 

0 

cs 

01745 

0 

1 1 

71240 

1 

CS  75361 

1 

CS  n0033 

1 

C:  01733 

1 

cs 

0l745 

0 

li 

50000 

1 

cs 

75373 

1 

Cl 

75373 

1 

IS  43545 

1 

CS  01745 

0 

C;  00027 

1 

c; 

01735 

1 

1 s 

41325 

0 

C; 

00033 

1 

Cs 

01735 

1 

II  77625 

0 

Is  52165 

1 

CS  75333 

0 

I s 

A5345 

1 

Cl 

00027 

1 

Cl 

01733 

1 

I s 

40025 

1 

Cl  01745 

0 

Cs  75400 

1 

CS  75400 

1 

cs 

01745 

0 

II 

77616 

0 

11 

45345 

1 

cs 

00033 

1 

CS  01733 

1 

Cl  01745 

0 

I 

1 

C 

C 

I 

C 

c 

c 

c 

c 


c 

I 


c 

I 

I 

1 

I 

c 

c 

c 

c 

c 

I 

I 

I 

c 

I 

I 


Memory, 


. 75206  1 
: 60366  I 
; 75053  0 
: 35A51  1 

: 776i6  0 

• 20160  1 
: 35A51  I 
: 00400  0 

: 01A63  1 
; 16161  0 
52145  0 
40001  1 

: 35457  1 
: 56342  1 
54000  0 
54021  0 

: 01677  0 
: 41345  0 
: 72205  0 
J 65351  0 

: 56005  1 
: 75270  0 
: 75300  0 
: 20601  1 

! 75310  1 
: 02202  0 
: 77671  I 
! 45225  0 

) 4i345  0 
: 01743  0 
: 71244  0 
: 77616  0 
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ALL  VALID  WORDS  ARE  BASIc  INSTRUCTIONS  EXCEPT  THOSE  mARkE?  "I"  ( INTERpRETl VE  OPERATOR  wORDS)  OR  "c"  (CONSTANTS) 


36*3A00 

36,3a10 

36,3A20 

36,3a30 


I:  <,5345  1 C;  00027  1 
l:  r0525  1 Ci  00043  0 
c:  20165  1 c;  75A24  I 
c:  01725  0 I!  60435  0 


Ci  01733  1 C;  01745 
li  77671  1 li  A1214 
li  77657  0 Ci  20173 
Cl  OI7O3  1 li  74255 


0 I i 776l6  0 I { 
0 Ci  02345  1 Ci 
0 li  63366  1 Ci 
0 li  46561  1 Ci 


60345  0 Ci  OOO4I  1 C 
75A22  1 Ci  35A67  1 I 
01703  1 li  63361  0 C 
35A73  1 Ci  OI7I7  1 I 


36*34Ao  Ci  C0020  0 
36*3450  Ci  20000  0 
36.3460  Ci  00020  0 
36.3470  Ci  40010  1 


Ci 

00000 

1 

Ci 

Ci 

00000 

1 

Cl 

Ci 

U223 

1 

Ci 

Ci 

40042 

0 

Cl 

OOAOO  0 Ci  00000  1 
00000  1 Ci  00001  0 
OO13O  0 Ci  27103  0 
30276  1 Ci  05000  1 


Ci  OlOOO  0 Ci  00000 
Ci  37777  1 Ci  37777 
Ci  22031  0 Ci  22343 
Ci  00000  1 Ci  00003 


1 Ci  10000  0 C 

1 Ci  37757  0 C 

0 Ci  3IIII  1 C 

1 Ci  03476  1 C 


36  * 3500 
36.3510 

36.3520 

36.3530 

36.35A0 

36.3550 

36.3560 

36.3570 

36.3600 

36.3610 

36.3620 

36.3630 

36.36A0 

36.3650 

36.3660 

36.3670 

36.3700 

36.3710 

36.3720 

36.3730 

36.37A0 

36.3750 

36.3760 

36.3770 


CKSN  Aii76  1 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

@ @ @ @ e @ @ 


g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

g 

Memory. 


00047  1 
52057  1 

00023  0 
I 77616  0 


! 00000  1 
: 37777  1 

: 324O5  1 
: 03477  U 

S 

e 

e 

@ 

e 

@ 

@ 

e 

e 

e 

e 

e 

@ 

e 

e 

e 

e 

e 

@ 

§ 

g 

g 

g 


488954A  YJU  system  FOR  AGC;  NeW  PROGRAM  SMePatIN  BY  eYLeS 


Dec  l3,  1966 


OcTAu  uISTINg  0(-  pARAcRApH  u 21A.  wITHi  sAKITy  BIT  IN  BlNARy  AT  THe  RI^HT  Op  EAcH  wORq;  "6"  DENOTES  uMuSEd  FIxED 
ALU  VALID  WORDS  ARp  BASIC  INSTRUCTIONS  E^'-EPT  THOSe  MARKeD  "I”  ( I NTERPRET I Ve  OPERATOR  WORDS)  OR  "C  (CoNStANtS) 


37t2000  Ci 

37»2010  C; 

37*2020  C: 

37,2030 

37*20A0 

37,2050 

37,2060 

37,2070 

37,2100 

37,2110 

37,2120 

37,2130 

37,2U0 

37,2150 

37,2160 

37,2170 

37,2200 

37,2210 

37,2220 

37,2230 

37,22A0 

37,2250 

37,2260 

37,2270 


00050  1 CJ 

I7777  0 C; 

00021  1 C: 

37761  0 

12022  1 
00002  0 
25366  0 
5OOOO  1 

01371  0 
00002  0 
0212A  1 
02022  0 

lOOOO  0 
02022  0 

62162  0 
62172  1 

32020  1 
60021  1 
00006  1 
37763  1 

00006  1 
30001  0 

37755  1 
4OOOO  0 


00061  0 c* 

25252  0 c; 

02102  0 
55357  0 

00002  0 
00006  I 
01371  0 
02072  0 

01371  0 
O2O22  D 
O2O22  ° 

02022  D 

02022  D 

41371  I 

02022  D 
02022  0 

55377  I 
00006  1 
7OO2I  0 
55371  1 

52017  0 
02042  0 
01371  D 
00006  I 


01374  0 Ci 
37737  0 C; 

30002  0 
02102  0 

4,0000  0 

23371  0 
62016  1 
02103  1 

O2O5I  1 
10000  0 
O2O22  0 
10000  0 

02022  0 

02043  1 

33455  0 
40000  0 

34553  0 
20021  0 
00006  1 

40000  0 

40001  1 
30001  0 
02043  1 
12313  0 


01400  1 Ci 

37776  0 C; 

55361  0 
01361  I 

lOOOO  0 
05623  0 
00006  1 
02767  0 

02105  1 
02022  0 
O2022  0 
02022  0 

O2O22  0 

37745  0 

67755  1 
00006  1 

51377  0 
00006  1 
10021  0 
57371  0 

020A3  1 

02043  1 
01371  0 

33455  0 


01461  0 Ci 

52400  1 Ci 

25362  1 
AOOOO  0 

I2O22  1 
11357  0 
62066  0 
O3O43  0 

02112  1 
O2O22  0 
55371  1 
02137  0 

10000  0 
00006  1 

00006  1 
62200  1 

54,000  0 
60021  1 
30021  1 
57372  0 

30001  0 

37737  0 
02035  0 

67755  1 


01774  1 C 

76777  1 C 

0A744  1 C 

10000  0 

I2O22  1 
02062  1 
03547  1 
O3I37  1 

12107  1 
02117  1 
11371  1 
02022  0 

O2O22  0 

62176  0 

62177  1 
02022  0 

10021  0 
30021  1 

0204,2  0 
00006  1 

0204,2  0 

55371  1 

37760  1 
00006  1 


00060  1 c 

• 77770  1 C 

I 01102  0 

12022  1 

lOOOO  0 

02053  0 

25366  0 
03313  0 

O2022  0 
02022  0 
02132  0 
02022  0 

02151  0 

4,0000  0 

37761  0 
02022  0 

51377  0 
70021  0 

32017  0 
s1376  1 

00006  1 
37754  0 
00006  1 
12314  1 


37,2300 

37,2310 

37,2320 

37,2330 


00006  1 
12316  0 
55371  1 

0204,2  0 


12315  0 
02022  0 
02022  0 
30001  0 


37761  0 
02022  0 
40000  0 

0204,3  1 


00006  1 
02022  0 
55372  1 
00006  1 


12306  1 
02022  0 
43455  1 

27371  I 


02022  0 
02022  0 
54OOI  1 
00006  1 


4,0000  0 

33455  0 

4,0000  0 

27372  1 


37,2340 

61372 

0 

0204,2 

0 

43455 

1 

61371 

0 

37,2350 

00006 

1 

26000 

0 

02035 

0 

00006 

1 

37,2360 

37754 

0 

20001 

1 

65357 

0 

0204,2 

0 

37,2370 

33456 

0 

53374 

1 

35355 

1 

54001 

1 

O2O43  1 
26000  0 
37755  1 

36301  0 


37755  1 
02034  1 
60001  0 
21374  1 


00006  1 
37763  1 
02043  1 
22000  1 


PAGE1219 


memory. 


i 60017  1 
. 01371  0 
11357  0 
12022  1 

12022  1 
02062  1 
67757  D 

01371  0 

46301  1 
lOOOO  0 

02022  0 
40000  0 

02022  0 
00006  1 

00006  1 
02022  0 

4,0000  0 
02042  D 
55376  0 
30001  0 

51376  1 
55372  1 
12312  1 
40000  0 

00006  1 
67754  0 

53372  1 

33455  D 

26000  0 
54001  1 
00006  1 
02034  1 
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octal  listing  qF  ParaGraph  * 2i5*  with,  parity  bit  in  binary  at  the  right  qF  each  Word«  "e"  denotes  unused  fixed  memqry. 

ALL  VALID  WORDS  ARe  BASIC  INSTRUCTIONS  eX''EPt  tHOSe  MARKgO  nlti  ( INTERPRET  I Ve  OPeRATOR  WORDS)  oR  "C»  (CONSTANTS), 


37*2400  3OOOI  0 02042  0 00006  1 31374 
37*2410  25374  0 61374  0 02035  0 24000 
37,2420  36301  0 54OOI  1 4OOOO  0 21372 
37,2430  67755  1 02043  I 30001  0 02042 

37,2440  4OOOO  0 54002  I 40000  0 00006 
37,2450  26001  1 62013  1 02043  1 30001 
37,2460  25376  1 60001  0 00006  1 7l376 
37,2470  37755  1 27376  0 02043  1 31376 

37,2500  67755  1 54001  1 02022  0 40000 
37,2510  11371  1 40000  0 22000  1 02034 
37,2520  55373  0 67740  0 02035  0 30001 
37,2530  00006  1 11373  0 56001  0 4OOOO 

37,2540  33455  0 56001  0 67740  0 02042 
37*2550  62013  1 02042  0 56001  0 02043 
37*2560  10002  1 00006  1 22001  0 60002 
37,2570  00006  1 23371  0 30002  0 02042 

37,2600  55371  1 40000  0 55372  1 00006 
37,2610  02042  0 00006  1 33456  0 00006 
37,2620  02043  1 37757  0 54001  1 ' 72016 
37*2630  37755  1 54001  1 55371  1 50000 

37*2640  00006  1 50001  0 60000  1 02043 
37*2650  4OOOI  1 02043  1 52002  1 55373 
37*2660  37763  1 54002  1 40000  0 00006 
37*2670  30001  0 02043  1 35355  1 54002 


0 22OOO  1 O2O43  1 3OOOI  0 02042  G 

1 02042  0 00006  1 43456  1 53372  1 

1 O2O43  1 00006  1 41372  1 56001  0 

0 37755  1 00006  1 24000  1 55375  0 

1 73455  1 60001  0 00006  1 7OOO2  1 

0 00006  1 71375  0 55376  0 00006  1 

0 O2O42  0 40001  1 62013  1 02035  0 

1 O2O43  1 37740  0 55371  1 60000  1 

0 55372  1 37762  0 2337I  0 00006  1 

1 00006  1 11372  1 55374  1 40000  0 

0 O2O35  0 33455  0 54001  1 32010  1 

0 00006  1 11374  1 62013  1 02043  1 

0 42010  0 00006  1 11374  1 60001  0 

1 42013  0 54OO2  1 40000  0 00006  1 

0 02043  1 30001  0 63455  0 02042  0 

0 41371  1 67754  0 02043  1 37761  0 

1 20000  0 O2O34  1 00006  1 21372  1 

1 20001  1 54000  0 02620  1 02022  0 

0 02034  1 37755  1 7OOOI  1 02042  0 

1 60000  1 00006  1 6I37I  0 02042  0 

1 37754  0 54001  1 37755  1 00006  I 

0 60002  0 02042  0 30001  0 02034  I 

1 30002  0 60002  0 61373  1 02042  0 

1 33456  0 26002  1 4OOO2  1 54000  0 


37*2700 

37*2710 

02022 

54002 

37761 

0 

1 

37  *2720 

0 

37*2730 

12725 

1 

37*2740 

Cl 

02763 

1 

37*2750 

c: 

02757 

0 

37*2760 

37*2770 

00006 

00006 

1 

1 

00006  1 30002  0 54OOO 
26002  1 26002  1 54000 
54015  1 00003  1 50027 
00004  0 30015  0 00006 

76063  0 33455  0 62012 
67754  0 02745  0 00004 
12022  1 02767  0 40015 
01002  I 22002  0 O2O43 


0 O27O6  1 02022 

0 02022  0 26002 

1 55371  1 41371 

1 12736  0 02717 

0 00003  1 40000 

0 55375  0 02022 

1 62750  1 02043 

1 00006  1 00001 


0 02043  1 37740  0 

1 02042  0 00004  0 

1 60027  1 00006  1 

1 37755  1 O57OI  1 

0 lOOOO  0 02753  1 

0 00003  1 40015  1 

1 05745  I 37763  1 

0 02043  1 3OOOI  0 
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qctal  lisfinS  of  ParaGraph 

ALL  VALID  WORDS  ARe  BASIC 

« 216*  1 

instruct 

WITH, 

IONS 

Parity  bit  in 

except  those 

Binary  aT 

MAR<eD  "I" 

the  right  oF  Each  wqrd;  "e"  denotes 

(Interpretive  operator  words)  or  "C" 

unused  Fixed 

(CONSTANTS) 

MEMORY. 

• 

37*3000 

02043 

1 

46301 

1 

54001 

1 

32013 

1 

00006 

1 

04001 

1 

02043 

1 

32013 

1 

37*3010 

00006 

1 

O5OOI 

0 

1 

02043 

1 

30001 

0 

O2O43 

1 

42013 

0 

64001 

1 

32010 

1 

37*3020 

00006 

1 

0200 1 

02042 

0 

32010 

1 

00006 

1 

O3OO1 

0 

O2O42 

0 

47760 

0 

37*3030 

56001 

0 

02042 

0 

36276 

1 

00006 

1 

06001 

0 

67754 

0 

02043 

1 

3OOOI 

0 

67753 

1 

n ^5  A e 1 

r\ 

31376 

56002 

37 , 3040 

1 

02043 

i 

1 

ijOOO^ 

1 

33456 

53377 

1 

1 

u 

37*3050 

00006 

1 

40002 

1 

10000 

0 

03062 

0 

03067 

0 

55376 

0 

61377 

0 

02043 

1 

Q 

1 

n 

31377 

n 

7 ♦ 3UovJ 

t5377 

u 

^3^46 

ouuu  i 

U 

1 

D5623 

41376 

0 

03047 

1 

37*3070 

61376 

1 

02035 

0 

33456 

0 

55375 

0 

40000 

0 

00004 

0 

63455 

0 

67755 

1 

37*3100 

56002 

0 

10002 

1 

03117 

0 

02022 

0 

55373 

0 

02022 

0 

3I373 

1 

61375 

1 

37*3110 

02043 

1 

00003 

1 

05623 

0 

31374 

0 

00006 

1 

27375 

0 

03075 

0 

55374 

1 

37*3120 

03130 

0 

31374 

0 

61375 

1 

02043 

1 

31375 

1 

63456 

0 

67763 

1 

03100 

0 

i 1 a •*  c 

0 

41374 

62013 

1 

02O5I 

37755 

37*3130 

1 

1 

1 

i 

UOUU  3 

1 

1 

i 

37*31A0 

55374 

1 

37761 

0 

54003 

0 

32004 

1 

55377 

1 

35356 

1 

55373 

0 

03167 

1 

37*3150 

32003 

0 

55377 

1 

35356 

1 

55373 

0 

03167 

1 

32003 

0 

55377 

1 

32005 

0 

37*3160 

55373 

0 

03167 

1 

55374 

1 

32001 

1 

55377 

1 

32002 

1 

55373 

0 

00004 

0 

37*3170 

00006 

1 

51377 

0 

30001 

0 

53376 

0 

31377 

0 

55355 

1 

54001 

1 

24001 

0 

37*3200 

5OOOO 

1 

52001 

1 

51377 

0 

40001 

1 

51377 

0 

60000 

1 

02043 

1 

00006 

1 

37*3210 

51377 

0 

40001 

1 

51377 

0 

52001 

1 

51377 

0 

40000 

0 

51377 

0 

60001 

0 

37*3220 

02043 

1 

00006 

1 

31376 

1 

51377 

0 

52001 

1 

37761 

0 

55355 

1 

00003 

1 

37*3230 

30003 

1 

55372 

1 

05623 

0 

31372 

0 

54003 

0 

25377 

0 

41377 

1 

61373 

1 

37*3240 

00006 

1 

13243 

0 

03167 

1 

11374 

1 

03162 

1 

25374 

0 

30003 

1 

67745 

0 

37*3250 

54003 

0 

62015 

1 

00006 

1 

13155 

1 

10003 

0 

03150 

0 

32003 

0 

54003 

0 

37*3260 

32000 

0 

55372 

1 

67752 

0 

50000 

1 

40000 

0 

11372 

1 

03261 

1 

32011 

0 

37*3270 

54020 

1 

54022 

0 

54021 

0 

54023 

1 

60020 

0 

60022 

1 

60021 

1 

60023 

0 

37,3300 

62014 

0 

02043 

1 

60020 

0 

5OO22 

1 

60021 

1 

60023 

0 

67755 

1 

02043 

1 

37*3310 

25367 

1 

02051 

1 

03313 

0 

37762 

0 

55376 

0 

37761 

0 

55374 

1 

37755 

1 

37,3320 

55377 

1 

37761 

0 

55371 

1 

55373 

0 

37755 

1 

55375 

0 

31374 

0 

54001 

1 

37,3330 

74547 

1 

61373 

1 

05263 

0 

03357 

0 

67743 

0 

03370 

0 

4OOOO 

0 

55377 

1 

37,3340 

00006 

1 

13344 

0 

37742 

1 

03345 

0 

35652 

0 

55373 

0 

37761 

0 

55371 

1 

37,3350 

37755 

1 

55375 

0 

00006 

1 

5I373 

1 

30001 

0 

03357 

0 

O337O 

0 

55372 

1 

37*3360 

61371 

0 

55371 

1 

37761 

0 

61371 

0 

55371 

1 

41372 

1 

61373 

1 

00002 

0 

37*3370 

10000 

0 

O34OI 

1 

O34OI 

1 

03401 

1 

11375 

0 

03402 

1 

3OOOI 

0 

03357 

0 

^8895^A  YJL  system  FOR  AGC : NEW  PROGRAM  SMEPATIN  BY  EYLES 
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octal  listing  oF  PaRA&RaPH  * 217.  WITHi  ?A«ITY  BIT  In  BinaRY  AT 

ALL  VALID  WORDS  ARe  BASIC  INSTRUCTIONS  eXLePt  THOSe  MARKED  .<!„ 

37.3^00  O3A6O  0 37755  I 55375  0 11376 

37,3A10  25373  1 11377  I 03326  0 03326 

37.3A20  00Q06  1 13A53  1 3137A  0 677A3 

37,3A30  03AA5  1 7A5A7  1 00006  1 13AA3 

37,3AA0  32006  0 27374  I 03445  1 62OO7 

37.3450  03336  1 37747  1 03320  0 11376 

37,3460  31374  0 ' 74553  1 54021  0 31374 

37.3470  05001  0 ' 11376  0 03524  1 Cj  01201 

37.3500  03502  0 37763  1 5537I  1 40001 

37,3510  55376  0 37761  0 55357  0 32021 

37,3520  C:  03315  0 CS  76062  I 00003  1 05605 

37,3530  54146  0 33473  I O4433  1 03544 

37.3540  03527  1 32021  0 55371  1 05605 

37.3550  67754  0 00006  1 63556  1 37761 

37,3560  02102  0 C;  05265  0 Q’,  04143  0 Cj  05471 

37,3570  C;  05163  0 C;  05675  0 Ci  05777  0 Ci  07265 


the  RIGHT  oF  Each  wqRdj  "e"  denotes  unused  fixed  memqRY. 

(INTERPRETIVE  operator  WORDS)  OR  "C"  (CONSTANTS), 

0 10067  1 05550  1 034IO  1 05623  ^ 

0 03352  0 03352  0 41374  1 63474  0 

0 55374  1 03431  1 37737  0 27374  1 

0 62010  1 00006  1 1344O  0 03445  1 

1 27374  1 11377  1 03320  0 37755  I 

0 03315  0 C;  37777  1 C;  4OOOO  0 03546  0 

0 74547  1 O453O  0 22021  1 00006  1 

0 Cs  76060  0 II37I  1 03502  0 C:  77527  I 

1 61371  0 02043  1 03416  1 37755  I 

0 55356  1 00004  0 37743  0 05523  0 

1 30001  0 57372  0 55373  0 32017  0 

1 04611  0 04464  0 03541  1 03416  1 

1 33477  0 04643  1 02102  0 4OOOO  0 

0 55357  0 03576  0 37761  0 55357  0 

0 C;  05573  0 C;  04757  0 C;  05736  0 C;  05634  0 

1 Cl  00013  0 C:  00042  1 34557  1 55373  ^ 


37.3600  00004  0 37755  1 

37.3610  00004  0 51373  1 

37,3620  54320  1 54321  0 

37,3630  00004  0 37744  1 

37,3640  03607  0 03646  0 

37,3650  33575  0 00006  1 

37.3660  36301  0 54307  I 

37.3670  43573  1 54314  0 

37,3700  47742  0 OOOOa  0 

37.3710  c;  03710  1 CKSM  17124  0 
37.3720  @ § 

37.3730  @ e 

37.3740  e g 

37.3750  g g 

37.3760  g g 

37.3770  g g 


05701  1 Cl  03637  0 Cl  76063  0 

43561  1 54313  1 54314  0 

54322  0 54323  1 54324  0 

05701  1 Ci  03637  0 Ci  76063  0 

03663  1 11372  1 03677  1 

05011  1 43573  1 00004  0 

03630  1 47761  1 55373  0 

54317  0 54321  0 36301  0 

03613  0 43575  1 00006  1 

g g g 

g g g 

g g g 

g g g 

g g g 

g g g 

g g g 


00003  1 03560  1 55373  0 

54315  1 54316  1 54317  0 

54325  1 33574  1 54307  1 

00003  1 05745  1 11373  0 

03703  0 47755  0 55373  0 

.54313  1 54316  1 54320  1 

37755  1 55372  1 00004  0 

54307  1 03630  1 55372  I 

03011  1 05745  1 Cl  O37O7  1 

g g g 

g g g 

g g g 

g g g 

g g g 

g g g 

g g g 
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